Routine: BAREV185

Package	Total	Call Graph
VA Fileman	5	^%DTC (,IX)^DIC ^DIE IXALL^DIK $$GET1^DIQ
IHS Accounts Receivable	2	$$IHS^BARUFUT $$STILPOST^BARUFUT1
IHS VA Utilities	2	$$DIR^XBDIR HELP^XBHELP
Kernel	2	$$CJ^XLFSTR ($$PATCH,$$VERSION,BMES)^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP - PRE INSTALL - DELETE OLD DATA IN TABLES
ADDZISH	;EP - ADD ZISH ENTIRES TO 'ZISH SEND PARAMETERS' FILE
CKSESS	; ; Session status can be: O OPEN ; RC RECONCILED ; RV REVIEWED/APPROVED ; T TRANSMITTED ; RT RETRANSMITTED
STUFFDCM	;
AWODT	;EP -
ADDF	;ADD FOREGROUND
FIXADJ3	;EP
INTROE	; Intro text during KIDS Environment check.
TASK(SAFEDUZ2,BAROK)	;EP - FOR PATCH 4 ONLY
ADWO	; EP
INTROI	; Intro text during KIDS Install.
ADDDIS	;EP -
WRT	;
SORRY(X)	;
ADDB	;ADD BACKGROUND
VCHK(BARPRE,BARVER,BARQUIT)
LOOP(UDUZ,STAT)	; - GET DATA FROM SESSION LEVEL
EDIHIPAA	;EP - EDIT HIPAA TRANSPORT ENTRY
POST	;EP - POST INSTALL OF ZISH ENTRIES AND QUEING OF BIZTALK TASK
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.
COLPOINT	;EP -

External References

