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

AUT981P9.m

Go to the documentation of this file.
  1. AUT981P9 ;IHS/ASDST/GTH - AUT 98.1 PATCH 9 ; [ 01/07/2002 3:22 PM ]
  1. ;;98.1;IHS DICTIONARIES (POINTERS);**9**;MAR 04, 1998;Build 6
  1. ;
  1. ; IHS/ASDST/GTH AUT*98.1*9 01/07/2002
  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. I '(DUZ(0)["@") W:'$D(ZTQUEUED) !,"DUZ(0) DOES NOT CONTAIN AN '@'." 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)_" Patch "_$P($T(+2),";",5)_".",IOM)
  1. ;
  1. S X=$$VERSION^XPDUTL("AUT")
  1. W !!,$$CJ^XLFSTR("Need AUT v 98.1.....AUT v "_X_" Present",IOM)
  1. I X<98.1,+X'=1.1 D SORRY(2) Q
  1. ;
  1. Q:'$$VCHK("DI","21.0",2)
  1. Q:'$$VCHK("XU","8.0",2)
  1. ;
  1. NEW DA,DIC
  1. S X="AUT",DIC="^DIC(9.4,",DIC(0)="",D="C"
  1. D IX^DIC
  1. I Y<0,$D(^DIC(9.4,"C","AUT")) D Q
  1. . W !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUT"" prefix.",IOM)
  1. . W !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
  1. . W !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7
  1. . D SORRY(2)
  1. . I $$DIR^XBDIR("E")
  1. .Q
  1. W !,$$CJ^XLFSTR("No 'AUT' dups in PACKAGE file",IOM)
  1. ;
  1. ; The following line prevents the "Disable Options..." and "Move
  1. ; Routines..." questions from being asked during the install.
  1. I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1. ;
  1. W !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  1. ;
  1. I '$$DIR^XBDIR("E","","","","","",1) D SORRY(2) Q
  1. Q
  1. ;
  1. SORRY(X) ;
  1. KILL DIFQ
  1. S XPDQUIT=X
  1. W:'$D(ZTQUEUED) *7,!,$$CJ^XLFSTR("Sorry....",IOM),$$DIR^XBDIR("E","Press RETURN")
  1. Q
  1. ;
  1. VCHK(AUTPRE,AUTVER,AUTQUIT) ; Check versions needed.
  1. ;
  1. NEW AUTV
  1. S AUTV=$$VERSION^XPDUTL(AUTPRE)
  1. W !,$$CJ^XLFSTR("Need at least "_AUTPRE_" v "_AUTVER_"....."_AUTPRE_" v "_AUTV_" Present",IOM)
  1. I AUTV<AUTVER KILL DIFQ S XPDQUIT=AUTQUIT W *7,!,$$CJ^XLFSTR("Sorry....",IOM) S AUTV=$$DIR^XBDIR("E","Press RETURN") Q 0
  1. Q 1
  1. ;
  1. PRE ;EP - From KIDS.
  1. D BMES^XPDUTL("Beginning pre-install routine (PRE^AUT981P9).")
  1. D BMES^XPDUTL("Removing fields from RPMS SITE file.")
  1. NEW DA,DIK
  1. S DIK="^DD(9999999.3911,",DA(1)=9999999.3911,DA=.01
  1. D ^DIK
  1. KILL ^DD(9999999.3911) ; 4 of the 0th nodes aren't KILL'd by ^DIK.
  1. S DIK="^DD(9999999.39,",DA(1)=9999999.39
  1. F DA=1,2,1101 D ^DIK
  1. D BMES^XPDUTL("Pre-install routine is complete.")
  1. Q
  1. ;
  1. POST ;EP - From KIDS.
  1. D BMES^XPDUTL("Beginning post-install routine (POST^AUT981P9).")
  1. D BMES^XPDUTL("Delivering MailMan message to select users...")
  1. D MAIL
  1. D BMES^XPDUTL("Post-install routine is complete.")
  1. Q
  1. ;
  1. MAIL ; Send install mail message.
  1. NEW DIFROM,XMSUB,XMDUZ,XMTEXT,XMY
  1. KILL ^TMP("AUTP9MSG",$J)
  1. S ^TMP("AUTP9MSG",$J,1)=" --- AUT v 6, Patch 9, has been installed into this uci ---"
  1. S %=0
  1. F S %=$O(^XTMP("XPDI",XPDA,"BLD",XPDBLD,1,%)) Q:'% S ^TMP("AUTP9MSG",$J,(%+1))=" "_^(%,0)
  1. S XMSUB=$P($P($T(+1),";",2)," ",3,99),XMDUZ=$S($G(DUZ):DUZ,1:.5),XMTEXT="^TMP(""AUTP9MSG"",$J,",XMY(1)="",XMY(DUZ)=""
  1. F %="XUMGR","XUPROG","XUPROGMODE" D SINGLE(%)
  1. D ^XMD
  1. KILL ^TMP("AUTP9MSG",$J)
  1. Q
  1. ;
  1. SINGLE(K) ; Get holders of a single key K.
  1. NEW Y
  1. S Y=0
  1. Q:'$D(^XUSEC(K))
  1. F S Y=$O(^XUSEC(K,Y)) Q:'Y S XMY(Y)=""
  1. Q
  1. ;
  1. INSTALLD(AUT) ;EP - Determine if patch AUT was installed, where AUT is
  1. ; the name of the INSTALL. E.g "AUT*98.1*7".
  1. ;
  1. NEW DIC,X,Y
  1. ; lookup package.
  1. S X=$P(AUT,"*",1)
  1. S DIC="^DIC(9.4,",DIC(0)="FM",D="C"
  1. D IX^DIC
  1. I Y<1 Q 0
  1. ; lookup version.
  1. S DIC=DIC_+Y_",22,",X=$P(AUT,"*",2)
  1. D ^DIC
  1. I Y<1 Q 0
  1. ; lookup patch.
  1. S DIC=DIC_+Y_",""PAH"",",X=$P(AUT,"*",3)
  1. D ^DIC
  1. Q $S(Y<1:0,1:1)
  1. ;