source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCUFC1.m@ 975

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1PRCUFC1 ;WISC/SJG-CONVERSION ROUTINE TO PROCESS OBLIGATIONS ;4/27/94 11:30
2V ;;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 = 1
8GPFO ; Entry point for Original Entry General Post Fund Conversion Documents
9 S PRCFA("MOD")="E^0^Original Entry"
10 S PRCFA("IDES")="General Post Fund Conversion Original Entry"
11 D FCP Q:FATAL
12 D DET^PRCUFCU1,RECD^PRCUFCU1,CALC^PRCUFCU1
13 D GPF
14 Q
15GPFM ; Entry point for Modification Entry General Post Fund Conversion Documents
16 S PRCFA("MOD")="M^1^Modification Entry"
17 S PRCFA("IDES")="General Post Fund Conversion Modification Entry"
18 D FCP Q:FATAL
19 D DET^PRCUFCU1,RECD^PRCUFCU1,CALC^PRCUFCU1
20 I PRCFCHG("BOC","TOT")=0 S FATAL=1 Q
21 F PRCFA="VEND","FOB","DEL","DELSCH","PPT" S PRCFA(PRCFA)=1
22 D GPF
23 Q
24GPF ; Processing common for all General Post Fund documents
25 S PO(0)=ND(0),PO=LOOP,PRCFA("PODA")=+LOOP
26 S PRCFA("BBFY")=$$BBFY^PRCFFU5(PO)
27 S IDFLAG="I"
28 S PARAM1="^"_PRC("SITE")_"^"_PRC("CP")_"^"_PRC("FY")_"^"_PRCFA("BBFY")
29GPF1 D DOCREQ^PRC0C(PARAM1,"SPE","PRCFMO")
30 S PRCFMO("G/N")=$P(PRCFMO,U,12)
31 S PRCFA("REF")=$P(PO(0),U),PRCFA("SYS")="FMS"
32 S PRCFA("SFC")=$P(PO(0),U,19),PRCFA("MP")=$P(PO(0),U,2)
33 S PRCFA("TT")=$S(PRCFA("MP")=2:"SO",PRCFA("MP")=1:"MO",PRCFA("MP")=8:"MO",1:"MO")
34GPF2 D NOW^%DTC S PRCFA("OBLDATE")=X
35 S MOD=$P(PRCFA("MOD"),U,2) D STACK^PRCUFCE(MOD)
36 K ^TMP($J,"PRCMO")
37 N FMSINT S FMSINT=+PO,FMSMOD=$P(PRCFA("MOD"),U,1)
38 D NEW^PRCUFCA(FMSINT,PRCFA("TT"),FMSMOD)
39 N LOOP S LOOP=0 F S LOOP=$O(^TMP($J,"PRCMO",GECSFMS("DA"),LOOP)) Q:'LOOP D SETCS^GECSSTAA(GECSFMS("DA"),^(LOOP))
40 K ^TMP($J,"PRCMO")
41GPF3 D SETSTAT^GECSSTAA(GECSFMS("DA"),"Q")
42 D SETPARAM^GECSSDCT(GECSFMS("DA"),+PO)
43 N FMSDOCT S FMSDOCT=$P(PRCFA("REF"),"-",2) D EN7^PRCFFU41(PRCFA("TT"),FMSMOD,PRCFA("OBLDATE"),FMSDOCT)
44 QUIT
45FCP ; Get 'dummy' GPF Fund Control Point accounting information
46 N X
47 S FATAL=0,X="GPFS FMS CONVERSION"
48 S PRC("CP")=$O(^PRC(420,PRC("SITE"),1,"C",X,0))
49 Q
Note: See TracBrowser for help on using the repository browser.