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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 6 ^%ZIS  $$HTE^XLFDT  $$CJ^XLFSTR  (BMES,MES)^XPDUTL  SETUP^XQALERT  $$ACTIVE^XUSER  
VA FileMan 6 MSG^DIALOG  $$FIND1^DIC  FILE^DIE  ^DIK  CLEAN^DILF  GETS^DIQ  
MailMan 1 SENDMSG^XMXAPI  

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

External References

Name Field # of Occurrence
^%ZIS CHECK+5
MSG^DIALOG POST+17
$$FIND1^DIC PRE+48, PRE+51
FILE^DIE POST+14, UPDTPROT+7
^DIK KILLDD+6
CLEAN^DILF CLEAN+2
GETS^DIQ GETVALS+5
$$HTE^XLFDT EN+10, EN+12, PRE+9, PRE+63, POST+7, POST+24, POST+27
$$CJ^XLFSTR EN+7, EN+9, CHECK+8, CHECK+12, CHECK+17, CHECK+22, MSGADD+27, MSGADD+28, MSGADD+29, MSGADD+34
, MSGADD+35, MSGADD+36
SENDMSG^XMXAPI EMAIL+7
BMES^XPDUTL MSGADD+27, MSGADD+34
MES^XPDUTL MSGADD+28, MSGADD+35
SETUP^XQALERT ALERT+5
$$ACTIVE^XUSER CHECK+21

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
Routine Call
  • %ZIS
  • Line Location:
    • CHECK+5
Routine Call
  • DIALOG
  • Line Location:
    • POST+17
Routine Call
  • DIC
  • Line Location:
    • PRE+48
    • PRE+51
Routine Call
  • DIE
  • Line Location:
    • POST+14
    • UPDTPROT+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] FIND1^DIC
^LAB(69.9 - [#69.9] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("LR343" MSGADD+21, MSGADD+25*, MSGADD+33*, CLEAN+1!

Label References

Name Line Occurrences
$$GETVALS PRE+22
ALERT EN+10, EN+12, PRE+43, POST+27
BLDBODY PRE+25, PRE+27, PRE+29, PRE+31, PRE+32, PRE+36
CHECK EN+5
CLEAN EN+4, PRE+19, POST+30
EMAIL PRE+39, POST+29
KILLDD POST+20, POST+21, POST+22
MSGADD EN+13, PRE+9, PRE+15, PRE+16, PRE+17, PRE+18, PRE+41, PRE+44, PRE+47, PRE+50
, PRE+53, PRE+62, PRE+63, POST+7, POST+8, POST+19, POST+23, POST+24, POST+25
UPDTPROT PRE+49, PRE+52

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS CHECK+5*
ARR BLDBODY~
ARR( BLDBODY+9*
ARR("A" BLDBODY+8
BODY PRE+7~, PRE+25, PRE+27, PRE+29, PRE+31, PRE+32, PRE+36, PRE+40!
DA POST+5~, ALERT+1~, KILLDD+2~, KILLDD+4*
DA(1 KILLDD+5*
DIFROM EMAIL+6~
DIK POST+5~, ALERT+1~, KILLDD+2~, KILLDD+3*
DUZ CHECK+16, CHECK+21, PRE+37, POST+28, EMAIL+7
DUZ(0 CHECK+16
ERR PRE+7~
FIELD KILLDD~, KILLDD+4
IEN PRE+7~, PRE+48*, PRE+49, PRE+50, PRE+51*, PRE+52, PRE+53, UPDTPROT~, UPDTPROT+4*, UPDTPROT+5
, UPDTPROT+6
IO("Q" PRE+12
IOM EN+7, EN+9, CHECK+8, CHECK+11, CHECK+12, CHECK+17, CHECK+22, POST+17, MSGADD+27, MSGADD+28
, MSGADD+29, MSGADD+34, MSGADD+35, MSGADD+36
>> IOP CHECK+5*
IOSL CHECK+11
LB MSGADD~, MSGADD+18*, MSGADD+19*, MSGADD+20*, MSGADD+27, MSGADD+28, MSGADD+34, MSGADD+35
LRADDR EMAIL~, EMAIL+7
LRDATA GETVALS+3~
LRDATA( GETVALS+6
LRERR GETVALS+3~
LRFDA POST+5~, UPDTPROT+3~
LRFDA(1 POST+10*, POST+11*, POST+12*, UPDTPROT+5*, UPDTPROT+6*
LRMSG POST+5~, POST+15, UPDTPROT+3~
LRMSG2 POST+5~, POST+16!, POST+17, POST+19
LRTXT EMAIL~, EMAIL+7
MSG POST+13!, ALERT~, ALERT+2*, ALERT+3
NODE GETVALS+3~, GETVALS+7*, GETVALS+8*, MSGADD+16~, MSGADD+23*, MSGADD+24*, MSGADD+25, MSGADD+27, MSGADD+28, MSGADD+29
NULL GETVALS~
POP CHECK+2~, CHECK+5*, CHECK+6
POS MSGADD+16~
POSTERR POST+5~, POST+6*, POST+18*, POST+24, POST+27
PREERR PRE+7~, PRE+8*, PRE+62
RECIPS PRE+7~, PRE+39, POST+5~, POST+29
RECIPS( PRE+37*, POST+28*
RECIPS("G.LMI" PRE+38*
STR PRE+7~, PRE+24*, PRE+25, PRE+26*, PRE+27, PRE+28*, PRE+29, PRE+30*, PRE+31, PRE+33*
, PRE+34*, PRE+35*, PRE+36, BLDBODY~, BLDBODY+7*, BLDBODY+9
SUB EMAIL~, EMAIL+7, BLDBODY+6~, BLDBODY+8*, BLDBODY+9, MSGADD+16~, MSGADD+21*, MSGADD+25, MSGADD+26*, MSGADD+33
TXT MSGADD~, MSGADD+17*, MSGADD+22, MSGADD+32, MSGADD+33, MSGADD+34, MSGADD+35, MSGADD+36
U CHECK+11
VALS PRE+7~, PRE+22*, PRE+23, PRE+26, PRE+28, PRE+30
VALUES GETVALS+3~, GETVALS+4*, GETVALS+8*, GETVALS+9
XMERR EMAIL+6~
XMZ EMAIL+6~, EMAIL+8
>> XPDABORT PRE+14*
>> XPDDIQ("XPZ1" CHECK+26*, CHECK+27*
>> XPDENV EN+11, MSGADD+27, MSGADD+28, MSGADD+29, MSGADD+34, MSGADD+35, MSGADD+36
>> XPDNM EN+10, EN+12, POST+27, POST+29
>> XPDQUIT EN+6, CHECK+7*, CHECK+13*, CHECK+18*, CHECK+23*, PRE+13*
XQA ALERT+1~
XQA("G.LMI" ALERT+4*
XQAMSG ALERT+1~, ALERT+3*
>> ZTQUEUED PRE+12
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All