ISPatient.NOKRelationshipID

Description

ID of the lookup list item with the type 'lktNOKRelationship'.

Syntax

object.NOKRelationshipID

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

Return Value

int

Example

Display the relationship between the next of kin and the patient.

Dim aPatient  
Dim aNOKRelationshipID
Dim aLookupList, aLookupItem
 
Set aPatient = Profile.SelectPatient
aNOKRelationshipID = aPatient.NOKRelationshipID

set aLookupList = Profile.LoadLookupList(2) 'lktNOKRelationship

set aLookupItem = aLookupList.ItemByID(aNOKRelationshipID) 

if aLookupItem is nothing then
  Profile.MsgBox ("No next of kin")
else 
  Profile.MsgBox (aLookupItem.Desc) 
end if

Note:

In Profile Client v8 on User Interface NOK Relationship ID cannot be found, but NOK Relationship can be found inPatient > Alter Patient > Family > Relationship field.

Version information

Added in v7.8.0