Routine: SDAMODO

Information

SDAMODO ;ALB/SCK - PROVIDER DIAGNOSTICS REPORT ;05 Oct 98 8:39 PM

Source file <SDAMODO.m>

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