Routine: BAREV819

Package	Total	Call Graph
VA Fileman	4	IX^DIC FILE^DICN IXALL^DIK $$GET1^DIQ
IHS VA Utilities	2	$$DIR^XBDIR HELP^XBHELP
Kernel	2	$$CJ^XLFSTR ($$PATCH,$$VERSION,BMES)^XPDUTL
IHS Accounts Receivable	1	^BARVKL0

Entry Points

Name	Comments	DBIA/ICR reference
ENTRY2	; ; Create entry
25	;;SENT TO COLLECTIONS;;STC
EN	;
INTROE	; Intro text during KIDS Environment check.
INTROI	; Intro text during KIDS Install.
POSTPPAY	; initial set of A/R Prepayment files
EN2	;
1	;;
SORRY(X)	;
VCHK(BARPRE,BARVER,BARQUIT)
ENTRY	; ; Create entry
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
^BARVKL0	ENTRY+4, ENTRY2+5
IX^DIC	3PB+12
FILE^DICN	EN+10, EN2+13
IXALL^DIK	POST+5
$$GET1^DIQ	POSTPPAY+7
$$DIR^XBDIR	3PB+41
HELP^XBHELP	3PB+32, 3PB+38
$$CJ^XLFSTR	BAREV819+13, BAREV819+14, BAREV819+20, 3PB+4, 3PB+14, 3PB+15, 3PB+16, 3PB+26, 3PB+29, 3PB+31 , SORRY+3, VCHK+4
$$PATCH^XPDUTL	INSTALLD+13
$$VERSION^XPDUTL	VCHK+3, INSTALLD+10
BMES^XPDUTL	POST+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0" Line Location: BAREV819+5
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL" Line Location: BAREV819+9
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: BAREV819+13
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3),IOM) Line Location: BAREV819+14
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least XU v8.0 Patch 1011..... "_$S(BARXU=0:"NOT ",1:"")_"Present",IOM) Line Location: BAREV819+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+29
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: 3PB+31
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: POST+10
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: POST+12
Function Call: WRITE	Prompt: !!,"Initialize A/R PREPAYMENT files",!! Line Location: POSTPPAY+4
Function Call: WRITE	Prompt: !," ",$$GET1^DIQ(4,BARDUZ2_",",.01,"E") Line Location: POSTPPAY+7
Function Call: WRITE	Prompt: !!,"A/R PREPAYMENT file setup complete",!! Line Location: POSTPPAY+8
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(4 - [#4]	GET1^DIQ
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^BAR(90052.01 - [#90052.01]	Classic Fileman Calls
^BARTBL - [#90052.02]	Classic Fileman Calls
^BARADJ - [#90056.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.06	POSTPPAY+5
^BARPPAY(	POSTPPAY+6*
^DIC(9.4 - [#9.4]	3PB+13
^DIC(90050.06	POSTPPAY+13, POSTPPAY+14
^VA(200 - [#200]	BAREV819+12

Label References

Name	Line Occurrences
$$INSTALLD	BAREV819+17, BAREV819+27, 3PB+1, 3PB+24
$$VCHK	BAREV819+24, BAREV819+34
EN	ENTRY+3
EN2	ENTRY2+4
ENTRY2	ENTRY+5
SORRY	BAREV819+6, BAREV819+10, BAREV819+21, 3PB+5, 3PB+17, 3PB+27, 3PB+41, VCHK+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BAR	3PB+22~, 3PB+24, 3PB+25, 3PB+26, 3PB+27
BARABM	3PB~, 3PB+1, 3PB+2, 3PB+3*, 3PB+4, 3PB+5
>> BARCNT	ENTRY2+3, EN2+1
>> BARD	ENTRY+2, EN+1, EN+7, ENTRY2+2, EN2+2, EN2+7, EN2+9, EN2+11
>> BARDUZ2	POSTPPAY+5*, POSTPPAY+6, POSTPPAY+7
>> BARIEN	ENTRY+3*, EN+5
BARNM	INSTALLD~, INSTALLD+10, INSTALLD+13, INSTALLD+15
>> BARNODE	POSTPPAY+13, POSTPPAY+14
BARPATCH	INSTALLD+8~, INSTALLD+13*, INSTALLD+14
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
>> BARVALUE	EN+1, EN+7, ENTRY2+4, EN2+2, EN2+3, EN2+7, EN2+9, EN2+11
BARVER	VCHK~, VCHK+4, VCHK+5
BARVNUM	INSTALLD+8~, INSTALLD+10*, INSTALLD+11, INSTALLD+15
BARVR	INSTALLD~, INSTALLD+13
BARXB	BAREV819+26~, BAREV819+27, BAREV819+28
BARXU	BAREV819+16~, BAREV819+17, BAREV819+18, BAREV819+19, BAREV819+20, BAREV819+21, BAREV819+29
>> D	3PB+11*
DA	3PB+7~, EN+2!, EN2+4!
DD	EN+9!, EN2+12!
DIC	3PB+7~, 3PB+9, EN+2!, EN+3, EN2+4!, EN2+5*
DIC("DR"	EN+8, EN2+10, EN2+11*
DIC(0	3PB+10, EN+4, EN2+6*
DIFQ	SORRY+1!, VCHK+5!
>> DIK	POST+4*
>> DINUM	EN+5, EN2+7
>> DLAYGO	EN+6, EN2+8
DO	EN+9!, EN2+12!
DUZ	BAREV819+4, BAREV819+12, POST+10
DUZ(0	BAREV819+8, POST+12, POST+14
I	3PB+22~, 3PB+23*, 3PB+24, 3PB+25, 3PB+26
IOM	BAREV819+13, BAREV819+14, BAREV819+20, 3PB+4, 3PB+14, 3PB+15, 3PB+16, 3PB+26, 3PB+29, 3PB+31 , SORRY+3, VCHK+4
U	BAREV819+12
X	BAREV819+12, BAREV819+13, 3PB+8, EN+2!, EN+7, EN2+4!, EN2+9, SORRY~, SORRY+2
>> XPDDIQ("XPZ1"	3PB+37*
>> XPDDIQ("XPZ2"	3PB+37*
>> XPDENV	3PB+34
XPDQUIT	BAREV819+3!, 3PB+29, SORRY+2, VCHK+5
Y	3PB+13, EN+2!, EN2+4!
>> ZTQUEUED	POST+14

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAREV819

Information

Source Information

Call Graph

Call Graph Total: 9

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
$T(	BAREV819+14
$T(@1+BARCNT	EN2+2
$T(@BARIEN	EN+1