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 Apr 09, 2024@21:02:34 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
