ISRefillOrder.Items

Description

Each of the refill order items within the collection.

Syntax

object.Items

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

Restriction: This property is readonly.

Return Value

ISRefillItemColl

Example

Display the information about the items of the refill orders.

Dim aPatient
Dim aRefillOrderItems, aRefillOrderItem
Dim aRefillOrder
Dim aProvider
Dim aPOS
Dim aCreatedBy
Dim aSupplier
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient                            
set aRefillOrderItems = aPatient.Medications.ApprovedMeds

aMessage = "Refill Order Items Count = " & aRefillOrderItems.Count & vbNewLine 

for i = 0 to aRefillOrderItems.Count - 1                                        
  set aRefillOrderItem = aRefillOrderItems.Items(i)
  set aRefillOrder = aRefillOrderItem.RefillOrder
  set aProvider = Profile.LoadProviderById(aRefillOrder.ProviderID)
  set aPOS = Profile.LoadProviderById(aRefillOrder.PosID)
  set aCreatedBy = Profile.LoadProviderById(aRefillOrder.CreatedById)
  set aSupplier = Profile.LoadExternalProviderById(aRefillOrder.SupplierID)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Actioned On: " & aRefillOrderItem.ActionedOn & vbNewLine &_                    
    "Notes: " & aRefillOrderItem.Notes & vbNewLine &_
    "Outcome: " & aRefillOrderItem.Outcome & vbNewLine &_
    "Order ID: " & aRefillOrderItem.OrderID & vbNewLine &_
    "Is Pharmacy Called: " & aRefillOrderItem.IsPharmacyCalled & vbNewLine &_
    "Requested On: " & aRefillOrderItem.RequestedOn & vbNewLine &_ 
    "Refill Order: " & vbNewLine &_
    "    Created By: " & aCreatedBy.FullName & vbNewLine &_
    "    Created On: " & aRefillOrder.CreatedOn & vbNewLine &_
    "    Pos: " & aPos.Fullname & vbNewLine &_
    "    Provider: " & aProvider.FullName & vbNewLine &_
    "    Supplier: " & aSupplier.FullName & vbNewLine &_
    "    Patient: " & aPatient.SurnameFirstName & vbNewLine    
                                                                
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Provider ID cannot be found, but Provider can be found in Organisation > Work Centre > Work > Prescription Refills.

Version information

Added in v7.8.0