Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
CHK
GO
DD
ID
MOVEFLD
MULFLD
N
DITRPL(W)
D
Y ;REPLACE THE NUMBERS; CALLED FROM DIT2
REPLACE(X,OLD,NEW) ;
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
ADJ ; Change data to contain new file number and global reference.
ERR(DITYPE,DITON,DIFRNAME) ;
P

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIT1+7
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
Info |  Source |  Entry Points |  Interaction Calls