Routine: SDAMODO

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Scheduling	4	(,$$SHOW)^SDAMODO1 ^SDAMODO2 $$RANGE^SDAMQ ASK2^SDDIV
VA FileMan	2	WAIT^DICD ^DIR
DRG Grouper	1	$$IMP^ICDEX
Registration	1	FIRST^VAUTOMA

Package	Total	Caller Graph
Scheduling	2	SDAM PROVIDER/DIAGNOSIS REPORT SDAMODO1
Kernel	1	^DIC(19

Entry Points

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$LINE("Ending Date must be prior to "_$$FMTE^XLFDT(ICD10IMPDT,"5Z")_" for ICD9 diagnosis codes.") Line Location: SORTS+2
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+2
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: PRINT+2
Routine Call	%ZIS Line Location: START+3 QUE+4
Routine Call	DIR Line Location: COMPL+2 OPTIONS+10

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

Name	Line Occurrences
$$CLINIC	PICKS+4
$$COMPL	FIN+1
$$DIAG	PICKS+2
$$DIV	SORTS+3
$$LINE	SORTS+2, CLINIC+1, STOP+1, PAT+1, PROV+1, DIAG+2, 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+4
$$SORT2	SORTS+5
$$STOP	PICKS+5
COMPLQ	COMPL+1
EXIT	SORTS+1, SORTS+3, SORTS+4, SORTS+5, PICKS+1, PICKS+2, PICKS+3, PICKS+4, PICKS+5, PRINT+2 , PRINT+3
QUE	PRINT+3
SORTS	SORTS+2, FIN+1

Name	Field # of Occurrence
>> %ZIS	PRINT+2*
CHECK	EXIT+2!, OPTIONS~, OPTIONS+2, OPTIONS+4, OPTIONS+5, OPTIONS+6, OPTIONS+7, OPTIONS+8
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+10!
DIR("?"	COMPL+2*
DIR("A"	COMPL+2, OPTIONS+9
DIR("B"	COMPL+2*
DIR(0	COMPL+2, OPTIONS+9
ICD10IMPDT	START+2~*, SORTS+2, DIAG+2, OPTIONS+4, OPTIONS+5
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~, SORTS+2, EXIT+2!, DIAG+2, RANGE+2, OPTIONS+4, OPTIONS+5
SDEND	START+1~, SORTS+2, 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+4, OPTIONS+5, OPTIONS+6, OPTIONS+7* , OPTIONS+8, OPTIONS+9, 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+11
>> 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