ISProfile.LoadInvestigationOrderItems

Description

This function returns order items with the assigned investigations.

Syntax

object.LoadInvestigationOrderItems(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISInvestigationOrderItemFilter	The object that defines conditions for filtering

Return Value

ISCollection

Returns order items with the assigned investigations.

Example

Display the number of the order items loaded on the basis of the selected filter and some information about the assigned investigations.

Dim aFilter
Dim aOrderItems, aOrderItem 
Dim aInvestigationRef
Dim aMessage
Dim i     

Set aFilter = Profile.MakeInvestigationOrderItemFilter
aFilter.DateFrom = #01/01/2000#
aFilter.DateTo = Now
aFilter.OrderType = Profile.Concept("IH", "IH086") 'Pathology

set aOrderItems = Profile.LoadInvestigationOrderItems(aFilter)

aMessage = "Order Items Count: " & aOrderItems.Count & vbNewLine

for i = 0 to aOrderItems.Count - 1
  set aOrderItem = aOrderItems.Item(i)
  set aInvestigationRef = aOrderItem.InvestigationRef  
    aMessage = aMessage & (i + 1) & ") " &_
      "-Order Item Creation Date: " & aOrderItem.CreationDate & vbNewLine &_
      "    -Investigation Ref Name: " & aInvestigationRef.Name & vbNewLine &_
      "    -Short Name: " & aInvestigationRef.ShortName & vbNewLine &_
      "    -Department: " & aInvestigationRef.Department.Name & vbNewLine &_
      "    -Order Code: " & aInvestigationRef.OrderCode & vbNewLine &_
      "    -Result Code: " & aInvestigationRef.ResultCode & vbNewLine &_
      "    -Available: " & aInvestigationRef.Available & vbNewLine &_
      "    -Appointment Required: " & aInvestigationRef.AppointmentRequired & vbNewLine &_
      "    -Preferred: " & aInvestigationRef.Preferred & vbNewLine 
next    

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Order Items can be found in Clinical > Medical Record > Past Orders > Select the order > Edit the related encounter > New Encounter.

Version information