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 Nov 22, 2024@17:55:37 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
