ISOrderAction.Status

Example

Display the number of the order actions and some information about them, including their statuses.

Dim aPatient
Dim aPatientID
Dim aOrderType
Dim aDateFrom, aDateTo
Dim aOrderActions, aOrderAction
Dim aMessage
Dim i      

Set aPatient = Profile.SelectPatient
aPatientID = aPatient.ID
aOrderType = 1 'Pathology 
aDateFrom = #01/01/2000#
aDateTo = #01/01/2020#
set aOrderActions = Profile.LoadOrderActions(aPatientID, aOrderType, aDateFrom, aDateTo)

aMessage = "Order Actions Count: " & aOrderActions.Count & vbNewLine

for i = 0 to aOrderActions.Count - 1
  set aOrderAction = aOrderActions.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Description: " & aOrderAction.Description & vbNewLine &_
    "    Patient Full Name: " & aOrderAction.PatientFullName & vbNewLine &_ 
    "    Order Date: " & aOrderAction.OrderDate & vbNewLine &_  
    "    Actioned on: " & aOrderAction.ActionedOn & vbNewLine &_ 
    "    Contact Happen On: " & aOrderAction.ContactHappenOn & vbNewLine &_
    "    Bill: " & aOrderAction.Bill & vbNewLine &_ 
    "    OID: " & aOrderAction.OID & vbNewLine &_
    "    Link CID: "  & aOrderAction.LinkCID & vbNewLine &_ 
    "    Link OID: "  & aOrderAction.LinkOID & vbNewLine &_ 
    "    Provider: " & Profile.LoadProviderById(aOrderAction.ProviderID).FullName & vbNewLine &_
    "    Status: " & aOrderAction.Status & vbNewLine
next   

Profile.MsgBox(aMessage)