Modifying a Context Group Example for Visual Basic

Private Sub ModifyContextGroup(objDS As 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 Visual Basic 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 Visual Basic for the procedure EnumCodedConcepts
   EnumCodedConcepts objDS
   
   ' Delete the current Context Group
   objDS.DeleteContextGroup
End Sub