ISPatientProblem.GetRegistryKeys

Example

Add a new registry key with the specified code and value to the patient's problem and display all registry keys of this problem.

Dim aTrans
Dim aPatient  
Dim aProblemList, aProblem
Dim aNewRegKey
Dim aProblem2
Dim aRegistryKeys, aRegistryKey
Dim aMessage

'The first mapping transaction
Set aTrans = Profile.StartMapTransaction

Set aPatient = Profile.SelectPatient 
set aProblemList = aPatient.ProblemList

if aProblemList.Count = 0 then
  Profile.MsgBox("The patient has no problems")
  exit sub
end if

set aProblem = aProblemList.Item(0)
set aNewRegKey = aProblem.AddRegistryKey("REGPROBLEM1", "NewRegKey_1")

if aNewRegKey is nothing then 
  Profile.MsgBox("No registry key with the specified code")
  exit sub
end if

aNewRegKey.SourceRef = "1234567890ABC"
aProblem.Save
aTrans.SnapShot

'The second mapping transaction
set aTrans = Profile.StartMapTransaction
set aProblem2 = Profile.LoadPatientProblemByGUID(aProblem.GUID) 
set aRegistryKeys = aProblem2.GetRegistryKeys
aMessage = "Registry Keys Count = " & aRegistryKeys.Count & vbNewLine 

for i = 0 to aRegistryKeys.Count - 1
  set aRegistryKey = aRegistryKeys.Item(i)
  aMessage = aMessage & "'" & aRegistryKey.KeyCode.Description & "' = '" &_ 
    aRegistryKey.KeyValue & "'" & vbNewLine 
next

Profile.MsgBox(aMessage)