16 lines
410 B
Mathematica
16 lines
410 B
Mathematica
DICATTD5 ;GFT ;06:12 PM 23 Nov 1998
|
|
;;22.0;VA FileMan;;Mar 30, 1999
|
|
;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
SUBDIC ;
|
|
N %,DE
|
|
S %=$P(DICATTA,"."),DE=%_"."_+$P(DICATTA,".",2)_DICATTF
|
|
I +DE'=DE!$D(^DD(DE)) F DE=DICATTA+.01:.01:%+.7,%+.7:.001:%+.9,%+.9:.0001 Q:DE>DICATTA&'$D(^DD(DE))
|
|
S Y=DE Q
|
|
;
|
|
CHKDIC ;
|
|
N %
|
|
S %=$P(DICATTA,".")
|
|
I X<DICATTA K X Q
|
|
I %+1'>X!$D(^DD(X)) K X Q
|
|
Q
|