ISFamilyProblem.ExternalEntity

Example

Display some information about the family problems loaded on the basis of the selected filter including the Globally Unique Identifier of their entity in the external system.

Dim aPatient
Dim aFilter
Dim aFamilyProblems, aFamilyProblem
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateFamilyProblemFilter
aFilter.PatientID = aPatient.ID
set aFamilyProblems = aFilter.Load

aMessage = "Family Problems Count: "  & aFamilyProblems.Count & vbNewLine

for each aFamilyProblem in aFamilyProblems
  if aFamilyProblem.ExternalEntity is nothing then  
  aMessage = aMessage & "Description: " & aFamilyProblem.DxDescription &_
    vbNewLine
  else 
  aMessage = aMessage & "Description: " &_ 
    aFamilyProblem.DxDescription & "The external entity has GUID = " &_ 
    aFamilyProblem.ExternalEntity.GUID & vbNewLine
  end if  
next
     
Profile.MsgBox(aMessage)