ISRxMedication.MedicationMethodId

Description

ID of the short code of type 'MedChart Order Method'.

Syntax

object.MedicationMethodId

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 its order method.

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 as Single Line: " & aRxMedication.RxAsSingleLine & vbNewLine &_
  "Ordered date: " & aRxMedication.OrderedDate & vbNewLine &_
  "Medication Status: " & aRxMedication.MedicationStatus & vbNewLine &_
  "Medication Type: " &_
  Profile.LoadShortCode(aRxMedication.MedicationTypeId).Description & vbNewLine 
if aRxMedication.MedicationMethodId <> 0 then 
  aRxMedicationInfo = aRxMedicationInfo & "Medication Method: " &_
    Profile.LoadShortCode(aRxMedication.MedicationMethodId).Description
end if    

Profile.MsgBox(aRxMedicationInfo)

Note:

In Profile Client v8 on User Interface Medication Method Id cannot be found, but Medication Method can be found in Clinical > Medical Record > MedChart > Order Method.

Version information

Added in v7.10.90