Routine: SROAT1P

Package	Total	Call Graph
Surgery	2	^SROSTOP $$NODATA^SROUTL0
Registration	1	DEM^VADPT
VA Fileman	1	Y^DIQ

Package

Total

Call Graph

Surgery

^SROSTOP $$NODATA^SROUTL0

Registration

DEM^VADPT

VA Fileman

Y^DIQ

Package	Total	Caller Graph
Surgery	1	SROATT1

Package

Total

Caller Graph

Surgery

SROATT1

Name	Field # of Occurrence
Y^DIQ	SET+3
^SROSTOP	HDR+1
$$NODATA^SROUTL0	SROAT1P+7
DEM^VADPT	SET+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$NODATA^SROUTL0() Line Location: SROAT1P+7
Function Call: WRITE	Prompt: !!,SRDT,?12,VADM(1),?52,SRDIAG,?112,SRSUR,!,SRTN,?12,VA("PID"),?52,SROP(1),?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,SRCODE(1) Line Location: OPS+2
Function Call: WRITE	Prompt: ?52,SROP(2) Condition for execution: $D(SROP(2)) Line Location: OPS+2
Function Call: WRITE	Prompt: ?112,SRTWO Line Location: OPS+2
Function Call: WRITE	Prompt: ! Line Location: OPS+3
Function Call: WRITE	Prompt: ?13,SRCODE(2) Condition for execution: $D(SRCODE(2)) Line Location: OPS+3
Function Call: WRITE	Prompt: ?50,SROP(3) Condition for execution: $D(SROP(3)) Line Location: OPS+3
Function Call: WRITE	Prompt: !,?50,SROP(4) Line Location: OPS+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+1
Function Call: WRITE	Prompt: !!,"There are more cases for the date range listed. 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",?52,"PRINCIPAL DIAGNOSIS",?112,"SURGEON",!,?2,"CASE #",?14,"ID#",?52,"PRINCIPAL OPERATIVE PROCEDURE",?112,"1ST ASST",!,?12,"ATTENDING CODE",?112,"2ND ASST",! Line Location: HDR+5
Function Call: WRITE	Prompt: "=" Line Location: HDR+5
Function Call: WRITE	Prompt: !!,?SRSSL,SRSS,!,?SRSSL,SRSS1 Line Location: HDR+6
Function Call: WRITE	Prompt: !!,?X,SRATT1,!,?X,SRATT2 Line Location: AT+2

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

Name	Line Occurrences
AT	SROAT1P+5, SROAT1P+6, HDR+6
CASE	MORE
HDR	SROAT1P+3, PAGE
LOOP	OPS+1
MORE	SROAT1P+5, SROAT1P+6
OTHER	OPS
PAGE	SROAT1P+5, SROAT1P+6, SET+1, PAGE+2
SET	CASE

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

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	SET+3*
>> CODE	SET+2*, SET+3
>> DFN	SET+6*
DTIME	PAGE+1
I	SET+5~, OPS, HDR+5*
IOF	HDR+2
IOSL	SROAT1P+5, SET+1
IOST	PAGE
J	SET+5~*
>> LINE	SROAT1P+2, AT+1
>> 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+8*
>> SR(0	SET+6*
>> SRATC	MORE*, CASE, SET+2
>> SRATT	SROAT1P+3, SROAT1P+4, MORE, CASE
>> SRATT1	SROAT1P+4*, AT+1, AT+2
>> SRATT2	AT+1*, AT+2
>> SRB	SROAT1P+5, SROAT1P+6
SRCODE	SET+2!, SET+3, SET+4, SET+5
SRCODE(1	SET+4, SET+5, OPS+2
SRCODE(2	SET+5*, OPS+3
>> SRDIAG	SET+7*, OPS+2
>> SRDT	SET+6*, OPS+2
>> SRFRTO	HDR+4
>> SRFST	SET+8, SET+10, OPS+2
>> SRHALT	HDR+1
>> SRHDR	SROAT1P+3, SROAT1P+4, SET+1, PAGE+3, AT, AT+2
>> SRINST	HDR+3
>> SRLONG	OTHER+1*, OTHER+2
>> SRNEW	SROAT1P+3, SROAT1P+6
SROP	OPS+1!
SROP(	LOOP+1*
SROP(1	OPS+1*, OPS+2
SROP(2	OPS+2
SROP(3	OPS+3
SROP(4	OPS+4
>> SROPER	OPS, OPS+1, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
>> SRPAGE	SROAT1P+3, HDR+3, HDR+6
>> SRPRINT	HDR+4
>> SRSAV	SROAT1P+2*, SROAT1P+8
>> SRSDATE	MORE*, CASE, SET+6
>> SRSOUT	SROAT1P+4, SROAT1P+5, SROAT1P+6, MORE, CASE, SET+1, PAGE+1, HDR+1
>> SRSS	SROAT1P+2, SROAT1P+8, HDR+6
>> SRSS1	SROAT1P+2*, HDR+6
>> SRSSL	SROAT1P+2*, HDR+6
>> SRSUR	SET+8, SET+9, OPS+2
>> SRTN	CASE*, SET+6, SET+7, SET+8, OPS, OPS+2, OTHER+1, OTHER+2
>> SRTWO	SET+8, SET+11, OPS+2
>> VA("PID"	OPS+2
>> VADM(1	OPS+2
X	SET+5~, PAGE+1, PAGE+2, AT+2*
Y	SET+3, SET+5~
>> ZTQUEUED	HDR+1

Customize PDF page

Package: Surgery

Routine: SROAT1P

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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