| 1 | DICATTD2 ;SFISC/GFT ;10:13 AM 26 Jan 2001;NUMERIC FIELD
|
|---|
| 2 | ;;22.0;VA FileMan;**42**;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | POST2 ;check NUMERIC
|
|---|
| 6 | N L,D,DD,Z,T
|
|---|
| 7 | S DD=$$G(34),D=$$G(33),Y=$$G(31) Q:Y="" S L=$$G(32) Q:L=""
|
|---|
| 8 | I L<Y S DDSERROR=1,DDSBR="31^DICATT2^2.2" D HLP^DDSUTL("'MINIMUM' & 'MAXIMUM' ARE IN WRONG ORDER") Q
|
|---|
| 9 | S DICATTMN="Type a "_$P("number^Dollar amount",U,$$G(33)=1+1)_" between "_Y_" and "_L_", "_DD_" Decimal Digit"_$E("s",DD'=1)
|
|---|
| 10 | S DICATT5N="K:+X'=X",T=DD+1,Z="!(X?.E"_"1""."""_T_".N)"
|
|---|
| 11 | DOLLAR I D,DICATTF-.001 S DICATT5N="S:X[""$"" X=$P(X,""$"",2) K:X'?"_$P(".""-""",U,Y<0)_".N.1""."".2N"
|
|---|
| 12 | S DICATT5N=DICATT5N_"!(X>"_L_")!(X<"_Y_")"_Z_" X",DICATTLN=$L(L\1)+T-(T=1)+(L<0),DICATT2N="NJ"_DICATTLN_","_DD,DICATT3N=""
|
|---|
| 13 | CHNG I DICATT5N=DICATT5 K DICATTMN ;No DICATTMN means no change
|
|---|
| 14 | D:$D(DICATTMN) PUT^DDSVALF(98,"DICATT",1,DICATTMN)
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | G(I) N X Q $$GET^DDSVALF(I,"DICATT2",2.2,"I","")
|
|---|
