ISRxMedication.GetBrandGenericName

Description

This function returns the brand and generic names of the Rx medication.

Syntax

object.GetBrandGenericName(aGenericFirst)

Part	Attribute	Type	Description
`object`	Required	ISRxMedication	The `object` always implements the ISRxMedication interface
`aGenericFirst`	In, Required	bool	This flag indicates that the generic name of the Rx medication stands first

Return Value

string

Returns the brand and generic names of the loaded Rx medication.

Example

Display some information about the loaded Rx medication, including its brand and generic names.

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 &_  
  "[Brand] and Generic Names: " & aRxMedication.GetBrandGenericName(True) &_
  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 Brand and Generic names can be found in Clinical > Medical Record > MedChart > Medication (Brand > Generic).

Version information

Added in v7.10.100