Routine: SROALEN

Package	Total	Call Graph
Surgery	5	^SROALDP ^SROALN1 ^SROALN2 (,HDR)^SROAUTL ($$LOCK,UNLOCK)^SROUTL
VA Fileman	2	^DIE EN^DIQ1

Package

Total

Call Graph

^SROALDP ^SROALN1 ^SROALN2 (,HDR)^SROAUTL ($$LOCK,UNLOCK)^SROUTL

^DIE EN^DIQ1

Package	Total	Caller Graph
Surgery	1	SROALAB

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SROALEN+2
Function Call: WRITE	Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue " Line Location: SROALEN+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: @IOF Line Location: END+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 information.",!!,"2. Enter a number (1-15) to update the information in that field. (For",!," example, enter '3' to update Preoperative BUN)" Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"3. Enter a range of numbers (1-15) separated by a ':' to enter a range of",!," information. (For example, enter '2:4' to update Serum Sodium,",!," BUN, and Serum Creatinine)" Line Location: HELP+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: HELP+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: RET+0
Routine Call	DIE Line Location: ONE+1 ONE+2 CONCC+5

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

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

Name	Field # of Occurrence
>> CURLEY	RANGE+2*
DA	ONE+1, ONE+2, CONCC+3!, CONCC+4, CONCC+5!
DIC	CONCC+3!, CONCC+4*
DIE	ONE+1!, ONE+2!, CONCC+5!*
DIQ	CONCC+3!, CONCC+4*
DIQ(0	CONCC+4*
DR	ONE+1!, ONE+2!, CONCC+3!, CONCC+4, CONCC+5!
DTIME	SROALEN+2, ASK, HELP+3, RET
>> EMILY	ASK+7, RANGE+2, ONE+1, ONE+2
IOF	END, HELP
>> P1	CONCC+4*, CONCC+5
>> P2	CONCC+4*, CONCC+5
>> S1	CONCC+3*, CONCC+4, CONCC+5
>> S2	CONCC+3*, CONCC+4, CONCC+5
>> SHEMP	RANGE+2*
SRA	START!
SRAO	START!
SRAO(	ASK+2, ASK+7, ONE+1, ONE+2, CONCC+3
>> SRCON	CONCC+2*, CONCC+5
>> SRI	CONCC+3*
>> SRNOMORE	RANGE+2, ONE+1, ONE+2*
>> SRPAGE	ASK+5*
>> SRSOUT	SROALEN+3, START, ASK, ASK+2, ASK+4, HELP+3, RET
>> SRTN	SROALEN+2, ASK+8, RANGE+1, ONE+1, ONE+2, CONCC+1, CONCC+2, CONCC+4, CONCC+6
SRY	CONCC+3!
SRY(130	CONCC+4
>> X	SROALEN+2, ASK, ASK+1, ASK+2, ASK+3, ASK+4, ASK+6, ASK+7, HELP+3, RANGE+2 , RET
>> Y	ASK+4*, ONE+1, ONE+2
>> Z	ASK+4*

Information

Name	Comments	DBIA/ICR reference
CONCC	; check for concurrent case and update if one exists
END
HELP
RET
ONE	; edit one item
START
RANGE	; range of numbers
ASK