Routine: IBECUS22

Information

IBECUS22 ;RLM/DVAMC - TRICARE PHARMACY BILLING UTILITIES ; 14-AUG-96

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	Prompt: !!,"RX# ",$P(XQADATA,"^")," for ",$P(Y,"^")," (",$E($P(Y,"^",9),6,10),") rejected because:" Line Location: DISP+3
Function Call: WRITE	Prompt: !?3,TXT Line Location: DISP+7
Function Call: WRITE	Prompt: !!,"Press ENTER key to continue..." Line Location: DISP+8