Routine: DIFROM

Package	Total	Call Graph
VA Fileman	8	(,IX)^DIC ^DIE ^DIFROM0 Q^DIFROM11 VER^DIFROM12 L^DIFROMH1 OS^DII ^DIR

Package

Total

Call Graph

VA Fileman

(,IX)^DIC ^DIE ^DIFROM0 Q^DIFROM11 VER^DIFROM12 L^DIFROMH1 OS^DII ^DIR

Package	Total	Caller Graph
Automated Information Collection System	1	IBDE1

Package

Total

Caller Graph

Automated Information Collection System

IBDE1

Name	Field # of Occurrence
^DIC	L+1
IX^DIC	DIFROM+12
^DIE	E+5
^DIFROM0	S
Q^DIFROM11	Q
VER^DIFROM12	DD+3
L^DIFROMH1	R+9
OS^DII	R+1
^DIR	DIFROM+11, R+4, R+6, R+8, R+11, WARN1+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PROGRAMMER ACCESS REQUIRED",! Line Location: DIFROM+5
Function Call: WRITE	Prompt: !!,"I am going to create a routine called '",X,"INIT'." Line Location: R+0
Function Call: WRITE	Prompt: $C(7),!,"but '"_X_"' is ALREADY ON FILE!" Line Location: R+2
Function Call: WRITE	Prompt: !!,F(Y) Line Location: R+12
Function Call: WRITE	Prompt: !!,"THEN PLEASE LIST THE FILES THAT YOU WISH TO TRANSPORT:" Line Location: L+0
Function Call: WRITE	Prompt: !,DIC,?24,DH Line Location: T+0
Function Call: WRITE	Prompt: $C(7)," NOT FOUND " Line Location: T+3
Function Call: WRITE	Prompt: " (",E,")" Line Location: SF+1
Function Call: WRITE	Prompt: ! Line Location: E+5
Function Call: WRITE	Prompt: $C(7),!," INVALID FIELD LABEL: "_E,! Line Location: ERF+0
Function Call: WRITE	Prompt: $C(7),!!,"Your FileMan Version number: "_X_" does not match the version number",!,"on the DIFROM routine: "_Y_" !!",!!,"You must run ^DINIT before you can build an INIT!!",! Line Location: ERV+0
Function Call: WRITE	Prompt: $C(7),!!," WARNING ",! Line Location: WARN1+0
Function Call: WRITE	Prompt: "DIFROM does not support new VA FileMan version 22 data dictionary structures!",!! Line Location: WARN1+1
Function Call: WRITE	Prompt: "If you add new style Indexes or Keys to any file, they will not be",!,"transported by DIFROM.",!! Line Location: WARN1+2
Function Call: WRITE	Prompt: "You should use the Kernel Installation and Distribution System (KIDS)",!,"to transport files with new style Indexes or Keys." Line Location: WARN1+3
Function Call: WRITE	Prompt: !,$P($T(WARN+I),";;",2) Line Location: WARN+0
Routine Call	DIE Line Location: E+5
Routine Call	DIC Line Location: L+1
Routine Call	DIR Line Location: DIFROM+11 R+4 R+6 R+8 R+11 WARN1+5
Routine Call	DIC Line Location: DIFROM+12

Name	Line Occurrences (* Changed, ! Killed)
^DD(	SF+1, E
^DD("OS" - [#.7]	R+2
^DD("VERSION"	DIFROM+4
^DIC - [#1]	R+12, E+1
^DIC(9.4 - [#9.4]	R+12, DD, SF, SF+1
^DIST(	T+2
^UTILITY(	DD+2!
^UTILITY($J	E+4*

Name	Line Occurrences
DD	R+6, R+12, L+1
E	SF+2
ERF	SF+1
ERV	DIFROM+4
F	L+1, SF
L	R+7, R+12
Q	DIFROM+3, DIFROM+6, DIFROM+11, R+4, R+6, R+8, R+11, R+12, L+1, DD+2 , DD+3
SF	R+12
T	DD
TQ	T+1, T+2
WARN	DIFROM+7
WARN1	DIFROM+6

Name	Field # of Occurrence
^(	R+12, DD, SF+1, E+4*
^("VERSION"	DIFROM+4
^(0	R+12, DD, T+1, T+2, SF+1
^(18	R+2
^(222	E+6
^(223	E+6

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	R+12, DD, SF+1, F, E+5
%A	F!, E
%A(	E*
>> %C	SF+1*
D	DIFROM+12!, DD, T+1, T+2, SF+1, E, E+1, ERF
>> DA	R+12, SF, SF+1, E+4
>> DA(1	E+2*, E+3
>> DH	DD*, T, T+2
DIC	DIFROM+12!, L+1!, DD, T, T+1, T+2*
DIC("S"	L+1*
DIC(0	DIFROM+12, L+1
DIE	E+3*, E+6!
DIE("W"	E+5*
>> DIFC	T+1, T+2
>> DIH	R+11, L, E+5
DIR	DIFROM+11!, R+3!, WARN1~
DIR("?"	DIFROM+10*
DIR("??"	DIFROM+10, R+3, R+6, R+8, R+11*
DIR("A"	DIFROM+8, R+3, R+5, R+7, R+10, WARN1+4
DIR("B"	R+5, R+8, WARN1+4*
DIR(0	DIFROM+9, R+3, R+11, WARN1+4
>> DIRUT	DIFROM+11, R+4, R+6, R+8, R+11, DD+3
>> DISYS	R+2
>> DN	DD+1*
>> DPK	DIFROM+12, R+7, R+12, L, DD, DD+2, SF, SF+1, E+2, E+3 , E+4
>> DPK(0	DIFROM+12*
>> DPK(1	E+1*, E+6
DR	DD+2!, E+2*, E+6!
>> DRN	DD+2*
>> DTL	R+1*, DD+1, SF+2
>> DTOUT	L+1
DUZ(0	DIFROM+5
>> E	SF+1, SF+2, F, E, ERF
>> F	R+12, L+1, DD+2, T+1, T+2
>> F(	R+6, R+12, L+1, SF+1, SF+2, F, E, E+1, E+6*
I	WARN~*
>> Q	R+2, DD+2
>> Q(	T+1, T+2
U	R+12, L+1, DD, DD+2, T+1, T+2, SF+1, E+1
X	DIFROM+4!, R, R+1, R+2, L+1, DD*, T+1, T+2, ERV!
Y	DIFROM+4!, DIFROM+6, DIFROM+12, R+4, R+6, R+9, R+11, R+12, L+1, DD* , T+1, T+2, SF+1, SF+2, F, E, E+1, E+4, E+5, ERV!
Y(0	DIFROM+12

Customize PDF page

Package: VA Fileman

Routine: DIFROM

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items