ISOrderItem.SeparatePage

Example

Display SeparatePage for the order item.

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