Routine: DIED

Package	Total	Call Graph
VA Fileman	12	(,IX)^DIC MIX^DIC1 (,BR,E)^DIE0 (B,E,M,N,QY)^DIE1 ^DIE2 ^DIE3 ^DIEQ ^DIK LOADFLD^DIKC1 $$KEYCHK^DIKK2 ^DIR RW^DIR2

Package

Total

Call Graph

(,IX)^DIC MIX^DIC1 (,BR,E)^DIE0 (B,E,M,N,QY)^DIE1 ^DIE2 ^DIE3 ^DIEQ ^DIK
LOADFLD^DIKC1 $$KEYCHK^DIKK2 ^DIR RW^DIR2

Caller Graph

Caller Graph Total: 275

Package	Total	Caller Graph
Registration	88	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 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
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
Scheduling	19	SDAMXLG SDAMXOE SDBT SDBT1 SDBT10 SDBT2 SDBT3 SDBT4 SDBT5 SDBT6 SDBT7 SDBT8 SDBT9 SDM1T SDM1T11 SDXA SDXA1 SDXACSE SDXACSE1
Automated Information Collection System	11	IBDX96 IBDX97 IBDXI2 IBDXI21 IBDXI22 IBDXI23 IBDXI24 IBDXI5 IBDXI51 IBDXI93 IBDXI931
IHS Changes To ADT	9	ADGT04 ADGT041 ADGT044 ADGT06 ADGT061 ADGT062 ADGT063 ADGT16 ADGT162
VA Fileman	9	DICATT0 DICATT2 DICATT6 DIE DIE0 DIE2 DIE3 DIE9 DIEQ
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 Changes To Pharmacy	6	APSPT04 APSPT05 APSPT09 APSPT091 APSPT092 APSPT093
Pharmacy Point of Sale	4	ABSPIN1 ABSPIN11 ABSPIN12 ABSPIN13
Medicine	2	MCOPRG MCOPRG1
Nursing Service	2	NURAPA NURAPA1
Patient Care Component	2	APCDT60 APCDT601
IHS Generic Interface System	1	INHUT5
Local Area Programs	1	AZAXTT

Entry Points

External References

Name	Field # of Occurrence
^DIC	DIC+5
IX^DIC	DIC+8
MIX^DIC1	DIC+7
^DIE0	RD
BR^DIE0	B+1
E^DIE0	S+2, F+2
B^DIE1	X+1, UNIQFERR+5, NKEY+2
E^DIE1	B+1
M^DIE1	T, F+3
N^DIE1	S+1, F+2
QY^DIE1	RE+1, S
^DIE2	RD
^DIE3	T
^DIEQ	RD
^DIK	SCRL+19
LOADFLD^DIKC1	LOADXR+8
$$KEYCHK^DIKK2	KEYCHK+6
^DIR	SET+2
RW^DIR2	O+1, RW

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: W Line Location: O+0
Function Call: WRITE	Prompt: Y Line Location: O+0
Function Call: WRITE	Prompt: !?9 Condition for execution: $X>48 Line Location: O+0
Function Call: WRITE	Prompt: " (No Editing)" Line Location: O+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: TR+0
Function Call: WRITE	Prompt: $C(7) Line Location: TR+0
Function Call: WRITE	Prompt: !?DL+DL-2,$P(DQ(DQ),U,1)_": " Line Location: W+2
Function Call: WRITE	Prompt: " "_X Line Location: RD+1
Function Call: WRITE	Prompt: $C(7)_"??" Line Location: UNIQFERR+2
Function Call: WRITE	Prompt: $C(7)_"?? Required key field" Line Location: NKEY+1
Routine Call	DIC Line Location: DIC+5
Routine Call	DIR Line Location: SET+2
Routine Call	DIC Line Location: DIC+8

