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

Package: IHS Changes To Lab

Routine: BLRAPRE


Information

BLRAPRE ; IHS/HQW/TPF - ENVIRONMENT CHECK FOR ELECTRONIC SIGNATURE ; [ 05/16/02 7:35 AM ]

Source Information

Source file <BLRAPRE.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 BLRAPRE+10
DT^DICRW BLRAPRE+10
^DIR ENVOK+8
$$DIR^XBDIR VERSION+7, VERSION+15
$$C^XBFUNC BLRAPRE+12, BLRAPRE+13, BLRAPRE+14, BLRAPRE+17, BLRAPRE+21, VERSION+4, VERSION+5, VERSION+13, VERSION+17, ENVOK+1
, SORRY+3, SORRY+4, SORRY+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: BLRAPRE+6
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: BLRAPRE+8
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Who are you????")
  • Line Location: BLRAPRE+12
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,","))
  • Line Location: BLRAPRE+13
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: BLRAPRE+14
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Need at least FileMan 21.....FileMan "_X_" Present")
  • Line Location: BLRAPRE+17
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Need at least Kernel 8.0.....Kernel "_X_" Present")
  • Line Location: BLRAPRE+21
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Patch 1013 of version 5.2 of the RPMS Laboratory Package Cannot Be Installed Unless")
  • Line Location: VERSION+4
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Patch 1012 of version 5.2 Has not Been Previously Installed.")
  • Line Location: VERSION+5
Function Call: WRITE
  • Prompt: !!!,$$C^XBFUNC("Patch 1012 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+4
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: !!,LINE
  • Line Location: SORRY+7
Routine Call
  • %ZIS
  • Line Location:
    • BLRAPRE+10
Routine Call
  • DIR
  • Line Location:
    • ENVOK+8

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
SORRY BLRAPRE+6, BLRAPRE+8, BLRAPRE+12, BLRAPRE+18, BLRAPRE+22, 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+7*
>> DIR("B" ENVOK+6*
>> DIR(0 ENVOK+5*
>> DIRUT ENVOK+9
DUZ BLRAPRE+6, BLRAPRE+11, ENVOK+10
DUZ(0 BLRAPRE+8
>> LINE BLRAPRE+3*, SORRY+7
>> LRSTATUS VERSION+11*, VERSION+12
U BLRAPRE+11, VERSION+11
>> X BLRAPRE+11*, BLRAPRE+12, BLRAPRE+13, BLRAPRE+16*, BLRAPRE+17, BLRAPRE+18, BLRAPRE+20*, BLRAPRE+21, BLRAPRE+22
>> XPDABORT BLRAPRE+5*, ENVOK+9*, SORRY+2*
>> XPDNOQUE BLRAPRE+4*
>> Y ENVOK+9

Marked Items

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