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

Package: VA Fileman

Routine: DIB


Information

DIB ;SFISC/GFT,XAK-CREATE A NEW FILE ;8:53 AM 27 Mar 2002 [ 12/09/2003 4:08 PM ]

Source Information

Source file <DIB.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 7 EN^DIA  ^DIA2  WAIT^DICD  W^DICRW  (,IX1)^DIK  ($$CREF,$$OREF)^DILF  ^DIR  

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
VA Fileman 9 DIA2  DICATT  DICATT2  DICATTD  DIEDIT  DII  DIKCU  DIT  
DIU  
Lab Service 2 LRHYED  LRHYU  

Entry Points

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

    External References

    Name Field # of Occurrence
    EN^DIA 1+3
    ^DIA2 1+3
    WAIT^DICD SET
    W^DICRW DIB+3
    ^DIK ABORT+4
    IX1^DIK SET+8, SET+9, SET1+3
    $$CREF^DILF VALROOT+20
    $$OREF^DILF VALROOT+8, VALROOT+30
    ^DIR YN+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: DIB+3
    Function Call: WRITE
    • Prompt: G
    • Line Location: DIB+3
    Function Call: WRITE
    • Prompt: !!,$C(7),"RESTRICTED"_$S($P(^("DI"),U)["Y":" (ARCHIVE)",1:"")_" FILE - NO EDITING ALLOWED!"
    • Line Location: 1+0
    Function Call: READ
    • Prompt: "// "
    • Timeout: DTIME
    • Variable: X
    • 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
    Routine Call
    • DIR
    • Line Location:
      • YN+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( 1, 1+3, SET+5!*, SET+7*
    ^DIC - [#1] SET*, SET+1*, VALROOT+31, EN+1
    ^DIC(3 - [#3] SET+2, SET1+2
    ^UTILITY($J QQ!
    ^VA(200 - [#200] SET+2, SET1+1, SET1+3

    Label References

    Name Line Occurrences
    1 EN+2
    ABORT DIE+4, DIE+9
    DIE DIE+2, DIE+5, DIE+9
    Q DIB+3
    QQ 1+2
    SET1 SET+2
    VALROOT DIE+8
    YN VALROOT+38

    Naked Globals

    Name Field # of Occurrence
    ^( SET+5*, SET1+1*, SET1+2*
    ^("%A" SET*
    ^("DI" 1
    ^("GL" EN+1
    ^(0 1+1, SET*, SET+3, SET1+1*, SET1+2*
    ^(1 SET+7*
    ^(2 SET+7*
    ^(3 SET+6*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % DIE+8, DIE+9, SET+1*, SET+3*, VALROOT~, VALROOT+18*, VALROOT+23*, VALROOT+25, VALROOT+29, VALROOT+33*
    , VALROOT+37*, VALROOT+38, YN~, YN+6*
    CREF VALROOT+6~, VALROOT+20*, VALROOT+24, VALROOT+26, VALROOT+34
    D QQ!
    DA QQ!, SET+7*, SET+8*, SET+9*, ABORT+2*, SET1+3*
    DA(1 SET+9*, SET1+3*
    DB 1+2*, QQ!
    DG QQ!, DIE+1*, DIE+2, DIE+7*, DIE+9, DIE+12, DIE+13*, SET, SET+3, SET+4
    , SET+7, ABORT+3!
    DHIT QQ!
    DI 1+1*, 1+3, Q!
    DIA DIB+3!, 1+1*, 1+2, Q!
    DIA("P" 1+1*
    DIAA QQ!
    DIAB QQ!
    DIAO QQ!
    DIAP 1+2*, QQ!
    DIAT QQ!
    DIC 1, 1+1, QQ!, EN+1*, EN+2!
    DICS DIB+3!
    DIE QQ!, EN+1
    >> DIK SET+8*, SET+9*, ABORT+2*, SET1+3*
    DIR YN+1~
    DIR("A" YN+3*
    DIR("B" YN+4*
    DIR(0 YN+2*
    DIROUT YN+1~
    DIRUT YN+1~
    DIZ QQ!
    DIZZ QQ!
    DLAYGO DIB+3!, Q!, SET+9*
    DP QQ!
    DQ QQ!
    DR 1+2*, 1+3, QQ!
    DRS 1+2*, QQ!
    DSC 1+2*, QQ!
    DT SET
    DTIME DIE+2
    DTOUT DIB+3!, YN+1~
    DUOUT YN+1~
    DUZ SET, SET1+1, SET1+2, SET1+3
    DUZ(0 DIE+2, DIE+9, SET+1, SET+2, VALROOT+37
    DV QQ!
    DW QQ!
    >> DXS 1+2*
    F 1+2*, QQ!, DIE+1*, SET, SET+1, SET+5, SET+7, SET+8, SET+9, ABORT+2
    , SET1+1, SET1+2, SET1+3
    FNUM VALROOT+6~, VALROOT+28*, VALROOT+29, VALROOT+31, VALROOT+32
    I Q!
    I(0 1+2*
    IOP QQ!
    J Q!
    J(0 1+1*
    L 1+2*, QQ!
    N VALROOT+6~, VALROOT+25*, VALROOT+26, VALROOT+27, VALROOT+34
    OREF VALROOT+6~, VALROOT+8*, VALROOT+9*, VALROOT+12, VALROOT+13, VALROOT+14, VALROOT+15, VALROOT+16, VALROOT+17, VALROOT+20
    , VALROOT+36
    >> OROOT VALROOT+30*, VALROOT+31, VALROOT+32
    PROMPT VALROOT+6~, VALROOT+36*, VALROOT+37, VALROOT+38, YN~, YN+3
    QLEN VALROOT+6~, VALROOT+24*, VALROOT+25, VALROOT+27, VALROOT+34
    ROOT VALROOT+6~, VALROOT+26*, VALROOT+27, VALROOT+28, VALROOT+30
    U 1, 1+1, DIE+4, DIE+13, SET, SET+7, VALROOT+9, VALROOT+20, VALROOT+28
    X 1+1*, QQ!, DIE+1*, DIE+2*, DIE+4*, DIE+5, DIE+7, DIE+8, DIE+9, DIE+12
    , DIE+13, SET*, SET+7*, VALROOT~, VALROOT+8*, YN+1~
    Y DIB+3, QQ!, DIE+1, YN+1~, YN+6
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All