Routine: BAREV820

Package	Total	Call Graph
VA Fileman	4	C^%DTC IX^DIC ^DIK $$GET1^DIQ
IHS Accounts Receivable	2	EN^BARADJR3 $$SDT^BARDUTL
IHS VA Utilities	2	$$DIR^XBDIR HELP^XBHELP
Kernel	2	$$CJ^XLFSTR ($$PATCH,$$VERSION,BMES,MES)^XPDUTL

Entry Points

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

External References

Name	Field # of Occurrence
C^%DTC	PRE+8
EN^BARADJR3	POST+2
$$SDT^BARDUTL	PRE+9
IX^DIC	3PB+12
^DIK	PRE+4
$$GET1^DIQ	PRE+27, PRE+28, PRE+29
$$DIR^XBDIR	3PB+32
HELP^XBHELP	3PB+23, 3PB+29
$$CJ^XLFSTR	BAREV820+13, BAREV820+14, BAREV820+20, BAREV820+37, 3PB+4, 3PB+14, 3PB+15, 3PB+16, 3PB+20, 3PB+22 , SORRY+3, VCHK+4
$$PATCH^XPDUTL	INSTALLD+13
$$VERSION^XPDUTL	VCHK+3, INSTALLD+10
BMES^XPDUTL	PRE+30, PRE+34, PRE+36, POST+4
MES^XPDUTL	PRE+10, PRE+31, PRE+35, PRE+37, PRE+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0" Line Location: BAREV820+5
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL" Line Location: BAREV820+9
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: BAREV820+13
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3),IOM) Line Location: BAREV820+14
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least XU v8.0 Patch 1011..... "_$S(BARXU=0:"NOT ",1:"")_"Present",IOM) Line Location: BAREV820+20
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least Third Party Billing v2.6 Patch 4..... "_$S(BARABM=0:"NOT ",1:"")_"Present",IOM) Line Location: 3PB+4
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM) Line Location: 3PB+14
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("PACKAGE File with an ""BAR"" prefix.",IOM) Line Location: 3PB+15
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: 3PB+16
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: 3PB+20
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: 3PB+22
Function Call: WRITE	Prompt: ! Line Location: PRE+30
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: 3PB+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^BARTBL - [#90052.02]	Classic Fileman Calls
^BAREDI("I",7819,0) - [#90056.02]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAREDI("I"	PRE+14, PRE+16, PRE+19, PRE+22, PRE+23
^DIC(9.4 - [#9.4]	3PB+13
^VA(200 - [#200]	BAREV820+12

Label References

Name	Line Occurrences
$$INSTALLD	BAREV820+17, BAREV820+26, BAREV820+35, 3PB+1
$$VCHK	BAREV820+23, BAREV820+30
SORRY	BAREV820+6, BAREV820+10, BAREV820+21, BAREV820+38, 3PB+5, 3PB+17, 3PB+32, VCHK+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BAR	BAREV820+33~, BAREV820+35, BAREV820+36, BAREV820+37, BAREV820+38
BARABM	3PB~, 3PB+1, 3PB+2, 3PB+3*, 3PB+4, 3PB+5
>> BAREDT	PRE+9*, PRE+10, PRE+16, PRE+17
>> BARFIRST	PRE+11, PRE+30
>> BARFLG	PRE+20, PRE+25, PRE+26
>> BARHOLD	PRE+12*, PRE+39
>> BARMFLG	PRE+32*, PRE+33
BARNM	INSTALLD~, INSTALLD+10, INSTALLD+13, INSTALLD+15
BARPATCH	INSTALLD+8~, INSTALLD+13*, INSTALLD+14
>> BARPFLG	PRE+20, PRE+24, PRE+26
BARPRE	VCHK~, VCHK+3, VCHK+4
BARPT	INSTALLD~, INSTALLD+13, INSTALLD+15
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	BAREV820+25~, BAREV820+26, BAREV820+27
BARXU	BAREV820+16~, BAREV820+17, BAREV820+18, BAREV820+19, BAREV820+20, BAREV820+21, BAREV820+28
>> CLMDA	PRE+21, PRE+22, PRE+23
>> CLMSTAT	PRE+23*, PRE+24, PRE+25
>> D	3PB+11*
DA	3PB+7~, PRE+1!, PRE+3*
DIC	3PB+7~, 3PB+9*, PRE+1!
DIC(0	3PB+10*
DIE	PRE+1!
DIFQ	SORRY+1!, VCHK+5!
DIK	PRE+1!, PRE+2*
DIR	PRE+1!
DT	PRE+6
>> DTTM	PRE+27*
DUZ	BAREV820+4, BAREV820+12
DUZ(0	BAREV820+8
DUZ(2	PRE+12, PRE+13, PRE+14, PRE+16, PRE+19, PRE+22, PRE+23, PRE+29, PRE+39*
>> ERAFILE	PRE+15, PRE+16, PRE+17, PRE+19, PRE+31
>> HOSTF	PRE+28*, PRE+31
I	BAREV820+33~, BAREV820+34*, BAREV820+35, BAREV820+36, BAREV820+37
>> IMPDA	PRE+18, PRE+19, PRE+22, PRE+23, PRE+27, PRE+28
IOM	BAREV820+13, BAREV820+14, BAREV820+20, BAREV820+37, 3PB+4, 3PB+14, 3PB+15, 3PB+16, 3PB+20, 3PB+22 , SORRY+3, VCHK+4
>> LOC	PRE+29*, PRE+31
U	BAREV820+12, PRE+23
X	BAREV820+12, BAREV820+13, 3PB+8, PRE+1!, PRE+9, SORRY~, SORRY+2
>> X1	PRE+6*
>> X2	PRE+7*
>> XPDDIQ("XPZ1"	3PB+28*
>> XPDDIQ("XPZ2"	3PB+28*
>> XPDENV	3PB+25
XPDQUIT	BAREV820+3!, 3PB+20, SORRY+2, VCHK+5
Y	3PB+13, PRE+1!

Marked Items

Name	Field # of Occurrence
$T(	BAREV820+14

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAREV820

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items