ISCareAction.BlobData

Example

Display RTF Text for the action with the activity type 'Typing Template'. Display Letter Template Description for the action with the activity type 'Letter'.

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 &_
        "    Blob Data : " & aAction.BlobData
         
    next 'j
  end if
    
next 'i
  
Profile.MsgBox (aMessage)