Routine: SROACTH1

Package	Total	Call Graph
Surgery	3	(,HDR)^SROAUTL ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
VA Fileman	3	^DIE EN^DIQ1 ^DIR

Package	Total	Caller Graph
Surgery	1	SROACAT

Entry Points

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SROACTH1+2
Function Call: WRITE	Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue " Line Location: SROACTH1+2
Function Call: WRITE	Prompt: !! Line Location: EDIT+11
Function Call: WRITE	Prompt: "-" Line Location: EDIT+11
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+0
Function Call: WRITE	Prompt: @IOF,!!!!,"Enter the number or range of numbers you want to edit. Examples of proper",!,"responses are listed below." Line Location: HELP+0
Function Call: WRITE	Prompt: !!,"1. Enter 'A' to update all items.",!!,"2. Enter a number (1-"_SRZ_") to update an individual item. (For example,",!," enter '1' to update "_$P(SRZ(1),"^")_".)" Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"3. Enter a range of numbers (1-"_SRZ_") separated by a ':' to enter a range",!," of items. (For example, enter '1:3' to update items Left main stenosis, ",!," LAD Stenosis and Right coronary stenosis.)",! Line Location: HELP+2
Function Call: WRITE	Prompt: !,"4. Enter '@' to delete information from all items.",! Line Location: HELP+3
Function Call: WRITE	Prompt: ! Line Location: PRESS+0
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Routine Call	DIE Line Location: ONE+1 REDO+1
Routine Call	DIR Line Location: PRESS

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

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	REDO

Name	Field # of Occurrence
>> CURLEY	RANGE+2*
DA	EDIT+1!, EDIT+4!, ONE+1!, REDO+1!*
DIC	EDIT+1!, EDIT+4*!
DIE	ONE+1!, REDO+1!
DIQ	EDIT+1!, EDIT+4*!
DIQ(0	EDIT+4*
DIR	PRESS!
DIR("A"	PRESS*
DIR(0	PRESS*
DR	EDIT+1!, EDIT+2, EDIT+3, EDIT+4!, ONE+1!, REDO+1!*
DTIME	SROACTH1+2, SEL
>> DTOUT	PRESS
>> DUOUT	PRESS
>> EMILY	SEL+5, RANGE+2, ONE+1
I	EDIT~, EDIT+5*, TR
IOF	HELP, END
>> J	TR*
>> K	EDIT+11*
M	EDIT~, EDIT+5*
>> SHEMP	RANGE+2*
>> SRDR	EDIT+2, EDIT+3, EDIT+4, EDIT+5
>> SRDT	ONE+1*
>> SREXT	EDIT+7*, EDIT+10
>> SRFLD	EDIT+7*
>> SRFLG	SEL+1, HELP+3
SROFL	EDIT~, EDIT+1, EDIT+2, EDIT+3, REDO+2
>> SRPAGE	EDIT*
>> SRQ	EDIT+1*
>> SRR	EDIT, EDIT+12, SEL+1, SEL+2, SEL+4, SEL+5*
>> SRSOUT	SROACTH1+3, START, EDIT+13, SEL, PRESS, RANGE+2, ONE+1*
>> SRTN	SROACTH1+2, EDIT+4, EDIT+7, SEL+6, RANGE+1, ONE+1, REDO, REDO+1
SRY	EDIT+1!
SRY(130	EDIT+7
SRZ	EDIT~, EDIT+5, EDIT+7, EDIT+8, EDIT+9, EDIT+10, SEL+2, SEL+3, HELP+1, HELP+2
SRZ(	EDIT+7*, SEL+1, SEL+5, ONE+1
SRZ(1	HELP+1
>> X	SROACTH1+2, EDIT+7, SEL, SEL+1, SEL+2, SEL+3, SEL+4, SEL+5, RANGE+2, GET*
>> Y	EDIT+7, SEL+2, ONE+1
>> Z	EDIT+7, EDIT+10, SEL+2

Name	Field # of Occurrence
$T(@J	GET