This function returns the order actions.
object.LoadOrderActions(aPatientID, aOrderType,
aDateFrom, aDateTo)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aPatientID |
In, Required | int |
ID of the patient |
aOrderType |
In, Required | int |
The type of order |
aDateFrom |
In, Required | DateTime |
The start date |
aDateTo |
In, Required | DateTime |
The end date |
Display the number of the order actions and some information about 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: " & Profile.LoadPatient(aOrderAction.PatientId).SurnameFirstName & 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)
In Profile Client v8 on User Interface Order Actions can be found in
.