| 1 | PRCUFC1 ;WISC/SJG-CONVERSION ROUTINE TO PROCESS OBLIGATIONS ;4/27/94 11:30
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | QUIT
|
|---|
| 6 | ; No top level entry
|
|---|
| 7 | ; Special Fund Control Point = 1
|
|---|
| 8 | GPFO ; Entry point for Original Entry General Post Fund Conversion Documents
|
|---|
| 9 | S PRCFA("MOD")="E^0^Original Entry"
|
|---|
| 10 | S PRCFA("IDES")="General Post Fund Conversion Original Entry"
|
|---|
| 11 | D FCP Q:FATAL
|
|---|
| 12 | D DET^PRCUFCU1,RECD^PRCUFCU1,CALC^PRCUFCU1
|
|---|
| 13 | D GPF
|
|---|
| 14 | Q
|
|---|
| 15 | GPFM ; Entry point for Modification Entry General Post Fund Conversion Documents
|
|---|
| 16 | S PRCFA("MOD")="M^1^Modification Entry"
|
|---|
| 17 | S PRCFA("IDES")="General Post Fund Conversion Modification Entry"
|
|---|
| 18 | D FCP Q:FATAL
|
|---|
| 19 | D DET^PRCUFCU1,RECD^PRCUFCU1,CALC^PRCUFCU1
|
|---|
| 20 | I PRCFCHG("BOC","TOT")=0 S FATAL=1 Q
|
|---|
| 21 | F PRCFA="VEND","FOB","DEL","DELSCH","PPT" S PRCFA(PRCFA)=1
|
|---|
| 22 | D GPF
|
|---|
| 23 | Q
|
|---|
| 24 | GPF ; Processing common for all General Post Fund documents
|
|---|
| 25 | S PO(0)=ND(0),PO=LOOP,PRCFA("PODA")=+LOOP
|
|---|
| 26 | S PRCFA("BBFY")=$$BBFY^PRCFFU5(PO)
|
|---|
| 27 | S IDFLAG="I"
|
|---|
| 28 | S PARAM1="^"_PRC("SITE")_"^"_PRC("CP")_"^"_PRC("FY")_"^"_PRCFA("BBFY")
|
|---|
| 29 | GPF1 D DOCREQ^PRC0C(PARAM1,"SPE","PRCFMO")
|
|---|
| 30 | S PRCFMO("G/N")=$P(PRCFMO,U,12)
|
|---|
| 31 | S PRCFA("REF")=$P(PO(0),U),PRCFA("SYS")="FMS"
|
|---|
| 32 | S PRCFA("SFC")=$P(PO(0),U,19),PRCFA("MP")=$P(PO(0),U,2)
|
|---|
| 33 | S PRCFA("TT")=$S(PRCFA("MP")=2:"SO",PRCFA("MP")=1:"MO",PRCFA("MP")=8:"MO",1:"MO")
|
|---|
| 34 | GPF2 D NOW^%DTC S PRCFA("OBLDATE")=X
|
|---|
| 35 | S MOD=$P(PRCFA("MOD"),U,2) D STACK^PRCUFCE(MOD)
|
|---|
| 36 | K ^TMP($J,"PRCMO")
|
|---|
| 37 | N FMSINT S FMSINT=+PO,FMSMOD=$P(PRCFA("MOD"),U,1)
|
|---|
| 38 | D NEW^PRCUFCA(FMSINT,PRCFA("TT"),FMSMOD)
|
|---|
| 39 | N LOOP S LOOP=0 F S LOOP=$O(^TMP($J,"PRCMO",GECSFMS("DA"),LOOP)) Q:'LOOP D SETCS^GECSSTAA(GECSFMS("DA"),^(LOOP))
|
|---|
| 40 | K ^TMP($J,"PRCMO")
|
|---|
| 41 | GPF3 D SETSTAT^GECSSTAA(GECSFMS("DA"),"Q")
|
|---|
| 42 | D SETPARAM^GECSSDCT(GECSFMS("DA"),+PO)
|
|---|
| 43 | N FMSDOCT S FMSDOCT=$P(PRCFA("REF"),"-",2) D EN7^PRCFFU41(PRCFA("TT"),FMSMOD,PRCFA("OBLDATE"),FMSDOCT)
|
|---|
| 44 | QUIT
|
|---|
| 45 | FCP ; Get 'dummy' GPF Fund Control Point accounting information
|
|---|
| 46 | N X
|
|---|
| 47 | S FATAL=0,X="GPFS FMS CONVERSION"
|
|---|
| 48 | S PRC("CP")=$O(^PRC(420,PRC("SITE"),1,"C",X,0))
|
|---|
| 49 | Q
|
|---|
