ISRxMedication.LastPrintedDateTime

Example

Display some information about the loaded Rx medication, including the date and time when the Rx medication order was last printed.

Dim aRxMedication
Dim aRxMedicationInfo
Dim aProvider  
 
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 aProvider = Profile.LoadProviderById(aRxMedication.LastPrintedProviderId)  

aRxMedicationInfo = _
  "Rx name: " & aRxMedication.RxName & vbNewLine &_
  "Date: " & aRxMedication.Date & vbNewLine &_
  "Ordered date: " & aRxMedication.OrderedDate & vbNewLine &_
  "Last Printed: " & aRxMedication.LastPrintedDateTime & vbNewLine
if aRxMedication.LastPrintedProviderId > 0 then 
  aRxMedicationInfo = aRxMedicationInfo & "Last Printed Provider: " &_
  aProvider.FullName 
end if
    
Profile.MsgBox(aRxMedicationInfo)