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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LR343

Package: Lab Service

Routine: LR343


Information

LR343 ;DALOI/JDB - LR*5.2*343 KIDS ROUTINE

Source Information

Source file <LR343.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
; Environment Check
; Does not prevent loading of the transport global.
CHECK ;
; Perform environment check
PRE ;
; KIDS Pre Install
; Check that install was tasked
; Check if any File #69.9 fields are set to "YES" If so send
; notification email.
; Disable Lab Protocols (set DISABLED field and set ACTION to Q)
; Hang so current processes started by protocols can end
POST ;
; KIDS Post Install
; Delete data in File #69.9 fields
; Remove #69.9 fields from Data Dictionary
; Email installation progress message
ALERT(MSG) ;
EMAIL(SUB,LRTXT,LRADDR) ;
; Sends an email message via MailMan using installer's DUZ
; SUB <byval> Subject for the message
; LRTXT <byval> Closed root local or global array
; ie local array TEXT(1) passed as "TEXT"
; LRADDR <byref> MailMan compatable array of message recipients
BLDBODY(STR,ARR) ;
; Adds a string to the end of the passed array
; Useful for building email message bodies
; STR <req> The string to add to the array
; ARR <byref> The array. Should be a simple, integer
; based subscript array ie X(1), X(2), etc.
GETVALS(NULL) ;
; Returns the values for #69.9 fields 150.3,150.4,150.5
; as a string ie 000 or 010 etc (each field is only 1 or 0)
UPDTPROT(IEN) ;
; Sets the PROTOCOL's (#101) DISABLE field (#2) to DISABLED
; and its ENTRY ACTION field (#20) to Q (QUIT)
MSGADD(TXT,LB) ;
; Utility to create a message global to save install
; messages and send later, usually via mailman. Useful
; when an install is tasked. It will print
; the messages out as they come in, as well as save them
; to the TMP global
; Input
; TXT <byref or byval>
; If $D(TXT)=1 then TXT is saved
; If $D(TXT)>9 then step through array and save each node
; as separate line.
; LB <opt> LineBreak (True then uses MBES -- False uses MES)
CLEAN ;
KILLDD(FIELD) ;
; Deletes the #69.9 field's DD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Environment check failed",$G(IOM,80))
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Environment is okay",$G(IOM,80))
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("*** Home device is not defined ***",$G(IOM,80))
  • Line Location: CHECK+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("*** Terminal Device is not defined ***",$G(IOM,80))
  • Line Location: CHECK+12
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("*** Please log in to set variables ***",$G(IOM,80))
  • Line Location: CHECK+17
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("*** You are not a valid user on this system ***",$G(IOM,80))
  • Line Location: CHECK+22
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(@NODE,$G(IOM,80))
  • Line Location: MSGADD+29
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(TXT,$G(IOM,80))
  • Line Location: MSGADD+36

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] FIND1^DIC
^LAB(69.9 - [#69.9] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call