source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRP020.m@ 648

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1IMRP020 ;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
5ENVCHK ;
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
Note: See TracBrowser for help on using the repository browser.