Routine: BIENVCHK

Entry Points

Name	Comments	DBIA/ICR reference
START	;EP
VCHK(ABMPRE,ABMVER,ABMQUIT)	; Check versions needed.
SORRY(X)	;
LAST(PKG,VER)	;EP - returns last patch applied for a Package, PATCH^DATE ; Patch includes Seq # if Released

Name	Field # of Occurrence
IX^DIC	START+92
$$DIR^XBDIR	START+111, SORRY+3
$$CJ^XLFSTR	START+8, START+12, START+83, START+86, START+94, START+95, START+96, START+97, START+109, SORRY+3 , VCHK+4, VCHK+5
$$VERSION^XPDUTL	VCHK+3, LAST+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: START+2
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: START+4
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: START+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(X,IOM),! Line Location: START+12
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: START+109
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_ABMPRE_" v"_ABMVER_"..."_ABMPRE_" v"_ABMV_" Present",IOM) Line Location: VCHK+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("^^^^NEEDS TO BE INSTALLED^^^^",IOM) Line Location: VCHK+5
Routine Call	DIC Line Location: START+92

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	START+93, LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
^VA(200 - [#200]	START+7

Name	Field # of Occurrence
^(0	LAST+8, LAST+9

Name	Field # of Occurrence
ABMPRE	VCHK~, VCHK+3, VCHK+4
ABMQUIT	VCHK~
ABMV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
ABMVER	VCHK~, VCHK+4, VCHK+5
>> D	START+91*
DA	START+90~
DIC	START+90~, START+91*
DIC(0	START+91*
DIFQ	SORRY+1!
DUZ	START+2, START+7
DUZ(0	START+4
IOM	START+8, START+12, START+83, START+86, START+94, START+95, START+96, START+97, START+109, SORRY+3 , VCHK+4, VCHK+5
LATEST	LAST+2~, LAST+6, LAST+8, LAST+9, LAST+10
PATCH	LAST+2~, LAST+6, LAST+8, LAST+9*, LAST+10
PKG	LAST~, LAST+3, LAST+4
PKGIEN	LAST+2~, LAST+4*, LAST+5, LAST+7, LAST+8, LAST+9
SUBIEN	LAST+2~, LAST+6, LAST+7, LAST+8, LAST+9
U	START+7, START+82, LAST+8, LAST+9, LAST+10
VER	LAST~, LAST+3*, LAST+5
VERIEN	LAST+2~, LAST+5*, LAST+7, LAST+8, LAST+9
X	START+6~, START+7, START+8, START+9, START+11, START+12, START+80, START+82, START+91*, SORRY~ , SORRY+2
>> XPDDIQ("XPZ1"	START+103*
>> XPDDIQ("XPZ2"	START+105*
>> XPDNOQUE	START+101*
>> XPDQUIT	START+14, START+19, START+23, START+75, START+82, START+85, START+93, START+107, SORRY+2*
>> Y	START+93
Z	START+6~, START+10*, START+11
>> ZTQUEUED	SORRY+3

Name	Field # of Occurrence
$T(	START+9, START+10