source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCUFCE.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1PRCUFCE ;WISC/SJG-CONTINUATION OF OBLIGATION PROCESSING ;7/21/93 13:51
2V ;;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
6EDIT ; 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 ;
12STACK(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
Note: See TracBrowser for help on using the repository browser.