ISRecallAction.CDOForm

Example

Display some information about the actions, including the names of the CDO forms linked to them.

sub main   
  Dim aPatient
  Dim aRecallPlans, aPlan
  Dim aVisits, aVisit
  Dim aActions, aAction
  Dim aForm
  Dim i
  Dim aMessage
     
  Set aPatient = Profile.SelectPatient
  set aRecallPlans = aPatient.RecallPlans
   
  if aRecallPlans.Count = 0 then
    Profile.MsgBox("The patient has no care plans!")
    exit sub
  end if

  for each aPlan in aRecallPlans
    aMessage = aMessage & vbNewLine & "PLAN: '" & aPlan.Description & "'" & vbNewLine
    set aVisits = aPlan.Visits
    if aVisits.Count = 0 then
      aMessage = aMessage & vbNewLine & "  NO INTERVENTIONS" & vbNewLine
    end if
    for each aVisit in aVisits
      set aActions = aVisit.Actions     
      aMessage = aMessage & "   INTERVENTION: '" &_
        aVisit.Description & "'" & "  (Action Count = " & aActions.Count & ")" & vbNewLine

      for i = 0 to aActions.Count - 1 
        set aAction = aActions.Item(i)
        set aForm = aAction.CdoForm

        aMessage = aMessage &_
          "       ACTION: '" & aAction.Description & vbNewLine &_
          "          ID: " & aAction.ID & vbNewLine &_
          "          Code: " & aAction.Code & vbNewLine &_
          "          Status: " & aAction.Status & vbNewLine &_ 
          "          CDO Form TemplateID: " & aAction.CDOFormTemplateID & vbNewLine           
        
        if not aForm is nothing then
          aMessage = aMessage &_
            "          CDO Form Name: '" & aForm.Name & "'" & vbNewLine           
        end if  
        
        if aAction.CDOFormTemplateID > 0 then
        end if       
      next  
    next
  next
  Profile.MsgBox(aMessage)  
end sub