ISPatientRecallVisit.IsNew

Example

Display IsNew for the patient's intervention.

sub main()
  Dim aPatient, aRecallVisits, 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

  set aFirstPlan = aRecallPlans.Item(0)
   
  aMessage = aFirstPlan.Description & vbNewLine &_
    "BEFORE:" & vbNewLine & GetVisitCollectionInfo(aFirstPlan.Visits)   
   
  set aNewVisit = aFirstPlan.AddVisit("13", #01/08/2019#, False)  
  
  aMessage = aMessage & vbNewLine & vbNewLine & "AFTER:" & vbNewLine &_
    GetVisitCollectionInfo(aFirstPlan.Visits)

  Profile.MsgBox(aMessage)
end sub

function GetVisitCollectionInfo(aVisits)
  for each aVisit in aVisits 
    info = info & vbNewLine & aVisit.Code & " - " & aVisit.IsNew 
      
  next
  GetVisitCollectionInfo = info
end function