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 ;9JUN2003

Source Information

Source file <DIB.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
VA FileMan 9 DIA2  DICATT  DICATT2  DICATTD  DIEDIT  DII  DIKCU  DIT  
DIU  
Kernel 2 ^DIC(19  ^ORD(101  
Lab Service 2 LRHYED  LRHYU  
Electronic Health Modernization 1 EHM-00777  
List Manager 1 VALM INPUT TEMPLATE EDIT  

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 ;

External References

Name Field # of Occurrence
EN^DIA 1+4
^DIA2 1+4
WAIT^DICD SET
W^DICRW DIB+7
^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+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
Routine Call
  • DIR
  • Line Location:
    • YN+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 1+1, 1+4, SET+5!*, SET+7*
^DIC - [#1] SET*, SET+1*, VALROOT+31, EN+1
^DIC(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+7
QQ 1+3
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+1
^("GL" EN+1
^(0 1+2, 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+3*, 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+2*, 1+4, Q!
DIA DIB+7!, 1+2*, 1+3, Q!
DIA("P" 1+2*
DIAA QQ!
DIAB QQ!
DIAO QQ!
DIAP 1+3*, QQ!
DIAT QQ!
DIC 1!, 1+1, 1+2, QQ!, EN+1*, EN+2!
DICS DIB+7!
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+7!, Q!, SET+9*
DP QQ!
DQ QQ!
DR 1+3*, 1+4, QQ!
DRS 1+3*, QQ!
DSC 1+3*, QQ!
DT SET
DTIME DIE+2
DTOUT DIB+7!, 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+3*
F 1+3*, 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+3*
IOP QQ!
J Q!
J(0 1+2*
L 1+3*, 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+2, DIE+4, DIE+13, SET, SET+7, VALROOT+9, VALROOT+20, VALROOT+28
X 1+2*, 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+7, 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