Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LR458

LR458.m

Go to the documentation of this file.
  1. LR458 ;DALOI/JMC - LA*5.2*458 KIDS ROUTINE ;9/2/15 11:40
  1. ;;5.2;AUTOMATED LAB INSTRUMENTS;**458**;Sep 27, 1994;Build 10
  1. ;
  1. PRE ;
  1. ; KIDS Pre install for LA*5.2*458
  1. D BMES("*** Pre install started ***")
  1. ;
  1. ;
  1. D BMES("*** Pre install completed ***")
  1. ;
  1. Q
  1. ;
  1. ;
  1. POST ;
  1. ; KIDS Post install for LA*5.2*458
  1. D BMES("*** Post install started ***")
  1. ;
  1. I $G(^TMP("LA88A",$J,1)) D RESTORE^LA88A
  1. ;
  1. ;
  1. D BMES("*** Post install completed ***")
  1. D BMES("Sending install completion alert to mail group G.LMI")
  1. S STR="Installation of patch "_$G(XPDNM,"Unknown patch")_" completed on "_$$HTE^XLFDT($H)
  1. D ALERT(STR)
  1. ;
  1. Q
  1. ;
  1. ;
  1. ALERT(MSG,RECIPS) ;
  1. N DA,DIK,XQA,XQAMSG
  1. S XQAMSG=$G(MSG)
  1. I '$$GOTLOCAL^XMXAPIG("LMI") S XQA("G.LMI")=""
  1. E S XQA(DUZ)=""
  1. I $D(RECIPS) M XQA=RECIPS
  1. D SETUP^XQALERT
  1. Q
  1. ;
  1. ;
  1. BMES(STR) ;
  1. ; Write string
  1. D BMES^XPDUTL($$TRIM^XLFSTR($$CJ^XLFSTR(STR,$G(IOM,80)),"R"," "))
  1. Q
  1. ;
  1. ;
  1. PROGRESS(LAST) ;
  1. ; Prints a "." when NOW > LAST + INT
  1. ; Input
  1. ; LAST : <byref> The last $H when "." was shown
  1. N INT
  1. S INT=1 ;interval in seconds
  1. I $P($H,",",2)>(+$P(LAST,",",2)+INT) S LAST=$H W "."
  1. Q
  1. ;
  1. ;
  1. PTG ;
  1. ; Pre-Transport Global routine
  1. Q
  1. ;
  1. ;
  1. MES(STR,CJ,LM) ;
  1. ; Display a string using MES^XPDUTL
  1. ; Inputs
  1. ; STR: String to display
  1. ; CJ: Center text? 1=yes 0=1 <dflt=1>
  1. ; LM: Left Margin (padding)
  1. N X
  1. S STR=$G(STR)
  1. S CJ=$G(CJ,1)
  1. S LM=$G(LM)
  1. I CJ S STR=$$TRIM^XLFSTR($$CJ^XLFSTR(STR,$G(IOM,80)),"R"," ")
  1. I 'CJ I LM S X="" S $P(X," ",LM)=" " S STR=X_STR
  1. D MES^XPDUTL(STR)
  1. Q