Routine: SROPRI1

Information

SROPRI1 ;B'HAM ISC/MAM - TOTAL OPERATIONS (BY PRIORITY) ; [ 07/27/98 2:33 PM ]

Source file <SROPRI1.m>

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

Package	Total	Caller Graph
Surgery	1	SROPRIT

Name	Comments	DBIA/ICR reference
UTIL	; set UTILITY("SRLIST",$J
HDR	; print heading

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?24,X,?50,$J(^(X),6) Line Location: SROPRI1+8
Function Call: WRITE	Prompt: !!!,?24,"TOTAL SURGICAL CASES: ",?50,$J(^TMP("SRLIST",$J),6) Line Location: SROPRI1+9
Function Call: WRITE	Prompt: !!!! Line Location: SROPRI1+10
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
Routine Call	DIR Line Location: SROPRI1+10

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

Name	Line Occurrences
HDR	SROPRI1+8
UTIL	SROPRI1+5

Name	Field # of Occurrence
^(	SROPRI1+8

Name	Field # of Occurrence
DIR	SROPRI1+10!
DIR("A"	SROPRI1+10*
DIR(0	SROPRI1+10*
IO	SROPRI1+2
IOF	HDR+2
IOST	SROPRI1+10, HDR+3
>> SP	UTIL+3*
>> SR(0	UTIL+2*, UTIL+3
>> SRCODE(	SROPRI1+3, UTIL+2
>> SRD	SROPRI1+5*
>> SRED1	SROPRI1+5
>> SRFRTO	HDR+3
>> SRHALT	HDR+1
>> SRINST	HDR+2
>> SRLINE	SROPRI1+4*, HDR+3
>> SRPRINT	HDR+3
>> SRSOUT	SROPRI1+8, HDR+1*
>> SRSS	SROPRI1+7*, UTIL+3, HDR+4
>> SRTN	SROPRI1+5*, UTIL+1, UTIL+2
>> X	SROPRI1+3, SROPRI1+4, SROPRI1+8, UTIL+2, UTIL+4
>> ZTQUEUED	HDR+1