Routine: SROASSE

Package	Total	Call Graph
Registration	1	DEM^VADPT
Surgery	1	^SRSKILL
VA Fileman	1	^DIC

Package

Total

Call Graph

Registration

DEM^VADPT

Surgery

^SRSKILL

VA Fileman

^DIC

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

Name	Field # of Occurrence
^DIC	SROASSE+2
^SRSKILL	END
DEM^VADPT	SROASSE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SROASSE+2
Function Call: WRITE	Prompt: @IOF,!,?1,SRANM Line Location: START+1
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: !! Line Location: START+3
Function Call: WRITE	Prompt: !!,"There are no Surgery Risk Assessments entered for "_VADM(1)_"." Line Location: START+5
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 a",!,"new risk assessment entry." Condition for execution: $D(SRNEW) Line Location: OPT+1
Function Call: WRITE	Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),! Line Location: LIST+1
Function Call: WRITE	Prompt: CNT_". " Line Location: DISP+5
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
Routine Call	DIC Line Location: SROASSE+2

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	START+2
^SRF - [#130]	LIST+2, DISP, DISP+1, OTHER+1, OTHER+2
^SRF("ADT"	START+3

Name	Line Occurrences
END	SROASSE+2, START+1, OPT
LIST	START+3
LOOP	DISP+4
OPT	OPT+1
OTHER	DISP
SEL	LIST+1

Name	Field # of Occurrence
^(	START+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	START+3, OPT+1, LIST+1, LIST+2*, DISP+5, CASE+3
>> DFN	SROASSE+3*, START+2, START+3
DIC	SROASSE+2!*
DIC("A"	SROASSE+2*
DIC(0	SROASSE+2*
DTIME	OPT, SEL+1, SEL+4
>> I	START+3, DISP
IOF	START+1, LIST+1, END, SEL+2
IOSL	LIST+1
>> LOOP	LOOP+1*
>> M	DISP+4*, LOOP+1
MM	DISP+4!, LOOP+1*
MMM	DISP+4!, LOOP+1*
>> SR("RA"	DISP+1*, DISP+2
>> SRANM	SROASSE+3*, START+1
>> SRASS	START+3, LIST+1, LIST+2, DISP, DISP+1, CASE+3, OTHER+1, OTHER+2
>> SRBACK	LIST+1, SEL+4
>> SRCASE(	OPT+1, OPT+2, CASE+3*, SEL+3, SEL+4, SEL+5
>> SRCASE(1	START+5, LIST+1
>> SRDT	START+2, START+3, LIST+1*, CASE+3
>> SRLONG	OTHER+1*, OTHER+2
>> SRNEW	OPT+1
>> SROPER	DISP, DISP+3, DISP+4, OTHER+1, OTHER+3, LOOP+1*
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	DISP+4!
SROPS(	LOOP+1*
SROPS(1	DISP+4*, CASE
SROPS(2	CASE
SROPS(3	CASE
SROPS(4	CASE+1
>> SROTHER	DISP, OTHER+1, OTHER+2
>> SRSDATE	LIST+2*, CASE
>> SRSOUT	SROASSE+2, START+1, START+3, OPT, LIST+1, END, SEL+1, SEL+4
SRTN	SROASSE+2!, START+3, START+4, OPT+2, LIST+1, DISP+5, CASE+2, SEL+5
>> STATUS	DISP+1, DISP+2, DISP+3
>> VA("PID"	SROASSE+3, LIST+1, SEL+2
>> VADM(1	SROASSE+3, START+5, LIST+1, SEL+2
>> X	OPT, OPT+1, OPT+2, SEL+1, SEL+2, SEL+3, SEL+4*, SEL+5
>> Y	SROASSE+2, SROASSE+3
>> Z	DISP+1*

Customize PDF page

Package: Surgery

Routine: SROASSE

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: