ISRecallObjective.IsNew

Example

Display IsNew for the care plan objective.

Dim aPatient
Dim aRecallPlans
Dim aPlan
Dim i
Dim aObjective
Dim aObjectives
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
  set aObjective = aPlan.CreateObjective("Objective On Date " & Now)
  aMessage = aMessage & vbNewLine & "The objective '" & aObjective.Name &_
    "' for the patient's care plan '" & aPlan.Description &_
    "' was successfully created! "  
next

for each aPlan in aRecallPlans
  set aObjectives = aPlan.RecallObjectives
  aMessage = aMessage & vbNewLine & " - " & aPlan.Description  
  for i = 0 to aObjectives.Count -1
    set aObjective = aObjectives.Item(i)
    aMessage = aMessage & vbNewLine & "     " & aObjective.Name &_
      " (IsNew = " & aObjective.IsNew & ")"   
  next
next

Profile.MsgBox(aMessage)