- AUM1012E ;IHS/HQ/ABK - UPDATE FOR FY 2010 ; [ 10/11/2010 12:40 PM ]
- ;;11.0;TABLE MAINTENANCE;**5**;Oct 15,2010
- ;AUM* 3.5.2010 IHS/OIT/ABK MODIFIED INTRO TEXT AND VERSION CHECKS
- ;
- I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY(2) Q
- ;
- I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY(2) Q
- ;
- S X=$P(^VA(200,DUZ,0),U)
- W !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
- W !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_".",IOM)
- ;
- I $$VCHK("XU","8.0",2)
- I $$VCHK("DI","22.0",2)
- ;I $$VCHK("AUM","11.0",2)
- I $$VCHK2("AUM","11.0.2",2)
- ;
- NEW DA,DIC
- S X="AUM",DIC="^DIC(9.4,",DIC(0)="",D="C"
- D IX^DIC
- I Y<0,$D(^DIC(9.4,"C","AUM")) D
- . W !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUM"" prefix.",IOM)
- . W !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
- . D SORRY(2)
- .Q
- ;
- I $G(XPDQUIT) W !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7 Q
- ;
- W !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
- D HELP^XBHELP("INTROE","AZHBENV")
- ;
- I $G(XPDENV)=1 D
- . ; The following line prevents the "Disable Options..." and "Move
- . ; Routines..." questions from being asked during the install.
- . S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
- . D HELP^XBHELP("INTROI","AZHBENV")
- .Q
- ;
- I '$$DIR^XBDIR("E","","","","","",1) D SORRY(2)
- Q
- ;
- SORRY(X) ;
- KILL DIFQ
- S XPDQUIT=X
- W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
- Q
- ;
- VCHK(AUMPRE,AUMVER,AUMQUIT) ; Check versions needed.
- ;
- NEW AUMV
- S AUMV=$$VERSION^XPDUTL(AUMPRE)
- W !,$$CJ^XLFSTR("Need at least "_AUMPRE_" v "_AUMVER_"....."_AUMPRE_" v "_AUMV_" Present",IOM)
- I AUMV<AUMVER KILL DIFQ S XPDQUIT=AUMQUIT D SORRY(AUMQUIT) Q 0
- Q 1
- ;
- VCHK2(AUMPRE,AUMVER,AUMQUIT) ; Check patch level for AUM
- NEW AUMV
- S AUMV=$$VERSION^XPDUTL(AUMPRE)
- S PTCH=+$$LAST(AUMPRE,AUMV) S:PTCH=-1 DPTCH="" S:PTCH'=-1 DPTCH="."_PTCH
- W !,$$CJ^XLFSTR("Need at least "_AUMPRE_" v "_AUMVER_"....."_AUMPRE_" v "_AUMV_DPTCH_" Present",IOM)
- I (AUMV<($P(AUMVER,".",1,2))) KILL DIFQ S XPDQUIT=AUMQUIT D SORRY(AUMQUIT) Q 0
- I (AUMV=$P(AUMVER,".",1,2))&(PTCH<$P(AUMVER,".",3)) KILL DIFQ S XPDQUIT=AUMQUIT D SORRY(AUMQUIT) Q 0
- Q 1
- LAST(PKG,VER) ;EP - returns last patch applied for a Package, PATCH^DATE
- ; Patch includes Seq # if Released
- N PKGIEN,VERIEN,LATEST,PATCH,SUBIEN
- I $G(VER)="" S VER=$$VERSION^XPDUTL(PKG) Q:'VER -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 LATEST=-1,PATCH=-1,SUBIEN=0
- F S SUBIEN=$O(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN)) Q:SUBIEN'>0 D
- . I $P(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN,0),U,2)>LATEST S LATEST=$P(^(0),U,2),PATCH=$P(^(0),U)
- . I $P(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN,0),U,2)=LATEST,$P(^(0),U)>PATCH S PATCH=$P(^(0),U)
- Q PATCH_U_LATEST
- ;
- PRE ; EP FR KIDS
- ;Set all existing codes to inactive
- D START^AUMP1012
- ;
- INTROE ; Intro text during KIDS Environment check.
- ;;This is the update to the standard code book tables. There are modifications
- ;;and additions to the following files: Community, Location, Tribe,
- ;;Reservation and Service Unit.
- ;;
- ;;The install message will report updates and failed updates to those files.
- ;;
- ;;###
- ;
- INTROI ; Intro text during KIDS Install.
- ;;If you run interactively, results will be displayed on your screen,
- ;;and recorded in the entry in the INSTALL file.
- ;;If you queue to TaskMan, remember not to Q to the HOME device.
- ;;###
- ;
- AUM1012E ;IHS/HQ/ABK - UPDATE FOR FY 2010 ; [ 10/11/2010 12:40 PM ]
- +1 ;;11.0;TABLE MAINTENANCE;**5**;Oct 15,2010
- +2 ;AUM* 3.5.2010 IHS/OIT/ABK MODIFIED INTRO TEXT AND VERSION CHECKS
- +3 ;
- +4 IF '$GET(DUZ)
- WRITE !,"DUZ UNDEFINED OR 0."
- DO SORRY(2)
- QUIT
- +5 ;
- +6 IF '$LENGTH($GET(DUZ(0)))
- WRITE !,"DUZ(0) UNDEFINED OR NULL."
- DO SORRY(2)
- QUIT
- +7 ;
- +8 SET X=$PIECE(^VA(200,DUZ,0),U)
- +9 WRITE !!,$$CJ^XLFSTR("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,","),IOM)
- +10 WRITE !!,$$CJ^XLFSTR("Checking Environment for "_$PIECE($TEXT(+2),";",4)_" V "_$PIECE($TEXT(+2),";",3)_".",IOM)
- +11 ;
- +12 IF $$VCHK("XU","8.0",2)
- +13 IF $$VCHK("DI","22.0",2)
- +14 ;I $$VCHK("AUM","11.0",2)
- +15 IF $$VCHK2("AUM","11.0.2",2)
- +16 ;
- +17 NEW DA,DIC
- +18 SET X="AUM"
- SET DIC="^DIC(9.4,"
- SET DIC(0)=""
- SET D="C"
- +19 DO IX^DIC
- +20 IF Y<0
- IF $DATA(^DIC(9.4,"C","AUM"))
- Begin DoDot:1
- +21 WRITE !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUM"" prefix.",IOM)
- +22 WRITE !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
- +23 DO SORRY(2)
- +24 QUIT
- End DoDot:1
- +25 ;
- +26 IF $GET(XPDQUIT)
- WRITE !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7
- QUIT
- +27 ;
- +28 WRITE !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
- +29 DO HELP^XBHELP("INTROE","AZHBENV")
- +30 ;
- +31 IF $GET(XPDENV)=1
- Begin DoDot:1
- +32 ; The following line prevents the "Disable Options..." and "Move
- +33 ; Routines..." questions from being asked during the install.
- +34 SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
- +35 DO HELP^XBHELP("INTROI","AZHBENV")
- +36 QUIT
- End DoDot:1
- +37 ;
- +38 IF '$$DIR^XBDIR("E","","","","","",1)
- DO SORRY(2)
- +39 QUIT
- +40 ;
- SORRY(X) ;
- +1 KILL DIFQ
- +2 SET XPDQUIT=X
- +3 WRITE *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
- +4 QUIT
- +5 ;
- VCHK(AUMPRE,AUMVER,AUMQUIT) ; Check versions needed.
- +1 ;
- +2 NEW AUMV
- +3 SET AUMV=$$VERSION^XPDUTL(AUMPRE)
- +4 WRITE !,$$CJ^XLFSTR("Need at least "_AUMPRE_" v "_AUMVER_"....."_AUMPRE_" v "_AUMV_" Present",IOM)
- +5 IF AUMV<AUMVER
- KILL DIFQ
- SET XPDQUIT=AUMQUIT
- DO SORRY(AUMQUIT)
- QUIT 0
- +6 QUIT 1
- +7 ;
- VCHK2(AUMPRE,AUMVER,AUMQUIT) ; Check patch level for AUM
- +1 NEW AUMV
- +2 SET AUMV=$$VERSION^XPDUTL(AUMPRE)
- +3 SET PTCH=+$$LAST(AUMPRE,AUMV)
- IF PTCH=-1
- SET DPTCH=""
- IF PTCH'=-1
- SET DPTCH="."_PTCH
- +4 WRITE !,$$CJ^XLFSTR("Need at least "_AUMPRE_" v "_AUMVER_"....."_AUMPRE_" v "_AUMV_DPTCH_" Present",IOM)
- +5 IF (AUMV<($PIECE(AUMVER,".",1,2)))
- KILL DIFQ
- SET XPDQUIT=AUMQUIT
- DO SORRY(AUMQUIT)
- QUIT 0
- +6 IF (AUMV=$PIECE(AUMVER,".",1,2))&(PTCH<$PIECE(AUMVER,".",3))
- KILL DIFQ
- SET XPDQUIT=AUMQUIT
- DO SORRY(AUMQUIT)
- QUIT 0
- +7 QUIT 1
- LAST(PKG,VER) ;EP - returns last patch applied for a Package, PATCH^DATE
- +1 ; Patch includes Seq # if Released
- +2 NEW PKGIEN,VERIEN,LATEST,PATCH,SUBIEN
- +3 IF $GET(VER)=""
- SET VER=$$VERSION^XPDUTL(PKG)
- IF 'VER
- QUIT -1
- +4 SET PKGIEN=$ORDER(^DIC(9.4,"C",PKG,""))
- IF 'PKGIEN
- QUIT -1
- +5 SET VERIEN=$ORDER(^DIC(9.4,PKGIEN,22,"B",VER,""))
- IF 'VERIEN
- QUIT -1
- +6 SET LATEST=-1
- SET PATCH=-1
- SET SUBIEN=0
- +7 FOR
- SET SUBIEN=$ORDER(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN))
- IF SUBIEN'>0
- QUIT
- Begin DoDot:1
- +8 IF $PIECE(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN,0),U,2)>LATEST
- SET LATEST=$PIECE(^(0),U,2)
- SET PATCH=$PIECE(^(0),U)
- +9 IF $PIECE(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN,0),U,2)=LATEST
- IF $PIECE(^(0),U)>PATCH
- SET PATCH=$PIECE(^(0),U)
- End DoDot:1
- +10 QUIT PATCH_U_LATEST
- +11 ;
- PRE ; EP FR KIDS
- +1 ;Set all existing codes to inactive
- +2 DO START^AUMP1012
- +3 ;
- INTROE ; Intro text during KIDS Environment check.
- +1 ;;This is the update to the standard code book tables. There are modifications
- +2 ;;and additions to the following files: Community, Location, Tribe,
- +3 ;;Reservation and Service Unit.
- +4 ;;
- +5 ;;The install message will report updates and failed updates to those files.
- +6 ;;
- +7 ;;###
- +8 ;
- INTROI ; Intro text during KIDS Install.
- +1 ;;If you run interactively, results will be displayed on your screen,
- +2 ;;and recorded in the entry in the INSTALL file.
- +3 ;;If you queue to TaskMan, remember not to Q to the HOME device.
- +4 ;;###
- +5 ;