ISRefillOrderItem.RxPrescrID

Description

ID of the Rx prescription linked to the specified order item.

Syntax

object.RxPrescrID

Part	Attribute	Type	Description
`object`	Required	ISRefillOrderItem	The `object` always implements the ISRefillOrderItem interface

Return Value

int

Example

Display the number of the refill order items and some information about them.

Dim aPatient
Dim aRefillOrderItems, aRefillOrderItem
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient                            
set aRefillOrderItems = aPatient.Medications.ApprovedMeds 'ISRefillItemColl

aMessage = "Refill Order Items Count = " & aRefillOrderItems.Count & vbNewLine                                                                  
for i = 0 to aRefillOrderItems.Count - 1
  set aRefillOrderItem = aRefillOrderItems.Items(i)  'ISRefillOrderItem
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Actioned On: " & aRefillOrderItem.ActionedOn & vbNewLine &_  
    "Notes: " & aRefillOrderItem.Notes & vbNewLine &_
    "Outcome: " & aRefillOrderItem.Outcome & vbNewLine &_
    "Order ID: " & aRefillOrderItem.OrderID & vbNewLine &_
    "Rx Prescription ID: " & aRefillOrderItem.RxPrescrID & vbNewLine &_
    "Is Pharmacy Called: " & aRefillOrderItem.IsPharmacyCalled & vbNewLine &_
    "Requested On: " & aRefillOrderItem.RequestedOn & vbNewLine 

 if not aRefillOrderItem.RxPrescr is nothing then
    aMessage = aMessage &_
      "Rx Prescription: " & aRefillOrderItem.RxPrescr.RxName & vbNewLine 
  end if                                                             
next                                                                               
                             
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface ID cannot be found, but Rx Prescription can be found in Organisation > Work Centre > Work > Prescription Refills > Actioned Items > Rx instruction.

Version information

Added in v7.8.0