ISApprovalForm.PPPUId

Description

ID of PPPU.

Syntax

object.PPPUId

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

Return Value

int

Example

Display some information about the opened approval form, including PPPU.

Dim aPatientId 
Dim aForm
Dim aMessage
Dim aPPPU

aPatientId = Profile.SelectPatient.Id

set aForm = Profile.GetApprovalForm(0, aPatientId)

if aForm is nothing then
  Profile.MsgBox("Approval Form is not opened")
  exit sub 
end if 

if aForm.PPPUId <> 0 then
  set aPPPU = Profile.LoadProviderById(aForm.PPPUId)     
  aMessage = aMessage & vbNewLine &  "Provider: " & aPPPU.FullName
else
  aMessage = aMessage & vbNewLine &  "Provider is not assigned"    
end if                                  
                               
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface PPPU ID cannot be found, but PPPU Form can be found in Patient > Alter Patient > Approvals > Open selected approval > Provider or in Financial > Approvals > Approvals > Open selected approval > Provider.

Version information

Added in v7.8.0