ISCareAction.VisitTemplateID

Description

The loading of visit templates and their actions is not supported now.

Syntax

object.VisitTemplateID

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

Return Value

int

Example

Display ID of the intervention template the action template is linked to.

Dim aCarePlan
Dim aMessage
Dim aVisits
Dim aVisit
Dim aActions
Dim aAction

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

if aVisits.Count = 0 then
  Profile.MsgBox ("NO INTERVENTIONS!")
  exit sub
end if  
 
for i = 0 to aVisits.Count - 1
  set aVisit = aVisits.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Intervention: " & aVisit.Description 

  set aActions = aVisit.Actions
  if aActions.Count = 0 then 
    aMessage = aMessage & vbNewLine & "  No Actions!"
  else  
    for j = 0 to aActions.Count - 1    
      set aAction = aActions.Item(j)
      aMessage = aMessage & vbNewLine & "  Action: " &_
        aAction.Description & _
        ":    VisitId : " & aAction.CPVS_ID &_        
        ";    VisitTemplateId : " & aAction.VisitTemplateID         
    next 'j
  end if    
next 'i
  
Profile.MsgBox (aMessage)

Note:

Version information

Added in v7.8.0