SD53129P ;ALB/JRP/ABR - PATCH 129 POST-INIT;24-JUL-97
;;5.3;Scheduling;**129**;Aug 13, 1993
;
POST ;Main entry point of post-init
;
; Revise Database Closeout dates for FY1997 to 10/17/97 to allow
; missed surgery encounters to go in.
;
;Seed NPCD ENCOUNTER MONTH multiple (#404.9171) of the SCHEDULING
; PARAMETER file (#404.91) with close-out dates for fiscal year 1998
;
;Declare variables
N LINE,DATES,WLMONTH,DBCLOSE,WLCLOSE,TMP,ERR
D FY97REV ; revise FY97
D FY98UPD ; add FY98
Q
;
FY97REV ; revise FY97
D HDR(">>> Storing REVISED close-out dates for Fiscal Year 1997")
;Loop through list of dates
F LINE=2:1:13 S TMP=$T(FY97+LINE),DATES=$P(TMP,";",3) Q:(DATES="") D UPDATE Q:$G(ERR)
D BMES^XPDUTL("")
Q
;
FY98UPD ; add FY98
D HDR(">>> Storing close-out dates for Fiscal Year 1998")
;Loop through list of dates
F LINE=2:1:13 S TMP=$T(FY98+LINE),DATES=$P(TMP,";",3) Q:(DATES="") D UPDATE Q:$G(ERR)
D BMES^XPDUTL("")
Q
;
UPDATE ; file update - closeout dates.
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)
I TMP<0 S ERR=1 D BMES^XPDUTL("*** ERROR IN UPDATING FILE. CALL CUSTOMER SUPPORT")
Q
;
HDR(HDR) ; header for closeout dates
D BMES^XPDUTL(HDR)
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("Occurred In","",5)
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)
Q
FY97 ;Close-out dates for fiscal year 1997
; Month ^ Database Close-Out ^ Workload Close-Out
;;2961000^2971017^2970331
;;2961100^2971017^2970331
;;2961200^2971017^2970331
;;2970100^2971017^2970331
;;2970200^2971017^2970331
;;2970300^2971017^2970430
;;2970400^2971017^2970531
;;2970500^2971017^2970630
;;2970600^2971017^2970731
;;2970700^2971017^2970831
;;2970800^2971017^2970930
;;2970900^2971017^2971017
;
FY98 ;Close-out dates for fiscal year 1998
; Month ^ Database Close-Out ^ Workload Close-Out
;;2971000^2980430^2971130
;;2971100^2980430^2971231
;;2971200^2980430^2980131
;;2980100^2980430^2980228
;;2980200^2980430^2980331
;;2980300^2980430^2980430
;;2980400^2981016^2980531
;;2980500^2981016^2980630
;;2980600^2981016^2980731
;;2980700^2981016^2980831
;;2980800^2981016^2980930
;;2980900^2981016^2981016
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53129P 2920 printed Apr 09, 2024@21:59:19 Page 2
SD53129P ;ALB/JRP/ABR - PATCH 129 POST-INIT;24-JUL-97
+1 ;;5.3;Scheduling;**129**;Aug 13, 1993
+2 ;
POST ;Main entry point of post-init
+1 ;
+2 ; Revise Database Closeout dates for FY1997 to 10/17/97 to allow
+3 ; missed surgery encounters to go in.
+4 ;
+5 ;Seed NPCD ENCOUNTER MONTH multiple (#404.9171) of the SCHEDULING
+6 ; PARAMETER file (#404.91) with close-out dates for fiscal year 1998
+7 ;
+8 ;Declare variables
+9 NEW LINE,DATES,WLMONTH,DBCLOSE,WLCLOSE,TMP,ERR
+10 ; revise FY97
DO FY97REV
+11 ; add FY98
DO FY98UPD
+12 QUIT
+13 ;
FY97REV ; revise FY97
+1 DO HDR(">>> Storing REVISED close-out dates for Fiscal Year 1997")
+2 ;Loop through list of dates
+3 FOR LINE=2:1:13
SET TMP=$TEXT(FY97+LINE)
SET DATES=$PIECE(TMP,";",3)
if (DATES="")
QUIT
DO UPDATE
if $GET(ERR)
QUIT
+4 DO BMES^XPDUTL("")
+5 QUIT
+6 ;
FY98UPD ; add FY98
+1 DO HDR(">>> Storing close-out dates for Fiscal Year 1998")
+2 ;Loop through list of dates
+3 FOR LINE=2:1:13
SET TMP=$TEXT(FY98+LINE)
SET DATES=$PIECE(TMP,";",3)
if (DATES="")
QUIT
DO UPDATE
if $GET(ERR)
QUIT
+4 DO BMES^XPDUTL("")
+5 QUIT
+6 ;
UPDATE ; file update - closeout dates.
+1 SET WLMONTH=$PIECE(DATES,"^",1)
+2 SET DBCLOSE=$PIECE(DATES,"^",2)
+3 SET WLCLOSE=$PIECE(DATES,"^",3)
+4 ;Print close-out info
+5 SET TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLMONTH,"1D"),"",7)
+6 SET TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(DBCLOSE,"1D"),TMP,25)
+7 SET TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLCLOSE,"1D"),TMP,45)
+8 DO MES^XPDUTL(TMP)
+9 ;Store close-out info
+10 SET TMP=$$AECLOSE^SCDXFU04(WLMONTH,DBCLOSE,WLCLOSE)
+11 IF TMP<0
SET ERR=1
DO BMES^XPDUTL("*** ERROR IN UPDATING FILE. CALL CUSTOMER SUPPORT")
+12 QUIT
+13 ;
HDR(HDR) ; header for closeout dates
+1 DO BMES^XPDUTL(HDR)
+2 SET TMP=$$INSERT^SCDXUTL1("Workload","",7)
+3 SET TMP=$$INSERT^SCDXUTL1("Database",TMP,27)
+4 SET TMP=$$INSERT^SCDXUTL1("Workload",TMP,47)
+5 DO BMES^XPDUTL(TMP)
+6 SET TMP=$$INSERT^SCDXUTL1("Occurred In","",5)
+7 SET TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,27)
+8 SET TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,47)
+9 DO MES^XPDUTL(TMP)
+10 SET TMP=$$INSERT^SCDXUTL1("------------","",5)
+11 SET TMP=$$INSERT^SCDXUTL1("------------",TMP,25)
+12 SET TMP=$$INSERT^SCDXUTL1("------------",TMP,45)
+13 DO MES^XPDUTL(TMP)
+14 QUIT
FY97 ;Close-out dates for fiscal year 1997
+1 ; Month ^ Database Close-Out ^ Workload Close-Out
+2 ;;2961000^2971017^2970331
+3 ;;2961100^2971017^2970331
+4 ;;2961200^2971017^2970331
+5 ;;2970100^2971017^2970331
+6 ;;2970200^2971017^2970331
+7 ;;2970300^2971017^2970430
+8 ;;2970400^2971017^2970531
+9 ;;2970500^2971017^2970630
+10 ;;2970600^2971017^2970731
+11 ;;2970700^2971017^2970831
+12 ;;2970800^2971017^2970930
+13 ;;2970900^2971017^2971017
+14 ;
FY98 ;Close-out dates for fiscal year 1998
+1 ; Month ^ Database Close-Out ^ Workload Close-Out
+2 ;;2971000^2980430^2971130
+3 ;;2971100^2980430^2971231
+4 ;;2971200^2980430^2980131
+5 ;;2980100^2980430^2980228
+6 ;;2980200^2980430^2980331
+7 ;;2980300^2980430^2980430
+8 ;;2980400^2981016^2980531
+9 ;;2980500^2981016^2980630
+10 ;;2980600^2981016^2980731
+11 ;;2980700^2981016^2980831
+12 ;;2980800^2981016^2980930
+13 ;;2980900^2981016^2981016
+14 ;
