PRCUFCE.m

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 ---PRCUFCE   1102     printed  Mar 13, 2025@21:24:31                                                                                                                                                                                                     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