ISInvestigationRef.Preferred

Description

Returns True if the investigation is to be added to the Preferred list.

Syntax

object.Preferred

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

Restriction: This property is readonly.

Return Value

bool

Example

Display Preferred for the investigation.

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

Set aFilter = Profile.MakeInvestigationOrderItemFilter
aFilter.DateFrom = #01/01/2000#
aFilter.DateTo = Now
aFilter.EncounterProvider = Profile.LoadProvider("MM")

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 the Preferred checkbox can be checked in Clinical > Medical Record > Past Orders > Select the order > Edit the related encounter > New Encounter > Pathology/Radiology/Other Ix > Right click on the selected investigation > Information.

Version information

Added in v7.8.0