ISRxMedication.RxToTake

Example

Display some information about the loaded Rx medication, including the Rx item to be taken by the patient.

Dim aRxMedication
Dim aProvider
Dim aRxMedicationInfo  
 
Set aRxMedication = Profile.LoadRxMedication(1884)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               

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

set aProvider = Profile.LoadProviderById(aRxMedication.ProviderID) 

aRxMedicationInfo = _
  "Rx Name: " & aRxMedication.RxName & vbNewLine &_  
  "Rx to Take: " & aRxMedication.RxToTake.AsString & vbNewLine &_
  "Provider: " & aProvider.FullName  & vbNewLine &_  
  "Ordered date: " & aRxMedication.OrderedDate & vbNewLine
if aRxMedication.Diagnosis.Id > 0 then 
  aRxMedicationInfo = aRxMedicationInfo & "Diagnosis: " &_
    aRxMedication.Diagnosis.Description   
end if        

Profile.MsgBox(aRxMedicationInfo)