| 1 | PRCUFC2 ;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 = 2
|
|---|
| 8 | SUPPO ; Entry point for Original Entry Supply Fund Conversion Documents
|
|---|
| 9 | S PRCFA("MOD")="E^0^Original Entry"
|
|---|
| 10 | S PRCFA("IDES")="Supply Fund Conversion Original Entry"
|
|---|
| 11 | D DET^PRCUFCU1,RECD^PRCUFCU1,CALC^PRCUFCU1,SUPP
|
|---|
| 12 | Q
|
|---|
| 13 | SUPPM ; Entry point for Modification Entry Supply Fund Conversion Documents
|
|---|
| 14 | S PRCFA("MOD")="M^1^Modification Entry"
|
|---|
| 15 | S PRCFA("IDES")="Supply Fund Conversion Modification Entry"
|
|---|
| 16 | D DET^PRCUFCU1,RECD^PRCUFCU1,CALC^PRCUFCU1
|
|---|
| 17 | I PRCFCHG("BOC","TOT")=0 S FATAL=1 Q
|
|---|
| 18 | F PRCFA="VEND","FOB","DEL","DELSCH","PPT" S PRCFA(PRCFA)=1
|
|---|
| 19 | D SUPP
|
|---|
| 20 | Q
|
|---|
| 21 | SUPP ; Processing common for all Supply Fund documents
|
|---|
| 22 | F PRCFA="VEND","FOB","DEL","DELSCH","PPT" S PRCFA(PRCFA)=1
|
|---|
| 23 | S PO(0)=ND(0),PO=LOOP,PRCFA("PODA")=+LOOP
|
|---|
| 24 | S PRCFA("BBFY")=$$BBFY^PRCFFU5(PO)
|
|---|
| 25 | S IDFLAG="I"
|
|---|
| 26 | S PARAM1="^"_PRC("SITE")_"^"_PRC("CP")_"^"_PRC("FY")_"^"_PRCFA("BBFY")
|
|---|
| 27 | SUPP1 D DOCREQ^PRC0C(PARAM1,"SPE","PRCFMO")
|
|---|
| 28 | S PRCFMO("G/N")=$P(PRCFMO,U,12)
|
|---|
| 29 | S PRCFA("REF")=$P(PO(0),U),PRCFA("SYS")="FMS"
|
|---|
| 30 | S PRCFA("SFC")=$P(PO(0),U,19),PRCFA("MP")=$P(PO(0),U,2)
|
|---|
| 31 | S PRCFA("TT")=$S(PRCFA("MP")=2:"SO",PRCFA("MP")=1:"MO",PRCFA("MP")=8:"MO",1:"MO")
|
|---|
| 32 | SUPP2 D NOW^%DTC S PRCFA("OBLDATE")=X
|
|---|
| 33 | S MOD=$P(PRCFA("MOD"),U,2) D STACK^PRCUFCE(MOD)
|
|---|
| 34 | K ^TMP($J,"PRCMO")
|
|---|
| 35 | N FMSINT S FMSINT=+PO,FMSMOD=$P(PRCFA("MOD"),U,1)
|
|---|
| 36 | D NEW^PRCUFCA(FMSINT,PRCFA("TT"),FMSMOD)
|
|---|
| 37 | N LOOP S LOOP=0 F S LOOP=$O(^TMP($J,"PRCMO",GECSFMS("DA"),LOOP)) Q:'LOOP D SETCS^GECSSTAA(GECSFMS("DA"),^(LOOP))
|
|---|
| 38 | K ^TMP($J,"PRCMO")
|
|---|
| 39 | SUPP3 D SETSTAT^GECSSTAA(GECSFMS("DA"),"Q")
|
|---|
| 40 | ;I '$D(POESIG) I $D(PRCFA("PODA")),+PRCFA("PODA")>0 S POESIG=1
|
|---|
| 41 | D SETPARAM^GECSSDCT(GECSFMS("DA"),+PO)
|
|---|
| 42 | N FMSDOCT S FMSDOCT=$P(PRCFA("REF"),"-",2) D EN7^PRCFFU41(PRCFA("TT"),FMSMOD,PRCFA("OBLDATE"),FMSDOCT)
|
|---|
| 43 | QUIT
|
|---|
