IBECEA ;ALB/RLW - Cancel/Edit/Add Patient Charges ;12-JUN-92
Source file <IBECEA.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Cancel/Edit/Add Patient Charges -- invoke the List Manager.
|
|
EN1 | ; Entrypoint to avoid killing XQORS
|
|
ENQ | ||
EN1AR | ; AR entry for charge maintenance
|
|
INIT | ; List Manager (IB CHARGES) main entry point.
|
|
INITQ | ||
PAT | ; 'Change Patient' protocol entry action.
|
|
DATE | ; 'Change Date' protocol entry action.
|
|
PATQ | ||
MSG | ; Quick message display.
|
|
HDR | ; Build screen header.
|
|
SLPT() | ; Select a patient.
|
|
SLDT() | ; Select Charge dates.
|
|
SLDTQ | ||
SLRX() | ; Include Rx copay charges?
|
|
RCFNL | ;
|
|
FNL | ; List Manager (IB CHARGES) exit action.
|
|
EXIT |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |