ISCareVisits.Count

Description

The number of intervention templates within the collection.

Syntax

object.Count

Part	Attribute	Type	Description
`object`	Required	ISCareVisits	The `object` always implements the ISCareVisits interface

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the intervention templates in 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):"
 
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