Routine: BAREV814

Information

BAREV814 ; IHS/SD/LSL - ENVIRONMENT CHECK V1.8 PATCH 14; 09/24/2009

Source Information

Source file <BAREV814.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	3	^%ZTLOAD $$CJ^XLFSTR ($$PATCH,$$VERSION)^XPDUTL
IHS VA Utilities	2	$$DIR^XBDIR HELP^XBHELP
VA Fileman	2	NOW^%DTC 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
NOW^%DTC	POST+2
^%ZTLOAD	POST+11
IX^DIC	BAREV814+46
$$DIR^XBDIR	BAREV814+75
HELP^XBHELP	BAREV814+66, BAREV814+72
$$CJ^XLFSTR	BAREV814+13, BAREV814+14, BAREV814+20, BAREV814+29, BAREV814+38, BAREV814+48, BAREV814+49, BAREV814+50, BAREV814+60, BAREV814+63 , BAREV814+65, 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: BAREV814+5
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL" Line Location: BAREV814+9
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: BAREV814+13
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3),IOM) Line Location: BAREV814+14
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least XU v8.0 Patch 1011..... "_$S(BARXU=0:"NOT ",1:"")_"Present",IOM) Line Location: BAREV814+20
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least XB v3.0 Patch 11..... "_$S(BARXB=0:"NOT ",1:"")_"Present",IOM) Line Location: BAREV814+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: BAREV814+38
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM) Line Location: BAREV814+48
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("PACKAGE File with an ""BAR"" prefix.",IOM) Line Location: BAREV814+49
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: BAREV814+50
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: BAREV814+63
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: BAREV814+65
Function Call: WRITE	Prompt: !!,?5,"*** TASK = ",ZTSK,! Line Location: POST+13
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: BAREV814+46

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

Name	Line Occurrences
$$INSTALLD	BAREV814+17, BAREV814+26, BAREV814+35, BAREV814+58
$$VCHK	BAREV814+23, BAREV814+32
SORRY	BAREV814+6, BAREV814+10, BAREV814+21, BAREV814+30, BAREV814+39, BAREV814+51, BAREV814+61, BAREV814+75, VCHK+5

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAREV814

Information

Source Information

Call Graph

Call Graph Total: 7

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
>> %	POST+7
>> %H	POST+3, POST+4
BAR	BAREV814+56~, BAREV814+58, BAREV814+59, BAREV814+60, BAREV814+61
BARABM	BAREV814+34~, BAREV814+35, BAREV814+36, BAREV814+37*, BAREV814+38, BAREV814+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
BARQUIT	VCHK~, VCHK+5
>> BARTMP1	POST+3*, POST+6
>> BARTMP2	POST+4*, POST+6
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	BAREV814+25~, BAREV814+26, BAREV814+27, BAREV814+29, BAREV814+30
BARXU	BAREV814+16~, BAREV814+17, BAREV814+18, BAREV814+19, BAREV814+20, BAREV814+21, BAREV814+28
>> D	BAREV814+45*
DA	BAREV814+41~
DIC	BAREV814+41~, BAREV814+43*
DIC(0	BAREV814+44*
DIFQ	SORRY+1!, VCHK+5!
DUZ	BAREV814+4, BAREV814+12
DUZ(0	BAREV814+8
I	BAREV814+56~, BAREV814+57*, BAREV814+58, BAREV814+59, BAREV814+60
IOM	BAREV814+13, BAREV814+14, BAREV814+20, BAREV814+29, BAREV814+38, BAREV814+48, BAREV814+49, BAREV814+50, BAREV814+60, BAREV814+63 , BAREV814+65, SORRY+3, VCHK+4
U	BAREV814+12
X	BAREV814+12, BAREV814+13, BAREV814+42, SORRY~, SORRY+2
>> XPDDIQ("XPZ1"	BAREV814+71*
>> XPDDIQ("XPZ2"	BAREV814+71*
>> XPDENV	BAREV814+68
XPDQUIT	BAREV814+3!, BAREV814+63, SORRY+2, VCHK+5
>> Y	BAREV814+47
>> ZTDESC	POST+7*
>> ZTDTH	POST+6*
>> ZTIO	POST+8*
>> ZTPRI	POST+9*
>> ZTRTN	POST+1*
ZTSK	POST+10!, POST+13

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed