Routine: BAREV189

Information

BAREV189 ; IHS/SD/LSL - ENVIRONMENT CHECK V1.8 PATCH 9; 11/05/2008

Source Information

Source file <BAREV189.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	3	(,IX)^DIC ^DIE $$GET1^DIQ
IHS VA Utilities	2	$$DIR^XBDIR HELP^XBHELP
Kernel	2	$$CJ^XLFSTR ($$PATCH,$$VERSION,BMES)^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
INTROE	; Intro text during KIDS Environment check.
INTROI	; Intro text during KIDS Install.
UP(BAR,X)	;
VCHK(BARPRE,BARVER,BARQUIT)
SORRY(X)	;
POST	;EP; CHECK AND CORRECT ZISH PARAMETER ENTRY
INSTALLD(BARNM,BARVR,BARPT)	;EP ;RLT ; RLT - 04/05/05 - Per Don Jackson, modified this tag to use ; PATCH^XPDUTL. Removed the reverse $O, problem ; with XU patch numbers. VA (lower than 1000) and ; IHS patch numers (1000 and higher) not loaded ; in numerical order. No longer ; verifies that a lower version did not get ; reinstalled over a higher version.

External References

Name	Field # of Occurrence
^DIC	UP+4
IX^DIC	BAREV189+48
^DIE	UP+11
$$GET1^DIQ	POST+6, POST+8
$$DIR^XBDIR	BAREV189+77
HELP^XBHELP	BAREV189+68, BAREV189+74
$$CJ^XLFSTR	BAREV189+15, BAREV189+16, BAREV189+22, BAREV189+31, BAREV189+40, BAREV189+50, BAREV189+51, BAREV189+52, BAREV189+62, BAREV189+65 , BAREV189+67, SORRY+3, VCHK+4
$$PATCH^XPDUTL	INSTALLD+13
$$VERSION^XPDUTL	VCHK+3, INSTALLD+10
BMES^XPDUTL	POST+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0" Line Location: BAREV189+7
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL" Line Location: BAREV189+11
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: BAREV189+15
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3),IOM) Line Location: BAREV189+16
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least XU v8.0 Patch 1011..... "_$S(BARXU=0:"NOT ",1:"")_"Present",IOM) Line Location: BAREV189+22
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least XB v3.0 Patch 11..... "_$S(BARXB=0:"NOT ",1:"")_"Present",IOM) Line Location: BAREV189+31
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least Third Party Billing v2.5 Patch 13..... "_$S(BARABM=0:"NOT ",1:"")_"Present",IOM) Line Location: BAREV189+40
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM) Line Location: BAREV189+50
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("PACKAGE File with an ""BAR"" prefix.",IOM) Line Location: BAREV189+51
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: BAREV189+52
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: BAREV189+65
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: BAREV189+67
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
Function Call: WRITE	Prompt: !,"UNABLE TO UPDATE ZISH PARAMETER ENTRY. TRY MANUALLY!!" Line Location: UP+5
Routine Call	DIE Line Location: UP+11
Routine Call	DIC Line Location: UP+4
Routine Call	DIC Line Location: BAREV189+48

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^%ZIB(9888888.93 - [#9888888.93]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIB(9888888.93 - [#9888888.93]	POST+5
^DIC(9.4 - [#9.4]	BAREV189+49
^VA(200 - [#200]	BAREV189+14

Label References

Name	Line Occurrences
$$INSTALLD	BAREV189+19, BAREV189+28, BAREV189+37, BAREV189+60
$$VCHK	BAREV189+25, BAREV189+34
SORRY	BAREV189+8, BAREV189+12, BAREV189+23, BAREV189+32, BAREV189+41, BAREV189+53, BAREV189+63, BAREV189+77, VCHK+5
UP	POST+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BAR	BAREV189+58~, BAREV189+60, BAREV189+61, BAREV189+62, BAREV189+63, POST+3~, POST+5*, POST+6, POST+8, POST+11 , UP~
BARABM	BAREV189+36~, BAREV189+37, BAREV189+38, BAREV189+39*, BAREV189+40, BAREV189+41
BARNM	INSTALLD~, INSTALLD+10, INSTALLD+13, INSTALLD+15
BARPATCH	INSTALLD+8~, INSTALLD+13*, INSTALLD+14
BARPRE	VCHK~, VCHK+3, VCHK+4
BARPT	INSTALLD~, INSTALLD+13, INSTALLD+15
BARQUIT	VCHK~, VCHK+5
BARREC	POST+3~, POST+6, POST+7, POST+8, POST+9
BARS	POST+3~, POST+4*, POST+5, POST+10, POST+11
BARV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
BARVER	VCHK~, VCHK+4, VCHK+5
BARVNUM	INSTALLD+8~, INSTALLD+10*, INSTALLD+11, INSTALLD+15
BARVR	INSTALLD~, INSTALLD+13
BARXB	BAREV189+27~, BAREV189+28, BAREV189+29, BAREV189+31, BAREV189+32
BARXU	BAREV189+18~, BAREV189+19, BAREV189+20, BAREV189+21, BAREV189+22, BAREV189+23, BAREV189+30
>> D	BAREV189+47*
DA	BAREV189+43~, UP+1!, UP+6!, UP+8*, UP+12!
DD	UP+6!
DIC	BAREV189+43~, BAREV189+45, UP+1!, UP+2, UP+6!, UP+12!
DIC(0	BAREV189+46, UP+3
DIE	UP+1!, UP+6!, UP+7*, UP+12!
DIFQ	SORRY+1!, VCHK+5!
DINUM	UP+6!
DIR	UP+1!, UP+6!, UP+12!
DO	UP+6!
DR	UP+1!, UP+6!, UP+10*, UP+12!
DUZ	BAREV189+6, BAREV189+14
DUZ(0	BAREV189+10
I	BAREV189+58~, BAREV189+59*, BAREV189+60, BAREV189+61, BAREV189+62
IOM	BAREV189+15, BAREV189+16, BAREV189+22, BAREV189+31, BAREV189+40, BAREV189+50, BAREV189+51, BAREV189+52, BAREV189+62, BAREV189+65 , BAREV189+67, SORRY+3, VCHK+4
>> TARGETIP	UP+9*
U	BAREV189+14
X	BAREV189+14, BAREV189+15, BAREV189+44, SORRY~, SORRY+2, UP~
>> XPDDIQ("XPZ1"	BAREV189+73*
>> XPDDIQ("XPZ2"	BAREV189+73*
>> XPDENV	BAREV189+70
XPDQUIT	BAREV189+5!, BAREV189+65, SORRY+2, VCHK+5
>> Y	BAREV189+49, UP+5, UP+8

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAREV189

Call Graph Total: 7