ISApproval.PPPUIdAltered

Description

ID the PPPU who altered the approval.

Syntax

object.PPPUIdAltered

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of approvals loaded on the basis of the selected filter, some information about them and the full name of the provider who altered the approval.

Dim aPatient
Dim aFilter
Dim aApproval
Dim aApprovals
Dim aMessage
Dim aAlteredPPPU
Dim i

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateApprovalsFilter
aFilter.Patient = aPatient
set aApprovals = Profile.LoadApprovals(aFilter)

aMessage = "Approvals Count = " & aApprovals.Count
for i = 0 to aApprovals.Count - 1
  set aApproval = aApprovals.Item(i)
  
  aMessage = aMessage & vbNewLine & (i + 1) & ") The approval for " &_
    aPatient.SurnameFirstName & " was altered on " & aApproval.DateTimeAltered

  if aApproval.PPPUId <> 0 then  
    set aAlteredPPPU = Profile.LoadProviderById(aApproval.PPPUIdAltered)     
    aMessage = aMessage &  " by " & aAlteredPPPU.FullName    
  end if  
next                                  
                               
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface ID cannot be found, but the provider who altered the approval can be found in Report > Find Objects > Approval > Who Altered.

Version information

Added in v7.8.0