Routine: DIE1

Package	Total	Call Graph
VA Fileman	9	X^DIC W^DIC1 (FILE,MORE)^DIE MSG^DIEKMSG ^DIEQ FIRE^DIKC $$DEC^DIKC2 $$FLEVDIFF^DIKCU DA^DILF

Package	Total	Caller Graph
VA Fileman	7	DIE DIE0 DIE17 DIE2 DIE3 DIE9 DIED
IHS Changes To Pharmacy	6	APSPT061 APSPT071 APSPT081 APSPT104 APSPT105 APSPT106

Name	Field # of Occurrence
X^DIC	DIC+1
W^DIC1	M+2
FILE^DIE	RESTORE+39
MORE^DIE	G
MSG^DIEKMSG	RESTORE+40
^DIEQ	B+1
FIRE^DIKC	FIREFLD+1, FIREREC+7
$$DEC^DIKC2	RESTORE+33
$$FLEVDIFF^DIKCU	RESTORE+25
DA^DILF	FIREREC+6, RESTORE+32

Name	Line Occurrences (* Changed, ! Killed)
^DD(	RESTORE+29
^DD("KEY" - [#.31]	RESTORE+20, RESTORE+22, RESTORE+23
^DISV(	N+1*

Name	Line Occurrences
D1	DIC+2
DDA	DOWN
DE	Y
DIE1	OUT+1, E+1, DOWN
DIEC	UP+2
DOWN	M+1, N+1
E1	DIE1+3, IX
FIREFLD	IX+2
FIREREC	QY+6
G	E+1, U+1
IX	Y+2
Q	OUT+1
QY	OUT+1
RESTORE	FIREREC+10
S	DOWN
U	UP+2
U1	DIC+3
UDA	U1
UP	OUT+1, E+1
Y	DE, PC

Name	Field # of Occurrence
^(	Y+1*, Y+2
^("4/"	RESTORE+31
^("F"	RESTORE+31
^(0	M+1*, RESTORE+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DE, QY+1~, QY+2, M+2, DIEC
>> D	DIC*
DA	DIE1+4, QY+1!, QY+3, DIC+2, DDA+3, DDA+4, UDA+2, N+1, D1, DIEC!* , FIREFLD+1, FIREREC+2~, FIREREC+6, FIREREC+7, RESTORE+1~, RESTORE+32!
DA(	QY+2, DDA+2!, UDA+3!, DIEC
DA(" "	DDA+2, UDA+3
DA(1	DDA+3!*, UDA+2
DB	DIE1+3!, E1!, QY+8!
DB(	B+1, M+1, S+2
DC	B+2, OUT+1, E+1, QY+8!, M+1, S+2, DDA+4, N+1
>> DD	M+1*, DIC
>> DDS	RESTORE+7
DE	DE*, E1!, QY+8!
DE(	IX, IX+1
DE(" "	IX
DG	DIE1+3!, DIE1+4, Y+2, IX, IX+1*, E1!, QY+5!
DG(	Y, DE, PC, IX, IX+1
DH	QY+8!
>> DI	E+1, DIC+2, S+2, N+1, U*
>> DI(	DIC+3, S+2, U
DIANUM	E1!
>> DIC	IX, IX+1, M+1, DOWN, DDA+4*, N+1
>> DIC("PTRIX"	M+3!*, DIC!
>> DIC("W"	M+2*
>> DIC(0	M+1*
DICR	DIC+1~
DICRREC	IX*, E1!
DIE	DIE1+4, IX, IX+1, DOWN, S+2, DDA+4, U, FIREREC+2~
DIE(	S+2*, U
DIE("PTRIX"	M+3
DIE1	QY+7!, S+3, S+4, U
DIE1(	S+3*, U
>> DIE1N	S+2, S+3, U*
>> DIE1N(	S+2*, U
DIEBADK	QY+7!, RESTORE+2!, RESTORE+40, RESTORE+42!
DIEBADK(	RESTORE+36, RESTORE+37
>> DIEC(	UP+2, DIEC, DIEC+1, DIEC+2, DIEC+3!
>> DIEDA	QY, QY+3
>> DIEDA(	QY+2
DIEFDA	RESTORE+13~, RESTORE+17!, RESTORE+39
DIEFDA(	RESTORE+34*
DIEFIRE	QY+7!, FIREREC+12!, RESTORE+3, RESTORE+7, RESTORE+9, RESTORE+11, RESTORE+35, RESTORE+42
DIEFXREF	IX+2, QY+7!, FIREFLD+1, FIREFLD+2!
DIEKK	RESTORE+13~, RESTORE+19*, RESTORE+20, RESTORE+22, RESTORE+23, RESTORE+26, RESTORE+36, RESTORE+37
DIEL	QY+8!, S+3, D1, U1, DIEC+1, DIEC+3
DIEMSG	RESTORE+13~
DIEREST	RESTORE+6~, RESTORE+9, RESTORE+10, RESTORE+11, RESTORE+34, RESTORE+39, RESTORE+40
DIERR	RESTORE+39!
DIESP	QY+7!
DIETMP	QY+6!, DIC+1~, DIC+2, DDA+5, UDA+4, N+1, DIEC+2, FIREREC+1, FIREREC+4, FIREREC+5 , FIREREC+7, FIREREC+10, FIREREC+12, RESTORE~, RESTORE+31
DIEWR	RESTORE+6~, RESTORE+7, RESTORE+8, RESTORE+11, RESTORE+35, RESTORE+40
DIEXREF	QY+7!
DIFIL	RESTORE+13~, RESTORE+23, RESTORE+24, RESTORE+25, RESTORE+27, RESTORE+28, RESTORE+29, RESTORE+30, RESTORE+31, RESTORE+33 , RESTORE+34, RESTORE+36, RESTORE+37
DIFLD	E1!, QY+8!, RESTORE+13~, RESTORE+21!, RESTORE+23, RESTORE+24, RESTORE+25, RESTORE+28, RESTORE+29, RESTORE+30 , RESTORE+31, RESTORE+33, RESTORE+34, RESTORE+36, RESTORE+37
DIFLD(	RESTORE+25*, RESTORE+27, RESTORE+28, RESTORE+30
DIFLDI	RESTORE+13~, RESTORE+22*, RESTORE+23
DIIENS	QY+7!, DIC+2, DDA+5, UDA+4, N+1, DIEC+2, FIREREC+2~, FIREREC+5, FIREREC+6, RESTORE+13~ , RESTORE+26*, RESTORE+30
DIIENSA	RESTORE+13~, RESTORE+30*, RESTORE+31, RESTORE+32, RESTORE+34, RESTORE+36, RESTORE+37
DIK	B+2*, OUT+1, QY+8!
DIKEY	FIREREC+2~, FIREREC+7, FIREREC+10, RESTORE~
DIKEY(	RESTORE+18, RESTORE+19, RESTORE+26
DINEW	RESTORE+14~, RESTORE+33*, RESTORE+37
DIOLD	RESTORE+14~, RESTORE+31*, RESTORE+34, RESTORE+36
>> DIOPER	FIREFLD+1, FIREREC+7
>> DIOV(	S+1*, U!
DIP	QY+8!
DIRFIL	RESTORE+14~, RESTORE+18*, RESTORE+19, RESTORE+25, RESTORE+26, RESTORE+36, RESTORE+37
DK	QY+8!, DIC+2, S+2, S+3, U*
DK(	S+2*, UP+2, U
DL	B+2, OUT+1, E+1, QY+8!, DIC+3, S+1, S+2, S+3, UP+2, U* , DIEC, DIEC+1, DIEC+2, DIEC+3
>> DLAYGO	DIC*
DM	QY+8!, DIC+2, S+3, S+4, U
DM(	S+3*, U
>> DO	M+1*
>> DO(2	M+1*, M+2
DOV	QY+8!, S+1!, U*
DP	DIE1+3, E+1, QY+8!, DIC, S+2, S+4, UP+2, U, FIREFLD+1, FIREREC+2~ , FIREREC+4*, FIREREC+5, FIREREC+7
DP(	S+2*, U
DP(0	UP+2*
DQ	DIE1+3!, DIE1+4, Y, Y+2, DE, PC, IX, IX+1, E1, B+1 , B+2, QY+5!, M+1, S+2, U
DQ(	M+1, S+2
>> DR	DIC+2, S+2, S+3, S+4, U*
>> DR(	S+2*, S+4, U
>> DSC(	S+2
DTOUT	QY, QY+5, DIC+3!, UP+1
DU	DIE1+4, Y, Y+1, Y+2*, QY+8!
DUOUT	DIC+3!
DUZ	N+1
DV	Y+1, Y+2, DE, PC*, QY+8!, S+2
DW	Y, DE, PC, QY+8!
T	DDA~, DDA+1, DDA+6, UDA~, UDA+1, UDA+5
U	M+1, DIC+2, DIC+3, S+2, DDA+4, N+1, UP+2, RESTORE+23
X	DE, IX, IX+1, B+1, E+1, M+1, DIC, DIC+2, DDA~, DDA+2 , UDA~, UDA+3, RESTORE+3, RESTORE+14~, RESTORE+33*
Y	Q!, DIC+2, FIREREC+2~
Y(	OUT+1*
>> ZTQUEUED	RESTORE+7

Customize PDF page

Package: VA Fileman

Routine: DIE1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DE
U1
DIC
DOWN
FIREREC	;Fire record-level xrefs accumulated in ^TMP
PC
E1
FIREFLD	;Fire field-level xrefs stored in DIEFXREF
OUT	;
IX
B	;
E	;
G
M	;
N	;
Q
S	;CALLED BY O+1^DIE0
U
RESTORE(DIKEY,DIETMP)	;Restore key fields to their pre-edited values
Y
DIEC
DDA
QY
UP	;
UDA
D1