Routine: SROACAR

Package	Total	Call Graph
Surgery	5	^SROACR1 ^SROACR2 (,HDR)^SROAUTL ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
VA Fileman	2	^DIE ^DIR

Package

Total

Call Graph

Surgery

^SROACR1 ^SROACR2 (,HDR)^SROAUTL ($$LOCK,UNLOCK)^SROUTL ^SRSKILL

VA Fileman

^DIE ^DIR

Package	Total	Caller Graph
Surgery	1	SROA CARDIAC PROCEDURES

Package

Total

Caller Graph

Surgery

SROA CARDIAC PROCEDURES

Name	Field # of Occurrence
^DIE	ONE+3, NO2ALL+5, OPS+1, OPS+3
^DIR	ASK+6, RET
^SROACR1	START
^SROACR2	END
^SROAUTL	SROACAR+3
HDR^SROAUTL	ASK+8
$$LOCK^SROUTL	ASK+11, ASK+13, RANGE+1
UNLOCK^SROUTL	ASK+11, ASK+13, RANGE+1
^SRSKILL	END+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SROACAR+2
Function Call: WRITE	Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue " Line Location: SROACAR+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: ASK+11
Function Call: WRITE	Prompt: ! Line Location: ASK+12
Function Call: WRITE	Prompt: @IOF Line Location: END+1
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 'N' to set all fields on this page to NO." Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"3. Enter a number (1-22) to update the information in that field. (For",!," example, enter '9' to update Valve Repair.)" Line Location: HELP+2
Function Call: WRITE	Prompt: !!,"4. Enter a range of numbers (1-22) separated by a ':' to enter a range of",!," information. (For example, enter '6:8' to enter Aortic Valve",!," Replacement, Mitral Valve Replacement, and Tricuspid Valve Replacement.)" Line Location: HELP+3
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+3 NO2ALL+5 OPS+1 OPS+3
Routine Call	DIR Line Location: ASK+6 RET

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

Name	Line Occurrences
END	SROACAR+2, START, ASK, ASK+1, ASK+3, ASK+4
HELP	ASK+1, ASK+3
NO2ALL	ASK+7
OK	ONE+4
ONE	ASK+11, ASK+13, RANGE+2
OPS	ONE+2
RANGE	ASK+9
RET	START, HELP+4, OK+1
START	ASK+1, ASK+3, ASK+4, ASK+9, ASK+10, ASK+12

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CURLEY	RANGE+2*
>> DA	ONE+3, NO2ALL+1, OPS+1, OPS+3
DIE	ONE+3!, NO2ALL+1!, OPS+1, OPS+3
DIR	ASK+5!, RET!
DIR("A"	ASK+5*
DIR("B"	ASK+5*
DIR(0	ASK+5, RET
DR	ONE+3!, NO2ALL+1!, NO2ALL+2, NO2ALL+3, NO2ALL+4, NO2ALL+5!, OPS+1!, OPS+3!
DTIME	SROACAR+2, ASK
>> DTOUT	ASK+6, RET
>> DUOUT	ASK+6, RET
>> EMILY	ASK+10, ASK+12, RANGE+2*, ONE+2, ONE+3, ONE+4
II	NO2ALL+1~, NO2ALL+2, NO2ALL+3
IOF	END+1, HELP
>> SHEMP	RANGE+2*
SRA	START!
>> SRACLR	SROACAR+3, START
SRAO	START!
SRAO(	ASK+1, ASK+10, ASK+12, ONE+3
SRCPB	OK~*, OK+1
SRISCH	OK~*, OK+1
>> SRSOUT	SROACAR+3, START, ASK+1, ASK+3, ASK+4, ASK+6, END, RANGE+2, ONE+3, ONE+4 , RET
>> SRSUPCPT	SROACAR+3*
>> SRTN	SROACAR+2, ASK+11, ASK+13, RANGE+1, ONE+3, NO2ALL+1, OK, OPS+1, OPS+2, OPS+3
>> X	SROACAR+2, ASK, ASK+1, ASK+2, ASK+3, ASK+4, ASK+9, ASK+10, ASK+12, RANGE+2 , OK*, OPS+2
>> Y	ASK+3*, ASK+7, ONE+3, OPS+1
>> Z	ASK+3*

Customize PDF page

Package: Surgery

Routine: SROACAR

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
NO2ALL	; set all fields to NO
END
HELP
OPS	; enter other cardiac procedures, specify
RET
ONE	; edit one item
START
RANGE	; range of numbers
ASK
OK