Routine: BAREV171

Entry Points

Name	Comments	DBIA/ICR reference
INTROE	; Intro text during KIDS Environment check.
SORRY(X)	;
INTROI	; Intro text during KIDS Install.
VCHK(BARPRE,BARVER,BARQUIT)

Name	Field # of Occurrence
IX^DIC	BAREV171+30
$$DIR^XBDIR	BAREV171+50
HELP^XBHELP	BAREV171+41, BAREV171+47
$$CJ^XLFSTR	BAREV171+12, BAREV171+13, BAREV171+23, BAREV171+32, BAREV171+33, BAREV171+34, BAREV171+38, BAREV171+40, SORRY+3, VCHK+4
$$VERSION^XPDUTL	BAREV171+21, VCHK+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: BAREV171+4
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: BAREV171+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: BAREV171+12
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),"**",2),IOM) Line Location: BAREV171+13
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least ABM v2.5 Patch 1..... "_$S(BARABM=0:"NOT ",1:"")_" Present",IOM) Line Location: BAREV171+23
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM) Line Location: BAREV171+32
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("PACKAGE File with an ""BAR"" prefix.",IOM) Line Location: BAREV171+33
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: BAREV171+34
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: BAREV171+38
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: BAREV171+40
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_BARPRE_" v "_BARVER_"....."_BARPRE_" v "_BARV_" Present",IOM) Line Location: VCHK+4
Routine Call	DIC Line Location: BAREV171+30

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	BAREV171+31
^DIC(9.8 - [#9.8]	BAREV171+22
^VA(200 - [#200]	BAREV171+11

Name	Line Occurrences
$$VCHK	BAREV171+15, BAREV171+16, BAREV171+17
SORRY	BAREV171+5, BAREV171+9, BAREV171+24, BAREV171+35, BAREV171+50, VCHK+5

Name	Field # of Occurrence
BARABM	BAREV171+20~, BAREV171+21, BAREV171+22, BAREV171+23, BAREV171+24
BARPRE	VCHK~, VCHK+3, VCHK+4
BARQUIT	VCHK~, VCHK+5
BARV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
BARVER	VCHK~, VCHK+4, VCHK+5
>> D	BAREV171+29*
DA	BAREV171+25~
DIC	BAREV171+25~, BAREV171+27*
DIC(0	BAREV171+28*
DIFQ	SORRY+1!, VCHK+5!
DUZ	BAREV171+3, BAREV171+11
DUZ(0	BAREV171+7
IOM	BAREV171+12, BAREV171+13, BAREV171+23, BAREV171+32, BAREV171+33, BAREV171+34, BAREV171+38, BAREV171+40, SORRY+3, VCHK+4
U	BAREV171+11
X	BAREV171+11, BAREV171+12, BAREV171+26, SORRY~, SORRY+2
>> XPDDIQ("XPZ1"	BAREV171+46*
>> XPDDIQ("XPZ2"	BAREV171+46*
>> XPDENV	BAREV171+43
>> XPDQUIT	BAREV171+38, SORRY+2, VCHK+5
>> Y	BAREV171+31

Name	Field # of Occurrence
$T(	BAREV171+13