Routine: SROACAT

Package	Total	Call Graph
Surgery	5	^SROACTH ^SROACTH1 (,HDR)^SROAUTL ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
VA Fileman	3	^DIE $$GET1^DIQ ^DIR

Package

Total

Call Graph

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

^DIE $$GET1^DIQ ^DIR

Package	Total	Caller Graph
Surgery	2	SROA CATHETERIZATION SROAUTL3

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SROACAT+2
Function Call: WRITE	Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue " Line Location: SROACAT+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !! Line Location: ASK+7
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 a number (1-8) to update the information in that field. (For",!," example, enter '3' to update Aortic Systolic Pressure.)" Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"3. Enter a range of numbers (1-8) separated by a ':' to enter a range of",!," information. (For example, enter '1:3' to update Procedure, LVEDP",!," and Aortic Systolic Pressure.)" 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
Function Call: WRITE	Prompt: !,"You have changed the answer from ""NS""." Line Location: KAA+1
Routine Call	DIE Line Location: ONE+2 ALL+6 KAA+7
Routine Call	DIR Line Location: ALL+3 KAA+4

FileNo	Call Tags
^SRF - [#130]	GET1^DIQ

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

Name	Field # of Occurrence
>> CURLEY	RANGE+2*
>> DA	ONE+2, ALL+4, KAA+5*
DIE	ONE+2!, ALL+4!, KAA+5!, KAA+7*
DIR	ALL+1!, ALL+3!, KAA+1!, KAA+4!
DIR("?"	ALL+2, KAA+3
DIR("A"	ALL+1, KAA+2
DIR("B"	ALL+1, KAA+2
DIR(0	ALL+2, KAA+3
DR	ONE+2!, ALL+4!, ALL+5, ALL+6!, KAA+5!, KAA+6*!, KAA+7!
DTIME	SROACAT+2, ASK, HELP+3, RET
>> DTOUT	ONE+2, ALL+3, KAA+4
>> DUOUT	ALL+3, KAA+4
>> EMILY	ASK+6, RANGE+2, ONE+1, ONE+2, ONE+3, ONE+4
IOF	END+1, HELP
>> SHEMP	RANGE+2*
>> SRACLR	SROACAT+3, START
>> SRAO(	ASK+1, ASK+6, ONE+2
SRB	ONE+1~*, ONE+3
>> SREQST	END+1
SRI	KAA+1~, KAA+5*
>> SRSOUT	SROACAT+3, START, ASK+1, ASK+3, END, HELP+3, RANGE+2, ONE+2, RET
>> SRSUPCPT	SROACAT+3*
>> SRTN	SROACAT+2, ASK+7, RANGE+1, ONE+1, ONE+2, ONE+3, ONE+4, ALL+4, KAA+5
>> X	SROACAT+2, ASK, ASK+1, ASK+2, ASK+3, ASK+5, ASK+6, HELP+3, RANGE+2, RET
>> Y	ASK+3*, ONE+2, ALL+3, KAA+4
>> Z	ASK+3*

Information

Name	Comments	DBIA/ICR reference
ALL	; Entering NS for the procedure field should make all other fields in this Cath section default to NS also
END
HELP
KAA	; if the value of the procedure type field is changed from NS to somthing else then prompt the user to delete the rest of the fields
RET
ONE	; edit one item
START
RANGE	; range of numbers
ASK