source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DICATTD5.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 410 bytes
Line 
1DICATTD5 ;GFT ;06:12 PM 23 Nov 1998
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4SUBDIC ;
5 N %,DE
6 S %=$P(DICATTA,"."),DE=%_"."_+$P(DICATTA,".",2)_DICATTF
7 I +DE'=DE!$D(^DD(DE)) F DE=DICATTA+.01:.01:%+.7,%+.7:.001:%+.9,%+.9:.0001 Q:DE>DICATTA&'$D(^DD(DE))
8 S Y=DE Q
9 ;
10CHKDIC ;
11 N %
12 S %=$P(DICATTA,".")
13 I X<DICATTA K X Q
14 I %+1'>X!$D(^DD(X)) K X Q
15 Q
Note: See TracBrowser for help on using the repository browser.