Routine: DIDC

Package	Total	Call Graph
VA Fileman	4	%XY^%RCR LIST^DIKCP ^DIO STOP^DIO4

Package	Total	Caller Graph
VA Fileman	2	DID DIO4

Entry Points

External References

Name	Field # of Occurrence
%XY^%RCR	DD+3
LIST^DIKCP	P+11
^DIO	DD+4
STOP^DIO4	Q

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(DIFF)&($Y) Line Location: P+1
Function Call: WRITE	Prompt: !!,"CONDENSED DATA DICTIONARY---",NAME," FILE"," (#",N(0),")" Line Location: P+1
Function Call: WRITE	Prompt: ?47,"UCI: "_Y Line Location: P+1
Function Call: WRITE	Prompt: ?63,$S($G(^DD(N(0),0,"VR"))]"":" VERSION: "_$P(^("VR"),U),1:" ") Line Location: P+2
Function Call: WRITE	Prompt: !!,"STORED IN: ",$S($D(^DIC(N(0),0,"GL")):^("GL"),1:""),?58,DAT,?70,"PAGE ",P Line Location: P+2
Function Call: WRITE	Prompt: !!,"STORED IN: ",$S($D(^DIC(N(0),0,"GL")):^("GL"),1:""),?58,DAT,?70,"PAGE ",P Line Location: P+2
Function Call: WRITE	Prompt: !!,"STORED IN: ",$S($D(^DIC(N(0),0,"GL")):^("GL"),1:""),?58,DAT,?70,"PAGE ",P Line Location: P+2
Function Call: WRITE	Prompt: !!,?50,"FILE SECURITY" Line Location: P+3
Function Call: WRITE	Prompt: !,?35,"DD SECURITY : ",$S($D(^DIC(N(0),0,"DD")):^("DD"),1:""),?58,"DELETE SECURITY: ",$S($D(^("DEL")):^("DEL"),1:"") Line Location: P+4
Function Call: WRITE	Prompt: !,?35,"READ SECURITY : ",$S($D(^("RD")):^("RD"),1:""),?58,"LAYGO SECURITY : ",$S($D(^("LAYGO")):^("LAYGO"),1:"") Line Location: P+5
Function Call: WRITE	Prompt: !,?35,"WRITE SECURITY : ",$S($D(^("WR")):^("WR"),1:"") Line Location: P+6
Function Call: WRITE	Prompt: !?10,"(NOTE: Kernel's File Access Security has been installed in this UCI.)",! Line Location: P+7
Function Call: WRITE	Prompt: !,"CROSS REFERENCED BY:",!,?5 Line Location: P+8
Function Call: WRITE	Prompt: !,?5 Condition for execution: $X>50&($L($P(^DD(NF,N1,0),"^",1)>20)) Line Location: P+10
Function Call: WRITE	Prompt: " ",$P(^DD(NF,N1,0),"^",1),"(",NY,") " Line Location: P+10
Function Call: WRITE	Prompt: !!!,?33,"FILE STRUCTURE",!! Line Location: P1+0
Function Call: WRITE	Prompt: "FIELD",?10,"FIELD",!,"NUMBER",?10,"NAME",! Line Location: P1+0
Function Call: WRITE	Prompt: !,M(0),?10,$P(^DD(N(0),M(0),0),U,1)," " Line Location: P2+0
Function Call: WRITE	Prompt: !,?10+((K-1)5),M(K),?15+((K-1)5),$P(^DD(N(K),M(K),0),U,1)," " Line Location: MO+1
Function Call: WRITE	Prompt: $S(+J:"(Multiple-"_+J,1:"("_J),"), [",$P(^(0),U,4),"]" Line Location: M+0
Function Call: WRITE	Prompt: !,F_" " Line Location: PT+0
Function Call: WRITE	Prompt: !?19 Condition for execution: $X>24 Line Location: PT+0
Function Call: WRITE	Prompt: "(#"_^(F,0)_") " Line Location: PT+0
Function Call: WRITE	Prompt: ?33," ",$S(%=F(1):"",1:$P(^DD(%,0)," SUB-FIELD",1)_":") Line Location: PT+1
Function Call: WRITE	Prompt: ?34,$P(^DD(%,S,0),U)," (#"_S_")",! Line Location: PT+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: L+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	P+1
^DD(	EN, P+2, P+9, P+10, P2, MO, MO+1, PT+1, DD, DD+1 , DD+2
^DIC - [#1]	P+2, P+4, DD+1, DD+2
^UTILITY($J	PTR+1, PT+1, L+3!
^VA(200 - [#200]	P+7

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	P+10~, PT+1, PT+2*
%DT	EXIT!
>> %X	DD+3*
>> %Y	DD+3*
%ZIS	EXIT!
>> D0	EXIT*
DAT	DIDC+3*, EXIT!, P+2
>> DC	DD+4*
>> DFF	DD+4, Q
>> DIA	DD+4
>> DIB	DD, DD+1, DD+2, DD+4
>> DIB(1	DD, DD+1, DD+2, Q
>> DIFF	P+1*
>> DIJS	DD+4
>> DIMS	DD+4
>> DIPP	DD+3
>> DIPP(0	DD+1
>> DIPQ	DD+4
>> DISEARCH	DD+4*
>> DJ	L+2, DD+4*
DM	DIDC+3, EN, EXIT!, P, P2, MO, MO+1, MO+2
>> DPP	DD+3*
>> DPQ	DD+4*
DT	DIDC+3
DTIME	P, L+2
>> F	PTR+1, PTR+2, PT, PT+1
>> F(1	PT+1
I	EN, EXIT!, P+2, PTR+1*
IOF	P+1
IOM	P+2
IOST	P, L+2
J	EXIT!, P2, MO+1, M*
K	EXIT!, P2, MO, MO+1, MO+2*
K1	EXIT!, P2*
KK	EXIT!, P+9*
>> L	MO+1, DD+3
M	EXIT!, L+1, DD+4
M(	MO, MO+1
M(0	P2*
MO	EXIT!
N	EXIT!
N(	MO*, MO+1
N(0	EN*, P+1, P+2, P+4, P+9, P+10, P+11, P2
N1	EXIT!, P+9*, P+10
NAME	EN*, EXIT!, P+1
NF	EXIT!, P+9*, P+10
NY	EXIT!, P+9*, P+10
P	EN, EXIT!, P, P+2, P+3
POP	EXIT!
>> S	PT+1, PT+2
U	P+2, P+10, P2, MO, MO+1, M, PT+1, L+1, L+2
X	DIDC+3, EXIT!, P2, MO, MO+1, MO+2, L+2
X1	EN, EXIT!
X2	EN, EXIT!
Y	EXIT!, P+1, L+1

Customize PDF page

Package: VA Fileman

Routine: DIDC

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
DD	DD, DD+1
EXIT	EN
M	P2, MO+1
MO	P2, MO+1
P	EN
P1	P+3
P2	EN
PT	PTR+1
Q	L+1, L+2, DD, DD+1

Name	Field # of Occurrence
^(	P+9, P+10, PT, DD
^("DD"	P+4
^("DEL"	P+4
^("GL"	P+2
^("LAYGO"	P+5
^("RD"	P+5
^("UCI"	P+1
^("VR"	P+2
^("WR"	P+6
^(0	P+10, M

Name	Comments	DBIA/ICR reference
P2
EN
PT
MO
M
L	; CUSTOM LOOP
DD
Q
P
P1
EXIT
PTR	;