SDAMOWP ;ALB/CAW - Appointment Waiting Time Print Routine ; 12/1/91
Source file <SDAMOWP.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | PID^VADPT6 ($$FDTTM,PAUSE)^VALM1 |
| Scheduling | 1 | (HDR,HDRD,HDRT,LEGEND,TOT,TOTP)^SDAMOWP1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRINTQ | ||
| PRTQ | ||
| SET(SORT,LEVEL1,LEVEL2,LEVEL3,LEVEL4) | ;
|
|
| TOTQ | ||
| TOT | ; Totals Print
|
|
| SORTQ | ||
| SORT(DIV,SORT) | ; sort
|
|
| PAUSE | ; pause for CRT
|
|
| PRT() | ; -- print appt
; return: continue processing [ 1|yes 0|no ] ; ^TMP("SDWAIT") nodes setup: |
|
| ; -- print arrays
; var defined: ; SDSUB2 := top level sort after Division (clinic,stop cd,patient) ; SDSUB3 := next level sort |
||
| CHECK | ; check to see if header should be printed
|
|
| HRS(MIN) | ;Convert minutes to hours
|
| Name | Field # of Occurrence |
|---|---|
| HDR^SDAMOWP1 | PRINT+7, SORT+5, SORT+6, CHECK+1, CHECK+2, CHECK+3 |
| HDRD^SDAMOWP1 | PRINT+13 |
| HDRT^SDAMOWP1 | PRINT+13 |
| LEGEND^SDAMOWP1 | PRINT+15, TOT+2 |
| TOT^SDAMOWP1 | PRINT+14, PRINT+15 |
| TOTP^SDAMOWP1 | SORT+4 |
| PID^VADPT6 | PRT+7 |
| $$FDTTM^VALM1 | PRT+9, PRT+10 |
| PAUSE^VALM1 | PRINT+9, CHECK+2, PAUSE+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | PRINT+14 |
| ^DPT - [#2] | PRT+8 |
| ^TMP("SDWAIT" | PRINT+7, PRINT+11, SORT+5, SORT+6, SORT+7, SORT+8, SORT+9 |
| ^TMP("SDWTTOT" | SORT+14 |
| ^TMP("SDWTTOTD" | PRINT+14, SORT+18 |
| Name | Line Occurrences |
|---|---|
| $$HRS | PRT+9, PRT+10, TOT+2 |
| $$PRT | SORT+9, SORT+11 |
| CHECK | SORT+9, SORT+11 |
| PAUSE | PRINT+12, SORT+16 |
| PRINTQ | PRINT+7, PRINT+11, PRINT+12 |
| SET | SORT+9, SORT+11 |
| SORT | PRINT+11 |
| SORTQ | SORT+4 |
| TOT | SORT+15, SORT+19 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SORT+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | PRT+7*, PRT+8 |
| DIV | SORT~, SORT+4, SORT+5, SORT+6, SORT+7, SORT+8, SORT+9, SORT+14 |
| HRS | HRS+2~, HRS+3* |
| HRS1 | HRS+2~, HRS+3*, HRS+4 |
| IO | PRINT+5 |
| IOSL | CHECK+2, CHECK+3 |
| IOST | PRINT+9, CHECK+2, PAUSE+2 |
| LEVEL1 | PRINT+5~, PRINT+7*, SORT+3*, SORT+4, SORT+5*, SORT+6*, SORT+7, SORT+8, SORT+9, SORT+11 , SORT+14, SET~, SET+1, SET+2, SET+3, SET+4, SET+5 |
| LEVEL2 | SORT+3*, SORT+7*, SORT+8, SORT+9, SORT+11, SET~, SET+1, SET+2, SET+3, SET+4 , SET+5 |
| LEVEL3 | SORT+3*, SORT+8*, SORT+9, SORT+11, SET~, SET+1, SET+2, SET+3, SET+4, SET+5 |
| LEVEL4 | SORT+3*, SORT+9*, SORT+11, SET~, SET+3, SET+4 |
| MIN | HRS~, HRS+3*, HRS+4 |
| >> SDASH | PRINT+13, PRINT+14 |
| >> SDASH1 | TOT+2 |
| >> SDATA | SORT+9*, SORT+11*, PRT+7, PRT+9, PRT+10 |
| >> SDATE | PRINT+6*, PRT+9, SET+1*, SET+2*, SET+3*, SET+4*, SET+5* |
| SDCLN | PRINT+5~, PRINT+6*, PRT+8, SET+1*, SET+2*, SET+3*, SET+4*, SET+5* |
| SDDIV | PRINT+5~, PRINT+6*, PRINT+7, PRINT+11*, PRINT+13*, PRINT+14*, SORT+18 |
| SDNO | PRINT+5~, PRINT+7* |
| >> SDPAGE | CHECK+1 |
| SDPAT | PRINT+5~, PRINT+6*, SET+1*, SET+2*, SET+3*, SET+4*, SET+5* |
| SDQUIT | PRINT+5~, PRINT+6*, PRINT+11, PRINT+12, PRINT+14, SORT+6, SORT+7, SORT+8, SORT+9, SORT+11 , SORT+12, SORT+16, CHECK+2*, PAUSE+2* |
| SDREQ | PRT+6~ |
| SDROU | PRINT+5~ |
| >> SDSEL | SORT+2, SORT+4, SORT+17 |
| >> SDSORT | PRINT+11, SORT+17, PRT+8 |
| SDSTP | PRINT+5~, PRINT+6*, SET+3*, SET+4* |
| SDTIME | PRT+6~ |
| SDVAR | PRT+6~ |
| SORT | SORT~, SORT+2, SORT+4, SORT+5, SORT+6, SORT+9, SORT+10, SORT+11, SORT+13, SORT+16 , SET~, SET+1, SET+2, SET+3, SET+4, SET+5 |
| TOTAL | SORT+13~, SORT+14*, SORT+17~, SORT+18* |
| TOTAL1 | SORT+13~, SORT+14*, SORT+17~, SORT+18*, TOT+2 |
| TOTAL2 | SORT+13~, SORT+14*, SORT+17~, SORT+18*, TOT+2 |
| TOTAL3 | SORT+13~, SORT+14*, SORT+17~, SORT+18*, TOT+2 |
| TOTAL4 | SORT+13~, SORT+14*, SORT+17~, SORT+18*, TOT+2 |
| U | PRINT+14, SORT+14, SORT+18, PRT+7, PRT+8, PRT+9, PRT+10 |
| VA | PRT+6~ |
| VA("BID" | PRT+8 |
| Y | PRT+6~, PRT+11*, PRTQ, CHECK+2, PAUSE+2 |