Routine: LEX2I03E

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

Package

Total

Call Graph

HOME^%ZIS ENDR^%ZISS $$CJ^XLFSTR $$VERSION^XPDUTL

$$DIR^XBDIR HELP^XBHELP

(,IX)^DIC $$GET1^DIQ

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

Name	Field # of Occurrence
HOME^%ZIS	ENV+1
ENDR^%ZISS	ENV+12
^DIC	INSTALLD+11, INSTALLD+15
IX^DIC	CHK+12, INSTALLD+7
$$GET1^DIQ	ENV+6
$$DIR^XBDIR	CHK+21, CHK+22
HELP^XBHELP	CHK+20, CHK+22
$$CJ^XLFSTR	ENV+7, ENV+8, CHK+14, CHK+15, CHK+18, CHK+19, 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: !,"LEX*2.0 has already been installed." Line Location: CHK+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"You must FIX IT, Before Proceeding."_IORVOFF,IOM),!!,7,7,*7 Line Location: CHK+18
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: CHK+19
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need "_$S(LEXCOMP="<":"at least ",1:"")_LEXPRE_" v "_LEXVER_"....."_LEXPRE_" v "_LEXV_" Present",IOM) Line Location: VCHK+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_LEX_"....."_LEX_" Present",IOM) Line Location: INSTALLD+17
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_LEX_".....",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+12 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+13

Name	Field # of Occurrence
>> D	CHK+11, INSTALLD+6
DA	CHK+10~
DIC	CHK+10~, CHK+11, INSTALLD+3~, INSTALLD+6, INSTALLD+10, INSTALLD+14, INSTALLD+16
DIC(0	CHK+11, INSTALLD+6
DIFQ	SORRY+1!
DUZ	ENV+2, ENV+6
DUZ(0	ENV+3, ENV+4
IOM	ENV+1, ENV+7, ENV+8, CHK+14, CHK+15, CHK+18, CHK+19, SORRY+3, VCHK+4, INSTALLD+17 , INSTALLD+18
IORVOFF	ENV+10~, CHK+15, CHK+18
IORVON	ENV+10~, CHK+15, CHK+18
LEX	INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14, INSTALLD+17, INSTALLD+18
LEXCOMP	VCHK~, VCHK+4, VCHK+5
LEXPRE	VCHK~, VCHK+3, VCHK+4
LEXQUIT	VCHK~, VCHK+5
LEXV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
LEXVER	VCHK~, VCHK+4, VCHK+5
>> P	INSTALLD+16*
X	ENV+6, ENV+7, ENV+11, CHK+11, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+5, INSTALLD+10, INSTALLD+14 , INSTALLD+16
>> XPDDIQ("XPZ1"	CHK+22*
>> XPDDIQ("XPZ2"	CHK+22*
>> XPDENV	CHK+22
>> XPDQUIT	CHK+4, CHK+7, CHK+8, CHK+18, SORRY+2
Y	CHK+13, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16*, INSTALLD+17, INSTALLD+18, INSTALLD+19
>> ZTQUEUED	ENV+4

Information