Routine: SRO1L

Package	Total	Call Graph
Surgery	6	^SRO1L1 ^SROERR0 ^SROP1 ^SROPSEL ^SROVAR ^SRSKILL
VA Fileman	1	^DIR

Package

Total

Call Graph

Surgery

^SRO1L1 ^SROERR0 ^SROP1 ^SROPSEL ^SROVAR ^SRSKILL

VA Fileman

^DIR

Package	Total	Caller Graph
Surgery	1	SROA ONE-LINER UPDATE

Package

Total

Caller Graph

Surgery

SROA ONE-LINER UPDATE

Name	Comments	DBIA/ICR reference
OPT
CASE
ADT
END
HDR	; print heading
LIST	; list cases
ST
EN2
OTHER	; other operations
SROPS	; select patient and case
SEL	; select case
LOOP	; break procedure

Name	Field # of Occurrence
^DIR	SEL+1, SEL+4
^SRO1L1	EN2+1
^SROERR0	EN2+1
^SROP1	CASE+2
^SROPSEL	SROPS+1
^SROVAR	ST
^SRSKILL	END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN2+2
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SROPS+2
Function Call: WRITE	Prompt: !!,"Case #"_SROP_" is not a valid 1-liner case.",!!,"Press RETURN to continue " Line Location: SROPS+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ADT+2
Function Call: WRITE	Prompt: !!,"There are no cases entered for "_VADM(1)_".",!!,"Press RETURN to continue " Line Location: ADT+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: OPT+0
Function Call: WRITE	Prompt: !!,"Enter the number of the operation you want to edit." Line Location: OPT+1
Function Call: WRITE	Prompt: !,CNT_". " Line Location: LIST+8
Function Call: WRITE	Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3) Line Location: CASE+0
Function Call: WRITE	Prompt: ?14,SROPS(1) Line Location: CASE+3
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+3
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+3
Function Call: WRITE	Prompt: !,?14,SROPS(4) Condition for execution: $D(SROPS(4)) Line Location: CASE+3
Function Call: WRITE	Prompt: ! Line Location: CASE+4
Function Call: WRITE	Prompt: ! Line Location: SEL+1
Function Call: WRITE	Prompt: ! Line Location: SEL+3
Function Call: WRITE	Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID") Line Location: HDR+1
Function Call: WRITE	Prompt: " * DIED "_$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)_" *" Condition for execution: X Line Location: HDR+1
Function Call: WRITE	Prompt: ! Line Location: HDR+1
Routine Call	DIR Line Location: SEL+1 SEL+4

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

Name	Line Occurrences
ADT	ADT+1
EN2	EN2+2
END	EN2, SROPS+1, ADT+2, OPT
HDR	SROPS+1, LIST+7
LIST	SROPS+2, ADT
LOOP	CASE+2
OPT	OPT+1
OTHER	CASE+1
SEL	LIST+7
SROPS	EN2
ST	SROPS+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	SROPS+1, ADT, LIST+8*, CASE+4
>> DFN	ADT
DIR	SEL+1!, SEL+4!
DIR("A"	SEL+1, SEL+3, SEL+4*
DIR(0	SEL+1*
DTIME	SROPS+2, ADT+2, OPT
>> DTOUT	SEL+1, SEL+4
>> DUOUT	SEL+1, SEL+4
>> I	CASE+1*
IOF	EN2+2, END, HDR+1
IOSL	LIST+7
>> LOOP	LOOP+1*
>> M	CASE+2*, LOOP+1
MM	CASE+2!, LOOP+1*
MMM	CASE+2!, LOOP+1*
SRA	LIST+1~*
>> SRBACK	ADT, ADT+1, LIST+7, SEL+4*
SRCASE	SROPS+2!
SRCASE(	OPT+1, OPT+2, CASE+4*, SEL+3, SEL+4, SEL+5
SRCASE(1	SROPS+2, SROPS+3, ADT+2
>> SRDT	SROPS+1, ADT, CASE+4
>> SRLONG	OTHER+1*, OTHER+2
>> SROERR	EN2+1*
>> SROP	SROPS+2, ADT*, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6, LIST+8, CASE+1 , CASE+4, OTHER+1, OTHER+2
>> SROPER	CASE+1, CASE+2, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	CASE+2!
SROPS(	LOOP+1*
SROPS(1	CASE+2*, CASE+3
SROPS(2	CASE+3
SROPS(3	CASE+3
SROPS(4	CASE+3
>> SROTHER	CASE+1, OTHER+1, OTHER+2
>> SRSDATE	LIST+8*, CASE
SRSEL	SROPS+1~, SROPS+2, SROPS+3
>> SRSITE	ST
>> SRSOUT	EN2, SROPS+1, ADT, OPT, LIST+7, SEL+1, SEL+4
SRTN	EN2!, EN2+1, END!, SROPS+3, ADT, ADT+1, OPT+2, LIST+7, SEL+5*
>> VA("PID"	HDR+1
>> VADM(1	ADT+2, HDR+1
>> VADM(6	HDR+1
>> X	SROPS+2, ADT+2, OPT, OPT+1, OPT+2, SEL+2, SEL+3, SEL+4, SEL+5, HDR+1

Customize PDF page

Package: Surgery

Routine: SRO1L

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: