Routine: DIE17

Package	Total	Call Graph
VA Fileman	10	%XY^%RCR DICS^DIA RANGE^DIA1 (,X)^DIC W^DIC1 (DIEC,RESTORE)^DIE1 FIRE^DIKC LOADFLD^DIKC1 $$FROOTDA^DIKCU ($$OREF,DA)^DILF

Package

Total

Call Graph

%XY^%RCR DICS^DIA RANGE^DIA1 (,X)^DIC W^DIC1 (DIEC,RESTORE)^DIE1 FIRE^DIKC LOADFLD^DIKC1
$$FROOTDA^DIKCU ($$OREF,DA)^DILF

Caller Graph

Caller Graph Total: 405

Package	Total	Caller Graph
Registration	89	DGMTXC DGMTXC2 DGMTXD DGMTXD1 DGMTXE DGMTXI DGMTXI3 DGMTXM DGMTXN DGPMX1 DGPMX13 DGPMX2 DGPMX23 DGPMX27 DGPMX28 DGPMX3 DGPMX31 DGPMX32 DGPMX4 DGPMX43 DGPMX45 DGPMX5 DGPMX53 DGPMX6 DGPMX65 DGPMX66 DGPMX67 DGPMXA DGPMXA1 DGPMXAS DGPMXAS3 DGPTX1 DGPTX11 DGPTX112 DGPTX113 DGPTX12 DGPTX13 DGPTX14 DGPTX18 DGPTX4 DGPTX41 DGPTX44 DGPTX5 DGPTX51 DGPTX52 DGPTX53 DGPTX54 DGPTX7 DGPTX73 DGPTX74 DGPTX77 DGPTX8 DGPTX81 DGPTXA DGPTXC DGPTXC1 DGPTXCA DGPTXM DGPTXMS DGRPTX DGRPTX10 DGRPTX11 DGRPTX14 DGRPTX17 DGRPTX18 DGRPTX24 DGRPTX25 DGRPTX27 DGRPTX34 DGRPTX39 DGRPTX41 DGRPTX5 DGRPX7 DGRPX710 DGRPX711 DGRPX712 DGRPX73 DGRPXC DGRPXI DGRPXI3 DGRPXR DGX5F DGX5F1 DGX5F4 DGX5F5 DGX5F6 DGXTS DGXTS1 DGXTS2
Quality Assurance	74	AQAOT01 AQAOT02 AQAOT03 AQAOT031 AQAOT032 AQAOT033 AQAOT04 AQAOT041 AQAOT05 AQAOT06 AQAOT07 AQAOT08 AQAOT081 AQAOT09 AQAOT10 AQAOT11 AQAOT111 AQAOT112 AQAOT12 AQAOT13 AQAOT131 AQAOT14 AQAOT141 AQAOT15 AQAOT151 AQAOT152 AQAOT16 AQAOT17 AQAOT171 AQAOT18 AQAOT181 AQAOT182 AQAOT19 AQAOT20 AQAOT21 AQAOT211 AQAOT22 AQAOT23 AQAOT231 AQAOT232 AQAOT24 AQAOT25 AQAOT26 AQAOT261 AQAOT27 AQAOT28 AQAOT281 AQAOT29 AQAOT30 AQAOT31 AQAOT311 AQAOT32 AQAOT321 AQAOT33 AQAOT34 AQAOT341 AQAOT35 AQAOT36 AQAOT361 AQAOT37 AQAOT38 AQAOT39 AQAOT40 AQAOT41 AQAOT42 AQAOT43 AQAOT44 AQAOT45 AQAOT46 AQAOT461 AQAOT47 AQAOT48 AQAOT49 AQAOT491
Radiology Nuclear Medicine	62	RACTEX RACTEX1 RACTEX11 RACTEX12 RACTEX13 RACTEX14 RACTEX15 RACTEX16 RACTEX17 RACTEX18 RACTEX2 RACTEX3 RACTEX4 RACTEX5 RACTEX6 RACTEX7 RACTEX8 RACTOE RACTOE1 RACTOE2 RACTOE3 RACTOE4 RACTOE5 RACTOE6 RACTQE RACTQE1 RACTQE2 RACTQE3 RACTRG RACTRG1 RACTRG10 RACTRG11 RACTRG12 RACTRG2 RACTRG5 RACTRG6 RACTRG7 RACTRG8 RACTRG9 RACTTK RACTTK1 RACTTK10 RACTTK11 RACTTK12 RACTTK13 RACTTK14 RACTTK15 RACTTK16 RACTTK17 RACTTK2 RACTTK3 RACTTK4 RACTTK5 RACTTK6 RACTTK7 RACTTK8 RACTTK9 RACTVR RACTVR1 RACTWR RACTWR1 RACTWR2
Integrated Billing	38	IBXEX IBXEXI IBXEXS IBXFI5 IBXFI51 IBXPAR IBXPAR1 IBXSC1 IBXSC11 IBXSC116 IBXSC12 IBXSC19 IBXSC2 IBXSC21 IBXSC22 IBXSC3 IBXSC32 IBXSC4 IBXSC41 IBXSC42 IBXSC43 IBXSC5 IBXSC51 IBXSC52 IBXSC53 IBXSC54 IBXSC6 IBXSC61 IBXSC62 IBXSC7 IBXSC71 IBXSC73 IBXSC74 IBXSC8 IBXSC82 IBXSC8H IBXST IBXST1
IHS Changes To Pharmacy	34	APSPE APSPE1 APSPE2 APSPE3 APSPT01 APSPT011 APSPT012 APSPT013 APSPT014 APSPT02 APSPT021 APSPT03 APSPT031 APSPT04 APSPT041 APSPT05 APSPT051 APSPT06 APSPT061 APSPT07 APSPT071 APSPT08 APSPT081 APSPT09 APSPT091 APSPT092 APSPT093 APSPT10 APSPT101 APSPT102 APSPT103 APSPT104 APSPT105 APSPT106
IHS Changes To ADT	26	ADGT02 ADGT021 ADGT022 ADGT03 ADGT04 ADGT041 ADGT044 ADGT06 ADGT061 ADGT062 ADGT063 ADGT08 ADGT081 ADGT082 ADGT083 ADGT11 ADGT111 ADGT15 ADGT151 ADGT152 ADGT16 ADGT162 ADGT17 ADGT171 ADGT172 ADGT18
Scheduling	21	SDAMXLG SDAMXOE SDBT SDBT1 SDBT10 SDBT2 SDBT3 SDBT4 SDBT5 SDBT6 SDBT7 SDBT8 SDBT9 SDM1T SDM1T11 SDXA SDXA1 SDXA2 SDXACSE SDXACSE1 SDXACSE2
Automated Information Collection System	11	IBDX96 IBDX97 IBDXI2 IBDXI21 IBDXI22 IBDXI23 IBDXI24 IBDXI5 IBDXI51 IBDXI93 IBDXI931
Supply	9	ASUTE1 ASUTE5 ASUTE6 ASUTE8 ASUTE81 ASUTEB ASUTEB1 ASUTEB2 ASUTEP
IHS Changes To Scheduling	7	ASDT01 ASDT012 ASDT015 ASDT016 ASDT017 ASDT018 ASDT019
Incomplete Records Tracking	7	DGJXA DGJXA1 DGJXA3 DGJXE DGJXE1 DGJXE2 DGJXE3
Text Integration Utility	7	TIUEDS TIUEDS10 TIUEDS5 TIUEPN TIUEPN12 TIUEPN17 TIUEPN7
IHS Generic Interface System	4	INHXEMN INHXEMN1 INXHAS INXHAV
Pharmacy Point of Sale	4	ABSPIN1 ABSPIN11 ABSPIN12 ABSPIN13
VA Fileman	3	DIE DIE2 DIE3
IHS Dental System	2	ADEEAU ADEEW
Medicine	2	MCOPRG MCOPRG1
Nursing Service	2	NURAPA NURAPA1
Patient Care Component	2	APCDT60 APCDT601
Local Area Programs	1	AZAXTT

