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

AUM1012E.m

Go to the documentation of this file.
  1. AUM1012E ;IHS/HQ/ABK - UPDATE FOR FY 2010 ; [ 10/11/2010 12:40 PM ]
  1. ;;11.0;TABLE MAINTENANCE;**5**;Oct 15,2010
  1. ;AUM* 3.5.2010 IHS/OIT/ABK MODIFIED INTRO TEXT AND VERSION CHECKS
  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)_".",IOM)
  1. ;
  1. I $$VCHK("XU","8.0",2)
  1. I $$VCHK("DI","22.0",2)
  1. ;I $$VCHK("AUM","11.0",2)
  1. I $$VCHK2("AUM","11.0.2",2)
  1. ;
  1. NEW DA,DIC
  1. S X="AUM",DIC="^DIC(9.4,",DIC(0)="",D="C"
  1. D IX^DIC
  1. I Y<0,$D(^DIC(9.4,"C","AUM")) D
  1. . W !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUM"" prefix.",IOM)
  1. . W !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
  1. . D SORRY(2)
  1. .Q
  1. ;
  1. I $G(XPDQUIT) W !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7 Q
  1. ;
  1. W !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  1. D HELP^XBHELP("INTROE","AZHBENV")
  1. ;
  1. I $G(XPDENV)=1 D
  1. . ; The following line prevents the "Disable Options..." and "Move
  1. . ; Routines..." questions from being asked during the install.
  1. . S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1. . D HELP^XBHELP("INTROI","AZHBENV")
  1. .Q
  1. ;
  1. I '$$DIR^XBDIR("E","","","","","",1) D SORRY(2)
  1. Q
  1. ;
  1. SORRY(X) ;
  1. KILL DIFQ
  1. S XPDQUIT=X
  1. W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  1. Q
  1. ;
  1. VCHK(AUMPRE,AUMVER,AUMQUIT) ; Check versions needed.
  1. ;
  1. NEW AUMV
  1. S AUMV=$$VERSION^XPDUTL(AUMPRE)
  1. W !,$$CJ^XLFSTR("Need at least "_AUMPRE_" v "_AUMVER_"....."_AUMPRE_" v "_AUMV_" Present",IOM)
  1. I AUMV<AUMVER KILL DIFQ S XPDQUIT=AUMQUIT D SORRY(AUMQUIT) Q 0
  1. Q 1
  1. ;
  1. VCHK2(AUMPRE,AUMVER,AUMQUIT) ; Check patch level for AUM
  1. NEW AUMV
  1. S AUMV=$$VERSION^XPDUTL(AUMPRE)
  1. S PTCH=+$$LAST(AUMPRE,AUMV) S:PTCH=-1 DPTCH="" S:PTCH'=-1 DPTCH="."_PTCH
  1. W !,$$CJ^XLFSTR("Need at least "_AUMPRE_" v "_AUMVER_"....."_AUMPRE_" v "_AUMV_DPTCH_" Present",IOM)
  1. I (AUMV<($P(AUMVER,".",1,2))) KILL DIFQ S XPDQUIT=AUMQUIT D SORRY(AUMQUIT) Q 0
  1. I (AUMV=$P(AUMVER,".",1,2))&(PTCH<$P(AUMVER,".",3)) KILL DIFQ S XPDQUIT=AUMQUIT D SORRY(AUMQUIT) Q 0
  1. Q 1
  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. ;Set all existing codes to inactive
  1. D START^AUMP1012
  1. ;
  1. INTROE ; Intro text during KIDS Environment check.
  1. ;;This is the update to the standard code book tables. There are modifications
  1. ;;and additions to the following files: Community, Location, Tribe,
  1. ;;Reservation and Service Unit.
  1. ;;
  1. ;;The install message will report updates and failed updates to those files.
  1. ;;
  1. ;;###
  1. ;
  1. INTROI ; Intro text during KIDS Install.
  1. ;;If you run interactively, results will be displayed on your screen,
  1. ;;and recorded in the entry in the INSTALL file.
  1. ;;If you queue to TaskMan, remember not to Q to the HOME device.
  1. ;;###
  1. ;