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

Package: IHS Accounts Receivable

Routine: BAREV18


Information

BAREV18 ; IHS/SD/LSL - ENVIRONMENT CHECK V1.8 ;

Source Information

Source file <BAREV18.m>

Call Graph

Call Graph Total: 5

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

Entry Points

Name Comments DBIA/ICR reference
INTROE ; Intro text during KIDS Environment check.
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.
SORRY(X) ;
INTROI ; Intro text during KIDS Install.
VCHK(BARPRE,BARVER,BARQUIT)

External References

Name Field # of Occurrence
IX^DIC BAREV18+53
$$DIR^XBDIR BAREV18+73
HELP^XBHELP BAREV18+64, BAREV18+70
$$CJ^XLFSTR BAREV18+15, BAREV18+16, BAREV18+25, BAREV18+36, BAREV18+45, BAREV18+55, BAREV18+56, BAREV18+57, BAREV18+61, BAREV18+63
, SORRY+3, VCHK+4
$$PATCH^XPDUTL INSTALLD+36
$$VERSION^XPDUTL BAREV18+43, VCHK+3, INSTALLD+33

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: BAREV18+7
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: BAREV18+11
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: BAREV18+15
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3),IOM)
  • Line Location: BAREV18+16
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least XU v8.0 Patch 1011..... "_$S(BARXU=0:"NOT ",1:"")_"Present",IOM)
  • Line Location: BAREV18+25
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least XB v3.0 Patch 11..... "_$S(BARXB=0:"NOT ",1:"")_"Present",IOM)
  • Line Location: BAREV18+36
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least ABM v2.5 Patch 1..... "_$S(BARABM=0:"NOT ",1:"")_" Present",IOM)
  • Line Location: BAREV18+45
Function Call: WRITE
  • Prompt: !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM)
  • Line Location: BAREV18+55
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("PACKAGE File with an ""BAR"" prefix.",IOM)
  • Line Location: BAREV18+56
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
  • Line Location: BAREV18+57
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7
  • Line Location: BAREV18+61
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: BAREV18+63
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:
    • BAREV18+53

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] BAREV18+54
^DIC(9.8 - [#9.8] BAREV18+44
^VA(200 - [#200] BAREV18+14

Label References

Name Line Occurrences
$$INSTALLD BAREV18+21, BAREV18+32
$$VCHK BAREV18+28, BAREV18+39
SORRY BAREV18+8, BAREV18+12, BAREV18+26, BAREV18+37, BAREV18+46, BAREV18+58, BAREV18+73, VCHK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BARABM BAREV18+42~, BAREV18+43*, BAREV18+44*, BAREV18+45, BAREV18+46
BARNM INSTALLD~, INSTALLD+33, INSTALLD+36, INSTALLD+38
BARPATCH INSTALLD+31~, INSTALLD+36*, INSTALLD+37, INSTALLD+38
BARPRE VCHK~, VCHK+3, VCHK+4
BARPT INSTALLD~, INSTALLD+36
BARQUIT VCHK~, VCHK+5
BARV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
BARVER VCHK~, VCHK+4, VCHK+5
BARVNUM INSTALLD+31~, INSTALLD+33*, INSTALLD+34, INSTALLD+38
BARVR INSTALLD~, INSTALLD+36
BARXB BAREV18+30~, BAREV18+32*, BAREV18+33*, BAREV18+36, BAREV18+37
BARXU BAREV18+19~, BAREV18+21*, BAREV18+22*, BAREV18+23*, BAREV18+25, BAREV18+26, BAREV18+34*
>> D BAREV18+52*
DA BAREV18+48~
DIC BAREV18+48~, BAREV18+50*
DIC(0 BAREV18+51*
DIFQ SORRY+1!, VCHK+5!
DUZ BAREV18+6, BAREV18+14
DUZ(0 BAREV18+10
IOM BAREV18+15, BAREV18+16, BAREV18+25, BAREV18+36, BAREV18+45, BAREV18+55, BAREV18+56, BAREV18+57, BAREV18+61, BAREV18+63
, SORRY+3, VCHK+4
U BAREV18+14
X BAREV18+14*, BAREV18+15, BAREV18+49*, SORRY~, SORRY+2
>> XPDDIQ("XPZ1" BAREV18+69*
>> XPDDIQ("XPZ2" BAREV18+69*
>> XPDENV BAREV18+66
>> XPDQUIT BAREV18+61, SORRY+2*, VCHK+5*
>> Y BAREV18+54

Marked Items

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