ISRefillOrder.ProviderID

Description

ID of the provider that should action the refill request.

Syntax

object.ProviderID

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 Provider ID cannot be found, but Provider can be found in Organisation > Work Centre > Work > Prescription Refills > Prov.

Version information

Added in v7.8.0