ISPatientProblem.ServiceID

Example

Display the codes, descriptions for the patient's problems of 'Procedures' type and the codes and descriptions of the services, linked to them.

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

Set aPatient = Profile.SelectPatient

set aProblemList = aPatient.ProblemList
set aCategory = aProblemList.Categories.Item(2) 'Procedures  
aMessage = aMessage & vbNewLine &_ 
  "---------" & aCategory.Description & "---------"  & vbNewLine  
set aProblems = aCategory.Problems
if aProblems.Count = 0 then 
  aMessage = aMessage & "No procedures"
else
  for each aProblem in aProblems
    if aProblem.ServiceID <> 0 then  
      aMessage = aMessage & vbNewLine & "    Code: " &_ 
        aProblem.DxCode & "; Service Descrition: " &_ 
        Profile.LoadServiceByID(aProblem.ServiceID).Description 
    else
      aMessage = aMessage & vbNewLine & "    " &_ 
        "Code: " & aProblem.DxCode & "; Description: " & aProblem.DxDescription  
    end if 
  next 
end if
Profile.MsgBox(aMessage)