ISPatient.NOKRelationship

Description

If specified, identifies the relationship between the next of kin and the patient, as a code of the lookup list item with the type 'lktNOKRelationship'.

Syntax

object.NOKRelationship

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

Return Value

string

Example

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

Dim aPatient  
Dim aNOKRelationship
Dim aLookupList, aLookupItem
 
Set aPatient = Profile.SelectPatient
aNOKRelationship = aPatient.NOKRelationship

set aLookupList = Profile.LoadLookupList(2) 'lktNOKRelationship

set aLookupItem = aLookupList.ItemByCode(aNOKRelationship)

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 can be found in Patient > Alter Patient > Family > Relationship field.

Version information

Added in v7.8.0