ISMedicationsSet.getPrescr

Description

This function returns the prescription with the specified ID.

Syntax

object.getPrescr(aPrescrID)

Part	Attribute	Type	Description
`object`	Required	ISMedicationsSet	The `object` always implements the ISMedicationsSet interface
`aPrescrID`	In, Required	int	ID of the prescription

Return Value

ISPrescription

Returns the prescription with the specified ID.

Example

Display some information about the loaded prescription.

Dim aPatient                                      
Dim aPrescrID
Dim aMedicationsSet 
Dim aPrescription
Dim aMessage   

On Error Resume Next

Set aPatient = Profile.SelectPatient             
set aMedicationsSet = aPatient.Medications
aPrescrID = 2076  
set aPrescription = aMedicationsSet.getPrescr(aPrescrID)

aMessage = "RxName: " & aPrescription.RxName & vbNewLine &_
  "Date: " & aPrescription.Date & vbNewLine &_
  "Dosage Line: " & aPrescription.DosageLine & vbNewLine &_  
  "Mitte: " & aPrescription.Mitte & vbNewLine &_  
  "OID: " & aPrescription.OID & vbNewLine
    
if Err.Number <> 0 then
  aMessage = "There is no prescription with the specified ID" 
  Err.Clear   
end If

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Prescriptions can be found in Clinical > Medical Record > Prescriptions.

Version information

Added in v7.8.0