ISCareVisits.Item

Description

Each of the intervention templates within the collection.

Syntax

object.Item(Index)

Part	Attribute	Type	Description
`object`	Required	ISCareVisits	The `object` always implements the ISCareVisits interface
`Index`	In, Required	int

Restriction: This property is readonly.

Return Value

ISCareVisit

Example

Display the code and description of each intervention template of the selected care plan template.

Dim aCarePlan
Dim aMessage

set aCarePlan = Profile.LoadCarePlanByCode ("FLU") 

if aCarePlan is nothing then 
  Profile.MsgBox ("There is no care plan with this code")
  exit sub   
end if

aMessage = "Care Plan: " & aCarePlan.Description & " (" &  aCarePlan.Code & ")"

set aVisits = aCarePlan.Visits

if aVisits.Count = 0 then
  aMessage = aMessage & vbNewLine & "There are no visits"
else
  aMessage = aMessage & vbNewLine & "There is (are) " & aVisits.Count & " Visit(s):"
  for i = 0 to aVisits.Count - 1
    set aVisit = aVisits.Item(i)
    aMessage = aMessage & vbNewLine & aVisit.Description & " (" & aVisit.Code & ")"  
  next
end if       
   
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Care Visits can be found in Maintain > Care Plans > Open Plan > Interventions.

Version information

Added in v7.8.0