Routine: DITR

Package	Total	Call Graph
VA Fileman	4	BLD^DIALOG IX2^DIK $$CREF^DILF ^DITR1

Package

Total

Call Graph

VA Fileman

BLD^DIALOG IX2^DIK $$CREF^DILF ^DITR1

Package	Total	Caller Graph
VA Fileman	5	DIFROMS4 DINIT DIPKINI1 DIT0 DIT3
PCC New Encounter Form	4	VEN8INI1 VENKINI1 VENLINI1 VENMINI1
IHS RPMS CHR System	2	BCH1INI1 BCH2INI1
Inpatient Medications	2	PSJAINI1 PSJVINI1
Auto Replenishment Ward Stock	1	PSGWINI1
Automated Information Collection System	1	IBDEINI1
Dietetics	1	FHINIT1
IHS Support HL7 Interfaces	1	BHLINIT1
IHS VA Support Files	1	AVAPINI1
Integrated Billing	1	IBINIT1
Local Area Programs	1	AZHNINI1
Problem List	1	GMPLINI1
Tucson	1	BZSMINI1
Utilities	1	AUP6INI1
Utility Tables	1	AUTINIT1

Package

Total

Caller Graph

VA Fileman

DIFROMS4 DINIT DIPKINI1 DIT0 DIT3

PCC New Encounter Form

VEN8INI1 VENKINI1 VENLINI1 VENMINI1

IHS RPMS CHR System

BCH1INI1 BCH2INI1

Inpatient Medications

PSJAINI1 PSJVINI1

Auto Replenishment Ward Stock

PSGWINI1

Automated Information Collection System

IBDEINI1

Dietetics

FHINIT1

IHS Support HL7 Interfaces

BHLINIT1

AVAPINI1

IBINIT1

AZHNINI1

GMPLINI1

BZSMINI1

AUP6INI1

AUTINIT1

Name	Field # of Occurrence
BLD^DIALOG	ERR+1
IX2^DIK	KILLIDX+4
$$CREF^DILF	KILLIDX+2
^DITR1	N+3, N+4, I+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(^(0),U,1) Line Location: F+1
Routine Call	DIALOG Line Location: ERR+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	N+3, NS, 1, 1+1
^UTILITY("DITR"	NS+3, 1

Name	Line Occurrences
1	N+2
D	N+6, 1+1
ERR	N+4, I+2
I	F+1, F+2, F+3
KFRV1	NS+8, NS+12
KILLIDX	N+5, I+3
LOOP	N+2, 1+2
N	N+2, N+3, N+4, NS, 1, 1+3, GO+1
NS	N+1, NS+1, NS+2, NS+3, NS+6, NS+12, P
SFRV1	N+1, N+6
SFRVL	NS+10, P

Name	Field # of Occurrence
^(	N+1, N+2, NS+1, NS+3, NS+5, NS+9, P, 1, F+3, F+4
^(0	N+2, 1+2*, F+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NS+2, NS+9, KILLIDX+1~, KILLIDX+2*
A	N+1, N+4, NS, NS+1, NS+2, NS+4, F+1, I+2, KILLIDX+1~, KILLIDX+2
B	NS+3, NS+4, NS+6, NS+7, NS+8, NS+9, NS+12, P, 1, 1+1 , KFRV1, KILLIDX+1~, KILLIDX+2*
D0	F+2, I+1, KILLIDX+3~
DA	I+1, KILLIDX+1~
DA(	KILLIDX+2*
DDF	KILLIDX+3~
DDF(	N+2, NS, NS+1, NS+3, 1, 1+1*
DDT	KILLIDX+3~
DDT(	N+3, 1+2*, ERR
DFL	LOOP, N, N+1, N+2, NS, NS+1, NS+3, NS+4, 1, 1+1 , SFRV1, SFRVL+1, D, D+1, I+1, GO+1, KILLIDX+2, KILLIDX+3~, ERR
>> DFN(	LOOP, N+1, N+2, NS, NS+4, 1, SFRV1, SFRVL+1, D+1*
>> DFN(1	GO+1*
DFR	KILLIDX+3~
DFR(	N, SFRV1, D+1*
DFR(1	SFRV1
>> DIFRDKP	NS+1, 1+2
>> DIFRFILE	NS+1, 1+2, SFRVL, SFRVL+1, KFRV1
>> DIFRFRV	N+1, N+6, NS+8, NS+10, NS+12, P
>> DIFRFRV1	SFRV1*, SFRVL, SFRVL+1, KFRV1
>> DIFRND0	I+3*
>> DIFRSA	N+4, N+5, NS+1, 1+2, SFRVL, SFRVL+1, KFRV1, I+2, I+3
>> DIFRX	1+2*
DIK	F+1, KILLIDX+1~*, KILLIDX+2
DIK(0	KILLIDX+1*
DINUM	KILLIDX+3~
DIPAR	ERR~, ERR+1
DIPAR(	ERR*
DIPAR("FILE"	ERR*
DIPAR("IEN"	ERR*
>> DITF	F+1, F+2, F+3
DITRCNT	DITR+3~
>> DKP	N+5, NS+8, NS+12, I+3
>> DSC(	N+2
DTL	LOOP, N+3, N+5, NS+3, NS+4, NS+5, NS+9, P, 1+2, SFRVL+1 , D, I+1, I+3, GO+1, KILLIDX+1, KILLIDX+3~
DTN	KILLIDX+3~
DTN(	NS+3, NS+4, NS+5, NS+9, P
DTO	N+2, NS+3, 1, 1+1, F+1, KILLIDX+3~
DTO(	N+5, NS+5, 1+2*, SFRVL+1, I+3, KILLIDX+1
I	KILLIDX+3~
U	N+3, NS+1, NS+3, NS+12, P, 1+1, 1+2, F+1, F+3
>> V	NS+9*
W	NS+1, NS+3, NS+7, NS+8, NS+9, KILLIDX+3~
X	N+2, NS+5, NS+8, NS+9, NS+12, 1+1, 1+2, D+1, F+3*, F+4 , KILLIDX+3~, ERR
Y	NS+1, NS+2, NS+9, P, 1+1*, 1+2, I+3, KILLIDX+1, KILLIDX+3~, ERR
Z	N+1, N+2, NS+1, NS+2, 1, 1+1, F+2, F+3, F+4, KILLIDX+3~

Customize PDF page

Package: VA Fileman

Routine: DITR

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 24

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SFRV1
ERR
F	;
I	;
N
1
P
KILLIDX	; Kill the old index for single entry (overwrite mode only).
GO	;
SFRVL
NS
KFRV1
LOOP
D