SD53136P.m

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 ---SD53136P   2056     printed  Apr 09, 2024@21:54:56                                                                                                                                                                                                    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      ;