ISRxMedication.LastPrintedProviderId

Description

ID of the provider that last printed the Rx medication order.

Syntax

object.LastPrintedProviderId

Part	Attribute	Type	Description
`object`	Required	ISRxMedication	The `object` always implements the ISRxMedication interface

Restriction: This property is readonly.

Return Value

int

Example

Display some information about the loaded Rx medication, including the full name of the provider that last printed the medication order.

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)

Note:

In Profile Client v8 on User Interface Last Printed Provider ID cannot be found, but Rx medications can be found in Clinical > Medical Record > MedChart.

Version information

Added in v7.10.90