ISRefillOrder.CreatedById

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)