ISOrderAction.ContactHappenOn

Example

Display the number of the order actions and some information about them, including the dates when the contacts linked to them happened.

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)