Routine: DII

Package	Total	Call Graph
VA Fileman	14	Q^DI ($$EZBLD,BLD)^DIALOG Q^DIARB Q^DIB S2^DIBT1 ^DIC Q^DICATT2 YN^DICN (,DT)^DICRW IXALL^DIK Q^DIP N^DIP1 (CAPTION,GUY,LF)^DIQ ^DIR
Kernel	2	^%ZIS ASKDUZ^XUP

Package

Total

Call Graph

Q^DI ($$EZBLD,BLD)^DIALOG Q^DIARB Q^DIB S2^DIBT1 ^DIC Q^DICATT2 YN^DICN
(,DT)^DICRW IXALL^DIK Q^DIP N^DIP1 (CAPTION,GUY,LF)^DIQ ^DIR

Kernel

^%ZIS ASKDUZ^XUP

Package	Total	Caller Graph
VA Fileman	35	DDSU DI DIA DIAR DICRW DIEZ DIEZ1 DIFROM DIFROM3 DIFROMSI DIINQUIRE DIKCBLD DIKZ DILIBF DINTEG DINTEG1 DINTEG2 DINTEG3 DINTEG4 DINTEG5 DIO DIO4 DIOZ DIP DIP1 DIP21 DIP5 DIPKINI3 DIPZ DIPZ2 DIQ DITR1 DIU20 DIU21 DIWE4
PCC New Encounter Form	4	VEN8INI3 VENKINI3 VENLINI3 VENMINI3
Dietetics	2	FHINIT3 FHSYSF
IHS RPMS CHR System	2	BCH1INI3 BCH2INI3
Inpatient Medications	2	PSJAINI3 PSJVINI3
Auto Replenishment Ward Stock	1	PSGWINI3
Automated Information Collection System	1	IBDEINI3
IHS Support HL7 Interfaces	1	BHLINIT3
IHS VA Support Files	1	AVAPINI3
Integrated Billing	1	IBINIT3
Local Area Programs	1	AZHNINI3
Problem List	1	GMPLINI3
Tucson	1	BZSMINI3
Utilities	1	AUP6INI3
Utility Tables	1	AUTINIT3

Package

Total

Caller Graph

VA Fileman

DDSU  DI  DIA  DIAR  DICRW  DIEZ  DIEZ1  DIFROM
DIFROM3  DIFROMSI  DIINQUIRE  DIKCBLD  DIKZ  DILIBF  DINTEG  DINTEG1
DINTEG2  DINTEG3  DINTEG4  DINTEG5  DIO  DIO4  DIOZ  DIP
DIP1  DIP21  DIP5  DIPKINI3  DIPZ  DIPZ2  DIQ  DITR1
DIU20  DIU21  DIWE4

PCC New Encounter Form

VEN8INI3 VENKINI3 VENLINI3 VENMINI3

Dietetics

FHINIT3 FHSYSF

IHS RPMS CHR System

BCH1INI3 BCH2INI3

Inpatient Medications

PSJAINI3 PSJVINI3

Auto Replenishment Ward Stock

PSGWINI3

Automated Information Collection System

IBDEINI3

IHS Support HL7 Interfaces

BHLINIT3

AVAPINI3

IBINIT3

AZHNINI3

GMPLINI3

BZSMINI3

AUP6INI3

AUTINIT3

