ISMedicationsSet.DiscontinuedMedications

Description

The prescriptions that were discontinued.

Syntax

object.DiscontinuedMedications

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 discontinued prescriptions and their Rx names.

Dim aPatient
Dim aMedicationsSet
Dim aDiscontinuedMedications, aDiscontinuedMedication
Dim aMessage
Dim i      

Set aPatient = Profile.SelectPatient
set aMedicationsSet = aPatient.Medications                              
set aDiscontinuedMedications = aMedicationsSet.DiscontinuedMedications

aMessage = "Discontinued Medications Count = " & aDiscontinuedMedications.Count & vbNewLine 

for i = 0 to aDiscontinuedMedications.Count - 1
  set aDiscontinuedMedication = aDiscontinuedMedications.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Rx Name: " & aDiscontinuedMedication.RxName 
next    

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0