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 ;VA/DALOI/JDB - LR*5.2*343 KIDS ROUTINE

Source Information

Source file <LR343.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 6 MSG^DIALOG  $$FIND1^DIC  FILE^DIE  ^DIK  CLEAN^DILF  GETS^DIQ  
Kernel 5 ^%ZIS  $$HTE^XLFDT  ($$CJ,$$UP)^XLFSTR  (BMES,MES)^XPDUTL  $$ACTIVE^XUSER  
IHS VA Utilities 1 EN^XBVIDEO  

Entry Points

Name Comments DBIA/ICR reference
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
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)
EN ;
; Environment Check
; Does not prevent loading of the transport global.
UPDTPROT(IEN) ;
; Sets the PROTOCOL's (#101) DISABLE field (#2) to DISABLED
; and its ENTRY ACTION field (#20) to Q (QUIT)
PASSMESG(WOT) ; EP -- Splash message
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)
ALERT(MSG) ;
CLEAN ;
; K ^TMP("LR343",$J)
BIGHONK ; EP - Big, Honking Warning Message
KILLDD(FIELD) ;
; Deletes the #69.9 field's DD
POST ;
; KIDS Post Install
; Delete data in File #69.9 fields
; Remove #69.9 fields from Data Dictionary
; Email installation progress message
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
CHECK ;
; Perform environment check

External References

Name Field # of Occurrence
^%ZIS CHECK+5
MSG^DIALOG POST+17
$$FIND1^DIC PRE+52, PRE+55
FILE^DIE POST+14, UPDTPROT+7
^DIK KILLDD+6
CLEAN^DILF CLEAN+2
GETS^DIQ GETVALS+5
EN^XBVIDEO PASSMESG+4
$$HTE^XLFDT EN+4, EN+15, EN+17, PRE+9, PRE+75, POST+7, POST+24, POST+27, BIGHONK+8
$$CJ^XLFSTR EN+4, EN+10, EN+13, CHECK+8, CHECK+12, CHECK+17, CHECK+22, MSGADD+27, MSGADD+28, MSGADD+30
, MSGADD+35, MSGADD+36, MSGADD+38, PASSMESG+13, PASSMESG+14, PASSMESG+15
$$UP^XLFSTR BIGHONK+8
BMES^XPDUTL EN+4, EN+10, EN+13, MSGADD+27, MSGADD+30, MSGADD+35, MSGADD+38
MES^XPDUTL MSGADD+28, MSGADD+36
$$ACTIVE^XUSER CHECK+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Environment check failed",$G(IOM,80))
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Environment is okay",$G(IOM,80))
  • Line Location: EN+12
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+37
Function Call: WRITE
  • Prompt: !
  • Line Location: BIGHONK+2
Function Call: WRITE
  • Prompt: ?4,"This install must now pause for 5 minutes in order to let all existing",!
  • Line Location: BIGHONK+3
Function Call: WRITE
  • Prompt: ?4,"events clear so that ""Can't Return To Source"" errors do not occur when",!
  • Line Location: BIGHONK+4
Function Call: WRITE
  • Prompt: ?4,"the LR70 MOVEMENT EVENT and LR70 MOVEMENT EVENT TASK protocols are",!
  • Line Location: BIGHONK+5
Function Call: WRITE
  • Prompt: ?4,"modified.",!!
  • Line Location: BIGHONK+6
Function Call: WRITE
  • Prompt: ?4,"An error would cause the other chained events not to be processed.",!!
  • Line Location: BIGHONK+7
Function Call: WRITE
  • Prompt: ?4,"Your patience is appreciated. Pause begins NOW at ",$$UP^XLFSTR($$HTE^XLFDT($H,"5MPZ")),".",!
  • Line Location: BIGHONK+8
Function Call: WRITE
  • Prompt: $J("",80),!
  • Line Location: PASSMESG+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PASSMESG+10
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+11
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+12
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(AROUND,IOM)," @","* "),!
  • Line Location: PASSMESG+13
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(MAXIT,IOM)," @","* "),!
  • Line Location: PASSMESG+14
Function Call: WRITE
  • Prompt: $TR($$CJ^XLFSTR(AROUND,IOM)," @","* "),!
  • Line Location: PASSMESG+15
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+16
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","*"),!
  • Line Location: PASSMESG+17
Routine Call
  • DIC
  • Line Location:
    • PRE+52
    • PRE+55
Routine Call
  • DIE
  • Line Location:
    • POST+14
    • UPDTPROT+7
