Routine: SROAT2T

Information

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

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
VA FileMan	1	Y^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Surgery	1	SROATT2

Entry Points

Name	Comments	DBIA/ICR reference
PRINT
HDR	; print heading
BREAK
SPEC	; SPECIALTIES

External References

Name	Field # of Occurrence
Y^DIQ	PRINT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?1,"TOTAL CASES",?16,"ATTENDING CODE",!,?1,"-----------",?16,"--------------" Line Location: SROAT2T+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: SROAT2T+5
Function Call: WRITE	Prompt: !,?1,$J($S(PRINT=1:^TMP("SRTC",$J,CODE),1:^TMP("SRTOT",$J,SRSS,CODE)),6),?16,SRCODE Line Location: PRINT+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,?(80-$L(SRINST)\2),SRINST,?76,"PAGE",!,?32,"SURGICAL SERVICE",?78,SRPAGE,!,?22,"ATTENDING SURGEON CUMULATIVE REPORT" Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO Line Location: HDR+3
Function Call: WRITE	Prompt: !,?30,"DATE PRINTED: ",SRPRINT,!!,?8,"REVIEWED BY: ",?53,"DATE REVIEWED: " Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: HDR+5
Function Call: WRITE	Prompt: "=" Line Location: HDR+5
Function Call: READ	Variable: X Timeout: DTIME Line Location: BREAK+0
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want to display the totals for each specialty, or '^' to",!,"exit from this report." Line Location: BREAK+1
Function Call: WRITE	Prompt: !!,?(80-$L(SRSSN)\2),SRSSN,!!,?1,"TOTAL CASES",?16,"ATTENDING/RES SUP CODE",!,?1,"-----------",?16,"--------------" Line Location: SPEC+3
Function Call: WRITE	Prompt: !!,?1,$J(^TMP("SRTOT",$J,SRSS),6),?16,"TOTAL CASES FOR THIS SPECIALTY" Line Location: SPEC+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	PRINT+1
^TMP("SRTC"	SROAT2T+4, PRINT+2
^TMP("SRTOT"	SROAT2T+5, SROAT2T+7, PRINT+2, SPEC+1, SPEC+4, SPEC+5

Label References

Name	Line Occurrences
BREAK	SROAT2T+6, BREAK+1, SPEC+6
HDR	SROAT2T+3, SPEC+3
PRINT	SROAT2T+4, SPEC+4
SPEC	SROAT2T+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	PRINT+1*
>> CODE	SROAT2T+4, PRINT, PRINT+1, PRINT+2, SPEC+4
DTIME	BREAK
>> HDR	SROAT2T+4*
>> I	SROAT2T+4*
IOF	HDR+1
IOST	SROAT2T+6, HDR+4, SPEC+6
>> LINE	HDR+5*
>> PRINT	SROAT2T+4, SROAT2T+7, PRINT+2
>> SRCODE	PRINT, PRINT+1, PRINT+2
>> SRED	SROAT2T+5
>> SRFRTO	HDR+3
>> SRINST	HDR+2
>> SRPAGE	SROAT2T+2, HDR+2, HDR+5
>> SRPRINT	HDR+4
>> SRSD	SROAT2T+5
>> SRSOUT	SROAT2T+3, SROAT2T+6, SROAT2T+7, BREAK*, SPEC+6
>> SRSS	SROAT2T+7*, PRINT+2, SPEC+1, SPEC+2, SPEC+4, SPEC+5
>> SRSSN	SPEC+2*, SPEC+3
>> TOTAL	SPEC+1*
>> X	BREAK*, BREAK+1
>> Y	PRINT+1*

Customize PDF page

Package: Surgery