Routine: BAREV17

Package

Total

Call Graph

$$DIR^XBDIR HELP^XBHELP

$$CJ^XLFSTR $$VERSION^XPDUTL

(,IX)^DIC

Package	Total	Caller Graph
IHS Accounts Receivable	4	BARPT172 BARPT173 BARPT174 BARPT175

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
INSTALLD(BAR)	;EP ; Determine if Third Party Billing V2.5 Patch 1 has been installed ; where BARABM is the name of the INSTALL (ABM2.51) ; 1st look up package
SORRY(X)	;
INTROI	; Intro text during KIDS Install.
VCHK(BARPRE,BARVER,BARQUIT)
INTROE	; Intro text during KIDS Environment check.

Name	Field # of Occurrence
^DIC	INSTALLD+14, INSTALLD+19
IX^DIC	BAREV17+41, INSTALLD+9
$$DIR^XBDIR	BAREV17+61
HELP^XBHELP	BAREV17+52, BAREV17+58
$$CJ^XLFSTR	BAREV17+12, BAREV17+13, BAREV17+23, BAREV17+43, BAREV17+44, BAREV17+45, BAREV17+49, BAREV17+51, SORRY+3, VCHK+4
$$VERSION^XPDUTL	BAREV17+21, VCHK+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: BAREV17+4
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: BAREV17+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: BAREV17+12
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3),IOM) Line Location: BAREV17+13
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least ABM v2.5 Patch 1..... "_$S(BARABM=0:"NOT ",1:"")_" Present",IOM) Line Location: BAREV17+23
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM) Line Location: BAREV17+43
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("PACKAGE File with an ""BAR"" prefix.",IOM) Line Location: BAREV17+44
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: BAREV17+45
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: BAREV17+49
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: BAREV17+51
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: INSTALLD+14 INSTALLD+19
Routine Call	DIC Line Location: BAREV17+41 INSTALLD+9

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	BAREV17+42
^DIC(9.8 - [#9.8]	BAREV17+22
^VA(200 - [#200]	BAREV17+11

Name	Line Occurrences
$$VCHK	BAREV17+15, BAREV17+16, BAREV17+17
SORRY	BAREV17+5, BAREV17+9, BAREV17+24, BAREV17+46, BAREV17+61, VCHK+5

Name	Field # of Occurrence
BAR	INSTALLD~, INSTALLD+5, INSTALLD+13, INSTALLD+18
BARABM	BAREV17+20~, BAREV17+21, BAREV17+22, BAREV17+23, BAREV17+24
BARPRE	VCHK~, VCHK+3, VCHK+4
BARQUIT	VCHK~, VCHK+5
BARV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
BARVER	VCHK~, VCHK+4, VCHK+5
>> D	BAREV17+40, INSTALLD+8
DA	BAREV17+36~
DIC	BAREV17+36~, BAREV17+38, INSTALLD+4~, INSTALLD+6, INSTALLD+12, INSTALLD+17
DIC(0	BAREV17+39, INSTALLD+7
DIFQ	SORRY+1!, VCHK+5!
DUZ	BAREV17+3, BAREV17+11
DUZ(0	BAREV17+7
IOM	BAREV17+12, BAREV17+13, BAREV17+23, BAREV17+43, BAREV17+44, BAREV17+45, BAREV17+49, BAREV17+51, SORRY+3, VCHK+4
U	BAREV17+11
X	BAREV17+11, BAREV17+12, BAREV17+37, SORRY~, SORRY+2, INSTALLD+4~, INSTALLD+5, INSTALLD+13, INSTALLD+18*
>> XPDDIQ("XPZ1"	BAREV17+57*
>> XPDDIQ("XPZ2"	BAREV17+57*
>> XPDENV	BAREV17+54
>> XPDQUIT	BAREV17+49, SORRY+2, VCHK+5
Y	BAREV17+42, INSTALLD+4~, INSTALLD+10, INSTALLD+12, INSTALLD+15, INSTALLD+17, INSTALLD+20

Information