ISMedicationsSet.All

Description

All prescriptions assigned to the patient.

Syntax

object.All

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

Restriction: This property is readonly.

Return Value

ISPrescriptions

Example

Display the number of the patient's prescriptions and their Rx names.

Dim aPatient
Dim aMedicationsSet
Dim aPrescriptions, aPrescription
Dim aMessage
Dim i      

Set aPatient = Profile.SelectPatient                         
set aMedicationsSet = aPatient.Medications
set aPrescriptions = aMedicationsSet.All

aMessage = "Medications Count = " & aPrescriptions.Count 

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

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0