Routine: SRODLA2

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

Package	Total	Caller Graph
Surgery	1	SRODLAY

Entry Points

External References

Name	Field # of Occurrence
HDR^SRODLAY	SRODLA2+6
PAGE^SRODLAY	SRODLA2+5, PRINT+1, CAUSE
$$MANDIV^SROUTL0	SRODLA2+4
DEM^VADPT	PRINT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No data for selected date range." Line Location: SRODLA2+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

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
CAUSE	MORE, PRINT+1
COM	OPS+2
LOOP	OPS+1
MORE	SRODLA2+5
OTHER	OPS
PRINT	MORE+1
SETUT	UTIL+2
SP	SRODLA2+5
UTIL	SRODLA2+4

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CAUSE	SRODLA2+5, MORE+1, UTIL+2, SETUT+1, SETUT+2, SETUT+3, SETUT+4, SETUT+5, CAUSE+1
>> DFN	PRINT+2*
DT	SRODLA2+3
>> I	COMX+2, COM+7
IOSL	PRINT+1, CAUSE
>> J	OPS+5*
>> K	COM+3*, COM+4
>> L	COMX+1, COM+1
>> LINE	CAUSE+1*
>> LOOP	LOOP+1*
>> M	OPS+1, LOOP+1, COMX+1, COMX+2, COM+1, COM+3, COM+4, COM+5, COM+6, COM+7
MM	OPS+1!, LOOP+1, COMX+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	SRODLA2+2*
>> SPEC	SP+1*
>> SRATT	PRINT+3*, OPS+3
>> SRCAUS	CAUSE+1*, CAUSE+2
>> SRCNT	OPS+2, COMX, COMX+2, COM, COM+7*
>> SRCOL	CAUSE+1*, CAUSE+2
SRCOM	OPS+2!
SRCOM(	OPS+5, COMX, COMX+2, COM, COM+7
SRCOM(1	OPS+3
SRCOM(2	OPS+4
>> SRD	MORE+1*, PRINT+3
>> SRDC	PRINT+3, OPS+2, UTIL+2, SETUT+5, COMX, COM
>> SRDEL	PRINT+3, OPS+4, UTIL+2, SETUT+5
>> SRED	SRODLA2+3
>> SREDT	SRODLA2+3*, SRODLA2+4
>> SRHDR	SRODLA2+2*
>> SRINSTP	SRODLA2+4
>> SRL	OPS+2*, COMX, 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	SRODLA2+3*
>> SRQ	COM+1, COM+2, COM+3, COM+5*
>> SRSD	SRODLA2+3
>> SRSDATE	SRODLA2+3, SRODLA2+4, MORE, MORE+1, OPS+3, SETUT+5
>> SRSOUT	SRODLA2+2*, SRODLA2+5, MORE+1, PRINT+1, CAUSE
>> SRSS	SRODLA2+5, MORE+1, UTIL+1, SETUT, SETUT+1, SETUT+4, SETUT+5, SP+1
>> SRTN	SRODLA2+4, MORE+1, PRINT+2, PRINT+3, OPS, OPS+2, UTIL, UTIL+1, UTIL+2, SETUT+5 , OTHER+1, OTHER+2, COMX, COM
>> SRUL	CAUSE+1*, CAUSE+2
SRX	OPS+2!, COMX, COMX+1, COM, COM+1, COM+2, COM+6
SRX(	COMX+1, COMX+2, COM+1, COM+3, COM+5, COM+6, COM+7
>> SRZ	COMX+1, COM+1, COM+2, COM+6
>> VA("PID"	OPS+4
>> VADM(1	PRINT+2

Customize PDF page

Package: Surgery

Routine: SRODLA2

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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