Routine: DINIT

Package	Total	Call Graph
VA Fileman	11	^DIC DT^DICRW ^DIK ^DINIT0 ^DINIT0F0 ^DINIT11B ^DINIT21 OSDD^DINIT24 (A,A1,X,XX)^DINIT3 KL^DINIT6 I^DITR
Kernel	1	^%ZTLOAD

Package

Total

Call Graph

VA Fileman

^DIC DT^DICRW ^DIK ^DINIT0 ^DINIT0F0 ^DINIT11B ^DINIT21 OSDD^DINIT24
(A,A1,X,XX)^DINIT3 KL^DINIT6 I^DITR

Kernel

^%ZTLOAD

Package	Total	Caller Graph
VA Fileman	4	DI REINITIALIZE DI SET MUMPS OS DI1018P DINIT6
Auto Replenishment Ward Stock	1	PSGWINIT
Automated Information Collection System	1	IBDEINIT
IHS VA Support Files	1	AVAPINIT
Inpatient Medications	1	PSJVINIT
Integrated Billing	1	IBINIT
Problem List	1	GMPLINIT

Package

Total

Caller Graph

VA Fileman

DI REINITIALIZE DI SET MUMPS OS DI1018P DINIT6

Auto Replenishment Ward Stock

PSGWINIT

Automated Information Collection System

IBDEINIT

IHS VA Support Files

AVAPINIT

Inpatient Medications

PSJVINIT

Integrated Billing

IBINIT

Problem List

GMPLINIT

External References

