Routine: SROANEW

Package	Total	Call Graph
Surgery	5	EXCL^SROASS DRDEL^SRONASS ^SROP1 ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
VA Fileman	1	^DIE

Package

Total

Call Graph

Surgery

EXCL^SROASS DRDEL^SRONASS ^SROP1 ($$LOCK,UNLOCK)^SROUTL ^SRSKILL

VA Fileman

^DIE

Package	Total	Caller Graph
Surgery	1	SROASS

Package

Total

Caller Graph

Surgery

SROASS

Name	Field # of Occurrence
^DIE	ASK+7, ASK+9, TYPE, TYPE+1
EXCL^SROASS	ASK
DRDEL^SRONASS	ASK+6
^SROP1	DISP+2
$$LOCK^SROUTL	ASK+5
UNLOCK^SROUTL	ASK+5
^SRSKILL	END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID") Line Location: SROANEW+2
Function Call: WRITE	Prompt: !! Line Location: SROANEW+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: SROANEW+4
Function Call: WRITE	Prompt: "No operations exist for this patient. Assessment cannot be entered.",!!,"Press RETURN to continue... " Line Location: SROANEW+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: OPT+0
Function Call: WRITE	Prompt: !!,"This case is currently flagged as meeting Risk Assessment exclusion criteria.",$C(7) Line Location: ASK+1
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ASK+2
Function Call: WRITE	Prompt: !!,"Enter 'YES' to create an assessment for this surgical case, or 'NO' to quit",!,"this option." Line Location: ASK+3
Function Call: WRITE	Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),! Line Location: LIST+6
Function Call: WRITE	Prompt: CNT_". " Line Location: DISP+4
Function Call: WRITE	Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3),?14,SROPS(1) Line Location: CASE+0
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+0
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+0
Function Call: WRITE	Prompt: !,?14,SROPS(4) Line Location: CASE+1
Function Call: WRITE	Prompt: !! Line Location: CASE+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+1
Function Call: WRITE	Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),!! Line Location: SEL+2
Function Call: WRITE	Prompt: !!,"Please enter the number corresponding to the Surgical Case you want to edit.",!,"If the case desired does not appear, enter <RET> to continue listing",!,"additional cases." Line Location: SEL+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+4
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Routine Call	DIE Line Location: ASK+7 ASK+9 TYPE TYPE+1

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	ASK+1, ASK+6, ASK+8, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+7, DISP , DISP+1, OTHER+1, OTHER+2
^SRF("ADT"	SROANEW+3

Name	Line Occurrences
ASK	SROANEW+3, ASK+3
END	SROANEW+4, OPT
LIST	SROANEW+3
LOOP	DISP+3
OPT	OPT+1
OTHER	DISP
SEL	LIST+6

Name	Field # of Occurrence
^(	LIST+2
^(37	LIST+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	SROANEW+3, SROANEW+4, OPT+1, LIST+6, LIST+7, DISP+1, DISP+4, CASE+3
DA	ASK+7!, ASK+9!, TYPE, TYPE+1!
>> DFN	SROANEW+3
DIE	ASK+7!, ASK+9!, TYPE!, TYPE+1!
DR	ASK+7!, ASK+9!, TYPE!, TYPE+1!
DTIME	SROANEW+4, OPT, ASK+2, SEL+1, SEL+4
>> I	SROANEW+3, DISP
IOF	SROANEW+2, LIST+6, SEL+2, END
IOSL	LIST+6
>> LOOP	LOOP+1*
>> M	DISP+3*, LOOP+1
MM	DISP+3!, LOOP+1*
MMM	DISP+3!, LOOP+1*
>> SR("RA"	DISP+1*
>> SRASS	SROANEW+3, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6, LIST+7, DISP, DISP+1 , DISP+2, CASE+3, OTHER+1, OTHER+2
>> SRATYPE	ASK, ASK+7, TYPE
>> SRBACK	LIST+6, SEL+4
>> SRCASE(	OPT+1, OPT+2, CASE+3*, SEL+3, SEL+4, SEL+5
>> SRCASE(1	LIST+6
>> SRDT	SROANEW+3, LIST+6, CASE+3
>> SRLONG	OTHER+1*, OTHER+2
>> SRNEWOP	OPT+1
>> SROP	DISP+2*
>> SROPER	DISP, DISP+3, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	DISP+3!
SROPS(	LOOP+1*
SROPS(1	DISP+3*, CASE
SROPS(2	CASE
SROPS(3	CASE
SROPS(4	CASE+1
>> SROTHER	DISP, OTHER+1, OTHER+2
SRSCAN	LIST+2*!, LIST+3, LIST+4
>> SRSDATE	LIST+7*, CASE
>> SRSOUT	SROANEW+3, OPT, ASK+2, ASK+4, LIST+6, SEL+1, SEL+4*
SRTN	SROANEW+3, OPT+2, ASK+1, ASK+2!, ASK+4!, ASK+5, ASK+6, ASK+7, ASK+8, ASK+9 , ASK+10!, LIST+6, DISP+4, CASE+2, SEL+5, TYPE, TYPE+1
>> SRYN	ASK+2, ASK+3, ASK+4
>> VA("PID"	SROANEW+2, LIST+6, SEL+2
>> VADM(1	SROANEW+2, LIST+6, SEL+2
X	SROANEW+4, OPT, OPT+1, OPT+2, ASK+8~, SEL+1, SEL+2, SEL+3, SEL+4*, SEL+5

Customize PDF page

Package: Surgery

Routine: SROANEW

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
OPT
DISP
END
LIST	; list assessments
CASE
OTHER	; other operations
ASK
SEL	; select case
TYPE
LOOP	; break procedures