Routine: BAREV817

Information

BAREV817 ; IHS/SD/TMM - ENVIRONMENT CHECK V1.8 PATCH 17; 12/22/2009

Source Information

Source file <BAREV817.m>

Call Graph

Call Graph Total: 5

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

Name	Comments	DBIA/ICR reference
INTROE	; Intro text during KIDS Environment check.
INTROI	; Intro text during KIDS Install.
SORRY(X)	;
VCHK(BARPRE,BARVER,BARQUIT)
POST	;EP - POST INSTALL
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.

Name	Field # of Occurrence
IX^DIC	BAREV817+46
$$DIR^XBDIR	BAREV817+78
HELP^XBHELP	BAREV817+69, BAREV817+75
$$CJ^XLFSTR	BAREV817+13, BAREV817+14, BAREV817+20, BAREV817+29, BAREV817+38, BAREV817+48, BAREV817+49, BAREV817+50, BAREV817+62, BAREV817+66 , BAREV817+68, SORRY+3, VCHK+4
$$PATCH^XPDUTL	INSTALLD+13
$$VERSION^XPDUTL	VCHK+3, INSTALLD+10

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0" Line Location: BAREV817+5
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL" Line Location: BAREV817+9
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: BAREV817+13
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3),IOM) Line Location: BAREV817+14
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least XU v8.0 Patch 1011..... "_$S(BARXU=0:"NOT ",1:"")_"Present",IOM) Line Location: BAREV817+20
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least XB v3.0 Patch 11..... "_$S(BARXB=0:"NOT ",1:"")_"Present",IOM) Line Location: BAREV817+29
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: BAREV817+38
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM) Line Location: BAREV817+48
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("PACKAGE File with an ""BAR"" prefix.",IOM) Line Location: BAREV817+49
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: BAREV817+50
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: BAREV817+66
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: BAREV817+68
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: BAREV817+46

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	BAREV817+47
^VA(200 - [#200]	BAREV817+12

Name	Line Occurrences
$$INSTALLD	BAREV817+17, BAREV817+26, BAREV817+35, BAREV817+59
$$VCHK	BAREV817+23, BAREV817+32
SORRY	BAREV817+6, BAREV817+10, BAREV817+21, BAREV817+30, BAREV817+39, BAREV817+51, BAREV817+64, BAREV817+78, VCHK+5

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAREV817

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
BAR	BAREV817+56~, BAREV817+59, BAREV817+61, BAREV817+62
BARABM	BAREV817+34~, BAREV817+35, BAREV817+36, BAREV817+37*, BAREV817+38, BAREV817+39
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
BARQ	BAREV817+56~, BAREV817+61*, BAREV817+64
BARQUIT	VCHK~, VCHK+5
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	BAREV817+25~, BAREV817+26, BAREV817+27, BAREV817+29, BAREV817+30
BARXU	BAREV817+16~, BAREV817+17, BAREV817+18, BAREV817+19, BAREV817+20, BAREV817+21, BAREV817+28
>> D	BAREV817+45*
DA	BAREV817+41~
DIC	BAREV817+41~, BAREV817+43*
DIC(0	BAREV817+44*
DIFQ	SORRY+1!, VCHK+5!
DUZ	BAREV817+4, BAREV817+12
DUZ(0	BAREV817+8
I	BAREV817+56~, BAREV817+58*, BAREV817+59, BAREV817+61, BAREV817+62
IOM	BAREV817+13, BAREV817+14, BAREV817+20, BAREV817+29, BAREV817+38, BAREV817+48, BAREV817+49, BAREV817+50, BAREV817+62, BAREV817+66 , BAREV817+68, SORRY+3, VCHK+4
U	BAREV817+12
X	BAREV817+12, BAREV817+13, BAREV817+42, SORRY~, SORRY+2
>> XPDDIQ("XPZ1"	BAREV817+74*
>> XPDDIQ("XPZ2"	BAREV817+74*
>> XPDENV	BAREV817+71
XPDQUIT	BAREV817+3!, BAREV817+66, SORRY+2, VCHK+5
>> Y	BAREV817+47

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed