source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCUFCD.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1PRCUFCD ;WISC/SJG-CONVERSION PROCESSING ;4/30/93 3:02 PM
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ; Routine is modification of PRCFAC02 for conversion processing
6 ;
7 S PRCFA("MOP")=$P(^PRC(442,PRCFA("PODA"),0),"^",2) I 12348'[PRCFA("MOP") Q
8 I PRCFA("MOP") D @PRCFA("MOP")
9 D OBD Q
101 ;INVOICE/RR
11 D OBL Q
12 Q
132 ;CERTIFIED INVOICE
14 D TC Q
153 ;PAYMENT IN ADVANCE
16 D TC Q
178 ;REQUISITION
18 D OBL Q
194 ;GUARANTEED DELIVERY
20 D TC Q
21 Q
22OBL ;MARK AS "OBLIGATED"
23 Q:SCP=1!(SCP=2)
24 S FSO=$P(^PRC(442,PRCFA("PODA"),7),U,1) S:FSO="" FSO=10 S FSO=$P(^PRCD(442.3,FSO,0),"^",3)+15,X=FSO,DA=PRCFA("PODA") D ENF^PRCHSTAT
25 K FSO Q
26TC ;MARK PO AS "TRANSACTION COMPLETE"
27 S X=40,DA=PRCFA("PODA") D ENF^PRCHSTAT Q
28OAI ;MARK AS "OBLIGATED - AWAITING INVOICE"
29 S X=42,DA=PRCFA("PODA") D ENF^PRCHSTAT Q
30OBD ;PASS OBLIGATION DATA TO CPA MODULE AND PO
31 K PODA I $S('$D(PRCFA("PODA")):1,'$D(^PRC(442,PRCFA("PODA"),0)):1,1:0) D OUT Q
32 S PODA=PRCFA("PODA"),PO(0)=^PRC(442,PODA,0)
33 S AMT=+$S($P(PRCFMO,"^",12)="N":$P(PO(0),"^",16),1:$P(PO(0),"^",15))
34 S DEL=$P(PO(0),"^",10),TRDA=$P(PO(0),"^",12) D NOW^%DTC S TIME=X
35 I TRDA="" D G OUT
36 . N A
37 . S A=$P($G(^PRC(442,PRCFA("PODA"),1)),"^",15) QUIT:A=""
38 . S A=$$DATE^PRC0C(A,"I")
39 . S A=+PO(0)_"^"_$P(PO(0),"^",3)_"^"_$E(A,3,4)_"^"_$P(A,"^",2)_"^"_AMT
40 . D EBAL^PRCSEZ(A,"C"),EBAL^PRCSEZ(A,"O")
41 . QUIT
42 I '$D(^PRCS(410,TRDA,4)) D OUT Q
43 S X=$P(^PRCS(410,TRDA,4),"^",8),DA=TRDA D TRANK^PRCSES
44 S $P(^PRCS(410,TRDA,9),"^",2)=DEL
45 S X=(^PRCS(410,TRDA,4))
46 S $P(X,"^",3,4)=AMT_"^"_TIME
47 S $P(X,"^",8)=AMT
48 S (^PRCS(410,TRDA,4))=X
49 S MESSAGE=""
50 D ENCODE^PRCSC2(DA,DUZ,.MESSAGE)
51 K MESSAGE
52 S X=AMT
53 D TRANS1^PRCSES,TRANS^PRCSES
54OUT K CSDA,PODA,AMT,CS,PO(0),DEL,TRDA,DA,TIME
55 Q
Note: See TracBrowser for help on using the repository browser.