IBNCPDP6 ;OAK/ELZ - TRICARE NCPDP TOOLS; 02-AUG-96
Source file <IBNCPDP6.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 | IBNCPDP1 IBNCPDP2 IBNCPDP3 IBNCPDP5 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START(IBKEY,IBELIG,IBRT) | ; initial storage done during
; billing determination check (updates allowed) ; Input: 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 ; IBELIG -- single character indicating elig indicator ; V = VETERAN ; T = TRICARE ; C = CHAMPVA ; IBRT -- Rate type pointer to be used for the bill later |
|
| BILL(IBKEY,IBCHG,IBRT) | ; Create the TRICARE Rx copay charge.
; Input: 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 ; IBCHG -- charge amount ; IBRT -- rate type on 3rd party (optional) |
|
| BILLQ | ;
|
|
| CANC(IBKEY) | ; Cancel the TRICARE Rx copay charge.
; Input: 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 |
|
| CANCQ | ;
|
|
| RT(IBKEY) | ; returns rate type previously determined
|
|
| TRICARE(IBKEY) | ; returns if the Key is RT TRICARE
|
|
| PHONE(IB36) | ;
|
| Name | Field # of Occurrence |
|---|---|
| FILE^DICN | START+15 |
| ^DIE | START+18, BILL+58, CANC+20 |
| $$GET1^DIQ | PHONE+3, PHONE+6 |
| ERRMSG^IBACVA2 | BILLQ+1, CANCQ+1 |
| $$SERV^IBARX1 | BILL+38 |
| $$CHECK^IBECEAU | BILL+34, CANC+13 |
| ADD^IBECEAU3 | BILL+50 |
| CANC^IBECEAU4 | CANC+18 |
| CED^IBECEAU4 | CANC+17 |
| AR^IBR | BILL+55 |
| $$FILE^IBRXUTL | BILL+23, BILL+26, CANC+11 |
| DUZ^XUP | BILL+53 |
| FileNo | Call Tags |
|---|---|
| ^DIC(36 - [#36] | GET1^DIQ |
| ^IBCNR(366.15 - [#366.15] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399.3 - [#399.3] | BILL+18, TRICARE+3 |
| ^IBCNR(366.15 - [#366.15] | START+13, BILL+12, BILL+14, CANC+9, CANC+11, RT+1 |
| ^IBE(350.1 - [#350.1] | BILL+30, BILL+37 |
| ^IBE(350.3 - [#350.3] | CANC+14 |
| ^VA(200 - [#200] | BILL+53 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | START+12~, START+17*, BILL+8~, BILL+58*!, CANC+6~, CANC+20* |
| DFN | BILL+8~, BILL+26*, BILL+27, CANC+6~, CANC+11* |
| DIC | START+12~, START+15* |
| DIC(0 | START+15* |
| DIE | START+12~, START+17*, BILL+8~, BILL+58*!, CANC+6~, CANC+20* |
| DO | START+12~ |
| DR | START+12~, START+17*, BILL+8~, BILL+58*!, CANC+6~, CANC+20* |
| DT | BILL+47 |
| DUZ | BILL+53, CANC+8 |
| IB1 | PHONE+1~, PHONE+3*, PHONE+4, PHONE+6*, PHONE+7 |
| IB36 | PHONE~, PHONE+3, PHONE+6 |
| IBATYP | BILL+8~, BILL+30*, BILL+31, CANC+6~ |
| IBCANC | CANC+6~ |
| IBCANTR | CANC+6~ |
| IBCHG | BILL~, BILL+41*, BILL+42, CANC+6~ |
| IBCHTRN | START+12~, START+13*, START+14, START+16*, START+17, BILL+8~, BILL+12*, BILL+13, BILL+14, BILL+58 , CANC+6~, CANC+9*, CANC+10, CANC+11, CANC+20 |
| IBCHTRND | CANC+6~, CANC+11*, CANC+12 |
| IBCRES | CANC+6~, CANC+14*, CANC+18 |
| IBDESC | BILL+8~, BILL+45* |
| IBDUZ | CANC+6~, CANC+8* |
| IBELIG | START~ |
| IBFAC | CANC+6~ |
| IBFR | BILL+8~, BILL+47*, CANC+6~ |
| IBH | CANC+6~ |
| IBIL | CANC+6~ |
| IBKEY | START~, START+13, START+15, BILL~, BILL+11, BILL+12, BILL+21, BILL+23, BILL+26, BILL+46 , CANC~, CANC+9, CANC+11, RT~, RT+1, TRICARE~, TRICARE+2 |
| IBN | BILL+8~, BILL+58, CANC+6~, CANC+12*, CANC+17, CANC+18 |
| IBND | CANC+6~ |
| IBPARNT | CANC+6~ |
| IBRT | START~, BILL~, BILL+17, BILL+18, TRICARE+1~, TRICARE+2*, TRICARE+3 |
| IBSEQNO | CANC+6~ |
| IBSERV | BILL+8~, BILL+37*, BILL+38 |
| IBSITE | CANC+6~ |
| IBSL | BILL+8~, BILL+46* |
| IBUNIT | BILL+8~, BILL+45*, CANC+6~ |
| IBXA | CANC+6~ |
| IBY | BILL+8~, BILL+10*, BILL+27*, BILL+31*, BILL+34*, BILL+38*, BILL+42*, BILL+50, BILLQ+1, CANC+6~ , CANC+8*, CANC+13*, CANC+17, CANCQ+1 |
| IBZ | BILL+8~, BILL+14*, BILL+17, BILL+21 |
| X | START+12~, START+15* |
| Y | START+12~, START+16 |