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

AUTP8.m

Go to the documentation of this file. 
  1. AUTP8 ; IHS/ASDST/GTH - AUT 98.1 PATCH 8 ; [ 06/04/2001  5:53 PM ]
  1.  ;;98.1;IHS DICTIONARIES (POINTERS);**8**;MAR 04, 1998;Build 6
  1.  ;
  1.  I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY(1) Q
  1.  ;
  1.  I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY(1) Q
  1.  ;
  1.  I '(DUZ(0)["@") W:'$D(ZTQUEUED) !,"DUZ(0) DOES NOT CONTAIN AN '@'." D SORRY(1) Q
  1.  ;
  1.  S X=$P(^VA(200,DUZ,0),U)
  1.  W !!,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,","))
  1.  W !!,$$C^XBFUNC("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),";",5)_".")
  1.  ;
  1.  S X=$$VERSION^XPDUTL("AUT")
  1.  W !!,$$C^XBFUNC("Need AUT v 98.1.....AUT v "_X_" Present")
  1.  I X<98.1 D SORRY(1) Q
  1.  ;
  1.  S X=$$VERSION^XPDUTL("DI")
  1.  W !,$$C^XBFUNC("Need at least FileMan 21.....FileMan "_X_" Present")
  1.  I X<21 D SORRY(1) Q
  1.  ;
  1.  S X=$$VERSION^XPDUTL("XU")
  1.  W !,$$C^XBFUNC("Need at least Kernel 8.....Kernel "_X_" Present")
  1.  I X<8 D SORRY(1) Q
  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,$$C^XBFUNC("You Have More Than One Entry In The"),!,$$C^XBFUNC("PACKAGE File with an ""AUT"" prefix.")
  1.  . W !,$$C^XBFUNC("One entry needs to be deleted.")
  1.  . W !,$$C^XBFUNC("FIX IT! Before Proceeding."),!!,*7,*7,*7
  1.  . D SORRY(1)
  1.  . I $$DIR^XBDIR("E")
  1.  .Q
  1.  W !,$$C^XBFUNC("No 'AUT' dups in PACKAGE file")
  1.  ;
  1.  ; If patches 1-7 have already been installed, don't load them.
  1.  I $G(XPDENV)=0 D  ; Run only during Load of Installation.
  1.  . NEW DA
  1.  . S DA(1)=+Y ; Y is set from previous DIC lookup into PACKAGE.
  1.  . S DA=$O(^DIC(9.4,DA(1),22,"B",98.1,0))
  1.  . F %=1:1:7 I $D(^DIC(9.4,DA(1),22,DA,"PAH","B",%)) S XPDQUIT("AUT*98.1*"_%)=1
  1.  .Q
  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 !!,$$C^XBFUNC("ENVIRONMENT OK.")
  1.  ;
  1.  NEW B
  1.  I $G(XPDA) S B=$O(^XTMP("XPDI",XPDA,"BLD",0))
  1.  I $G(B),$$DIR^XBDIR("Y","Do you want to see the notes","NO","Do you want to see the notes file for this patch","","",1) D
  1.  . S %=0
  1.  . F  S %=$O(^XTMP("XPDI",XPDA,"BLD",B,1,%)) Q:'%   W !,^(%,0) I '(%#20),'$$DIR^XBDIR("E","","","","","",1) Q
  1.  .Q
  1.  KILL B
  1.  ;
  1.  I '$$DIR^XBDIR("E","","","","","",1) D SORRY(1) Q
  1.  Q
  1.  ;
  1. SORRY(X) ;
  1.  KILL DIFQ
  1.  S XPDQUIT=X
  1.  F %=1:1:5 S XPDQUIT("AUT*98.1*"_%)=1
  1.  W:'$D(ZTQUEUED) *7,!,$$C^XBFUNC("Sorry...."),$$DIR^XBDIR("E","Press RETURN")
  1.  Q
  1.  ;
  1. PRE ;EP - From KIDS.
  1.  Q
  1.  D BMES^XPDUTL("Beginning pre-install routine (PRE^AUTP8).")
  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^AUTP8).")
  1.  D BMES^XPDUTL("Delivering MailMan message to select users...")
  1.  D SAVE
  1.  NEW DIFROM
  1.  D MAIL^XBMAIL("ACHSZMGP,ACRZ MANAGERS MENU,XUMGR-XUPROGMODE","MSG^AUTP8MSG")
  1.  S X="AUTP8MSG"
  1.  X ^%ZOSF("DEL")
  1.  D BMES^XPDUTL("Post-install routine is complete.")
  1.  Q
  1.  ;
  1. SAVE ; Save first few lines of install message into tmp global.
  1.  KILL ^TMP("AUTP8MSG",$J)
  1.  S ^TMP("AUTP8MSG",$J,1,0)="AUTP8MSG ; IHS/ASDST/GTH - AUT INSTALL MESSAGE ;"
  1.  S ^TMP("AUTP8MSG",$J,2,0)=$T(+2)
  1.  S ^TMP("AUTP8MSG",$J,3,0)="MSG ;;"
  1.  S ^TMP("AUTP8MSG",$J,4,0)=" ;;AUT V "_$P($T(+2),";",3)_" "_$P($T(+2),";",4)_", Patch "_$P($P($T(+2),";",5),"**",2)
  1.  S ^TMP("AUTP8MSG",$J,5,0)=" ;; --- AUT v 98.1, Patch 8, has been installed into this uci ---"
  1.  NEW B,XCM,DIE,XCN
  1.  S B=$O(^XTMP("XPDI","AUT*98.1*8","BLD",0))
  1.  I B S %=0 F  S %=$O(^XTMP("XPDI","AUT*98.1*8","BLD",B,1,%)) Q:'%   S ^TMP("AUTP8MSG",$J,(%+5),0)=" ;;"_^(%,0)
  1.  KILL B
  1.  S X="AUTP8MSG",DIE="^TMP(""AUTP8MSG"",$J,",XCN=0
  1.  X ^%ZOSF("SAVE")
  1.  KILL ^TMP("AUTP8MSG",$J)
  1.  Q
  1.  ;