Routine: DIB

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

Package

Total

Call Graph

VA Fileman

EN^DIA ^DIA2 WAIT^DICD W^DICRW (,IX1)^DIK ($$CREF,$$OREF)^DILF ^DIR

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

Package

Total

Caller Graph

VA Fileman

DIA2 DICATT DICATT2 DICATTD DIEDIT DII DIKCU DIT
DIU

Lab Service

LRHYED LRHYU

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	;

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

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

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

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

Customize PDF page

Package: VA Fileman

Routine: DIB

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: