Routine: SROREQ1

Package	Total	Call Graph
Surgery	3	HDR^SROREQ $$DIV^SROUTL0 ^SRSKILL
Kernel	1	^%ZISC
Registration	1	DEM^VADPT
VA Fileman	1	(D,Y)^DIQ

Package	Total	Caller Graph
Surgery	1	SROREQ

Entry Points

Name	Comments	DBIA/ICR reference
SET	; set ^TMP(
END
BEG	; entry when queued
ANES
PRINT	; print requests
PAGE
LOOP	; break procedure if greater than 55 characters
MORE

External References

Name	Field # of Occurrence
^%ZISC	END+2
D^DIQ	BEG+1, PRINT+8
Y^DIQ	ANES
HDR^SROREQ	PAGE+1
$$DIV^SROUTL0	BEG+2
^SRSKILL	END+2
DEM^VADPT	PRINT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: BEG+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: ! Line Location: ANES+5
Function Call: WRITE	Prompt: "-" Line Location: ANES+5
Function Call: WRITE	Prompt: !!,"Patient: "_SRNAME,?40,"ID #: "_VA("PID"),!,"Age: "_AGE,?40,"Ward: "_SRWARD,!!,"Surgeon: "_SROSUR,?40,"Attending: "_SROATT,!,"Preoperative Diagnosis: "_SRDIAG Line Location: ANES+6
Function Call: WRITE	Prompt: !!,"Principal Procedure:",?22,SROPS(1) Line Location: ANES+7
Function Call: WRITE	Prompt: !,?22,SROPS(2) Line Location: ANES+7
Function Call: WRITE	Prompt: !,?22,SROPS(2) Line Location: ANES+7
Function Call: WRITE	Prompt: !,?22,SROPS(2) Line Location: ANES+7
Function Call: WRITE	Prompt: !,?22,SROPS(2) Line Location: ANES+7
Function Call: WRITE	Prompt: !,?22,SROP(CNT) Line Location: ANES+8
Function Call: WRITE	Prompt: !,"Estimated Case Length: "_SRLENGTH Line Location: ANES+9
Function Call: WRITE	Prompt: ?40,"Position: ",SRPOS(1) Line Location: ANES+9
Function Call: WRITE	Prompt: ?40,"Position: ",SRPOS(1) Line Location: ANES+9
Function Call: WRITE	Prompt: ?40,"Position: ",SRPOS(1) Line Location: ANES+9
Function Call: WRITE	Prompt: ?40,"Position: ",SRPOS(1) Line Location: ANES+9
Function Call: WRITE	Prompt: !,"Case Schedule Order: "_SRORDER Line Location: ANES+10
Function Call: WRITE	Prompt: !,"Requested Anesthesia Technique: "_SRANES Line Location: ANES+11
Function Call: WRITE	Prompt: !!,"Blood Requested: ",?18,BLOOD(1) Line Location: ANES+12
Function Call: WRITE	Prompt: !,?18,BLOOD(2) Line Location: ANES+12
Function Call: WRITE	Prompt: !,?18,BLOOD(2) Line Location: ANES+12
Function Call: WRITE	Prompt: !,^SRF(SRTN,5,X,0) Line Location: ANES+14
Function Call: WRITE	Prompt: ! Line Location: ANES+15
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue, or '^' to quit: " Line Location: PAGE+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	ANES
^DPT - [#2]	PRINT+2
^SRF - [#130]	BEG+2, SET+1, SET+2, PRINT+3, PRINT+4, PRINT+7, PRINT+8, ANES+1, ANES+2, ANES+3 , ANES+4, ANES+14
^SRF("AR"	BEG+2
^SRO(132 - [#132]	ANES+2
^SRO(137.45 - [#137.45]	SET+1
^TMP("SR"	BEG+1!, BEG+3, END!, MORE, SET+2*, PRINT+2
^VA(200 - [#200]	PRINT+6, PRINT+9

Label References

Name	Line Occurrences
LOOP	PRINT+5
MORE	BEG+3
PAGE	BEG+3, PRINT+1
PRINT	MORE
SET	BEG+2

Naked Globals

Name	Field # of Occurrence
^(	PRINT+2, PRINT+3
^(0	ANES+1
^(33	PRINT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGE	PRINT+2*, ANES+6
BLOOD	ANES+1!
BLOOD(	ANES+1*
BLOOD(0	ANES+12
BLOOD(1	ANES+12
BLOOD(2	ANES+12
BLOOD(3	ANES+12
>> C	ANES*
>> CNT	PRINT+4, ANES+1, ANES+2, ANES+8
>> DFN	BEG+2, SET+2, PRINT+2
DTIME	END+1, PAGE
IO	BEG+1
IOF	BEG+2, END, END+2
IOSL	PRINT+1
IOST	END, END+1, PAGE
>> LINE	ANES+5*
>> LOOP	LOOP+1*
>> M	PRINT+5*, LOOP+1
MM	PRINT+5!, ANES+1, LOOP+1
MMM	PRINT+5!, LOOP+1*
>> SR(	PRINT+3*, PRINT+4
>> SR("1.0"	PRINT+8*, PRINT+9, ANES
>> SRANES	ANES*, ANES+11
>> SRDIAG	PRINT+7*, ANES+6
>> SREQDAY	PRINT+8*, ANES+13
>> SREQDT	BEG+3, MORE, SET+2, PRINT+2, PRINT+8
>> SRHDR	BEG+3*, PAGE
>> SRLENGTH	ANES+3*, ANES+9
>> SRNAME	PRINT+2*, ANES+6
>> SROATT	PRINT+4, PRINT+6, ANES+6
SROP	PRINT+4!
SROP(	PRINT+4*, ANES+8
SROP(0	ANES+8
SROP(1	ANES+8
>> SROPER	PRINT+4, PRINT+5, LOOP+1*
SROPS	PRINT+5!
SROPS(	LOOP+1*
SROPS(1	PRINT+5*, ANES+7
SROPS(2	ANES+7
SROPS(3	ANES+7
SROPS(4	ANES+7
SROPS(5	ANES+7
>> SRORDER	ANES+4*, ANES+10
>> SROSUR	PRINT+4, PRINT+6, ANES+6
SRPOS	ANES+2!
SRPOS(	ANES+2*
SRPOS(0	ANES+9
SRPOS(1	ANES+9
SRPOS(2	ANES+9
SRPOS(3	ANES+9
SRPOS(4	ANES+9
>> SRSDATE	BEG+1, BEG+2
>> SRSDT	BEG+1*
>> SRSNM	BEG+3, MORE, SET+1, SET+2, PRINT+2
>> SRSOUT	BEG+2, BEG+3, END+1, MORE, PRINT+1, PAGE
>> SRSPER	PRINT+9*, ANES+13
>> SRSS	SET+1*
>> SRSSN	PRINT+2*
SRTN	BEG+2, END+2!, MORE, SET+1, SET+2, PRINT+2, PRINT+3, PRINT+4, PRINT+7, PRINT+8 , ANES+1, ANES+2, ANES+3, ANES+4, ANES+14
>> SRWARD	PRINT+2*, ANES+6
>> VA("PID"	PRINT+2, ANES+6
>> VADM(1	PRINT+2
>> VADM(4	PRINT+2
>> X	END+1, PRINT+4, ANES+1, ANES+2, ANES+14, PAGE
>> Y	BEG+1, PRINT+8, ANES, ANES+1, ANES+2*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SROREQ1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: