IBECUS22 ;RLM/DVAMC - TRICARE PHARMACY BILLING UTILITIES ; 14-AUG-96
Source file <IBECUS22.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ERROR | ; File errors.
; Input: IBERR [opt] -- DHCP Error Code ; IBDRX("RX#") -- Prescription Number ; IBRESP(1) [opt] -- First record transmitted by the FI ; IBKEY -- 1 ; 2, where ; 1 = Pointer to the rx 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) |
|
DUP | ; Act on duplicates.
|
|
DISP | ; Display Universal errors on alerts.
|
|
ERRTXT(IEN) | ; Return Error Text.
; Input: IEN -- Pointer to the Error Text in file #351.51 |
|
ERRIEN(MACH,CODE) | ; Return Error File Entry Number.
; Input: MACH -- System on which the error occurred ; CODE -- Error Code |
|
ERRIENQ |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|