ISOrderAction.InvoiceOID

Description

OID of the invoice for the service linked to the order action.

Syntax

object.InvoiceOID

Part	Attribute	Type	Description
`object`	Required	ISOrderAction	The `object` always implements the ISOrderAction interface

Return Value

int

Example

Display the number of the order actions and some information about them, including OIDs of the invoices for the services linked to them.

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 &_
    "    Case ID: "  & aOrderAction.CaseID & vbNewLine &_ 
    "    Invoice OID: "  & aOrderAction.InvoiceOID & vbNewLine &_ 
    "    Provider: " & Profile.LoadProviderById(aOrderAction.ProviderID).FullName & vbNewLine &_
    "    Status: " & aOrderAction.Status & vbNewLine
next   

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Invoice OID cannot be found, but Order Actions can be found in Clinical > Medical Record > Past Orders.

Version information

Added in v7.10.3