IBECEA34 ;ALB/CPM - Cancel/Edit/Add... Fee Support ; 12-FEB-96
Source file <IBECEA34.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 2 | EVADD^IBAUTL3 $$DAT2^IBOUTL |
VA FileMan | 1 | ^DIE |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 4 | IBECEA21 IBECEA3 IBECEA31 IBECEA33 |
Name | Comments | DBIA/ICR reference |
---|---|---|
NOEVT | ; No event in Integrated Billing - ask user to select a Non-VA ptf ;IB*2.0*734 messages at tag +1,+3,&+4
|
|
NOEVTQ | ||
ADSEL(DFN) | ; Select a Non-VA PTF as an admission to use to build an event.
; Input: DFN -- Pointer to the patient in file #2 ; Output: >1 -- ien of ptf entry (in file #45) to link event ; 0 -- no feee ptf entries for the patient, or ; -1 -- user decided to quit. |
|
DISEL | ; Display admission data.
|
|
ASKAD | ; Prompt the user to select an admission.
|
|
ASKADQ | ||
ADEV | ; Add a new event entry for the Non-VA PTF in file #350.
|
|
MED | ; Is the Fee Charge for a CNH or Contract Hospital Admission?
|
|
MEDQ | ||
HMED | ; Help for the 'C(N)H or Contract (H)ospital' prompt
|
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: 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) |
---|---|
^DGPT - [#45] | ADSEL+8, DISEL+1, DISEL+3, ASKAD+3 |
^DGPT("AFEE" | ADSEL+5, ADSEL+7 |
^IB - [#350] | ADEV+5* |
Name | Field # of Occurrence |
---|---|
^( | ADSEL+8 |
^(70 | DISEL+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARR | ADSEL+6~, ADSEL+11, ADSEL+15 |
ARR( | ADSEL+10*, ASKAD+2, ASKAD+3, ASKAD+4 |
DA | ADEV+2~, ADEV+4* |
DFN | NOEVT+2, ADSEL~, ADSEL+5, ADSEL+7 |
DGPT | DISEL+1~*, DISEL+2 |
DIE | ADEV+2~, ADEV+4* |
DR | ADEV+2~, ADEV+4* |
DT | ASKAD+3 |
DTIME | ASKAD+1, MED+1 |
>> IBADJMED | MED+6* |
IBD | ADSEL+6~*, ADSEL+7*, ADSEL+8, ADSEL+10 |
>> IBDG | NOEVT+2*, NOEVT+3, NOEVT+4, NOEVT+8 |
IBDIS | ASKAD+3*, ASKAD+4, ASKADQ! |
>> IBEVDA | ADEV+4, ADEV+5 |
IBEVDT | NOEVT+8*, ADEV+3! |
>> IBFEEV | NOEVT+8* |
>> IBFR | ASKAD+4 |
>> IBMED | MED+6* |
IBN | ADEV+3! |
IBQ | ADSEL+6~*, ADSEL+10, ADSEL+15, ASKAD+1* |
>> IBSL | NOEVT+8* |
>> IBTO | ASKAD+4 |
>> IBY | NOEVT+3*, NOEVT+4*, ADEV+3, MED+2* |
J | ADSEL+6~, ADSEL+7*, ADSEL+9, ADSEL+10, ADSEL+13, ADSEL+14*, ASKAD+1, ASKAD+2 |
PTF | ADSEL+6~, ADSEL+8*, ADSEL+10, DISEL+1, DISEL+3 |
QF | ADSEL+6~*, ADSEL+10*, ADSEL+11*, ADSEL+12 |
SEL | ADSEL+6~, ADSEL+10, ADSEL+15, ASKAD+4* |
X | ADSEL+6~, ASKAD+1*, ASKAD+2, ASKAD+3, ASKAD+4, MED+1*, MED+2, MED+3*, MED+4, MED+5 , MED+6 |