ISPatientProblem.ReferralId

Example

Display the codes, descriptions for the patient's problems of 'Procedures' type and some information about the referrals linked to them.

Dim aPatient
Dim aProblemList
Dim aCategory
Dim aProblems, aProblem
Dim aReferral
Dim aMessage

Set aPatient = Profile.SelectPatient

set aProblemList = aPatient.ProblemList
set aCategory = aProblemList.Categories.Item(2) 'Procedures  
aMessage = aMessage & vbNewLine &_ 
  "---------" & aCategory.Description & "---------"  & vbNewLine & vbNewLine 
set aProblems = aCategory.Problems
if aProblems.Count = 0 then 
  aMessage = aMessage & "No procedures"
else
  for each aProblem in aProblems
    aMessage = aMessage & "    " &_ 
      "Code: " & aProblem.DxCode & "; Description: " & aProblem.DxDescription
    if aProblem.ReferralId = 0 then
      aMessage = aMessage &_ 
        "; " & "there is no linked referral " & vbNewLine  
    else
      set aReferral = Profile.LoadReferral(aProblem.ReferralId)  
      aMessage = aMessage &_ 
        "; the linked referral was made on " &_ 
        aReferral.ReferredOn & " and sent to " & aReferral.ReferedToAsString &_ 
        vbNewLine
    end if
  next 
end if
Profile.MsgBox(aMessage)