ISPatientRecallVisits.Item

Description

Each of the interventions within the patient's interventions.

Syntax

object.Item(prvIndex)

Part	Attribute	Type	Description
`object`	Required	ISPatientRecallVisits	The `object` always implements the ISPatientRecallVisits interface
`prvIndex`	In, Required	int	The index of the intervention

Restriction: This property is readonly.

Return Value

ISPatientRecallVisit

Example

Display each of the interventions within the patient's interventions.

Dim aFilter
Dim aSelected
Dim aVisits
Dim aVisit
Dim aPlan
Dim aMessage

aSelected = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, "blablabla", true)
if not aSelected then exit sub

set aFilter = Profile.CreateRecallVisitFilter
aFilter.CaseId = aCaseId

set aVisits = Profile.LoadRecallVisits(aFilter)

if aVisits.Count = 0 then
  aMessage = "The patient has no interventions"
else
  aMessage = " There is (are) " & aVisits.Count & " intervention(s)."
end if    

for i = 0 to aVisits.Count - 1 
  set aVisit = aVisits.Item(i)
  set aPlan = aVisit.ParentPlan
  aMessage = aMessage & vbNewLine & "The intervention '" & aVisit.Description &_
    "' (" & aVisit.Code & ") of the care plan '" &_
    aPlan.Description & "' (" & aPlan.Code & ")"   
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Item can be found in Case Clinical > Care Plans > Clinical > Care Plans > Care Plans Interventions.

Version information

Added in v7.8.0