ISRxMedication.DiscontinueReason

Example

Display some information about the loaded Rx medication, including the reason for which it was discontinued.

Dim aRxMedication
Dim aRxMedicationInfo  
 
Set aRxMedication = Profile.LoadRxMedication(1607)

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

aRxMedicationInfo = _
  "Rx name: " & aRxMedication.RxName & vbNewLine &_
  "Is Discontinued: " & aRxMedication.IsDiscontinued & vbNewLine &_   
  "Discontinue Date: " & aRxMedication.DiscontinueDate & vbNewLine &_ 
  "Discontinue Comment: " & aRxMedication.DiscontinueComment & vbNewLine
if not aRxMedication.DiscontinueReason is nothing then
  aRxMedicationInfo = aRxMedicationInfo & "Discontinue Reason: " &_
    aRxMedication.DiscontinueReason.Description & vbNewLine 
end if        
if not aRxMedication.DiscontinuedBy is nothing then
  aRxMedicationInfo = aRxMedicationInfo & "Discontinued By: " &_
    aRxMedication.DiscontinuedBy.FullName 
end if       

Profile.MsgBox(aRxMedicationInfo)