Name	Field # of Occurrence
^%ZTLOAD	OS+5
^DIC	OS+2
DT^DICRW	N+1
^DIK	OSETC+14
^DINIT0	NO+9
^DINIT0F0	GO+11
^DINIT11B	NO+9
^DINIT21	OSETC+3
OSDD^DINIT24	OSETC+3
A^DINIT3	OSETC+4
A1^DINIT3	OSETC+19, OSETC+20
X^DINIT3	OSETC+11, OSETC+12
XX^DINIT3	OSETC+21
KL^DINIT6	V+2, N+4, DO, NA+1, NO+1, NO+11
I^DITR	DATA+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,X Line Location: N+1
Function Call: WRITE	Prompt: $C(7),!!,"*** WARNING!! VA FileMan version "_^DD("VERSION")_" is currently loaded on this system.",!,"This Initialization will bring in VA FileMan version "_VERSION_", an earlier version!!",!! Line Location: N+3
Function Call: WRITE	Prompt: $C(7),!!,"Your defined operating system entry "_$P($G(^DD("OS",Y,0)),U)_" does not support the",!,"1995 M Standards.",!!,"You may not initialize VA FileMan V21." Line Location: N+4
Function Call: READ	Timeout: 60 Variable: Y Line Location: DO+0
Function Call: WRITE	Prompt: !,"Answer YES to begin Initializing VA FileMan" Line Location: DO+1
Function Call: WRITE	Prompt: !!,"SITE NAME: " Line Location: NA+0
Function Call: WRITE	Prompt: ^("SITE"),"// " Line Location: NA+0
Function Call: READ	Timeout: 60 Variable: X Line Location: NA+1
Function Call: WRITE	Prompt: " ENTER THE NAME OF THIS INSTALLATION SITE",!! Line Location: NA+2
Function Call: WRITE	Prompt: !!,"SITE NUMBER: " Line Location: NO+0
Function Call: WRITE	Prompt: ^(1),"// " Condition for execution: $D(^DD("SITE",1)) Line Location: NO+0
Function Call: READ	Timeout: 60 Variable: X Line Location: NO+1
Function Call: WRITE	Prompt: " ENTER A NUMBER, CORRESPONDING TO YOUR INSTITUTION" Line Location: NO+3
Function Call: WRITE	Prompt: ! Line Location: NO+11
Function Call: WRITE	Prompt: !!,"Now loading other FileMan files--please wait." Line Location: NO+12
Function Call: WRITE	Prompt: ! Line Location: OS+0
Function Call: WRITE	Prompt: !!,"Now loading MUMPS Operating System File" Line Location: OSETC+2
Function Call: WRITE	Prompt: !!,"Now loading DIALOG and LANGUAGE Files" Line Location: OSETC+17
Function Call: WRITE	Prompt: "." Line Location: OSETC+18
Routine Call	DIC Line Location: OS+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("MGR"	OS+4
^%ZOSF("OS"	OS+3
^%ZTSK - [#14.4]	OS+3
^DD(	GO+4!, GO+6!, GO+8!, GO+9!, GO+10!
^DD("OS" - [#.7]	N+4, OS, OS+1, OS+2, OSETC+11!
^DD("SITE"	NA, NO, NO+2*
^DD("VERSION"	N+2, N+3
^DD(0	NO+9!
^DI(	OSETC+19, OSETC+20
^DIA(0	GO+3*
^DIBT(0	GO+1*
^DIC - [#1]	GO+5!, GO+6!, GO+7!, GO+8!, GO+9!, GO+10!, OSETC+4, OSETC+5, OSETC+6, OSETC+7 , OSETC+8, OSETC+9, OSETC+10, OSETC+19, OSETC+20*
^DIE(0	GO+1*
^DIPT - [#.4]	GO+2*
^DIPT(0	GO+1*
^UTILITY(	OSETC+17!, DATA, DATA+1, DATA+2!
^UTILITY("DIK"	OSETC+17!

Name	Line Occurrences
$$B36	OSETC+18
$$N1	B36
@(	OSETC+18
DATA	OSETC+22, DATA+2
DO	DO+1
GO	NO+12
NA	NA+2
NO	NO+3
OS	NO+11
OSETC	NO+10
Q	OS+2
V	VERSION+1
VERSION	N+1

Name	Field # of Occurrence
^(	GO+1*, GO+4!, GO+5!, GO+6!, GO+8!, GO+9!, DATA+1
^("F"	GO+1, GO+2
^("MGR"	OS+3
^("OS"	OS
^("SITE"	NA, NA+1
^("^"	GO+4!
^(0	OSETC+4*, DATA+1
^(1	NO, NO+1
^(1.2	GO+4!, GO+5!

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	N1~
>> %X	NA+3*, NO+2
D	OSETC+1~, DATA*, DATA+1
D0	OSETC+1~, DATA+1*
DA	OSETC+11!, OSETC+12!, OSETC+14~*
DA(1	OSETC+11*
DDF	OSETC+1~, DATA+2!
DDF(1	DATA*, DATA+1, DATA+2
DDT	OSETC+1~, DATA+2!
DDT(0	DATA*
DFN	OSETC+1~, DATA+2!
DFR	OSETC+1~, DATA+2!
DFR(1	DATA+1*
DIC	OS*, OS+2!
DIC("A"	OS*
DIC("B"	OS*
DIC(0	OS*
DIFROM	N+1~*
DIK	OSETC+11!, OSETC+12!, OSETC+14~*
>> DIT	GO*
DITZS	OS, OS+1, OS+2*, Q!
>> DKP	DATA+1*
DMRG	OSETC+1~, DATA+1*
DN	OSETC+1~, OSETC+18*
DTN	OSETC+1~, DATA+2!
DTO	OSETC+1~, DATA+1*, DATA+2!
DTO(0	DATA+1*
I	GO, GO+2, GO+7, GO+9, GO+10, OSETC+1~, OSETC+14~, OSETC+21
R	OSETC+1~, OSETC+18*
U	N+4, GO+1, OSETC+17, OSETC+19, OSETC+20, DATA, DATA+1, DATA+2
>> VERSION	N+1, N+2, N+3, VERSION+1*
X	N+1, NA+1, NA+2, NA+3, NO+1, NO+2, NO+3, VERSION+1*, B36~
>> Y	N+4, DO, DO+1, NO+11*, OS+2
Z	OSETC+1~, DATA+1*
>> ZTDESC	OS+5*
>> ZTDTH	OS+4*
>> ZTIO	OS+4*
>> ZTRTN	OS+4*
>> ZTSAVE("DITZS"	OS+4*
ZTSK	Q!
>> ZTUCI	OS+4*

Customize PDF page

Package: VA Fileman

Routine: DINIT

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
DO
N1(%)
NO
NA
B36(X)
N	;
Q
VERSION	;
V	;;22.0;VA FileMan;;Mar 30, 1999
GO
DATA
OS
OSETC	;BRING IN MUMPS OS, DIALOG & LANGUAGE DD AND DATA FOR FILEMAN