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 |  All
Print Page as PDF
Routine: DIT1

Package: VA Fileman

Routine: DIT1


Information

DIT1 ;SFISC/GFT,TKW-TRANSFER DD'S ;30JAN2010

Source Information

Source file <DIT1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 7 %XY^%RCR  (BLD,MSG)^DIALOG  WAIT^DICD  $$NXTNO^DICLIB  YN^DICN  (IX1,IXALL)^DIK  ^DIT2  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
VA Fileman 2 DIT  DIT2  

Entry Points

Name Comments DBIA/ICR reference
DITRPL(W)
MOVEFLD
D
P
ERR(DITYPE,DITON,DIFRNAME) ;
DD
CHK
REPLACE(X,OLD,NEW) ;
N
Y ;REPLACE THE NUMBERS; CALLED FROM DIT2
IXKEY(DIFRN,DIFRGBL,DITON,DITOGBL) ; transfer KEY and INDEX file entries
; DIFRN=from file#, DIFRN(DIFRN)=from file list, DIFRGBL=from file global, DITON=to file#, DITOGBL=to file global
GO
ADJ ; Change data to contain new file number and global reference.
ID
MULFLD

External References

Name Field # of Occurrence
%XY^%RCR CHK+2
BLD^DIALOG ERR+4
MSG^DIALOG ERR+4
WAIT^DICD CHK+3
$$NXTNO^DICLIB IXKEY+10, IXKEY+21
YN^DICN CHK+5
IX1^DIK IXKEY+14, IXKEY+25
IXALL^DIK CHK+7, ID+3
^DIT2 CHK+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIT1+3
Function Call: WRITE
  • Prompt: $P(^DD(A,0),U)_" WOULD COLLIDE WITH "_X,$C(7),!
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !,"DO YOU WANT TO COPY '",$P(Y,U,2),"'S TEMPLATES INTO YOUR NEW FILE"
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DD+0
Function Call: WRITE
  • Prompt: "."
  • Line Location: ID+1
