ISMedicationsSet.ActionedMeds

Description

This function returns the prescription refill items that were actioned.

Syntax

object.ActionedMeds()

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

Return Value

ISRefillItemColl

Returns the prescription refill items that were actioned.

Example

Display the number of the actioned prescription refill items and their Rx names.

Dim aPatient
Dim aMedicationsSet
Dim aActionedMeds, aActionedMed 
Dim aMessage
Dim i   

Set aPatient = Profile.SelectPatient                            
set aMedicationsSet = aPatient.Medications
set aActionedMeds = aMedicationsSet.ActionedMeds

aMessage = "Actioned Medications Count = " & aActionedMeds.Count & vbNewLine 

for i = 0 to aActionedMeds.Count - 1
  set aActionedMed = aActionedMeds.Items(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "RxName: " & aActionedMed.RxPrescr.RxName 
next    

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0