- SD53167P ;ALB/JDS - Patch 218 postinit ; Nov 16 1998
- ;;5.3;Scheduling;**167**;AUG 13, 1993
- ;go through hopital location file printing clinics with '0' starttime
- N A,SCCNT,XPDIDTOT,SC D MES^XPDUTL("Searching for Clinics with HOUR CLINC DISPLAY BEGINS of '0'")
- S A="",SCCNT=0
- F S A=$O(^SC("B",A)) Q:A="" F SC=0:0 S SC=$O(^SC("B",A,SC)) Q:'SC I $P($G(^SC(SC,"SL")),U,3)=0 D
- .D MES^XPDUTL($P($G(^SC(SC,0)),U)) S SCCNT=SCCNT+1
- I 'SCCNT D MES^XPDUTL("No clinics with HOUR CLINIC DISPLAY BEGINS of '0' found") Q
- D MES^XPDUTL(SCCNT_" Clinics Identified")
- D MES^XPDUTL("The beginning display time for these clinics will be midnight")
- D MES^XPDUTL("To maintain the current start time use the Set up a Clinic [SDBUILD] OPTION")
- D MES^XPDUTL("Select the Clinic")
- D MES^XPDUTL("Enter '^HOUR' and delete the HOUR CLINIC DISPLAY BEGINS value")
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53167P 858 printed Feb 19, 2025@00:11:27 Page 2
- SD53167P ;ALB/JDS - Patch 218 postinit ; Nov 16 1998
- +1 ;;5.3;Scheduling;**167**;AUG 13, 1993
- +2 ;go through hopital location file printing clinics with '0' starttime
- +3 NEW A,SCCNT,XPDIDTOT,SC
- DO MES^XPDUTL("Searching for Clinics with HOUR CLINC DISPLAY BEGINS of '0'")
- +4 SET A=""
- SET SCCNT=0
- +5 FOR
- SET A=$ORDER(^SC("B",A))
- if A=""
- QUIT
- FOR SC=0:0
- SET SC=$ORDER(^SC("B",A,SC))
- if 'SC
- QUIT
- IF $PIECE($GET(^SC(SC,"SL")),U,3)=0
- Begin DoDot:1
- +6 DO MES^XPDUTL($PIECE($GET(^SC(SC,0)),U))
- SET SCCNT=SCCNT+1
- End DoDot:1
- +7 IF 'SCCNT
- DO MES^XPDUTL("No clinics with HOUR CLINIC DISPLAY BEGINS of '0' found")
- QUIT
- +8 DO MES^XPDUTL(SCCNT_" Clinics Identified")
- +9 DO MES^XPDUTL("The beginning display time for these clinics will be midnight")
- +10 DO MES^XPDUTL("To maintain the current start time use the Set up a Clinic [SDBUILD] OPTION")
- +11 DO MES^XPDUTL("Select the Clinic")
- +12 DO MES^XPDUTL("Enter '^HOUR' and delete the HOUR CLINIC DISPLAY BEGINS value")
