ISHRI.DeleteRegistryKey

Example

Display some information about the CDO forms contents and delete the specified registry key linked to the specified HRIs.

sub main
  Dim aPatient
  Dim aFilter
  Dim aCDOForms, aCDOForm
  Dim i
  Dim aMessage

  Set aPatient = Profile.SelectPatient
  set aFilter = Profile.CreateCdoFormFilter
  aFilter.PatientId = aPatient.Id
  set aCDOForms = Profile.LoadCdoForms(aFilter) ' ISHRObservations
    aMessage = "CDO Forms (Count = " & aCDOForms.Count & "):"
    
  for i = 0 to aCDOForms.Count - 1  
    set aCDOForm = aCDOForms.Item(i) 'ISHRObservation
    aMessage = aMessage & vbNewLine & (i + 1) & ") " & aCDOForm.Name &_
      GetHRCInfo(aCDOForm.AsHRC, 0)  
  next  
  Profile.MsgBox(aMessage)
end sub

function GetHRIInfo(aHRI, aLevel)
  Dim aSep
  Dim aInfo
  Dim aKeyCode
  Dim aKeyValue
  Dim aRegistryKey
   
  aSep = Space(4 * aLevel)
  aInfo = vbNewLine & aSep & " * HRI name: " & aHRI.Name & VbNewLine
  
  set aRegistryKeys = aHRI.GetRegistryKeysByCode("RM2") 'this code should be presented in short code category 'Registry (Measure)'
  for each aRegistryKey in aRegistryKeys
    aHRI.DeleteRegistryKey(aRegistryKey)
    aInfo = aInfo & aSep & " - The Registry Key with the specified code was deleted " &_
      " (Value = "& aRegistryKey.KeyValue & "')" & vbNewLine 
  next 
    
  GetHRIInfo = aInfo    
end function

function GetHRCInfo(aHRC, aLevel)
  Dim aSep
  Dim aInfo
  Dim i
  Dim aObs 
 
  aSep = Space(4 * aLevel)
  aInfo = vbNewLine &_ 
    aSep & " * HRC name: " & aHRC.Name & VbNewLine 
  for i = 0 to aHRC.Count - 1
    set aObs = aHRC.Item(i)
    if aObs.IsHRI then
      aInfo = aInfo & GetHRIInfo(aObs.AsHRI, aLevel + 1)
    else          
      aInfo = aInfo & GetHRCInfo(aObs.AsHRC, aLevel + 1)
    end if 
  next

  GetHRCInfo = aInfo
end function