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