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: BAREV189

Package: IHS Accounts Receivable

Routine: BAREV189


Information

BAREV189 ; IHS/SD/LSL - ENVIRONMENT CHECK V1.8 PATCH 9; 11/05/2008

Source Information

Source file <BAREV189.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 3 (,IX)^DIC  ^DIE  $$GET1^DIQ  
IHS VA Utilities 2 $$DIR^XBDIR  HELP^XBHELP  
Kernel 2 $$CJ^XLFSTR  ($$PATCH,$$VERSION,BMES)^XPDUTL  

Entry Points

Name Comments DBIA/ICR reference
INTROE ; Intro text during KIDS Environment check.
INTROI ; Intro text during KIDS Install.
UP(BAR,X) ;
VCHK(BARPRE,BARVER,BARQUIT)
SORRY(X) ;
POST ;EP; CHECK AND CORRECT ZISH PARAMETER ENTRY
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.

External References

Name Field # of Occurrence
^DIC UP+4
IX^DIC BAREV189+48
^DIE UP+11
$$GET1^DIQ POST+6, POST+8
$$DIR^XBDIR BAREV189+77
HELP^XBHELP BAREV189+68, BAREV189+74
$$CJ^XLFSTR BAREV189+15, BAREV189+16, BAREV189+22, BAREV189+31, BAREV189+40, BAREV189+50, BAREV189+51, BAREV189+52, BAREV189+62, BAREV189+65
, BAREV189+67, SORRY+3, VCHK+4
$$PATCH^XPDUTL INSTALLD+13
$$VERSION^XPDUTL VCHK+3, INSTALLD+10
BMES^XPDUTL POST+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0"
  • Line Location: BAREV189+7
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL"
  • Line Location: BAREV189+11
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: BAREV189+15
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3),IOM)
  • Line Location: BAREV189+16
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least XU v8.0 Patch 1011..... "_$S(BARXU=0:"NOT ",1:"")_"Present",IOM)
  • Line Location: BAREV189+22
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least XB v3.0 Patch 11..... "_$S(BARXB=0:"NOT ",1:"")_"Present",IOM)
  • Line Location: BAREV189+31
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: BAREV189+40
Function Call: WRITE
  • Prompt: !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM)
  • Line Location: BAREV189+50
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("PACKAGE File with an ""BAR"" prefix.",IOM)
  • Line Location: BAREV189+51
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
  • Line Location: BAREV189+52
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7
  • Line Location: BAREV189+65
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: BAREV189+67
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: !,"UNABLE TO UPDATE ZISH PARAMETER ENTRY. TRY MANUALLY!!"
  • Line Location: UP+5
Routine Call
  • DIE
  • Line Location:
    • UP+11
Routine Call
  • DIC
  • Line Location:
    • UP+4
Routine Call
  • DIC
  • Line Location:
    • BAREV189+48

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIB(9888888.93 - [#9888888.93] POST+5
^DIC(9.4 - [#9.4] BAREV189+49
^VA(200 - [#200] BAREV189+14

Label References

Name Line Occurrences
$$INSTALLD BAREV189+19, BAREV189+28, BAREV189+37, BAREV189+60
$$VCHK BAREV189+25, BAREV189+34
SORRY BAREV189+8, BAREV189+12, BAREV189+23, BAREV189+32, BAREV189+41, BAREV189+53, BAREV189+63, BAREV189+77, VCHK+5
UP POST+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAR BAREV189+58~, BAREV189+60*, BAREV189+61*, BAREV189+62, BAREV189+63, POST+3~, POST+5*, POST+6, POST+8, POST+11
, UP~
BARABM BAREV189+36~, BAREV189+37*, BAREV189+38*, BAREV189+39*, BAREV189+40, BAREV189+41
BARNM INSTALLD~, INSTALLD+10, INSTALLD+13, INSTALLD+15
BARPATCH INSTALLD+8~, INSTALLD+13*, INSTALLD+14
BARPRE VCHK~, VCHK+3, VCHK+4
BARPT INSTALLD~, INSTALLD+13, INSTALLD+15
BARQUIT VCHK~, VCHK+5
BARREC POST+3~, POST+6*, POST+7, POST+8*, POST+9
BARS POST+3~, POST+4*, POST+5, POST+10, POST+11
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 BAREV189+27~, BAREV189+28*, BAREV189+29*, BAREV189+31, BAREV189+32
BARXU BAREV189+18~, BAREV189+19*, BAREV189+20*, BAREV189+21*, BAREV189+22, BAREV189+23, BAREV189+30*
>> D BAREV189+47*
DA BAREV189+43~, UP+1!, UP+6!, UP+8*, UP+12!
DD UP+6!
DIC BAREV189+43~, BAREV189+45*, UP+1!, UP+2*, UP+6!, UP+12!
DIC(0 BAREV189+46*, UP+3*
DIE UP+1!, UP+6!, UP+7*, UP+12!
DIFQ SORRY+1!, VCHK+5!
DINUM UP+6!
DIR UP+1!, UP+6!, UP+12!
DO UP+6!
DR UP+1!, UP+6!, UP+10*, UP+12!
DUZ BAREV189+6, BAREV189+14
DUZ(0 BAREV189+10
I BAREV189+58~, BAREV189+59*, BAREV189+60, BAREV189+61, BAREV189+62
IOM BAREV189+15, BAREV189+16, BAREV189+22, BAREV189+31, BAREV189+40, BAREV189+50, BAREV189+51, BAREV189+52, BAREV189+62, BAREV189+65
, BAREV189+67, SORRY+3, VCHK+4
>> TARGETIP UP+9*
U BAREV189+14
X BAREV189+14*, BAREV189+15, BAREV189+44*, SORRY~, SORRY+2, UP~
>> XPDDIQ("XPZ1" BAREV189+73*
>> XPDDIQ("XPZ2" BAREV189+73*
>> XPDENV BAREV189+70
XPDQUIT BAREV189+5!, BAREV189+65, SORRY+2*, VCHK+5*
>> Y BAREV189+49, UP+5, UP+8

Marked Items

Name Field # of Occurrence
$T( BAREV189+16
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