- BLRPRE ; IHS/HQW/TPF - ENVIRONMENT CHECK FOR PATCH 16; [ 05/28/2003 11:54 AM ]
- ;;5.2;LR;**1016**;NOV 18, 2002
- ;
- S $P(LINE,"*",81)=""
- S XPDNOQUE="NO QUE" ;NO QUEUING ALLOWED
- S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0 ;PREVENT "DIABLE OPTIONS" AND "MOVE ROUTINES" QUESTIONS
- S XPDABORT=0
- I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY Q
- ;
- I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY Q
- ;
- D HOME^%ZIS,DT^DICRW
- S X=$P($G(^VA(200,DUZ,0)),U)
- I $G(X) D BMES^XPDUTL("Installer cannot be identified!") D SORRY Q
- D BMES^XPDUTL("Hello, "_$P(X,",",2)_" "_$P(X,","))
- D BMES^XPDUTL("Checking Environment for Patch "_$P($T(+2),";",5)_" of Version "_$P($T(+2),";",3)_" of "_$P($T(+2),";",4)_".")
- ;
- S X=$G(^DD("VERSION"))
- D BMES^XPDUTL("Need at least FileMan 21.....FileMan "_X_" Present")
- I X<21 D SORRY Q
- ;
- S X=$G(^DIC(9.4,$O(^DIC(9.4,"C","XU",0)),"VERSION"))
- D BMES^XPDUTL("Need at least Kernel 8.0.....Kernel "_X_" Present")
- I X<8.0 D SORRY Q
- ;
- ;
- VERSION ;
- ;CHECK FOR PREVIOUS PATCH NEEDED
- S %=$D(^XPD("9.7","B","LR*5.2*1015"))
- I '% D Q
- . D BMES^XPDUTL("Patch 1016 of version 5.2 of the RPMS Laboratory Package")
- . D BMES^XPDUTL("Cannot Be Installed Unless")
- . D BMES^XPDUTL("Patch 1015 of version 5.2 Has Been Previously Installed.")
- . D SORRY
- ;
- ;GET INSTALL STATUS
- S %=$O(^XPD("9.7","B","LR*5.2*1015",""))
- S LRSTATUS=$P($G(^XPD(9.7,%,0)),U,9)
- I LRSTATUS'=3 D Q ;IF INSTALL STATUS NOT COMPLETE QUIT
- .D BMES^XPDUTL("Install of Patch 1015 not complete!")
- .D SORRY
- ;
- D BMES^XPDUTL("Patch 1015 of version LR 5.2 Has Been Previously Installed......OK to continue")
- ;
- ;
- ;
- ENVOK ; If this is just an environment check, end here.
- D BMES^XPDUTL("ENVIRONMENT OK.")
- ;
- ; The following line prevents the "Disable Options..." and "Move
- ; Routines..." questions from being asked during the install.
- I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
- ;
- ;VERIFY BACKUPS HAVE BEEN DONE
- W !!
- S DIR(0)="Y"
- S DIR("B")="NO"
- S DIR("A")="Has a SUCCESSFUL system backup been performed??"
- D ^DIR
- I $D(DIRUT)!($G(Y)=0) D BMES^XPDUTL("Please perform a successful backup before contnuing!!") S XPDABORT=1 Q
- S %DT="R",X="NOW" D ^%DT X ^DD("DD")
- D BMES^XPDUTL("BACKUPS CONFIRMED BY "_$P($G(^VA(200,DUZ,0)),U)_" ON "_$P(Y,"@")_" AT "_$P(Y,"@",2))
- ;
- ;
- Q
- SORRY ;
- K DIFQ
- S XPDABORT=1
- D BMES^XPDUTL("Sorry....something is wrong with your enviroment")
- D BMES^XPDUTL("for a Lab 5.2 Patch 15 install!")
- D BMES^XPDUTL("Please print/capture this screen and notify")
- D BMES^XPDUTL("the Help Desk")
- Q
- BLRPRE ; IHS/HQW/TPF - ENVIRONMENT CHECK FOR PATCH 16; [ 05/28/2003 11:54 AM ]
- +1 ;;5.2;LR;**1016**;NOV 18, 2002
- +2 ;
- +3 SET $PIECE(LINE,"*",81)=""
- +4 ;NO QUEUING ALLOWED
- SET XPDNOQUE="NO QUE"
- +5 ;PREVENT "DIABLE OPTIONS" AND "MOVE ROUTINES" QUESTIONS
- SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
- +6 SET XPDABORT=0
- +7 IF '$GET(DUZ)
- WRITE !,"DUZ UNDEFINED OR 0."
- DO SORRY
- QUIT
- +8 ;
- +9 IF '$LENGTH($GET(DUZ(0)))
- WRITE !,"DUZ(0) UNDEFINED OR NULL."
- DO SORRY
- QUIT
- +10 ;
- +11 DO HOME^%ZIS
- DO DT^DICRW
- +12 SET X=$PIECE($GET(^VA(200,DUZ,0)),U)
- +13 IF $GET(X)
- DO BMES^XPDUTL("Installer cannot be identified!")
- DO SORRY
- QUIT
- +14 DO BMES^XPDUTL("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,","))
- +15 DO BMES^XPDUTL("Checking Environment for Patch "_$PIECE($TEXT(+2),";",5)_" of Version "_$PIECE($TEXT(+2),";",3)_" of "_$PIECE($TEXT(+2),";",4)_".")
- +16 ;
- +17 SET X=$GET(^DD("VERSION"))
- +18 DO BMES^XPDUTL("Need at least FileMan 21.....FileMan "_X_" Present")
- +19 IF X<21
- DO SORRY
- QUIT
- +20 ;
- +21 SET X=$GET(^DIC(9.4,$ORDER(^DIC(9.4,"C","XU",0)),"VERSION"))
- +22 DO BMES^XPDUTL("Need at least Kernel 8.0.....Kernel "_X_" Present")
- +23 IF X<8.0
- DO SORRY
- QUIT
- +24 ;
- +25 ;
- VERSION ;
- +1 ;CHECK FOR PREVIOUS PATCH NEEDED
- +2 SET %=$DATA(^XPD("9.7","B","LR*5.2*1015"))
- +3 IF '%
- Begin DoDot:1
- +4 DO BMES^XPDUTL("Patch 1016 of version 5.2 of the RPMS Laboratory Package")
- +5 DO BMES^XPDUTL("Cannot Be Installed Unless")
- +6 DO BMES^XPDUTL("Patch 1015 of version 5.2 Has Been Previously Installed.")
- +7 DO SORRY
- End DoDot:1
- QUIT
- +8 ;
- +9 ;GET INSTALL STATUS
- +10 SET %=$ORDER(^XPD("9.7","B","LR*5.2*1015",""))
- +11 SET LRSTATUS=$PIECE($GET(^XPD(9.7,%,0)),U,9)
- +12 ;IF INSTALL STATUS NOT COMPLETE QUIT
- IF LRSTATUS'=3
- Begin DoDot:1
- +13 DO BMES^XPDUTL("Install of Patch 1015 not complete!")
- +14 DO SORRY
- End DoDot:1
- QUIT
- +15 ;
- +16 DO BMES^XPDUTL("Patch 1015 of version LR 5.2 Has Been Previously Installed......OK to continue")
- +17 ;
- +18 ;
- +19 ;
- ENVOK ; If this is just an environment check, end here.
- +1 DO BMES^XPDUTL("ENVIRONMENT OK.")
- +2 ;
- +3 ; The following line prevents the "Disable Options..." and "Move
- +4 ; Routines..." questions from being asked during the install.
- +5 IF $GET(XPDENV)=1
- SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
- +6 ;
- +7 ;VERIFY BACKUPS HAVE BEEN DONE
- +8 WRITE !!
- +9 SET DIR(0)="Y"
- +10 SET DIR("B")="NO"
- +11 SET DIR("A")="Has a SUCCESSFUL system backup been performed??"
- +12 DO ^DIR
- +13 IF $DATA(DIRUT)!($GET(Y)=0)
- DO BMES^XPDUTL("Please perform a successful backup before contnuing!!")
- SET XPDABORT=1
- QUIT
- +14 SET %DT="R"
- SET X="NOW"
- DO ^%DT
- XECUTE ^DD("DD")
- +15 DO BMES^XPDUTL("BACKUPS CONFIRMED BY "_$PIECE($GET(^VA(200,DUZ,0)),U)_" ON "_$PIECE(Y,"@")_" AT "_$PIECE(Y,"@",2))
- +16 ;
- +17 ;
- +18 QUIT
- SORRY ;
- +1 KILL DIFQ
- +2 SET XPDABORT=1
- +3 DO BMES^XPDUTL("Sorry....something is wrong with your enviroment")
- +4 DO BMES^XPDUTL("for a Lab 5.2 Patch 15 install!")
- +5 DO BMES^XPDUTL("Please print/capture this screen and notify")
- +6 DO BMES^XPDUTL("the Help Desk")
- +7 QUIT
