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