- lappend profile($target,AttributeDetails,$db,Bib1Use) [lindex [lindex [lindex $attributeValues 0] 1] 1]
+ set attribute [lindex [lindex [lindex $attributeValues 0] 1] 1]
+ if {[lsearch [array names bib1] $attribute] != -1} {
+ lappend profile($target,AttributeDetails,$db,Bib1) \
+ $attribute
+ }
+ }
+ }
+ }
+ } elseif {[lindex [lindex $tagset 0] 1] == "1.2.840.10003.3.5"} {
+ source gils.tcl
+ foreach attributeType [lindex $tagset 1] {
+ if {[lindex [lindex $attributeType 0] 1] == 1} {
+ source gils.tcl
+ foreach attributeValues [lrange [lindex $attributeType 2] 1 end] {
+ set attribute [lindex [lindex [lindex $attributeValues 0] 1] 1]
+ if {[lsearch [array names gils] $attribute] != -1} {
+ lappend profile($target,AttributeDetails,$db,Gils) \
+ $attribute
+ }