Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BAREV185

Package: IHS Accounts Receivable

Routine: BAREV185


Information

BAREV185 ; IHS/SD/LSL - ENVIRONMENT CHECK V1.8 PATCH 5; 05/08/2008

Source Information

Source file <BAREV185.m>

Call Graph

Call Graph Total: 11

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

Marked Items

Name Field # of Occurrence
$T( BAREV185+26
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All