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

LA23.m

Go to the documentation of this file.
  1. LA23 ;DALISC/JMC - LA*5.2*23 PATCH ENVIRONMENT CHECK ROUTINE
  1. ;;5.2;LAB SERVICE;**23**;Feb 14, 1996
  1. EN ; Does not prevent loading of the transport global.
  1. ; Environment check is done only during the install.
  1. Q:'$G(XPDENV)
  1. D CHECK
  1. D EXIT
  1. Q
  1. ;
  1. CHECK ; Perform environment check
  1. N VER
  1. I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D Q
  1. . D BMES^XPDUTL($$CJ^XLFSTR("Terminal Device is not defined",80))
  1. . S XPDQUIT=2
  1. I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D Q
  1. . D BMES^XPDUTL($$CJ^XLFSTR("Please log in to set local DUZ... variables",80))
  1. . S XPDQUIT=2
  1. I '$D(^VA(200,$G(DUZ),0))#2 D Q
  1. . D BMES^XPDUTL($$CJ^XLFSTR("You are not a valid user on this system",80))
  1. . S XPDQUIT=2
  1. S VER=$$VERSION^XPDUTL("LA7")
  1. I VER'>5.1 D Q
  1. . D BMES^XPDUTL($$CJ^XLFSTR("You must have LAB MESSAGING V5.2 Installed",80))
  1. . S XPDQUIT=2
  1. I '$$PATCH^XPDUTL("LA*5.2*25") D Q
  1. . D BMES^XPDUTL($$CJ^XLFSTR("You must install patch LA*5.2*25",80))
  1. . S XPDQUIT=2
  1. ; Set lock if site using autodownload.
  1. I $D(^LAB(62.4,"AE")) D Q:$G(XPDQUIT)
  1. . L +^LA("ADL",0):10 Q:$T
  1. . S XPDQUIT=2
  1. . D BMES^XPDUTL("Unable to obtain lock on ^LA(""ADL"",0) node, auto download (LA7ADL) running!")
  1. . D BMES^XPDUTL("Install aborted!")
  1. ; Set lock to prevent LA7UIIN processing routine from running.
  1. L +^LAHM(62.49,"Z"):10
  1. I '$T D
  1. . S XPDQUIT=2
  1. . D BMES^XPDUTL("Unable to obtain lock on ^LAHM(62.49,""Z"") node, UI processing (LA7UIIN) running!")
  1. . D BMES^XPDUTL("Install aborted!")
  1. S XPDIQ("XPZ1","B")="NO"
  1. Q
  1. ;
  1. EXIT ;
  1. I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",80))
  1. I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80))
  1. Q
  1. ;
  1. POST ; KIDS Post install for LA*5.2*23
  1. N X
  1. S X=$$ADD^XPDMENU("LA INTERFACE","LA7 MAIN MENU")
  1. D BMES^XPDUTL("Option [LA7 MAIN MENU] was "_$S(X:"added",1:"NOT ADDED")_" to [LA INTERFACE] MENU")
  1. D BMES^XPDUTL("Moving entries in global ^LA(""ADL"",uid) to ^LA(""ADL"",""Q"",uid)")
  1. POST1 S X=0
  1. F S X=$O(^LA("ADL",X)) Q:X="" D
  1. . I X="Q"!(X="STOP") Q
  1. . S ^LA("ADL","Q",X)=""
  1. . K ^LA("ADL",X)
  1. D BMES^XPDUTL($$CJ^XLFSTR("Post install completed",80))
  1. I $D(^LAB(62.4,"AE")) D
  1. . L -^LA("ADL",0)
  1. L -^LAHM(62.49,"Z")
  1. Q