ISRxMedication.PatientId

Description

ID of the patient the Rx medication was ordered to.

Syntax

object.PatientId

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 patient it was ordered to.

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 patient cannot be found, but Rx medications can be found in Clinical > Medical Record > MedChart.

Version information

Added in v7.10.90