ISRxMedication.Contact

Example

Display some information about the loaded Rx medication, including the diagnosis and date of the contact linked to it.

Dim aRxMedication
Dim aContact
Dim aRxMedicationInfo  
 
Set aRxMedication = Profile.LoadRxMedication(1593)

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

set aContact = aRxMedication.Contact

aRxMedicationInfo = _
  "Rx name: " & aRxMedication.RxName & vbNewLine &_
  "Date: " & aRxMedication.Date & vbNewLine &_
  "Ordered date: " & aRxMedication.OrderedDate & vbNewLine  
if not aContact is nothing then   
  aRxMedicationInfo = aRxMedicationInfo & "Contact Diagnosis: " &_
    aContact.DiagnosisDescription & " (Date: " & aContact.Date & ")"
end if 

Profile.MsgBox(aRxMedicationInfo)