| 1 | IBY368PR ;YMG/BP - Environment check for IB patch 368 ;04-Apr-2007
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**368**;04-APR-2007;Build 21
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; Standard Entry Point
|
|---|
| 5 | D CHECK
|
|---|
| 6 | Q
|
|---|
| 7 | ;
|
|---|
| 8 | CHECK ; check for correct time window
|
|---|
| 9 | ; patch should be installed between 3pm CST and 9am CST in production
|
|---|
| 10 | ; no check necessary if test account - if that's the case, bail out
|
|---|
| 11 | Q:'$$PROD^XUPROD(1)
|
|---|
| 12 | N CTS,DATE,ETIME,ETS,STIME,STS,TZ,Z
|
|---|
| 13 | S Z=$$NOW^XLFDT(),CTS=Z-(Z\1),DATE=$P(Z,".") ; get current date and time
|
|---|
| 14 | ; pick either CDT or CST timesone (in 2007 daylight saving time ends on Nov 4, at 2 am)
|
|---|
| 15 | S TZ=$S(Z>3071104.02:"-0500",1:"-0600")
|
|---|
| 16 | S STS=$$HL7TFM^XLFDT("090000"_TZ,"L",1),ETS=$$HL7TFM^XLFDT("150000"_TZ,"L",1)
|
|---|
| 17 | I CTS>STS&(CTS<ETS) D
|
|---|
| 18 | .S STIME=$$HLDATE^HLFNC(DATE_STS,"TM"),ETIME=$$HLDATE^HLFNC(DATE_ETS,"TM")
|
|---|
| 19 | .W !,"This patch has to be installed between "_$E(ETIME,1,2)_":"_$E(ETIME,3,4)_" and "_$E(STIME,1,2)_":"_$E(STIME,3,4)_"...Installation aborted."
|
|---|
| 20 | .S XPDQUIT=2
|
|---|
| 21 | .Q
|
|---|
| 22 | Q
|
|---|
