source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAAPI.m@ 1556

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

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1PRCAAPI ;ALB-SBW - API for ASCD Project ;26/Mar/2007
2 ;;4.5;Accounts Receivable;**250**;Mar 20, 1995;Build 2
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4GETDATA(BILL) ;Get AR Data
5 ;Input:
6 ; Bill Number
7 ;Output:
8 ;
9 ; Original Amount (430;3) ^ Date Account Activated (430;60) ^
10 ; Total Paid Principle (430;77) ^ Date Entered (433;19)
11 N OUT,BXREF,BILLIEN,IENS,PAYDATE,BILLOUT
12 S OUT=""
13 Q:$G(BILL)="" OUT
14 ;Determine which cross reference to use.
15 ; "B" xref contains Site-Bill Number
16 ; "D" XREF contains Bill Number without the Station Number.
17 S BXREF=$S(BILL["-":"B",1:"D")
18 S BILLIEN=$O(^PRCA(430,BXREF,BILL,0))
19 Q:BILLIEN'>0 OUT
20 ;
21 S IENS=BILLIEN_","
22 ;Get file 430 values
23 D GETS^DIQ(430,IENS,"3;60;77","I","BILLOUT")
24 ;Get file 433 values
25 S PAYDATE=$$DFP^RCXVUTIL(BILLIEN)
26 ;
27 ;Put data in OUT variable
28 S:$G(BILLOUT(430,IENS,3,"I"))]"" $P(OUT,U,1)=BILLOUT(430,IENS,3,"I")
29 S:$G(BILLOUT(430,IENS,60,"I"))]"" $P(OUT,U,2)=BILLOUT(430,IENS,60,"I")
30 S:$G(BILLOUT(430,IENS,77,"I"))]"" $P(OUT,U,3)=BILLOUT(430,IENS,77,"I")
31 S:PAYDATE]"" $P(OUT,U,4)=PAYDATE
32 Q OUT
Note: See TracBrowser for help on using the repository browser.