ISRxMedication.Administrations

Example

Display the number of administrations linked to the loaded Rx medication, their Rx names, dosages and dates when they were modified.

Dim aRxMedication
Dim aRxMedicationInfo
Dim aAdministrations
Dim aRxAdministration  
 
Set aRxMedication = Profile.LoadRxMedication(1558)

if aRxMedication is nothing then 
  Profile.MsgBox("There is no Rx Medication with the specified ID")
  exit sub
end if

set aAdministrations = aRxMedication.Administrations
  
aRxMedicationInfo = "Administrations Count = " & aAdministrations.Count &_
    vbNewLine & vbNewLine & "Rx Name" & vbTab & vbTab & "Dosage" & vbTab &_
    "Modified" & vbNewLine
  
for i = 0 to aAdministrations.Count - 1
  set aRxAdministration = aAdministrations.Items(i)
  aRxMedicationInfo = aRxMedicationInfo & (i + 1) & ") " &_
    aRxAdministration.RxName & vbTab & aRxAdministration.Dosage & vbTab &_
    aRxAdministration.DTModified & vbNewLine
next     

Profile.MsgBox(aRxMedicationInfo)