Routine: DIVRPTR

Information

DIVRPTR ;GFT/GFT - CHECK POINTER FIELDS (PROGRAMMER CALL) ;28FEB2004

Package	Total	Call Graph
VA FileMan	7	$$LABEL^DIALOGZ DT^DICRW L^DICRW1 ($$CREF,$$IENS)^DILF $$GET1^DIQ ^DIR IJ^DIUTL
Kernel	2	^%ZIS ^%ZISC

Name	Comments	DBIA/ICR reference
CK(A,DIFLD,T)	;CHECK FIELD DIFLD, DATA DICTIONARY A, TYPE T
XEC
Q
0	;
L
V	;VARIABLE POINTER
P	;REGULAR POINTER
X
LF	;Issue a line feed or EOP read
HDR	;Print header
SUBHD

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"POINTED-TO FILE (#",+$P(DR,"P",2),") IS MISSING!!",! Line Location: CK+5
Function Call: WRITE	Prompt: !,?V-J2,$O(^DD(J(V-J),0,"NM",0)),": `",+$P(DG,",",J+1),?V-J2+10," " Line Location: X+3
Function Call: WRITE	Prompt: D Line Location: X+3
Function Call: WRITE	Prompt: S Line Location: X+3
Function Call: WRITE	Prompt: D Line Location: X+3
Function Call: WRITE	Prompt: W Line Location: X+4
Function Call: WRITE	Prompt: W Line Location: X+4
Function Call: WRITE	Prompt: " " Line Location: X+5
Function Call: WRITE	Prompt: !?30 Condition for execution: $X+$L(M)>IOM Line Location: X+5
Function Call: WRITE	Prompt: M Line Location: X+5
Function Call: WRITE	Prompt: ! Line Location: LF+1
Function Call: WRITE	Prompt: ! Line Location: LF+4
Function Call: WRITE	Prompt: "continued",! Line Location: LF+5
Function Call: WRITE	Prompt: @IOF,"DANGLING POINTER REPORT",! Line Location: HDR+1
Function Call: WRITE	Prompt: !!!,"FILE ",J(0)," '",$$LABEL^DIALOGZ(A,DIFLD),"' (" Line Location: SUBHD+0
Function Call: WRITE	Prompt: Y,")" Line Location: SUBHD+5
Routine Call	%ZIS Line Location: DIVRPTR+9
Routine Call	DIR Line Location: LF+4

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DIVRPTR+10, CK+4, V+3, X+3, SUBHD+4
^UTILITY("DIVR"	CK+2!, Q, Q+1!, X, X+1*

Name	Field # of Occurrence
^(	DIVRPTR+10, Q
^(0	CK+4, V+2

Name	Field # of Occurrence
>> %	L*, L+1
A	DIVRPTR+10*, CK~, CK+3, CK+4, V+3, SUBHD, SUBHD+4
DA	0+1!, L*, L+2, X+2
DE	CK+1~, CK+7, CK+9, CK+10, XEC, 0+2, L, L+1, L+2*
DE(	L*
DE(1	CK+9*
DG	CK+1~, X+2*, X+3, X+4
DIB	DIVRPTR+7~
DIB(1	DIVRPTR+10
DIC	DIVRPTR+7~, DIVRPTR+8, XEC!
DIFLD	DIVRPTR+10*, CK~, CK+4, V+3, SUBHD, SUBHD+3, SUBHD+4
DIR	LF+3~
DIR(0	LF+4*
DIRUT	DIVRPTR+7!, DIVRPTR+10, LF+5
DIVTMP	CK+1~
DIVZ	CK+1~, CK+4, CK+5, P+1, P+2
>> DK	Q*
DR	CK+1~, CK+4*, CK+5
E	CK+1~, Q*
I	CK+1~, SUBHD~, SUBHD+2*
I(	L+3
I(0	0+2
IO	DIVRPTR+9
IOF	HDR+1
IOM	X+5
IOSL	LF+1
IOST	LF+2
J	CK+1~, X+2, X+3, X+4
J(	X+3, X+4, SUBHD+2
J(""	CK+3
J(0	DIVRPTR+10, Q, SUBHD, SUBHD+1
M	CK+1~, CK+8, CK+9, CK+10, XEC!, Q, V+1, V+2, V+3, V+4 , P+2, X+1, X+5
P4	CK+1~, CK+4*, CK+6
>> POP	DIVRPTR+9
T	DIVRPTR+10*, CK~, CK+5, CK+7, CK+8
U	DIVRPTR+10, CK+4, CK+5, V+2, V+3, V+4, P+2, SUBHD+4
V	CK+1~, CK+3*, 0+2, L, L+2, L+3, X+2, X+3, X+4
W	CK+1~, X+3, X+4
X	DIVRPTR+10, CK+6, CK+7, CK+8, 0+2, L, L+2, L+3*, V+1, V+2 , V+4, P+1, P+2, X+1, LF+3~
Y	DIVRPTR+10, CK+6, CK+7, CK+8, XEC!, 0+2, L, L+3, LF+3~, SUBHD~ , SUBHD+1, SUBHD+2, SUBHD+3, SUBHD+4, SUBHD+5