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

AUPN9925.m

Go to the documentation of this file. 
  1. AUPN9925 ; IHS/OIT/FBD&NKD - AUPN V99.1 PATCH 25 ENVIRONMENT CHECKS AND POST-INIT PROCESS ; 07/14/2017
  1.  ;;99.1;IHS DICTIONARIES (PATIENT);**25**;MAR 9, 1999;Build 1
  1.  ;
  1.  ;
  1.  D:'$D(IOM) HOME^%ZIS
  1.  ;
  1.  ; The following line prevents the "Disable Options..." and "Move Routines..."
  1.  ;  questions from being asked during the install.
  1.  I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1.  F X="XPO1","XPZ1","XPZ2","XPI1" S XPDDIQ(X)=0
  1.  ;
  1.  I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY(2) Q
  1.  ;
  1.  I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY(2) Q
  1.  ;
  1.  S X=$P(^VA(200,DUZ,0),U)
  1.  W !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  1.  W !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_$S($L($P($T(+2),";",5))>4:" Patch "_$P($T(+2),";",5),1:"")_".",IOM),!
  1.  ;
  1.  ; REQUIRED VERSION/PATCH CHECKS
  1.  S:'$$VCHK("XU","8.0") XPDQUIT=2          ; KERNEL
  1.  S:'$$VCHK("DI","22.0") XPDQUIT=2         ; FILEMAN
  1.  S:'$$VCHK("AUPN","99.1","24") XPDQUIT=2  ; AUPN
  1.  S:'$$VCHK("AUT","98.1","28") XPDQUIT=2   ; AUT
  1.  ; END OF REQUIRED VERSION/PATCH CHECKS
  1.  ;
  1.  ; REQUIRED UPDATE GLOBALS
  1.  ;
  1.  ; ADDITIONAL CHECKS IF RE-INSTALLING
  1.  ;
  1.  I $G(XPDQUIT) W !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7 Q
  1.  ;
  1.  I +$G(XPDQUIT) D SORRY(XPDQUIT)
  1.  ;
  1.  ; END OF ENVIRONMENT CHECK RUN LOGIC
  1.  Q
  1.  ;
  1. SORRY(X) ; Environment check failure message
  1.  KILL DIFQ
  1.  S XPDQUIT=X
  1.  W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  1.  Q
  1.  ;
  1. VCHK(PRE,VER,PAT) ; Check patch level
  1.  N V,P
  1.  S V=$$VERSION^XPDUTL(PRE)
  1.  I (V<VER) K DIFQ D DISP(PRE,VER,$G(PAT),V,$G(P),0) Q 0
  1.  I '$D(PAT) D DISP(PRE,VER,$G(PAT),V,$G(P),1) Q 1
  1.  S P=+$$LAST(PRE,VER)
  1.  I (P<PAT) K DIFQ D DISP(PRE,VER,$G(PAT),VER,$G(P),0) Q 0
  1.  D DISP(PRE,VER,$G(PAT),VER,$G(P),1)
  1.  Q 1
  1.  ;
  1. GCHK(GL,MSG) ; Check for global
  1.  Q:'$L($G(GL)) 0
  1.  N S
  1.  S S="Requires "_$S('$L($G(MSG)):GL,1:$G(MSG))_"....."
  1.  S S=S_$S($D(@GL):"Present",1:"Not found ***FIX IT***")
  1.  W !,$$CJ^XLFSTR(S,IOM)
  1.  Q $S($D(@GL):1,1:0)
  1.  ;
  1. PCHK(PKG,VER,PAT) ; Check specific patch
  1.  N PKGIEN,VERIEN,PATIEN,S
  1.  S PKG=$G(PKG),VER=$G(VER),PAT=$G(PAT)
  1.  S S="Requires "_PKG_" v"_VER_" p"_PAT_"....."
  1.  D
  1.  . S PKGIEN=+$O(^DIC(9.4,"C",PKG,"")) Q:'PKGIEN
  1.  . S VERIEN=+$O(^DIC(9.4,PKGIEN,22,"B",VER,"")) Q:'VERIEN
  1.  . S PATIEN=+$O(^DIC(9.4,PKGIEN,22,VERIEN,"PAH","B",PAT,""))
  1.  S S=S_$S(+$G(PATIEN):"Present",1:"Not found ***FIX IT***")
  1.  W !,$$CJ^XLFSTR(S,IOM)
  1.  Q $S(+$G(PATIEN):1,1:0)
  1.  ;
  1. DISP(PRE,VER,PAT,V,P,R) ; Display requirement checking results
  1.  N S
  1.  S S="Need at least "_$G(PRE)_" v"_$G(VER)_$S($G(PAT)]"":" p"_$G(PAT),1:"")_"....."
  1.  S S=S_$G(PRE)_" v"_$G(V)_$S($G(P)]"":" p"_$G(P),1:"")_" Present"
  1.  S S=S_$S('R:" ***FIX IT***",1:"")
  1.  W !,$$CJ^XLFSTR(S,IOM)
  1.  Q
  1. LAST(PKG,VER) ; EP - returns last patch applied for a Package, PATCH^DATE
  1.  ;        Patch includes Seq # if Released
  1.  N PKGIEN,VERIEN,LATEST,PATCH,SUBIEN
  1.  I $G(VER)="" S VER=$$VERSION^XPDUTL(PKG) Q:'VER -1
  1.  S PKGIEN=$O(^DIC(9.4,"C",PKG,"")) Q:'PKGIEN -1
  1.  S VERIEN=$O(^DIC(9.4,PKGIEN,22,"B",VER,"")) Q:'VERIEN -1
  1.  S LATEST=-1,PATCH=-1,SUBIEN=0
  1.  F  S SUBIEN=$O(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN)) Q:SUBIEN'>0  D
  1.  . I $P(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN,0),U,2)>LATEST S LATEST=$P(^(0),U,2),PATCH=$P(^(0),U)
  1.  . I $P(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN,0),U,2)=LATEST,$P(^(0),U)>PATCH S PATCH=$P(^(0),U)
  1.  Q PATCH_U_LATEST
  1.  ;
  1. PRE ; EP FR KIDS
  1.  Q
  1.  ;
  1. POST ; EP FR KIDS
  1.  D BMES^XPDUTL("Delivering "_$G(XPDNM)_" install message to select users...")
  1.  D MAIL
  1.  Q
  1.  ;
  1. MAIL ;----- SEND INSTALL MAIL MESSAGE 
  1.  ;
  1.  NEW DIFROM,XMSUB,XMDUZ,XMTEXT,XMY
  1.  KILL ^TMP("AUPN9925",$J)
  1.  S ^TMP("AUPN9925",$J,1)=" --- AUPN v 99.1, Patch 25, has been installed into this uci ---"
  1.  S %=0
  1.  F  S %=$O(^XTMP("XPDI",XPDA,"BLD",XPDBLD,1,%)) Q:'%   S ^TMP("AUPN9925",$J,(%+1))=" "_^(%,0)
  1.  S XMSUB=$P($P($T(+1),";",2)," ",3,99),XMDUZ=$S($G(DUZ):DUZ,1:.5),XMTEXT="^TMP(""AUPN9925"",$J,",XMY(1)="",XMY(DUZ)=""
  1.  F %="XUMGR","XUPROG","XUPROGMODE" D SINGLE(%)
  1.  D ^XMD
  1.  KILL ^TMP("AUPN9925",$J)
  1.  Q
  1.  ;
  1. SINGLE(K) ;----- GET HOLDERS OF A SINGLE KEY K.
  1.  Q:'$D(^XUSEC(K))
  1.  N Y S Y=0 F  S Y=$O(^XUSEC(K,Y)) Q:'Y  S XMY(Y)=""
  1.  Q
  1.  ;