Name	Field # of Occurrence
^%ZIS	O+5
Q^DI	P
$$EZBLD^DIALOG	V+6, C+5
BLD^DIALOG	C+2
Q^DIARB	Q
Q^DIB	Q
S2^DIBT1	S+2
^DIC	V+26, F, R
Q^DICATT2	Q
YN^DICN	O+1
^DICRW	INQ+1
DT^DICRW	NOKL
IXALL^DIK	NOKL+1
Q^DIP	S, S+3, O, O+1
N^DIP1	O+3
CAPTION^DIQ	DIQ
GUY^DIQ	AUD+1
LF^DIQ	DIQ
^DIR	C+6, C+9
ASKDUZ^XUP	V+8, V+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"VA FileMan "_$P($T(V),";",3),! Line Location: V+3
Function Call: WRITE	Prompt: $C(7),!,$$EZBLD^DIALOG(7005),! Line Location: V+6
Function Call: WRITE	Prompt: !,"Your Identity(DUZ) is 0(zero).",!,"Please identify yourself.",! Line Location: V+12
Function Call: WRITE	Prompt: $C(7),!,"Your Identity(DUZ) is still 0(zero).",!,"You need to identify yourself!",! Line Location: V+22
Function Call: WRITE	Prompt: !!! Line Location: F+0
Function Call: WRITE	Prompt: !,"STANDARD CAPTIONED OUTPUT" Line Location: O+1
Function Call: WRITE	Prompt: !?5,"Answer 'N' to create a formatted display as in the Print Option." Line Location: O+2
Function Call: WRITE	Prompt: ! Line Location: DIQ+0
Function Call: WRITE	Prompt: !! Line Location: DIQ+1
Function Call: WRITE	Prompt: ! Line Location: AUD+1
Routine Call	DIALOG Line Location: C+2
Routine Call	DIALOG Line Location: V+6 C+5
Routine Call	DIC Line Location: V+26 F R
Routine Call	DIR Line Location: C+6 C+9
Routine Call	%ZIS Line Location: O+5

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOFF"	V+10, V+14
^%ZOSF("EON"	V+11, V+14
^%ZOSF("OS"	OS
^DD("OS" - [#.7]	OS+1
^DIA - [#1.1]	AUD+1, C+9
^DIBT(	S+4, S+5
^DOPT("DII"	NOKL*
^UTILITY(	R*, S+4, DIQ
^UTILITY($J	B!
^VA(200 - [#200]	V+6, V+29

Name	Line Occurrences
@(	F
B	DIQ+1
C	O+4
F	NOKL
NOKL	F
O	S, S+3, O+2
OS	NOKL
Q	F, O+4, DIQ
R	R
S	S+3
V	V+3

Name	Field # of Occurrence
^(	B!
^("OS"	OS, OS+1
^(0	NOKL*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q+1!, O*, O+1, O+2, O+3
%X	Q+1!
%Y	Q+1!
A0	Q+2!
D0	Q+2!
D9	Q+2!
>> DA	DIQ, AUD, AUD+1
DALL	Q+3!
DC	Q+2!
DCC	Q+2!
DCL	Q+3!
>> DD	AUD+1*
DH	Q+3!
DHD	Q+3!
DHIT	Q+1!
DI	INQ+1*, B, S+2~, O, O+3
>> DIA	AUD+1*
DIACD	Q+1!, AUD*, AUD+2
DIAR	Q+1!
DIBT	B!
DIC	V+20~, V+23, F!, INQ+1, B!, O!, AUD+1*
DIC("A"	V+23, R
DIC("S"	V+25*
DIC(0	V+23, F, B*
DICATT	Q+2!
DICS	INQ+1, B!, O+3, O+5
DICSS	INQ+1*, S+2~, O+3, O+5
DIDUZ	V+9~, V+13, V+16, V+20~, V+21, V+30
DIEL	Q+2!
DIFLD	Q+2!
DIJ	Q+2!
DIK	NOKL, F!, B, R, S, S+2~, S+4, S+5, DIQ
DIL	Q+1!
DINS	Q+3!
DIP	Q+2!
DIPT	Q+3!
DIQ	Q+1!, B!, AUD*, AUD+1
DIQ(0	DIQ, AUD, AUD+2, C+7, C+9
DIR	V+8~, C+1~, C+2, C+5!
DIR(	C+3
DIR("?"	C+9*
DIR("A"	C+5, C+9
DIR("B"	C+5, C+9
DIR(0	C+5, C+9
DIROUT	Q+3!, S+1!
DIRUT	V+8~, Q+3!, S+1!, O+4, C+6, C+8*, C+9
DIS	Q+1!
DISV	B!
DISYS	Q+1!, OS, OS+1
DITXT	C+1~, C+2, C+3, C+5, C+7
DIYS	Q+3!
DK	Q+1!, INQ+1*, DIQ, AUD+1, C+9
DL	Q+2!
DM	Q+2!
DNP	Q+2!
DP	Q+2!
DPP	Q+3!, O+3*
DPP(1	INQ+1, O+3
DPQ	Q+3!
DQ	Q+2!
DQI	Q+1!
DRK	Q+1!
DT	S+5
DTOUT	V+8~, V+20~, Q+3!, S+3, O, DIQ+1
DU	Q+2!
DUOUT	V+8~, V+20~, Q+3!, S+3
DUZ	V+6, V+19, V+23, V+28, V+29
DUZ(0	V+13, V+16, V+21, V+29, V+30*
DX	Q+1!, S+2~
DXS	Q+1!
>> E	AUD+1*
I	NOKL, C+1~, C+3, C+7*
>> IOP	O+5*
L	O+3*, C+1~
>> N	AUD+1*
Q	Q+1!, O+3*
S	DIQ~*, AUD+1
U	V+29, F, B, R, S, S+4, S+5, DIQ
X	NOKL, F, S, S+3, S+4, C+1~, C+7, C+8
XUEOFF	V+9~, V+14*
XUEON	V+9~, V+14*
Y	V+27, V+28, F!, INQ+1, R, S+3, S+4, S+5, C+1~, C+7 , C+8, C+9
Y(0	F

Customize PDF page

Package: VA Fileman

Routine: DII

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 55

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
C	;called from ^DIP21
B		ICR #840 Status: Active Usage: Private
NOKL
AUD
F
INQ	;
O
Q
P
S
R
V	;;22.0;VA FileMan;64,81,143;Mar 30, 1999
OS
DIQ