Routine: SRONOP1

Package	Total	Call Graph
Surgery	7	^SRCUSS (,DEL)^SROERR ^SRONOP ^SROPCE1 DEL^SROPCEP ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
VA Fileman	6	^%DT EN^DDIOL FILE^DICN ^DIE ^DIK ^DIR
Kernel	1	T0^%ZOSV

Package	Total	Caller Graph
Surgery	1	SRONOP

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID")_" * Died "_SRDEATH_" *" Line Location: SRONOP1+3
Function Call: WRITE	Prompt: @IOF,!,"Entering a new non-O.R. procedure for "_SRNM_".",!! Line Location: SRONOP1+7
Function Call: WRITE	Prompt: ! Line Location: OP+1
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: !!,"The Date of the Procedure MUST be entered." Line Location: DATE+0
Function Call: WRITE	Prompt: ! Line Location: DOC+0
Function Call: WRITE	Prompt: ! Line Location: SPEC+0
Function Call: WRITE	Prompt: ! Line Location: SUMM+1
Function Call: WRITE	Prompt: !!,"No action taken.",!!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: DEL+1
Function Call: WRITE	Prompt: !!,"No action taken..." Line Location: DEL+1
Function Call: WRITE	Prompt: !!,"Enter RETURN or 'NO' if this procedure should remain on file. Enter 'YES'",!,"to delete this procedure." Line Location: DEL+2
Function Call: WRITE	Prompt: !!,"No action taken." Line Location: DEL+3
Function Call: WRITE	Prompt: !!,"Deleting procedure..." Line Location: DEL+5
Routine Call	DIE Line Location: SUMM+8
Routine Call	DIR Line Location: SRONOP1+5 OP+1 DOC SPEC SUMM+3

FileNo	Call Tags
^SRF - [#130]	Classic Fileman Calls
^SRO(136 - [#136]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SUMM+8*, SUMM+11, DEL+4, DEL+6
^SRO(136 - [#136]	DEL+7

Name	Field # of Occurrence
%DT	DATE!*
%DT("A"	DATE*
DA	SUMM+6!, SUMM+8!, SUMM+10, DEL+7!, DEL+8
DD	SUMM+6!
>> DFN	SUMM+6
DIC	SUMM+6!*
DIC(0	SUMM+6*
DIE	SUMM+8!, SUMM+10
DIK	DEL+7!, DEL+8
DINUM	SUMM+6!
DIR	SRONOP1+4!, SRONOP1+5!, OP+1!, DOC!, SPEC!, SUMM+1!, SUMM+3!
DIR("?"	SUMM+2, SUMM+3
DIR("A"	SRONOP1+4, SRONOP1+5, OP+1, DOC, SPEC, SUMM+1
DIR("B"	SRONOP1+5*
DIR(0	SRONOP1+5, OP+1, DOC, SPEC, SUMM+3*
DLAYGO	SUMM+6*!
DO	SUMM+6!
DR	SUMM+8!, SUMM+10
DTIME	SUMM+10*, END, DEL+1
>> DTOUT	SRONOP1+6, OP+1, DATE+1, DOC, SPEC, SUMM+4
>> DUOUT	SRONOP1+6, DOC, SPEC, SUMM+4
IOF	SRONOP1+3, SRONOP1+7, END+1
>> ORL	SUMM+11*
>> Q3("VIEW"	SUMM+7*
>> Q3(1	SUMM+9*
>> SRDEATH	SRONOP1+3*, SRONOP1+4
>> SRDTIME	SUMM+10*
SREXPT	SUMM+1~, SUMM+5*, SUMM+8
>> SRL	SUMM+11*
SRLCK	SUMM+7~*, SUMM+12
>> SRN	SUMM+9*
>> SRNM	SRONOP1+7, SUMM+9
>> SROPER	OP+2*, SUMM+8, SUMM+11
>> SRSDATE	DATE+2*, SUMM+8
>> SRSDOC	DOC+1*, SUMM+8
>> SRSITE("DIV"	SUMM+8
>> SRSOP	SUMM+11*
>> SRSOUT	SRONOP1+2, SRONOP1+6, OP+1, DATE+1, DOC, SPEC, SUMM+4, SUMM+9, SUMM+10, END
>> SRSPEC	SPEC+1*, SUMM+8
SRTN	SUMM+6!*, SUMM+7, SUMM+8, SUMM+9, SUMM+10, SUMM+11, SUMM+12, END+1!, DEL+4, DEL+6 , DEL+7, DEL+8
>> SRVSIT	DEL+6*
>> SRX	DEL+6*
>> ST	SUMM+10*
>> VA("PID"	SRONOP1+3
>> VADM(1	SRONOP1+3
>> VADM(6	SRONOP1+2
>> X	SRONOP1+2, SRONOP1+3, OP+1, DATE, SUMM+6, END, DEL+1, DEL+2*, DEL+3
>> XRTL	RT+1
>> Y	SRONOP1+6, OP+2, DATE+1, DATE+2, DOC+1, SPEC+1, SUMM+5, SUMM+6
>> ZRTN	RT+1*