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

Package: VA FileMan

Routine: DIB


Information

DIB ;SFISC/GFT,XAK-CREATE A NEW FILE ;9JUN2003

Source Information

Source file <DIB.m>

Entry Points

Name Comments DBIA/ICR reference
1
Q
QQ
DIE ;
SET
ABORT ;Delete file and abort
VALROOT(X,%) ;Validate the root in X
YN(PROMPT,%) ;Prompt yes/no
EN ; Enter here when the user is allowed to select his fields
SET1 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIB+7
Function Call: WRITE
  • Prompt: G
  • Line Location: DIB+7
Function Call: WRITE
  • Prompt: !!,$C(7),"DATA GLOBAL DOES NOT EXIST!"
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !!,$C(7),"RESTRICTED"_$S($P(^("DI"),U)["Y":" (ARCHIVE)",1:"")_" FILE - NO EDITING ALLOWED!"
  • Line Location: 1+1
Function Call: READ
  • Prompt: "// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: DIE+2
Function Call: WRITE
  • Prompt: !,"TYPE A GLOBAL NAME, LIKE '^GLOBAL(' OR '^GLOBAL(4,'",!,"OR JUST HIT 'RETURN' TO STORE DATA IN '"_DG_"'"
  • Line Location: DIE+2
Function Call: WRITE
  • Prompt: $C(7)_" ??"
  • Line Location: DIE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DIE+11
Function Call: WRITE
  • Prompt: !?5,"A FreeText NAME Field (#.01) has been created."
  • Line Location: SET+6
Function Call: WRITE
  • Prompt: !!?9,$C(7)_"No new file created!"
  • Line Location: ABORT+1
Function Call: WRITE
  • Prompt: $C(7)_" ?? Bad syntax"
  • Line Location: VALROOT+18
Function Call: WRITE
  • Prompt: !!,$C(7)_" ERROR -- "_OROOT_" already used by File #"_FNUM_"!"
  • Line Location: VALROOT+32
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: VALROOT+35
Function Call: WRITE
  • Prompt: !," ERROR"_PROMPT
  • Line Location: VALROOT+37
Info |  Source |  Entry Points |  Interaction Calls