- SD53156P ;BP-CIOFO/KEITH - POST INSTALL SD*5.3*156 ; 23 Sep 98 10:20 AM
- ;;5.3;Scheduling;**156**;Aug 13 1993
- ;
- SEED ;Seed NPCD ENCOUNTER MONTH multiple (#404.9171) of the SCHEDULING
- ; PARAMETER file (#404.91) with workload close-out dates for FY1999
- ;
- ;Declare variables
- N XPDIDTOT,LINE,DATES,WLMONTH,DBCLOSE,WLCLOSE,TMP
- ;Print header
- D BMES^XPDUTL(">>> Storing revised close-out dates for Fiscal Year 1998")
- S TMP=$$INSERT^SCDXUTL1("Workload","",7)
- S TMP=$$INSERT^SCDXUTL1("Database",TMP,27)
- S TMP=$$INSERT^SCDXUTL1("Workload",TMP,47)
- D BMES^XPDUTL(TMP)
- S TMP=$$INSERT^SCDXUTL1("Occured In","",6)
- S TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,27)
- S TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,47)
- D MES^XPDUTL(TMP)
- S TMP=$$INSERT^SCDXUTL1("------------","",5)
- S TMP=$$INSERT^SCDXUTL1("------------",TMP,25)
- S TMP=$$INSERT^SCDXUTL1("------------",TMP,45)
- D MES^XPDUTL(TMP)
- ;Loop through list of dates
- S XPDIDTOT=6
- F LINE=2:1:7 S TMP=$T(FY98+LINE),DATES=$P(TMP,";",3) Q:(DATES="") D
- .;Break out info
- .S WLMONTH=$P(DATES,"^",1)
- .S DBCLOSE=$P(DATES,"^",2)
- .S WLCLOSE=$P(DATES,"^",3)
- .;Print close-out info
- .S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLMONTH,"1D"),"",7)
- .S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(DBCLOSE,"1D"),TMP,25)
- .S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLCLOSE,"1D"),TMP,45)
- .D MES^XPDUTL(TMP)
- .;Store close-out info
- .S TMP=$$AECLOSE^SCDXFU04(WLMONTH,DBCLOSE,WLCLOSE)
- .;Write error message if datebase or workload dates not updated
- .I TMP<0 D MES^XPDUTL(" >>>>Could not update closeout dates for above month.")
- .;If KIDS install, show progress through status bar
- .D:($G(XPDNM)'="") UPDATE^XPDID(LINE-1)
- D BMES^XPDUTL("")
- ;Print header
- D BMES^XPDUTL(">>> Storing close-out dates for Fiscal Year 1999")
- S TMP=$$INSERT^SCDXUTL1("Workload","",7)
- S TMP=$$INSERT^SCDXUTL1("Database",TMP,27)
- S TMP=$$INSERT^SCDXUTL1("Workload",TMP,47)
- D BMES^XPDUTL(TMP)
- S TMP=$$INSERT^SCDXUTL1("Occured In","",6)
- S TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,27)
- S TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,47)
- D MES^XPDUTL(TMP)
- S TMP=$$INSERT^SCDXUTL1("------------","",5)
- S TMP=$$INSERT^SCDXUTL1("------------",TMP,25)
- S TMP=$$INSERT^SCDXUTL1("------------",TMP,45)
- D MES^XPDUTL(TMP)
- ;Loop through list of dates
- S XPDIDTOT=12
- F LINE=2:1:13 S TMP=$T(FY99+LINE),DATES=$P(TMP,";",3) Q:(DATES="") D
- .;Break out info
- .S WLMONTH=$P(DATES,"^",1)
- .S DBCLOSE=$P(DATES,"^",2)
- .S WLCLOSE=$P(DATES,"^",3)
- .;Print close-out info
- .S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLMONTH,"1D"),"",7)
- .S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(DBCLOSE,"1D"),TMP,25)
- .S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLCLOSE,"1D"),TMP,45)
- .D MES^XPDUTL(TMP)
- .;Store close-out info
- .S TMP=$$AECLOSE^SCDXFU04(WLMONTH,DBCLOSE,WLCLOSE)
- .;Write error message if datebase or workload dates not updated
- .I TMP<0 D MES^XPDUTL(" >>>>Could not update closeout dates for above month.")
- .;If KIDS install, show progress through status bar
- .D:($G(XPDNM)'="") UPDATE^XPDID(LINE-1)
- D BMES^XPDUTL("")
- Q
- ;
- FY98 ;Revised Close-out dates for fiscal year 1998
- ; Month ^ Database Close-Out ^ Workload Close-Ou
- ;;2971000^2981016^2971130
- ;;2971100^2981016^2971231
- ;;2971200^2981016^2980131
- ;;2980100^2981016^2980206
- ;;2980200^2981016^2980306
- ;;2980300^2981016^2980410
- ;
- FY99 ;Revised Close-out dates for fiscal year 1999
- ; Month ^ Database Close-Out ^ Workload Close-Out
- ;;2981000^2990430^2981106
- ;;2981100^2990430^2981211
- ;;2981200^2990430^2990108
- ;;2990100^2990430^2990212
- ;;2990200^2990430^2990312
- ;;2990300^2990430^2990409
- ;;2990400^2991015^2990507
- ;;2990500^2991015^2990611
- ;;2990600^2991015^2990709
- ;;2990700^2991015^2990806
- ;;2990800^2991015^2990910
- ;;2990900^2991015^2991008
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53156P 3793 printed Apr 23, 2025@18:59:29 Page 2
- SD53156P ;BP-CIOFO/KEITH - POST INSTALL SD*5.3*156 ; 23 Sep 98 10:20 AM
- +1 ;;5.3;Scheduling;**156**;Aug 13 1993
- +2 ;
- SEED ;Seed NPCD ENCOUNTER MONTH multiple (#404.9171) of the SCHEDULING
- +1 ; PARAMETER file (#404.91) with workload close-out dates for FY1999
- +2 ;
- +3 ;Declare variables
- +4 NEW XPDIDTOT,LINE,DATES,WLMONTH,DBCLOSE,WLCLOSE,TMP
- +5 ;Print header
- +6 DO BMES^XPDUTL(">>> Storing revised close-out dates for Fiscal Year 1998")
- +7 SET TMP=$$INSERT^SCDXUTL1("Workload","",7)
- +8 SET TMP=$$INSERT^SCDXUTL1("Database",TMP,27)
- +9 SET TMP=$$INSERT^SCDXUTL1("Workload",TMP,47)
- +10 DO BMES^XPDUTL(TMP)
- +11 SET TMP=$$INSERT^SCDXUTL1("Occured In","",6)
- +12 SET TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,27)
- +13 SET TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,47)
- +14 DO MES^XPDUTL(TMP)
- +15 SET TMP=$$INSERT^SCDXUTL1("------------","",5)
- +16 SET TMP=$$INSERT^SCDXUTL1("------------",TMP,25)
- +17 SET TMP=$$INSERT^SCDXUTL1("------------",TMP,45)
- +18 DO MES^XPDUTL(TMP)
- +19 ;Loop through list of dates
- +20 SET XPDIDTOT=6
- +21 FOR LINE=2:1:7
- SET TMP=$TEXT(FY98+LINE)
- SET DATES=$PIECE(TMP,";",3)
- if (DATES="")
- QUIT
- Begin DoDot:1
- +22 ;Break out info
- +23 SET WLMONTH=$PIECE(DATES,"^",1)
- +24 SET DBCLOSE=$PIECE(DATES,"^",2)
- +25 SET WLCLOSE=$PIECE(DATES,"^",3)
- +26 ;Print close-out info
- +27 SET TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLMONTH,"1D"),"",7)
- +28 SET TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(DBCLOSE,"1D"),TMP,25)
- +29 SET TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLCLOSE,"1D"),TMP,45)
- +30 DO MES^XPDUTL(TMP)
- +31 ;Store close-out info
- +32 SET TMP=$$AECLOSE^SCDXFU04(WLMONTH,DBCLOSE,WLCLOSE)
- +33 ;Write error message if datebase or workload dates not updated
- +34 IF TMP<0
- DO MES^XPDUTL(" >>>>Could not update closeout dates for above month.")
- +35 ;If KIDS install, show progress through status bar
- +36 if ($GET(XPDNM)'="")
- DO UPDATE^XPDID(LINE-1)
- End DoDot:1
- +37 DO BMES^XPDUTL("")
- +38 ;Print header
- +39 DO BMES^XPDUTL(">>> Storing close-out dates for Fiscal Year 1999")
- +40 SET TMP=$$INSERT^SCDXUTL1("Workload","",7)
- +41 SET TMP=$$INSERT^SCDXUTL1("Database",TMP,27)
- +42 SET TMP=$$INSERT^SCDXUTL1("Workload",TMP,47)
- +43 DO BMES^XPDUTL(TMP)
- +44 SET TMP=$$INSERT^SCDXUTL1("Occured In","",6)
- +45 SET TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,27)
- +46 SET TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,47)
- +47 DO MES^XPDUTL(TMP)
- +48 SET TMP=$$INSERT^SCDXUTL1("------------","",5)
- +49 SET TMP=$$INSERT^SCDXUTL1("------------",TMP,25)
- +50 SET TMP=$$INSERT^SCDXUTL1("------------",TMP,45)
- +51 DO MES^XPDUTL(TMP)
- +52 ;Loop through list of dates
- +53 SET XPDIDTOT=12
- +54 FOR LINE=2:1:13
- SET TMP=$TEXT(FY99+LINE)
- SET DATES=$PIECE(TMP,";",3)
- if (DATES="")
- QUIT
- Begin DoDot:1
- +55 ;Break out info
- +56 SET WLMONTH=$PIECE(DATES,"^",1)
- +57 SET DBCLOSE=$PIECE(DATES,"^",2)
- +58 SET WLCLOSE=$PIECE(DATES,"^",3)
- +59 ;Print close-out info
- +60 SET TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLMONTH,"1D"),"",7)
- +61 SET TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(DBCLOSE,"1D"),TMP,25)
- +62 SET TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLCLOSE,"1D"),TMP,45)
- +63 DO MES^XPDUTL(TMP)
- +64 ;Store close-out info
- +65 SET TMP=$$AECLOSE^SCDXFU04(WLMONTH,DBCLOSE,WLCLOSE)
- +66 ;Write error message if datebase or workload dates not updated
- +67 IF TMP<0
- DO MES^XPDUTL(" >>>>Could not update closeout dates for above month.")
- +68 ;If KIDS install, show progress through status bar
- +69 if ($GET(XPDNM)'="")
- DO UPDATE^XPDID(LINE-1)
- End DoDot:1
- +70 DO BMES^XPDUTL("")
- +71 QUIT
- +72 ;
- FY98 ;Revised Close-out dates for fiscal year 1998
- +1 ; Month ^ Database Close-Out ^ Workload Close-Ou
- +2 ;;2971000^2981016^2971130
- +3 ;;2971100^2981016^2971231
- +4 ;;2971200^2981016^2980131
- +5 ;;2980100^2981016^2980206
- +6 ;;2980200^2981016^2980306
- +7 ;;2980300^2981016^2980410
- +8 ;
- FY99 ;Revised Close-out dates for fiscal year 1999
- +1 ; Month ^ Database Close-Out ^ Workload Close-Out
- +2 ;;2981000^2990430^2981106
- +3 ;;2981100^2990430^2981211
- +4 ;;2981200^2990430^2990108
- +5 ;;2990100^2990430^2990212
- +6 ;;2990200^2990430^2990312
- +7 ;;2990300^2990430^2990409
- +8 ;;2990400^2991015^2990507
- +9 ;;2990500^2991015^2990611
- +10 ;;2990600^2991015^2990709
- +11 ;;2990700^2991015^2990806
- +12 ;;2990800^2991015^2990910
- +13 ;;2990900^2991015^2991008
- +14 ;
