| 1 | PRCAAPI ;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.
|
|---|
| 4 | GETDATA(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
|
|---|
