Routine: DIED

Package	Total	Call Graph
VA FileMan	16	$$EZBLD^DIALOG ($$LABEL,$$SETIN)^DIALOGZ (,IX)^DIC MIX^DIC1 (,BR,E,NO)^DIE0 (B,E,M,N,QY)^DIE1 ^DIE2 ^DIE3 ^DIEQ ($$OUTPUT,$$VALEXT,$$VALEXTS)^DIETLIBF ^DIK LOADFLD^DIKC1 $$KEYCHK^DIKK2 $$SET^DIQ ^DIR RW^DIR2

Package	Total	Caller Graph
Integrated Billing	98	IBXEX IBXEXS IBXPAR IBXPAR1 IBXS1 IBXS11 IBXS12 IBXS2 IBXS21 IBXS3 IBXS36 IBXS39 IBXS4 IBXS41 IBXS42 IBXS43 IBXS44 IBXS5 IBXS51 IBXS52 IBXS53 IBXS54 IBXS6 IBXS63 IBXS64 IBXS7 IBXS71 IBXS74 IBXS77 IBXS8 IBXS81 IBXS9 IBXS91 IBXSA IBXSA2 IBXSA21 IBXSA22 IBXSA25 IBXSA26 IBXSA27 IBXSA28 IBXSAH IBXSAH1 IBXSAH10 IBXSAH2 IBXSAH5 IBXSAH6 IBXSAH9 IBXSC1 IBXSC11 IBXSC114 IBXSC117 IBXSC12 IBXSC121 IBXSC17 IBXSC3 IBXSC31 IBXSC34 IBXSC35 IBXSC36 IBXSC39 IBXSC4 IBXSC41 IBXSC42 IBXSC43 IBXSC44 IBXSC5 IBXSC51 IBXSC52 IBXSC53 IBXSC54 IBXSC6 IBXSC61 IBXSC67 IBXSC68 IBXSC7 IBXSC71 IBXSC712 IBXSC74 IBXSC78 IBXSC79 IBXSC8 IBXSC82 IBXSC821 IBXSC822 IBXSC823 IBXSC824 IBXSC829 IBXSC8H IBXSC8H1 IBXSC8H2 IBXSC8H3 IBXSC8H4 IBXSC8H5 IBXST IBXST1 IBXST5 IBXST6
Registration	70	DGMTXC DGMTXC2 DGMTXD DGMTXE DGMTXI DGMTXM DGMTXT DGPMX1 DGPMX2 DGPMX22 DGPMX3 DGPMX4 DGPMX5 DGPMX6 DGPMXA DGPTX1 DGPTX11 DGPTX12 DGPTX13 DGPTX4 DGPTX41 DGPTX5 DGPTX51 DGPTX52 DGPTX7 DGPTX73 DGPTX74 DGPTX8 DGPTX81 DGPTXA DGPTXC DGPTXC1 DGPTXM DGRPTX DGRPTX27 DGRPTX37 DGRPX7 DGRPX75 DGRPX76 DGRPX77 DGRPXC DGRPXI DGRPXR DGSATX DGX4 DGX41 DGX43 DGX44 DGX5 DGX51 DGX54 DGX55 DGX57 DGX58 DGX5F DGX5F1 DGX5F3 DGX5FD DGX5FD1 DGX5FD3 DGX5FD6 DGX5FD8 DGX5FD9 DGX6 DGX61 DGX63 DGX7 DGX73 DGX74 DGX75
IFCAP	20	PRCHT2 PRCHT21 PRCST1 PRCST11 PRCST12 PRCST13 PRCST17 PRCST18 PRCST19 PRCST2 PRCST21 PRCST22 PRCST25 PRCST26 PRCST27 PRCST4 PRCST41 PRCST42 PRCST43 PRCST44
Radiology Nuclear Medicine	17	RACTRG RACTRG1 RACTRG2 RACTRG3 RACTRG4 RACTRG5 RACTRG6 RACTRG7 RACTRG8 RACTVR RACTVR1 RACTVR4 RACTVR5 RACTWR RACTWR1 RACTWR2 RACTWR4
Quasar	10	ACKQTE ACKQTE1 ACKQTE10 ACKQTE11 ACKQTE2 ACKQTE6 ACKQTE7 ACKQTE8 ACKQTE9 ACKQTM
VA FileMan	9	DICATT0 DICATT2 DICATT6 DIE DIE0 DIE2 DIE3 DIE9 DIEQ
Scheduling	8	SDBT SDBT1 SDBT2 SDBT3 SDBT4 SDM1T SDM1T10 SDM1T5
Incomplete Records Tracking	7	DGJXA DGJXA1 DGJXA2 DGJXE DGJXE1 DGJXE4 DGJXE5
Accounts Receivable	6	PRCATA PRCATA1 PRCATE PRCATE1 PRCATE2 PRCATSE
HINQ	6	DVBHCE DVBHCE18 DVBHCE19 DVBHCE20 DVBHCE5 DVBHCE6
Fee Basis	5	FBCTAU FBCTAU1 FBCTAU2 FBCTV FBCTV3
Graphics	5	GRPX7 GRPX71 GRPX710 GRPX78 GRPX79
Text Integration Utility	4	TIUEDS TIUEDS5 TIUEPN TIUEPN10
Albany OIFO	3	A1CKC A1CKC2 A1CKC3
Event Capture	3	ECMXP ECMXP1 ECMXPC
Automated Medical Information Exchange	1	DVBAXA

