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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRPRE1

Package: IHS Changes To Lab

Routine: BLRPRE1


Information

BLRPRE1 ; IHS/HQW/TPF - ENVIRONMENT CHECK FOR PATCH 13; [ 10/09/2002 6:55 AM ]

Source Information

Source file <BLRPRE1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS VA Utilities 2 $$DIR^XBDIR  $$C^XBFUNC  
VA Fileman 2 DT^DICRW  ^DIR  
Kernel 1 HOME^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
SORRY ;
VERSION ;
ENVOK ; If this is just an environ check, end here.

External References

Name Field # of Occurrence
HOME^%ZIS BLRPRE1+9
DT^DICRW BLRPRE1+9
^DIR ENVOK+12
$$DIR^XBDIR VERSION+7, VERSION+15
$$C^XBFUNC BLRPRE1+11, BLRPRE1+12, BLRPRE1+13, BLRPRE1+16, BLRPRE1+20, VERSION+4, VERSION+5, VERSION+13, VERSION+17, ENVOK+1
, SORRY+3, SORRY+4, SORRY+5, SORRY+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: BLRPRE1+5
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: BLRPRE1+7
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Who are you????")
  • Line Location: BLRPRE1+11
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,","))
  • Line Location: BLRPRE1+12
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Checking Environment for Patch "_$P($T(+2),";",5)_" of Version "_$P($T(+2),";",3)_" of "_$P($T(+2),";",4)_".")
  • Line Location: BLRPRE1+13
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Need at least FileMan 21.....FileMan "_X_" Present")
  • Line Location: BLRPRE1+16
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Need at least Kernel 8.0.....Kernel "_X_" Present")
  • Line Location: BLRPRE1+20
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Patch 1014 of version 5.2 of the RPMS Laboratory Package Cannot Be Installed Unless")
  • Line Location: VERSION+4
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Patch 1013 of version 5.2 Has not Been Previously Installed.")
  • Line Location: VERSION+5
Function Call: WRITE
  • Prompt: !!!,$$C^XBFUNC("Patch 1013 of version LR 5.2 Has Been Previously Installed......OK to continue")
  • Line Location: VERSION+17
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("ENVIRONMENT OK.")
  • Line Location: ENVOK+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ENVOK+8
Function Call: WRITE
  • Prompt: *7,!!!,$$C^XBFUNC("Sorry....something is wrong with your enviroment")
  • Line Location: SORRY+3
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Aborting Electronic Signature Plug-in install!")
  • Line Location: SORRY+4
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Please print/capture this screen and notify")
  • Line Location: SORRY+5
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("the Help Desk")
  • Line Location: SORRY+6
Function Call: WRITE
  • Prompt: !!,LINE
  • Line Location: SORRY+7
Routine Call
  • %ZIS
  • Line Location:
    • BLRPRE1+9
Routine Call
  • DIR
  • Line Location:
    • ENVOK+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("VERSION" BLRPRE1+15
^DIC(9.4 - [#9.4] BLRPRE1+19
^TMP("BLRAPRE" ENVOK+14*
^VA(200 - [#200] BLRPRE1+10
^XPD("9.7" VERSION+2, VERSION+10
^XPD(9.7 - [#9.7] VERSION+11

Label References

Name Line Occurrences
SORRY BLRPRE1+5, BLRPRE1+7, BLRPRE1+11, BLRPRE1+17, BLRPRE1+21, VERSION+6, VERSION+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % VERSION+2*, VERSION+3, VERSION+10*, VERSION+11
DIFQ SORRY+1!
>> DIR("A" ENVOK+11*
>> DIR("B" ENVOK+10*
>> DIR(0 ENVOK+9*
>> DIRUT ENVOK+13
DUZ BLRPRE1+5, BLRPRE1+10, ENVOK+14
DUZ(0 BLRPRE1+7
>> LINE BLRPRE1+2*, SORRY+7
>> LRSTATUS VERSION+11*, VERSION+12
U BLRPRE1+10, VERSION+11
>> X BLRPRE1+10*, BLRPRE1+11, BLRPRE1+12, BLRPRE1+15*, BLRPRE1+16, BLRPRE1+17, BLRPRE1+19*, BLRPRE1+20, BLRPRE1+21
>> XPDABORT BLRPRE1+4*, ENVOK+13*, SORRY+2*
>> XPDDIQ("XPZ1" ENVOK+5*
>> XPDDIQ("XPZ2" ENVOK+5*
>> XPDENV ENVOK+5
>> XPDNOQUE BLRPRE1+3*
>> Y ENVOK+13

Marked Items

Name Field # of Occurrence
$T( BLRPRE1+13
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All