source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRP021.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1IMRP021 ;HCIOFO/SG - PATCH 21 INSTALLATION ; 1/4/05 9:41am
2 ;;2.1;IMMUNOLOGY CASE REGISTRY;**21**;Feb 09, 1998
3 ;
4 ;***** ENVIRONMENT CHECKS
5ENVCHK ;
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
30ABTMSG ;
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
42ERROR ;
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
51POS ;
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
Note: See TracBrowser for help on using the repository browser.