IBNCPDP6 ;OAK/ELZ - TRICARE NCPDP TOOLS; 02-AUG-96
Source file <IBNCPDP6.m>
| 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) | ;
|
| FileNo | Call Tags |
|---|---|
| ^DIC(36 - [#36] | GET1^DIQ |
| ^IBCNR(366.15 - [#366.15] | Classic Fileman Calls |
