ISInventoryAuditRecord.GetCalculatedPatient

Description

This function returns the calculated patient.

Syntax

object.GetCalculatedPatient()

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

Return Value

ISPatient

Returns the calculated patient.

Example

Display the number of the inventory audit records loaded on the basis of the selected filter and some information about them, including the calculated patient.

Dim aFilter
Dim aInventoryAudits
Dim aInventoryAudit
Dim i
Dim aMessage
Dim aCalculatedPatient

Set aFilter = InventoryUtils.CreateInventoryAuditFilter
aFilter.DateFrom = #09/09/2000# 
set aInventoryAudits = InventoryUtils.LoadInventoryAudits(aFilter) 

aMessage = "Inventory Audits Count = " & aInventoryAudits.Count
for i = 0 to aInventoryAudits.Count - 1
  set aInventoryAudit = aInventoryAudits.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "Date: " & aInventoryAudit.Date &vbNewLine &_
    "Note: " & aInventoryAudit.Note & vbNewLine &_
    "Order Number: " & vbNewLine & aInventoryAudit.OrderNum &_
    "Quantity: " & aInventoryAudit.Quantity & vbNewLine
  set aCalculatedPatient = aInventoryAudit.GetCalculatedPatient    
  if not aCalculatedPatient is nothing then
    aMessage = aMessage & "Patient: " & aCalculatedPatient.SurnameFirstName & vbNewLine 
  end if  
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Calculated Patient cannot be found, but Patient can be found in Organisation > Control Centre > Manage > Inventory Audit > Patient Name.

Version information

Added in v7.10.3