Routine: DIKZ

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
VA Fileman	13	($$EZBLD,BLD,MSG)^DIALOG ^DIC WAIT^DICD DT^DICRW (CALLOUT,INIZE)^DIEFU DELETROU^DIEZ OS^DII LOADALL^DIKC1 ^DIKZ0 ^DIKZ1 (RNM,SIZ)^DIPZ0 ^DIR A^DIU21

Package	Total	Caller Graph
VA Fileman	12	DI DD COMPILE DICD DICE0 DIFROMS2 DIKCUTL3 DIKD DIKZ0 DIKZ1 DIPKINIT DIPOS140 DIU20 DIU21
PCC New Encounter Form	4	VEN8INIT VENKINIT VENLINIT VENMINIT
Automated Information Collection System	2	IBDEINIT IBDFUTI
IHS RPMS CHR System	2	BCH1INIT BCH2INIT
Inpatient Medications	2	PSJAINIT PSJVINIT
Integrated Billing	2	IBEFUTL1 IBINIT
Registration	2	DG687PRE DGUTL1
Auto Replenishment Ward Stock	1	PSGWINIT
Commitment Register	1	ACRF14PS
Dietetics	1	FHINIT
IHS Support HL7 Interfaces	1	BHLINIT
IHS VA Support Files	1	AVAPINIT
IHS VA Utilities	1	XBINIT
Local Area Programs	1	AZHNINIT
Pharmacy Data Management	1	PSSPOST
Problem List	1	GMPLINIT
Tucson	1	BZSMINIT
Utilities	1	AUP6INIT
Utility Tables	1	AUTINIT

Package

Total

Caller Graph

VA Fileman

DI DD COMPILE DICD DICE0 DIFROMS2 DIKCUTL3 DIKD DIKZ0 DIKZ1
DIPKINIT DIPOS140 DIU20 DIU21

PCC New Encounter Form

VEN8INIT VENKINIT VENLINIT VENMINIT

Automated Information Collection System

IBDEINIT IBDFUTI

IHS RPMS CHR System

BCH1INIT BCH2INIT

Inpatient Medications

PSJAINIT PSJVINIT

Integrated Billing

IBEFUTL1 IBINIT

Registration

DG687PRE DGUTL1

Auto Replenishment Ward Stock

PSGWINIT

Commitment Register

ACRF14PS

Dietetics

FHINIT

IHS Support HL7 Interfaces

BHLINIT

IHS VA Support Files

AVAPINIT

IHS VA Utilities

XBINIT

Local Area Programs

AZHNINIT

Pharmacy Data Management

PSSPOST

GMPLINIT

BZSMINIT

AUP6INIT

AUTINIT

Entry Points

