ISOrderItem.OrderRepeatDescription

Example

Display the number of the orders and some information about the order items, including the intervals at which the orders should be repeated.

sub main
  Dim aPatient
  Dim aOrdersLoader
  Dim aOrders, aOrder
  Dim aOrderItems, aOrderItem
  Dim i, j
  Dim aMessage

  Set aPatient = Profile.SelectPatient
  set aOrdersLoader = Profile.CreateOrdersLoader
  aOrdersLoader.Patient = aPatient
  aOrdersLoader.ChangedSince = #01/01/2000#

  set aOrders = aOrdersLoader.LoadOrders

  aMessage = "Orders Count = " & aOrders.Count & vbNewLine

  for i = 0 to aOrders.Count - 1
    set aOrder = aOrders.Item(i)
    aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
      "Order: " & aOrder.GetDTModified & vbNewLine
  
    set aOrderItems = aOrder.OrderItems   
    for j = 0 to aOrderItems.Count - 1
      set aOrderItem = aOrderItems.Item(j)
      aMessage = aMessage & (i + 1) & "." & (j + 1) & " " &_
        "-Order Item Creation Date: " & aOrderItem.CreationDate & vbNewLine &_
        "      -Separate Page: " & aOrderItem.SeparatePage & vbNewLine &_
        "      -Order Repeat Description: " & aOrderItem.OrderRepeatDescription & vbNewLine &_
        "      -Order Repeat Value: " & aOrderItem.OrderRepeatValue & vbNewLine &_
        "      -Order Repeat Interval: " &_
        GetRepeatIntervalDescr(aOrderItem.OrderRepeatInterval) & vbNewLine
         
      if not aOrderItem.GetContactActionLink is nothing then  
        aMessage = aMessage & "      -Get Contact Action Link: " &_
          aOrderItem.GetContactActionLink.Description & vbNewLine
      end if
     
    next 'j    
  next 'i    

  Profile.MsgBox(aMessage)
end sub

function GetRepeatIntervalDescr(aInterval)
  Dim aResult

  Select Case aInterval
    Case 0
      aResult = "None"
    Case 1
      aResult = "Days"
    Case 2
      aResult = "Weeks"
    Case 3
      aResult = "Months"
    Case 4
      aResult = "Years"  
    Case 3
      aResult = "Times"           
  End Select
  
  GetRepeatIntervalDescr = aResult
end function