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 Nov 22, 2024@17:54:56 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 ;
