+/**
+ * \brief Compute the full length of the SeqEntry (not only value
+ * length) depending on the VR.
+ */
+uint32_t SeqEntry::ComputeFullLength()
+{
+ uint32_t l = 12; // Tag (4) + VR (explicit) 4 + 4 (length);
+ for(ListSQItem::iterator cc = Items.begin();
+ cc != Items.end();
+ ++cc)
+ {
+ l += (*cc)->ComputeFullLength();
+ }
+ l += 8; // seq_term Tag (4) + seq_term_lg (4)
+ return l;
+}
+
+/**
+ * \brief adds the passed ITEM to the ITEM chained List for this SeQuence.
+ * @param sqItem SQItem to be pushed back in the SeqEntry
+ * @param itemNumber ordinal number of the SQItem
+ * \note NOT end-user intendend method !
+ */
+void SeqEntry::AddSQItem(SQItem *sqItem, int itemNumber)
+{
+// FIXME : SQItemNumber is supposed to be the ordinal number of the SQItem
+// within the Sequence.
+// Either only 'push_back' is allowed,
+// and we just have to do something like SeqEntry::lastNb++
+// Or we can add (or remove) anywhere, and SQItemNumber will be broken
+ sqItem->SetSQItemNumber(itemNumber);
+ Items.push_back(sqItem);
+ sqItem->Register();
+}
+
+/**
+ * \brief Remove all SQItem.
+ */
+void SeqEntry::ClearSQItem()
+{
+ for(ListSQItem::iterator cc = Items.begin(); cc != Items.end(); ++cc)
+ {
+ (*cc)->Unregister();
+ }
+ if (SeqTerm)
+ {
+ SeqTerm->Unregister();
+ }
+}
+
+/**
+ * \brief Get the first entry while visiting the SeqEntry
+ * \return The first SQItem if found, otherwhise NULL
+ */
+SQItem *SeqEntry::GetFirstSQItem()
+{
+ ItSQItem = Items.begin();
+ if (ItSQItem != Items.end())
+ return *ItSQItem;
+ return NULL;
+}
+
+/**
+ * \brief Get the next SQItem while visiting the SeqEntry
+ * \note : meaningfull only if GetFirstEntry already called
+ * \return The next SQItem if found, otherwhise NULL
+ */
+
+SQItem *SeqEntry::GetNextSQItem()
+{
+ gdcmAssertMacro (ItSQItem != Items.end())
+ {
+ ++ItSQItem;
+ if (ItSQItem != Items.end())
+ return *ItSQItem;
+ }
+ return NULL;
+}
+
+/**
+ * \brief return a pointer to the SQItem referenced by its ordinal number.
+ * Returns the first item when argument is negative.
+ * Returns the last item when argument is bigger than the total
+ * item number.
+ */
+SQItem *SeqEntry::GetSQItem(int nb)
+{
+ if (nb<0)
+ {
+ return *(Items.begin());
+ }
+ int count = 0 ;
+ for(ListSQItem::iterator cc = Items.begin();
+ cc != Items.end();
+ count ++, ++cc)
+ {
+ if (count == nb)
+ {
+ return *cc;
+ }
+ }
+ return *(Items.end());
+}
+
+/**
+ * \brief returns the number of SQItems within the current Sequence
+ */
+unsigned int SeqEntry::GetNumberOfSQItems()
+{
+ return Items.size();
+}
+
+/**
+ * \brief Sets the Sequence Delimitation Item
+ * \param e Delimitation item
+ */
+void SeqEntry::SetDelimitationItem(DocEntry *e)
+{
+ if( SeqTerm != e )
+ {
+ if( SeqTerm )
+ SeqTerm->Unregister();
+ SeqTerm = e;
+ if( SeqTerm )
+ SeqTerm->Register();
+ }
+}
+
+/**
+ * \brief Copies all the attributes from an other DocEntry
+ * @param doc entry to copy from
+ * @remarks The contained SQItems a not copied, only referenced
+ */
+void SeqEntry::Copy(DocEntry *doc)
+{
+ // Delete previous SQ items
+ ClearSQItem();
+
+ DocEntry::Copy(doc);
+ SeqEntry *entry = dynamic_cast<SeqEntry *>(doc);
+ if ( entry )
+ {
+ DelimitorMode = entry->DelimitorMode;
+ SQDepthLevel = entry->SQDepthLevel;
+
+ SeqTerm = entry->SeqTerm;
+ if(SeqTerm)
+ SeqTerm->Register();
+ Items = entry->Items;
+ for(ItSQItem = Items.begin();ItSQItem != Items.end(); ++ItSQItem)
+ {
+ (*ItSQItem)->Register();
+ }
+ }
+}