Reset Method (DicomIodTable)

'Declaration
 
Public Sub Reset() 

Private Sub RecursiveReadIOD(ByVal parentIOD As DicomIod)
         Dim iod As DicomIod
         If parentIOD Is Nothing Then
             iod = DicomIodTable.Instance.GetFirst(Nothing, True)
         Else
             iod = DicomIodTable.Instance.GetChild(parentIOD)
         End If

         Do While Not iod Is Nothing
             ' Over here we can show the information about this IOD such as 
             ' DicomIod.Type, DicomIod.Type, DicomIod.Usage and DicomIod.Description
             If Not DicomIodTable.Instance.GetChild(iod) Is Nothing Then
                 RecursiveReadIOD(iod)
             End If
             iod = DicomIodTable.Instance.GetNext(iod, True)
         Loop
     End Sub
  Private Sub TestIODTable()
    '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
    DicomIodTable.Instance.Reset()
    DicomIodTable.Instance.Default()

      ' We can find the number of modules in any class
    Dim moduleCount As Integer = DicomIodTable.Instance.GetModuleCount(DicomClassType.SCImageStorage)

    ' We can in here call any of the Find methods including FindModule and FindModuleByIndex,
    ' in this sample we are searching for a DICOM class, this is why we are using FindClass
    Dim iod As DicomIod = DicomIodTable.Instance.FindClass(DicomClassType.SCImageStorage)


      ' We can get the name of the IOD
      Dim name as String = iod.ToString()

    DicomIodTable.Instance.Delete(iod)

      Dim iod1 As DicomIod = DicomIodTable.Instance.Insert(Nothing, False, DicomClassType.SCImageStorage, "Secondary Capture Image Storage", _
                                                           DicomIodType.Class, DicomIodUsageType.MandatoryModule, "Description of the class goes in here")
    Debug.Assert(DicomIodTable.Instance.Exists(iod1) = True)
    DicomIodTable.Instance.SetName(iod1, "Secondary Capture Image Storage 1")

    'Go through all the IODs in the IOD table
    RecursiveReadIOD(Nothing)

    DicomEngine.Shutdown()
  End Sub