Routine: ACHS31E1

Package	Total	Call Graph
Kernel	4	HOME^%ZIS ENDR^%ZISS $$CJ^XLFSTR $$VERSION^XPDUTL
VA Fileman	3	(,IX)^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	2	$$DIR^XBDIR HELP^XBHELP

Package	Total	Caller Graph
Contract Health Management Information System	8	ACHS3116 ACHS3118 ACHS3122 ACHS3123 ACHS3124 ACHS3125 ACHS3126 ACHS3127

Entry Points

Name	Comments	DBIA/ICR reference
INTROE	; Intro text during KIDS Environment check.
INSTALLD(ACHS)	;EP; Determine if patch ACHS was installed, where ACHS is ; the name of the INSTALL. E.g "AVA93.212".
CHK	;
INTROI	; Intro text during KIDS Install.
AR	;
SORRY(X)	;
VCHK(ACHSPRE,ACHSVER,ACHSQUIT,ACHSCOMP)	; Check versions needed. ;

Name	Field # of Occurrence
HOME^%ZIS	ACHS31E1+6
ENDR^%ZISS	ACHS31E1+17
^DIC	INSTALLD+11, INSTALLD+15
IX^DIC	CHK+14, INSTALLD+7
$$GET1^DIQ	ACHS31E1+11
^DIR	AR+5
$$DIR^XBDIR	CHK+23, CHK+24
HELP^XBHELP	CHK+22, CHK+24
$$CJ^XLFSTR	ACHS31E1+12, ACHS31E1+13, CHK+16, CHK+17, CHK+20, CHK+21, SORRY+3, VCHK+4, INSTALLD+18, INSTALLD+19
$$VERSION^XPDUTL	VCHK+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: ACHS31E1+7
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: ACHS31E1+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: ACHS31E1+12
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),";",5)_".",IOM) Line Location: ACHS31E1+13
Function Call: WRITE	Prompt: !,"User stopped environment check." Line Location: AR+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"You must install it, Before Proceeding."_IORVOFF,IOM),!!,7,7,*7 Line Location: CHK+20
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: CHK+21
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need "_$S(ACHSCOMP="<":"at least ",1:"")_ACHSPRE_" v "_ACHSVER_"....."_ACHSPRE_" v "_ACHSV_" Present",IOM) Line Location: VCHK+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_ACHS_"....."_ACHS_" Present",IOM) Line Location: INSTALLD+18
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_ACHS_".....",IOM) Line Location: INSTALLD+19
Routine Call	%ZIS Line Location: ACHS31E1+6
Routine Call	DIC Line Location: INSTALLD+11 INSTALLD+15
Routine Call	DIR Line Location: AR+5
Routine Call	DIC Line Location: CHK+14 INSTALLD+7

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(9.4 - [#9.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	CHK+15

Name	Line Occurrences
$$INSTALLD	CHK+1, CHK+3, CHK+4, CHK+5, CHK+6, CHK+9
$$VCHK	CHK+2, CHK+7, CHK+10
SORRY	ACHS31E1+7, ACHS31E1+8, ACHS31E1+9, CHK+9, CHK+18, CHK+23, CHK+24, VCHK+5

Name	Field # of Occurrence
ACHS	INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14, INSTALLD+17, INSTALLD+18, INSTALLD+19
>> ACHSAR	AR+2, AR+7, CHK+8
ACHSCOMP	VCHK~, VCHK+4, VCHK+5
ACHSPRE	VCHK~, VCHK+3, VCHK+4
ACHSQUIT	VCHK~, VCHK+5
ACHSV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
ACHSVER	VCHK~, VCHK+4, VCHK+5
>> BMCQUIT	CHK+9*
>> D	CHK+13, INSTALLD+6
DA	CHK+12~
DIC	CHK+12~, CHK+13, INSTALLD+3~, INSTALLD+6, INSTALLD+10, INSTALLD+14, INSTALLD+16
DIC(0	CHK+13, INSTALLD+6
DIFQ	SORRY+1!
>> DIR("?"	AR+4*
>> DIR("A"	AR+3*
>> DIR("B"	AR+3*
>> DIR(0	AR+3*
>> DIRUT	AR+6
>> DTOUT	AR+6
>> DUOUT	AR+6
DUZ	ACHS31E1+7, ACHS31E1+11
DUZ(0	ACHS31E1+8, ACHS31E1+9
IOM	ACHS31E1+6, ACHS31E1+12, ACHS31E1+13, CHK+16, CHK+17, CHK+20, CHK+21, SORRY+3, VCHK+4, INSTALLD+18 , INSTALLD+19
IORVOFF	ACHS31E1+15~, CHK+17, CHK+20
IORVON	ACHS31E1+15~, CHK+17, CHK+20
>> P	INSTALLD+16*, INSTALLD+17
X	ACHS31E1+11, ACHS31E1+12, ACHS31E1+16, CHK+13, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+5, INSTALLD+10, INSTALLD+14 , INSTALLD+16
>> XPDDIQ("XPZ1"	CHK+24*
>> XPDDIQ("XPZ2"	CHK+24*
>> XPDENV	CHK+24
>> XPDQUIT	CHK+1, CHK+3, CHK+4, CHK+5, CHK+6, CHK+20, SORRY+2
Y	AR+7, CHK+15, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16, INSTALLD+17, INSTALLD+18 , INSTALLD+19, INSTALLD+20
>> ZTQUEUED	ACHS31E1+9

Name	Field # of Occurrence
$T(	ACHS31E1+13