ISOrder.SelfCollectText

Example

Display the number of the orders and some information about them, including the details of their collection that are entered as free text.

Dim aPatient
Dim aOrdersLoader
Dim aOrders, aOrder
Dim i
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) & ") " &_
    "DT Modified: " & aOrder.GetDTModified & vbNewLine &_
    "    ID: " & aOrder.ID & vbNewLine &_
    "    GUID: " & aOrder.GUID & vbNewLine &_
    "    Patient: " & aOrder.Patient.SurnameFirstName & vbNewLine &_
    "    Clinical Detail: " & aOrder.ClinicalDetail & vbNewLine &_
    "    Dx Info: " & aOrder.DxInfo & vbNewLine &_
    "    Encounter: " & aOrder.Encounter.Date & vbNewLine &_ 
    "    Supplier Type: " & aOrder.SupplierType.Name & vbNewLine &_
    "    Supplier: " & aOrder.Supplier.FullName & vbNewLine &_
    "    Self Collect Date: " & aOrder.SelfCollectDate & vbNewLine &_
    "    Self Collect Text: " & aOrder.SelfCollectText & vbNewLine               
next    

Profile.MsgBox(aMessage)