Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRC5B

PRC5B.m

Go to the documentation of this file.
  1. PRC5B ;WISC/PLT-IFCAP post install routine defined in package file ; 03/14/95 11:45 AM
  1. V ;;5.0;IFCAP;**27**;4/21/95
  1. ;
  1. ;invoke by the post initial installation field of package file.
  1. EN ;called from routine prcinit
  1. D EN^DDIOL("IFCAP POST-INITIALIZATION STARTS at "_$$NOW^PRC5A)
  1. D:PRCIVER<5
  1. . D ^PRCOSRV8 ;update 423.5, .01 field with 'FMS-'
  1. . D ALD^PRC5B1 ;move name to ald field for file 420.3
  1. . D CC^PRC5B3 ;deactivate subcost centers
  1. D EN^DDIOL("IFCAP POST-INITIALIZATION ENDS at "_$$NOW^PRC5A)
  1. QUIT
  1. ;
  1. EN2 ;called from ifcap v5 installation 'PRC5PKG' option '2'
  1. D EN^DDIOL("IFCAP V5 INSTALLATION 'Option 2' STARTS at "_$$NOW^PRC5A)
  1. D:PRCIVER<5
  1. . D FND^PRC5B1 ;convert fms FND document (add fund code in file 420.3)
  1. . D PCL^PRC5B1 ;convert fms PCL document (set-up program dic)
  1. . D PAC^PRC5B1 ;convert fms ACC document (set-up fcp/prj dic)
  1. D:PRCIVER<5&PRCIVER
  1. . D CPF^PRC5B1 ;convert fms CPF document
  1. . D EN2^PRC5B6 ;converting posted current qtr IB txn in file 410
  1. . N L,DIC,FLDS,BY,FR,TO,DHD
  1. . D EN^DDIOL("Print FCP ACCOUNTING ELEMENTS LIST")
  1. . S L=0,DIC=420,FLDS="[PRCB CPF ACC ELEMENT]" D EN1^DIP
  1. . D EN^DDIOL("Ask Fiscal Service to check the FCP ACCOUNTING ELEMENTS LIST for each Fund Control Point with the Cross-walk Table.")
  1. .D EN^DDIOL("Your Accounting Elements should match your Cross-walk Table.")
  1. . 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.")
  1. . 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.")
  1. . I $$SPFCP^PRC5B7]"" QUIT
  1. . QUIT
  1. S PRCRI(420.92)=$O(^PRCU(420.92,"B",PRCFIXV,"")) D:PRCRI(420.92)
  1. . D EDIT^PRC0B(.X,"420.92;^PRCU(420.92,;"_PRCRI(420.92),"2.7///^S X=""N""","LS")
  1. D EN^DDIOL("IFCAP V5 INSTALLATION 'Option 2' ENDS at "_$$NOW^PRC5A)
  1. QUIT
  1. ;
  1. EN3 ;called from ifcap v5 installation 'PRC5PKG' option '3'
  1. I $$SPFCP^PRC5B7]"" QUIT
  1. D EN^DDIOL("IFCAP V5 INSTALLATION 'Option 3' STARTS at "_$$NOW^PRC5A)
  1. S PRCRI(420.92)=$O(^PRCU(420.92,"B",PRCFIXV,"")) D:PRCRI(420.92)
  1. . D EDIT^PRC0B(.X,"420.92;^PRCU(420.92,;"_PRCRI(420.92),"2///^S X=""N"";2.5///^S X=""@""","LS")
  1. . QUIT
  1. D ^PRCFOOR1 ;recalculate all FCP and snap shot fcp balance
  1. D FCPFY^PRC5B7 ;delete all fcp fiscal yearly account elements
  1. D CEIL96^PRC5B7 ;reset 1-4 qtr code sheet generated flags in file 421
  1. S PRCRI(420.92)=$O(^PRCU(420.92,"B",PRCFIXV,"")) D:PRCRI(420.92)
  1. . D EDIT^PRC0B(.X,"420.92;^PRCU(420.92,;"_PRCRI(420.92),"2.5///^S X=""N""","LS")
  1. . QUIT
  1. D
  1. . N L,DIC,FLDS,BY,FR,TO,DHD
  1. . D EN^DDIOL("Print SNAP SHOT FCP BALANCE")
  1. . S L=0,DIC=420.99,FLDS=".01,1;""DATE"",2.5;""QTR"",2;""FCP BAL"",9" D EN1^DIP
  1. . QUIT
  1. D EN^DDIOL("IFCAP V5 INSTALLATION 'Option 3' ENDS at "_$$NOW^PRC5A)
  1. QUIT
  1. EN4 ;FILLE 442 conversion called from PRC5PKG option 4
  1. I $$SPFCP^PRC5B7]"" QUIT
  1. D EN^DDIOL("IFCAP V5 INSTALLATION 'Option 4' STARTS at "_$$NOW^PRC5A)
  1. D START^PRC5B7("ALL")
  1. D EN442
  1. D EN^DDIOL("IFCAP V5 INSTALLATION 'Option 4' ENDS at "_$$NOW^PRC5A)
  1. D EN^DDIOL("This is the last installation option you just finished.")
  1. I PRCQ21=1 D EN^DDIOL("Check file 442 conversion task is running.")
  1. QUIT
  1. ;
  1. I PRCQ21=1 D QUIT
  1. EN442 N PRCDUZ
  1. S PRCDUZ=DUZ
  1. I PRCQ21=1 D QUIT
  1. . D EN^DDIOL("IFCAP V5 FILE 442 CONVERSION SUBMITTED TO TASK MANAGER AT "_$$NOW^PRC5A)
  1. . S A=$$TASK^PRC0B2("LOOP^PRCHPRCV~IFCAP V5 FILE 442 CONVERSION","PRCDUZ","")
  1. . D EN^DDIOL("IFCAP V5 FILE 442 CONVERSION HAS TASK NUMBER "_$P(A,"^"))
  1. . QUIT
  1. D LOOP^PRCHPRCV
  1. QUIT
  1. ;
  1. MM442 ;send conversion done message
  1. N A,B,X,Y
  1. S (A,B)=0 F S B=$O(^GECS(2100.1,B)) QUIT:'B S A=A+1
  1. S X(1)="IFCAP V5 file 442 conversion done. Total FMS documents = "_A
  1. S Y(.5)="",Y(PRCDUZ)="",Y("G.CSFISMGMT@DOMAIN.EXT")=""
  1. D MM^PRC0B2("IFCAP V5 FILE 442 CONVERSION DONE^IFCAP V5 Installer","X(",.Y)
  1. K PRCDUZ
  1. QUIT