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
  • ICR #10023
    • Status: Active
    • Usage: Supported
    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