The following operations are supported. For a formal definition,
please review the
Service Description.
Web Service Links
Namespace Children of ::wsdb::elements::biz::address
Namespace Code for ::wsdb::elements::biz::address
namespace eval ::wsdb::elements::biz::address {
variable Children {Id Name LineOne LineTwo City State Zipcode}
variable MaxOccurs
set MaxOccurs(State) 1
set MaxOccurs(City) 1
set MaxOccurs(Name) 1
set MaxOccurs(Id) 1
set MaxOccurs(Zipcode) 1
set MaxOccurs(LineTwo) 1
set MaxOccurs(LineOne) 1
variable MinOccurs
set MinOccurs(State) 1
set MinOccurs(City) 1
set MinOccurs(Name) 1
set MinOccurs(Id) 1
set MinOccurs(Zipcode) 1
set MinOccurs(LineTwo) 1
set MinOccurs(LineOne) 1
variable facetList {form Value name address}
variable new ::wsdb::elements::biz::address::new
variable validate ::wsdb::elements::biz::address::Validateaddress
variable validate_City ::wsdb::elements::biz::address::City::Validate
variable validate_Id ::wsdb::elements::biz::address::Id::Validate
variable validate_LineOne ::wsdb::elements::biz::address::LineOne::Validate
variable validate_LineTwo ::wsdb::elements::biz::address::LineTwo::Validate
variable validate_Name ::wsdb::elements::biz::address::Name::Validate
variable validate_State ::wsdb::elements::biz::address::State::Validate
variable validate_Zipcode ::wsdb::elements::biz::address::Zipcode::Validate
}
Procedures in ::wsdb::elements::biz::address
proc ::wsdb::elements::biz::address::Validateaddress {
namespace
} {
variable Children
variable MinOccurs
variable MaxOccurs
variable validate_Id
variable validate_Name
variable validate_LineOne
variable validate_LineTwo
variable validate_City
variable validate_State
variable validate_Zipcode
array set COUNT [array get ${namespace}::.COUNT]
set COUNT(.INVALID) 0
set ElementNames $Children
foreach ElementName $ElementNames {
if {$MinOccurs($ElementName) > 0} {
if {![info exists COUNT($ElementName)]} {
::wsdl::elements::noteFault $namespace [list 4 $ElementName 0 $MinOccurs($ElementName)]
incr COUNT(.INVALID)
return 0
} elseif {$COUNT($ElementName) < $MinOccurs($ElementName)} {
::wsdl::elements::noteFaunt $namespace [list 4 $ElementName $COUNT($ElementName) $MinOccurs($ElementName)]
incr COUNT(.INVALID)
return 0
}
}
if {[info exists COUNT($ElementName)] && $COUNT($ElementName) > $MaxOccurs($ElementName)} {
::wsdl::elements::noteFault $namespace [list 5 $ElementName $COUNT($ElementName) $MaxOccurs($ElementName)]
incr COUNT(.INVALID)
return 0
}
}
set PARTS [set ${namespace}::.PARTS]
set COUNT(.ELEMENTS) 0
foreach PART $PARTS {
incr COUNT(.ELEMENTS)
foreach {childName prefix childPart} $PART {}
set childPart [::xml::normalizeNamespace $namespace $childPart]
switch -exact -- $childName {
Id {
if {![eval [linsert $validate_Id end $childPart]]} {
::wsdl::elements::noteFault $namespace [list 2 Id $childPart]
incr COUNT(.INVALID)
break
}
}
Name {
if {![eval [linsert $validate_Name end $childPart]]} {
::wsdl::elements::noteFault $namespace [list 2 Name $childPart]
incr COUNT(.INVALID)
break
}
}
LineOne {
if {![eval [linsert $validate_LineOne end $childPart]]} {
::wsdl::elements::noteFault $namespace [list 2 LineOne $childPart]
incr COUNT(.INVALID)
break
}
}
LineTwo {
if {![eval [linsert $validate_LineTwo end $childPart]]} {
::wsdl::elements::noteFault $namespace [list 2 LineTwo $childPart]
incr COUNT(.INVALID)
break
}
}
City {
if {![eval [linsert $validate_City end $childPart]]} {
::wsdl::elements::noteFault $namespace [list 2 City $childPart]
incr COUNT(.INVALID)
break
}
}
State {
if {![eval [linsert $validate_State end $childPart]]} {
::wsdl::elements::noteFault $namespace [list 2 State $childPart]
incr COUNT(.INVALID)
break
}
}
Zipcode {
if {![eval [linsert $validate_Zipcode end $childPart]]} {
::wsdl::elements::noteFault $namespace [list 2 Zipcode $childPart]
incr COUNT(.INVALID)
break
}
}
default {
::wsdl::elements::noteFault $namespace [list 3 $childName $childPart]
incr COUNT(.INVALID)
}
}
}
if {$COUNT(.INVALID)} {
return 0
} else {
return 1
}
}
proc ::wsdb::elements::biz::address::new {
instanceNamespace
childValuesList
} {
set typeNS [::xml::element::append $instanceNamespace address]
if {[lindex $childValuesList 0] ne ""} {
$::wsdb::elements::biz::address::Id::new $typeNS [lindex $childValuesList 0]
} else {
return -code error "Missing value for required Element Id with no default value calling $::wsdb::elements::biz::address::Id::new"
}
if {[lindex $childValuesList 1] ne ""} {
$::wsdb::elements::biz::address::Name::new $typeNS [lindex $childValuesList 1]
} else {
return -code error "Missing value for required Element Name with no default value calling $::wsdb::elements::biz::address::Name::new"
}
if {[lindex $childValuesList 2] ne ""} {
$::wsdb::elements::biz::address::LineOne::new $typeNS [lindex $childValuesList 2]
} else {
return -code error "Missing value for required Element LineOne with no default value calling $::wsdb::elements::biz::address::LineOne::new"
}
if {[lindex $childValuesList 3] ne ""} {
$::wsdb::elements::biz::address::LineTwo::new $typeNS [lindex $childValuesList 3]
} else {
return -code error "Missing value for required Element LineTwo with no default value calling $::wsdb::elements::biz::address::LineTwo::new"
}
if {[lindex $childValuesList 4] ne ""} {
$::wsdb::elements::biz::address::City::new $typeNS [lindex $childValuesList 4]
} else {
return -code error "Missing value for required Element City with no default value calling $::wsdb::elements::biz::address::City::new"
}
if {[lindex $childValuesList 5] ne ""} {
$::wsdb::elements::biz::address::State::new $typeNS [lindex $childValuesList 5]
} else {
return -code error "Missing value for required Element State with no default value calling $::wsdb::elements::biz::address::State::new"
}
if {[lindex $childValuesList 6] ne ""} {
$::wsdb::elements::biz::address::Zipcode::new $typeNS [lindex $childValuesList 6]
} else {
return -code error "Missing value for required Element Zipcode with no default value calling $::wsdb::elements::biz::address::Zipcode::new"
}
return $typeNS
}