Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DIFROM

Package: VA Fileman

Routine: DIFROM


Information

DIFROM ;SFISC/XAK-GENERATE INITS ;2/27/99 12:38

Source Information

Source file <DIFROM.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Information Collection System 1 IBDE1  

Entry Points

Name Comments DBIA/ICR reference
WARN
ERV
E
F
WARN1
DD
L
ERF
TQ
Q
S
R
T
SF

External References

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

Global Variables Directly Accessed

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*

Label References

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

Naked Globals

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

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T(DIFROM+1 DIFROM+4
$T(WARN+I WARN
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All