Routine: SRODLA1

Package	Total	Call Graph
Surgery	2	(HDR,PAGE)^SRODLAY $$MANDIV^SROUTL0
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SRODLAY

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No data for selected date range." Line Location: SRODLA1+6
Function Call: WRITE	Prompt: !!,$E(SRSDATE,4,5)_"/"_$E(SRSDATE,6,7)_"/"_$E(SRSDATE,2,3),?12,SRNM,?44,SRATT Line Location: OPS+3
Function Call: WRITE	Prompt: ?84,SRCOM(1) Condition for execution: $D(SRCOM(1)) Line Location: OPS+3
Function Call: WRITE	Prompt: !,SRDEL_" MINS.",?14,VA("PID"),?44,SROP(1) Line Location: OPS+4
Function Call: WRITE	Prompt: ?84,SRCOM(2) Line Location: OPS+4
Function Call: WRITE	Prompt: ! Line Location: OPS+5
Function Call: WRITE	Prompt: ?44,SROP(J) Condition for execution: $D(SROP(J)) Line Location: OPS+5
Function Call: WRITE	Prompt: ?84,SRCOM(J+1) Condition for execution: $D(SRCOM(J+1)) Line Location: OPS+5
Function Call: WRITE	Prompt: !!,?SRCOL,SRCAUS,!,?SRCOL,SRUL Line Location: CAUSE+2

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SRODLA1+4, PRINT+2, PRINT+3, OPS, OPS+2, UTIL, UTIL+1, UTIL+2, OTHER+1, OTHER+2 , COM
^SRF("AC"	SRODLA1+4
^SRO(132.4 - [#132.4]	CAUSE+1
^SRO(137.45 - [#137.45]	SRODLA1+2
^TMP("SR"	SRODLA1+2!, SRODLA1+6, SETUT, SETUT+1*
^TMP("SRF"	SRODLA1+2!, SRODLA1+5, MORE, SETUT+2*
^TMP("SRT"	SRODLA1+2!
^VA(200 - [#200]	PRINT+3

Name	Field # of Occurrence
^(	MORE
^(0	UTIL+2

Name	Field # of Occurrence
>> CAUSE	SRODLA1+5, MORE, UTIL+2, SETUT, SETUT+1, SETUT+2, CAUSE+1
>> DFN	PRINT+2*
DT	SRODLA1+3
>> I	COM+7*
IOSL	PRINT+1, CAUSE
>> J	OPS+5*
>> K	COM+3*, COM+4
>> L	COM+1*
>> LINE	CAUSE+1*
>> LOOP	LOOP+1*
>> M	OPS+1, LOOP+1, COM+1, COM+3, COM+4*, COM+5, COM+6, COM+7
MM	OPS+1!, LOOP+1, COM+1, COM+2, COM+3*, COM+5, COM+6
MMM	OPS+1!, LOOP+1, COM+3
>> OPER	OPS, OTHER+1, OTHER+2
>> PAGE	SRODLA1+2*
>> SPEC	SRODLA1+2*
>> SRATT	PRINT+3*, OPS+3
>> SRCAUS	CAUSE+1*, CAUSE+2
>> SRCNT	OPS+2, COM, COM+7*
>> SRCOL	CAUSE+1*, CAUSE+2
SRCOM	OPS+2!
SRCOM(	OPS+5, COM, COM+7
SRCOM(1	OPS+3
SRCOM(2	OPS+4
>> SRD	MORE*, PRINT+3
>> SRDC	PRINT+3, OPS+2, UTIL+2, SETUT+2, COM
>> SRDEL	PRINT+3, OPS+4, UTIL+2, SETUT+2
>> SRED	SRODLA1+3
>> SREDT	SRODLA1+3*, SRODLA1+4
>> SRHDR	SRODLA1+2*
>> SRINSTP	SRODLA1+4
>> SRL	OPS+2*, COM
>> SRLONG	OTHER+1*, OTHER+2
>> SRNM	PRINT+2*, OPS+3
SROP	OPS+1!
SROP(	OPS+5, LOOP+1*
SROP(1	OPS+1*, OPS+4
>> SROPER	OPS, OPS+1, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
>> SRPRINT	SRODLA1+3*
>> SRQ	COM+1, COM+2, COM+3, COM+5*
>> SRSD	SRODLA1+3
>> SRSDATE	SRODLA1+3, SRODLA1+4, SRODLA1+5, MORE, OPS+3, SETUT+2
>> SRSOUT	SRODLA1+2*, SRODLA1+3, SRODLA1+5, MORE, PRINT+1, CAUSE
>> SRSS	SRODLA1+2, UTIL+1
>> SRSS1	UTIL+1*
>> SRTN	SRODLA1+4, MORE, PRINT+2, PRINT+3, OPS, OPS+2, UTIL, UTIL+1, UTIL+2, SETUT+2 , OTHER+1, OTHER+2, COM
>> SRUL	CAUSE+1*, CAUSE+2
SRX	OPS+2!, COM, COM+1, COM+2, COM+6
SRX(	COM+1, COM+3, COM+5, COM+6*, COM+7
>> SRZ	COM+1*, COM+2, COM+6
>> VA("PID"	OPS+4
>> VADM(1	PRINT+2

Name	Comments	DBIA/ICR reference
OPS
COM
SETUT
UTIL
OTHER	; other operations
PRINT	; print case information
CAUSE
LOOP	; break procedure if greater than 38 characters
MORE