Routine: SROCNR1

Information

SROCNR1 ;B'HAM ISC/MAM - CIRC NURSE REPORT (ALL) ; [ 07/27/98 2:33 PM ]

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Surgery	3	^SROSTOP ($$DIV,$$NODATA)^SROUTL0 MINS^SRSUTL2
Registration	1	DEM^VADPT
VA FileMan	1	D^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Surgery	1	SROCNR

Entry Points

Name	Comments	DBIA/ICR reference
SET	; set variables
OPS
PRINT	; print information
HDR	; print heading
BEG	; entry when queued
NUR
SRTN	; continue looping
PAGE
LOOP	; break procedure if greater than 50 characters
OTHER	; other operations
UTL	; set ^TMP(

External References

Name	Field # of Occurrence
D^DIQ	OPS+3, OPS+4
^SROSTOP	HDR+1
$$DIV^SROUTL0	BEG+2
$$NODATA^SROUTL0	BEG+6
MINS^SRSUTL2	OPS+2
DEM^VADPT	SET+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,SRSDATE,?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: ?126,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) Condition for execution: $D(CIRC(4)) 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:" Line Location: HDR+2
Function Call: WRITE	Prompt: !,?49,"CIRCULATING NURSE STAFFING REPORT",?100,"DATE REVIEWED:" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"DATE",?11,"PATIENT",?40,"OPERATION(S)",?87,"SCRUB NURSE",?106,"CIRC. NURSE",?122,"TIME IN",!,"CASE #",?13,"ID#",?122,"TIME OUT",!,?118,"ELAPSED (MINS)",! Line Location: HDR+5
Function Call: WRITE	Prompt: "=" Line Location: HDR+5
Function Call: WRITE	Prompt: $$NODATA^SROUTL0() Line Location: BEG+6
Function Call: WRITE	Prompt: !!,?(132-$L(" "_NURSE_" ")\2)," "_NURSE_" " Line Location: NUR+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: PAGE+0

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
HDR	BEG+4, PAGE+1
LOOP	OPS+1
NUR	HDR+6, BEG+5
OTHER	OPS
PAGE	SET+1, NUR
SET	SRTN+1
SRTN	BEG+5
UTL	BEG+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
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*
DTIME	PAGE
>> I	SET+4, SET+5, OPS, PRINT+5, HDR+5*
IO	BEG+1
IOF	HDR+2
IOSL	SET+1, NUR
IOST	PAGE
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> MORE	PRINT+4*, PRINT+5
NURSE	HDR+6, BEG+3, BEG+4!, BEG+5*, NUR, SRTN+1, UTL+1
>> OP	OPS, OTHER+1, OTHER+2
>> PAGE	HDR+2, HDR+6, BEG+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*
>> SRED	BEG+1
>> SREDT	BEG+1*, BEG+2
>> SRET	OPS+2, OPS+5, PRINT+3
>> SRFIND	OPS+3, OPS+4
>> SRFRTO	HDR+4
>> SRHALT	HDR+1
>> SRINST	HDR+2, BEG+1*
>> SRLONG	OTHER+1*, OTHER+2
>> SRN	HDR+6, BEG+5, NUR*
>> SRNM	SET+3*, PRINT+1
>> SRNUR	UTL+1*, UTL+2
>> SROPER	OPS, OPS+1, LOOP+1, OTHER+1, OTHER+3
>> 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+4
>> SRSD	BEG+1
>> SRSDATE	SET+2*, PRINT+1
>> SRSDT	BEG+1, BEG+2, BEG+5*, SRTN+1, UTL+2
>> SRSITE("SITE"	BEG+1
>> SRSOUT	SET+1, HDR+1, BEG+1, BEG+5, NUR, SRTN+1, PAGE*
>> SRTI	OPS+2, OPS+3, OPS+5*, PRINT+1
>> SRTN	SET+2, SET+4, SET+5, OPS, OPS+2, PRINT+2, BEG+2, BEG+3, SRTN+1, OTHER+1 , OTHER+2, UTL+1, UTL+2
>> SRTO	OPS+2, OPS+4, PRINT+2
>> SSN	SET+3*
>> SX	SET+5*
>> VA("PID"	SET+3, PRINT+2
>> VADM(1	SET+3
>> X	SET+4, SET+5, OPS+2, PAGE
>> X1	OPS+2*
>> Y	OPS+3, OPS+4
>> ZTQUEUED	HDR+1

Customize PDF page

Package: Surgery