ISOrderAction.PatientId

Description

ID of the patient whom the order action is assigned to.

Syntax

object.PatientId

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 the name of the patient whom they are assigned to.

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)

Note:

In Profile Client v8 on User Interface Patient ID cannot be found, but Patient can be found in Clinical > Medical Record > Past Orders > Patient.

Version information

Added in v7.10.3