Routine: SROPRI2

Package	Total	Call Graph
Surgery	3	PLIST^SROPRIT ^SROSTOP $$DIV^SROUTL0
VA Fileman	1	^DIR

Package	Total	Caller Graph
Surgery	1	SROPRIT

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; print heading
TOT	; print total for the specialty
UTIL	; set UTILITY("SRLIST",$J
RET
PRINT	; print information for specialty
NO6	; delete 6. PRIORITY NOT ENTERED

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?24,X,?50,$J(^(X),6) Line Location: SROPRI2+7
Function Call: WRITE	Prompt: !!!,?24,"TOTAL SURGICAL CASES: ",?50,$J(^TMP("SRLIST",$J),6),!!!!! Line Location: SROPRI2+8
Function Call: WRITE	Prompt: !! Line Location: SROPRI2+11
Function Call: READ	Timeout: DTIME Variable: X Line Location: RET+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue with the List of Surgical Cases sorted by Surgical",!,"Priority, or '^' if you do not want to review any additional information." Line Location: RET+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(80-$L(SRINST)\2),SRINST,!,?32,"SURGICAL SERVICE",!,?21,"TOTAL OPERATIONS BY SURGICAL PRIORITY" Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO Line Location: HDR+3
Function Call: WRITE	Prompt: !,?28,SRPRINT Condition for execution: $E(IOST)="P" Line Location: HDR+3
Function Call: WRITE	Prompt: !,SRLINE,! Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(80-$L(SRSS)\2),SRSS,! Line Location: HDR+4
Function Call: WRITE	Prompt: !,?24,PRIOR,?50,$J(^TMP("SR",$J,SRSS,PRIOR),6) Line Location: PRINT+1
Function Call: WRITE	Prompt: !!!,?24,"TOTAL SURGICAL CASES",?50,$J(^TMP("SR",$J,SRSS),6),!!!!! Line Location: TOT+1
Routine Call	DIR Line Location: SROPRI2+11

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROPRI2+5, UTIL+1, UTIL+2
^SRF("AC"	SROPRI2+5
^SRO(137.45 - [#137.45]	UTIL+3
^TMP("SR"	SROPRI2+2!, SROPRI2+10, UTIL+5, UTIL+6, UTIL+7*, PRINT+1, TOT+1, NO6+1!
^TMP("SRLIST"	SROPRI2+2!, SROPRI2+3, SROPRI2+6!, SROPRI2+7, SROPRI2+8, UTIL+4

Name	Field # of Occurrence
^(	SROPRI2+7

Name	Field # of Occurrence
DIR	SROPRI2+11!
DIR("A"	SROPRI2+11*
DIR(0	SROPRI2+11*
DTIME	RET
IO	SROPRI2+2
IOF	HDR+2
IOST	SROPRI2+11, RET, HDR+3
>> MM	UTIL+5*
>> PRIOR	SROPRI2+10*, PRINT+1
>> SP	UTIL+3*, UTIL+5, UTIL+6, UTIL+7
>> SR(0	UTIL+2*, UTIL+3
>> SRCODE(	SROPRI2+3, UTIL+2, UTIL+5
>> SRD	SROPRI2+5*
>> SRED1	SROPRI2+5
>> SRFRTO	HDR+3
>> SRHALT	HDR+1
>> SRHDR	SROPRI2+2, SROPRI2+10, RET+2, HDR+4
>> SRINST	HDR+2
>> SRLINE	SROPRI2+4*, HDR+3
>> SRPRINT	HDR+3
>> SRSOUT	SROPRI2+7, SROPRI2+10, SROPRI2+11, RET, HDR+1
>> SRSS	SROPRI2+9, SROPRI2+10*, HDR+4, PRINT+1, TOT+1, NO6+1
>> SRTN	SROPRI2+5*, UTIL+1, UTIL+2
>> X	SROPRI2+3, SROPRI2+4, SROPRI2+7, UTIL+2, UTIL+4, UTIL+6, UTIL+7, RET*, RET+1
>> ZTQUEUED	HDR+1