Routine: SROPSN

Package	Total	Call Graph
Surgery	2	^SROP1 ^SRSKILL
VA Fileman	1	^DIR

Package

Total

Call Graph

^DIR

Name	Comments	DBIA/ICR reference
CASE
ADT
END
HDR	; print heading
LOCK	; case locked?
LIST	; list cases
OTHER	; other operations
FUTURE	; is this a future case? if so, OK to proceed?
LOOP	; break procedure

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADT+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ADT+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: ADT+2
Function Call: WRITE	Prompt: !,?1 Line Location: FUTURE+3
Function Call: WRITE	Prompt: !,$C(7) Line Location: FUTURE+3
Function Call: WRITE	Prompt: ! Line Location: LIST+6
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: @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: FUTURE+4

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

Name	Field # of Occurrence
>> CNT	ADT, LIST+6, CASE+4
>> DFN	ADT
DIR	FUTURE+3!, FUTURE+4!
DIR("A"	FUTURE+4*
DIR("B"	FUTURE+4*
DIR(0	FUTURE+4*
DT	FUTURE+2
DTIME	ADT+2
>> DTOUT	FUTURE+4
>> DUOUT	FUTURE+4
DUZ("SAV"	SROPSN+2
>> I	CASE+1*
IOF	END, HDR+1
>> LOOP	LOOP+1*
>> M	CASE+2*, LOOP+1
MM	CASE+2!, LOOP+1*
MMM	CASE+2!, LOOP+1*
>> PRCP("I"	FUTURE+1
>> SRCASE(	CASE+4*
>> SRCASE(1	ADT+2, ADT+4
>> SRDT	ADT*, CASE+4
>> SRLONG	OTHER+1*, OTHER+2
SRNEWOP	SROPSN+2!, ADT+1, ADT+2
>> SRNONOR	LIST+1
>> SROP	SROPSN+2, ADT, FUTURE+2, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6, 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
SROPZ	SROPSN+2~*, ADT, ADT+3
>> SROTHER	CASE+1, OTHER+1, OTHER+2
SRSCAN	LIST+2*!, LIST+3, LIST+4
>> SRSDATE	FUTURE+2, LIST+6, CASE
>> SRSOUT	ADT, ADT+1
SRTN	ADT, ADT+1, ADT+4*, FUTURE+2, FUTURE+5!, LOCK+1, END!
>> VA("PID"	HDR+1
>> VADM(1	HDR+1
>> VADM(6	HDR+1
>> X	ADT+2, HDR+1
>> Y	FUTURE+5

Information