Routine: SRSUTL

Package	Total	Call Graph
Surgery	1	^SROERR0
VA Fileman	1	^DIE

Package	Total	Caller Graph
Surgery	2	SRSBOUT SRSCHD2

Entry Points

Name	Comments	DBIA/ICR reference
CONCRNT	; concurrent case check
NOCC	; no longer concurrent cases
OTHER	; other operations
PATRN	; set pattern in OPERATING ROOM file

Name	Field # of Occurrence
^DIE	NOCC+1, NOCC+2
^SROERR0	NOCC+1, NOCC+2

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: SRBOTH Line Location: CONCRNT+1
Function Call: WRITE	Prompt: !!,"This prompt must be answered 'YES' or 'NO'." Line Location: CONCRNT+2
Function Call: WRITE	Prompt: !!,"If you want to schedule these operations concurrently, answer 'Y'. If not,",!,"answer 'N' and these cases will no longer be associated with each other." Line Location: CONCRNT+3
Routine Call	DIE Line Location: NOCC+1 NOCC+2

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	CONCRNT+6, CONCRNT+7, CONCRNT+8, NOCC+1, OTHER+1, OTHER+2
^SRF("AOR"	CONCRNT+7!
^SRF("ASP"	CONCRNT+8!*
^SRS - [#131.7]	PATRN+5, PATRN+6, PATRN+7

Name	Line Occurrences
CONCRNT	CONCRNT+2, CONCRNT+3
NOCC	CONCRNT+5

Name	Field # of Occurrence
^(1	PATRN+5*

Name	Field # of Occurrence
>> DA	NOCC+1, NOCC+2
>> DIE	NOCC+1, NOCC+2
>> DR	NOCC+1, NOCC+2
DTIME	CONCRNT+1
>> I	PATRN+4, PATRN+6
>> OLDATE	CONCRNT+7, CONCRNT+8
>> OPER	OTHER+1*, OTHER+2
>> S	PATRN+4*, PATRN+5
>> SRATT	CONCRNT+7*
>> SRBOTH	CONCRNT+1, CONCRNT+2, CONCRNT+3, CONCRNT+4*, CONCRNT+5, CONCRNT+6
>> SRLONG	OTHER+1*, OTHER+2
>> SROERR	NOCC+1, NOCC+2
>> SROPER	OTHER+1, OTHER+3*
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
>> SRS1	PATRN+1, PATRN+3, PATRN+4, PATRN+5, PATRN+6
>> SRS2	PATRN+1, PATRN+3, PATRN+4, PATRN+5, PATRN+6
>> SRSCC	CONCRNT+6*
>> SRSDATE	PATRN+5, PATRN+6, PATRN+7, CONCRNT+8
>> SRSET	PATRN+1
>> SRSOP	CONCRNT+6*
>> SRSOR	PATRN+5, PATRN+6, PATRN+7, CONCRNT+7
>> SRSSER	PATRN+4
>> SRSST	PATRN+1
>> SRTN	CONCRNT+6*, CONCRNT+7, CONCRNT+8, NOCC+1, OTHER+1, OTHER+2
>> SRTNEW	NOCC+2
>> SRTREAT	CONCRNT+8*
>> SRUPDT	CONCRNT+7
>> X0	PATRN+5*, PATRN+6
>> X1	PATRN+6*, PATRN+7