Modifying a Context Group Example for VB.NET

Private Sub ModifyContextGroup(ByRef objDS As LTDICLib.LEADDicomDS)
   objDS.ResetContextGroup()
   objDS.LoadContextGroup()

   ' Look for a Context Group
   If Not objDS.FindContextGroup("CID 6019") Then
      Exit Sub
   End If

   ' Look for a Coded Concept in the current Context Group
   If Not objDS.FindCodedConcept("SRT", "F-01781") Then
      Exit Sub
   End If

   ' Set the Code Meaning of the current Coded Concept (French translation)
   objDS.SetCodedConceptCodeMeaning("Situé à 1 heure")
   ' Refer to Enumerating the Coded Concepts of a Context Group Example
   ' for VB.NET for the function DisplayCodedConcept
   DisplayCodedConcept(objDS, False)

   ' Delete the current Coded Concept
   objDS.DeleteCodedConcept()

   ' Add a (testing) Coded Concept to the current Context Group
   objDS.InsertCodedConcept("CSD", "", "CV", "CM")
   DisplayCodedConcept(objDS, False)

   ' Restore the current Context Group (discard all the changes ' made to the Group)
   objDS.DefaultContextGroup()
   ' Refer to Enumerating the Coded Concepts of a Context Group Example
   ' for VB.NET for the procedure EnumCodedConcepts
   EnumCodedConcepts(objDS)

   ' Delete the current Context Group
   objDS.DeleteContextGroup()
End Sub