Routine: SDAMODO1

Information

SDAMODO1 ;ALB/SCK - PROVIDER DX REPORT, DISPLAY OPTIONS ; 05 Oct 98 8:42 PM

Name	Comments	DBIA/ICR reference
START	;
SHOW()	; display selected report options
SORT	;
VAR	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,*13 Line Location: SHOW+2
Function Call: WRITE	Prompt: !!,$$LINE^SDAMODO("Report Specifications") Line Location: SHOW+3
Function Call: WRITE	Prompt: !!,"Encounter Dates: ",$$FMTE^XLFDT(SDBEG,"D")," to ",$$FMTE^XLFDT(SDEND,"D") Line Location: SHOW+4
Function Call: WRITE	Prompt: !!,"Report will be sorted by Division," Line Location: SHOW+5
Function Call: WRITE	Prompt: !,"Divisions Selected: ",$S(VAUTD:"ALL",1:"") Line Location: SHOW+6
Function Call: WRITE	Prompt: !?5,VAUTD(SD) Line Location: SHOW+7
Function Call: WRITE	Prompt: !!,"Then sorted by ",$P($T(SORT+SORT1),";;",2),", ",$P($T(SORT+SORT2),";;",2)," and Encounter Date" Line Location: SHOW+8
Function Call: WRITE	Prompt: !!,$P($T(SORT+SORT1),";;",2)," Selected: ",$S(@SVAR1:"ALL",1:"") Line Location: SHOW+10
Function Call: WRITE	Prompt: !?5,@SVAR1@(SD) Line Location: SHOW+11
Function Call: WRITE	Prompt: !!,$P($T(SORT+SORT2),";;",2)," Selected: ",$S(@SVAR2:"ALL",1:"") Line Location: SHOW+13
Function Call: WRITE	Prompt: !?5,@SVAR2@(SD) Line Location: SHOW+14
Function Call: WRITE	Prompt: !,$$LINE^SDAMODO("") Line Location: SHOW+15