ISOrderItem.IsStandingOrder

Example

Display IsStandingOrder for the order item.

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 &_
      "      -Investigation Ref: " & aOrderItem.InvestigationRef.Name & vbNewLine &_
      "      -Close Standing Order: " & aOrderItem.CloseStandingOrder & vbNewLine &_
      "      -Is Standing Order: " & aOrderItem.IsStandingOrder & vbNewLine &_
      "      -Standing From: " & aOrderItem.StandingFrom & vbNewLine &_
      "      -Standing To: " & aOrderItem.StandingTo & vbNewLine  
  next 'j    
next 'i    

Profile.MsgBox(aMessage)