ISRecallAction.DueOn

Description

The due date of the action. The property returns the date of the action if the action status is Still Due, otherwise it returns the default time.

Syntax

object.DueOn

Part	Attribute	Type	Description
`object`	Required	ISRecallAction	The `object` always implements the ISRecallAction interface

Return Value

DateTime

Example

Display the due date of the action.

sub main   
  Dim aPatient
  Dim aRecallPlans
  Dim aPlan
  Dim aVisit
  Dim aVisits
  Dim aActions
  Dim aAction
  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 & "'"
    set aVisits = aPlan.Visits
    if aVisits.Count = 0 then
      aMessage = aMessage & vbNewLine & "  NO INTERVENTIONS"
    end if
    for each aVisit in aVisits
      set aActions = aVisit.Actions     
      aMessage = aMessage & vbNewLine & "  INTERVENTION: '" &_
        aVisit.Description & "'" & "  (Action Count = " & aActions.Count & ")"

      for i = 0 to aActions.Count - 1 
        set aAction = aActions.Item(i)
        aMessage = aMessage & vbNewLine & " The date the action '" &_
          aAction.Description & "' is due = " & aAction.DueOn   
      next  
    next
  next
  Profile.MsgBox(aMessage)  
end sub

Note:

In Profile Client v8 on User Interface Due On cannot be found.

Version information

Added in v7.8.0