Routine: SROADOC1

Package	Total	Call Graph
Surgery	6	CODES^SROADOC TECH^SROPRIN ^SROSTOP $$NODATA^SROUTL0 ^SRSKILL MINS^SRSUTL2
Kernel	1	^%ZISC
Pharmacy Data Management	1	DATA^PSS50
Registration	1	DEM^VADPT
VA Fileman	1	Y^DIQ

Package

Total

Call Graph

Surgery

CODES^SROADOC TECH^SROPRIN ^SROSTOP $$NODATA^SROUTL0 ^SRSKILL MINS^SRSUTL2

Kernel

^%ZISC

Pharmacy Data Management

DATA^PSS50

Registration

DEM^VADPT

VA Fileman

Y^DIQ

Package	Total	Caller Graph
Surgery	1	SROADOC

Package

Total

Caller Graph

Surgery

SROADOC

Name	Field # of Occurrence
^%ZISC	END+2
Y^DIQ	ASA
DATA^PSS50	AGENT+1
CODES^SROADOC	PRINT+1, PR+4
TECH^SROPRIN	TECH
^SROSTOP	HDR
$$NODATA^SROUTL0	PR+2
^SRSKILL	END+2
MINS^SRSUTL2	SET+4
DEM^VADPT	SET+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(SRSDATE,4,5)_"/"_$E(SRSDATE,6,7)_"/"_$E(SRSDATE,2,3),?10,$P(SRDPT,",")_", "_$E($P(SRDPT,",",2)),?26,SROPS(1),?76,SRSUP,?93,SRASA,?124,SRCODE Line Location: PRINT+2
Function Call: WRITE	Prompt: !,SRTN,?10,VA("PID") Line Location: PRINT+3
Function Call: WRITE	Prompt: ?26,SROPS(2) Condition for execution: $D(SROPS(2)) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?76,SRREL,?93,$E(SRTECH,1,20),?120,SRANT_$S(SRANT:" MINS.",1:"") Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: PRINT+4
Function Call: WRITE	Prompt: "NON-O.R." Condition for execution: $P($G(^SRF(SRTN,"NON")),"^")="Y" Line Location: PRINT+4
Function Call: WRITE	Prompt: ?26,SROPS(3) Condition for execution: $D(SROPS(3)) Line Location: PRINT+4
Function Call: WRITE	Prompt: ?76,SRASS,?93,SRAGNT,! Line Location: PRINT+4
Function Call: WRITE	Prompt: ?26,SROPS(4),! Line Location: PRINT+5
Function Call: WRITE	Prompt: ?26,SROPS(5),! Condition for execution: $D(SROPS(5)) Line Location: PRINT+5
Function Call: WRITE	Prompt: ?26,SROPS(6),! Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: "_PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY:",!,?53,"ANESTHESIA PROVIDER REPORT",?100,"DATE REVIEWED:" Line Location: HDR+1
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,"DATE PRINTED: "_SRPRINT Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"DATE",?10,"PATIENT",?26,"PROCEDURE(S)",?77,"SUPERVISOR",?96,"ASA CLASS",?111,"LEVEL OF SUPERVISION",!,"CASE #",?12,"ID#",?76,"RELIEF ANESTH",?92,"PRINCIPAL TECHNIQUE",?113,"ELAPSED ANES TIME",!,?76,"ASST ANESTH" Line Location: HDR+3
Function Call: WRITE	Prompt: ?93,"ANESTHESIA AGENT",! Line Location: HDR+4
Function Call: WRITE	Prompt: "=" Line Location: HDR+4
Function Call: WRITE	Prompt: !!,?2,"*** "_PRIN_" ***",! Line Location: HDR+5
Function Call: READ	Timeout: DTIME Variable: ASK Line Location: PAGE+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: $$NODATA^SROUTL0() Line Location: PR+2
Function Call: WRITE	Prompt: ! Line Location: PR+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	ASA
^SRF - [#130]	SET+1, SET+4, ASA, OPS, PRINT+4, OTHER+1, OTHER+2, AGENT
^SRO(132.95 - [#132.95]	SET+3
^TMP("SR"	END+1!, PR+1, PR+2
^TMP($J	AGENT+1!
^VA(200 - [#200]	SET+5, SET+6

Name	Line Occurrences
AGENT	TECH
END	PR, PR+5
HDR	PAGE+1, PR
LOOP	OPS+1
OTHER	OPS
PAGE	PRINT+1
SET	PR+1

Name	Field # of Occurrence
^(	SET+4

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ASK	PAGE*
>> C	ASA*
>> DATE	PR+1*
>> DFN	SET+2*
DTIME	PAGE, END
>> I	PR+3*
IOF	HDR+1, END+1, END+2
IOSL	PRINT+1, PR+1, PR+3
IOST	PAGE, END, END+1
>> LINE	HDR+4*
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OPER	OPS, OTHER+1, OTHER+2
>> PAGE	HDR+1, HDR+5*
>> PRIN	HDR+5, PR, PR+1
>> S(	SET+1*, SET+2
>> S(0	SET+1*, SET+2
>> SRAGNT	TECH, PRINT+4, AGENT, AGENT+1*
>> SRANE1	SET+4*
>> SRANE2	SET+4*
>> SRANT	SET+4*, PRINT+3
>> SRASA	ASA*, PRINT+2
>> SRASS	SET+2, SET+6, PRINT+4
>> SRCODE	SET+2, SET+3, PRINT+2
>> SRDPT	SET+2*, PRINT+2
>> SRF	PRINT+1, HDR, PAGE, END, PR+1, PR+4
>> SRFRTO	HDR+2
>> SRHALT	HDR
>> SRINST	HDR+1
>> SRLONG	OTHER+1*, OTHER+2
>> SROPER	OPS, OPS+1, OTHER+1, OTHER+3, LOOP+1
SROPERS	OPS!, OTHER+1, OTHER+2, OTHER+3
SROPS	OPS+1!
SROPS(	LOOP+1*
SROPS(1	OPS+1*, PRINT+2
SROPS(2	PRINT+3
SROPS(3	PRINT+4
SROPS(4	PRINT+5
SROPS(5	PRINT+5
SROPS(6	PRINT+5
>> SRPRINT	HDR+2
>> SRREL	SET+2, SET+5, PRINT+3
>> SRSDATE	SET+2*, SET+7, PRINT+2
>> SRSDT	SET+7*
>> SRSOUT	PR*
>> SRSSN	SET+2*
>> SRSUP	SET+2, SET+5, PRINT+2
>> SRT	AGENT
>> SRTECH	PRINT+3
SRTN	SET+1, SET+4, ASA, OPS, PRINT+3, PRINT+4, END+2!, OTHER+1, OTHER+2, AGENT , PR+1*
>> SRZ	TECH
>> VA("PID"	SET+2, PRINT+3
>> VADM(1	SET+2
>> X	SET+4, END
>> X1	SET+4*
>> Y	ASA*
>> ZTQUEUED	HDR, END+1
>> ZTREQ	END+1*
>> ZTSTOP	END+1

Customize PDF page

Package: Surgery

Routine: SROADOC1

Information

Source Information

Call Graph

Call Graph Total: 10

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
PR
SET	; set and print results
END
HDR
OPS
AGENT
ASA
OTHER	; other operations
TECH
PRINT	; print results
PAGE
LOOP	; break procedure name if greater than 50 characters