Routine: SROACAR1

Information

SROACAR1 ;BIR/MAM - OPEATIVE DATA ; [ 09/20/00 12:55 PM ]

Package	Total	Call Graph
Surgery	3	^SROACR2 (,HDR)^SROAUTL ^SRSKILL
VA FileMan	2	^DIE ^DIR

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: SROACAR1+2
Function Call: WRITE	Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue " Line Location: SROACAR1+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: ASK+6
Function Call: WRITE	Prompt: ! Line Location: ASK+7
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-12) to update the information in that field. (For",!," example, enter '9' to update Valve Repair.)" Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"3. Enter a range of numbers (1-12) separated by a ':' to enter a range of",!," information. (For example, enter '6:8' to enter Other tumor resection",!," , Cardiac transplant, and Other CT procedures.)" Line Location: HELP+2
Function Call: WRITE	Prompt: ! Line Location: RANGE+1
Function Call: WRITE	Prompt: !!," * NOTE: Ischemic Time is greater than CPB Time!! Please check. *",! Line Location: OK+1
Function Call: WRITE	Prompt: ! Line Location: OK+1
Function Call: WRITE	Prompt: ! Line Location: RET+0
Routine Call	DIE Line Location: ONE+1
Routine Call	DIR Line Location: RET

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

Name	Field # of Occurrence
>> CURLEY	RANGE+1*
>> DA	ONE+1*
DIE	ONE+1!*
DIR	RET!
DIR(0	RET*
DR	ONE+1!*
DTIME	SROACAR1+2, ASK
>> DTOUT	RET
>> DUOUT	RET
>> EMILY	ASK+6, ASK+7, RANGE+1*, ONE+1, ONE+2
IOF	END, HELP
>> SHEMP	RANGE+1*
SRA	START!
>> SRACLR	SROACAR1+3, START
SRAO	START!
SRAO(	ASK+1, ASK+6, ASK+7, ONE+1
SRCPB	OK~*, OK+1
SRISCH	OK~*, OK+1
>> SRSOUT	SROACAR1+3, START, ASK+1, ASK+3, RANGE+1, ONE+1, ONE+2, RET*
>> SRTN	SROACAR1+2, ONE+1, OK
>> X	SROACAR1+2, ASK, ASK+1, ASK+2, ASK+3, ASK+5, ASK+6, ASK+7, RANGE+1, OK*
>> Y	ASK+3*, ONE+1
>> Z	ASK+3*