IBCF4 ;ALB/ARH - PRINT BILL ADDENDUM ;12-JAN-94
Source file <IBCF4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PRXA | ;get bill number then print rx refill addendums for bills
|
|
DEV | ;get the device
|
|
EXIT | ;clean up and quit
|
|
EN | ;ENTRY POINT IF QUEUED, print all rx refills for a bill
|
|
RX | ||
PROS | ||
END | ||
CHG(IBY,IBTYP,IBRC) | ; Return charge for item entry IBY or null if no charge
; IBRC = the array containing the revenue code items and their units and charges ; IBTYP = the type of item being priced |
|
HDR | ;print the report header
|
|
PAUSE | ;pause at end of screen if being displayed on a terminal
|
|
STOP() | ;determine if user has requested the queued report to stop
|
|
RXDISP | ;displays all rx refills bills
|
|
DATE(X) | ||
BILLAD(IFN) | ;returns true if bill has either rx refills or prosthetics so addendum should print
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DGCR(399 - [#399] | Classic Fileman Calls |