ISCareAction.CPVS_ID

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 ("FLU") 
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 & vbNewLine &_
        "    ID of the intervention the action is linked to : " & aAction.CPVS_ID
         
    next 'j
  end if
    
next 'i
  
Profile.MsgBox (aMessage)