Routine: SROAT0T

Information

SROAT0T ;B'HAM ISC/MAM - ATTENDING SURGEON CUMULATIVE ; [ 05/11/04 2:33 PM ]

Source file <SROAT0T.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?1,"TOTAL CASES",?16,"ATTENDING CODE",!,?1,"-----------",?16,"--------------" Line Location: SROAT0T+3
Function Call: WRITE	Prompt: !!,?1,$J(^TMP("SRTOT",$J),6),?16,"TOTAL CASES FROM "_$E(SRSD,4,5)_"/"_$E(SRSD,6,7)_"/"_$E(SRSD,2,3)_" TO "_$E(SRED,4,5)_"/"_$E(SRED,6,7)_"/"_$E(SRED,2,3) Line Location: SROAT0T+5
Function Call: WRITE	Prompt: !,?1,$J(^TMP("SRTOT",$J,CODE),6),?16,SRCODE Line Location: PRINT+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(80-$L(SRINST)\2),SRINST,!,?32,"SURGICAL SERVICE",!,?22,"ATTENDING SURGEON CUMULATIVE REPORT" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO Line Location: HDR+4
Function Call: WRITE	Prompt: !,?30,SRPRINT,!!,?8,"REVIEWED BY: ",?53,"DATE REVIEWED: " Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: "=" Line Location: HDR+6
Function Call: WRITE	Prompt: !!,?(80-$L(SRATT)\2),SRATT,!,?(80-$L(SRATT)\2),SRATT1 Line Location: HDR+7
Function Call: READ	Variable: X Timeout: DTIME Line Location: PAGE+0
Function Call: WRITE	Prompt: !!,"Enter RETURN to continue printing the report, or '^' to exit from this option." Line Location: PAGE+1