SD53248P.m

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 ---SD53248P   3118     printed  Feb 19, 2025@00:11:34                                                                                                                                                                                                    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