SDNEXT ;ALB/TMP - FIND NEXT AVAILABLE APPOINTMENT FOR A CLINIC ; 18 APR 86
Source file <SDNEXT.m>
| Package | Total | Caller Graph | 
|---|---|---|
| Scheduling | 3 | SD IHS NEXT SDMULT SDNEXT | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EX2 | ||
| LIM | ||
| ONE(CLNA) | ;one clinic selected? 1 or 0 | |
| DRIVE(CLINICA,LEN,BEGEND) | ;driver | |
| ADDCL(CLINIC,PTLIST) | ;add team's associated clinics to clinic list | |
| GETCLN(TEAM,CLINIC) | ;add assoc. clinics for teams to clinic array | |
| ST | ||
| 1 | ||
| PRT | ; | |
| EXIT | ; | |
| EX | ||
| CLEAN | ; | |
| NEW | ;entry point to be use for next available appt. 3/29/96 | |
| DT | ||
| LENGTH() | ; | |
| CONMA(CIEN,CONT) | ;continue to view, exit or make appointment | 
| Name | Line Occurrences | 
|---|---|
| Function Call: READ | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^SC - [#44] | ADDCL+16 | 
| ^SCTM(404.57 - [#404.57] | ADDCL+8, ADDCL+10, ADDCL+12, ADDCL+13, ADDCL+14 | 
| Name | Line Occurrences | 
|---|---|
| $$CONMA | DRIVE+14 | 
| $$LENGTH | NEW+14 | 
| $$ONE | DRIVE+18 | 
| 1 | DT | 
| ADDCL | GETCLN+10 | 
| CLEAN | NEW+19, NEW+23, DRIVE+18 | 
| DRIVE | NEW+22 | 
| DT | DT | 
| EX | ST+3 | 
| EX2 | PRT+4 | 
| EXIT | NEW+19, NEW+23 | 
| GETCLN | NEW+20 | 
| LIM | LIM+1, LIM+2 | 
| PRT | PRT+5, PRT+6 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| %DT | DT*!, LIM+2*! | 
| %DT("A" | DT* | 
| %DT(0 | DT*, LIM+2* | 
| APPTL | NEW+14*, NEW+15, NEW+22, EXIT+1! | 
| BEGEND | DRIVE~, DRIVE+10, DRIVE+11 | 
| CIEN | ADDCL+3~, ADDCL+14*, ADDCL+15, ADDCL+16, ADDCL+17, DRIVE+5~, DRIVE+7*, DRIVE+8*, DRIVE+12, DRIVE+13 , DRIVE+14, DRIVE+15, CONMA~, PRT+2 | 
| CLINIC | GETCLN~, GETCLN+10, ADDCL~ | 
| CLINIC( | ADDCL+17* | 
| CLINICA | DRIVE~, DRIVE+18 | 
| CLINICA( | DRIVE+8, DRIVE+12, DRIVE+14 | 
| CLINICA(0 | DRIVE+18 | 
| CLNA | ONE~ | 
| CLNA( | ONE+3 | 
| CNAME | ADDCL+3~, ADDCL+16*, ADDCL+17 | 
| CNT | ONE+1~, ONE+2*, ONE+3* | 
| CONT | DRIVE+5~, DRIVE+14*, DRIVE+18, CONMA~, PRT+1*, PRT+2, PRT+3, PRT+6 | 
| COUNT | DRIVE+5~, DRIVE+7*, DRIVE+12, DRIVE+13, DRIVE+15 | 
| DIR | EX! | 
| DIR("A" | ST+1* | 
| DIR(0 | ST* | 
| DTIME | LIM, PRT+3 | 
| EN | ADDCL+3~, ADDCL+4*, ADDCL+5*, ADDCL+6 | 
| ERR | GETCLN+4~, GETCLN+5*, GETCLN+7, GETCLN+8 | 
| FIRST | NEW+16*, NEW+18, EXIT+1!, ONE+1~, ONE+4, ONE+5* | 
| FND | DT*, DRIVE+5~, DRIVE+13*, CLEAN+2! | 
| ION | SDNEXT+3, NEW+4 | 
| IOP | SDNEXT+3*!, NEW+4*! | 
| LEN | LENGTH+2~, ST+3*, ST+4*, EX+1, DRIVE~, DRIVE+12 | 
| LIST | GETCLN+4~, GETCLN+5*, GETCLN+7, GETCLN+8, GETCLN+10 | 
| NODE | ADDCL+3~, ADDCL+6*, ADDCL+7 | 
| OKAY | GETCLN+4~, GETCLN+8* | 
| PTLIST | ADDCL~, ADDCL+5, ADDCL+6 | 
| RANG | NEW+18*, NEW+19, NEW+22, EXIT+1! | 
| RET | ONE+1~, ONE+2*, ONE+4*, ONE+6 | 
| SC | DRIVE+13*, CLEAN+3! | 
| SCOKNULL | NEW+2~, NEW+3* | 
| SCPCC | CLEAN+3! | 
| SCPCMM | EXIT+1! | 
| SCUP | NEW+1!, NEW+10, NEW+13, EXIT+2! | 
| SDA | ADDCL+11*, ADDCL+12*, ADDCL+13, ADDCL+14, ADDCL+18! | 
| SDAPP | CLEAN+2! | 
| SDC | CLEAN+2! | 
| SDC( | DRIVE+12*, DRIVE+15! | 
| SDC(1 | LIM+1 | 
| SDC1 | CLEAN+2! | 
| SDC1( | DRIVE+12*, DRIVE+15! | 
| SDCLN | DRIVE+18*, CLEAN+2! | 
| SDCT | 1*, NEW+5*, EXIT+1!, DRIVE+6*, DRIVE+13*, CLEAN+2! | 
| SDL | CLEAN+2! | 
| SDMAX | DT, LIM, LIM+1, LIM+2*, DRIVE+11*, CLEAN+2! | 
| SDNEXT | 1*, DT, NEW+5*, EXIT+1!, DRIVE+6*, DRIVE+9*, CLEAN+2! | 
| SDPCM1 | CLEAN+3! | 
| SDPCMM | CLEAN+2! | 
| SDPCMM( | PRT+2 | 
| SDSTRTDT | DT*, LIM+2, DRIVE+10*, CLEAN+2! | 
| SECOND | NEW+17*, NEW+18, EXIT+1! | 
| STOP | DRIVE+7*, DRIVE+8, DRIVE+17, CLEAN+2!, ONE+4*, PRT+4*, PRT+7* | 
| STP | ONE+1~, ONE+2*, ONE+3 | 
| TEAM | GETCLN~ | 
| TEAM( | GETCLN+6 | 
| TM | GETCLN+4~, GETCLN+5*, GETCLN+6*, GETCLN+8 | 
| TPIEN | ADDCL+3~, ADDCL+7*, ADDCL+8, ADDCL+10, ADDCL+12, ADDCL+13, ADDCL+14 | 
| TPNODE | ADDCL+3~, ADDCL+8*, ADDCL+9 | 
| VAUTC | NEW+1!, NEW+12, NEW+20, NEW+22, EXIT+1! | 
| VAUTCA | NEW+7*, EXIT+2! | 
| VAUTD | NEW+8*, EXIT+1! | 
| VAUTNA | NEW+6*, EXIT+1! | 
| VAUTT | NEW+1!, NEW+12, NEW+20, EXIT+1! | 
| X | DT, LIM*, LIM+1, ST+3, ST+4, EX!, PRT+3*, PRT+4*, PRT+5, PRT+6 , PRT+7, PRT+8*, EX2 | 
| Y | DT, LIM*, LIM+1*, LIM+2, ST+3, EX! |