ISApprovalForm.NatureID

Description

ID of the short code of type 'Nature of Injury'.

Syntax

object.NatureID

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 nature of injury.

Dim aPatientId 
Dim aForm
Dim aFormInfo
Dim aShortCode 
Dim aMessage

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: " & aForm.SideCode & vbNewLine &_
  "Reference: "  & aForm.Reference & vbNewLine 
  
if aForm.NatureID <> 0 then 
  set aShortCode = Profile.LoadShortCode(aForm.NatureID)
  aMessage = aMessage & vbNewLine & "The nature of injury: " & aShortCode.Description
end if   

Profile.MsgBox(aFormInfo & aMessage)

Note:

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

Version information

Added in v7.8.0