IBDF1BA ;ALB/CJM - ENCOUNTER FORM (user options for printing - continuation of IBDF1B); 3/1/93
Source file <IBDF1BA.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | ^DIC ^DIR |
Automated Information Collection System | 1 | $$DIVISION^IBDF1B5 |
Registration | 1 | SDA^VADPT |
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 |
---|---|---|
Automated Information Collection System | 1 | IBDF1B |
Name | Comments | DBIA/ICR reference |
---|---|---|
TERMSTRT | ;get terminal digit to restart from - OUTPUT=IBREPRNT
|
|
CLNCSTRT | ;get clinic and division to restart from,OUTPUT=IBREPRNT (name of clinic) and IBSTRTDV (division to restart from)
|
|
SEARCH | ;get the appointment data on a patient, put in IBTMP array, indexed by appointment
|
|
DISP | ;display patients/clinics appointments found and get users choice
|
|
ENDDISP | ||
STARTDIV() | ;asks what division to restart the job from and returns division name, or "" if user declines
|
|
SORTBY | ;sort by clinic/patient, clinic/terminal digit, or terminal digit?
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DG(40.8 - [#40.8] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | CLNCSTRT+8, STARTDIV+3 |
^SC - [#44] | CLNCSTRT+6 |
^SD(409.95 - [#409.95] | SEARCH+7 |
^SD(409.96 - [#409.96] | SEARCH+7 |
^TMP("IBDF" | DISP+13*, DISP+15* |
^UTILITY("VASD" | SEARCH+3, SEARCH+4, SEARCH+5, SEARCH+9, SEARCH+10!, ENDDISP! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
APPT | SEARCH+2~, SEARCH+5*, SEARCH+6, SEARCH+9 |
CLINIC | SEARCH+2~, SEARCH+5*, SEARCH+6, SEARCH+7, SEARCH+9 |
CLNCIEN | DISP+2~, DISP+9*, DISP+13 |
CLNCNAME | DISP+2~, DISP+9*, DISP+13 |
>> DFN | SEARCH+9, DISP+13, DISP+15 |
DIC | STARTDIV+2!*, STARTDIV+4! |
DIC("A" | STARTDIV+2* |
DIC("B" | STARTDIV+3* |
DIC(0 | STARTDIV+2* |
DIR | TERMSTRT+5!, CLNCSTRT+5!, DISP+7!, SORTBY+1!, SORTBY+3! |
DIR("?" | TERMSTRT+1*, CLNCSTRT+4*, SORTBY+2* |
DIR("A" | TERMSTRT+1*, CLNCSTRT+4*, DISP+7*, SORTBY+3* |
DIR("B" | SORTBY+3* |
DIR(0 | TERMSTRT+1*, CLNCSTRT+4*, DISP+7*, SORTBY+1* |
DIROUT | ENDDISP! |
DIRUT | TERMSTRT+2, CLNCSTRT+5, DISP+7, ENDDISP!, SORTBY+3 |
DTOUT | ENDDISP!, STARTDIV+5 |
DUOUT | ENDDISP!, STARTDIV+5 |
IBDIV | STARTDIV+1~, STARTDIV+3* |
>> IBDT | SEARCH+3 |
IBI | DISP+6*, DISP+7, DISP+8*, ENDDISP! |
IBJ | DISP+6*, ENDDISP! |
IBLN | SEARCH+2~, SEARCH+5*, DISP+6*, ENDDISP! |
>> IBNM | SEARCH+9, DISP+3, DISP+4, DISP+5, DISP+13 |
>> IBREPRNT | TERMSTRT+1*, TERMSTRT+2, TERMSTRT+4*, CLNCSTRT+3*, CLNCSTRT+7* |
>> IBSRT | SORTBY+5* |
>> IBSTRTDV | CLNCSTRT+8* |
IBTMP | DISP+3, DISP+4, ENDDISP! |
IBTMP( | SEARCH+9*, DISP+6, DISP+8, DISP+9 |
IBX | SEARCH+2~, SEARCH+4*, SEARCH+5, SEARCH+9, DISP+6*, DISP+8*, DISP+9, DISP+13, DISP+15, ENDDISP! |
NODE | CLNCSTRT+2~, CLNCSTRT+6*, CLNCSTRT+7, CLNCSTRT+8 |
>> QUIT | SORTBY+3*, SORTBY+4* |
VAERR | SEARCH+3, SEARCH+10! |
VASD | SEARCH+10! |
VASD("F" | SEARCH+3* |
VASD("T" | SEARCH+3* |
VASD("W" | SEARCH+3* |
X | ENDDISP! |
Y | TERMSTRT+2, TERMSTRT+3, TERMSTRT+4, CLNCSTRT+5, CLNCSTRT+6, DISP+8, ENDDISP!, STARTDIV+5, STARTDIV+6, SORTBY+4 , SORTBY+5 |