SDAMOWP ;ALB/CAW - Appointment Waiting Time Print Routine ; 12/1/91
Source file <SDAMOWP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
; -- print arrays
; var defined: ; SDSUB2 := top level sort after Division (clinic,stop cd,patient) ; SDSUB3 := next level sort |
||
PRINTQ | ||
SORT(DIV,SORT) | ; sort
|
|
SORTQ | ||
PRT() | ; -- print appt
; return: continue processing [ 1|yes 0|no ] ; ^TMP("SDWAIT") nodes setup: |
|
PRTQ | ||
CHECK | ; check to see if header should be printed
|
|
PAUSE | ; pause for CRT
|
|
SET(SORT,LEVEL1,LEVEL2,LEVEL3,LEVEL4) | ;
|
|
TOT | ; Totals Print
|
|
TOTQ | ||
HRS(MIN) | ;Convert minutes to hours
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|