ISRxMedication.Discontinue

Description

This function discontinues the Rx medication.

Syntax

object.Discontinue aReasonId, aReasonComment, aDiscontinueDate

Part	Attribute	Type	Description
`object`	Required	ISRxMedication	The `object` always implements the ISRxMedication interface
`aReasonId`	In, Required	int	ID of the discontinue reason
`aReasonComment`	In, Required	string	The discontinue comment
`aDiscontinueDate`	In, Required	DateTime	The date when the Rx medication was discontinued

Example

Display some information about the loaded Rx medication and discontinue it.

Dim aRxMedication
Dim aRxMedicationInfo  

Set aRxMedication = Profile.LoadRxMedication(1751)

if aRxMedication is nothing then 
  Profile.MsgBox("There is no Rx Medication with the specified ID")
  exit sub
end if

aReasonId = Profile.LoadShortCodeByCodeType("ALLERGY", 72).ID 'sscDiscontinuedMedicationsReason
aReasonComment = "Allergy"
aDiscontinueDate = #9/11/2019#

aRxMedication.Discontinue aReasonId, aReasonComment, aDiscontinueDate

aRxMedicationInfo = _
  "Rx name: " & aRxMedication.RxName & vbNewLine &_
  "Is Discontinued: " & aRxMedication.IsDiscontinued & vbNewLine &_   
  "Discontinue Date: " & aRxMedication.DiscontinueDate & vbNewLine &_ 
  "Discontinue Comment: " & aRxMedication.DiscontinueComment & vbNewLine
if not aRxMedication.DiscontinueReason is nothing then
  aRxMedicationInfo = aRxMedicationInfo & "Discontinue Reason: " &_
    aRxMedication.DiscontinueReason.Description & vbNewLine 
end if        
if not aRxMedication.DiscontinuedBy is nothing then
  aRxMedicationInfo = aRxMedicationInfo & "Discontinued By: " &_
    aRxMedication.DiscontinuedBy.FullName 
end if       

Profile.MsgBox(aRxMedicationInfo)

Note:

In Profile Client v8 on User Interface Rx medication can be discontinued in Clinical > Medical Record > MedChart > Select the medication > Discontinue.

Version information

Added in v7.10.90