SD53167P.m

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 ---SD53167P   858     printed  Apr 09, 2024@21:56:32                                                                                                                                                                                                     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")