| 1 | PRCUFCE ;WISC/SJG-CONTINUATION OF OBLIGATION PROCESSING ;7/21/93 13:51
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | QUIT
|
|---|
| 5 | ; No top level entry point
|
|---|
| 6 | EDIT ; Perform edit check for required FMS fields
|
|---|
| 7 | S PARAM1="^"_PRC("SITE")_"^"_+$P(PO(0),U,3)_"^"_PRC("FY")_"^"_PRCFA("BBFY")
|
|---|
| 8 | D DOCREQ^PRC0C(PARAM1,"SPE","PRCFMO")
|
|---|
| 9 | S PRCFMO("G/N")=$P(PRCFMO,U,12)
|
|---|
| 10 | QUIT
|
|---|
| 11 | ;
|
|---|
| 12 | STACK(MOD) ; Create entry in GECS Stack File
|
|---|
| 13 | N FMSSYS,FMSSTA,FMSDOC,FMSTRA,FMSSEC,FMSMOD,FMSFCP,FMSDES
|
|---|
| 14 | S PRCSTA=PRC("SITE"),PRCCC=+$P(PO(0),U,5),PRCCP=+$P(PO(0),U,3)_"^"_PRC("FY")_"^"_PRCFA("BBFY"),PRCREQST=$P(PO(0),U,12)
|
|---|
| 15 | I $D(PRCFA("CONVG")),PRCFA("CONVG")=1 S PRCCP=PRC("CP")_"^"_PRC("FY")_"^"_PRCFA("BBFY")
|
|---|
| 16 | S PRCSTR=$$ACC^PRC0C(PRCSTA,PRCCP)
|
|---|
| 17 | S FMSSYS="I",FMSSTA=PRCSTA,FMSDOC=PRCFA("REF"),FMSTRA=PRCFA("TT")
|
|---|
| 18 | S FMSSEC=$$SEC1^PRC0C(PRC("SITE")),FMSMOD=MOD,FMSDES=PRCFA("IDES")
|
|---|
| 19 | ;S FMSFCP=$$FMSFCP^PRCFFU5(PRCREQST,PRCFA("SFC"),PRCFA("MP"))
|
|---|
| 20 | I $D(PRCFA("RETRAN")),PRCFA("RETRAN")=1 Q
|
|---|
| 21 | D CONTROL^GECSUFMS(FMSSYS,FMSSTA,FMSDOC,FMSTRA,FMSSEC,FMSMOD,"Y",FMSDES)
|
|---|
| 22 | QUIT
|
|---|
