ISMedicationsSet.ApprovedMeds

Description

This function returns the prescription refill items that were approved.

Syntax

object.ApprovedMeds()

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

Return Value

ISRefillItemColl

Returns the prescription refill items that were approved.

Example

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

Dim aPatient
Dim aMedicationsSet
Dim aApprovedMeds, aApprovedMed 
Dim aMessage
Dim i   

Set aPatient = Profile.SelectPatient 
set aMedicationsSet = aPatient.Medications                             
set aApprovedMeds = aMedicationsSet.ApprovedMeds

aMessage = "Approved Medications Count = " & aApprovedMeds.Count & vbNewLine 

for i = 0 to aApprovedMeds.Count - 1
  set aApprovedMed = aApprovedMeds.Items(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Rx Name: " & aApprovedMed.RxPrescr.RxName 
next    

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0