ISApprovalForm.BodyPartID

Description

ID of the short code of type 'Body part'.

Syntax

object.BodyPartID

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 the body part and its ID.

Dim aPatientId 
Dim aForm
Dim aFormInfo
Dim aMessage
Dim aShortCode

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 3: " & aForm.SideCode3 & vbNewLine &_
  "Event Date: " & aForm.EventDate & vbNewLine &_
  "Reference: "  & aForm.Reference & vbNewLine   
  
if aForm.BodyPartID <> 0 then 
  set aShortCode = Profile.LoadShortCode(aForm.BodyPartID)
  aMessage = aMessage & vbNewLine & "Body part: " & aShortCode.Description &_
    " (" & aShortCode.Code & ", ID: " & aShortCode.ID & ")" 
end if      

Profile.MsgBox(aFormInfo & aMessage)

Note:

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

Version information

Added in v7.8.0