Routine: SRSCAN0

Package	Total	Call Graph
Surgery	6	^SROERR0 UNLOCK^SROUTL ^SRSCAN2 ^SRSCG ^SRSKILL CANCC^SRSUTL2
VA Fileman	3	(C,NOW)^%DTC (,FILE)^DIE ^DIR

Package	Total	Caller Graph
Surgery	1	SRSCAN

Entry Points

Name	Comments	DBIA/ICR reference
CON1
CUT
SWAP2
OERR	; update ORDER file (100)
REQ
ASK
NOCC	; no longer concurrent cases
SWAP	; move data into a new entry and set up the cancel date in the old
PRESS
END
CON

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Case schedule type is STANDBY. " Line Location: CUT+1
Function Call: WRITE	Prompt: !!,"Case #"_SRTN_" has been removed from the schedule and changed to a request." Line Location: REQ+8
Function Call: WRITE	Prompt: ! Line Location: PRESS+0
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"If you want to remove both cases from the schedule, enter 'YES'. If you",!,"answer 'NO', the cases will no longer be associated with each other." Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: SWAP+1
Function Call: WRITE	Prompt: !!,"Case NOT cancelled." Line Location: SWAP+1
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Routine Call	DIE Line Location: REQ+3 NOCC+1 SWAP+2 CON+1 CON1+1
Routine Call	DIE Line Location: REQ+7
Routine Call	DIR Line Location: PRESS SWAP+1

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	CUT+1, CUT+3, REQ+1, REQ+2, REQ+4, ASK+3, NOCC+1, SWAP+3, SWAP+4, SWAP+5 , SWAP+6, SWAP2, SWAP2+1, CON, CON+2, CON1+2
^SRF("AMM"	REQ+1!, SWAP2!
^SRF("AR"	REQ+2*
^SRO(133 - [#133]	CUT
^SRO(135 - [#135]	SWAP2+2, CON1+1
^TMP("CSLSUR1"	CON+2*
^TMP("SRPFSS"	REQ+2*

Name	Field # of Occurrence
^("CON"	CON
^(30	SWAP+3

Name	Field # of Occurrence
>> %	CUT+2, SWAP2, CON1+2
>> AVOID	SWAP+3*, CON1+1
>> DA	REQ+3, NOCC+1, SWAP+2, CON+1, CON1+1*
>> DFN	REQ+2
>> DIE	REQ+3, NOCC+1, SWAP+2, CON+1, CON1+1*
DIR	PRESS!, SWAP+1!
DIR("A"	SWAP+1*
DIR(0	PRESS, SWAP+1
>> DIRUT	SWAP+1
DR	REQ+3!, NOCC+1, SWAP+2!, CON+1!, CON1+1!*
DTIME	ASK
>> DTOUT	SWAP+2
>> DUOUT	SWAP+2
DUZ	REQ+6, SWAP+2, CON1+1
IOF	END
>> SRBOTH	CUT+3, REQ, REQ+9, ASK, CON, CON+2
>> SRCON	SWAP+2*, CON+1
>> SRDEAD	CON+2, CON1
SREQ	REQ+5~
SREQ(130	REQ+6*
>> SRN	CUT+2*, REQ+6
>> SROERR	NOCC+1, CON+1, CON+2, OERR+1
>> SRSCAN	SWAP+1*, SWAP+2, SWAP2+2, CON1+1
>> SRSCC	CON, CON+2
>> SRSCHST	REQ+1, SWAP+3, SWAP2
>> SRSDATE	CUT, REQ+2
>> SRSDPT	SWAP+5*
>> SRSDT	CUT*
>> SRSITE	CUT
>> SRSOP	SWAP+5*
>> SRSOR	REQ+1, SWAP2
>> SRSOUT	SWAP+2*, SWAP2+3, CON
>> SRSSET	SWAP+6*
>> SRTIME	CUT*, CUT+2
SRTN	CUT+1, CUT+3, REQ+1, REQ+2, REQ+3, REQ+4, REQ+6, REQ+8, ASK+3*, NOCC+1 , SWAP+2, SWAP+3, SWAP+4, SWAP+5, SWAP+6, SWAP2, SWAP2+1, CON, CON+2, END! , CON1+1, CON1+2, OERR+1
>> SRTNEW	CON+1
SRTX	OERR+1!
>> SRTYPE	CUT+1*, CUT+2
>> SRYN	ASK, ASK+1, ASK+2, ASK+3
>> X	CUT*
>> X1	CUT*
>> X2	CUT*
>> Y	SWAP+1