| 1 | IMRP021 ;HCIOFO/SG - PATCH 21 INSTALLATION ; 1/4/05 9:41am
|
|---|
| 2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;**21**;Feb 09, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | ;***** ENVIRONMENT CHECKS
|
|---|
| 5 | ENVCHK ;
|
|---|
| 6 | ;;Post-install routine of this patch will COMPLETELY DELETE
|
|---|
| 7 | ;;the Immunology Case Registry v2.1 package from your account.
|
|---|
| 8 | ;;This package was replaced by the new version of the registry
|
|---|
| 9 | ;;added to the Clinical Case Registries package.
|
|---|
| 10 | ;
|
|---|
| 11 | N DA,DIR,DIRUT,DTOUT,DUOUT,X,Y
|
|---|
| 12 | I $G(DUZ)'>0 D S XPDABORT=2 Q
|
|---|
| 13 | . W !!,"The DUZ variable must be defined!",!
|
|---|
| 14 | Q:'$G(XPDENV)
|
|---|
| 15 | ;
|
|---|
| 16 | ;--- Request a confirmation from the user
|
|---|
| 17 | K DIR S DIR(0)="Y"
|
|---|
| 18 | F X=1:1 S Y=$P($T(ENVCHK+X),";;",2,999) Q:Y="" S DIR("A",X)=Y
|
|---|
| 19 | S DIR("A")="Do you really want to delete the IMR v2.1"
|
|---|
| 20 | S DIR("B")="NO"
|
|---|
| 21 | D ^DIR I '$G(Y)!$D(DIRUT) D Q
|
|---|
| 22 | . S XPDQUIT=1 ; Abort and remove the transport global
|
|---|
| 23 | ;
|
|---|
| 24 | ;--- Do not ask unnecessary questions
|
|---|
| 25 | S XPDDIQ("XPZ1")=0
|
|---|
| 26 | S XPDDIQ("XPZ2")=0
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | ;***** DISPLAYS THE MESSAGE IF THE INSTALLATION ABORTS
|
|---|
| 30 | ABTMSG ;
|
|---|
| 31 | ;;You can use the Install File Print [XPD PRINT INSTALL FILE]
|
|---|
| 32 | ;;option to investigate the problem. Please fix the error(s)
|
|---|
| 33 | ;;and restart the patch installation using the Restart Install
|
|---|
| 34 | ;;of Package(s) [XPD RESTART INSTALL] option.
|
|---|
| 35 | ;
|
|---|
| 36 | N I,INFO,TMP
|
|---|
| 37 | F I=1:1 S TMP=$T(ABTMSG+I) Q:TMP'[";;" S INFO(I)=$P(TMP,";;",2,99)
|
|---|
| 38 | D MSG^IMRVPPU("ERROR(S) DURING THE PATCH INSTALLATION!",.INFO,1)
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | ;***** ERROR PROCESSING
|
|---|
| 42 | ERROR ;
|
|---|
| 43 | N XQADATA,XQAID,XQAMSG,XQAROU
|
|---|
| 44 | S XPDABORT=2
|
|---|
| 45 | I $D(ZTQUEUED) D D SETUP^XQALERT
|
|---|
| 46 | . S XQAMSG="Error during the installation of "_XPDNM,XQA(+DUZ)=""
|
|---|
| 47 | D ABTMSG
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
| 50 | ;***** POST-INSTALLATION ENTRY POINT
|
|---|
| 51 | POS ;
|
|---|
| 52 | N DEL,IMRVPP,RC,X
|
|---|
| 53 | S RC=0 D INIT^IMRVPP()
|
|---|
| 54 | ;
|
|---|
| 55 | ;--- Search for package data
|
|---|
| 56 | S RC=$$ADDNSF^IMRVPP("IMR",158,159.999) G:RC<0 ERROR
|
|---|
| 57 | S RC=$$SELVIFS^IMRVPP() G:RC<0 ERROR
|
|---|
| 58 | S RC=$$SELRTNS^IMRVPP() G:RC<0 ERROR
|
|---|
| 59 | ;
|
|---|
| 60 | ;--- Delete package data
|
|---|
| 61 | S RC=$$PURGE^IMRVPP() G:RC<0 ERROR
|
|---|
| 62 | ;
|
|---|
| 63 | ;--- Cleanup
|
|---|
| 64 | D INIT^IMRVPP() S DEL=^%ZOSF("DEL")
|
|---|
| 65 | F X="IMRVPP","IMRVPPE","IMRVPPU" X DEL
|
|---|
| 66 | Q
|
|---|
