Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: IBECUS22

Package: Integrated Billing

Routine: IBECUS22


Information

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

Source Information

Source file <IBECUS22.m>

Entry Points

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

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls