| 1 | IMRP020 ;HCIOFO/SG - PATCH 20 INSTALLATION ; 2/14/03 9:40am
|
|---|
| 2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;**20**;Feb 09, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | ;***** ENVIRONMENT CHECK ENTRY POINT
|
|---|
| 5 | ENVCHK ;
|
|---|
| 6 | Q:'$G(XPDENV)
|
|---|
| 7 | N I,IMRBUF,RC,SDT,TMP,ZTSK
|
|---|
| 8 | ;--- Check status of the nightly extract
|
|---|
| 9 | D OPTSTAT^XUTMOPT("IMR REGISTRY DATA",.IMRBUF)
|
|---|
| 10 | S (RC,SDT)=0
|
|---|
| 11 | F I=1:1:$G(IMRBUF) K ZTSK D I $G(ZTSK(1))=2 S RC=1 Q
|
|---|
| 12 | . S ZTSK=$P(IMRBUF(I),"^") Q:'ZTSK
|
|---|
| 13 | . D STAT^%ZTLOAD
|
|---|
| 14 | . S TMP=$P(IMRBUF(I),"^",2)
|
|---|
| 15 | . I TMP>0 S:'SDT!(TMP<SDT) SDT=TMP
|
|---|
| 16 | I RC D S XPDABORT=2 Q
|
|---|
| 17 | . W !,"Nightly extract must not be running during installation!",!
|
|---|
| 18 | ;---
|
|---|
| 19 | I SDT>0 D
|
|---|
| 20 | . S TMP=$$FMTE^XLFDT(SDT)
|
|---|
| 21 | . S TMP="on "_$P(TMP,"@")_" at "_$P(TMP,"@",2)
|
|---|
| 22 | . W !,"The nightly extract is scheduled to run "_TMP_"."
|
|---|
| 23 | . W !,"If you are going to schedule the installation, please, choose"
|
|---|
| 24 | . W !,"an appropriate time so that the post-install will either"
|
|---|
| 25 | . W !,"finish well before the nightly extract or start after its"
|
|---|
| 26 | . W !,"completion.",!
|
|---|
| 27 | E D
|
|---|
| 28 | . W !,"The nighlty extract (the [IMR REGISTRY DATA] option is not"
|
|---|
| 29 | . W !,"scheduled. Do not forget to schedule it after completion of"
|
|---|
| 30 | . W !,"the installation.",!
|
|---|
| 31 | Q
|
|---|
