Routine: SRONUR1

Package	Total	Call Graph
Surgery	4	^SROSTOP DATE^SROUTL $$DIV^SROUTL0 MINS^SRSUTL2
Kernel	2	^%ZIS ^%ZTLOAD
Registration	1	DEM^VADPT
VA Fileman	1	D^DIQ

Package	Total	Caller Graph
Surgery	1	SRONUR

Entry Points

Name	Comments	DBIA/ICR reference
SET	; set variables
HDR	; print heading
OPS
BEG	; entry when queued
PRINT	; print information
OTHER	; other operations
DATE
PAGE
LOOP	; break procedure if greater than 50 characters

External References

Name	Field # of Occurrence
^%ZIS	DATE+1
^%ZTLOAD	DATE+2
D^DIQ	OPS+3, OPS+4
^SROSTOP	HDR+1
DATE^SROUTL	DATE
$$DIV^SROUTL0	BEG+3
MINS^SRSUTL2	OPS+2
DEM^VADPT	SET+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format.",! Line Location: DATE+1
Function Call: WRITE	Prompt: !!,SROD,?9,SRNM,?35,SROPS(1),?87,$E(SCRUB(1),1,18),?106,$E(CIRC(1),1,18),?125,SRTI Line Location: PRINT+1
Function Call: WRITE	Prompt: !,SRTN,?9,VA("PID") Line Location: PRINT+2
Function Call: WRITE	Prompt: ?35,SROPS(2) Condition for execution: $D(SROPS(2)) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?87,$E(SCRUB(2),1,18) Condition for execution: $D(SCRUB(2)) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?106,$E(CIRC(2),1,18) Condition for execution: $D(CIRC(2)) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?125,SRTO Line Location: PRINT+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+3
Function Call: WRITE	Prompt: ?35,SROPS(3) Condition for execution: $D(SROPS(3)) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?87,$E(SCRUB(3),1,18) Condition for execution: $D(SCRUB(3)) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?106,$E(CIRC(3),1,18) Condition for execution: $D(CIRC(3)) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?125,SRET Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?35,SROPS(4) Line Location: PRINT+4
Function Call: WRITE	Prompt: ?87,$E(SCRUB(4),1,18) Condition for execution: $D(SCRUB(4)) Line Location: PRINT+4
Function Call: WRITE	Prompt: ?106,$E(CIRC(4),1,18) Line Location: PRINT+4
Function Call: WRITE	Prompt: ! Line Location: PRINT+5
Function Call: WRITE	Prompt: ?87,$E(SCRUB(I),1,18) Condition for execution: $D(SCRUB(I)) Line Location: PRINT+5
Function Call: WRITE	Prompt: ?106,$E(CIRC(I),1,18) Condition for execution: $D(CIRC(I)) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: "_PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?51,"SURGICAL NURSE STAFFING 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: !!,"DATE",?10,"PATIENT",?35,"OPERATION(S)",?87,"SCRUB NURSE",?105,"CIRC. NURSE",?122,"TIME IN",!,"CASE #",?12,"ID#",?122,"TIME OUT",!,?118,"ELAPSED (MINS)",! Line Location: HDR+4
Function Call: WRITE	Prompt: "=" Line Location: HDR+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+0
Routine Call	%ZIS Line Location: DATE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BEG+2
^SRF - [#130]	SET+2, SET+4, SET+5, OPS, OPS+2, OTHER+1, OTHER+2, BEG+3
^SRF("AC"	BEG+3
^VA(200 - [#200]	SET+4, SET+5

Label References

Name	Line Occurrences
BEG	DATE+3
HDR	PAGE+1, BEG+2
LOOP	OPS+1
OTHER	OPS
PAGE	SET+1
SET	BEG+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DATE+1!*
%ZIS("A"	DATE+1*
CIRC	SET+5!*
CIRC(	SET+5*, PRINT+5
CIRC(1	SET+5*, PRINT+1
CIRC(2	PRINT+2
CIRC(3	PRINT+3
CIRC(4	PRINT+4
>> CNT	SET+4, SET+5
>> DFN	SET+2*
DT	BEG+2
DTIME	PAGE
>> I	SET+4, SET+5, OPS, PRINT+5, HDR+4*
IO	BEG+1
IO("Q"	DATE+1!, DATE+2!
IOF	HDR+2, BEG+4
IOM	HDR+4
IOP	DATE+1!
IOSL	SET+1
IOST	PAGE, BEG+4
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> MORE	PRINT+4*, PRINT+5
>> OP	OPS, OTHER+1, OTHER+2
>> PAGE	HDR+2, HDR+5, BEG+1
POP	DATE+1!
SCRUB	SET+4!*
SCRUB(	SET+4*, PRINT+5
SCRUB(1	SET+4*, PRINT+1
SCRUB(2	PRINT+2
SCRUB(3	PRINT+3
SCRUB(4	PRINT+4
>> SR(	OPS+2*
>> SR(0	SET+2*, SET+3
>> SRED	DATE, BEG+1, BEG+2
>> SREDT	BEG+1*, BEG+3
>> SRET	OPS+2, OPS+5, PRINT+3
>> SRFIND	OPS+3, OPS+4
SRFRTO	HDR+3, BEG+1~, BEG+2*
>> SRHALT	HDR+1
>> SRINST	HDR+2
>> SRLONG	OTHER+1*, OTHER+2
>> SRNM	SET+2*, PRINT+1
>> SROD	SET+3*, PRINT+1
>> SROPER	OPS, OPS+1, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	OPS+1!
SROPS(	LOOP+1*
SROPS(1	OPS+1*, PRINT+1
SROPS(2	PRINT+2
SROPS(3	PRINT+3
SROPS(4	PRINT+4
>> SRPRINT	HDR+3, BEG+2*
>> SRSD	DATE, BEG+1, BEG+2
>> SRSDT	BEG+1, BEG+3
>> SRSOUT	DATE, DATE+1, SET+1, HDR+1, PAGE, BEG+1, BEG+3
>> SRTI	OPS+2, OPS+3, OPS+5*, PRINT+1
>> SRTN	SET+2, SET+4, SET+5, OPS, OPS+2, PRINT+2, OTHER+1, OTHER+2, BEG+3*
>> SRTO	OPS+2, OPS+4, PRINT+2
>> SSN	SET+2*
>> SX	SET+5*
>> VA("PID"	SET+2, PRINT+2
>> VADM(1	SET+2
>> X	SET+4, SET+5, OPS+2, PAGE
>> X1	OPS+2*
>> Y	OPS+3, OPS+4, BEG+2*
>> ZTDESC	DATE+2*
>> ZTQUEUED	HDR+1, BEG+4
>> ZTREQ	BEG+4*
>> ZTRTN	DATE+2*
>> ZTSAVE("SRED*"	DATE+2*
>> ZTSAVE("SRINST"	DATE+2*
>> ZTSAVE("SRSD*"	DATE+2*
>> ZTSAVE("SRSITE*"	DATE+2*
>> ZTSTOP	BEG+4

Customize PDF page

Package: Surgery

Routine: SRONUR1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: