IBECEA31 ;ALB/CPM - Cancel/Edit/Add... Handle Events ; 02-APR-93
Source file <IBECEA31.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 3 | EVADD^IBAUTL3 SPEC^IBECEA32 ($$DAT1,$$DAT2)^IBOUTL |
Kernel | 1 | $$FMADD^XLFDT |
VA Fileman | 1 | ^DIE |
Name | Comments | DBIA/ICR reference |
---|---|---|
ADEV | ; Add a new event entry in file #350.
|
|
ASKADQ | ||
EVF(DFN,IBFR,IBTO,IBNH) | ; Find the matching event for a copay or per diem.
|
|
NOEV | ; No event in Integrated Billing - ask user to select an admission
|
|
DIS(X) | ; Find the discharge date for an admission.
|
|
ADSELQ | ||
UNAB | ||
ASKAD | ; Prompt the user to select an admission.
|
|
EVFQ | ||
ADSEL(DFN) | ; Select an admission to use to build an event.
|
|
DISEL | ; Display admission data.
|
|
EVS | ; Set the output variable Y for the most recent (applicable) event.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^IB - [#350] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGPM - [#405] | DIS+4, ADSEL+7, DISEL+1, DISEL+3, ASKAD+3 |
^DGPM("ATID1" | ADSEL+5, ADSEL+7 |
^DIC(42 - [#42] | DISEL+2 |
^IB - [#350] | EVF+11 |
^IB("AFDT" | EVF+11 |
^IBE(351.2 - [#351.2] | NOEV+10 |
Name | Line Occurrences |
---|---|
$$ADSEL | NOEV+4 |
$$DIS | EVS+1 |
ADSELQ | ADSEL+7, ADSEL+8 |
ASKAD | ADSEL+7, ADSEL+10, ASKAD+2, ASKAD+5 |
ASKADQ | ASKAD+1, ASKAD+4 |
DISEL | ADSEL+7 |
EVFQ | EVF+11 |
EVS | EVF+11 |
UNAB | NOEV+1, NOEV+2 |
Name | Field # of Occurrence |
---|---|
^( | ADSEL+7 |
^(0 | ADSEL+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARR | ADSEL+6~, ADSEL+8, ADSELQ |
ARR( | ADSEL+7*, ASKAD+2, ASKAD+3, ASKAD+4 |
DA | ADEV+2~, ADEV+6*, ADEV+7* |
DFN | EVF~, EVF+8, EVF+11, ADSEL~, ADSEL+5, ADSEL+7, NOEV+4 |
DG | ADSEL+6~, ADSEL+7*, DISEL+1 |
DGPM | DISEL+1~*, DISEL+2, DISEL+3 |
DIE | ADEV+2~, ADEV+6*, ADEV+7* |
DIS | EVF+10~, EVS+1*, EVS+2, DIS+3~, DIS+4*, DIS+5 |
DR | ADEV+2~, ADEV+6*, ADEV+7* |
DT | ASKAD+3 |
DTIME | ASKAD+1 |
EVD | EVF+10~*, EVF+11*, EVS+2 |
IBD | ADSEL+6~*, ADSEL+7* |
>> IBDG | ADEV+7, NOEV+4*, NOEV+5, NOEV+6, NOEV+10, NOEV+13 |
IBDIS | ASKAD+3*, ASKAD+4, ASKADQ! |
>> IBEVDA | ADEV+6, ADEV+7, NOEV+1, NOEV+2 |
IBEVDT | ADEV+3!, NOEV+13* |
IBFR | EVF~, EVF+8, EVF+11, ASKAD+4, ADEV+4 |
IBLAST | ADEV+2~, ADEV+4*, ADEV+5, ADEV+6 |
IBN | EVF+10~*, EVF+11*, EVS+2, ADEV+3! |
>> IBND | EVF+11*, EVS+1 |
IBNH | EVF~, EVF+9*, EVF+11 |
IBQ | ADSEL+6~*, ADSEL+7, ADSELQ, ASKAD+1* |
>> IBSL | NOEV+13* |
IBTO | EVF~, EVF+8, EVS+2, ASKAD+4, ADEV+4, NOEV+1 |
>> IBXA | EVS+2, ADEV+4 |
>> IBY | ADEV+3, NOEV+5*, NOEV+6* |
J | ADSEL+6~, ADSEL+7*, ADSEL+9, ADSEL+10*, ASKAD+1, ASKAD+2 |
SEL | ADSEL+6~, ADSEL+7, ADSELQ, ASKAD+4* |
X | DIS~, DIS+4, ADSEL+6~, ASKAD+1*, ASKAD+2, ASKAD+3, ASKAD+4 |
Y | EVF+10~*, EVFQ, EVS+2* |