Name	Comments	DBIA/ICR reference
Q1
RTE	;
EN	;	ICR #10025 Status: Active Usage: Supported
SV	; transfer the accumulated code in ^UTILITY($J,#) to ^UTILITY($J,0,#) ; (the routine buffer) and call SAVE to flush the buffer into a routine ; whenever it's full. Flush the buffer one more time when done.
Q
EN1
EN2(Y,DIKZFLGS,X,DMAX,DIKZRLA,DIKZZMSG)	;Silent or Talking with parameter passing	ICR #1056 Status: Active Usage: Private
Q2
FILE
NEWR	;
SAVE	; save the accumulated code in ^UTILITY($J,0,#) as a routine
EN2E

External References

Name	Field # of Occurrence
$$EZBLD^DIALOG	DIKZ+3, EN1+1, FILE+2, EN+1, NEWR+2
BLD^DIALOG	EN+1, SAVE+7, EN2+20, EN2+21, EN2+22, EN2+23, EN2+24, EN2+31
MSG^DIALOG	EN2E
^DIC	FILE
WAIT^DICD	EN+5
DT^DICRW	EN+5
CALLOUT^DIEFU	EN2E+1
INIZE^DIEFU	EN2+19
DELETROU^DIEZ	EN+5
OS^DII	EN1
LOADALL^DIKC1	EN+11
^DIKZ0	EN+17, EN+23
^DIKZ1	EN+26
RNM^DIPZ0	FILE+1
SIZ^DIPZ0	EN1+3
^DIR	FILE+2
A^DIU21	EN+5, Q

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$$EZBLD^DIALOG(101) Line Location: DIKZ+3
Function Call: WRITE	Prompt: $C(7),$$EZBLD^DIALOG(820) Line Location: EN1+1
Routine Call	DIALOG Line Location: EN+1 SAVE+7 EN2+20 EN2+21 EN2+22 EN2+23 EN2+24 EN2+31
Routine Call	DIALOG Line Location: DIKZ+3 EN1+1 FILE+2 EN+1 NEWR+2
Routine Call	DIC Line Location: FILE
Routine Call	DIALOG Line Location: EN2E
Routine Call	DIR Line Location: FILE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	EN+29, SAVE+8, RTE+4, EN2+21
^DD("OS" - [#.7]	EN1+1, SAVE+7
^DD("ROU"	EN2+26
^DIC - [#1]	EN+3
^TMP("DIKC"	EN+10!, EN+11, Q1+2!
^UTILITY("DIK"	EN+2!
^UTILITY($J	EN+2!, EN+15, EN+21, Q1+1!, SV+4, SAVE+2, SAVE+3, SAVE+4, SAVE+5, SAVE+6* , NEWR+1, NEWR+2!, NEWR+3*

Name	Line Occurrences
EN	EN2+29
EN2E	EN2+20, EN2+21, EN2+22, EN2+23, EN2+24, EN2+30
NEWR	EN+15, EN+21, SAVE+8
Q	EN+4, EN+17, EN+23
Q1	EN1+3, FILE, FILE+1, FILE+2
Q2	EN+15, EN+21, EN+26
RTE	EN+17, EN+23
SAVE	SV+5, SV+6
SV	RTE+28

Name	Field # of Occurrence
^(	SV+4!, SAVE+3!
^("DIK"	Q1+1!
^("GL"	EN+3
^(2	NEWR+3*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q1!, SV+4, SAVE+1, SAVE+2, SAVE+3, NEWR+1
%H	Q1!
%I	EN2+14~
%X	EN1~, EN2+13~
%Y	Q1!
A	EN+14, EN+20, Q1!, RTE+28*
DH	EN+3, EN+5, Q1!, SAVE+8, NEWR+3, RTE+28
DH(1	Q, RTE+28
DIC	FILE!*, Q1!, EN2+14~
DIC(0	FILE*
DICS	EN2+14~
DIFILENO	EN+2~, EN+3*, EN+11, EN+29
DIFM	EN2+17~*
DIK	EN+2~, EN+14, EN+20, Q1+1!, EN2+14~
DIK(	RTE+3, RTE+5, RTE+23, RTE+26*
DIK0	Q1+1!
DIK1	Q1+1!
DIK2	EN+3*, EN+4, EN+14, EN+20, Q1+1!
DIK4	Q1!
DIK6	Q1+1!
DIK8	Q1!
DIKA	EN+14, EN+20, Q1+1!
DIKC	Q1!
DIKCT	Q1+1!, SAVE+4
DIKFIL	RTE+1~, RTE+3, RTE+4, RTE+5, RTE+9, RTE+11, RTE+12, RTE+13, RTE+14, RTE+18* , RTE+19, RTE+20, RTE+21, RTE+22, RTE+23, RTE+27!
DIKGO	EN+16, EN+22, Q1!
DIKJ	EN1~, EN2+13~
DIKL2	Q2!, SAVE+8!
DIKLIST	RTE+1~, RTE+8*, RTE+26, RTE+27!
DIKLIST(	RTE+11, RTE+12, RTE+13, RTE+14, RTE+18, RTE+19, RTE+20, RTE+21, RTE+22, RTE+23
DIKLW	Q2!, SAVE+4, SAVE+5, SAVE+6
DIKMF	EN+9~, EN+11
DIKP	RTE+1~, RTE+10, RTE+11, RTE+12, RTE+13, RTE+21*, RTE+22, RTE+23, RTE+27!
DIKQ	Q1!
DIKR	Q1+1!, SV+4, SAVE+1, SAVE+2, SAVE+3, SAVE+4, SAVE+5, SAVE+6, NEWR+2*
DIKRT	Q2!, SAVE+6, SAVE+8, NEWR+1, RTE+28*
DIKSUB	RTE+1~, RTE+4, RTE+5, RTE+8, RTE+13, RTE+14, RTE+15!, RTE+22*, RTE+23
DIKSUB(	RTE+5*, RTE+9, RTE+14
DIKVR	EN+14, EN+20, Q1+1!, SAVE+4
DIKZDH	NEWR+1*, NEWR+3, NEWR+4!
DIKZFLGS	EN2~, EN2+15, EN2+18~
DIKZMORE	SV+5~*, SAVE+8
DIKZOVFL	Q1+1!
DIKZQ	EN+6, EN+17, EN+23, EN+29, Q, Q1+1!, SAVE+8, NEWR+2
DIKZRIEN	EN2+13~, EN2+25*, EN2+31
DIKZRLA	SAVE+7, NEWR+2, EN2~, EN2+18~, EN2+25, EN2+26, EN2+28
DIKZRLAF	SAVE+7, NEWR+2, EN2+13~, EN2+27*, EN2+30, EN2+31
DIKZRLAZ	EN2+13~
DIKZS	EN+1, EN+5, SAVE+7, NEWR+2, EN2+13~, EN2+15*, EN2+16, EN2+18~, EN2+30, EN2E
DIKZZ	Q1+1!
DIKZZ1	Q1+1!
DIKZZMSG	EN2~, EN2E+1
DIPZ	FILE~*, FILE+3!
DIQUIET	EN2+13~, EN2+16*
DIR	FILE+2!, EN+1, SAVE+7~, EN2+13~
DIR("A"	FILE+2*
DIR(0	FILE+2*
DIROUT	Q1!
DIRUT	FILE+2, Q1!
>> DISYS	EN1, EN1+1, SAVE+7
DIXRLIST	EN+9~
DK1	EN2+13~
DMAX	EN1+3, FILE, EN+4, EN+6, Q1+1!, SV+4, NEWR+1, EN2~, EN2+18~, EN2+26
DNM	FILE+1, FILE+3, EN+3, EN+5, EN+16, EN+22, EN+29, Q1!, SV+3, SAVE+4 , SAVE+5, SAVE+6, SAVE+7, SAVE+8, NEWR+2, NEWR+3, EN2+13~
DNM(1	SV+3*, SAVE+4
DRN	EN+6, EN+22, Q1!, SV+3, SAVE+4, SAVE+5, SAVE+6, SAVE+7, NEWR+2, NEWR+3
DT	NEWR+3
DTIME	EN1+2*
DTOUT	EN1+3, FILE+1, Q1!
DU	Q1!
DUOUT	EN1+3, FILE+1, Q1!
DUZ(0	DIKZ+3
DV	Q1!
DW	Q1!
DW1	Q1!
T	EN+6, Q1!, SV+4, NEWR+1, NEWR+2*
U	EN1+2*, SAVE+6
X	EN1+3, FILE, FILE+1, FILE+3, EN+3, EN+5, EN+14, EN+15, EN+20, EN+21 , Q, Q1!, SAVE+7~, RTE+3, RTE+5, RTE+23, RTE+26, EN2~, EN2+18~, EN2+22 , EN2+23, EN2+24
X(1	SAVE+7*
Y	FILE, FILE+2, FILE+3*, EN+1, EN+3, Q1!, EN2~, EN2+18~, EN2+20, EN2+21 , EN2+25
Y(1	EN+1*!
Y(3	EN+1*!

Customize PDF page

Package: VA Fileman

Routine: DIKZ

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 38

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: