ISOrderItem.CloseStandingOrder

Description

Returns True if the existing standing order should be removed from the standing orders list.

Syntax

object.CloseStandingOrder

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

Restriction: This property is readonly.

Return Value

bool

Example

Display CloseStandingOrder 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)

Note:

In Profile Client v8 on User Interface the Close Standing Order checkbox can be checked in Clinical > Medical Record > Past Orders > Select the order > Edit the related encounter > New Encounter > Pathology/Radiology/Other Ix > Standing.

Version information

Added in v7.8.0