PRCUFCE ;WISC/SJG-CONTINUATION OF OBLIGATION PROCESSING ;7/21/93 13:51
V ;;5.1;IFCAP;;Oct 20, 2000
;Per VHA Directive 10-93-142, this routine should not be modified.
QUIT
; No top level entry point
EDIT ; Perform edit check for required FMS fields
S PARAM1="^"_PRC("SITE")_"^"_+$P(PO(0),U,3)_"^"_PRC("FY")_"^"_PRCFA("BBFY")
D DOCREQ^PRC0C(PARAM1,"SPE","PRCFMO")
S PRCFMO("G/N")=$P(PRCFMO,U,12)
QUIT
;
STACK(MOD) ; Create entry in GECS Stack File
N FMSSYS,FMSSTA,FMSDOC,FMSTRA,FMSSEC,FMSMOD,FMSFCP,FMSDES
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)
I $D(PRCFA("CONVG")),PRCFA("CONVG")=1 S PRCCP=PRC("CP")_"^"_PRC("FY")_"^"_PRCFA("BBFY")
S PRCSTR=$$ACC^PRC0C(PRCSTA,PRCCP)
S FMSSYS="I",FMSSTA=PRCSTA,FMSDOC=PRCFA("REF"),FMSTRA=PRCFA("TT")
S FMSSEC=$$SEC1^PRC0C(PRC("SITE")),FMSMOD=MOD,FMSDES=PRCFA("IDES")
;S FMSFCP=$$FMSFCP^PRCFFU5(PRCREQST,PRCFA("SFC"),PRCFA("MP"))
I $D(PRCFA("RETRAN")),PRCFA("RETRAN")=1 Q
D CONTROL^GECSUFMS(FMSSYS,FMSSTA,FMSDOC,FMSTRA,FMSSEC,FMSMOD,"Y",FMSDES)
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCUFCE 1102 printed Oct 16, 2024@18:20:27 Page 2
PRCUFCE ;WISC/SJG-CONTINUATION OF OBLIGATION PROCESSING ;7/21/93 13:51
V ;;5.1;IFCAP;;Oct 20, 2000
+1 ;Per VHA Directive 10-93-142, this routine should not be modified.
+2 QUIT
+3 ; No top level entry point
EDIT ; Perform edit check for required FMS fields
+1 SET PARAM1="^"_PRC("SITE")_"^"_+$PIECE(PO(0),U,3)_"^"_PRC("FY")_"^"_PRCFA("BBFY")
+2 DO DOCREQ^PRC0C(PARAM1,"SPE","PRCFMO")
+3 SET PRCFMO("G/N")=$PIECE(PRCFMO,U,12)
+4 QUIT
+5 ;
STACK(MOD) ; Create entry in GECS Stack File
+1 NEW FMSSYS,FMSSTA,FMSDOC,FMSTRA,FMSSEC,FMSMOD,FMSFCP,FMSDES
+2 SET PRCSTA=PRC("SITE")
SET PRCCC=+$PIECE(PO(0),U,5)
SET PRCCP=+$PIECE(PO(0),U,3)_"^"_PRC("FY")_"^"_PRCFA("BBFY")
SET PRCREQST=$PIECE(PO(0),U,12)
+3 IF $DATA(PRCFA("CONVG"))
IF PRCFA("CONVG")=1
SET PRCCP=PRC("CP")_"^"_PRC("FY")_"^"_PRCFA("BBFY")
+4 SET PRCSTR=$$ACC^PRC0C(PRCSTA,PRCCP)
+5 SET FMSSYS="I"
SET FMSSTA=PRCSTA
SET FMSDOC=PRCFA("REF")
SET FMSTRA=PRCFA("TT")
+6 SET FMSSEC=$$SEC1^PRC0C(PRC("SITE"))
SET FMSMOD=MOD
SET FMSDES=PRCFA("IDES")
+7 ;S FMSFCP=$$FMSFCP^PRCFFU5(PRCREQST,PRCFA("SFC"),PRCFA("MP"))
+8 IF $DATA(PRCFA("RETRAN"))
IF PRCFA("RETRAN")=1
QUIT
+9 DO CONTROL^GECSUFMS(FMSSYS,FMSSTA,FMSDOC,FMSTRA,FMSSEC,FMSMOD,"Y",FMSDES)
+10 QUIT
