Routine: DIDH1

Package	Total	Call Graph
VA Fileman	5	(POINT,Q,TRIG,W,XR)^DIDH LIST^DIKCP (WRLN,WRPHI)^DIKCP1 PRINT^DIKKP ($$WP,IJ)^DIUTL

Package	Total	Caller Graph
VA Fileman	4	DID1 DID2 DIDH DIDX

Entry Points

External References

Name	Field # of Occurrence
POINT^DIDH	PAGE1+34
Q^DIDH	DIDH1+16
TRIG^DIDH	PAGE1+34
W^DIDH	PAGE1+11
XR^DIDH	PAGE1+6, PAGE1+34
LIST^DIKCP	PAGE1+8, PAGE1+38
WRLN^DIKCP1	PAGE1+9
WRPHI^DIKCP1	PAGE1+27
PRINT^DIKKP	PAGE1+33
$$WP^DIUTL	PAGE1, PAGE1+2, PAGE1+3, DE+2
IJ^DIUTL	DIDH1+4

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: M Line Location: DIDH1+6
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(DIFF)&($Y) Line Location: DIDH1+8
Function Call: WRITE	Prompt: $S(DHIT["DIDX":"BRIEF",DHIT["DIDG":"GLOBAL MAP",$D(DINM):"MODIFIED",1:"STANDARD") Line Location: DIDH1+8
Function Call: WRITE	Prompt: " DATA DICTIONARY #"_DFF_" -- "_$O(^DD(DFF,0,"NM",0))_" "_$S(DIDHJ:"SUB-",1:"")_"FILE " Line Location: DIDH1+9
Function Call: WRITE	Prompt: W:$L(W)+$X+2>IOM Line Location: DIDH1+13
Function Call: WRITE	Prompt: ! Condition for execution: $L(W)+$X+2>IOM Line Location: DIDH1+13
Function Call: WRITE	Prompt: ?(IOM-$L(W)-1),W Line Location: DIDH1+13
Function Call: WRITE	Prompt: ! Line Location: DIDH1+16
Function Call: WRITE	Prompt: W,?(IOM-$L(M1)-1),M1 Line Location: DIDH1+16
Function Call: WRITE	Prompt: S Line Location: DIDH1+16
Function Call: WRITE	Prompt: W Line Location: DIDH1+16
Function Call: WRITE	Prompt: !,W Line Location: DIDH1+16
Function Call: WRITE	Prompt: G Line Location: DIDH1+16
Function Call: WRITE	Prompt: "D",I-1,",",DIDHI(I),"," Line Location: DIDH1+17
Function Call: WRITE	Prompt: " * NO DATA STORED YET *" Line Location: DIDH1+19
Function Call: WRITE	Prompt: ! Line Location: G+0
Function Call: WRITE	Prompt: "-" Line Location: G+0
Function Call: WRITE	Prompt: !,?15,$P("READ^WRITE",U,I-7)," ACCESS: ",^(I) Line Location: PAGE1+4
Function Call: WRITE	Prompt: ! Line Location: PAGE1+10
Function Call: WRITE	Prompt: !,$P("FILE SCREEN (SCR-node) ^SPECIAL LOOKUP ROUTINE ^POST-SELECTION ACTION ^COMPILED CROSS-REFERENCE ROUTINE",U,%)_": " Line Location: PAGE1+11
Function Call: WRITE	Prompt: D Line Location: PAGE1+11
Function Call: WRITE	Prompt: G Line Location: PAGE1+11
Function Call: WRITE	Prompt: !?(Z+Z+14-$L(N)),N," ACCESS: ",^(N) Line Location: PAGE1+14
Function Call: WRITE	Prompt: !!?8,"(NOTE: Kernel's File Access Security has been installed in this UCI.)",! Line Location: PAGE1+15
Function Call: WRITE	Prompt: !,"IDENTIFIED BY: " Line Location: PAGE1+16
Function Call: WRITE	Prompt: ! Condition for execution: ($L(I1)+$X)+1>IOM Line Location: PAGE1+17
Function Call: WRITE	Prompt: ?15,I1 Line Location: PAGE1+17
Function Call: WRITE	Prompt: ", " Line Location: PAGE1+17
Function Call: WRITE	Prompt: ! Line Location: PAGE1+35
Function Call: WRITE	Prompt: !!?3,"CREATED ON: "_Y Line Location: PAGE1+39
Function Call: WRITE	Prompt: " by "_$P(^(0),U) Line Location: PAGE1+39
Function Call: WRITE	Prompt: W:$X+$L(W)+3>IOM Line Location: W+0
Function Call: WRITE	Prompt: !,?$S(IOM-$L(W)-5<M:IOM-5-$L(W),1:M),S Condition for execution: $X+$L(W)+3>IOM Line Location: W+0
Function Call: WRITE	Prompt: $E(W,1,IOM-$X-1),S Line Location: W+0
Function Call: WRITE	Prompt: G Line Location: W+0
Function Call: WRITE	Prompt: ?DDL2 Line Location: W1+0
Function Call: WRITE	Prompt: !?DDL2 Condition for execution: $L(DDV)+$X>IOM Line Location: W1+0
Function Call: WRITE	Prompt: DDV Line Location: W1+0
Function Call: WRITE	Prompt: !?DDL1,$P("DESCRIPTION:^TECHNICAL DESCR:",U,%Y=23+1) Line Location: DE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DIDH1+15
^DD(	DIDH1+7, DIDH1+9, PAGE1+2, PAGE1+11, PAGE1+12, PAGE1+13, PAGE1+16, PAGE1+17, PAGE1+21, PAGE1+23 , UP1, UP1+1, DE+2
^DD("DD"	DIDH1+12, PAGE1+39
^DD("FUNC" - [#.5]	DIDH1+12
^DD("IX" - [#.11]	PAGE1+35
^DD("KEY" - [#.31]	PAGE1+30
^DD("SITE"	DIDH1+14
^DIC - [#1]	DIDH1+10, PAGE1, PAGE1+14, PAGE1+39
^DIC(3 - [#3]	PAGE1+39
^VA(200 - [#200]	PAGE1+15, PAGE1+39

Label References

Name	Line Occurrences
DIDH1	W1+1
Q	PAGE1+11
UP1	UP1+1
W	W

Naked Globals

Name	Field # of Occurrence
^(	PAGE1+4, PAGE1+11, PAGE1+14, PAGE1+39
^("SITE"	DIDH1+14
^("UCI"	DIDH1+15
^("UP"	UP1+1
^("VR"	DIDH1+7
^(0	DIDH1+20, PAGE1+17, PAGE1+39, WR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PAGE1+11, UP1, UP1+1
>> %Y	W*, DE+1, DE+2
>> DA	DIDH1+5*, PAGE1, PAGE1+8, PAGE1+11, PAGE1+12, PAGE1+13, PAGE1+14, PAGE1+16, PAGE1+17, PAGE1+21 , PAGE1+23, PAGE1+30, PAGE1+33, PAGE1+35, PAGE1+38, PAGE1+39
>> DC	DIDH1+5, DIDH1+13, G+1, W1+1*
>> DDL1	DE+1
>> DDL2	W1, DE+2
DDV	W1*, W1+2!
DDV1	W1*, W1+2!
>> DFF	DIDH1+4, DIDH1+5, DIDH1+9, PAGE1+2
>> DHIT	DIDH1+8, DIDH1+16, DIDH1+21, PAGE1+5, PAGE1+10
>> DIC	DIDH1+10*, DIDH1+17, DIDH1+19
DIDHI	DIDH1+3~, DIDH1+4*
DIDHI(	DIDH1+17
DIDHJ	DIDH1+3~, DIDH1+4*, DIDH1+9, DIDH1+18, PAGE1, PAGE1+1, PAGE1+2
DIDHJ(	PAGE1+2
DIDLN	PAGE1+22~, PAGE1+27
DIDLN(0	PAGE1+24, PAGE1+25
DIDLN(1	PAGE1+23*
DIDPG	PAGE1+7~, PAGE1+8, PAGE1+9, PAGE1+22~, PAGE1+27, PAGE1+31~, PAGE1+33, PAGE1+36~, PAGE1+38
DIDPG("H"	PAGE1+7, PAGE1+26, PAGE1+32, PAGE1+37
>> DIDRANGE	G+1
>> DIFF	DIDH1+7, DIDH1+8
>> DINM	DIDH1+8, PAGE1+21
DIOEND	DIDH1+6!
>> DJ(	DE+2
>> DN	DIDH1+6*
DTIME	DIDH1+6
>> DUB	DIDH1+10
>> F(	DE+2
>> F(1	DIDH1+5*, DIDH1+7
I	DIDH1+4~, DIDH1+17, DIDH1+20, G, PAGE1+4
>> I1	PAGE1+17*
IOF	DIDH1+8
IOM	DIDH1+13, DIDH1+14, DIDH1+16, DIDH1+21, G, PAGE1+17, PAGE1+27, W, W1
IOSL	W1+1
IOST	DIDH1+6, DIDH1+7
J	DIDH1+4~
J(""	DIDH1+4
>> K	W1*
>> M	DIDH1+5, DIDH1+6, DIDH1+14, PAGE1, PAGE1+1, PAGE1+2, PAGE1+3, PAGE1+6, PAGE1+8, PAGE1+10 , PAGE1+11, PAGE1+21, PAGE1+28, PAGE1+34, PAGE1+35, W, DE+2*
>> M1	DIDH1+7*, DIDH1+16, DIDH1+21
>> N	PAGE1+14, PAGE1+39
>> S	DIDH1+14*, W
U	DIDH1+6, DIDH1+7, DIDH1+20, PAGE1+1, PAGE1+2, PAGE1+3, PAGE1+4, PAGE1+6, PAGE1+8, PAGE1+10 , PAGE1+11, PAGE1+12, PAGE1+13, PAGE1+17, PAGE1+21, PAGE1+28, PAGE1+34, PAGE1+35, PAGE1+39, WR+1 , DE+1
W	DIDH1+3~, DIDH1+13, DIDH1+14, DIDH1+15, DIDH1+16, DIDH1+21, G+1, PAGE1+2, PAGE1+3, PAGE1+4 , PAGE1+11, W, WR+1, UP1, UP1+1, UP1+2, W1
X	DIDH1+11~, DIDH1+12, PAGE1+11, PAGE1+17, PAGE1+18, PAGE1+21, PAGE1+23, PAGE1+24
Y	DIDH1+11~, DIDH1+12, DIDH1+13, DIDH1+15, PAGE1+39
>> Z	DIDH1+5*, PAGE1+14, DE+2

Customize PDF page

Package: VA Fileman

Routine: DIDH1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
W1
G
DE	;
Q
WR	;
W
PAGE1
UP1