ISRxMedication.ExpectedEndDate

Example

Display some information about the loaded Rx medication, including the date when it is expected to end.

Dim aRxMedication
Dim aRxMedicationInfo  
 
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

aRxMedicationInfo = _
  "Rx name: " & aRxMedication.RxName & vbNewLine &_
  "Start Date: " & aRxMedication.StartDate & vbNewLine &_  
  "Expected End Date: " & aRxMedication.ExpectedEndDate & vbNewLine &_
  "Auto-End: " & aRxMedication.AutoEnd & vbNewLine   
if aRxMedication.Diagnosis.Id > 0 then 
  aRxMedicationInfo = aRxMedicationInfo & "Diagnosis: " &_
    aRxMedication.Diagnosis.Description   
end if
     
Profile.MsgBox(aRxMedicationInfo)