ISRxMedication.Repeats

Description

The number of repeats of the Rx medication, allowed on its prescription.

Syntax

object.Repeats

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 the number of repeats allowed on its prescription.

Dim aRxMedication
Dim aRxMedicationInfo  
 
Set aRxMedication = Profile.LoadRxMedication(1607)

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 &_  
  "Repeats: " & aRxMedication.Repeats & 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 Repeats cannot be found, but Rx medications can be repeated in Clinical > Medical Record > MedChart > Select the medication > Repeat.

Version information

Added in v7.10.90