Routine: SROAT2P

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

Package

Total

Call Graph

Registration

DEM^VADPT

Surgery

$$NODATA^SROUTL0

VA Fileman

Y^DIQ

Package	Total	Caller Graph
Surgery	1	SROATT2

Package

Total

Caller Graph

Surgery

SROATT2

Name	Field # of Occurrence
Y^DIQ	SET+3
$$NODATA^SROUTL0	SROAT2P+4
DEM^VADPT	SET+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$NODATA^SROUTL0() Line Location: SROAT2P+4
Function Call: WRITE	Prompt: !!,SRDT,?12,VADM(1),?50,SRDIAG,?112,SRSUR,!,SRTN,?12,VA("PID"),?50,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: ?50,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 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+1
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+2
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT Line Location: HDR+3
Function Call: WRITE	Prompt: !!?3,"DATE",?12,"PATIENT",?50,"PRINCIPAL DIAGNOSIS",?112,"SURGEON",!,?2,"CASE #",?14,"ID#",?50,"PRINCIPAL OPERATIVE PROCEDURE",?112,"1ST ASST",!,?12,"ATTENDING CODE",?112,"2ND ASST",! Line Location: HDR+4
Function Call: WRITE	Prompt: "=" Line Location: HDR+4
Function Call: WRITE	Prompt: !!,?X,SRSSN,!,?X,SRSS1 Line Location: SPEC+2
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
^TMP("SR"	SROAT2P+3, SROAT2P+4, MORE+3, CASE
^VA(200 - [#200]	SET+9, SET+10, SET+11

Name	Line Occurrences
AT	MORE+1, MORE+2
CASE	MORE+3
HDR	SROAT2P+4, PAGE
LOOP	OPS+1
MORE	SROAT2P+3
OTHER	OPS
PAGE	SROAT2P+3, MORE+1, MORE+2, 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+4*
IOF	HDR+1
IOSL	MORE+1, SET+1
IOST	PAGE
J	SET+5~*
>> LINE	SPEC+1, 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+3*, CASE, SET+2
>> SRATT	SROAT2P+3*, MORE, MORE+3, CASE
>> SRATT1	MORE*, AT+1, AT+2
>> SRATT2	AT+1*, AT+2
>> SRB	MORE+1, MORE+2
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
>> SRFLG	PAGE*
>> SRFRTO	HDR+3
>> SRFST	SET+8, SET+10, OPS+2
>> SRHDR	SROAT2P+2, SROAT2P+3, SET+1, AT, AT+2*
>> SRINST	HDR+2
>> SRLONG	OTHER+1*, OTHER+2
>> SRNEW	SROAT2P+3, MORE+2
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	SROAT2P+2, HDR+2, HDR+5
>> SRPRINT	HDR+3
>> SRSDATE	MORE+3*, CASE, SET+6
>> SRSOUT	SROAT2P+3, MORE, MORE+1, MORE+2, MORE+3, CASE, SET+1, PAGE+1*
>> SRSS	SROAT2P+2, SROAT2P+3, MORE+3, CASE, SPEC
>> SRSS1	SPEC+1*, SPEC+2
>> SRSSN	SPEC*, SPEC+1, SPEC+2
>> 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, SPEC+2, AT+2
Y	SET+3, SET+5~

Customize PDF page

Package: Surgery

Routine: SROAT2P

Information

Source Information

Call Graph

Call Graph Total: 3

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
SPEC
OTHER	; other operations
AT
PAGE
LOOP	; break procedure if greater than 55 characters
MORE