ISRefillItemColl.Items

Description

Each of the refill items within the collection.

Syntax

object.Items(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISRefillItemColl	The `object` always implements the ISRefillItemColl interface
`aIndex`	In, Required	int	The index of the refill item

Restriction: This property is readonly.

Return Value

ISRefillOrderItem

Example

Display the number of the refill items and some information about them.

Dim aPatient
Dim aRefillOrderItems, aRefillOrderItem
Dim aMessage
Dim i
Dim aProvider

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 aProvider = Profile.LoadProviderById(aRefillOrderItem.ActionedByID)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Actioned On: " & aRefillOrderItem.ActionedOn & vbNewLine &_
    "Actioned By: " & aProvider.FullName & vbNewLine &_
    "Notes: " & aRefillOrderItem.Notes & vbNewLine &_
    "Outcome: " & aRefillOrderItem.Outcome & vbNewLine &_
    "Order ID: " & aRefillOrderItem.OrderID & vbNewLine &_
    "Requested On: " & aRefillOrderItem.RequestedOn & vbNewLine 
next    

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Refill Items can be found in Organisation > Work Centre > Work > Prescription Refills.

Version information

Added in v7.8.0