ISMedicationsSet.RefillMeds

Description

This function returns the prescription refill items assigned to the patient.

Syntax

object.RefillMeds()

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

Return Value

ISRefillItemColl

Returns the prescription refill items assigned to the patient.

Example

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

Dim aPatient
Dim aMedicationsSet
Dim aRefillMed, aRefillMeds 
Dim aMessage
Dim i   

Set aPatient = Profile.SelectPatient                             
set aMedicationsSet = aPatient.Medications
set aRefillMeds = aMedicationsSet.RefillMeds

aMessage = "Refill Medications Count = " & aRefillMeds.Count & vbNewLine 

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

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0