ISInvestigationRef.AppointmentRequired

Description

Returns True if the patient must make an appointment with the supplier of the investigation.

Syntax

object.AppointmentRequired

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

Restriction: This property is readonly.

Return Value

bool

Example

Display Appointment Required 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 Appointment 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