VARCHAR 0 %Library.Float %val to a normalized value.]]> 1 generator %val:%CacheString %Float 1 %val, which is a floating point value, is valid. The validation is based on the class parameter settings used for the class attribute this data type is associated with. In this case, MAXVAL and MINVAL.]]> 1 generator %val:%CacheString IsValidDT %Status 1 15)) { Quit $$$ERROR($$$DatatypeParameterScaleIncorrect,%class_"::"_%property,"SCALE",%parameter("SCALE")) } #; If subclass has a IsValidDT then call this If %property'="",$$$comSubMemberDefined(%class,$$$cCLASSproperty,%property,$$$cPROPmethod,"IsValidDT"),$$$comSubMemberKeyGet(%class,$$$cCLASSproperty,%property,$$$cPROPmethod,"IsValidDT",$$$cXXXXorigin)'="%Library.DataType" { Set %codemode=$$$cMETHCODEMODEEXPRESSION Set %code="$select(##class("_%class_")."_%property_"IsValidDT(%val):1,1:$$$ERROR($$$DatatypeValidationFailed,"""_%class_":"_%property_""",%val))" Quit $$$OK } n sep,str,flag s %code=0 s %codemode=$$$cMETHCODEMODEEXPRESSION i %parameter("VALUELIST")'="" d QUIT $$$OK . s sep=$e(%parameter("VALUELIST")) ;for now . s %code="(%val'["""_sep_""")&("_$$$quote(%parameter("VALUELIST")_sep)_"[("""_sep_"""_%val_"""_sep_"""))" s str="$isvalidnum($TR(%val,"","","".""),,"_%parameter("MINVAL")_","_%parameter("MAXVAL")_")" s %code="$select("_str_":1,1:$$$ERROR($$$DatatypeValidationFailed,"""_%class_":"_%property_""",%val))" QUIT $$$OK ]]>