Routine: SRCUSS

Package	Total	Call Graph
Surgery	3	(B,BQ,ID)^SRCUSS1 ED1^SRCUSS2 (1,OUTED,START,STOP)^SRCUSS3
VA Fileman	3	%XY^%RCR DT^DICRW ^DIE
Kernel	1	^%ZIS

Package

Total

Call Graph

(B,BQ,ID)^SRCUSS1 ED1^SRCUSS2 (1,OUTED,START,STOP)^SRCUSS3

%XY^%RCR DT^DICRW ^DIE

^%ZIS

Package	Total	Caller Graph
Surgery	21	SRCUSS0 SRCUSS1 SRCUSS2 SROALNO SROANIN SROARPT SROMENU SRONEW SRONIN SRONOP SRONOP1 SROP SROPER SROR SROVAR SRSCHC2 SRSCHUN1 SRSRQST1 SRSUP1 SRSUPRQ SRTPSS

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: Q("HI"),?30,Q(7),Q("LO") Line Location: OUT+1
Routine Call	DIE Line Location: SRCUSS+5
Routine Call	%ZIS Line Location: SRCUSS+4 1

Name	Line Occurrences (* Changed, ! Killed)
^TMP("SRCUSS"	SRCUSS+2!, A+3

Name	Field # of Occurrence
^(	A+3, COM, P1
^(12.1	A+4

Name	Field # of Occurrence
>> %X	DIE, DIE+1
>> %Y	DIE, DIE+1
>> DA	DIE, V+1*
>> DIC("S"	A+4!
>> DIE	DIE
>> DR	DIE, DIE+1
>> DR(1	DIE*
DT	1
IOF	SRCUSS+4
IOP	SRCUSS+4!, 1!
MOE	A1+2*, A1+4!
PIECE	A1+2*, A1+4!
Q	SRCUSS+5!, A, A+1, A+2, A+3, A+4, A0+1, A0+3, A1+1, A2 , C, COM, DIE!, OUT, V+1, XO
Q("BP"	OUT
Q("DIE"	SRCUSS+5, DIE
Q("ED"	A+3, OUT
Q("HI"	OUT, OUT+1
Q("LO"	OUT, OUT+1
Q("O"	A0+1*, OUT
Q("Q"	1!
Q("S"	A!, A+4*
Q("X"	A+3
Q(0	A, A+1, A+4, COM, XO
Q(1	A, A+2, A+3, A+4, A0+1, A0+3, OUT
Q(10	A+2, A2, OUT
Q(11	A+4!, A1*!, OUT!, P!
Q(12	A!, COM*
Q(13	A+2*
Q(2	A+2, A+4, A0+1!, A0+3*, X, XO
Q(3	A+4*, A0+1, A0+3, C, OUT, P, S
Q(4	A+4, A0, A0+1, A0+2, A0+3, V
Q(5	A0+1, A0+2, A0+3, A1, A1+1, C
Q(6	A0+1*, A0+3, A1+1
Q(7	A0+3, A1+1, A1+2, A1+3, C, D, D+1, D+3, OUT+1, P , P1, S, S+1, XO
Q(8	A0+3, A1+1
Q(9	A0+3, A1+1, V, V+1
>> Q0(	A+2
>> Q0(0	A, A+1*, A+2, A+4
>> Q1	SRCUSS+5, P1
>> Q3	A0+1*, A0+3
>> Q3("DIVE"	A+1*, A0+3, A1+1
Q5	SRCUSS+5!, DIE*, DIE+1, DIE+2!
>> Q6	D, D+1, D+2, D+3, DIE, EN1+1
>> Q6(1	XO*!
Q7	A+4, COM, D+2!, D+3, EN1+1, P1, S, S+1
>> Q8	A+3, COM, P, P1, S, S+1
>> QPQPQ	A*
SHEMP	A1+2!*, A1+3, A1+4!
>> SRCUSS("OUT"	SRCUSS+3, A
>> SRCUSS("SRCUSS"	SRCUSS+5!, 0
U	A+3, A+4, A0+1, A0+3, A1+1, C, COM, D, DIE, OUT , P, P1, S
>> X	C
>> Y	EN1+1, XO*

Information

Name	Comments	DBIA/ICR reference
A
A1
C
P1
D
P
A0
DIE
F
N
1
0
S
A2
XO
X
V
EN1	;N
COM
DIED	; K Q S SRCUSS("SRCUSS")="" D GO^DIE K SRCUSS Q
OUT