- PRC5B ;WISC/PLT-IFCAP post install routine defined in package file ; 03/14/95 11:45 AM
- V ;;5.0;IFCAP;**27**;4/21/95
- ;
- ;invoke by the post initial installation field of package file.
- EN ;called from routine prcinit
- D EN^DDIOL("IFCAP POST-INITIALIZATION STARTS at "_$$NOW^PRC5A)
- D:PRCIVER<5
- . D ^PRCOSRV8 ;update 423.5, .01 field with 'FMS-'
- . D ALD^PRC5B1 ;move name to ald field for file 420.3
- . D CC^PRC5B3 ;deactivate subcost centers
- D EN^DDIOL("IFCAP POST-INITIALIZATION ENDS at "_$$NOW^PRC5A)
- QUIT
- ;
- EN2 ;called from ifcap v5 installation 'PRC5PKG' option '2'
- D EN^DDIOL("IFCAP V5 INSTALLATION 'Option 2' STARTS at "_$$NOW^PRC5A)
- D:PRCIVER<5
- . D FND^PRC5B1 ;convert fms FND document (add fund code in file 420.3)
- . D PCL^PRC5B1 ;convert fms PCL document (set-up program dic)
- . D PAC^PRC5B1 ;convert fms ACC document (set-up fcp/prj dic)
- D:PRCIVER<5&PRCIVER
- . D CPF^PRC5B1 ;convert fms CPF document
- . D EN2^PRC5B6 ;converting posted current qtr IB txn in file 410
- . N L,DIC,FLDS,BY,FR,TO,DHD
- . D EN^DDIOL("Print FCP ACCOUNTING ELEMENTS LIST")
- . S L=0,DIC=420,FLDS="[PRCB CPF ACC ELEMENT]" D EN1^DIP
- . D EN^DDIOL("Ask Fiscal Service to check the FCP ACCOUNTING ELEMENTS LIST for each Fund Control Point with the Cross-walk Table.")
- .D EN^DDIOL("Your Accounting Elements should match your Cross-walk Table.")
- . D EN^DDIOL("Note: You can not run Option 3 or 4 if your site has an active SUPPLY FUND Control Point but the FCP Accounting Elements are missing or incorrect.")
- . D EN^DDIOL("You also can not run Option 3 or 4 if you have an active GPF Control Point and your FCP Accounting Elements List does not show a 'GPF FMS CONVERSION' Fund Control Point.")
- . I $$SPFCP^PRC5B7]"" QUIT
- . QUIT
- S PRCRI(420.92)=$O(^PRCU(420.92,"B",PRCFIXV,"")) D:PRCRI(420.92)
- . D EDIT^PRC0B(.X,"420.92;^PRCU(420.92,;"_PRCRI(420.92),"2.7///^S X=""N""","LS")
- D EN^DDIOL("IFCAP V5 INSTALLATION 'Option 2' ENDS at "_$$NOW^PRC5A)
- QUIT
- ;
- EN3 ;called from ifcap v5 installation 'PRC5PKG' option '3'
- I $$SPFCP^PRC5B7]"" QUIT
- D EN^DDIOL("IFCAP V5 INSTALLATION 'Option 3' STARTS at "_$$NOW^PRC5A)
- S PRCRI(420.92)=$O(^PRCU(420.92,"B",PRCFIXV,"")) D:PRCRI(420.92)
- . D EDIT^PRC0B(.X,"420.92;^PRCU(420.92,;"_PRCRI(420.92),"2///^S X=""N"";2.5///^S X=""@""","LS")
- . QUIT
- D ^PRCFOOR1 ;recalculate all FCP and snap shot fcp balance
- D FCPFY^PRC5B7 ;delete all fcp fiscal yearly account elements
- D CEIL96^PRC5B7 ;reset 1-4 qtr code sheet generated flags in file 421
- S PRCRI(420.92)=$O(^PRCU(420.92,"B",PRCFIXV,"")) D:PRCRI(420.92)
- . D EDIT^PRC0B(.X,"420.92;^PRCU(420.92,;"_PRCRI(420.92),"2.5///^S X=""N""","LS")
- . QUIT
- D
- . N L,DIC,FLDS,BY,FR,TO,DHD
- . D EN^DDIOL("Print SNAP SHOT FCP BALANCE")
- . S L=0,DIC=420.99,FLDS=".01,1;""DATE"",2.5;""QTR"",2;""FCP BAL"",9" D EN1^DIP
- . QUIT
- D EN^DDIOL("IFCAP V5 INSTALLATION 'Option 3' ENDS at "_$$NOW^PRC5A)
- QUIT
- EN4 ;FILLE 442 conversion called from PRC5PKG option 4
- I $$SPFCP^PRC5B7]"" QUIT
- D EN^DDIOL("IFCAP V5 INSTALLATION 'Option 4' STARTS at "_$$NOW^PRC5A)
- D START^PRC5B7("ALL")
- D EN442
- D EN^DDIOL("IFCAP V5 INSTALLATION 'Option 4' ENDS at "_$$NOW^PRC5A)
- D EN^DDIOL("This is the last installation option you just finished.")
- I PRCQ21=1 D EN^DDIOL("Check file 442 conversion task is running.")
- QUIT
- ;
- I PRCQ21=1 D QUIT
- EN442 N PRCDUZ
- S PRCDUZ=DUZ
- I PRCQ21=1 D QUIT
- . D EN^DDIOL("IFCAP V5 FILE 442 CONVERSION SUBMITTED TO TASK MANAGER AT "_$$NOW^PRC5A)
- . S A=$$TASK^PRC0B2("LOOP^PRCHPRCV~IFCAP V5 FILE 442 CONVERSION","PRCDUZ","")
- . D EN^DDIOL("IFCAP V5 FILE 442 CONVERSION HAS TASK NUMBER "_$P(A,"^"))
- . QUIT
- D LOOP^PRCHPRCV
- QUIT
- ;
- MM442 ;send conversion done message
- N A,B,X,Y
- S (A,B)=0 F S B=$O(^GECS(2100.1,B)) QUIT:'B S A=A+1
- S X(1)="IFCAP V5 file 442 conversion done. Total FMS documents = "_A
- S Y(.5)="",Y(PRCDUZ)="",Y("G.CSFISMGMT@DOMAIN.EXT")=""
- D MM^PRC0B2("IFCAP V5 FILE 442 CONVERSION DONE^IFCAP V5 Installer","X(",.Y)
- K PRCDUZ
- QUIT
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRC5B 4016 printed Dec 13, 2024@01:59:48 Page 2
- PRC5B ;WISC/PLT-IFCAP post install routine defined in package file ; 03/14/95 11:45 AM
- V ;;5.0;IFCAP;**27**;4/21/95
- +1 ;
- +2 ;invoke by the post initial installation field of package file.
- EN ;called from routine prcinit
- +1 DO EN^DDIOL("IFCAP POST-INITIALIZATION STARTS at "_$$NOW^PRC5A)
- +2 if PRCIVER<5
- Begin DoDot:1
- +3 ;update 423.5, .01 field with 'FMS-'
- DO ^PRCOSRV8
- +4 ;move name to ald field for file 420.3
- DO ALD^PRC5B1
- +5 ;deactivate subcost centers
- DO CC^PRC5B3
- End DoDot:1
- +6 DO EN^DDIOL("IFCAP POST-INITIALIZATION ENDS at "_$$NOW^PRC5A)
- +7 QUIT
- +8 ;
- EN2 ;called from ifcap v5 installation 'PRC5PKG' option '2'
- +1 DO EN^DDIOL("IFCAP V5 INSTALLATION 'Option 2' STARTS at "_$$NOW^PRC5A)
- +2 if PRCIVER<5
- Begin DoDot:1
- +3 ;convert fms FND document (add fund code in file 420.3)
- DO FND^PRC5B1
- +4 ;convert fms PCL document (set-up program dic)
- DO PCL^PRC5B1
- +5 ;convert fms ACC document (set-up fcp/prj dic)
- DO PAC^PRC5B1
- End DoDot:1
- +6 if PRCIVER<5&PRCIVER
- Begin DoDot:1
- +7 ;convert fms CPF document
- DO CPF^PRC5B1
- +8 ;converting posted current qtr IB txn in file 410
- DO EN2^PRC5B6
- +9 NEW L,DIC,FLDS,BY,FR,TO,DHD
- +10 DO EN^DDIOL("Print FCP ACCOUNTING ELEMENTS LIST")
- +11 SET L=0
- SET DIC=420
- SET FLDS="[PRCB CPF ACC ELEMENT]"
- DO EN1^DIP
- +12 DO EN^DDIOL("Ask Fiscal Service to check the FCP ACCOUNTING ELEMENTS LIST for each Fund Control Point with the Cross-walk Table.")
- +13 DO EN^DDIOL("Your Accounting Elements should match your Cross-walk Table.")
- +14 DO EN^DDIOL("Note: You can not run Option 3 or 4 if your site has an active SUPPLY FUND Control Point but the FCP Accounting Elements are missing or incorrect.")
- +15 DO EN^DDIOL("You also can not run Option 3 or 4 if you have an active GPF Control Point and your FCP Accounting Elements List does not show a 'GPF FMS CONVERSION' Fund Control Point.")
- +16 IF $$SPFCP^PRC5B7]""
- QUIT
- +17 QUIT
- End DoDot:1
- +18 SET PRCRI(420.92)=$ORDER(^PRCU(420.92,"B",PRCFIXV,""))
- if PRCRI(420.92)
- Begin DoDot:1
- +19 DO EDIT^PRC0B(.X,"420.92;^PRCU(420.92,;"_PRCRI(420.92),"2.7///^S X=""N""","LS")
- End DoDot:1
- +20 DO EN^DDIOL("IFCAP V5 INSTALLATION 'Option 2' ENDS at "_$$NOW^PRC5A)
- +21 QUIT
- +22 ;
- EN3 ;called from ifcap v5 installation 'PRC5PKG' option '3'
- +1 IF $$SPFCP^PRC5B7]""
- QUIT
- +2 DO EN^DDIOL("IFCAP V5 INSTALLATION 'Option 3' STARTS at "_$$NOW^PRC5A)
- +3 SET PRCRI(420.92)=$ORDER(^PRCU(420.92,"B",PRCFIXV,""))
- if PRCRI(420.92)
- Begin DoDot:1
- +4 DO EDIT^PRC0B(.X,"420.92;^PRCU(420.92,;"_PRCRI(420.92),"2///^S X=""N"";2.5///^S X=""@""","LS")
- +5 QUIT
- End DoDot:1
- +6 ;recalculate all FCP and snap shot fcp balance
- DO ^PRCFOOR1
- +7 ;delete all fcp fiscal yearly account elements
- DO FCPFY^PRC5B7
- +8 ;reset 1-4 qtr code sheet generated flags in file 421
- DO CEIL96^PRC5B7
- +9 SET PRCRI(420.92)=$ORDER(^PRCU(420.92,"B",PRCFIXV,""))
- if PRCRI(420.92)
- Begin DoDot:1
- +10 DO EDIT^PRC0B(.X,"420.92;^PRCU(420.92,;"_PRCRI(420.92),"2.5///^S X=""N""","LS")
- +11 QUIT
- End DoDot:1
- +12 Begin DoDot:1
- +13 NEW L,DIC,FLDS,BY,FR,TO,DHD
- +14 DO EN^DDIOL("Print SNAP SHOT FCP BALANCE")
- +15 SET L=0
- SET DIC=420.99
- SET FLDS=".01,1;""DATE"",2.5;""QTR"",2;""FCP BAL"",9"
- DO EN1^DIP
- +16 QUIT
- End DoDot:1
- +17 DO EN^DDIOL("IFCAP V5 INSTALLATION 'Option 3' ENDS at "_$$NOW^PRC5A)
- +18 QUIT
- EN4 ;FILLE 442 conversion called from PRC5PKG option 4
- +1 IF $$SPFCP^PRC5B7]""
- QUIT
- +2 DO EN^DDIOL("IFCAP V5 INSTALLATION 'Option 4' STARTS at "_$$NOW^PRC5A)
- +3 DO START^PRC5B7("ALL")
- +4 DO EN442
- +5 DO EN^DDIOL("IFCAP V5 INSTALLATION 'Option 4' ENDS at "_$$NOW^PRC5A)
- +6 DO EN^DDIOL("This is the last installation option you just finished.")
- +7 IF PRCQ21=1
- DO EN^DDIOL("Check file 442 conversion task is running.")
- +8 QUIT
- +9 ;
- +10 IF PRCQ21=1
- Begin DoDot:1
- End DoDot:1
- QUIT
- EN442 NEW PRCDUZ
- +1 SET PRCDUZ=DUZ
- +2 IF PRCQ21=1
- Begin DoDot:1
- +3 DO EN^DDIOL("IFCAP V5 FILE 442 CONVERSION SUBMITTED TO TASK MANAGER AT "_$$NOW^PRC5A)
- +4 SET A=$$TASK^PRC0B2("LOOP^PRCHPRCV~IFCAP V5 FILE 442 CONVERSION","PRCDUZ","")
- +5 DO EN^DDIOL("IFCAP V5 FILE 442 CONVERSION HAS TASK NUMBER "_$PIECE(A,"^"))
- +6 QUIT
- End DoDot:1
- QUIT
- +7 DO LOOP^PRCHPRCV
- +8 QUIT
- +9 ;
- MM442 ;send conversion done message
- +1 NEW A,B,X,Y
- +2 SET (A,B)=0
- FOR
- SET B=$ORDER(^GECS(2100.1,B))
- if 'B
- QUIT
- SET A=A+1
- +3 SET X(1)="IFCAP V5 file 442 conversion done. Total FMS documents = "_A
- +4 SET Y(.5)=""
- SET Y(PRCDUZ)=""
- SET Y("G.CSFISMGMT@DOMAIN.EXT")=""
- +5 DO MM^PRC0B2("IFCAP V5 FILE 442 CONVERSION DONE^IFCAP V5 Installer","X(",.Y)
- +6 KILL PRCDUZ
- +7 QUIT