ISRxMedication.ProviderID

Description

ID of the provider that authorised the Rx medication.

Syntax

object.ProviderID

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

Return Value

int

Example

Display some information about the loaded Rx medication, including the full name of the provider that authorised it.

Dim aRxMedication
Dim aRxMedicationInfo
Dim aPatient
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 aPatient = Profile.LoadPatient(aRxMedication.PatientId)
set aProvider = Profile.LoadProviderById(aRxMedication.ProviderID)
  
aRxMedicationInfo = _
  "Rx name: " & aRxMedication.RxName & vbNewLine &_
  "Date: " & aRxMedication.Date & vbNewLine &_
  "Ordered date: " & aRxMedication.OrderedDate & vbNewLine &_
  "Patient: " & aPatient.SurnameFirstName & vbNewLine &_
  "Provider: " & aProvider.FullName & vbNewLine 
if aRxMedication.Diagnosis.Id > 0 then 
  aRxMedicationInfo = aRxMedicationInfo & "Diagnosis: " &_
    aRxMedication.Diagnosis.Description   
end if        

Profile.MsgBox(aRxMedicationInfo)

Note:

In Profile Client v8 on User Interface ID of the provider cannot be found, but Provider's name can be found in Clinical > Medical Record > MedChart > Orderer.

Version information

Added in v7.10.90