IBECUS21 ;RLM/DVAMC - FILE TRICARE PHARMACY TRANSACTIONS ; 14-AUG-96
Source file <IBECUS21.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
TRAN | ; File a Pharmacy Billing transaction in file #351.5.
; Input: DFN -- Pointer to the patient in file #2 ; IBLINE -- Array of data transmitted to the FI ; IBRESP -- Array of data received from the FI ; IBKEY -- 1 ; 2, where ; 1 = Pointer to the prescription in file #52 ; 2 = Pointer to the refill in file #52.1, or ; 0 for the original fill ; IBKEYD -- 1 ^ 2 ^ 3 ^ 4, where ; 1 = Rx label printing device ; 2 = Pointer to the Pharmacy in file #59 ; 3 = Pointer to the Pharmacy user in file #200 ; 4 = Pointer to the billing transaction ; in file #351.5 (cancellations only) |
|
DOLLAR | ; Convert cents to dollars.
|
|
REJECT | ; Act on billing rejects.
|
|
REJECTQ | ||
ADDREJ | ; Add stub entry to the Reject file.
|
|
TABLE | ; Table of field positions and file locations in file #351.5.
|
FileNo | Call Tags |
---|---|
^IBA(351.5 - [#351.5] | Classic Fileman Calls |
^IBA(351.52 - [#351.52] | Classic Fileman Calls |