ISOrderAction.Bill

Example

Display Bill for the order action.

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)