ISRxMedication.DiagnosisID

Description

ID of the disease code that is linked to the Rx medication.

Syntax

object.DiagnosisID

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

Restriction: This property is readonly.

Return Value

int

Example

Display the short information about the loaded Rx medication, including the diagnosis linked to it.

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 = _
  "Rx name: " & aRxMedication.RxName & vbNewLine &_
  "Date: " & aRxMedication.Date & vbNewLine &_
  "Ordered date: " & aRxMedication.OrderedDate & vbNewLine &_  
  "OID: " & aRxMedication.OID & vbNewLine 
if aRxMedication.Diagnosis.Id > 0 then 
  aRxMedicationInfo = aRxMedicationInfo & "Diagnosis: " &_
    Profile.GetDiagnosisDescription(aRxMedication.DiagnosisID) & " (ID: " &_
    aRxMedication.DiagnosisID & ")"   
end if        

Profile.MsgBox(aRxMedicationInfo)

Note:

In Profile Client v8 on User Interface ID of the disease code cannot be found, but Diagnosis can be found in Clinical > Medical Record > MedChart > Indication (Dx).

Version information

Added in v7.10.90