IBACUS ;ALB/CPM - TRICARE BILLING UTILITIES ; 02-AUG-96
Source file <IBACUS.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 4 | IBACUS2 IBECEA35 IBECUS2 IBECUS3 |
| Outpatient Pharmacy | 2 | PSOBBC PSORXL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CUS(DFN,IBDT) | ; Does the patient have TRICARE coverage?
; Input: DFN -- Pointer to the patient in file #2 ; DATE -- Date on which coverage is to be determined ; Output: IBCOV -- 0, if the vet has no billable TRICARE coverage ; >0 => pointer to such coverage in file #2.312 |
|
| CUSQ | ||
| TRI() | ; Is the Tricare Billing engine up and running?
; Input: none ; Output: 0 - No 1 - Yes |
|
| CHPUS(DFN,DATE,IBRX,IBREF,IBLAB,IBRSITE,IBDUZ) | ; Bill this patient for TRICARE?
; Input: DFN -- Pointer to the patient in file #2 ; DATE -- Date on which coverage is to be determined ; IBRX -- Pointer to the prescription in file #52 ; IBREF -- Pointer to the refill in file #52.1, or ; 0 if billing the original prescription ; IBLAB -- Pharmacy label printing device ; IBRSITE -- Pointer to the Pharmacy in file #59 ; IBDUZ -- Pointer to the Pharmacy user in file #200 ; Output: IBCHK -- 0 => can't bill rx || 1 => bill rx |
|
| CHPUSQ | ||
| RXLAB | ; Queued entry point to print the TRICARE Rx label.
|
|
| RXLABQ | ||
| RXBIL | ; Queued entry point to create TRICARE Rx Billing charges.
|
|
| RXBILQ | ||
| RXCAN | ; Queued entry point to cancel TRICARE Rx Billing charges.
|
|
| RXCANQ | ||
| RXSET() | ; Establish the session.
|
|
| RXSETQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBA(351.5 - [#351.5] | CHPUS+29*, RXLAB+2, RXLAB+4, RXSET+5 |
| ^IBE(350.9 - [#350.9] | TRI+4 |
| ^IBE(355.1 - [#355.1] | CUS+15 |
| ^VA(200 - [#200] | RXSET+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATE | CHPUS~, CHPUS+17 |
| DFN | CUS~, CUS+8, CUS+12, CHPUS~, CHPUS+12, CHPUS+13, CHPUS+17 |
| DIQUIET | RXSET+10~* |
| DT | CUS+9 |
| DUZ | RXSET+7*, RXSET+8 |
| IBCHK | CHPUS+11~*, CHPUS+28*, CHPUSQ |
| >> IBCHTRN | RXLAB+2, RXLAB+4, RXBIL+6, RXBIL+9, RXCAN+6, RXCAN+9, RXSET+4, RXSET+5 |
| IBCOP | RXLAB+2*, RXLAB+3, RXLAB+4, RXLABQ! |
| IBCOV | CUS+6~, CUS+7*, CUS+13, CUS+15*, CUSQ |
| IBDT | CUS~, CUS+9*, CUS+12 |
| IBDUZ | CHPUS~, CHPUS+22, CHPUS+29 |
| IBI | CUS+6~, CUS+13*, CUS+14, CUS+15 |
| IBKEY | CHPUS+11~, CHPUS+28*, CHPUS+29, RXBIL+6, RXBIL+9, RXSET+5*, RXSET+6 |
| >> IBKEYD | RXLAB+1, RXLAB+4, RXSET+7 |
| IBLAB | CHPUS~, CHPUS+22, CHPUS+29 |
| IBOK | RXSET+1~*, RXSET+11*, RXSETQ |
| IBPOL | CUS+6~ |
| IBPOL( | CUS+13, CUS+14, CUS+15 |
| IBREF | CHPUS~, CHPUS+21, CHPUS+25, CHPUS+28 |
| IBRSITE | CHPUS~, CHPUS+22, CHPUS+29 |
| IBRX | CHPUS~, CHPUS+20, CHPUS+25, CHPUS+28 |