Function Call: WRITE
  • Prompt: $C(7),"FILE #"_+Y_" SHOULD ONLY BE TRANSFERRED TO A FILE WHOSE NUMBER",!?8,"ALSO "_$S(Y#1:"ENDS WITH '"_(Y#1)_"'",1:"IS INTEGER")
  • Line Location: P+0
Routine Call
  • DIALOG
  • Line Location:
    • ERR+4
Routine Call
  • DIALOG
  • Line Location:
    • ERR+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( CHK, CHK+1, GO!, DD*, DD+1*, ID*, ID+1, MOVEFLD, MOVEFLD+3*, MOVEFLD+4*
, MOVEFLD+5*, MOVEFLD+6*, MULFLD+2*
^DD("IX" - [#.11] IXKEY+7, IXKEY+8, IXKEY+9, IXKEY+11*, IXKEY+12!
^DD("KEY" - [#.31] IXKEY+18, IXKEY+19, IXKEY+20, IXKEY+22*, IXKEY+23!
^DIC - [#1] CHK+1
^UTILITY("DITR" CHK+3*, CHK+5, GO!

Label References

Name Line Occurrences
$$DITRPL MOVEFLD+3, MOVEFLD+6
$$REPLACE DITRPL, Y+2
ADJ IXKEY+13, IXKEY+24
CHK CHK+1
D N+1, DITRPL
DD ID+4
ERR IXKEY+9, IXKEY+20
ID ID
IXKEY ID+2
MOVEFLD ID+1
N N, N+2, N+3
P CHK+1
Y MOVEFLD+5

Naked Globals

Name Field # of Occurrence
^( CHK+1, CHK+3, GO!, DD*, ID, MOVEFLD+6, N+1
^("B" IXKEY+12!
^("BB" IXKEY+12!, IXKEY+23!
^("IX" GO!
^("RQ" GO!
^("S" IXKEY+23!
^("UP" DD+1
^(0 CHK+1, CHK+3, GO!, DD

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CHK+5, REPLACE+1~, REPLACE+3*
%A ID+3!, MOVEFLD*, N*, N+1, N+2, N+3*
%B ID+3!, MULFLD+2*, N*, N+1, N+3*
%C ID+3!
>> %X CHK+2*, CHK+7*
>> %Y CHK+2*, CHK+7*
%Z ID+3!, MOVEFLD*, N*, N+3*
A DIT1+3!*, CHK, CHK+1*!, CHK+2*, CHK+3*, CHK+4*, ID, MULFLD+1, D, IXKEY+2~
, P!
A( CHK*, CHK+1!
A(0 CHK+1
B CHK+1*, DD*, IXKEY+2~
C REPLACE+1~, REPLACE+2*, REPLACE+3
>> D MOVEFLD*, MOVEFLD+1, MOVEFLD+3*, MULFLD
>> DA IXKEY+14*, IXKEY+25*
>> DA(1 ID+3*
>> DHIT CHK, CHK+1, DD+1, MULFLD
DIER ERR+2~
DIF ADJ+5~, ADJ+6*, ADJ+7
DIFRD0 IXKEY+3~, IXKEY+8*, IXKEY+11, IXKEY+19*, IXKEY+22
DIFRGBL IXKEY~, IXKEY+4, IXKEY+5, IXKEY+13, IXKEY+24, ADJ+3
DIFRN IXKEY~, IXKEY+7, IXKEY+8, IXKEY+13, IXKEY+18, IXKEY+19, IXKEY+24, ADJ+5
DIFRN( ADJ+6
DIFRN("" IXKEY+5
DIFRNAME IXKEY+3~*, IXKEY+7*, IXKEY+8, IXKEY+9, IXKEY+17*, IXKEY+18*, IXKEY+19, IXKEY+20, ERR~, ERR+3
DIFRPRT IXKEY+3~, IXKEY+5*, ADJ+8
DIG IXKEY+3~, IXKEY+13*, IXKEY+24*, ADJ+1*, ADJ+2, ADJ+10
>> DIK CHK+7*, ID+3*, IXKEY+14*, IXKEY+25*
DIL1 IXKEY+3~, IXKEY+4*, ADJ+4, ADJ+8
DIL2 IXKEY+3~, ADJ+6*, ADJ+9
DIL3 IXKEY+3~, IXKEY+5*, ADJ+8
DIPAR ERR+2~, ERR+4
DIPAR(1 ERR+2*
DIPAR(2 ERR+3*
DIPAR(3 ERR+3*
DIT ADJ+5~, ADJ+6*, ADJ+9
DITN MOVEFLD+2~, MOVEFLD+5*, MOVEFLD+6*
DITOD0 IXKEY+3~, IXKEY+9*, IXKEY+10*, IXKEY+11, IXKEY+12, IXKEY+13, IXKEY+14, IXKEY+20*, IXKEY+21*, IXKEY+22
, IXKEY+23, IXKEY+24, IXKEY+25, ADJ+1
DITOGBL IXKEY~, IXKEY+13, IXKEY+24, ADJ+3, ADJ+4
DITON IXKEY~, IXKEY+9, IXKEY+13, IXKEY+20, IXKEY+24, ADJ+5, ERR~, ERR+3
DITYPE ERR~, ERR+2
>> DLAYGO GO
>> DTO GO+1, ID+2
>> DTO(0 GO+1
E DIT1+3*, CHK+6*, GO!, IXKEY+2~
F ID+2, IXKEY+2~
I IXKEY+3~, ADJ+2*, ADJ+3*, ADJ+4*, ADJ+6*, ADJ+7*, ADJ+8, ADJ+9*
L CHK+1!, DD*, DD+1, ID, ID+1, ID+2, MOVEFLD, MOVEFLD+4, MOVEFLD+5, MOVEFLD+6
, DITRPL, P!
L( CHK*, CHK+2, DD, MULFLD*, Y+2
L(0 CHK+2
NEW REPLACE~, REPLACE+2, REPLACE+3
O Y+1~, Y+2*
OLD REPLACE~, REPLACE+2, REPLACE+3
U CHK+1, CHK+3, CHK+5, CHK+7, MOVEFLD, MOVEFLD+3, MULFLD
V CHK*, CHK+3*, CHK+7*, DD*, DD+1*, ID*, ID+1*, MOVEFLD, MOVEFLD+3, MOVEFLD+4
, MOVEFLD+5, MOVEFLD+6, MULFLD+2, DITRPL, IXKEY+2~
W ID*, MOVEFLD*, MOVEFLD+3, MOVEFLD+5*, MULFLD*, MULFLD+2, N+1*, DITRPL~*, Y+2*
X CHK+1*, REPLACE~, REPLACE+3*, REPLACE+4, IXKEY+3~, ADJ+1*, ADJ+2*, ADJ+3, ADJ+4*, ADJ+7
, ADJ+8, ADJ+9*, ADJ+10
Y DIT1+3, CHK+3, CHK+5, GO*, DD*, DD+1, ID, ID+2, ID+3, MOVEFLD+3
, MOVEFLD+4, MOVEFLD+5, MOVEFLD+6, MULFLD+2, IXKEY+2~, P
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All