SD53229P.m

SD53229P ;ALB-CIOFO/MRY - POST INSTALL SD*5.3*229 ; 20 Sep 99  09:00 AM

 ;;5.3;Scheduling;**229**;Aug 13 1993

 ;

SEED ;Seed NPCD ENCOUNTER MONTH multiple (#404.9171) of the SCHEDULING

 ; PARAMETER file (#404.91) with workload close-out dates for FY2001

 ;

 ;Declare variables

 N XPDIDTOT,LINE,DATES,WLMONTH,DBCLOSE,WLCLOSE,TMP

 ;Print header

 D BMES^XPDUTL(">>> Storing close-out dates for Fiscal Year 2001")

 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=12

 F LINE=2:1:13 S TMP=$T(FY01+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

 ;

FY01 ;Revised Close-out dates for fiscal year 2001

 ;  Month ^ Database Close-Out ^ Workload Close-Out

 ;;3001000^3011012^3001110

 ;;3001100^3011012^3001208

 ;;3001200^3011012^3010112

 ;;3010100^3011012^3010209

 ;;3010200^3011012^3010309

 ;;3010300^3011012^3010406

 ;;3010400^3011012^3010511

 ;;3010500^3011012^3010608

 ;;3010600^3011012^3010706

 ;;3010700^3011012^3010810

 ;;3010800^3011012^3010907

 ;;3010900^3011012^3011012

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SD53229P   2153     printed  Apr 09, 2024@21:54:28                                                                                                                                                                                                    Page 2

SD53229P  ;ALB-CIOFO/MRY - POST INSTALL SD*5.3*229 ; 20 Sep 99  09:00 AM

 +1       ;;5.3;Scheduling;**229**;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 FY2001

 +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 Year 2001")

 +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=12

 +21       FOR LINE=2:1:13

               SET TMP=$TEXT(FY01+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      ;

FY01      ;Revised Close-out dates for fiscal year 2001

 +1       ;  Month ^ Database Close-Out ^ Workload Close-Out

 +2       ;;3001000^3011012^3001110

 +3       ;;3001100^3011012^3001208

 +4       ;;3001200^3011012^3010112

 +5       ;;3010100^3011012^3010209

 +6       ;;3010200^3011012^3010309

 +7       ;;3010300^3011012^3010406

 +8       ;;3010400^3011012^3010511

 +9       ;;3010500^3011012^3010608

 +10      ;;3010600^3011012^3010706

 +11      ;;3010700^3011012^3010810

 +12      ;;3010800^3011012^3010907

 +13      ;;3010900^3011012^3011012

 +14      ;

 +15       QUIT