Routine: ICPT002E

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

Entry Points

Name	Comments	DBIA/ICR reference
INTROE	; Intro text during KIDS Environment check.
CHK	;
INTROI	; Intro text during KIDS Install.
SORRY(X)	;
ENV	;
INSTALLD(ICPT)	;EP; Determine if patch was installed, where ICPT is ; the name of the INSTALL. E.g "AVA93.212".
VCHK(ICPTPRE,ICPTVER,ICPTQUIT,ICPTCOMP)	; Check versions needed. ;

Name	Field # of Occurrence
HOME^%ZIS	ENV+1
ENDR^%ZISS	ENV+12
^DIC	INSTALLD+11, INSTALLD+15
IX^DIC	CHK+9, INSTALLD+7
$$GET1^DIQ	ENV+6
$$DIR^XBDIR	CHK+18, CHK+19
HELP^XBHELP	CHK+17, CHK+19
$$CJ^XLFSTR	ENV+7, ENV+8, CHK+11, CHK+12, CHK+15, CHK+16, SORRY+3, VCHK+4, INSTALLD+17, INSTALLD+18
$$VERSION^XPDUTL	VCHK+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: ENV+2
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: ENV+3
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: ENV+7
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: ENV+8
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"You must FIX IT, Before Proceeding."_IORVOFF,IOM),!!,7,7,*7 Line Location: CHK+15
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: CHK+16
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need "_$S(ICPTCOMP="<":"at least ",1:"")_ICPTPRE_" v "_ICPTVER_"....."_ICPTPRE_" v "_ICPTV_" Present",IOM) Line Location: VCHK+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_ICPT_"....."_ICPT_" Present",IOM) Line Location: INSTALLD+17
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_ICPT_".....",IOM) Line Location: INSTALLD+18
Routine Call	%ZIS Line Location: ENV+1
Routine Call	DIC Line Location: INSTALLD+11 INSTALLD+15
Routine Call	DIC Line Location: CHK+9 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+10

Name	Field # of Occurrence
>> D	CHK+8, INSTALLD+6
DA	CHK+7~
DIC	CHK+7~, CHK+8, INSTALLD+3~, INSTALLD+6, INSTALLD+10, INSTALLD+14, INSTALLD+16
DIC(0	CHK+8, INSTALLD+6
DIFQ	SORRY+1!
DUZ	ENV+2, ENV+6
DUZ(0	ENV+3, ENV+4
ICPT	INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14, INSTALLD+17, INSTALLD+18
ICPTCOMP	VCHK~, VCHK+4, VCHK+5
ICPTPRE	VCHK~, VCHK+3, VCHK+4
ICPTQUIT	VCHK~, VCHK+5
ICPTV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
ICPTVER	VCHK~, VCHK+4, VCHK+5
IOM	ENV+1, ENV+7, ENV+8, CHK+11, CHK+12, CHK+15, CHK+16, SORRY+3, VCHK+4, INSTALLD+17 , INSTALLD+18
IORVOFF	ENV+10~, CHK+12, CHK+15
IORVON	ENV+10~, CHK+12, CHK+15
>> P	INSTALLD+16*
X	ENV+6, ENV+7, ENV+11, CHK+8, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+5, INSTALLD+10, INSTALLD+14 , INSTALLD+16
>> XPDDIQ("XPZ1"	CHK+19*
>> XPDDIQ("XPZ2"	CHK+19*
>> XPDENV	CHK+19
>> XPDQUIT	CHK+1, CHK+4, CHK+5, CHK+15, SORRY+2
Y	CHK+10, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16*, INSTALLD+17, INSTALLD+18, INSTALLD+19
>> ZTQUEUED	ENV+4

Name	Field # of Occurrence
$T(	ENV+8