IBECUS22 ;RLM/DVAMC - TRICARE PHARMACY BILLING UTILITIES ; 14-AUG-96
Source file <IBECUS22.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 | IBECUS2 IBECUS21 IBECUS3 IBECUSO |
| 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 |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | DISP+2 |
| ^IBA(351.5 - [#351.5] | ERROR+17!, DUP+4! |
| ^IBA(351.52 - [#351.52] | ERROR+34, ERROR+36* |
| ^IBE(351.51 - [#351.51] | ERRTXT+2, ERRIEN+6 |
| Name | Field # of Occurrence |
|---|---|
| ^(1 | ERROR+36* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODE | ERRIEN~, ERRIEN+5, ERRIEN+6 |
| DIQUIET | ERROR+31~* |
| DT | ERROR+36 |
| DTIME | DISP+8 |
| ERR | DISP+1~, DISP+5*, DISP+6 |
| >> IBCHREJ | ERROR+34*, ERROR+35, ERROR+36 |
| >> IBDRX("RX#" | ERROR+27, DUP+2 |
| IBERC | ERROR+16*, ERROR+17*, ERROR+22*, ERROR+23*, ERROR+24, ERROR+27, ERROR+37! |
| IBERR | ERROR+16, ERROR+17, ERROR+18, ERROR+19! |
| IBERRP | ERROR+24*, ERROR+28, ERROR+36, ERROR+37! |
| >> IBKEY | ERROR+17, ERROR+34, DUP+4 |
| >> IBKEYD | ERROR+30 |
| IBMACH | ERROR+18*, ERROR+24, ERROR+27, ERROR+37! |
| >> IBRESP(1 | ERROR+16, ERROR+22 |
| IBTXT | ERROR+19!, ERROR+37! |
| IBTXT(1 | ERROR+27* |
| IBTXT(2 | ERROR+28* |
| IEN | ERRTXT~, ERRTXT+2 |
| MACH | ERRIEN~, ERRIEN+4, ERRIEN+6 |
| TXT | DISP+1~, DISP+6*, DISP+7 |
| X | DISP+1~, DISP+5*, DISP+8*, ERRIEN+3~*, ERRIEN+6*, ERRIENQ |
| XMDUN | ERROR+29*, ERROR+37! |
| XMDUZ | ERROR+29*, ERROR+37! |
| XMSUB | ERROR+29*, ERROR+37! |
| XMTEXT | ERROR+30*, ERROR+37! |
| XMY | ERROR+37! |
| XMY( | ERROR+30* |
| XMY("G.IB CHA | MP RX REJ" , ERROR+30* |
| XMZ | ERROR+37! |
| >> XQA("G.IB CHA | MP RX REJ" , DUP+1* |
| >> XQADATA | DISP+2, DISP+3, DISP+4*, DISP+5 |
| >> XQAMSG | DUP+2* |
| Y | DISP+1~, DISP+2*, DISP+3 |
