ISRefillOrder.PatientId

Description

ID of the patient the refill order was created for.

Syntax

object.PatientId

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

Return Value

int

Example

Display the information about the items of the refill orders.

Dim aPatient
Dim aRefillOrderItems, aRefillOrderItem
Dim aRefillOrder
Dim aProvider
Dim aPOS
Dim aCreatedBy
Dim aSupplier
Dim aMessage
Dim i

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

aMessage = "Refill Order Items Count = " & aRefillOrderItems.Count & vbNewLine 

for i = 0 to aRefillOrderItems.Count - 1                                        
  set aRefillOrderItem = aRefillOrderItems.Items(i)
  set aRefillOrder = aRefillOrderItem.RefillOrder
  set aProvider = Profile.LoadProviderById(aRefillOrder.ProviderID)
  set aPOS = Profile.LoadProviderById(aRefillOrder.PosID)
  set aCreatedBy = Profile.LoadProviderById(aRefillOrder.CreatedById)
  set aSupplier = Profile.LoadExternalProviderById(aRefillOrder.SupplierID)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Actioned On: " & aRefillOrderItem.ActionedOn & vbNewLine &_                    
    "Notes: " & aRefillOrderItem.Notes & vbNewLine &_
    "Outcome: " & aRefillOrderItem.Outcome & vbNewLine &_
    "Order ID: " & aRefillOrderItem.OrderID & vbNewLine &_
    "Is Pharmacy Called: " & aRefillOrderItem.IsPharmacyCalled & vbNewLine &_
    "Requested On: " & aRefillOrderItem.RequestedOn & vbNewLine &_ 
    "Refill Order: " & vbNewLine &_
    "    Created By: " & aCreatedBy.FullName & vbNewLine &_
    "    Created On: " & aRefillOrder.CreatedOn & vbNewLine &_
    "    Pos: " & aPos.Fullname & vbNewLine &_
    "    Provider: " & aProvider.FullName & vbNewLine &_
    "    Supplier: " & aSupplier.FullName & vbNewLine &_
    "    Patient: " & aPatient.SurnameFirstName & vbNewLine    
                                                                
next

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0