ISRxMedication.UpdatePrintedInfo

Example

Display the information about the date and provider of last printing of the Rx medication order before and after updating.

sub main
  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 = "Printed Info before updating " & vbNewLine &_
    GetRxMedicationTextInfo(aRxMedication)

  aRxMedication.UpdatePrintedInfo
   
  aRxMedicationInfo = aRxMedicationInfo & vbNewLine &_
   "Printed Info after updating " & vbNewLine &_  
    GetRxMedicationTextInfo(aRxMedication)
 
  Profile.MsgBox(aRxMedicationInfo)
end sub

function GetRxMedicationTextInfo(aRxMedication)
  Dim aProvider
  Dim aTextInfo
  
  set aProvider = Profile.LoadProviderById(aRxMedication.LastPrintedProviderId) 
  aTextInfo = "- Date: " & aRxMedication.LastPrintedDateTime & vbNewLine &_
    "- Provider: " & aProvider.FullName & vbNewLine

  GetRxMedicationTextInfo = aTextInfo
end function