ISApprovalForm.SideCode2

Description

The second side code of the opened approval form.

L	Left
R	Right
B	Left and Right
N	Not Applicable

Syntax

object.SideCode2

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

Return Value

string

Example

Display some information about the opened approval form, including the second side code.

Dim aPatientId 
Dim aForm
Dim aFormInfo

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 

aFormInfo = "Agency Code: " & aForm.AgencyCode & vbNewLine &_
  "Description: " & aForm.Description & vbNewLine &_
  "Date: " & aForm.Date & vbNewLine &_
  "Comment: " & aForm.Comment & vbNewLine &_
  "Side Code 2: " & aForm.SideCode2 & vbNewLine &_
  "Event Date: " & aForm.EventDate & vbNewLine &_
  "Reference: "  & aForm.Reference & vbNewLine   
  
Profile.MsgBox(aFormInfo)

Note:

In Profile Client v8 on User Interface the second Side Code can be found in Patient > Alter Patient > Approvals > Open selected approval > Side or in Financial > Approvals > Approvals > Open selected approval > Side.

Version information

Added in v7.10.50