* Rule Validations Validate_RecNo = RECNO('AppointmentTypeSets') Validate_disp_off = AppointmentTypeSets.S_Offr Validate_doc_code1 = AppointmentTypeSets.S_Coder Validate_FromDate = AppointmentTypeSets.FromDate Validate_ToDate = AppointmentTypeSets.ToDate Validate_Day = AppointmentTypeSets.Day Validate_sx_starttime = AppointmentTypeSets.StartHour Validate_sx_startmin = AppointmentTypeSets.StartMin Validate_sx_endtime = AppointmentTypeSets.EndHour Validate_sx_endmin = AppointmentTypeSets.EndMin SELECT * FROM AppointmentTypeSets INTO CURSOR crsApptRuleValidate WHERE ; (BETWEEN(Validate_FromDate, AppointmentTypeSets.FromDate, AppointmentTypeSets.ToDate) OR ; BETWEEN(Validate_ToDate, AppointmentTypeSets.FromDate, AppointmentTypeSets.ToDate)) AND ; (((Validate_sx_starttime > AppointmentTypeSets.StartHour AND Validate_sx_starttime < AppointmentTypeSets.EndHour) OR ; ((Validate_sx_starttime = AppointmentTypeSets.StartHour AND Validate_sx_startmin >= AppointmentTypeSets.StartMin) OR ; (Validate_sx_starttime = AppointmentTypeSets.EndHour AND Validate_sx_startmin <= AppointmentTypeSets.EndMin))) OR ; ((Validate_sx_endtime > AppointmentTypeSets.StartHour AND Validate_sx_endtime < AppointmentTypeSets.EndHour) OR ; ((Validate_sx_endtime = AppointmentTypeSets.StartHour AND Validate_sx_endmin >= AppointmentTypeSets.StartMin) OR ; (Validate_sx_endtime = AppointmentTypeSets.EndHour AND Validate_sx_endmin <= AppointmentTypeSets.EndMin)))) AND ; AppointmentTypeSets.S_Coder = Validate_doc_code1 AND ; (UPPER(TRIM(AppointmentTypeSets.Day)) = UPPER(TRIM(Validate_Day))) AND ; AppointmentTypeSets.S_Offr = Validate_disp_off AND ; RECNO() <> Validate_RecNo Validate_RecCount = RECCOUNT('crsApptRuleValidate')