Routine: DIDGFTPT

Information

DIDGFTPT ;GFT/GFT - GET ALL ENTRIES THAT POINT TO ENTRY GFTIEN IN FILE GFTFILE ;20 Aug 2015 4:46 PM

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	5	^DIC DT^DICRW $$CONVQQ^DILIBF $$GET1^DIQ ^DIR
Kernel	2	^%ZIS ^%ZISC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
VA FileMan	2	DDU DIUTL

Entry Points

Name	Comments	DBIA/ICR reference
ZIS
START
DEPEND(GFTFILE,IEN,GFTWHERE,GFTPARAM)	;
COMPUTED
CHASE(FILE,FIELD,GFTRCR)	;BUILD AN 'XEC' THAT WILL GO THRU FILE REMEMBERING FIELD'S POINTERS
UP
XEC
PUT(XVAL,Y,FIELD)
ALL	;Do all files (SO)

External References

Name	Field # of Occurrence
^%ZIS	ZIS, ALL+1
^%ZISC	START+13, ALL+12
^DIC	DIDGFTPT+11, DIDGFTPT+18, DIDGFTPT+20
DT^DICRW	DIDGFTPT+8
$$CONVQQ^DILIBF	UP+9
$$GET1^DIQ	START+4, START+9
^DIR	DIDGFTPT+17, START+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"THIS UTILITY TRIES TO FIND ALL ENTRIES IN ALL FILES POINTING TO A CERTAIN FILE",! Line Location: DIDGFTPT+7
Function Call: WRITE	Prompt: ! Line Location: ZIS+1
Function Call: WRITE	Prompt: X,"***" Line Location: START+6
Function Call: WRITE	Prompt: !,"FILE ",I," (",$P(^DIC(I,0),U),")" Line Location: START+7
Function Call: WRITE	Prompt: ! Condition for execution: $X>(IOM-30) Line Location: START+10
Function Call: WRITE	Prompt: ?IOM-30,$P(@("^DD("_Y_",0)"),U) Line Location: START+10
Function Call: WRITE	Prompt: !!! Line Location: START+13
Routine Call	%ZIS Line Location: ZIS ALL+1
Routine Call	DIC Line Location: DIDGFTPT+11 DIDGFTPT+18 DIDGFTPT+20
Routine Call	DIR Line Location: DIDGFTPT+17 START+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DEPEND+7, DEPEND+8, COMPUTED, COMPUTED+1, UP, UP+2, UP+5
^DIBT - [#.401]	DIDGFTPT+13, DIDGFTPT+18
^DIBT("F"	DIDGFTPT+13
^DIC - [#1]	DIDGFTPT+11, START+6, START+7, UP+1, UP+9, ALL+4
^TMP($J	DIDGFTPT+10!, START+3, START+7, START+10, START+12!, DEPEND+2

Label References

Name	Line Occurrences
CHASE	DEPEND+9, COMPUTED+2
DEPEND	START+1
START	ALL+9
ZIS	DIDGFTPT+18

Naked Globals

Name	Field # of Occurrence
^(	START+8
^("GL"	UP+1
^("SCR"	UP+2
^(0	UP+5, UP+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	DEPEND+6~, DEPEND+7, DEPEND+8, DEPEND+9, COMPUTED, COMPUTED+1, COMPUTED+2, CHASE+2~, UP+3, UP+5 , UP+6, UP+8
B	DEPEND+6~, DEPEND+8, DEPEND+9, COMPUTED+1, COMPUTED+2, CHASE+2~
D0	CHASE+2~, PUT+2
D1	CHASE+2~
D2	CHASE+2~
D3	CHASE+2~
D4	CHASE+2~
D5	CHASE+2~
D6	CHASE+2~
D7	CHASE+2~
D8	CHASE+2~
D9	CHASE+2~
DIBT	DIDGFTPT+9~, DIDGFTPT+18!
DIBT(	DIDGFTPT+13*
DIBT(0	DIDGFTPT+14
DIC	DIDGFTPT+9~, DIDGFTPT+11, DIDGFTPT+18!, DIDGFTPT+19*, START!
DIC("A"	DIDGFTPT+19*
DIC("S"	DIDGFTPT+18*
DIC(0	DIDGFTPT+11*
DICMX	CHASE+2~, UP+6, UP+7
DIDGFTPT	CHASE+2~, CHASE+3*
DIR	DIDGFTPT+9~, DIDGFTPT+17!
DIR("A"	DIDGFTPT+15*
DIR("B"	DIDGFTPT+16*
DIR(0	DIDGFTPT+12, DIDGFTPT+14, DIDGFTPT+16, START+11*
DIRUT	DIDGFTPT+9~, DIDGFTPT+17
FIELD	CHASE~, UP+5*, UP+7, UP+10, PUT~, PUT+3
FILE	CHASE~, CHASE+1, CHASE+3, UP+5
GFTALL	DIDGFTPT+9~, START+13, ALL+7~, ALL+8*
GFTANY	DIDGFTPT+9~, DIDGFTPT+11, DIDGFTPT+12, DIDGFTPT+14, DIDGFTPT+18, DIDGFTPT+19, START+1, START+4, DEPEND+1~, PUT , ALL+7~, ALL+8*
GFTF	CHASE+2~, CHASE+3, UP, UP+1, UP+2, PUT+3
GFTFILE	DIDGFTPT+9~, DIDGFTPT+11, DIDGFTPT+13, DIDGFTPT+19, START+1, START+3, START+4, START+6, START+7, START+10 , DEPEND~, DEPEND+4, DEPEND+5, DEPEND+7, DEPEND+8, COMPUTED, COMPUTED+1, UP+9, PUT, PUT+3 , ALL+2~, ALL+3, ALL+4*, ALL+5, ALL+6
GFTFISCR	CHASE+2~, UP+2*, PUT+1
GFTIEN	DIDGFTPT+9~, START+3, START+4, START+5, START+7, START+10, START+11!, ALL+7~, ALL+8
GFTIEN(	DEPEND+4, DEPEND+5, PUT
GFTIENLIST	DIDGFTPT+9~, DIDGFTPT+18, DIDGFTPT+19, DIDGFTPT+20*, START+1
GFTPARAM	DEPEND~, DEPEND+1
GFTRCR	DEPEND+9, COMPUTED+2, CHASE~
GFTWHERE	DEPEND~, DEPEND+2*, DEPEND+3, PUT+3
I	START+7, START+9, START+10, CHASE+2~, UP, UP+1, UP+3, UP+7, UP+10
IEN	DEPEND~, DEPEND+4, DEPEND+5
IENS	PUT+2~*, PUT+3
IO	ZIS, ALL+1
IOM	START+10
IOSL	START+11
IOST	START+11
J	START+7, START+8, START+9, START+10, CHASE+2~, UP, UP+1, UP+3
J(	UP*, UP+3
L	CHASE+3, UP, UP+3, PUT+2~*
>> POP	ZIS
>> PUT	CHASE+3, UP+3
S	PUT+2~*
U	DIDGFTPT+11, START+6, START+7, START+10, UP, UP+5, UP+6, UP+9
V	CHASE+2~, UP+5*, UP+6, UP+8
X	DIDGFTPT+9~, DIDGFTPT+13, START+4, START+5, START+6, CHASE+2~, UP, UP+3, UP+5, UP+8
XEC	CHASE+2~, UP+4, UP+6, UP+7, UP+8, UP+9, UP+10*, XEC
XVAL	PUT~, PUT+3
Y	DIDGFTPT+9~, DIDGFTPT+11, DIDGFTPT+13, DIDGFTPT+18, DIDGFTPT+19, DIDGFTPT+20, START+8, START+10*, START+11, PUT~ , PUT+3

Customize PDF page

Package: VA FileMan