- DICATTD5 ;GFT/GFT - SUBDICTIONARY NUMBER FOR MULTIPLE FIELDS IN SCREENMAN ;06:12 PM 23 Nov 1998
- ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
- ;;Per VA Directive 6402, this routine should not be modified.
- ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
- ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
- ;;Licensed under the terms of the Apache License, Version 2.0.
- ;
- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDICATTD5 692 printed Mar 13, 2025@21:50:26 Page 2
- DICATTD5 ;GFT/GFT - SUBDICTIONARY NUMBER FOR MULTIPLE FIELDS IN SCREENMAN ;06:12 PM 23 Nov 1998
- +1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
- +4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
- +5 ;;Licensed under the terms of the Apache License, Version 2.0.
- +6 ;
- SUBDIC ;
- +1 NEW %,DE
- +2 SET %=$PIECE(DICATTA,".")
- SET DE=%_"."_+$PIECE(DICATTA,".",2)_DICATTF
- +3 IF +DE'=DE!$DATA(^DD(DE))
- FOR DE=DICATTA+.01:.01:%+.7,%+.7:.001:%+.9,%+.9:.0001
- if DE>DICATTA&'$DATA(^DD(DE))
- QUIT
- +4 SET Y=DE
- QUIT
- +5 ;
- CHKDIC ;
- +1 NEW %
- +2 SET %=$PIECE(DICATTA,".")
- +3 IF X<DICATTA
- KILL X
- QUIT
- +4 IF %+1'>X!$DATA(^DD(X))
- KILL X
- QUIT
- +5 QUIT
