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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC - [#1] | PTL+8, PTL+10 |
| ^DIC(4 - [#4] | SITE+4 |
| ^DIC(49 - [#49] | CHKX+7 |
| ^DPT - [#2] | CHKX+6 |
| ^IB - [#350] | ADD+6, ADD+9 |
| ^IB(0 | ADD+3, ADD+4 |
| ^IBE(350.1 - [#350.1] | CHKX+11, BILLNO+2 |
| ^IBE(350.2 - [#350.2] | COST+3, COSTQ+1, COSTQ+3 |
| ^IBE(350.9 - [#350.9] | SITE+3, SITE+4 |
| ^VA(200 - [#200] | CHKX+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | ARPARM+1 |
| %DT | ADD+2~ |
| DA | COST+3, COSTQ+1, ADD+7*, ADD+8!, ARCOST~ |
| DD | ADD+5!, ADDQ! |
| DFN | CHKX+5*, CHKX+6, ADD+7, BILLNO+3, RXTIER~, RXTIER+9, ARCOST~, ARCOST+8 |
| DIC | ADD+5!*, ADDQ! |
| DIC(0 | ADD+5* |
| DIE | ADD+7*, ADD+8! |
| DINUM | ADD+6*, ADDQ! |
| >> DLAYGO | ADD+5* |
| DO | ADD+5!, ADDQ! |
| DR | ADD+5!, ADD+7*, ADD+8! |
| DT | COST+2, COST+3, ARPARM, ARCOST+8 |
| DUZ | BILLNO+3 |
| IB | COST+1~, COST+3*, TIEROK~, TIEROK+4 |
| >> IBAFY | FY*, BILLNO+3 |
| IBAGL | PTL+10*, PTL+11, PTLQ! |
| >> IBARTYP | BILLNO+2*, BILLNO+3 |
| >> IBATYP | CHKX+11*, ADD+7, BILLNO+2 |
| IBD | COST+1~, COST+2*, COST+3* |
| >> IBDUZ | CHKX+9*, BILLNO+3 |
| IBEFDT | COST+2, COST+3, RXTIER~, RXTIER+11, ARCOST+7~ |
| >> IBFAC | SITE+4* |
| IBII | PTL+18*, PTLQ!, PTL1+8, PTL1+9 |
| >> IBIL | BILLNO+1*, BILLNO+4* |
| IBJJ | PTL+18*, PTLQ!, PTL1+11 |
| IBMIN | PTLQ!, PTL1+8*, PTL1+9 |
| IBN | COST+1~, COST+3*, COSTQ+2, COSTQ+3, ADD+7* |
| IBN1 | ADD+6*, ADD+9, ADDQ! |
| >> IBNOW | ARPARM+1*, BILLNO+3 |
| IBPT | PHAPI+4~, PHAPI+7*, PHAPI+9 |
| IBR | RXTIER+5~, RXTIER+9*, RXTIER+10*, RXTIER+11*, RXTIER+12*, RXTIER+13 |
| IBRFL | PHAPI+4~, PHAPI+9* |
| IBRX | PHAPI+4~, PHAPI+6*, PHAPI+7, PHAPI+9, RXTIER~, RXTIER+7, RXTIER+9 |
| >> IBSAVX | CHKX+5, CHKX+9, CHKX+11 |
| >> IBSERV | CHKX+5*, CHKX+7, BILLNO+3 |
| >> IBSITE | SITE+4*, ADD+6, BILLNO+3 |
| >> IBTAG | CHKX+8, CHKX+10 |
| IBTIER | COSTQ+1*, TIEROK+3, TIEROK+4, RXTIER+6, ARCOST+7~, ARCOST+8* |
| >> IBTOTL | BILLNO+1, BILLNO+3 |
| >> IBTRAN | BILLNO+1*, BILLNO+4*, BILLNO+5* |
| IBX | ARCOST~, ARCOST+8, ARCOST+9* |
| IBXX | PHAPI+4~, PHAPI+5*, PHAPI+6, PHAPI+8, PHAPI+9 |
| IBY | PHAPI+4~, PHAPI+5*, PHAPI+7*, PHAPI+10*, PHAPIQ+1 |
| IBY(0 | PHAPI+7*, PHAPIQ+2 |
| IBY(1 | PHAPI+9*, PHAPI+10, PHAPIQ+3 |
| IBYCHK | ADD+2~, ADD+8*, ADD+10 |
| X | FY, PTL+8, PTL+9, PTL+10, PTL+11, PTL+18, CHKX+5, ADD+4*, ADD+6*, ARPARM~* , BILLNO+3*, PHAPI+5 |
| X1 | COST+1!, COST+3*, COSTQ*, COSTQ+1, COSTQ+3*, ARCOST+7~, ARCOST+11 |
| Y | COSTQ+2*, PTL+7!, PTL+8*, PTL+11*, PTL1+8*, PTL1+9*, CHKX+6*, CHKX+7*, CHKX+9*, CHKX+11* , SITE+3*, SITE+4*, ADD+3*, ADD+4*, ADD+6, ADD+7, ADD+8~, ADD+10*, BILLNO+3, BILLNO+4* , PHAPIQ+1* |
| Y( | PTL1+11* |
| Y(0 | PTL+16*, PHAPIQ+2* |
| Y(1 | PHAPIQ+3* |
| Name | Field # of Occurrence |
|---|---|
| $T(CPTIER^PSNAPIS | RXTIER+8 |
