IBECUS21 ;RLM/DVAMC - FILE TRICARE PHARMACY TRANSACTIONS ; 14-AUG-96
Source file <IBECUS21.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 |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBA(351.5 - [#351.5] | TRAN+19, TRAN+21, TRAN+22, TRAN+23*, TRAN+24*, TRAN+25, TRAN+33*, TRAN+45*, TRAN+48*, TRAN+52* , REJECT+8*, REJECT+31! |
| ^IBA(351.52 - [#351.52] | REJECT+12, REJECT+22*, ADDREJ+1, ADDREJ+2, ADDREJ+3*, ADDREJ+4*, ADDREJ+5 |
| ^IBE(351.51 - [#351.51] | REJECT+31 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | TRAN+53*, REJECT+14*!, REJECT+20*, REJECT+21! |
| >> DFN | TRAN+33, REJECT+27 |
| DIE | REJECT+20*, REJECT+21! |
| DIK | TRAN+53*, REJECT+14*! |
| DIQUIET | TRAN+52~* |
| DR | REJECT+20*, REJECT+21! |
| DT | TRAN+52, REJECT+20 |
| >> I | TRAN+21*, TRAN+22*, TRAN+23, TRAN+24, TRAN+25, ADDREJ+1*, ADDREJ+2*, ADDREJ+3, ADDREJ+4, ADDREJ+5 |
| >> IBCDFND | TRAN+33 |
| >> IBCHREJ | REJECT+12*, REJECT+14, REJECT+17, REJECT+22, ADDREJ+5* |
| >> IBCHTRN | TRAN+19*, TRAN+20, TRAN+25*, TRAN+33, TRAN+45, TRAN+48, TRAN+52, TRAN+53, REJECT+8, REJECT+20 |
| >> IBDRX("NDC" | TRAN+33 |
| >> IBDRX("QTY" | TRAN+33 |
| >> IBDRX("RX#" | REJECT+26, REJECT+27 |
| >> IBERRP | REJECT+5*, REJECT+6 |
| >> IBI | TRAN+28*, TRAN+29*, TRAN+34* |
| >> IBJ | REJECT+4* |
| >> IBJA | REJECT+4*, REJECT+5 |
| >> IBKEY | TRAN+19, TRAN+23, REJECT+12, REJECT+31, ADDREJ+3 |
| >> IBKEYD | REJECT+25 |
| >> IBLINE( | TRAN+29 |
| >> IBPROC( | TRAN+41 |
| >> IBPROC("I" | TRAN+28* |
| >> IBPROC("O" | TRAN+29*, TRAN+30* |
| >> IBREJ | REJECT+3*, REJECT+6*, REJECT+7*, REJECT+8, REJECT+13, REJECT+22, REJECT+26, REJECT+27, REJECT+31 |
| >> IBRESP( | TRAN+28 |
| >> IBRESP(1 | TRAN+16, TRAN+38, REJECT+3, REJECT+4 |
| >> IBTABLE | TRAN+34*, TRAN+35, TRAN+38, TRAN+40, TRAN+41, TRAN+42, TRAN+45 |
| >> IBUAC | TRAN+33 |
| U | TRAN+52 |
| >> X | TRAN+40*, TRAN+41*, TRAN+42, TRAN+45, DOLLAR+1*, DOLLAR+2* |
| >> XQA( | REJECT+25* |
| >> XQA("G.IB CHA | MP RX REJ" , REJECT+25* |
| >> XQADATA | REJECT+27* |
| >> XQAMSG | REJECT+26* |
| >> XQAROU | REJECT+27* |
| Name | Field # of Occurrence |
|---|---|
| $T(TABLE+IBI | TRAN+34 |
