Routine: SROAT0P

Information

SROAT0P ;B'HAM ISC/MAM - ATTENDING SURGEON REPORT (CONT.) ; [ 05/11/04 2:33 PM ]

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Registration	1	DEM^VADPT
Surgery	1	^SROSTOP
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	SROATT0

Entry Points

Name	Comments	DBIA/ICR reference
SET	; print case
OPS
OTHER	; other operations
LOOP	; break procedure if greater than 55 characters
PAGE
HDR	; print heading

External References

Name	Field # of Occurrence
Y^DIQ	SET+2
^SROSTOP	HDR+1
DEM^VADPT	SET+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,SRDT,?12,VADM(1),?50,SRSS,?112,SRSUR,!,SRTN,?12,VA("PID"),?50,SRDIAG,?112,SRFST,! Line Location: OPS+2
Function Call: WRITE	Prompt: "ABORTED" Condition for execution: $P($G(^SRF(SRTN,30)),"^") Line Location: OPS+2
Function Call: WRITE	Prompt: ?12,SRATC(1),?50,SROP(1),?112,SRTWO Line Location: OPS+2
Function Call: WRITE	Prompt: ! Line Location: OPS+3
Function Call: WRITE	Prompt: ?13,SRATC(2) Condition for execution: $D(SRATC(2)) Line Location: OPS+3
Function Call: WRITE	Prompt: ?50,SROP(2) Condition for execution: $D(SROP(2)) Line Location: OPS+3
Function Call: WRITE	Prompt: !,?50,SROP(3) Line Location: OPS+4
Function Call: WRITE	Prompt: !,?50,SROP(4) Line Location: OPS+4
Function Call: READ	Variable: X Timeout: DTIME Line Location: PAGE+1
Function Call: WRITE	Prompt: !!,"There are more cases for the date range selected. If you want to continue",!,"listing them, enter RETURN. Enter '^' to exit from this option." Line Location: PAGE+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: ",SRPAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?54,"ATTENDING SURGEON REPORT",?100,"DATE REVIEWED: " Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT Line Location: HDR+4
Function Call: WRITE	Prompt: !!,?3,"DATE",?12,"PATIENT",?50,"SURGICAL SPECIALTY",?112,"PRIMARY SURGEON",!,?2,"CASE #",?14,"ID#",?50,"PRINCIPAL DIAGNOSIS",?112,"1ST ASST",!,?12,"ATTENDING/RES SUP CODE",?50,"OPERATIVE PROCEDURE(S)",?112,"2ND ASST",! Line Location: HDR+5
Function Call: WRITE	Prompt: "=" Line Location: HDR+5
Function Call: WRITE	Prompt: !!,?(132-$L(SRATT)\2),SRATT,!,?(132-$L(SRATT)\2),SRATT1 Line Location: HDR+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	SET+2
^SRF - [#130]	SET+2, SET+6, SET+7, SET+8, SET+9, OPS, OPS+2, OTHER+1, OTHER+2
^SRO(137.45 - [#137.45]	SET+7
^TMP("SR"	SROAT0P+3
^VA(200 - [#200]	SET+10, SET+11, SET+12

Label References

Name	Line Occurrences
HDR	SROAT0P+2, PAGE
LOOP	OPS+1
OTHER	OPS
PAGE	SET+1, PAGE+2
SET	SROAT0P+3

Naked Globals

Name	Field # of Occurrence
^(	SET+9
^(34	SET+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	SET+2*
>> DFN	SET+6*
DTIME	PAGE+1
I	SET+5~, OPS, HDR+5*
IOF	HDR+2
IOSL	SET+1
IOST	PAGE
J	SET+5~*
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OPER	OPS, OTHER+1, OTHER+2
>> SR(	SET+9*
>> SR(0	SET+6*
SRATC	SET+2!, SET+3, SET+4, SET+5
SRATC(1	SET+4, SET+5, OPS+2
SRATC(2	SET+5*, OPS+3
>> SRATT	HDR+6
>> SRATT1	HDR+6
>> SRDIAG	SET+8*, OPS+2
>> SRDT	SET+6*, OPS+2
>> SRFRTO	HDR+4
>> SRFST	SET+9, SET+11, OPS+2
>> SRHALT	HDR+1
>> SRINST	HDR+3
>> SRLONG	OTHER+1*, OTHER+2
SROP	OPS+1!
SROP(	LOOP+1*
SROP(1	OPS+1*, OPS+2
SROP(2	OPS+3
SROP(3	OPS+4
SROP(4	OPS+4
>> SROPER	OPS, OPS+1, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
>> SRPAGE	SROAT0P+2, HDR+3, HDR+6
>> SRPRINT	HDR+4
>> SRSDATE	SROAT0P+3*, SET+6
>> SRSOUT	SROAT0P+2, SROAT0P+3, SET+1, PAGE+1, HDR+1
>> SRSS	SET+7*, OPS+2
>> SRSUR	SET+9, SET+10, OPS+2
>> SRTN	SROAT0P+3*, SET+2, SET+6, SET+7, SET+8, SET+9, OPS, OPS+2, OTHER+1, OTHER+2
>> SRTWO	SET+9, SET+12, OPS+2
>> VA("PID"	OPS+2
>> VADM(1	OPS+2
X	SET+5~, PAGE+1, PAGE+2
Y	SET+2, SET+5~
>> ZTQUEUED	HDR+1

Customize PDF page

Package: Surgery