Routine: SROP

Package	Total	Call Graph
Surgery	10	^SRCUSS ^SRONEW ^SROP1 ^SROPCE1 ^SROPDEL SEL^SROPER ^SROPS EN2^SROVAR SS^SRSCHUP ^SRSKILL
VA Fileman	2	^DIC ^DIR
Kernel	1	T0^%ZOSV
Registration	1	DEM^VADPT

Package

Total

Call Graph

Surgery

^SRCUSS ^SRONEW ^SROP1 ^SROPCE1 ^SROPDEL SEL^SROPER ^SROPS EN2^SROVAR
SS^SRSCHUP ^SRSKILL

VA Fileman

^DIC ^DIR

Kernel

T0^%ZOSV

Registration

DEM^VADPT

Package	Total	Caller Graph
Surgery	2	SRONEW SROPER

Package

Total

Caller Graph

Surgery

SRONEW SROPER

Name	Comments	DBIA/ICR reference
OPT
CASE
ADT
END
HELP
LOCK	; case locked?
LIST	; list cases
OTHER	; other operations
FUTURE
RT	; start RT logging
ENTER	; edit or delete
LOOP	; break procedures
HDR	; print heading

Name	Field # of Occurrence
T0^%ZOSV	RT+1
^DIC	SROP+3
^DIR	FUTURE+1
^SRCUSS	ENTER+5
^SRONEW	OPT+2
^SROP1	CASE+2
^SROPCE1	ENTER+6
^SROPDEL	ENTER+4
SEL^SROPER	LIST+6
^SROPS	SROP+2
EN2^SROVAR	ENTER+5
SS^SRSCHUP	OPT+3
^SRSKILL	END
DEM^VADPT	SROP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,CNT,". ENTER NEW SURGICAL CASE" Line Location: ADT+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: OPT+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ENTER+2
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: @IOF Line Location: END+0
Function Call: WRITE	Prompt: !!,"Enter RETURN or '1' to enter or edit information contained within one of the",!,"options found under the Operations Menu. If you want to display a two screen",!,"overview of this case, enter '2'." Line Location: HELP+0
Function Call: WRITE	Prompt: " To delete this case from your records,",!,"enter '3'. Please note that deleting a case will remove EVERYTHING pertaining",!,"to this operative procedure.",! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: HELP+2
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
Function Call: WRITE	Prompt: !,?1 Line Location: FUTURE+0
Function Call: WRITE	Prompt: !,$C(7) Line Location: FUTURE+0
Routine Call	DIC Line Location: SROP+3
Routine Call	DIR Line Location: FUTURE+1

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	OPT+3, ENTER+1, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+7, CASE+1, LOCK+1 , OTHER+1, OTHER+2
^SRF("ADT"	ADT
^XUSEC("SROEDIT"	SROP+2

Label References

Name	Line Occurrences
ADT	ADT+1, ENTER+1
CASE	ENTER+2, FUTURE
END	SROP+3, OPT, OPT+3, ENTER+1, ENTER+2, ENTER+4, ENTER+5
ENTER	ADT+1, ENTER+3
FUTURE	ENTER+1
HDR	SROP+4, ADT+1, ENTER+1, LIST+6, FUTURE+3
HELP	ENTER+3
LIST	ADT
LOCK	CASE+2
LOOP	CASE+2
OPT	OPT+1
OTHER	CASE+1
RT	ENTER+5

Name	Field # of Occurrence
^(30	LIST+3
^(31	LIST+4
^(37	LIST+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	ADT, ADT+2, OPT+1, OPT+2, LIST+7*, LIST+8, CASE+4
>> DA	ENTER+5*
>> DFN	SROP+4*, ADT
DIC	SROP+3!*
DIC("A"	SROP+3*
DIC(0	SROP+3*
>> DIE	ENTER+5*
DIR	FUTURE!, FUTURE+1!
DIR("A"	FUTURE+1*
DIR("B"	FUTURE+1*
DIR(0	FUTURE+1*
DR	ENTER+5!*
DT	ENTER+1
DTIME	OPT, ENTER+2, HELP+2
>> DTOUT	FUTURE+1
>> DUOUT	FUTURE+1
DUZ	SROP+2
DUZ("SAV"	SROP+2
IOF	END, HDR+1
IOSL	LIST+6
>> LOOP	LOOP+1*
>> M	CASE+2*, LOOP+1
MM	CASE+2!, LOOP+1*
MMM	CASE+2!, LOOP+1*
>> Q3("VIEW"	ENTER+5*!
>> SRBACK	ADT, ADT+1, LIST+6
>> SRCASE(	ADT+2, OPT+1, OPT+3, CASE+4
>> SRDT	ADT*, CASE+4
>> SRLONG	OTHER+1*, OTHER+2
SRNEWOP	SROP+2!, ADT+2*, OPT+1
>> SROP	ADT, ENTER+1, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+7, CASE+1, CASE+4 , OTHER+1, OTHER+2
>> SROPER	CASE+1, CASE+2, LOCK+1, 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
SRSCAN	LIST+2*!, LIST+3, LIST+4
>> SRSDATE	ENTER+1, LIST+7, CASE
>> SRSOUT	SROP+3, ADT, ADT+1, OPT, OPT+3, ENTER+1, ENTER+2, LIST+6, FUTURE+1
SRTN	ADT, ADT+1, OPT+3*, ENTER+1, ENTER+5, LIST+6, LOCK+1, END!, FUTURE+2!
>> ST	ENTER+5*
>> VA("PID"	HDR+1
>> VADM(1	HDR+1
>> VADM(6	HDR+1
>> X	OPT, OPT+1, OPT+2, OPT+3, ENTER+2, ENTER+3, ENTER+4, ENTER+5, HELP+2, HDR+1*
>> XRTL	RT+1
>> XRTN	RT+1*
>> Y	SROP+3, SROP+4, FUTURE+2

Customize PDF page

Package: Surgery

Routine: SROP

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: