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 |  Local Variables |  All
Print Page as PDF
Routine: LR72ENVC

Package: Lab Service

Routine: LR72ENVC


Information

LR72ENVC ; IHS/DIR/FJE - LR*5.2*72 PATCH ENVIRNMENT CHECK ROUTINE ;

Source Information

Source file <LR72ENVC.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 $$CJ^XLFSTR  
Registration 1 $$SITE^VASITE  
VA Fileman 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
EN ; Does not prevent loading of the transport global.

External References

Name Field # of Occurrence
^DIC EN+12
$$SITE^VASITE EN+8
$$CJ^XLFSTR EN+4, EN+5, EN+6, EN+9, EN+16, EN+17, EN+18, EN+19, EN+20, EN+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Terminal Device in not defined",80),!!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Please Log in to set local DUZ... variables",80),!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You are not a valid user on this system",80),!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"You must have a DEFAULT INSTITUTION defined in KERNEL SITE PARAMETERS FILE.",!!,$C(7)
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!?5,"Your Instituion File entry does not match your KERNEL SITE PARAMETERS FILE.",!!,$C(7)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You must have LAB V5.2 or greater Installed",80),!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: $C(7),!!,"You must have ",X," defined in file 68 to proceed with this install",!!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: $C(7),!!,"You must have the LR Subscript field in file 68 defined for ",X," to proceed with this install",!!
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: $C(7),!!,"You must have the ABBREVIATION field in file 68 defined for ",X," to proceed with this install",!!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,$C(7),$$CJ^XLFSTR("Check your file setup for SURGICAL PATHOLOGY. Refer to instructions in the Installation Guide",80)
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!,$C(7),$$CJ^XLFSTR("Check your file setup for CYTOPATHOLOGY. Refer to instructions in the Installation Guide",80)
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,$C(7),$$CJ^XLFSTR("Check your file setup for EM. Refer to instructions in the Installation Guide",80)
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !!,$C(7),$$CJ^XLFSTR("Check your file setup for AUTOPSY. Refer to instructions in the Installation Guide",80)
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Install environment check FAILED",80)
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Envirnment Check is Ok ---",80)
  • Line Location: EN+21
Routine Call
  • DIC
  • Line Location:
    • EN+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAM("VR" EN+9
^LRO(68 - [#68] EN+10
^VA(200 - [#200] EN+6
^XMB(1 - [#4.3] EN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC EN+11!*, EN+22!
DIC(0 EN+11*
DUZ EN+5, EN+6
DUZ(0 EN+5
IOM EN+4
IOSL EN+4
>> LRABV EN+13*, EN+15
>> LRSITE EN+7*, EN+8
>> LRSS EN+13*, EN+14, EN+16, EN+17, EN+18, EN+19
U EN+4, EN+7, EN+8, EN+13
>> X EN+11*, EN+12, EN+14, EN+15, EN+16, EN+17, EN+18, EN+19
>> XPDENV EN+3
>> XPDQUIT EN+5*, EN+6*, EN+7*, EN+8*, EN+9*, EN+12*, EN+14*, EN+15*, EN+16*, EN+17*
, EN+18*, EN+19*, EN+20, EN+21
>> Y EN+12
>> Y(0 EN+13
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All