namespace eval ::wsdb::types::aca::PaymentYrType { variable base xsd::string variable pattern {[1-9][0-9]{3}} variable validate ::wsdb::types::aca::PaymentYrType::validate }
proc ::wsdb::types::aca::PaymentYrType::validate { value } { variable base variable pattern if {[::wsdb::types::${base}::validate $value] && [regexp $pattern $value]} { return 1 } else { return 0 }}