| MESSAGES |
lost and record(s) may be left in an inconsistent state, for example,
For TRIGGER at ^DD(44.003,309,1,4, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(52.86,1,1,2, change:
NOW code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PS(52.86,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(52.86,1,1,2,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PS(52.86,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.86,1,1,2,1.4)
not all Cross-Referencing completed; which in turn may cause FUTURE
NOW code in node 2)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PS(52.86,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(52.86,1,1,2,2.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PS(52.86,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.86,1,1,2,2.4)
For TRIGGER at ^DD(52.8651,.01,1,2, change:
NOW code in node 1)
from: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(52.8651,.01,1,2,1.4)
to: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.8651,.01,1,2,1.4)
NOW code in node 2)
from: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(52.8651,.01,1,2,2.4)
VistA/FileMan Hard Errors or corrupted Data. **
to: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.8651,.01,1,2,2.4)
For TRIGGER at ^DD(52.8651,1,1,2, change:
NOW code in node 1)
from: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(52.8651,1,1,2,1.4)
to: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.8651,1,1,2,1.4)
NOW code in node 2)
from: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(52.8651,1,1,2,2.4)
to: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PS(52.86,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(52.8651,1,1,2,2.4)
For TRIGGER at ^DD(53.79,.22,1,1, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(65.5,.01,1,2, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRE(D0,0)):^(0),1:"") S X=$P(Y(1),U,11) S DIU=X K Y S X=DIV S X=DT X ^DD(65.5,.01,1,2,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRE(D0,0)):^(0),1:"") S X=$P(Y(1),U,11) S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(65.5,.01,1,2,1.4)
* Warning TaskMan Has NOT Been Stopped or Placed in a WAIT State!
For TRIGGER at ^DD(75.1,.01,1,3, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(90,104,1,1, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,"DXM")):^("DXM"),1:"") S X=$P(Y(1),U,2) S DIU=X K Y S X=DT S X=X X ^DD(90,104,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,"DXM")):^("DXM"),1:"") S X=$P(Y(1),U,2) S DIU=X K Y N %I,%H,% D NOW^%DTC S X=X X ^DD(90,104,1,1,1.4)
For TRIGGER at ^DD(90,107,1,1, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,"DXM")):^("DXM"),1:"") S X=$P(Y(1),U,5) S DIU=X K Y S X=DT S X=X X ^DD(90,107,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,"DXM")):^("DXM"),1:"") S X=$P(Y(1),U,5) S DIU=X K Y N %I,%H,% D NOW^%DTC S X=X X ^DD(90,107,1,1,1.4)
For TRIGGER at ^DD(154,.01,1,2, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SPNL(154,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(154,.01,1,2,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SPNL(154,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(154,.01,1,2,1.4)
* Warning Logons are NOT Inhibited!
For TRIGGER at ^DD(200,2,1,3, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^VA(200,DIV(0),1.1)),DIV=X S $P(^(1.1),U,4)=DIV,DIH=200,DIG=202.04 D ^DICR
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S DIH=$G(^VA(200,DIV(0),1.1)),DIV=X S $P(^(1.1),U,4)=DIV,DIH=200,DIG=202.04 D ^DICR
For TRIGGER at ^DD(200,7,1,1, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^VA(200,DIV(0),1.1)),DIV=X S $P(^(1.1),U,4)=DIV,DIH=200,DIG=202.04 D ^DICR
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S DIH=$G(^VA(200,DIV(0),1.1)),DIV=X S $P(^(1.1),U,4)=DIV,DIH=200,DIG=202.04 D ^DICR
TODAY code in node 2)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^VA(200,DIV(0),1.1)),DIV=X S $P(^(1.1),U,4)=DIV,DIH=200,DIG=202.04 D ^DICR
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S DIH=$G(^VA(200,DIV(0),1.1)),DIV=X S $P(^(1.1),U,4)=DIV,DIH=200,DIG=202.04 D ^DICR
For TRIGGER at ^DD(200,9.2,1,2, change:
TODAY code in node 2)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^VA(200,DIV(0),1.1)),DIV=X S $P(^(1.1),U,4)=DIV,DIH=200,DIG=202.04 D ^DICR
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S DIH=$G(^VA(200,DIV(0),1.1)),DIV=X S $P(^(1.1),U,4)=DIV,DIH=200,DIG=202.04 D ^DICR
For TRIGGER at ^DD(200,19,1,1, change:
TODAY code in node 1)
Finished Environment Check.
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,19)):^(19),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(200,19,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,19)):^(19),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(200,19,1,1,1.4)
For TRIGGER at ^DD(200,8932.2,1,1, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,"USC2")):^("USC2"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(200,8932.2,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,"USC2")):^("USC2"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(200,8932.2,1,1,1.4)
For TRIGGER at ^DD(200,8932.3,1,1, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,"USC2")):^("USC2"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(200,8932.3,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,"USC2")):^("USC2"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(200,8932.3,1,1,1.4)
For TRIGGER at ^DD(200.052,.01,1,3, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,52,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(200.052,.01,1,3,1.4)
to: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,52,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(200.052,.01,1,3,1.4)
For TRIGGER at ^DD(200.19,.01,1,3, change:
TODAY code in node 1)
Perform Environment Check...
Install Started for DI*22.0*162 :
from: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(200.19,.01,1,3,1.4)
to: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(200.19,.01,1,3,1.4)
For TRIGGER at ^DD(228.25,.01,1,2, change:
NOW code in node 1)
from: X ^DD(228.25,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DENT(228.25,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(228.25,.01,1,2,1.4)
to: X ^DD(228.25,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DENT(228.25,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(228.25,.01,1,2,1.4)
For TRIGGER at ^DD(228.5,.01,1,2, change:
NOW code in node 1)
Feb 24, 2010@11:54:02
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DENT(228.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(228.5,.01,1,2,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DENT(228.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(228.5,.01,1,2,1.4)
For TRIGGER at ^DD(228.5,.11,1,1, change:
NOW code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DENT(228.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(228.5,.11,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DENT(228.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(228.5,.11,1,1,1.4)
For TRIGGER at ^DD(350,.05,1,3, change:
NOW code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IB(D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(350,.05,1,3,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IB(D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(350,.05,1,3,1.4)
NOW code in node 2)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IB(D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(350,.05,1,3,2.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IB(D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(350,.05,1,3,2.4)
For TRIGGER at ^DD(350,.05,1,8, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I X=8 I X S X=DIV S Y(1)=$S($D(^IB(D0,1)):^(1),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(350,.05,1,8,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I X=8 I X S X=DIV S Y(1)=$S($D(^IB(D0,1)):^(1),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(350,.05,1,8,1.4)
Build Distribution Date: Sep 29, 2009
For TRIGGER at ^DD(350,.05,1,10, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^IBE(350.21,+Y(0),0)),U)="HOLD - REVIEW" I X S X=DIV S Y(1)=$S($D(^IB(D0,1)):^(1),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(350,.05,1,10,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^IBE(350.21,+Y(0),0)),U)="HOLD - REVIEW" I X S X=DIV S Y(1)=$S($D(^IB(D0,1)):^(1),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(350,.05,1,10,1.4)
For TRIGGER at ^DD(350.9,8.1,1,1, change:
TODAY code in node 1)
from: X ^DD(350.9,8.1,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(350.9,D0,8)):^(8),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^IBE(350.9,DIV(0),8)),DIV=X S $P(^(8),U,13)=DIV,DIH=350.9,DIG=8.13 D ^DICR
to: X ^DD(350.9,8.1,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(350.9,D0,8)):^(8),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S DIH=$G(^IBE(350.9,DIV(0),8)),DIV=X S $P(^(8),U,13)=DIV,DIH=350.9,DIG=8.13 D ^DICR
For TRIGGER at ^DD(351.61,.05,1,2, change:
TODAY code in node 1)
from: X ^DD(351.61,.05,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBAT(351.61,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(351.61,.05,1,2,1.4)
to: X ^DD(351.61,.05,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBAT(351.61,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(351.61,.05,1,2,1.4)
For TRIGGER at ^DD(355.3,.01,1,2, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
Installing Routines:
For TRIGGER at ^DD(355.32,.01,1,3, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(355.33,.04,1,1, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
Feb 24, 2010@11:54:02
For TRIGGER at ^DD(356.1,.21,1,2, change:
NOW code in node 1)
from: X ^DD(356.1,.21,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBT(356.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(356.1,.21,1,2,1.4)
to: X ^DD(356.1,.21,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBT(356.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(356.1,.21,1,2,1.4)
For TRIGGER at ^DD(361,.1,1,1, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBM(361,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^IBM(361,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=361,DIG=.13 D ^DICR
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBM(361,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S DIH=$G(^IBM(361,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=361,DIG=.13 D ^DICR
For TRIGGER at ^DD(361.3,.01,1,3, change:
NOW code in node 1)
from: X ^DD(361.3,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(361.3,.01,1,3,1.4)
to: X ^DD(361.3,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(361.3,.01,1,3,1.4)
For TRIGGER at ^DD(364.1,.02,1,1, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
Running Post-Install Routine: POSTINIT^DIPR162
For TRIGGER at ^DD(364.2,.06,1,2, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(394.82,.01,1,4, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(394.83,.01,1,3, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(394.831,.01,1,4, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
Beginning Post-Installation...
For TRIGGER at ^DD(394.84,.01,1,3, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(394.841,.01,1,3, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(399,.01,1,3, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,1)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,.01,1,3,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,1)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(399,.01,1,3,1.4)
For TRIGGER at ^DD(399,.13,1,1, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,.13,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(399,.13,1,1,1.4)
I am saving routine DIDT as %DT.
For TRIGGER at ^DD(399,3,1,1, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,4)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,3,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,4)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(399,3,1,1,1.4)
For TRIGGER at ^DD(399,9,1,1, change:
TODAY code in node 1)
from: X ^DD(399,9,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,9,1,1,1.4)
to: X ^DD(399,9,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(399,9,1,1,1.4)
Routine: DIDT Loaded, Saved as %DT
For TRIGGER at ^DD(399,12,1,1, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,14)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,12,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,14)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(399,12,1,1,1.4)
For TRIGGER at ^DD(399,16,1,1, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$EXTERNAL^DIDU(399,16,"",Y(0))="YES" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,16,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$EXTERNAL^DIDU(399,16,"",Y(0))="YES" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(399,16,1,1,1.4)
For TRIGGER at ^DD(404.52,.01,1,5, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(404.53,.01,1,5, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
I am changing ^DD("FUNC",24,1) to correct the NOW function.
For TRIGGER at ^DD(405,41,1,1, change:
NOW code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,"DIR")):^("DIR"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(405,41,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,"DIR")):^("DIR"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(405,41,1,1,1.4)
For TRIGGER at ^DD(409.74,.01,1,2, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(411.3,.01,1,2, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(430,125,1,2, change:
NOW code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,12.1)):^(12.1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(430,125,1,2,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,12.1)):^(12.1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(430,125,1,2,1.4)
I am changing ^DD("FUNC",25,1) to correct the TODAY function.
NOW code in node 2)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,12.1)):^(12.1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(430,125,1,2,2.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,12.1)):^(12.1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(430,125,1,2,2.4)
For TRIGGER at ^DD(440.6,.01,1,2, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(441.01,1,1,1, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(441,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(441.01,1,1,1,1.4)
to: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(441,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(441.01,1,1,1,1.4)
For TRIGGER at ^DD(442,16.5,1,1, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X
to: S X=DIV N %I,%H,% D NOW^%DTC S X=% S X=X
For TRIGGER at ^DD(442.714,.01,1,2, change:
I am finding and replacing all NOW and TODAY code in triggers.
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(443,6,1,1, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(443.6714,.01,1,2, change:
Finished Environment Check.
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(443.76,.01,1,3, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(604,.01,1,3, change:
For TRIGGER at ^DD(2,.323,1,2, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(714.5,.01,1,2, change:
NOW code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^EASPFS(714.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(714.5,.01,1,2,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^EASPFS(714.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(714.5,.01,1,2,1.4)
For TRIGGER at ^DD(745.2,4,1,1, change:
NOW code in node 1.1)
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X=1 I X S X=DIV S Y(1)=$S($D(^QA(745.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(745.2,4,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X=1 I X S X=DIV S Y(1)=$S($D(^QA(745.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(745.2,4,1,1,1.4)
For TRIGGER at ^DD(798,.02,1,2, change:
NOW code in node 1)
from: X ^DD(798,.02,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^RORDATA(798,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(798,.02,1,2,1.4)
to: X ^DD(798,.02,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^RORDATA(798,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(798,.02,1,2,1.4)
For TRIGGER at ^DD(798.8,.01,1,2, change:
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
NOW code in node 1)
from: X ^DD(798.8,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^RORDATA(798.8,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(798.8,.01,1,2,1.4)
to: X ^DD(798.8,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^RORDATA(798.8,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(798.8,.01,1,2,1.4)
For TRIGGER at ^DD(799.6,.01,1,2, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,7)'>0 I X S X=DIV S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(799.6,.01,1,2,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,7)'>0 I X S X=DIV S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(799.6,.01,1,2,1.4)
For TRIGGER at ^DD(799.6,.03,1,1, change:
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,4)'>0 I X S X=DIV S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(799.6,.03,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,4)'>0 I X S X=DIV S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(799.6,.03,1,1,1.4)
For TRIGGER at ^DD(799.61,.02,1,1, change:
TODAY code in node 1)
from: X ^DD(799.61,.02,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^RORDATA(799.6,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(799.61,.02,1,1,1.4)
to: X ^DD(799.61,.02,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^RORDATA(799.6,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(799.61,.02,1,1,1.4)
For TRIGGER at ^DD(811.9,1.6,1,1, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
NOW code in node 2.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(2260,51,1,1, change:
TODAY code in node 1)
from: X ^DD(2260,51,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^OOPS(2260,D0,0)):^(0),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^OOPS(2260,DIV(0),0)),DIV=X S $P(^(0),U,18)=DIV,DIH=2260,DIG=54 D ^DICR
For TRIGGER at ^DD(2,.3611,1,2, change:
to: X ^DD(2260,51,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^OOPS(2260,D0,0)):^(0),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S DIH=$G(^OOPS(2260,DIV(0),0)),DIV=X S $P(^(0),U,18)=DIV,DIH=2260,DIG=54 D ^DICR
For TRIGGER at ^DD(6914,.01,1,4, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"") S X=$P(Y(1),U,7)="" I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(6914,.01,1,4,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"") S X=$P(Y(1),U,7)="" I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(6914,.01,1,4,1.4)
For TRIGGER at ^DD(6925,181.1,1,1, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,15)):^(15),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(6925,181.1,1,1,1.4)
TODAY code in node 1)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,15)):^(15),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(6925,181.1,1,1,1.4)
TODAY code in node 2)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,15)):^(15),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(6925,181.1,1,1,2.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("PROJ",D0,15)):^(15),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(6925,181.1,1,1,2.4)
For TRIGGER at ^DD(6925,244,1,2, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
NOW code in node 2.1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(2,.3611,1,2,1.4)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(6925,247,1,2, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
NOW code in node 2.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(2,.3611,1,2,1.4)
For TRIGGER at ^DD(8932.1,3,1,1, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S($D(DIFROM):0,1:X["i") I X S X=DIV S Y(1)=$S($D(^USC(8932.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(8932.1,3,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S($D(DIFROM):0,1:X["i") I X S X=DIV S Y(1)=$S($D(^USC(8932.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(8932.1,3,1,1,1.4)
For TRIGGER at ^DD(8980.2,.01,1,2, change:
NOW code in node 1)
from: X ^DD(8980.2,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^XUSSPKI(8980.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(8980.2,.01,1,2,1.4)
to: X ^DD(8980.2,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^XUSSPKI(8980.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(8980.2,.01,1,2,1.4)
I have replaced the NOW and TODAY code in 86 triggers.
Finished Post-Installation.
Updating Routine file...
Updating KIDS files...
DI*22.0*162 Installed.
For TRIGGER at ^DD(2,401.3,1,2, change:
Feb 24, 2010@11:54:06
Not a production UCI
NO Install Message sent
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,"DAC")):^("DAC"),1:"") S X=$P(Y(1),U,2) S DIU=X K Y S X=DIV S X=DT S X=X X ^DD(2,401.3,1,2,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,"DAC")):^("DAC"),1:"") S X=$P(Y(1),U,2) S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=X X ^DD(2,401.3,1,2,1.4)
For TRIGGER at ^DD(2,1010.161,1,1, change:
NOW code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,1010.16)):^(1010.16),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(2,1010.161,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,1010.16)):^(1010.16),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(2,1010.161,1,1,1.4)
Perform Environment Check...
For TRIGGER at ^DD(2,1010.163,1,1, change:
NOW code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,1010.16)):^(1010.16),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(2,1010.163,1,1,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,1010.16)):^(1010.16),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(2,1010.163,1,1,1.4)
For TRIGGER at ^DD(2.312,1.09,1,1, change:
NOW code in node 1)
from: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,.312,D1,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(2.312,1.09,1,1,1.4)
to: K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,.312,D1,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(2.312,1.09,1,1,1.4)
** Although Queuing is allowed - it is HIGHLY recommended that ALL Users and
For TRIGGER at ^DD(9.2,.01,1,2, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
For TRIGGER at ^DD(15,.01,1,2, change:
TODAY code in node 1)
from: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$D(DIU(0))=0 I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(15,.01,1,2,1.4)
to: K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$D(DIU(0))=0 I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(15,.01,1,2,1.4)
VISTA Background jobs be STOPPED before installation of this patch. Failure
For TRIGGER at ^DD(15,.03,1,5, change:
TODAY code in node 1)
from: X ^DD(15,.03,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(15,.03,1,5,1.4)
to: X ^DD(15,.03,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(15,.03,1,5,1.4)
For TRIGGER at ^DD(15,.03,1,9, change:
TODAY code in node 1)
from: X ^DD(15,.03,1,9,1.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(15,.03,1,9,1.4)
to: X ^DD(15,.03,1,9,1.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(15,.03,1,9,1.4)
to do so may result in 'source routine edited' error(s). Edits will be
For TRIGGER at ^DD(15,.05,1,5, change:
TODAY code in node 1)
from: X ^DD(15,.05,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(15,.05,1,5,1.4)
to: X ^DD(15,.05,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(15,.05,1,5,1.4)
For TRIGGER at ^DD(44.003,303,1,2, change:
NOW code in node 1.1)
from: S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
to: S X=DIV N %I,%H,% D NOW^%DTC S X=%
|
