Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LR72ENVC

Package: Lab Service

Routine: LR72ENVC


Information

LR72ENVC ;DALISC/CYM - LR*5.2*72 PATCH ENVIRNMENT CHECK ROUTINE

Source Information

Source file <LR72ENVC.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls