IBACUS ;ALB/CPM - TRICARE BILLING UTILITIES ; 02-AUG-96
Source file <IBACUS.m>
| 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 |
