Routine: SRONOP

Package	Total	Call Graph
Surgery	8	^SRCUSS ^SROERR0 ^SROLOCK (,DEL)^SRONOP1 ^SROPCE1 ($$LOCK,UNLOCK)^SROUTL EN2^SROVAR ^SRSKILL
VA Fileman	3	^DIC D^DIQ ^DIR
Kernel	1	T0^%ZOSV
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	3	SRONOP-EDIT SRONOP-ENTER SRONOP1

Entry Points

External References

Name	Field # of Occurrence
T0^%ZOSV	RT+1
^DIC	SRONOP+3
D^DIQ	CASE+2
^DIR	CONT+2, CONT+7, FUTURE+1
^SRCUSS	EDIT+5
^SROERR0	EDIT+6
^SROLOCK	EDIT+3
^SRONOP1	ADT+1, SEL+1
DEL^SRONOP1	ASK+5
^SROPCE1	EDIT+5
$$LOCK^SROUTL	EDIT+4
UNLOCK^SROUTL	EDIT+7
EN2^SROVAR	EDIT+5
^SRSKILL	END+1, EDIT+8
DEM^VADPT	SRONOP+4, EDIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: SRONOP+2
Function Call: WRITE	Prompt: !,CNT_".",?4,"NEW PROCEDURE" Line Location: ADT+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+0
Function Call: WRITE	Prompt: !!,"Enter the number corresponding to the procedure you want to edit." Line Location: SEL+2
Function Call: WRITE	Prompt: !,"Enter '"_CNT_"' or 'NEW' to create a new procedure" Condition for execution: $D(SROEDIT) Line Location: SEL+2
Function Call: WRITE	Prompt: !,?1 Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"Do you want to edit or delete this procedure ? " Line Location: ASK+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+3
Function Call: WRITE	Prompt: !!,"Enter '1' to edit information related to this procedure, or '2' to delete",!,"this procedure from your records.",!!,"Press RETURN to continue " Line Location: ASK+3
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !,CNT_". " Line Location: LIST+3
Function Call: WRITE	Prompt: SRSDATE,?20,SROPS(1) Line Location: CASE+3
Function Call: WRITE	Prompt: !,?20,SROPS(2) Line Location: CASE+3
Function Call: WRITE	Prompt: !,?20,SROPS(2) Line Location: CASE+3
Function Call: WRITE	Prompt: !,?20,SROPS(2) Line Location: CASE+3
Function Call: WRITE	Prompt: ! Line Location: CASE+4
Function Call: WRITE	Prompt: ! Line Location: CONT+0
Function Call: WRITE	Prompt: ".",! Line Location: CONT+6
Function Call: WRITE	Prompt: !,?1 Line Location: FUTURE+0
Function Call: WRITE	Prompt: !,$C(7) Line Location: FUTURE+0
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	DIC Line Location: SRONOP+3
Routine Call	DIR Line Location: CONT+2 CONT+7 FUTURE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	ASK, EDIT+2, LIST+1, LIST+3, CASE, LOCK+1
^SRF("ADT"	ADT
^XUSEC("SROEDIT"	SRONOP+2

Label References

Name	Line Occurrences
ADT	ADT+1, ASK
ASK	ADT+1, ASK+3
CASE	ASK+1, FUTURE
CONT	LIST+2
END	SRONOP+3, ADT+1, SEL, ASK, ASK+2
FUTURE	ASK
HDR	SRONOP+4, ASK, ASK+1, LIST+2, FUTURE
LIST	ADT
LOCK	CASE
LOOP	CASE+1
RT	EDIT+5
SEL	SEL+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	ADT, ADT+2, SEL+1, SEL+2, LIST+3*, CASE
>> DA	EDIT+5*
>> DFN	SRONOP+4, ADT, EDIT+2
DIC	SRONOP+3!*
DIC("A"	SRONOP+3*
DIC(0	SRONOP+3*
>> DIE	EDIT+5*
DIR	CONT!, CONT+7!, FUTURE!, FUTURE+1!
DIR("0"	CONT+7*
DIR("?"	CONT+1, CONT+2
DIR("A"	CONT, CONT+7, FUTURE+1*
DIR("B"	FUTURE+1*
DIR(0	CONT, FUTURE+1
DR	EDIT+5!*
DT	ASK
DTIME	SEL, ASK+2, ASK+3, END, EDIT+5*
>> DTOUT	CONT+2, CONT+7, FUTURE+1
>> DUOUT	CONT+2, CONT+7, FUTURE+1
DUZ	SRONOP+2
DUZ("SAV"	SRONOP+2
IOF	SRONOP+2, END+1, HDR+1
IOSL	LIST+2
>> LOOP	LOOP+1*
>> M	CASE+1*, LOOP+1
MM	CASE+1!, LOOP+1*
MMM	CASE+1!, LOOP+1*
>> Q3("VIEW"	EDIT+3, EDIT+4
>> SRBACK	ADT, ADT+1, LIST+2, CONT+4*, CONT+7, CONT+8
>> SRCASE(	ADT+2, SEL+2, SEL+3, CASE, CONT+4, CONT+8
>> SRDT	ADT*
>> SRDTIME	EDIT+5*
SRLCK	EDIT+4~*, EDIT+7
>> SRNEWOP	SRONOP+2, ADT, ADT+1, LIST+2, CONT+3
>> SRNM	SRONOP+4, EDIT+1, EDIT+2*
SROEDIT	SRONOP+2!*, ADT+2, SEL+1, SEL+2, ASK+1, ASK+4!, END+1!, CONT+1, CONT+2, CONT+3 , CONT+6
>> SROERR	EDIT+6*
>> SROLOCK	EDIT+3, EDIT+5
>> SROP	ADT, ASK, LIST+1, LIST+3, CASE
>> SROPER	CASE, CASE+1, LOCK+1, LOOP+1
SROPS	CASE+1!
SROPS(	LOOP+1*
SROPS(1	CASE+1*, CASE+3
SROPS(2	CASE+3
SROPS(3	CASE+3
SROPS(4	CASE+3
>> SRSDATE	ASK, LIST+3, CASE+2*, CASE+3
>> SRSOUT	SRONOP+2, SRONOP+3, ADT, ADT+1, SEL, ASK, ASK+2, END, EDIT+5, LIST+2 , CONT+2, CONT+7, FUTURE+1
SRTN	ADT, ADT+1, SEL+3, ASK, END+1!, EDIT+1, EDIT+2, EDIT+4, EDIT+5, EDIT+6 , EDIT+7, LIST+2, LOCK+1, CONT+8, FUTURE+2!
>> ST	EDIT+5*
>> VA("PID"	HDR+1
>> VADM(1	SRONOP+4, EDIT+1, EDIT+2, HDR+1
>> VADM(6	HDR+1
>> X	SEL, SEL+1, SEL+2, SEL+3, ASK+2, ASK+3, ASK+4, END, HDR+1*
>> XRTL	RT+1
>> XRTN	RT+1*
>> Y	SRONOP+3, SRONOP+4, CASE+2*, CONT+2, CONT+3, CONT+4, CONT+8, FUTURE+2

Customize PDF page

Package: Surgery

Routine: SRONOP

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
CASE
RT	; start RT logging
ADT
END
HDR	; print heading
EDIT	; edit procedure
LOCK	; case locked?
LIST	; list case
FUTURE
ASK
CONT
SEL
LOOP	; break procedure if greater than 60 characters