Reset Method (DicomUidTable)

'Declaration
 
Public Sub Reset() 

Private Sub TestUIDTable()

         'Make sure to initialize the DICOM engine, this needs to be done only once 
         'In the whole application
         DicomEngine.Startup()

         'We don't need to call this since the DicomEngine.Startup already does that for us
         'These calls are for demonstration purposes only
         DicomUidTable.Instance.Reset()
         DicomUidTable.Instance.Default()

         'We can also call FindByIndex if we know the index of this UID
         Dim uid As DicomUid = DicomUidTable.Instance.Find(DicomUidType.SCImageStorage)
         DicomUidTable.Instance.Delete(uid)

         Dim uid1 As DicomUid = DicomUidTable.Instance.Insert(DicomUidType.SCImageStorage, "Secondary Capture Image Storage", DicomUidCategory.Class)
         Debug.Assert(DicomUidTable.Instance.Exists(uid1) = True)
         DicomUidTable.Instance.SetName(uid1, "Secondary Capture Image Storage 1")

         Dim count As Integer = 0
         'If we want to loop through all the UIDs in the table we can do this:
         uid = DicomUidTable.Instance.GetFirst()
         Do While Not uid Is Nothing
             ' We can also access the rest of the properties of DicomUid in here,
             ' such as DicomUid.Code, DicomUid.Name, DicomUid.Type

             If uid.Code = DicomUidType.SCImageStorage Then
                 MessageBox.Show(uid.Name)
             End If
             count += 1
             uid = DicomUidTable.Instance.GetNext(uid)
         Loop
         'We can use GetLast and GetPrevious to achieve the same thing

         Debug.Assert(count = DicomUidTable.Instance.GetCount())

         DicomEngine.Shutdown()
     End Sub