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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBECUS21

Package: Integrated Billing

Routine: IBECUS21


Information

IBECUS21 ;RLM/DVAMC - FILE TRICARE PHARMACY TRANSACTIONS ; 14-AUG-96

Source Information

Source file <IBECUS21.m>

Entry Points

Name Comments DBIA/ICR reference
TRAN ; File a Pharmacy Billing transaction in file #351.5.
; Input: DFN -- Pointer to the patient in file #2
; IBLINE -- Array of data transmitted to the FI
; IBRESP -- Array of data received from the FI
; 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
; 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)
DOLLAR ; Convert cents to dollars.
REJECT ; Act on billing rejects.
REJECTQ
ADDREJ ; Add stub entry to the Reject file.
TABLE ; Table of field positions and file locations in file #351.5.

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(351.5 - [#351.5] Classic Fileman Calls
^IBA(351.52 - [#351.52] Classic Fileman Calls
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call