ISProfile.LoadRxSchedules

Description

This function is used to load Rx schedules by the specified filter.

Syntax

object.LoadRxSchedules(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISRxScheduleFilter

Return Value

ISRxSchedules

Returns Rx schedules by the specified filter.

Example

Returns the number of Rx schedules loaded on the basis of the selected filter and some information about them.

Dim aPatient
Dim aFilter 
Dim aRxSchedules, aRxSchedule
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateRxScheduleFilter
aFilter.PatientID = aPatient.ID
set aRxSchedules = Profile.LoadRxSchedules(aFilter)

aMessage = "Rx Schedules Count = " & aRxSchedules.Count
for i = 0 to aRxSchedules.Count - 1
  set aRxSchedule = aRxSchedules.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Created On: " & aRxSchedule.CreatedOn & vbNewLine &_
    "Medication Name: " & aRxSchedule.MedicationName & vbNewLine &_
    "Dose Per Day: " & aRxSchedule.DosePerDay & vbNewLine &_
    "End Date: " & aRxSchedule.EndDate & vbNewLine &_
    "Instructions: " & aRxSchedule.Instructions & vbNewLine 
  
next      

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.1