Routine: DIA3

Information

DIA3 ;SFISC/GFT-UPDATE POINTERS, CHECK CODE IN INPUT STRING, CHECK FILE ACCESS ;19SEP2004

Source Information

Source file <DIA3.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA FileMan	10	(2,D,DB,DIC,DICS,FILETOP,P,X)^DIA L^DIA2 BLD^DIALOG YN^DICN EN^DICOMP ^DICOMPW ^DIM DIA3^DIQQQ PTS^DIT (ASK,P)^DITP

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	DIA DIA2

Entry Points

Name	Comments	DBIA/ICR reference
C
D
W
F
DITP
FIXPT(DIFLG,DIFILE,DIDELIEN,DIPTIEN)	;DELETE OR REPOINT POINTERS ---never done??
QFIXPT
X	;
E
L
DEF
BAD
ACC
XEC

External References

Name	Field # of Occurrence
2^DIA	X+1
D^DIA	X+1, XEC+2
DB^DIA	L+1
DIC^DIA	X+4, DEF+1
DICS^DIA	DEF+1
FILETOP^DIA	L+1
P^DIA	X+2
X^DIA	BAD
L^DIA2	W
BLD^DIALOG	FIXPT+3
YN^DICN	D, XEC+2
EN^DICOMP	DEF+1
^DICOMPW	E
^DIM	X+2
DIA3^DIQQQ	X+3
PTS^DIT	DIA3+7, FIXPT+10
ASK^DITP	DIA3+8
P^DITP	FIXPT+12

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: % Timeout: DTIME Line Location: C+0
Function Call: WRITE	Prompt: !,"DELETE ALL POINTERS" Line Location: D+0
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !,"THEN PLEASE INDICATE WHICH ENTRY SHOULD BE POINTED TO" Line Location: W+0
Function Call: WRITE	Prompt: $C(7),!,"OK... FORGET IT... LET'S GO ON TO EDIT ANOTHER ENTRY" Line Location: F+0
Function Call: WRITE	Prompt: !?4,"("_$P("DELETION^RE-POINTING",U,''Y+1)_" WILL OCCUR WHEN YOU LEAVE 'ENTER/EDIT' OPTION)" Line Location: DITP+1
Function Call: WRITE	Prompt: !?9,"YOU HAVE NO WRITE ACCESS TO FILE "_+DP Line Location: ACC+0
Function Call: WRITE	Prompt: !?63-$L(Y),Y Line Location: XEC+2
Function Call: WRITE	Prompt: !,$C(7)," WARNING: THIS MEANS AUTOMATIC DELETION!!" Line Location: XEC+4
Routine Call	DIALOG Line Location: FIXPT+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	FIXPT+5
^DIC - [#1]	FIXPT+4, FIXPT+9
^TMP("DIFIXPT"	FIXPT+8!
^UTILITY("DIT"	DIA3+7, DITP, FIXPT+8!, FIXPT+10, FIXPT+11, QFIXPT!

Label References

Name	Line Occurrences
ACC	E
BAD	X+2, X+3, X+6, E, ACC
C	C, D
D	DIA3+9
DEF	X+5
DITP	D, W
F	C, D
QFIXPT	FIXPT+10
W	C
XEC	DEF+1

Naked Globals

Name	Field # of Occurrence
^(	DITP, FIXPT+11
^(0	DIA3+7, C, FIXPT+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DIA3+8, C, D, FIXPT+8~, X+3, L, L+1, XEC+2*
%X	FIXPT+3~
%Y	FIXPT+3~
BY	FIXPT+8~
D	FIXPT+8~, X+3*
>> DA	E, L, DEF+1, XEC+1, XEC+3*
>> DB	X+1*
>> DH	DIA3+7*
DHD	FIXPT+8~
DHIT	FIXPT+8~, DEF+1*, XEC+2
>> DI	L+1*, XEC+2
DIA	DIA3+7, DITP, FIXPT+8~, FIXPT+9*, FIXPT+11, DEF+1
DIA("P"	DIA3+7, FIXPT+9*
DIA(1	DITP, FIXPT+9*, FIXPT+11
DIAB	X+4, E!, ACC!, XEC+2*
>> DIAP	XEC+2
DIC	DIA3+9, FIXPT+8~
DIC("S"	XEC*
>> DICMX	E, DEF+1
>> DICOMP	E, DEF+1
DIDELIEN	FIXPT~, FIXPT+4, FIXPT+9, QFIXPT!
DIFILE	FIXPT~, FIXPT+4, FIXPT+5, FIXPT+9*, QFIXPT!
DIFIXPT	FIXPT+3~, FIXPT+7*
DIFIXPTC	FIXPT+3~, FIXPT+7*
DIFIXPTH	FIXPT+3~
DIFLG	FIXPT~, FIXPT+4, QFIXPT!
DIIOP	QFIXPT!
DIPTIEN	FIXPT~, FIXPT+3~, FIXPT+5, FIXPT+7*, FIXPT+11, QFIXPT!
DISTOP	FIXPT+8~
>> DK	X+5*, DEF+1, XEC+3
DL	FIXPT+8~
>> DP	X+5, E, L+1, DEF+1, ACC, XEC+2, XEC+3
>> DQI	E, DEF+1
DR	FIXPT+8~
DR(	XEC+2
>> DRS	L+1, XEC+2
>> DSC	X+1
DTIME	C
DTO	DIA3+7, FIXPT+8~, FIXPT+9
>> DTOUT	BAD
DUZ(0	X+2, X+5
>> DV	X+3, DEF+1
>> DXS	E, L, DEF+1, XEC+2
>> F	XEC+2
FLDS	FIXPT+8~
FR	FIXPT+8~
>> I(	DEF
IOP	FIXPT+8~
>> J	DEF*
L	FIXPT+8~, E, L+1*, DEF, DEF+1
TO	FIXPT+8~
U	C, DITP+1, L+1, DEF, XEC+2, XEC+3
X	FIXPT+3~, FIXPT+4, FIXPT+5, FIXPT+6!, FIXPT+8~, X+2, X+4, E!, L, L+1! , DEF, DEF+1*!, XEC, XEC+2
X(	L, XEC+1
Y	DIA3+7, DIA3+9, W, DITP, DITP+1, FIXPT+3~, FIXPT+5, FIXPT+8~, FIXPT+9, X+1* , X+2, X+3, X+4, X+5, X+6, E, L+1, DEF+1, XEC, XEC+1* , XEC+2*
Y(	X+1
Z	FIXPT+8~

Customize PDF page

Package: VA FileMan