Routine: ACHS31E

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

Name	Comments	DBIA/ICR reference
VCHK(ACHSPRE,ACHSVER,ACHSQUIT,ACHSCOMP)	; Check versions needed. ;
INTROI	; Intro text during KIDS Install.
SORRY(X)	;
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".

Name	Field # of Occurrence
HOME^%ZIS	ACHS31E+5
ENDR^%ZISS	ACHS31E+16
^DIC	INSTALLD+11, INSTALLD+15
IX^DIC	ACHS31E+30, INSTALLD+7
$$GET1^DIQ	ACHS31E+10
$$DIR^XBDIR	ACHS31E+39, ACHS31E+40
HELP^XBHELP	ACHS31E+38, ACHS31E+40
$$CJ^XLFSTR	ACHS31E+11, ACHS31E+12, ACHS31E+20, ACHS31E+32, ACHS31E+33, ACHS31E+36, ACHS31E+37, SORRY+3, VCHK+4
$$VERSION^XPDUTL	VCHK+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: ACHS31E+6
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: ACHS31E+7
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: ACHS31E+11
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: ACHS31E+12
Function Call: WRITE	Prompt: !?16,"Need atleast AUT 98.1*20.....Present" Line Location: ACHS31E+22
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"You must FIX IT, Before Proceeding."_IORVOFF,IOM),!!,7,7,*7 Line Location: ACHS31E+36
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: ACHS31E+37
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
Routine Call	%ZIS Line Location: ACHS31E+5
Routine Call	DIC Line Location: INSTALLD+11 INSTALLD+15
Routine Call	DIC Line Location: ACHS31E+30 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]	ACHS31E+31

Name	Line Occurrences
$$INSTALLD	ACHS31E+19
$$VCHK	ACHS31E+18, ACHS31E+23, ACHS31E+24, ACHS31E+25, ACHS31E+26
SORRY	ACHS31E+6, ACHS31E+7, ACHS31E+8, ACHS31E+34, ACHS31E+39, ACHS31E+40, VCHK+5

Name	Field # of Occurrence
ACHS	INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14
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
>> D	ACHS31E+29, INSTALLD+6
DA	ACHS31E+28~
DIC	ACHS31E+28~, ACHS31E+29, INSTALLD+3~, INSTALLD+6, INSTALLD+10, INSTALLD+14
DIC(0	ACHS31E+29, INSTALLD+6
DIFQ	SORRY+1!
DUZ	ACHS31E+6, ACHS31E+10
DUZ(0	ACHS31E+7, ACHS31E+8
IOM	ACHS31E+5, ACHS31E+11, ACHS31E+12, ACHS31E+20, ACHS31E+32, ACHS31E+33, ACHS31E+36, ACHS31E+37, SORRY+3, VCHK+4
IORVOFF	ACHS31E+14~, ACHS31E+20, ACHS31E+33, ACHS31E+36
IORVON	ACHS31E+14~, ACHS31E+33, ACHS31E+36
X	ACHS31E+10, ACHS31E+11, ACHS31E+15, ACHS31E+29, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+5, INSTALLD+10, INSTALLD+14
>> XPDDIQ("XPZ1"	ACHS31E+40*
>> XPDDIQ("XPZ2"	ACHS31E+40*
>> XPDENV	ACHS31E+40
>> XPDQUIT	ACHS31E+21, ACHS31E+36, SORRY+2
Y	ACHS31E+31, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16
>> ZTQUEUED	ACHS31E+8

Name	Field # of Occurrence
$T(	ACHS31E+12

Information