SD53248P ;ALB-CIOFO/MRY - POST INSTALL SD*5.3*248 ; 28 Aug 01 09:00 AM
;;5.3;Scheduling;**248**;Aug 13 1993
;
SEED ;Seed NPCD ENCOUNTER MONTH multiple (#404.9171) of the SCHEDULING
; PARAMETER file (#404.91) with workload close-out dates for FY2002
;
;Declare variables
N XPDIDTOT,LINE,DATES,WLMONTH,DBCLOSE,WLCLOSE,TMP
;Print header
D BMES^XPDUTL(">>> Storing close-out dates for Fiscal Years 2000, 2001 and 2002")
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=36
F LINE=2:1:37 S TMP=$T(FY02+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
;
FY02 ;Revised Close-out dates for fiscal year 2000, 2001 and new 2002 dates
; Month ^ Database Close-Out ^ Workload Close-Out
;;2991000^3020930^2991112
;;2991100^3020930^2991210
;;2991200^3020930^3000107
;;3000100^3020930^3000211
;;3000200^3020930^3000310
;;3000300^3020930^3000407
;;3000400^3020930^3000512
;;3000500^3020930^3000609
;;3000600^3020930^3000707
;;3000700^3020930^3000811
;;3000800^3020930^3000908
;;3000900^3020930^3001006
;;3001000^3030930^3001110
;;3001100^3030930^3001208
;;3001200^3030930^3010112
;;3010100^3030930^3010209
;;3010200^3030930^3010309
;;3010300^3030930^3010406
;;3010400^3030930^3010511
;;3010500^3030930^3010608
;;3010600^3030930^3010706
;;3010700^3030930^3010810
;;3010800^3030930^3010907
;;3010900^3030930^3011012
;;3011000^3040930^3011109
;;3011100^3040930^3011207
;;3011200^3040930^3020111
;;3020100^3040930^3020208
;;3020200^3040930^3020308
;;3020300^3040930^3020412
;;3020400^3040930^3020510
;;3020500^3040930^3020607
;;3020600^3040930^3020712
;;3020700^3040930^3020809
;;3020800^3040930^3020906
;;3020900^3040930^3021011
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53248P 3118 printed Sep 15, 2024@22:09:08 Page 2
SD53248P ;ALB-CIOFO/MRY - POST INSTALL SD*5.3*248 ; 28 Aug 01 09:00 AM
+1 ;;5.3;Scheduling;**248**;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 FY2002
+2 ;
+3 ;Declare variables
+4 NEW XPDIDTOT,LINE,DATES,WLMONTH,DBCLOSE,WLCLOSE,TMP
+5 ;Print header
+6 DO BMES^XPDUTL(">>> Storing close-out dates for Fiscal Years 2000, 2001 and 2002")
+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=36
+21 FOR LINE=2:1:37
SET TMP=$TEXT(FY02+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 QUIT
+39 ;
FY02 ;Revised Close-out dates for fiscal year 2000, 2001 and new 2002 dates
+1 ; Month ^ Database Close-Out ^ Workload Close-Out
+2 ;;2991000^3020930^2991112
+3 ;;2991100^3020930^2991210
+4 ;;2991200^3020930^3000107
+5 ;;3000100^3020930^3000211
+6 ;;3000200^3020930^3000310
+7 ;;3000300^3020930^3000407
+8 ;;3000400^3020930^3000512
+9 ;;3000500^3020930^3000609
+10 ;;3000600^3020930^3000707
+11 ;;3000700^3020930^3000811
+12 ;;3000800^3020930^3000908
+13 ;;3000900^3020930^3001006
+14 ;;3001000^3030930^3001110
+15 ;;3001100^3030930^3001208
+16 ;;3001200^3030930^3010112
+17 ;;3010100^3030930^3010209
+18 ;;3010200^3030930^3010309
+19 ;;3010300^3030930^3010406
+20 ;;3010400^3030930^3010511
+21 ;;3010500^3030930^3010608
+22 ;;3010600^3030930^3010706
+23 ;;3010700^3030930^3010810
+24 ;;3010800^3030930^3010907
+25 ;;3010900^3030930^3011012
+26 ;;3011000^3040930^3011109
+27 ;;3011100^3040930^3011207
+28 ;;3011200^3040930^3020111
+29 ;;3020100^3040930^3020208
+30 ;;3020200^3040930^3020308
+31 ;;3020300^3040930^3020412
+32 ;;3020400^3040930^3020510
+33 ;;3020500^3040930^3020607
+34 ;;3020600^3040930^3020712
+35 ;;3020700^3040930^3020809
+36 ;;3020800^3040930^3020906
+37 ;;3020900^3040930^3021011
+38 ;
+39 QUIT