Routine: SROREQ3

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Surgery	3	^SROSTOP $$DIV^SROUTL0 ^SRSKILL
VA Fileman	2	^DIC (D,Y)^DIQ
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SROPREQ

Entry Points

Name	Comments	DBIA/ICR reference
SET	; set ^TMP(
END
HDR	; print heading
BEG	; entry when queued
PRINT	; print request info
PAGE
LOOP	; break procedure if greater than 63 characters

External References

Name	Field # of Occurrence
^%ZIS	SROREQ3+4
^%ZISC	END+2
^%ZTLOAD	SROREQ3+5
^DIC	SROREQ3+2
D^DIQ	BEG+1
Y^DIQ	PRINT+6
^SROSTOP	HDR+1
$$DIV^SROUTL0	BEG+2
^SRSKILL	END+2
DEM^VADPT	PRINT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SROREQ3+4
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: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,"OPERATION REQUESTS FOR "_SRSNM,?70,SRDT,! Line Location: HDR+2
Function Call: WRITE	Prompt: "-" Line Location: HDR+2
Function Call: WRITE	Prompt: !!,CNT_".",?5,"Case Number: "_SRTN,?40,"Operation Date: "_SRSDT,!,?5,"Patient: ",?16,SRNAME,?40,"Ward: ",SRWARD,!,?5,"ID#: ",?16,VA("PID"),?40,"Surgeon: "_SRSUR,!,?5,"Procedure: "_SROPS(1) Line Location: PRINT+9
Function Call: WRITE	Prompt: !,?16,SROPS(2) Line Location: PRINT+10
Function Call: WRITE	Prompt: !,?16,SROPS(3) Line Location: PRINT+10
Function Call: WRITE	Prompt: !,?16,SROPS(3) Line Location: PRINT+10
Function Call: WRITE	Prompt: !,?5,"Estimated Case Length: "_SRHRS Line Location: PRINT+11
Function Call: WRITE	Prompt: !,?5,"Requested Anesthesia: "_SRANES Condition for execution: SRSORD'="" !,?5,"Case Schedule Order: "_SRSORD W:SRANES'="" Line Location: PRINT+11
Function Call: WRITE	Prompt: !,"Concurrent Case # "_SRSCON,!,SROPS(1) Line Location: PRINT+13
Function Call: WRITE	Prompt: !,SROPS(2) Line Location: PRINT+13
Function Call: WRITE	Prompt: !,SROPS(2) Line Location: PRINT+13
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
Routine Call	DIC Line Location: SROREQ3+2
Routine Call	%ZIS Line Location: SROREQ3+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	PRINT+6
^DPT - [#2]	PRINT+7
^SRF - [#130]	BEG+2, SET+1, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+12
^SRF("AR"	BEG+2
^TMP("SR"	BEG+1!, BEG+3, END!, SET+1*
^VA(200 - [#200]	PRINT+4

Label References

Name	Line Occurrences
END	SROREQ3+2, SROREQ3+4, SROREQ3+5
HDR	BEG+1, PAGE+1
LOOP	PRINT+8, PRINT+12
PAGE	PRINT+1
PRINT	BEG+3
SET	BEG+2

Naked Globals

Name	Field # of Occurrence
^(	PRINT+7
^("CON"	PRINT+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	SROREQ3+4!*
%ZIS("A"	SROREQ3+4*
A	PRINT+12!
>> C	PRINT+6*
>> CNT	BEG+1, PRINT+2, PRINT+9
>> DFN	BEG+1, BEG+2, PRINT+2*, PRINT+7
DIC	SROREQ3+2!*
DIC("A"	SROREQ3+2*
DIC("S"	SROREQ3+2*
DIC(0	SROREQ3+2*
DTIME	END+1, PAGE
IO	BEG+1
IO("Q"	SROREQ3+4!, SROREQ3+5!
IOF	END, END+2, HDR+2
IOP	SROREQ3+4!
IOSL	PRINT+1
IOST	END, END+1, PAGE
>> LINE	HDR+2*
>> LOOP	LOOP+1*
>> M	PRINT+8, PRINT+12, LOOP+1
MM	PRINT+8!, PRINT+12, LOOP+1*
MMM	PRINT+8!, LOOP+1*
POP	SROREQ3+4!
>> SR(0	PRINT+2*, PRINT+6, PRINT+7
>> SRANES	PRINT+6*, PRINT+11
>> SRDT	BEG+1*, HDR+2
>> SREQDT	BEG+3, SET+1
>> SRHALT	HDR+1
>> SRHRS	PRINT+5, PRINT+6, PRINT+11
>> SRNAME	PRINT+3*, PRINT+9
>> SROPER	PRINT+3, PRINT+8, PRINT+12, LOOP+1
SROPS	PRINT+8!
SROPS(	LOOP+1*
SROPS(1	PRINT+8, PRINT+9, PRINT+12, PRINT+13
SROPS(2	PRINT+10, PRINT+13
SROPS(3	PRINT+10, PRINT+13
SROPS(4	PRINT+10
SRSCON	PRINT+12!*, PRINT+13
>> SRSDATE	BEG+1, BEG+2, PRINT+5
>> SRSDT	BEG+1, PRINT+5, PRINT+9
>> SRSNM	SROREQ3+3*, HDR+2
>> SRSORD	PRINT+7*, PRINT+11
>> SRSOUT	SROREQ3+2, SROREQ3+4, SROREQ3+5, BEG+1, BEG+3, END+1, HDR+1, PRINT+1, PAGE*
>> SRSS	SROREQ3+3*, BEG+2
>> SRSUR	PRINT+4*, PRINT+9
SRTN	BEG+2, BEG+3, END+2!, SET+1, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+9 , PRINT+12
>> SRTYPE	PRINT+6, PRINT+7, PRINT+8
>> SRWARD	PRINT+7*, PRINT+9
>> SSN	PRINT+7*
>> VA("PID"	PRINT+7, PRINT+9
>> VADM(1	PRINT+3
>> X	END+1, PAGE
>> Y	SROREQ3+2, SROREQ3+3, BEG+1, PRINT+6
>> Y(0	SROREQ3+3
>> ZTDESC	SROREQ3+5*
>> ZTQUEUED	END, HDR+1
>> ZTREQ	END*
>> ZTRTN	SROREQ3+5*
>> ZTSAVE("SRSDATE"	SROREQ3+5*
>> ZTSAVE("SRSITE*"	SROREQ3+5*
>> ZTSAVE("SRSNM"	SROREQ3+5*
>> ZTSAVE("SRSS"	SROREQ3+5*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SROREQ3

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: