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

Package: VA FileMan

Routine: DIFROM


Information

DIFROM ;SFISC/XAK-GENERATE INITS ;03DEC2012

Source Information

Source file <DIFROM.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PROGRAMMER ACCESS REQUIRED",!
  • Line Location: DIFROM+9
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: !,$P($T(WARN+I),";;",2)
  • Line Location: WARN+0
Info |  Source |  Entry Points |  Interaction Calls