ISMedicationsSet.RegularMeds

Description

The regular medications prescribed to the patient.

Syntax

object.RegularMeds()

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

Return Value

ISPrescriptions

Example

Display the number of the regular medications and their Rx names.

Dim aPatient
Dim aMedicationsSet
Dim aRegularMeds, aRegularMed 
Dim aMessage
Dim i    

Set aPatient = Profile.SelectPatient                             
set aMedicationsSet = aPatient.Medications
set aRegularMeds = aMedicationsSet.RegularMeds

aMessage = "Regular Medications Count = " & aRegularMeds.Count & vbNewLine 

for i = 0 to aRegularMeds.Count - 1
  set aRegularMed = aRegularMeds.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "RxName: " & aRegularMed.RxName 
next    

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Regular Meds can be found in Clinical > Medical Record > Prescriptions > Usual Scripts.

Version information

Added in v7.8.0