Routine: SROASS

Package	Total	Call Graph
Surgery	9	^SROADEL ^SROANEW (,DISP)^SROASS1 ^SROASSN CPTS^SROAUTL0 $$XL^SROAX ^SROPSEL ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
VA Fileman	2	^DIE ^DIR

Package

Total

Call Graph

Surgery

^SROADEL ^SROANEW (,DISP)^SROASS1 ^SROASSN CPTS^SROAUTL0 $$XL^SROAX ^SROPSEL ($$LOCK,UNLOCK)^SROUTL
^SRSKILL

VA Fileman

^DIE ^DIR

Package	Total	Caller Graph
Surgery	6	SROA CARDIAC ENTER/EDIT SROA ENTER/EDIT SROA30 SROAERR SROANEW SROASSP

Package

Total

Caller Graph

Surgery

SROA CARDIAC ENTER/EDIT SROA ENTER/EDIT SROA30 SROAERR SROANEW SROASSP

External References

Name	Field # of Occurrence
^DIE	TRANS+3
^DIR	START+7, ENTER+3, ENTER+4, TRANS+1
^SROADEL	ENTER+10
^SROANEW	OPT+2
^SROASS1	START+4
DISP^SROASS1	ENTER+5
^SROASSN	START+3
CPTS^SROAUTL0	EXCL+2
$$XL^SROAX	EXCL
^SROPSEL	PST+1
$$LOCK^SROUTL	TRANS+3
UNLOCK^SROUTL	TRANS+3
^SRSKILL	END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: PST+0
Function Call: WRITE	Prompt: " * DIED "_$E(SRDT,4,5)_"/"_$E(SRDT,6,7)_"/"_$E(SRDT,2,3)_" *" Line Location: START+2
Function Call: WRITE	Prompt: CNT,". ---- CREATE NEW ASSESSMENT" Line Location: START+6
Function Call: WRITE	Prompt: !!,"There are no Surgery Risk Assessments entered for "_VADM(1)_".",!! Line Location: START+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: OPT+0
Function Call: WRITE	Prompt: !!,"Enter the number of the desired assessment." Line Location: OPT+1
Function Call: WRITE	Prompt: " Select '"_CNT_"' to create an",!,"assessment for another surgical case." Condition for execution: $D(SRNEW) Line Location: OPT+1
Function Call: WRITE	Prompt: @IOF,!,?1,SRANM,!! Line Location: ENTER+5
Function Call: WRITE	Prompt: !!,"1. Enter Risk Assessment Information",!,"2. Delete Risk Assessment Entry",!,"3. Update Assessment Status to 'COMPLETE'" Line Location: ENTER+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: ENTER+8
Function Call: READ	Timeout: DTIME Variable: X Line Location: ENTER+10
Function Call: WRITE	Prompt: !!,"Press <RET> to continue " Line Location: ENTER+10
Function Call: WRITE	Prompt: @IOF Line Location: ENTER+10
Function Call: WRITE	Prompt: !!,"Enter <RET> or '1' to enter or edit information related to this Risk ",!,"Assessment entry. If you want to delete the Assessment, enter '2'." Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Enter '3' to update the status of this Assessment to 'COMPLETE'." Line Location: HELP+2
Function Call: WRITE	Prompt: !!,"Press <RET> to continue " Line Location: HELP+3
Function Call: WRITE	Prompt: @IOF,!,"This assessment has already been transmitted. The information contained",!,"in it cannot be altered unless you first change the status to 'INCOMPLETE'." Line Location: TRANS+0
Routine Call	DIE Line Location: TRANS+3
Routine Call	DIR Line Location: START+7 ENTER+3 ENTER+4 TRANS+1

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	START+2
^SRF - [#130]	ENTER+2, ENTER+5
^SRO(136 - [#136]	EXCL

Name	Line Occurrences
@(	ENTER+11
END	PST+1, START+1, START+4, OPT, OPT+2, ENTER+3, ENTER+4, ENTER+8, ENTER+10, ENTER+11
ENTER	START+3, START+5, ENTER+9
EXCL	ENTER+6
HELP	ENTER+9
OPT	OPT+1
PST	START+3
START	ENTER+2
TRANS	ENTER+2

Name	Field # of Occurrence
^(	START+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	START+3, START+6, OPT+1, OPT+2
DA	TRANS+3!*
>> DFN	PST+1, START+2
DIE	TRANS+3!*
DIR	START+7!, ENTER+3!, ENTER+4!, TRANS+1!
DIR("A"	START+7, ENTER+3, ENTER+4, TRANS+1
DIR("B"	ENTER+3, ENTER+4, TRANS+1*
DIR(0	START+7, ENTER+3, ENTER+4, TRANS+1
DR	TRANS+3!*
DTIME	OPT, ENTER+8, ENTER+10, HELP+3
>> DTOUT	TRANS+1
>> DUOUT	TRANS+1
DUZ("SAV"	PST
IOF	START+1, ENTER+5, ENTER+10, END, TRANS
>> SR("RA"	ENTER+2*, ENTER+3, ENTER+4, ENTER+11
>> SRANM	PST+1*, START+1, ENTER+5
SRASS	ENTER+2!, ENTER+5*, ENTER+8!
>> SRATYPE	ENTER+3, ENTER+4, ENTER+6
>> SRCASE(	START+6*, OPT+1, OPT+3
>> SRCASE(1	START+7
>> SRDT	START+2*
SRL	EXCL+2~*
SRNEW	PST!, START+6, OPT+1, OPT+2, ENTER+1
>> SRPRINT	ENTER+1
SRPROC	EXCL+2~
SRPROC(1	EXCL+2
>> SRSDATE	ENTER+5*
SRSEL	PST+1~, START+1, START+3, ENTER+2
>> SRSOUT	PST, START+1, START+4, OPT, ENTER+2, ENTER+3, ENTER+4, ENTER+8, END, TRANS+1
SRTN	PST!, START+3, START+5, OPT+3*, ENTER+2!, ENTER+3!, ENTER+4!, ENTER+5, ENTER+8!, ENTER+10! , ENTER+11!, EXCL, TRANS+3
>> SRYN	ENTER+2, TRANS+1, TRANS+2
>> VA("PID"	PST+1
>> VADM(1	PST+1, START+7
>> X	OPT, OPT+1, OPT+2, OPT+3, ENTER+3, ENTER+4, ENTER+8, ENTER+9, ENTER+10, ENTER+11 , HELP+3*
>> Y	TRANS+2

Customize PDF page

Package: Surgery

Routine: SROASS

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
OPT
END
HELP	;
START	; start display
ENTER	; edit, complete, or delete
EXCL
TRANS
PST