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 Dec 13, 2024@02:45 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")
