ISCareVisit.isActionExists

Description

This function returns True if the selected intervention template has actions with the specified service code.

Syntax

object.isActionExists(Code)

Part	Attribute	Type	Description
`object`	Required	ISCareVisit	The `object` always implements the ISCareVisit interface
`Code`	In, Required	string	The code of the action

Return Value

bool

Returns the actions with the specified service code the selected intervention template has.

Example

Display isActionExists for the intervention template.

Dim aCarePlan
Dim aMessage
Dim aVisits
Dim aVisit
Dim aActionExists

Set aCarePlan = Profile.LoadCarePlanByCode ("FLU") 
set aVisits = aCarePlan.Visits

if aVisits.Count = 0 then
  Profile.MsgBox("There are no care visits!")
  exit sub
end if  
 
for i = 0 to aVisits.Count - 1
  set aVisit = aVisits.Item(i)
  aMessage = aMessage & vbNewLine & "Intervention: " & aVisit.Description 

  aActionExists = aVisit.isActionExists ("120") 

  aMessage = aMessage & vbNewLine & "Action exists: " & aActionExists  

next 'i
  
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface is Action Exists cannot be found.

Version information

Added in v7.8.0