IBAUTL ;ALB/AAS - INTEGRATED BILLING APPLICATION UTILITIES ; 14-FEB-91
Source file <IBAUTL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| COST | ; - find charges for transaction type, when only one
|
|
| COSTQ | ||
| TIEROK(IB) | ; - if there is a tier present, make sure it matches
; if not present it's OK ; IB = zero node of 350.2 from COST above |
|
| FY | ||
| PTL | ; - parent trace logic
; - input in x resulting from field from file 350 ; - output in y=1 if found, -1^error message if not found ; - y(0) = zeroth node of top level ; - y(1) = zeroth node of second level ; - y(n) = zeroth node of nth level |
|
| PTLQ | ||
| PTL1 | ; - find y(n) of sublevels
; Call in here with a FOR loop to go each level deeper. This will ; setup the subsripts in Y for all the data elements that go into ; causing this charge to be created. It looks in the original data ; source file as approprite to obtain the information. The naked ; reference should be the last data level in the data source appropriate ; data source file last looked up. |
|
| CHKX | ; - check input x
; - piece 1 = service and exists ; - peice 2 = patient and exists ; - piece 3 = action type ; - piece 4 = user duz |
|
| CHKXQ | ||
| SITE | ; - calculate site from site parameters
; - output ibsite = station number ; = ibfac = pointer to institution file |
|
| ADD | ; - add new entry to ^ib
|
|
| ADDQ | ||
| ARPARM | ||
| BILLNO | ; -get open bill number
|
|
| BILLQ | ||
| PHAPI | ;
|
|
| PHAPIQ | ;
|
|
| RXTIER(DFN,IBRX,IBEFDT) | ; - look up the tier of the prescription
; returns the tier level of the specified prescription ; the existence of the IBTIER variable means it is already determined elsewhere and we'll just use that value ; default tier is always 2 |
|
| ARCOST(DFN,DA,IBX) | ; api for AR to look up the charge of a med
; input: DFN = patient pointer ; DA = 350.1 pointer ; IBX = Rx IEN ; output: returns the single 30 day supply charge amount ; assumption, since AR is all about today, DT is used for the date |
|
| FileNo | Call Tags |
|---|---|
| ^IB - [#350] | Classic Fileman Calls |
