Routine: SROSCH

Package	Total	Call Graph
Surgery	4	(ASK,HDR,TIME)^SROSCH1 PRINT^SROSCH2 ($$DIV,$$ORDIV)^SROUTL0 ^SRSKILL
Kernel	1	^%ZISC
Registration	1	DEM^VADPT
VA Fileman	1	Y^DIQ

Package	Total	Caller Graph
Surgery	1	SROSCH1

Entry Points

Name	Comments	DBIA/ICR reference
SET	; set variables
END	;
OPS
OTHER	; other operations
BLOOD
PRINT	; print variables
LOOP	; break procedure if greater than 50 characters
MORE	; continue looping on SC cross reference

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No operations scheduled for this date." Line Location: SROSCH+7
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: SROSCH+8
Function Call: WRITE	Prompt: @IOF Line Location: END+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	SET+5, OPS+4
^DPT - [#2]	SET+6
^SC - [#44]	SET+4
^SRF - [#130]	SET+1, SET+2, SET+7, SET+11, OPS, OPS+4, OPS+5, OTHER+1, OTHER+2, BLOOD , BLOOD+1
^SRF("AMM"	SROSCH+3, MORE+1
^SRO(133 - [#133]	SROSCH+2
^SRS - [#131.7]	SET+4
^VA(200 - [#200]	SET+9, SET+10

Name	Field # of Occurrence
^(	SET+6
^(33	SET+11

Name	Field # of Occurrence
>> AGE	SET+1*
>> C	SET+5, OPS+4
>> DFN	SET+1*, SET+6
DTIME	SROSCH+8
>> I	OPS*
IO	SROSCH+2
IOF	END+1, END+2
IOSL	SROSCH+5
IOST	SROSCH+8, END+1
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OPER	OPS, OTHER+1, OTHER+2
>> S(	SET+2*, SET+9
>> S("1.0"	SET+2*, SET+5
>> S(0	SET+1*
>> SRAN1	SET+8, SET+9, SET+10*
>> SRAN2	SET+8, SET+9, SET+10*
>> SRANES	SET+5*
>> SRATT	SET+8, SET+9
>> SRB	BLOOD, BLOOD+1
>> SRB(	BLOOD, BLOOD+1
>> SRBU	BLOOD*
>> SRBX	BLOOD+1*
>> SRCHF	SROSCH+2*
>> SRDIAG	SET+11*
>> SRDT	SROSCH+3
>> SRDTS	SROSCH+3*, MORE+1
>> SRFLG	SROSCH+2, SROSCH+4, SROSCH+7, MORE+1
>> SRFST	SET+8, SET+9
>> SRINST	SROSCH+2*
>> SRIX	SET+5*
>> SRLONG	OTHER+1*, OTHER+2
>> SRNM	SET+1, SET+3
>> SROOM	SET+4*
>> SROPD	OPS+4*
>> 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*
>> SROR	SROSCH+3*, MORE+1, SET+4
>> SRPAGE	SROSCH+2*
>> SRPREAD	OPS+5*
>> SRPX	SET+2*
>> SRQ	SROSCH+2*, SROSCH+3, SROSCH+8, MORE+1
>> SRSITE	SROSCH+2
>> SRSITE("DIV"	SROSCH+3
>> SRSITE("SITE"	SROSCH+2
SRSLOC	SET+6!, SET+7
>> SRSSN	SET+1*
>> SRSUR	SET+8, SET+9
SRTN	MORE+1*, SET+1, SET+2, SET+7, SET+11, OPS, OPS+4, OPS+5, END+2!, OTHER+1 , OTHER+2, BLOOD, BLOOD+1
>> SRUSER	OPS+3*
>> SX	SROSCH+3, SROSCH+5, MORE+1*
>> TOTAL	SROSCH+2, SROSCH+6, MORE+1
>> VA("PID"	SET+1
>> VADM(1	SET+1
>> VADM(4	SET+1
>> X	SROSCH+8, SET+7, OPS+5*
>> Y	SET+5, OPS+4
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTSTOP	END+1