ISPatientRecallVisit.RepeatUnit

Description

The repeating period for a repeating intervention: days, weeks, months, years.

1	Never
2	Weeks
3	Months
4	Years
5	Days
6	Recurrence

Syntax

object.RepeatUnit

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

Return Value

int

Example

Display the repeating period for the patient's repeating intervention: days, weeks, months, years.

sub main()
  Dim aPatient, aRecallVisits, aMessage
     
  set aPatient = Profile.SelectPatient
  set aRecallPlans = aPatient.RecallPlans  

  aMessage = aMessage & GetPlanCollectionInfo(aRecallPlans)

  Profile.MsgBox(aMessage)
end sub

function GetPlanCollectionInfo(aRecallPlans)
  for each aPlan in aRecallPlans
    info = aPlan.Description & vbNewLine
    set aVisits = aPlan.Visits
    for each aVisit in aVisits 
      info = info & " Repeating period for the patient's " &_
      "repeating intervention '" &_
      aVisit.Description & "'  =  " & aVisit.RepeatUnit & vbNewLine
    next
  next  
  GetPlanCollectionInfo = info
end function

Note:

In Profile Client v8 on User Interface Repeat Unit can be found in Clinical > Medical Record > Care Plans > Open active object(s) > Repeat fields.

Version information

Added in v7.8.0