MUMPS CODE: X ^DD(90215,.029,9.2) S X1=Y(90215,.029,2) S X=$S(X&X1:X,1:"") Q:'X D H^%DTC S XUS1=%H*86400+%T,X=X1 D H^%DTC S XUS2=%H*86400+%T,X=$S(XUS1>XUS2:XUS1-XUS2,1:XUS2-XUS1)
9.2 = S Y(90215,.029,1)=$S($D(^BDWRBLOG(D0,0)):^(0),1:"") S X=$P(Y(90215,.029,1),U,1),Y(90215,.029,2)=X S X=$P(Y(90215,.029,1),U,2)