Name	Line Occurrences (* Changed, ! Killed)
^DD(	T, PR+1, R, R+1
^DD("DD"	R+2, Y
^DD("KEY" - [#.31]	N
^DISV(	RD+1, Z*

Label References

Name	Line Occurrences
$$KEYCHK	Z
@(	AST+4, AST+5, AST+6, SCRNL+7, SCRL+5
A	RE+1, N, RD, Z, PR, S+1, F+2
AST	P
B	DQ+1
DIC	NOSCR+4, SCRNL+12, SCRL+14
EXIT	SCRNL+5, SCRNL+9, SCRL+7
F	PR
GETXRL	NOSCR+2, SCRNL+4, SCRL+4
LOADXR	Z
N	PR
NKEY	N
NOSCR	P
O	PR, S
P	T
PARSE	SCRNL+8, SCRL+6
PR	RE+1, S+2
R	R, R+1
RD	PR, S+2, F+3
S	PR+1, R, R+1
SCRL	AST+3
SCRNL	AST+2
TR	RE+1
UNIQFERR	Z
V	T, P+1, AST+4
W	O, RE+1
X	N, SET+3, P, PR, F+3, AST+5
Y	PR
Z	P+1, F+3, AST+6

Name	Field # of Occurrence
^(	RD+1, R, R+1
^("F"	LOADXR+13*
^("N"	UNIQFERR+4*
^(0	R, R+1
^(12.1	T
^(2	PR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	T, SET+2, R+2
CALL	PARSE+1~, PARSE+2*, PARSE+3, PARSE+4
D	SCRL+9!, SCRL+12, DIC~, DIC+1, DIC+4, DIC+6
DA	KEYCHK+6, SCRL+18~, SCRL+19*
>> DB(	RD, T, SET, SET+1, P, F*, UNIQFERR+3
>> DC	N, S+1, F+2
DDER	T, SET+2, SET+3!
>> DDS	X, UNIQFERR+1, NKEY+1
>> DE(	O+2, RE+1, PR, PR+1, S+1, F+2, LOADXR+5, LOADXR+14, KEYCHK+4
DG	RE+1!, PR+1, R, R+1*, R+2, S!
DG(	Z*
>> DH	F, F+1, F+3
>> DIC	P*, SCRL+17, SCRL+19
>> DIC("PTRIX"	EXIT+1!, DIC+9!, GETXRL+1!, GETXRL+2*
>> DIC("S"	T, Z!, SCRL+9, SCRL+10
>> DIC(0	P, DIC+1, DIC+2*
DICALL	SCRL+1~
>> DICATTZ	S+1
DICONT	AST+2, AST+3, AST+4!, AST+5!, AST+6!, SCRNL~, SCRNL+2!, SCRNL+14, SCRL~, SCRL+2! , SCRL+9, SCRL+17, SCRL+22, EXIT+2*
>> DICRIENS	LOADXR+4
>> DICRREC	LOADXR+4, LOADXR+14
DICSS	SCRL+1~, SCRL+10*, SCRL+17
>> DIE	P, LOADXR+10
>> DIE("PTRIX"	GETXRL+1, GETXRL+2, GETXRL+4
>> DIE("W"	W+1
DIEFXREF	KEYCHK+3, UNIQFERR+4!
DIEKCHK	KEYCHK+1~, KEYCHK+6*, KEYCHK+8
DIER	V*!
>> DIETMP	LOADXR+1, LOADXR+8, LOADXR+10, LOADXR+13, LOADXR+14, LOADXR+15, KEYCHK+2, KEYCHK+5, KEYCHK+7, UNIQFERR+4
DIFLD	B, N, T, PR+1, LOADXR+4~, LOADXR+8, LOADXR+13, LOADXR+14, LOADXR+15, KEYCHK+5 , KEYCHK+6, KEYCHK+7, UNIQFERR+4, NOSCR+2, SCRNL+4, SCRL+4
DIFLD(	B
DIFRST	SCRNL+1~, SCRNL+8, SCRNL+9, SCRNL+11, SCRL+1~, SCRL+6, SCRL+7, SCRL+9
>> DIG	LOADXR+4
>> DIH	LOADXR+4
DIIENS	LOADXR+4~*, LOADXR+10, LOADXR+13, LOADXR+14, LOADXR+15, KEYCHK+5, KEYCHK+6, KEYCHK+7, UNIQFERR+4
>> DIK	SCRL+19*
DILAST	SCRNL+1~, SCRNL+8, SCRNL+13, SCRL+1~, SCRL+6, SCRL+21
>> DIP	RE+1*, RD+1, Z
DIQUIET	SET+1~*
DIR	SET~
DIR("V"	SET*
DIR(0	SET*
>> DIU	LOADXR+4
DIXRL	NOSCR+1~, NOSCR+2, NOSCR+3, NOSCR+4, SCRNL+1~, SCRNL+4, SCRNL+5, SCRNL+12, SCRL+1~, SCRL+4 , SCRL+9, SCRL+12, SCRL+13*, SCRL+14
>> DL	W+2
DLAYGO	P*, Z!
>> DNM	AST+4, AST+5, AST+6, SCRNL+7, SCRL+5
DP	N, T, PR+1, LOADXR+4~*, LOADXR+8, LOADXR+10, LOADXR+13, LOADXR+14, LOADXR+15, KEYCHK+5 , KEYCHK+6, KEYCHK+7, UNIQFERR+4, NOSCR+2, SCRNL+4, SCRL+4
DP(0	N
DQ	O+2, TR, W, W+2, DQ+1, A, B, B+1, RE+1!, RD , T, SET, SET+1, P, P+2, V, Z, PR, PR+1, S! , S+1, S+2, F, F+2, LOADXR+5, LOADXR+14, KEYCHK+4, UNIQFERR+3, SCRNL+8, SCRL+6
DQ(	TR, W, W+2, A!, B+1, RE+1, P+2, V, Z, S+1 , S+2, F*, F+2, SCRNL+8, SCRL+6
DQ(0	B+1
DTIME	TR, DQ+1*
>> DTOUT	TR*, RE+1, S
DU	RE+1*, SET, P, PR+1, SCRL+18~
DUZ	RD+1, Z
DUZ(0	TR, W, RE+1
DV	O+1, O+2, RE+1*, N, RD+1, T, P, P+1, Z, PR , PR+1, S+1, F+2, F+3, Y, AST+1, NOSCR+2, NOSCR+3, SCRNL+4, SCRL+4 , SCRL+18~
FIL	GETXRL~, GETXRL+4
FLD	GETXRL~, GETXRL+4
FLIST	LOADXR+2~, LOADXR+8, LOADXR+9
FRST	PARSE~, PARSE+3!, PARSE+4, PARSE+5, PARSE+6
I	PARSE+1~, PARSE+5, PARSE+6*
IT	PARSE~, PARSE+2, PARSE+4
LAST	PARSE~, PARSE+3!, PARSE+4*
LIST	GETXRL~, GETXRL+1!, GETXRL+4*, GETXRL+5!
OLD	LOADXR+2~, LOADXR+4, LOADXR+5, LOADXR+13
PFIL	GETXRL~, GETXRL+4
RLIST	LOADXR+2~, LOADXR+8, LOADXR+9, LOADXR+10
U	TR, W, W+2, RE+1, N, RD, SET, P, P+2, V , Z, PR, R, R+1, S+1, F+2, NOSCR+3, SCRNL+8, SCRL+6, SCRL+13 , SCRL+17, DIC+1, DIC+4, DIC+6
X	O+2, TR, N, RD, RD+1, T, SET+2, P, P+1!, P+2 , Z, PR, PR+1, R, R+1, R+2, S+1, S+2, F, F+1* , F+2, F+3, Y, KEYCHK+5, SCRNL+12, SCRNL+14, SCRL+15, SCRL+22
>> Y	O, O+1, O+2, SET+2, P, PR, PR+1, R, R+1, R+2* , F, Y, SCRNL+12, SCRNL+13, SCRL+15, SCRL+17, SCRL+19, SCRL+21
>> Y(0	SET+2
YS	V!
>> ZTQUEUED	X, UNIQFERR+1, NKEY+1

Name	Comments	DBIA/ICR reference
SCRNL(DICONT)	;Screen, No LAYGO allowed
DIC(D)	;Make the appropriate ^DIC call based on D
DQ	;
PR
SET
AST	;G V:DV["'",AST^DIE9
TR
RD
RE	;
NOSCR	;No screen
KEYCHK()	;If this is a key field, return 0 if not unique.
A
B
F
O
N
Q
P
S
R
T
W
V
Y
X
Z
UNIQFERR	;The field is part of a key and is not unique
LOADXR	;Load all index file xrefs for a field
SCRL(DICONT)	;Screen, LAYGO allowed
NKEY	;No value was assigned to this key field
RW
PARSE(IT,FRST,LAST)	;Parse input transform
EXIT	;Cleanup and set flag to continue by executing the input transform
GETXRL(FIL,FLD,PFIL,LIST)	;Get list of indexes from DIE("PTRIX")

Customize PDF page

Package: VA Fileman

Routine: DIED

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 275

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: