Routine: SDAMODO

Package	Total	Call Graph
Scheduling	4	(,$$SHOW)^SDAMODO1 ^SDAMODO2 $$RANGE^SDAMQ ASK2^SDDIV
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	WAIT^DICD ^DIR
Registration	1	FIRST^VAUTOMA

Package	Total	Caller Graph
Scheduling	2	SDAM PROVIDER/DIAGNOSIS REPORT SDAMODO1

Entry Points

Name	Comments	DBIA/ICR reference
PROV()	; select provider
DIV()	;
OPTIONS(CHECK)	; display options for sorting reports
ERR	;
RANGE()	; select date range for report
DIAG()	;
PICKS	;
SORT2()	; second level sort
START	;
SORT1()	; first level sort
EXIT	;
COMPL()	;
COMPLQ
LINE(STR)	; print display line
PRINT	;
QUE	;
SORTS	;
PAT()	;
FIN	;
CLINIC()	;
STOP()	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This report requires 132 columns for printout" Line Location: PRINT+1
Function Call: WRITE	Prompt: ! Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,$$LINE("Clinic Selection") Line Location: CLINIC+1
Function Call: WRITE	Prompt: !!,$$LINE("Stop Codes Selection") Line Location: STOP+1
Function Call: WRITE	Prompt: !!,$$LINE("Select Patients") Line Location: PAT+1
Function Call: WRITE	Prompt: !!,$$LINE("Select Providers") Line Location: PROV+1
Function Call: WRITE	Prompt: !!,$$LINE("Select Diagnosis Code") Line Location: DIAG+1
Function Call: WRITE	Prompt: !!,$$LINE("Date Range Selection") Line Location: RANGE+1
Function Call: WRITE	Prompt: !!,$$LINE("First level sort will be by Division") Line Location: SORT1+1
Function Call: WRITE	Prompt: !,$$LINE("Select Second Sort Level") Line Location: SORT1+2
Function Call: WRITE	Prompt: !!,$$LINE("Sorting by Division and "_$P($T(SORT+SORT1^SDAMODO1),";;",2)) Line Location: SORT2+1
Function Call: WRITE	Prompt: !,$$LINE("Select Third Sort Level") Line Location: SORT2+2
Function Call: WRITE	Prompt: !!,"NOT AVAILABLE" Line Location: ERR+1
Routine Call	%ZIS Line Location: START+2 QUE+4
Routine Call	DIR Line Location: COMPL+2 OPTIONS+8
Routine Call	%ZIS Line Location: PRINT+2

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

Name	Line Occurrences
$$CLINIC	PICKS+4
$$COMPL	FIN+1
$$DIAG	PICKS+2
$$DIV	SORTS+2
$$LINE	CLINIC+1, STOP+1, PAT+1, PROV+1, DIAG+1, RANGE+1, SORT1+1, SORT1+2, SORT2+1, SORT2+2 , DIV+1
$$OPTIONS	SORT1+3, SORT2+3
$$PAT	PICKS+3
$$PROV	PICKS+1
$$RANGE	SORTS+1
$$SORT1	SORTS+3
$$SORT2	SORTS+4
$$STOP	PICKS+5
COMPLQ	COMPL+1
EXIT	SORTS+1, SORTS+2, SORTS+3, SORTS+4, PICKS+1, PICKS+2, PICKS+3, PICKS+4, PICKS+5, PRINT+2 , PRINT+3
QUE	PRINT+3
SORTS	FIN+1

Name	Field # of Occurrence
>> %ZIS	PRINT+2*
CHECK	EXIT+2!, OPTIONS~, OPTIONS+2, OPTIONS+3, OPTIONS+4, OPTIONS+5, OPTIONS+6
CLINIC	START+1~, CLINIC+4!, CLINIC+5
DIC	EXIT+2!, CLINIC+2, STOP+2, PAT+2, PROV+2, DIAG+2*
DIC("S"	CLINIC+2*
DIR	OPTIONS+8!
DIR("?"	COMPL+2*
DIR("A"	COMPL+2, OPTIONS+7
DIR("B"	COMPL+2*
DIR(0	COMPL+2, OPTIONS+7
IO("Q"	PRINT+3, QUE+4!
IOM	LINE+3
PATN	START+1~, PAT+4!, PAT+5
PDIAG	START+1~, DIAG+4!, DIAG+5
>> POP	PRINT+2
PROVDR	START+1~, PROV+4!, PROV+5
SDBEG	START+1~, EXIT+2!, RANGE+2
SDEND	START+1~, EXIT+2!, RANGE+2
SORT1	START+1~, PICKS+1, PICKS+2, PICKS+3, PICKS+4, PICKS+5, EXIT+2!, SORT1+3*, SORT2+3
SORT2	START+1~, PICKS+1, PICKS+2, PICKS+3, PICKS+4, PICKS+5, EXIT+2!, SORT2+3*
STOPC	START+1~, STOP+4!, STOP+5
STR	EXIT+2!, LINE~, LINE+2*, LINE+3, LINE+4
U	DIV+1
VAUTC	EXIT+2!
VAUTD	START+1~, EXIT+2!, DIV+2!, DIV+3
VAUTNI	EXIT+2!, CLINIC+2, STOP+2, PAT+2, PROV+2, DIAG+2*
VAUTS	EXIT+2!
VAUTSTR	EXIT+2!, CLINIC+2, STOP+2, PAT+2, PROV+2, DIAG+2*
VAUTVB	EXIT+2!, CLINIC+2, STOP+2, PAT+2, PROV+2, DIAG+2*
X	EXIT+2!, LINE+1~, LINE+3, LINE+4, OPTIONS+1, OPTIONS+2, OPTIONS+3, OPTIONS+4, OPTIONS+5, OPTIONS+6* , OPTIONS+7, QUE+2*
Y	EXIT+2!, CLINIC+4, STOP+4, PAT+4, PROV+4, DIAG+4, SORT1+4, SORT2+4, DIV+2, COMPL+1* , COMPLQ, OPTIONS+9
>> ZTDESC	QUE+1*
>> ZTQUEUED	EXIT+1
>> ZTRTN	QUE+1*
>> ZTSAVE(	QUE+2*
>> ZTSK	QUE+3

Name	Field # of Occurrence
$T(SORT+SORT1^SDAMODO1	SORT2+1