Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRCAAPI

PRCAAPI.m

Go to the documentation of this file.
  1. PRCAAPI ;ALB-SBW - API for ASCD Project ;26/Mar/2007
  1. ;;4.5;Accounts Receivable;**250**;Mar 20, 1995;Build 2
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. GETDATA(BILL) ;Get AR Data
  1. ;Input:
  1. ; Bill Number
  1. ;Output:
  1. ;
  1. ; Original Amount (430;3) ^ Date Account Activated (430;60) ^
  1. ; Total Paid Principle (430;77) ^ Date Entered (433;19)
  1. N OUT,BXREF,BILLIEN,IENS,PAYDATE,BILLOUT
  1. S OUT=""
  1. Q:$G(BILL)="" OUT
  1. ;Determine which cross reference to use.
  1. ; "B" xref contains Site-Bill Number
  1. ; "D" XREF contains Bill Number without the Station Number.
  1. S BXREF=$S(BILL["-":"B",1:"D")
  1. S BILLIEN=$O(^PRCA(430,BXREF,BILL,0))
  1. Q:BILLIEN'>0 OUT
  1. ;
  1. S IENS=BILLIEN_","
  1. ;Get file 430 values
  1. D GETS^DIQ(430,IENS,"3;60;77","I","BILLOUT")
  1. ;Get file 433 values
  1. S PAYDATE=$$DFP^RCXVUTIL(BILLIEN)
  1. ;
  1. ;Put data in OUT variable
  1. S:$G(BILLOUT(430,IENS,3,"I"))]"" $P(OUT,U,1)=BILLOUT(430,IENS,3,"I")
  1. S:$G(BILLOUT(430,IENS,60,"I"))]"" $P(OUT,U,2)=BILLOUT(430,IENS,60,"I")
  1. S:$G(BILLOUT(430,IENS,77,"I"))]"" $P(OUT,U,3)=BILLOUT(430,IENS,77,"I")
  1. S:PAYDATE]"" $P(OUT,U,4)=PAYDATE
  1. Q OUT