ISMedicationsSet.Usual

Description

The usual prescriptions assigned to the patient.

Syntax

object.Usual

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

Restriction: This property is readonly.

Return Value

ISUsualPrescriptions

Example

Display the number of the usual prescriptions and their Rx names.

Dim aPatient
Dim aMedicationsSet
Dim aUsualPrescriptions, aUsualPrescription 
Dim aMessage
Dim i      

Set aPatient = Profile.SelectPatient
set aMedicationsSet = aPatient.Medications                             
set aUsualPrescriptions = aMedicationsSet.Usual

aMessage = "Usual Prescriptions Count = " & aUsualPrescriptions.Count & vbNewLine 

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

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0