Routine: SROPAC0

Package	Total	Call Graph
Surgery	2	(,HDR,PAGE)^SROPAC1 $$NODATA^SROUTL0
Registration	1	DEM^VADPT
VA Fileman	1	D^DIQ

Package

Total

Call Graph

(,HDR,PAGE)^SROPAC1 $$NODATA^SROUTL0

DEM^VADPT

D^DIQ

Package	Total	Caller Graph
Surgery	1	SROPACT

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
CASE
SET	;
ROOM
OPS
OTHER	; other operations
LOOP	; break procedure if greater than 50 characters

Name	Line Occurrences
Function Call: WRITE	Prompt: $$NODATA^SROUTL0() Line Location: SROPAC0+4
Function Call: WRITE	Prompt: !!,"OPERATING ROOM: "_SROR,! Line Location: ROOM+1

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	SET+3
^SRF - [#130]	SET+1, SET+5, SET+9, OPS, OPS+2, OTHER+1, OTHER+2
^TMP("SRACT"	SROPAC0+3, SROPAC0+4, CASE
^VA(200 - [#200]	SET+6, SET+7

Name	Field # of Occurrence
^(	SET+3, SET+5, OPS+2
^(34	SET+9

Name	Field # of Occurrence
>> DFN	SET+1*, SET+3
>> I	OPS*
IOSL	ROOM
>> 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+5*, SET+6
>> SRAN1	SET+5, SET+6, SET+7*
>> SRAN2	SET+5, SET+6, SET+7*
>> SRATT	SET+5, SET+6
>> SRDIAG	SET+9*
>> SRFST	SET+5, SET+6
>> SRINTIME	OPS+2, OPS+3
>> SRLONG	OTHER+1*, OTHER+2
>> SRNM	SET+2*
SROP	OPS+1!
SROP(	LOOP+1*
SROP(1	OPS+1*
>> SROPER	OPS, OPS+1, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
>> SROR	SROPAC0+3*, CASE, ROOM+1
>> SROUTIME	OPS+2, OPS+4, OPS+5*
>> SRSDATE	SROPAC0+3*, CASE
SRSLOC	SET+3!, SET+4
>> SRSOUT	SROPAC0+2*, SROPAC0+3, CASE
>> SRSUR	SET+5, SET+6
>> SRTN	CASE*, SET+1, SET+5, SET+9, OPS, OPS+2, OTHER+1, OTHER+2
>> USER	SET+8*
>> VADM(1	SET+2
>> Y	OPS+3, OPS+5

Information