Entry Points

Name	Field # of Occurrence
%XY^%RCR	DR+1
DICS^DIA	DR+2
RANGE^DIA1	DR+2
^DIC	OUT+5, OJ+1
X^DIC	M+4
W^DIC1	M+2
DIEC^DIE1	UP
RESTORE^DIE1	FIREREC+18
FIRE^DIKC	FIREREC+15
LOADFLD^DIKC1	TRIG+6
$$FROOTDA^DIKCU	TRIG+9
$$OREF^DILF	TRIG+9
DA^DILF	FIREREC+7, FIREREC+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,"EXIT NOT ALLOWED " Line Location: DIE17+6
Function Call: WRITE	Prompt: !?3,"JUMPING NOT ALLOWED " Line Location: DIE17+7
Function Call: WRITE	Prompt: $C(7)_"??" Line Location: UNIQFERR+2
Routine Call	DIC Line Location: OUT+5 OJ+1
Routine Call	DIC Line Location: M+4

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DR+2
^DIE - [#.402]	OUT+2, OUT+6, OUT+7
^DIE("AF"	OJ, OJ+1, TRIG+10
^DISV(	N+1*

Label References

Name	Line Occurrences
$$IENS	UNIQUE+4, UNIQUE+11
@(	DIE17+5, JMP, IX, R, B, D1, M+6, FIREREC+9, UNIQUE+15, UNIQFERR+7
ABORT	OUT+1
D1	M+5
DA	DA
DE	Y
DIE17	DIE17+8
DOWN	N+1, M+1
DR	OUT+3
E	ABORT
E1	Y+2
FILE	OUT+1, JMP, F+1, 1+1, DOWN, 0+1
FIREREC	E
IX	E1
JMP	OUT+2, OJ+2
K	E1
OJ	OUT+2
OUT	DIE17+4, DIE17+9
R	OUT+1
U	UP
UP	R, M+6
X	DIE17+5, DIE17+6, DIE17+7, OUT+7, OJ+1
Y	DE, PC
Z	X, UNIQFERR+5

Name	Field # of Occurrence
^(	OUT+2, OJ, Y+1*, Y+2
^("AB"	OUT+2
^("F"	TRIG+20*
^("N"	UNIQFERR+4*
^(0	M+1*, DR+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DE, UP+1, DA, M+2, DOWN+1*
>> %X	DR+1*
>> %Y	DR+1*
A0	OUT+7!
A1	OUT+7!
>> D	DIE17+6, DIE17+7, OUT+5, JMP, N+1, M+4, M+5*
>> D(	DR+2*
DA	FILE+1, UP+1, N+1, D1, M+5, DOWN+2, DR+1~, FIREREC+2~, FIREREC+7, FIREREC+14 , FIREREC+15, UNIQUE~, UNIQUE+3, UNIQUE+4, UNIQUE+10, UNIQUE+11, UNIQUE+19!*, IENS~, IENS+2
DA(	DA!, DOWN+1, UNIQUE+10*, IENS+2
DA(" "	IENS+2
DA(1	UP+1!, DOWN+2*
DB	E+1!
DB(	X, M+1, UNIQFERR+3, UNIQFERR+5
DC	F+1*, N+1, M+1, DOWN+2, E+1!
>> DD	M+1*, M+4
DDBK	OUT+3*, OUT+5, OUT+6, OUT+7!
>> DDS	UNIQFERR+1
DDW	DR+2*, DR+3!
DDW1	DR+2*, DR+3!
DE	DE*, E1+1!, E+1!
DE(	IX, K!
DE(" "	E1
DG	FILE+1*, Y+2, E1+1!
DG(	Y, DE, PC, E1
DGO	D1, E+1!
DH	E+1!
>> DI	OUT+6, DR+2
DIC	OUT+2, OUT+5, OUT+7!, OJ+1!, N+1, M+1, DOWN+2
DIC("PTRIX"	M+3!*, M+4!
DIC("S"	OUT+3, OUT+4, OJ+1*
DIC("W"	M+2*
DIC(0	DIE17+9, M+1
DICR	M+4!
>> DICRIENS	TRIG+16, TRIG+17, TRIG+20
DICRREC	E+1!
DIDASV	UNIQUE+1~, UNIQUE+3*, UNIQUE+19
DIE	OUT+5, OJ+1, FILE+1, DOWN+2, FIREREC+2~, FIREREC+6, TRIG+2~, TRIG+9, TRIG+16, TRIG+17
DIE("NO^"	DIE17+6, DIE17+7, OUT+3
DIE("PTRIX"	M+3
DIE17RXR	TRIG+2~, TRIG+17
>> DIEC(	UP
DIEFIRE	FIREREC+20!
DIEFXREF	UNIQFERR+4!
DIEL	UP+1, D1, DOWN+2, E+1!
DIEXEC	FIREREC+9~*
DIEZ	OUT+2, OUT+6, OUT+7, OJ, OJ+1, E+1!, TRIG+10
DIEZAB	OUT+2*, OUT+7, JMP!
>> DIEZAR(	FIREREC+9
DIEZRXR	FIREREC+1, FIREREC+20!
DIEZRXR(	FIREREC+4, FIREREC+5, FIREREC+6, FIREREC+8, TRIG+14, TRIG+16
>> DIEZTMP	E, FIREREC+1, FIREREC+12, FIREREC+13, FIREREC+15, FIREREC+18, FIREREC+20, UNIQFERR+4, TRIG+6, TRIG+17 , TRIG+20
DIEZXR	FIREREC+2~, FIREREC+8*, FIREREC+9
DIFLD	E1+1!, UNIQFERR+4
>> DIG	TRIG+6, TRIG+10, TRIG+20
>> DIH	TRIG+6, TRIG+9, TRIG+10, TRIG+14, TRIG+16, TRIG+17, TRIG+20
DIIENS	DA+1, N+1, M+5, DOWN+2, FIREREC+2~, FIREREC+5, FIREREC+6, FIREREC+7, FIREREC+13, FIREREC+14 , UNIQUE+1~, UNIQUE+9, UNIQUE+10, UNIQUE+11, UNIQFERR+4
DIIENSC	UNIQUE+1~, UNIQUE+4*, UNIQUE+11
DIKEY	FIREREC+2~, FIREREC+15, FIREREC+18
DIL	E+1!
DIMAXL	UNIQUE~, UNIQUE+12
DIMAXL(	UNIQUE+16
DINDX	UNIQUE+1~, UNIQUE+6, UNIQUE+7, UNIQUE+9
DINS	UNIQUE+1~, UNIQUE+6*, UNIQUE+7
>> DIOPER	FIREREC+15
DIP	E+1!
DISETX	UNIQUE~, UNIQUE+15
>> DIU	TRIG+3
DIUIR	UNIQUE~, UNIQUE+6, UNIQUE+7, UNIQUE+9
DIUNIQ	UNIQUE+1~, UNIQUE+6, UNIQUE+7, UNIQUE+12, UNIQUE+17*, UNIQUE+20
DIXSV	UNIQUE+1~, UNIQUE+3*, UNIQUE+19
DIXSV(	UNIQUE+16
>> DL	Z+1, OUT+1, OUT+2, UP, U, M+1, DOWN*, DOWN+1, DR+1
>> DLAYGO	M+4*
DLB	E+1!
>> DM	OUT+1*, ABORT
DNM	DIE17+5, OUT+2, OUT+7, JMP, OJ, OJ+1, R, UP, B, M+6 , DOWN, E+1!, UNIQFERR+7
DNM(	OUT+2, UP!, M+1, DOWN*
>> DO	M+1*
>> DO(2	M+1*, M+2
DOW	M+1, E+1!
DP	OUT+2, OUT+5, OUT+6, OJ+1, M+4, E+1!, DR+1, FIREREC+2~, FIREREC+4, FIREREC+5 , FIREREC+6, FIREREC+8, FIREREC+9, FIREREC+12, FIREREC+13, FIREREC+15, UNIQFERR+4
DQ	JMP, FILE+1!, Y, Y+2, DE, PC, IX, K, E1, E1+1* , R, UP*, X, B, M+6, DOWN, UNIQFERR+3, UNIQFERR+5
DR	OUT+6!, DR+1, DR+2
DR(	DR+1
DR(1	OUT+6*
DTOUT	DIE17+4, OUT+7!, UP!
DU	FILE+1, Y, Y+1, Y+2*, E+1!
DUZ	N+1
DV	Y+1, Y+2, DE, PC*, E+1!
DW	DIE17+5, OUT+1, Y, DE, PC, E+1!
F	DR+1~, DR+2*
I	UNIQUE+1~, UNIQUE+10, IENS+1~, IENS+2
IENS	IENS+1~, IENS+2*, IENS+3
>> L	UNIQUE+9*, UNIQUE+10
N	TRIG+11~, TRIG+15*
O	UNIQUE+1~, UNIQUE+16*, UNIQUE+17
OLD	TRIG+2~, TRIG+3*, TRIG+20
PC	TRIG+11~, TRIG+14*
RL	TRIG+11~, TRIG+12, TRIG+13, TRIG+14, TRIG+15
>> RLIST	TRIG+6, TRIG+7, TRIG+12
>> RLIST(	TRIG+15
U	DIE17+6, DIE17+9, OUT+2, JMP, PC, R, B, N+1, M+5, M+6 , DOWN+2, DR+2, TRIG+14
X	DIE17+4, DIE17+5, DIE17+6, DIE17+7, DIE17+8, DIE17+9, Z+1, OUT+1, OUT+2, OJ , F+1, DE, X, M+1, M+4, M+5, DR+2, UNIQUE~, UNIQUE+3, UNIQUE+19! , UNIQFERR+6*
X(	UNIQUE+16
XR	TRIG+2~, TRIG+11~, TRIG+14*
Y	OUT+5, OUT+7, JMP*, OJ+1, M+5, E+1!
Y(	ABORT*
>> ZTQUEUED	X, UNIQFERR+1

Customize PDF page

Package: VA Fileman

Routine: DIE17

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 405

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DE
DA
DOWN
FILE	;
DR	;
IENS(DA)	;Return IENS from DA array
0	;
JMP
1	;
PC
UNIQUE(X,DA,DIUIR,DISETX,DIMAXL)	;
E1
TRIG	;Save info for record level indexes on a triggered field.
OUT	;
IX
B
E
F	;
FIREREC	;Fire the record level xrefs
K
M	;
N	;
UNIQFERR	;The field is part of a key and is not unique
R
U
Y
X
Z	;
OJ
UP
ABORT
D1