- SD53136P ;ALB/JRP/MM - POST INSTALL SD*5.3*136;10/27/97
- ;;5.3;Scheduling;**136**;Aug 13 1993
- ;
- SEED ;Seed NPCD ENCOUNTER MONTH multiple (#404.9171) of the SCHEDULING
- ; PARAMETER file (#404.91) with revised close-out dates for fy 1998
- ;
- ;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=9
- F LINE=2:1:10 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("")
- Q
- ;
- FY98 ;Revised Close-out dates for fiscal year 1998
- ; Month ^ Database Close-Out ^ Workload Close-Out
- ;;2980100^2980430^2980206
- ;;2980200^2980430^2980306
- ;;2980300^2980430^2980410
- ;;2980400^2981016^2980508
- ;;2980500^2981016^2980605
- ;;2980600^2981016^2980710
- ;;2980700^2981016^2980807
- ;;2980800^2981016^2980911
- ;;2980900^2981016^2981009
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53136P 2056 printed Mar 13, 2025@21:49:48 Page 2
- SD53136P ;ALB/JRP/MM - POST INSTALL SD*5.3*136;10/27/97
- +1 ;;5.3;Scheduling;**136**;Aug 13 1993
- +2 ;
- SEED ;Seed NPCD ENCOUNTER MONTH multiple (#404.9171) of the SCHEDULING
- +1 ; PARAMETER file (#404.91) with revised close-out dates for fy 1998
- +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=9
- +21 FOR LINE=2:1:10
- 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 QUIT
- +39 ;
- FY98 ;Revised Close-out dates for fiscal year 1998
- +1 ; Month ^ Database Close-Out ^ Workload Close-Out
- +2 ;;2980100^2980430^2980206
- +3 ;;2980200^2980430^2980306
- +4 ;;2980300^2980430^2980410
- +5 ;;2980400^2981016^2980508
- +6 ;;2980500^2981016^2980605
- +7 ;;2980600^2981016^2980710
- +8 ;;2980700^2981016^2980807
- +9 ;;2980800^2981016^2980911
- +10 ;;2980900^2981016^2981009
- +11 ;
