Routine: SROACR2

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

Package

Total

Call Graph

Surgery

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

VA Fileman

^DIE EN^DIQ1 ^DIR

Kernel

ENDR^%ZISS

Package	Total	Caller Graph
Surgery	2	SROACAR SROACAR1

Package

Total

Caller Graph

Surgery

SROACAR SROACAR1

Entry Points

Name	Comments	DBIA/ICR reference
CHA	;;381^Foreign Body Removal
CHB	;;382^Pericardiectomy
END
HELP
GET
EDIT
TR
RANGE	; range of numbers
RET
CHCK	; compare ischemic time to CPB time
START
EXT
DFI	;;469^Convert Off Pump to CPB
ONE	; edit one item
DEJ	;;450^Total Ischemic Time
DEA	;;451^Total CPB Time
SEL
DFH	;;468^Incision Type

Name	Field # of Occurrence
ENDR^%ZISS	CHCK+1
^DIE	ONE+1
EN^DIQ1	EDIT+3
^DIR	RET
^SROAUTL	SROACR2+4
HDR^SROAUTL	EDIT
$$LOCK^SROUTL	SEL+6, RANGE+1
UNLOCK^SROUTL	SEL+6, RANGE+1
^SRSKILL	END

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SROACR2+3
Function Call: WRITE	Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue " Line Location: SROACR2+3
Function Call: WRITE	Prompt: "Indicate other cardiac procedures only if done with cardiopulmonary bypass",! Line Location: EDIT+0
Function Call: WRITE	Prompt: "-" Line Location: EDIT+0
Function Call: WRITE	Prompt: !,"Other Operative Data details:",!,"------------------------------" Line Location: EDIT+7
Function Call: WRITE	Prompt: ! Line Location: EDIT+10
Function Call: WRITE	Prompt: "-" Line Location: EDIT+10
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+0
Function Call: WRITE	Prompt: ! Line Location: SEL+6
Function Call: WRITE	Prompt: ?30,SREXT Line Location: EXT+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-6) to update the information in that field. (For",!," example, enter '5' to update Incision Type.)" Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"3. Enter a range of numbers (1-6) separated by a ':' to enter a range of",!," information. (For example, enter '3:5' to enter Total CPB time,",!," Total Ischemic time, and Incision Type.)" Line Location: HELP+2
Function Call: WRITE	Prompt: !,IORVON_"* NOTE: Ischemic Time is greater than CPB Time!! Please check. *"_IORVOFF Line Location: CHCK+3
Function Call: WRITE	Prompt: ! Line Location: RET+0
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Routine Call	DIE Line Location: ONE+1
Routine Call	DIR Line Location: RET

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

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

Name	Line Occurrences
CHCK	EDIT+10
EDIT	EDIT+11
END	SROACR2+3, START, EDIT+12
EXT	EDIT+8
GET	EDIT+5
HELP	SEL+1, SEL+2
ONE	SEL+6, RANGE+2
RANGE	SEL+4
RET	HELP+3
SEL	EDIT+11
TR	EDIT+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CURLEY	RANGE+2*
DA	EDIT+3!, ONE+1!
DIC	EDIT+3!*
DIE	ONE+1!*
DIQ	EDIT+3!*
DIQ(0	EDIT+3*
DIR	RET!
DIR(0	RET*
DR	EDIT+2!, EDIT+3!, ONE+1!*
DTIME	SROACR2+3, SEL
>> DTOUT	RET
>> DUOUT	RET
>> EMILY	SEL+5, RANGE+2, ONE+1, ONE+2
>> I	EDIT+4*, TR
IOF	HELP, END
>> IORVOFF	CHCK+3
>> IORVON	CHCK+1, CHCK+3
>> J	TR*
>> K	EDIT, EDIT+10
>> M	EDIT+4*
>> SHEMP	RANGE+2*
SRCPB	CHCK+2~*, CHCK+3
>> SRDR	EDIT+2*, EDIT+3, EDIT+4
>> SRDT	ONE+1*
SREXT	EDIT+5!, EDIT+6*, SEL+4!, EXT
>> SRFLD	EDIT+6*, EDIT+7, EDIT+9
>> SRFLG	SEL+1
SRISCH	CHCK+2~*, CHCK+3
>> SRPAGE	EDIT*
>> SRQ	EDIT+2*
>> SRR	EDIT, EDIT+11, SEL+1, SEL+2, SEL+4, SEL+5*
>> SRSOUT	SROACR2+4, START, EDIT+12, SEL, RET, RANGE+2, ONE+1*
>> SRTN	SROACR2+3, EDIT+3, EDIT+6, SEL+6, CHCK+2, RANGE+1, ONE+1, ONE+2
SRX	EDIT+4!, EDIT+6, EDIT+8, SEL+2, SEL+3
SRX(	EDIT+6*, SEL+1, SEL+5, ONE+1
SRY	EDIT+3!
SRY(130	EDIT+6, CHCK+2
>> X	SROACR2+3, EDIT+6, SEL, SEL+1, SEL+2, SEL+3, SEL+4, SEL+5, CHCK+1, RANGE+2 , GET
>> Y	EDIT+6, SEL+2, ONE+1
>> Z	EDIT+6, EDIT+8, SEL+2

Customize PDF page

Package: Surgery

Routine: SROACR2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items