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

Package: GUI Generic Tools

Routine: BGU15E


Information

BGU15E ; IHS/OIT/MJL - ENVIRONMENT CHECK FOR PATIENT CHART ; [ 04/14/2008 4:46 PM ]

Source Information

Source file <BGU15E.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
GUI Generic Tools 2 ^BGULIST2  ^BGUXUSRB  
IHS VA Utilities 2 $$DIR^XBDIR  $$C^XBFUNC  
Kernel 2 HOME^%ZIS  ($$VERSION,BMES)^XPDUTL  
VA Fileman 2 DT^DICRW  ^DIR  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS BGU15E+10
^BGULIST2 OTHER+5
^BGUXUSRB OTHER+3, OTHER+4
DT^DICRW BGU15E+10
^DIR ENVOK+12
$$DIR^XBDIR VERSION+7
$$C^XBFUNC BGU15E+12, BGU15E+13, BGU15E+14, BGU15E+17, BGU15E+21, BGU15E+26, VERSION+4, VERSION+5, OTHER+3, OTHER+4
, OTHER+5, ENVOK+1, SORRY+3, SORRY+4, SORRY+5, SORRY+6, SORRY+7
$$VERSION^XPDUTL BGU15E+24
BMES^XPDUTL SORRY+9, SORRY+10, SORRY+11, SORRY+12, SORRY+13, SORRY+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: BGU15E+6
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: BGU15E+8
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Who are you????")
  • Line Location: BGU15E+12
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,","))
  • Line Location: BGU15E+13
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Checking Environment for Beta Install of Version "_$P($T(+2),";",3)_" of "_$P($T(+2),";",4)_".")
  • Line Location: BGU15E+14
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Need at least FileMan 22.....FileMan "_X_" Present")
  • Line Location: BGU15E+17
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Need at least Kernel 8.0.....Kernel "_X_" Present")
  • Line Location: BGU15E+21
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC(XPX_" 1.5....."_XPX_" "_X_" Present")
  • Line Location: BGU15E+26
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC($P(^XTMP("XPDI",XPDST,"BLD",XPDBLD,0),U,1)_" "_$P(^XTMP("XPDI",XPDST,"BLD",XPDBLD,0),U,2)_" Cannot Be Installed Unless")
  • Line Location: VERSION+4
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("File 200 PCC Conversion Has Been Previously Completed.")
  • Line Location: VERSION+5
Function Call: WRITE
  • Prompt: !!,"Checking for IHS RPC BROKER Patch..."
  • Line Location: OTHER+2
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("IHS RPC BROKER Version 1.5, Patch 1 Is Not Installed")
  • Line Location: OTHER+3
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("IHS RPC BROKER Version 1.5, Patch 2 Is Not Installed")
  • Line Location: OTHER+4
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("IHS RPC BROKER Version 1.5, Patch 3 Is Not Installed")
  • Line Location: OTHER+5
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 environment")
  • Line Location: SORRY+3
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Aborting "_XPDNM_" install!")
  • Line Location: SORRY+4
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Correct error and reinstall otherwise")
  • Line Location: SORRY+5
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("please print/capture this screen and notify")
  • Line Location: SORRY+6
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("the Help Desk")
  • Line Location: SORRY+7
Function Call: WRITE
  • Prompt: !!,LINE
  • Line Location: SORRY+8
Routine Call
  • %ZIS
  • Line Location:
    • BGU15E+10
Routine Call
  • DIR
  • Line Location:
    • ENVOK+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTSITE(1 VERSION+2
^DD("VERSION" BGU15E+16
^DIC(9.4 - [#9.4] BGU15E+20
^TMP("BPCPRE" ENVOK+14*
^VA(200 - [#200] BGU15E+11
^XTMP("XPDI" VERSION+2, VERSION+4

Label References

Name Line Occurrences
SORRY BGU15E+6, BGU15E+8, BGU15E+12, BGU15E+18, BGU15E+22, BGU15E+27, VERSION+6, OTHER+3, OTHER+4, OTHER+5
, ENVOK+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % VERSION+2*, VERSION+3
DIFQ SORRY+1!
>> DIR("A" ENVOK+11*
>> DIR("B" ENVOK+10*
>> DIR(0 ENVOK+9*
>> DIRUT ENVOK+13
DUZ BGU15E+6, BGU15E+11, ENVOK+14
DUZ(0 BGU15E+8
>> LINE BGU15E+3*, SORRY+8
U BGU15E+11, VERSION+2, VERSION+4
>> X BGU15E+11*, BGU15E+12, BGU15E+13, BGU15E+16*, BGU15E+17, BGU15E+18, BGU15E+20*, BGU15E+21, BGU15E+22, BGU15E+24*
, BGU15E+25*, BGU15E+26, BGU15E+27
>> XPDA VERSION+2
>> XPDABORT BGU15E+5*, ENVOK+13*, SORRY+2*
>> XPDBLD VERSION+2*, VERSION+4
>> XPDDIQ("XPZ1" ENVOK+5*
>> XPDDIQ("XPZ2" ENVOK+5*
>> XPDENV ENVOK+5
>> XPDNM SORRY+4, SORRY+11
>> XPDNOQUE BGU15E+4*
>> XPDST VERSION+4
>> XPX BGU15E+6*, BGU15E+8*, BGU15E+12*, BGU15E+18*, BGU15E+22*, BGU15E+24*, BGU15E+26, VERSION+6*, OTHER+3*, OTHER+4*
, OTHER+5*, ENVOK+13*, SORRY+10
>> Y ENVOK+13

Marked Items

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