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 |