24 lines
882 B
Mathematica
24 lines
882 B
Mathematica
|
DICATTD4 ;GFT;11:56 AM 13 Feb 2001;FREE TEXT FIELDS
|
||
|
|
;;22.0;VA FileMan;**42**;Mar 30, 1999
|
||
|
|
;Per VHA Directive 10-93-142, this routine should not be modified.
|
||
|
|
;
|
||
|
|
PRE4 ;PATTERN MATCH default
|
||
|
|
N I,Z,X,L,YY
|
||
|
|
S DICATT5P=" X",YY=0,I=0,L=1,Y="",Z=$P(DICATT5,")!'(",2,99) Q:Z=""
|
||
|
|
L S I=I+1,X=$E(Z,I) G L:X'?.P Q:X="" I X="""" S YY='YY G L
|
||
|
|
G L:YY I X="(" S L=L+1
|
||
|
|
G L:X'=")" S L=L-1 G L:L
|
||
|
|
S Y=$E(Z,1,I-1),DICATT5P=$E(Z,I+1,999) Q
|
||
|
|
;
|
||
|
|
POST4 ;check FREE TEXT
|
||
|
|
N L
|
||
|
|
S Y=$$G(68) Q:Y="" S L=$$G(69) Q:L=""
|
||
|
|
I L<Y S DDSERROR=1,DDSBR="68^DICATT4^2.4" D HLP^DDSUTL("'MINIMUM' & 'MAXIMUM' ARE IN WRONG ORDER") Q
|
||
|
|
S X=$S(L=Y:L,1:Y_"-"_L),DICATTMN="Answer must be "_X_" character"_$E("s",X'=1)_" in length"
|
||
|
|
S X=$$G(70) I X]"" S X="!'("_X_")"
|
||
|
|
S DICATTLN=L,DICATT5N="K:$L(X)>"_L_"!($L(X)<"_Y_")"_X_DICATT5P
|
||
|
|
S DICATT2N="F",DICATT3N=""
|
||
|
|
D CHNG^DICATTD Q
|
||
|
|
;
|
||
|
|
G(I) N X Q $$GET^DDSVALF(I,"DICATT4",2.4)
|