IBDF1BA ;ALB/CJM - ENCOUNTER FORM (user options for printing - continuation of IBDF1B); 3/1/93
Source file <IBDF1BA.m>
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 |
|
FileNo | Call Tags |
---|---|
^DG(40.8 - [#40.8] | Classic Fileman Calls |