Routine: SDAMOW

Information

SDAMOW ;ALB/CAW - Waiting Time Report ; 12/1/91

Package	Total	Call Graph
Scheduling	4	CLINIC^SDAMO0 ($$DISP,START)^SDAMOW1 $$RANGE^SDAMQ ASK2^SDDIV
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	FIRST^VAUTOMA
VA Fileman	1	^DIR

Package	Total	Caller Graph
Scheduling	2	SDAM RPT WAITING TIME SDAMOW1

Name	Comments	DBIA/ICR reference
SELECT()	; -- get selection criteria ; input: none ; output: SDSEL := criteria selected ; return: was selection made [ 1\|yes 0\|no]
EN	; main entry point
ASKQ
DIV()	; -- get division data ; input: none ; output: VAUTD := divs selected (VAUTD=1 for all) ; return: was selection made [ 1\|yes 0\|no]
EN1
RANGE()	; select date range ; input: none ; output: SDBEG := begin date ; SDEND := end date ; return: was selection made [ 1\|yes 0\|no]
CLINICQ
QUE()	; -- que job ; return: did job que [ 1\|yes 0\|no ]
STOPQ
INIT()	; -- init vars
EN2
EN3
LINE(STR)	; -- print line ; input: STR := text to insert ; output: none ; return: text to use
ASK()	; -- ask if ok to use specs ; input: all selection variables ; output: none ; return: ok to continue [ 1\|yes 0\|no]
ENQ
SORT()	; -- how to sort ; input: none ; output: SDSORT := sort selected ; return: was selection made [ 1\|yes 0\|no]
CLINIC()	; -- get clinic data ; input: VAUTD := divisions selected ; output: VAUTC := clinic selected (VAUTC=1 for all) ; return: was selection made [ 1\|yes 0\|no]
STOP()	; -- get stop code data ; output: VAUTS := stop codes selected (VAUTS=1 for all) ; return: was selection made [ 1\|yes 0\|no]

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$LINE("Device Selection") Line Location: EN3+1
Function Call: WRITE	Prompt: !!,"This output requires 132 columns.",!! Line Location: EN3+2
Function Call: WRITE	Prompt: !!,$$LINE("Date Range Selection") Line Location: RANGE+6
Function Call: WRITE	Prompt: !!,$$LINE("Type of Report Criteria") Line Location: SELECT+5
Function Call: WRITE	Prompt: !!,$$LINE("Sort Selection") Line Location: SORT+5
Function Call: WRITE	Prompt: !!,"Note: Top level sort will always be by Division." Line Location: SORT+6
Function Call: WRITE	Prompt: !!,$$LINE("Clinic Selection") Line Location: CLINIC+5
Function Call: WRITE	Prompt: !!,$$LINE("Stop Codes Selection") Line Location: STOP+4
Routine Call	DIR Line Location: SELECT+10 SORT+14 ASK+6
Routine Call	%ZIS Line Location: EN3+3

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	DIV+5

Name	Line Occurrences
$$ASK	EN3
$$CLINIC	EN2+2
$$DIV	EN2
$$INIT	EN1
$$LINE	EN3+1, RANGE+6, SELECT+5, SORT+5, DIV+5, CLINIC+5, STOP+4
$$QUE	EN3+5
$$RANGE	EN1+1
$$SELECT	EN1+2
$$SORT	EN1+3
$$STOP	EN2+3
ASKQ	ASK+5
EN1	EN3
EN3	EN2+1
ENQ	EN1, EN1+1, EN1+2, EN1+3, EN2, EN2+2, EN2+3, EN3+3, EN3+4

Name	Field # of Occurrence
>> %ZIS	EN3+3*
DIC	EN+1~, STOP+5*
DIR	SELECT+10!, SORT+14!, ASK+6!
DIR("A"	SELECT+9, SORT+13, ASK+6*
DIR("B"	SELECT+9, SORT+13, ASK+6*
DIR(0	SELECT+9, SORT+13, ASK+6*
>> DIRUT	SELECT+10, SORT+14, ASKQ
IO("Q"	EN3+4, QUE+3!
IOM	LINE+7
>> POP	EN3+3
SDAMLIST	EN+1~
SDBEG	EN+1~, RANGE+7
SDEND	EN+1~, RANGE+7
SDSEL	EN+1~, SELECT+10*, SELECT+11
SDSORT	EN+1~, EN2+1, EN2+2, EN2+3, SORT+14*, SORT+15
STR	LINE~, LINE+6*, LINE+7, LINE+8
U	DIV+5
VAUTC	EN+1~, EN2+1*, ENQ+1!, CLINIC+7!, CLINICQ
VAUTD	EN+1~, ENQ+1!, DIV+6!, DIV+7
>> VAUTNI	STOP+5*
VAUTS	EN2+1*, ENQ+1!, STOP+7!, STOPQ
>> VAUTSTR	STOP+5*
>> VAUTVB	STOP+5*
X	SELECT+6, SELECT+7, SELECT+8, SELECT+9, SORT+7, SORT+8, SORT+9, SORT+10, SORT+11, SORT+12* , SORT+13, LINE+5~, LINE+7, LINE+8, QUE+5
>> Y	EN3+5, SELECT+10, SORT+14, DIV+6, CLINIC+7, STOP+7, ASK+5, ASKQ
>> ZTDESC	QUE+4*
>> ZTQUEUED	ENQ
>> ZTRTN	QUE+4*
>> ZTSAVE(	QUE+5*
ZTSK	QUE+3!, QUE+6, QUE+7