Routine: IBDXI21

Package	Total	Call Graph
VA FileMan	8	^DIC E^DIE0 (,F,M,N,OUT,Z)^DIE17 Z^DIE2 ^DIE3 QQ^DIEQ ^DIR RW^DIR2
Automated Information Collection System	3	(SCDEL,SCLOOP)^IBDF9A3 ($$OKPIECE,HELP2)^IBDFU5 ^IBDXI24

Entry Points

Name	Comments	DBIA/ICR reference
DE
W
O
TR
A
B
RE
N
RD
T
P
V
Z
X
QS
D
Y
PR
R
RP
I
SET
BEGIN
1
X1
2
X2
3
X3
4
C4
C4S
X4
5
X5
6
X6
7
X7
8
X8
9
X9
10
X10
11
X11
12
X12
13
X13
14
X14
15
16
X16
17
18
X18
19
X19
20
X20
21
X21
22
X22
23
24
X24
25
X25
26
27
X27
28
X28
29
X29
30
X30
31
X31
32
33
X33
34
X34
35
X35
36
X36
37

External References

Name	Field # of Occurrence
^DIC	P, X21
E^DIE0	I+1, 13+3, 25+3, 30+3
^DIE17	RD
F^DIE17	1, 2, 3, 5, 6, 7, 8, 9, 10, 12 , 14, 18, 20, 22, 24, 27, 29, 31, 33, 35 , 36, 37
M^DIE17	T
N^DIE17	RP, 13+3, 25+3, 30+3
OUT^DIE17	1, 2, 3, 5, 6, 7, 9, 10, 12, 14 , 18, 20, 22, 24, 27, 29, 31, 33, 35, 36
Z^DIE17	X
Z^DIE2	RD+1
^DIE3	T
QQ^DIEQ	QS
^DIR	SET+2
RW^DIR2	O+1
SCDEL^IBDF9A3	X36
SCLOOP^IBDF9A3	X5
$$OKPIECE^IBDFU5	X34
HELP2^IBDFU5	X33
^IBDXI24	37

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !?DL+DL-2,DLB_": " Line Location: W+0
Function Call: WRITE	Prompt: W Line Location: O+0
Function Call: WRITE	Prompt: Y Line Location: O+0
Function Call: WRITE	Prompt: !?9 Condition for execution: $X>45 Line Location: O+0
Function Call: WRITE	Prompt: " (No Editing)" Line Location: O+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: TR+0
Function Call: WRITE	Prompt: $C(7) Line Location: TR+0
Function Call: WRITE	Prompt: " "_X Line Location: RD+2
Function Call: WRITE	Prompt: !!,"* PREVENTING LOSS OF DATA *",!,"NOT ALLOWING THE 'TYPE OF SUBCOLUMN' TO BE CHANGED",!! Line Location: X9+0
Routine Call	DIC Line Location: P X21
Routine Call	DIR Line Location: SET+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(357.2 - [#357.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	T, R, R+1
^DD("DD"	R+2
^DISV(	RD+2, Z*
^IBD(357.98 - [#357.98]	25+1
^IBE(357.2 - [#357.2]	DE, X2, X3, C4+1!, C4S+1, X4, X6, X9, X24, X34
^IBE(357.6 - [#357.6]	X20
^IBE(357.91 - [#357.91]	X12

Label References

Name	Line Occurrences
@(	B, V
A	N, Z, Y, RP, 1, 2, 3, 5, 6, 7 , 9, 10, 12, 13+3, 14, 18, 20, 22, 24, 25+3 , 27, 29, 30+3, 31, 33, 35, 36
B	QS
BEGIN	IBDXI21+1
C4S	C4
D	RD, RD+1, P+1, QS
DE	IBDXI21+1, 1, 2, 3, 5, 6, 7, 8, 9, 10 , 12, 14, 18, 20, 22, 24, 27, 29, 31, 33 , 35, 36
N	Y
O	Y, RP
P	T
PR	RE, I+1
QS	RD
R	R, R+1
RD	Y, I, I+1, 13+4, 25+4, 30+4
RE	4+2, 16+2, 19+2, 21+2, 28+1, 34+1
RP	PR, R, R+1
SET	T
TR	RE
V	T, P+1
W	O, RE
X	N, T+1, P, Y
X1	1
X10	10
X12	12
X14	14
X18	18
X2	2
X20	20
X22	22
X24	24
X27	27
X29	29
X3	3
X31	31
X33	33
X35	35
X36	36
X5	5
X6	6
X7	7
X9	9
Y	8+3, 11+3
Z	P+1, 13+4, 30+4

Naked Globals

Name	Field # of Occurrence
^(	RD+2, R, R+1
^(0	DE+1, R, R+1
^(12.1	T

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DE+1, DE+2, T, R+2, SET+2
%Z	DE+1*, DE+2, DE+3!
>> D	N, D*
>> D0	DE, X2, X3, X6, X9, X24, X34
>> D1	X2, X3, X6, X9, X24
>> DA	DE, C4+1, C4S+1
>> DA(1	C4+1, C4S+1, X4
DB	DE!, C4!, C4S!
DB(	T, P, X, SET, SET+1, 13+3, 25+3, 30+3*
>> DC	RP
DDER	T, T+1!, SET+2
DE	DE!
DE(	O+2, RE, Y, PR, RP, 4+1*, 13+3, 25+3, 30+3
DE(11	DE+1*
DE(13	DE+1*
DE(16	DE+1*
DE(19	DE+2*
DE(21	DE+2*
DE(25	DE+1*
DE(28	DE+1*
DE(30	DE+1*
DE(34	DE+1*
DE(4	DE+1*, C4
DE(8	DE+1*
DG	DE!, PR, R, R+1*, R+2, 1, 2, 3, 5, 6 , 7, 8, 9, 10, 12, 14, 18, 20, 22, 24 , 27, 29, 31, 33, 35, 36, 37
DG(	Z*, C4S
DIC	DE, P, C4, C4S, X21!*
DIC("S"	T, Z!, X21*
DIC(0	P, 1, 2, 3, 5, 6, 7, 9, 10, 12 , 14, 18, 20, 22, 24, 27, 29, 31, 33, 35 , 36*
>> DIE	DE*, P, C4, C4S, X21
>> DIE("NO^"	X1*
>> DIEL	DE*
>> DIFLD	T, D, 4, 8, 11, 13, 16, 19, 21, 25 , 28, 30, 34*
DIQUIET	SET+1~*
DIR	SET~
DIR("V"	SET*
DIR(0	SET*
>> DL	DE*, W
DLAYGO	P*, Z!
>> DLB	W, RD+2, Z, D, 4, 8, 11, 13, 16, 19 , 21, 25, 28, 30, 34*
>> DNM	BEGIN*
>> DP	DE*, T
>> DQ	O+2, A, B, RE, T, P, P+2, V, X, D , Y, PR, RP, SET, SET+1, BEGIN, 1, 2, 3, C4S , 5, 6, 7, 8, 9, 10, 12, 13+3, 14, 15 , 17, 18, 20, 22, 23, 24, 25+3, 26, 27, 29* , 30+3, 31, 32, 33, 35, 36*
>> DQ(	A!, P+2, D*, PR
DTIME	TR
>> DTOUT	TR*
>> DU	DE, P, D, PR, SET, 4, 8, 8+1, 11, 11+1 , 13, 13+1, 16, 16+1, 19, 19+1, 21, 21+1, 25, 28 , 30, 34
DUZ	RD+2, Z
>> DV	O+1, O+2, N, RD+2, T, P, P+1, Z, D, Y , PR, RP, I, 4, 8, 11, 13, 13+3, 16, 19 , 21, 25, 25+3, 28, 30, 30+3, 34*
>> DW	Z, D, 1, 2, 3, 4, 4+1, 5, 6, 7* , 8, 9, 10, 11, 12, 13, 14, 16, 18, 19 , 20, 21, 22, 24, 25, 27, 28, 29, 30, 31 , 33, 34, 35, 36
>> DZ	QS*
>> IBD	X18, X20, X22, 25+1, X35
IBDFFLG	X36~
>> IBINPUT	X18, X20
>> IBSC1	X2*, X3, X7, X9
>> IBSC1(	X3*, X9
>> IBSC2	X6*, X7
IBSC3	X5~
IBSC4	X5~
>> IBSWITCH	X7*
>> IBSWITCH(	X7*
U	DE+1, DE+2, TR, P, P+2, Z, D, R, R+1, SET , 1, 2, X2, 3, X3, 5, 6, X6, 7, 9 , X9, 10, 12, 14, 18, 20, 22, 24, X24, 25+1 , 27, 29, 31, 33, X34, 35, 36
X	O+2, TR, N, RD, RD+1, RD+2, T, P, P+1!, P+2* , Z, X+1, QS, Y, PR, R, R+1, R+2, RP, I+1 , SET+2, 1, 2, 3, C4, C4+1, C4S, C4S+1, X4!, 5* , 6, 7, 9, X9, 10, X10, 12, X12, 13+3, 13+4 , 14, 18, 20, X21!, 22, X22, 24, 25+1, 25+2, 25+3* , X25!, X25+1!, 27, X27, X28!, X28+1!, 29, X29, 30+1, 30+2 , 30+3, 30+4, 31, 33, X34!, 35, X35, 36*
>> Y	O, O+1, O+2, P, Y, PR, R, R+1, R+2, SET+2 , 1, 2, 3, 5, 6, 7, 8+2, 9, 10, X10 , 11+2, 12, X12, 13+2, 13+3, 14, X14, 18, X18, 20* , X20, X21, 22, 24, X24, 25+2, 25+3, 27, 29, X29 , 30+2, 30+3, 31, X31, 33, 35, 36, X36*
>> Y(0	SET+2
YS	V!
>> ZTQUEUED	X

Marked Items

Name	Field # of Occurrence
$T(@(3)	D

Customize PDF page

Package: Automated Information Collection System

Routine: IBDXI21

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items