SDNEXT ;ALB/TMP - FIND NEXT AVAILABLE APPOINTMENT FOR A CLINIC ; 18 APR 86
Source file <SDNEXT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
1 | ||
DT | ||
LIM | ||
NEW | ;entry point to be use for next available appt. 3/29/96
|
|
EXIT | ;
|
|
LENGTH() | ;
|
|
ST | ||
EX | ||
GETCLN(TEAM,CLINIC) | ;add assoc. clinics for teams to clinic array
|
|
ADDCL(CLINIC,PTLIST) | ;add team's associated clinics to clinic list
|
|
DRIVE(CLINICA,LEN,BEGEND) | ;driver
|
|
CLEAN | ;
|
|
ONE(CLNA) | ;one clinic selected? 1 or 0
|
|
CONMA(CIEN,CONT) | ;continue to view, exit or make appointment
|
|
PRT | ;
|
|
EX2 |
Name | Line Occurrences |
---|---|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|