ISProblemList.ItemByID

Description

The patient problem, loaded from the collection by its ID.

Syntax

object.ItemByID(aProblemID)

Part	Attribute	Type	Description
`object`	Required	ISProblemList	The `object` always implements the ISProblemList interface
`aProblemID`	In, Required	int	ID of the problem, that should be loaded

Restriction: This property is readonly.

Return Value

ISPatientProblem

Example

Display the code, description and ID of the problem, loaded from the collection by its ID.

Dim aPatient  
Dim aProblemList
Dim aProblemID
Dim aProblem
Dim aMessage

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

if aProblemList.Count = 0 then
  aMessage = "No problems"
else    
  aProblemID = aProblemList.Item(0).ID
  set aProblem = aProblemList.ItemByID(aProblemID)
  aMessage = aMessage & vbNewLine & (i + 1) & ") Code: " & aProblem.DxCode &_ 
    "; Description: " & aProblem.DxDescription & " (ID: " & aProblem.ID & ")" 
end if

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Problem ID cannot be found, but Problem List can be found in Clinical > Medical Record > Problems, in Clinical > Clinical Details > Problems or in Patient > Cases > Clinical > Problems.

Version information

Added in v7.8.0