source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DICATTD4.m@ 1211

Last change on this file since 1211 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 882 bytes
Line 
1DICATTD4 ;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 ;
5PRE4 ;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=""
8L 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 ;
13POST4 ;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 ;
23G(I) N X Q $$GET^DDSVALF(I,"DICATT4",2.4)
Note: See TracBrowser for help on using the repository browser.