source:
WorldVistAEHR/tag/Release_6_08/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DICATTD5.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 410 bytes |
Line | |
---|---|
1 | DICATTD5 ;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. |
4 | SUBDIC ; |
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 | ; |
10 | CHKDIC ; |
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.