Routine Call
  • DIALOG
  • Line Location:
    • POST+17
Routine Call
  • %ZIS
  • Line Location:
    • CHECK+5

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+34*

Label References

Name Line Occurrences
$$GETVALS PRE+26
ALERT EN+15, EN+17, PRE+47, POST+27
BIGHONK PRE+69
BLDBODY PRE+29, PRE+31, PRE+33, PRE+35, PRE+36, PRE+40
CHECK EN+7
CLEAN EN+6, POST+30
EMAIL PRE+43, POST+29
KILLDD POST+20, POST+21, POST+22
MSGADD PRE+9, PRE+45, PRE+51, PRE+54, PRE+57, PRE+74, PRE+75, POST+7, POST+8, POST+19
, POST+23, POST+24
PASSMESG BIGHONK+1
UPDTPROT PRE+53, PRE+56

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS CHECK+5*
AROUND PASSMESG+1~, PASSMESG+7*, PASSMESG+13, PASSMESG+15
ARR BLDBODY~
ARR( BLDBODY+9*
ARR("A" BLDBODY+8
BODY PRE+7~, PRE+29, PRE+31, PRE+33, PRE+35, PRE+36, PRE+40, PRE+44!
CRTLINE PASSMESG+1~, PASSMESG+3*
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+41, POST+28
DUZ(0 CHECK+16
ERR PRE+7~
FIELD KILLDD~, KILLDD+4
IEN PRE+7~, PRE+52*, PRE+53, PRE+54, PRE+55*, PRE+56, PRE+57, UPDTPROT~, UPDTPROT+4*, UPDTPROT+5
, UPDTPROT+6
IOM EN+4, CHECK+8, CHECK+11, CHECK+12, CHECK+17, CHECK+22, POST+17, MSGADD+27, MSGADD+28, MSGADD+30
, MSGADD+35, MSGADD+36, MSGADD+38, PASSMESG+11, PASSMESG+12, PASSMESG+13, PASSMESG+14, PASSMESG+15, PASSMESG+16, PASSMESG+17
>> IOP CHECK+5*
IOSL CHECK+11
>> J PASSMESG+6*
LB MSGADD~, MSGADD+18*, MSGADD+19*, MSGADD+20*, MSGADD+27, MSGADD+28, MSGADD+35, MSGADD+36
LRADDR EMAIL~
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~
MAXIT PASSMESG+1~, PASSMESG+5*, PASSMESG+6*, PASSMESG+7, PASSMESG+8*, PASSMESG+14
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+30
NULL GETVALS~
POP CHECK+2~, CHECK+5*, CHECK+6
POS MSGADD+16~
POSTERR POST+5~, POST+6*, POST+24, POST+27
PREERR PRE+7~, PRE+8*, PRE+74
RECIPS PRE+7~, PRE+43, POST+5~, POST+29
RECIPS( PRE+41*, POST+28*
RECIPS("G.LMI" PRE+42*
STR PRE+7~, PRE+28*, PRE+29, PRE+30*, PRE+31, PRE+32*, PRE+33, PRE+34*, PRE+35, PRE+37*
, PRE+38*, PRE+39*, PRE+40, BLDBODY~, BLDBODY+7*, BLDBODY+9
SUB EMAIL~, BLDBODY+6~, BLDBODY+8*, BLDBODY+9, MSGADD+16~, MSGADD+21*, MSGADD+25, MSGADD+26*, MSGADD+34
TXT MSGADD~, MSGADD+17*, MSGADD+22, MSGADD+33, MSGADD+34, MSGADD+35, MSGADD+36, MSGADD+38
U CHECK+11
VALS PRE+7~, PRE+26*, PRE+27, PRE+30, PRE+32, PRE+34
VALUES GETVALS+3~, GETVALS+4*, GETVALS+8*, GETVALS+9
WOT PASSMESG~, PASSMESG+6
XMERR EMAIL+6~
XMZ EMAIL+6~, EMAIL+8
>> XPDDIQ("XPZ1" CHECK+26*, CHECK+27*
>> XPDENV EN+16, MSGADD+27, MSGADD+28, MSGADD+30, MSGADD+35, MSGADD+36, MSGADD+38
>> XPDNM EN+4, EN+10, EN+13, EN+15, EN+17, POST+27, POST+29
>> XPDQUIT EN+8, CHECK+7*, CHECK+13*, CHECK+18*, CHECK+23*
XQA ALERT+1~
XQA("G.LMI" ALERT+4*
XQAMSG ALERT+1~, ALERT+3*
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