Entry Points

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

External References

Name	Field # of Occurrence
$$EZBLD^DIALOG	O+2, UNIQFERR+3, NKEY+1
$$LABEL^DIALOGZ	O+2
$$SETIN^DIALOGZ	SET+3
^DIC	DIC+5
IX^DIC	DIC+8
MIX^DIC1	DIC+7
^DIE0	RD
BR^DIE0	B+2
E^DIE0	S+2, F+2
NO^DIE0	RD
B^DIE1	X+1, UNIQFERR+5, NKEY+2
E^DIE1	B+2
M^DIE1	T, F+3
N^DIE1	S+1, F+2
QY^DIE1	RE+1, S
^DIE2	RD
^DIE3	T
^DIEQ	RD+1
$$OUTPUT^DIETLIBF	PR+2
$$VALEXT^DIETLIBF	T+2
$$VALEXTS^DIETLIBF	T+2
^DIK	SCRL+19
LOADFLD^DIKC1	LOADXR+8
$$KEYCHK^DIKK2	KEYCHK+6
$$SET^DIQ	R+3
^DIR	READSET+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: !?9 Condition for execution: $L(X)+$X>78 Line Location: O+2
Function Call: WRITE	Prompt: X Line Location: O+2
Function Call: READ	Variable: X Timeout: DTIME 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+2
Function Call: WRITE	Prompt: $C(7)_"??" Line Location: UNIQFERR+2
Function Call: WRITE	Prompt: $C(7)_"?? ",$$EZBLD^DIALOG(3092.2) Line Location: NKEY+1
Routine Call	DIALOG Line Location: O+2 UNIQFERR+3 NKEY+1
Routine Call	DIC Line Location: DIC+5
Routine Call	DIC Line Location: DIC+8
Routine Call	DIR Line Location: READSET+2

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$KEYCHK	Z
@(	AST+4, AST+5, AST+6, SCRNL+7, SCRL+5
A	RE+1, N, RD+1, Z, PR, S+1, F+2
AST	P
B	DQ+1, RD
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
PARSE	SCRNL+8, SCRL+6
PR	RE+1, S+2
R	R, R+1
RD	PR, S+2, F+3
READSET	SET+7
S	PR+1, PR+2, R, R+1
SCRL	AST+3
SCRNL	AST+2
SET	T+3
TR	RE+1
UNIQ	T+1
UNIQFERR	Z
V	T+3, P+1, AST+4
W	O, RE+1
X	N, T, T+3, P, PR, F+3, AST+5
Y	PR
Z	P+1, F+3, AST+6

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	UNIQ!, R+3, READSET+1~, READSET+3, READSET+4, READSET+5
%(	UNIQ!
%(0	UNIQ
CALL	PARSE+1~, PARSE+2*, PARSE+3, PARSE+4
D	SCRL+9!, SCRL+12, DIC~, DIC+1, DIC+4, DIC+6
DA	UNIQ, KEYCHK+6, SCRL+18~, SCRL+19*
>> DB(	RD+1, T+2, P, F*, SET+2, UNIQFERR+3
>> DC	N, S+1, F+2
DDER	T+3!, SET+7*, READSET+1~, READSET+2
>> 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, PR+2, R, R+1*, R+2, R+3, 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"	Z!, SET+7, 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, UNIQ, 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	O+2, B+1, N, T+2, UNIQ, PR+1, PR+2, R+3, SET+3, SET+6 , READSET+3, 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+1
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*
DILANG	SET+1~, SET+3*, SET+4, SET+5!, READSET+3
DILAST	SCRNL+1~, SCRNL+8, SCRNL+13, SCRL+1~, SCRL+6, SCRL+21
>> DIP	RE+1*, RD+2, Z
DIPA	T+2!, PR+2!
DIQUIET	SET+2~*, READSET+2, READSET+5
DIR	READSET+1~
DIR("S"	READSET+2*
DIR("V"	READSET+2*
DIR(0	READSET+2*
DISCR	READSET~, READSET+2
>> 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	O+2, N, T+2, PR+1, PR+2, R+3, SET+3, SET+6, READSET+3, 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+1, B+2, RE+1!, RD+1 , T+2, P, P+2, V, UNIQ, Z, PR, PR+1, S!, S+1 , S+2, F, F+2, SET+2, LOADXR+5, LOADXR+14, KEYCHK+4, UNIQFERR+3, SCRNL+8, SCRL+6
DQ(	TR, W, W+2, A!, B+2, RE+1, P+2, V, UNIQ, Z , S+1, S+2, F*, F+2, SCRNL+8, SCRL+6
DQ(0	B+2
DTIME	TR, DQ+1*
>> DTOUT	TR*, RE+1, S
DU	RE+1, P, PR+1, SET+4, SET+7, READSET~, READSET+2, SCRL+18~
DUZ	RD+2, Z
DUZ("LANG"	R+3, SET+3
DUZ(0	TR, W, RE+1
DV	O+1, O+2, RE+1*, N, RD, RD+2, T, T+1, T+3, 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, P, P+2, V, UNIQ , Z, PR, R, R+1, S+1, F+2, READSET+2, READSET+3, NOSCR+3, SCRNL+8 , SCRL+6, SCRL+13, SCRL+17, DIC+1, DIC+4, DIC+6
X	O+2!, TR, N, RD, RD+1, RD+2, T, P, P+1!, P+2* , UNIQ!, Z, PR, PR+1, R, R+1, R+3, S+1, S+2, F , F+1, F+2, F+3, Y, SET+7, READSET~, READSET+2!, READSET+4, KEYCHK+5, SCRNL+12* , SCRNL+14, SCRL+15*, SCRL+22
X("FIELD"	O+2*
X("FILE"	O+2*
Y	O, O+1, O+2, P, PR, PR+1, R, R+1, R+3, F , Y, READSET+1~, READSET+3, READSET+4, SCRNL+12, SCRNL+13, SCRL+15, SCRL+17, SCRL+19, SCRL+21
Y(0	READSET+4
YS	V!
>> ZTQUEUED	X, UNIQFERR+1, NKEY+1

Customize PDF page

Package: VA FileMan

Routine: DIED

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 272

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: