ISProfile.CreateRxScheduleFilter

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)