Name	Field # of Occurrence
^%DTC	ADDDIS+5
$$IHS^BARUFUT	CKSESS+11, ADDDIS+14
$$STILPOST^BARUFUT1	LOOP+11
^DIC	EDIHIPAA+55, EDIHIPAA+70, EDIHIPAA+85, STUFFDCM+7, ADDF+11, ADDB+10
IX^DIC	BAREV185+59
^DIE	ADDDIS+16, COLPOINT+12, AWODT+7, EDIHIPAA+17, EDIHIPAA+27, EDIHIPAA+37, EDIHIPAA+47, EDIHIPAA+63, EDIHIPAA+78, EDIHIPAA+93 , FIXADJ3+5, STUFFDCM+13, ADDF+29, ADDB+28
IXALL^DIK	ADWO+4
$$GET1^DIQ	LOOP+6, LOOP+8, LOOP+9, LOOP+10, ADDF+3, ADDB+2
$$DIR^XBDIR	BAREV185+86
HELP^XBHELP	BAREV185+77, BAREV185+83
$$CJ^XLFSTR	BAREV185+19, BAREV185+20, BAREV185+21, BAREV185+25, BAREV185+26, BAREV185+32, BAREV185+41, BAREV185+50, BAREV185+61, BAREV185+62 , BAREV185+63, BAREV185+74, BAREV185+76, SORRY+3, VCHK+4, EDIHIPAA+4, EDIHIPAA+5
$$PATCH^XPDUTL	INSTALLD+13
$$VERSION^XPDUTL	VCHK+3, INSTALLD+10
BMES^XPDUTL	STUFFDCM+1, ADDF+5, ADDF+6, ADDB+4, ADDB+5, ADDB+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: BAREV185+4
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: BAREV185+8
Function Call: WRITE	Prompt: !!,7,7 Line Location: BAREV185+18
Function Call: WRITE	Prompt: $$CJ^XLFSTR("There are sessions that have not been transmitted",IOM) Line Location: BAREV185+19
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Please give the A/R cashiers the above list",IOM) Line Location: BAREV185+20
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Cannot proceed until all sessions are transmitted",IOM) Line Location: BAREV185+21
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: BAREV185+25
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3),IOM) Line Location: BAREV185+26
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least XU v8.0 Patch 1011..... "_$S(BARXU=0:"NOT ",1:"")_"Present",IOM) Line Location: BAREV185+32
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least XB v3.0 Patch 11..... "_$S(BARXB=0:"NOT ",1:"")_"Present",IOM) Line Location: BAREV185+41
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: BAREV185+50
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM) Line Location: BAREV185+61
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("PACKAGE File with an ""BAR"" prefix.",IOM) Line Location: BAREV185+62
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM) Line Location: BAREV185+63
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: BAREV185+74
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: BAREV185+76
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
Function Call: WRITE	Prompt: !!?25,"OPEN SESSIONS LIST FOR: " Line Location: WRT+1
Function Call: WRITE	Prompt: !,"CASHIER",?22,"LOCATION",?45,"STATUS",?65,"SESSION ID",! Line Location: WRT+2
Function Call: WRITE	Prompt: "." Line Location: PRE+4
Function Call: WRITE	Prompt: !,"UNABLE TO ADD ZISH PARAMETER ENTRY. TRY MANUALLY!!" Line Location: ADDF+12
Routine Call	DIE Line Location: ADDDIS+16 COLPOINT+12 AWODT+7 EDIHIPAA+17 EDIHIPAA+27 EDIHIPAA+37 EDIHIPAA+47 EDIHIPAA+63 EDIHIPAA+78 EDIHIPAA+93 FIXADJ3+5 STUFFDCM+13 ADDF+29 ADDB+28
Routine Call	DIC Line Location: EDIHIPAA+55 EDIHIPAA+70 EDIHIPAA+85 STUFFDCM+7 ADDF+11 ADDB+10
Routine Call	DIC Line Location: BAREV185+59

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^BARTBL - [#90052.02]	Classic Fileman Calls
^BARADJ - [#90056.06]	Classic Fileman Calls
90057.11	GET1^DIQ
^%ZIB(9888888.93 - [#9888888.93]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIB(9888888.93 - [#9888888.93]	ADDF+3, ADDF+4, ADDB+2, ADDB+3
^AUTTLOC - [#9999999.06]	CKSESS+12
^BAR(90051.02	COLPOINT+5, COLPOINT+8, COLPOINT+9
^BAR(90052.06	ADDDIS+8, ADDDIS+11, AWODT+4
^BARBOB("BARZ"	TASK+2!
^BAREDI("1T" - [#90056.01]	EDIHIPAA+2
^BARSESS(	CKSESS+9, CKSESS+10!, CKSESS+14, CKSESS+17, LOOP+4
^DD("DD"	LOOP+12
^DIC(9.4 - [#9.4]	BAREV185+60
^VA(200 - [#200]	BAREV185+24, LOOP+2

Label References

Name	Line Occurrences
$$INSTALLD	BAREV185+13, BAREV185+29, BAREV185+38, BAREV185+47
$$VCHK	BAREV185+35, BAREV185+44
ADDDIS	BAREV185+15
ADDZISH	POST+12
ADWO	POST+5
AWODT	POST+4
COLPOINT	POST+10
EDIHIPAA	POST+7
FIXADJ3	POST+2
LOOP	CKSESS+18
SORRY	BAREV185+5, BAREV185+9, BAREV185+22, BAREV185+33, BAREV185+42, BAREV185+51, BAREV185+64, BAREV185+86, VCHK+5
STUFFDCM	POST+1
TASK	BAREV185+16
WRT	CKSESS+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	WRT+3~, WRT+4, WRT+5, WRT+7, WRT+9, WRT+11, WRT+12
ADWO	ADWO+1~, ADWO+2*, ADWO+3
>> ARGS	ADDF+22, ADDB+21
B	WRT+3~, WRT+6, WRT+7, WRT+9, WRT+11, WRT+12
BAR	CKSESS+6!, CKSESS+7~, CKSESS+19
BAR(	LOOP+13*, WRT+5, WRT+7, WRT+9, WRT+12
BARABM	BAREV185+46~, BAREV185+47, BAREV185+48, BAREV185+49*, BAREV185+50, BAREV185+51
>> BARDT	ADDDIS+6*, ADDDIS+12
BARLOC	CKSESS+7~, CKSESS+12*, LOOP+13
BARNM	INSTALLD~, INSTALLD+10, INSTALLD+13, INSTALLD+15
BAROK	BAREV185+14, BAREV185+16, BAREV185+17, TASK~, CKSESS+21
BARPATCH	INSTALLD+8~, INSTALLD+13*, INSTALLD+14, INSTALLD+15
BARPRE	VCHK~, VCHK+3, VCHK+4
BARPT	INSTALLD~, INSTALLD+13
BARQUIT	VCHK~, VCHK+5
BARST	CKSESS+7~, CKSESS+13, CKSESS+14, CKSESS+15, CKSESS+17, CKSESS+18
BART	COLPOINT+4~, COLPOINT+9*, COLPOINT+10
BARUDUZ	CKSESS+7~, CKSESS+16, CKSESS+17, CKSESS+18
BARV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
>> BARVAL	EDIHIPAA+15, EDIHIPAA+25, EDIHIPAA+35, EDIHIPAA+45, EDIHIPAA+61, EDIHIPAA+76, EDIHIPAA+91*
BARVER	VCHK~, VCHK+4, VCHK+5
BARVNUM	INSTALLD+8~, INSTALLD+10*, INSTALLD+11, INSTALLD+15
BARVR	INSTALLD~, INSTALLD+13
BARXB	BAREV185+37~, BAREV185+38, BAREV185+39, BAREV185+41, BAREV185+42
BARXU	BAREV185+28~, BAREV185+29, BAREV185+30, BAREV185+31, BAREV185+32, BAREV185+33, BAREV185+40
C	WRT+3~, WRT+8, WRT+9, WRT+11, WRT+12
>> CASHIER	LOOP+2*, LOOP+13
CURSTAT	LOOP+1~, LOOP+8*
D	BAREV185+58, WRT+3~, WRT+10, WRT+12*, WRT+13
DA	BAREV185+54~, ADDDIS+1!, ADDDIS+10, ADDDIS+11, ADDDIS+14, COLPOINT+1!, COLPOINT+7, COLPOINT+8, COLPOINT+9, AWODT+1! , AWODT+6, EDIHIPAA+10!, EDIHIPAA+13, EDIHIPAA+20!, EDIHIPAA+23, EDIHIPAA+30!, EDIHIPAA+33, EDIHIPAA+40!, EDIHIPAA+43, EDIHIPAA+50! , EDIHIPAA+57!, EDIHIPAA+58, EDIHIPAA+65!, EDIHIPAA+72!, EDIHIPAA+73, EDIHIPAA+80!, EDIHIPAA+87!, EDIHIPAA+88, FIXADJ3+1!, FIXADJ3+3* , STUFFDCM+2!, STUFFDCM+10!, STUFFDCM+11, ADDF+7!, ADDF+13!, ADDF+15, ADDF+30!, ADDB+6!, ADDB+12!, ADDB+14* , ADDB+29!
DA(1	ADDDIS+9, ADDDIS+15, COLPOINT+6, COLPOINT+11, EDIHIPAA+12, EDIHIPAA+14, EDIHIPAA+22, EDIHIPAA+24, EDIHIPAA+32, EDIHIPAA+34 , EDIHIPAA+42, EDIHIPAA+44, EDIHIPAA+52, EDIHIPAA+54, EDIHIPAA+59, EDIHIPAA+60, EDIHIPAA+67, EDIHIPAA+69, EDIHIPAA+74, EDIHIPAA+75 , EDIHIPAA+82, EDIHIPAA+84, EDIHIPAA+89, EDIHIPAA+90
DA(2	EDIHIPAA+11, EDIHIPAA+14, EDIHIPAA+21, EDIHIPAA+24, EDIHIPAA+31, EDIHIPAA+34, EDIHIPAA+41, EDIHIPAA+44
DD	ADDF+13!, ADDB+12!
DIC	BAREV185+54~, BAREV185+56, ADDDIS+1!, COLPOINT+1!, AWODT+1!, EDIHIPAA+10!, EDIHIPAA+20!, EDIHIPAA+30!, EDIHIPAA+40!, EDIHIPAA+50! , EDIHIPAA+54, EDIHIPAA+57!, EDIHIPAA+65!, EDIHIPAA+69, EDIHIPAA+72!, EDIHIPAA+80!, EDIHIPAA+84, EDIHIPAA+87!, FIXADJ3+1!, STUFFDCM+2! , STUFFDCM+5, STUFFDCM+9, STUFFDCM+10!, ADDF+7!, ADDF+8, ADDF+13!, ADDF+30!, ADDB+6!, ADDB+7*, ADDB+12! , ADDB+29!
DIC(0	BAREV185+57, EDIHIPAA+53, EDIHIPAA+68, EDIHIPAA+83, STUFFDCM+6, ADDF+9, ADDB+8*
DIE	ADDDIS+1!, ADDDIS+15, COLPOINT+1!, COLPOINT+11, AWODT+1!, AWODT+5, EDIHIPAA+10!, EDIHIPAA+14, EDIHIPAA+20!, EDIHIPAA+24* , EDIHIPAA+30!, EDIHIPAA+34, EDIHIPAA+40!, EDIHIPAA+44, EDIHIPAA+50!, EDIHIPAA+57!, EDIHIPAA+60, EDIHIPAA+65!, EDIHIPAA+72!, EDIHIPAA+75 , EDIHIPAA+80!, EDIHIPAA+87!, EDIHIPAA+90, FIXADJ3+1!, FIXADJ3+2, STUFFDCM+2!, STUFFDCM+9, ADDF+7!, ADDF+13!, ADDF+14 , ADDF+30!, ADDB+6!, ADDB+12!, ADDB+13*, ADDB+29!
DIFQ	SORRY+1!, VCHK+5!
>> DIK	ADWO+4*
DINUM	ADDF+13!, ADDB+12!
DIR	ADDDIS+1!, COLPOINT+1!, AWODT+1!, EDIHIPAA+10!, EDIHIPAA+20!, EDIHIPAA+30!, EDIHIPAA+40!, EDIHIPAA+50!, EDIHIPAA+57!, EDIHIPAA+65! , EDIHIPAA+72!, EDIHIPAA+80!, EDIHIPAA+87!, FIXADJ3+1!, STUFFDCM+2!, STUFFDCM+10!, ADDF+7!, ADDF+13!, ADDF+30!, ADDB+6! , ADDB+12!, ADDB+29!
DO	ADDF+13!, ADDB+12!
DR	ADDDIS+1!, ADDDIS+12, ADDDIS+13, ADDDIS+14, COLPOINT+1!, COLPOINT+2, AWODT+1!, AWODT+2, EDIHIPAA+10!, EDIHIPAA+16 , EDIHIPAA+20!, EDIHIPAA+26, EDIHIPAA+30!, EDIHIPAA+36, EDIHIPAA+40!, EDIHIPAA+46, EDIHIPAA+50!, EDIHIPAA+57!, EDIHIPAA+62, EDIHIPAA+65! , EDIHIPAA+72!, EDIHIPAA+77, EDIHIPAA+80!, EDIHIPAA+87!, EDIHIPAA+92, FIXADJ3+1!, FIXADJ3+4, STUFFDCM+2!, STUFFDCM+10!, STUFFDCM+12 , ADDF+7!, ADDF+13!, ADDF+23, ADDF+24, ADDF+25, ADDF+26, ADDF+27, ADDF+28, ADDF+30!, ADDB+6! , ADDB+12!, ADDB+22, ADDB+23, ADDB+24, ADDB+25, ADDB+26, ADDB+27, ADDB+29!
DT	ADDDIS+4
DUZ	BAREV185+3, BAREV185+24
DUZ(0	BAREV185+7
DUZ(2	BAREV185+16, CKSESS+8, CKSESS+9, CKSESS+10, CKSESS+11, CKSESS+12, CKSESS+14, CKSESS+17, CKSESS+22*, LOOP+4
>> DUZ2	ADDDIS+7, ADDDIS+8, ADDDIS+9, ADDDIS+11, COLPOINT+3, COLPOINT+5, COLPOINT+6, COLPOINT+8, COLPOINT+9, AWODT+3* , AWODT+4*, AWODT+5, AWODT+6
ERASTAT	LOOP+1~, LOOP+10*
>> IENS	LOOP+5*, LOOP+6, LOOP+8, LOOP+9, LOOP+10
IOM	BAREV185+19, BAREV185+20, BAREV185+21, BAREV185+25, BAREV185+26, BAREV185+32, BAREV185+41, BAREV185+50, BAREV185+61, BAREV185+62 , BAREV185+63, BAREV185+74, BAREV185+76, SORRY+3, VCHK+4, EDIHIPAA+4, EDIHIPAA+5
>> PASSWORD	ADDF+17, ADDB+16
POSTING	LOOP+1~, LOOP+11*
>> REC	ADDF+3, ADDF+4, ADDB+2, ADDB+3
SAFEDUZ2	TASK~, CKSESS+22
>> SENDCMD	ADDF+18, ADDB+17
>> SESSDT	LOOP+6*, LOOP+7
SESSID	LOOP+1~, LOOP+3, LOOP+4, LOOP+5, LOOP+13
STAT	LOOP~, LOOP+4, LOOP+13
STATDATE	LOOP+1~, LOOP+9, LOOP+12
>> TARGETID	STUFFDCM+3*, STUFFDCM+12
>> TARGETIP	ADDF+21, ADDB+20
TRANIEN	EDIHIPAA+1~, EDIHIPAA+2*, EDIHIPAA+3, EDIHIPAA+11, EDIHIPAA+21, EDIHIPAA+31, EDIHIPAA+41, EDIHIPAA+52, EDIHIPAA+59, EDIHIPAA+67 , EDIHIPAA+74, EDIHIPAA+82, EDIHIPAA+89
>> TYPE	ADDF+19, ADDB+18
U	BAREV185+24, CKSESS+12, LOOP+2, COLPOINT+9
UDUZ	LOOP~, LOOP+2, LOOP+4, LOOP+5, LOOP+11
>> USERNAME	ADDF+16, ADDB+15
X	BAREV185+24, BAREV185+25, BAREV185+55, SORRY~, SORRY+2, ADDDIS+6, EDIHIPAA+51, EDIHIPAA+66, EDIHIPAA+81, STUFFDCM+4 , ADDF+10, ADDB+9
>> X1	ADDDIS+3*
>> X2	ADDDIS+4*
>> XPDDIQ("XPZ1"	BAREV185+82*
>> XPDDIQ("XPZ2"	BAREV185+82*
>> XPDENV	BAREV185+79
>> XPDQUIT	BAREV185+74, SORRY+2, VCHK+5
>> Y	BAREV185+60, LOOP+12*, EDIHIPAA+56, EDIHIPAA+58, EDIHIPAA+71, EDIHIPAA+73, EDIHIPAA+86, EDIHIPAA+88, STUFFDCM+8, STUFFDCM+11 , ADDF+12, ADDF+15, ADDB+11, ADDB+14

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAREV185

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items