source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBY368PR.m@ 1000

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

initial load of WorldVistAEHR

File size: 952 bytes
Line 
1IBY368PR ;YMG/BP - Environment check for IB patch 368 ;04-Apr-2007
2 ;;2.0;INTEGRATED BILLING;**368**;04-APR-2007;Build 21
3 ;
4EN ; Standard Entry Point
5 D CHECK
6 Q
7 ;
8CHECK ; 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
Note: See TracBrowser for help on using the repository browser.