Class TbsROL_28

Unit

BSHL7DT28

Declaration

type TbsROL_28 = class(TbsHL7Segment)

Description

Role The role segment contains the data necessary to add, update, correct, and delete from the record persons involved, as well as their functional involvement with the activity being transmitted. In general, the ROL segment is used to describe a person playing a particular role within the context of the message. In PM, for example, in the Grant Certificate/Permission message (B07), the ROL segment is used to describe the roles a person may perform pertinent to the certificate in the message. The positional location of the ROL segment in ADT and Finance messages indicates the relationship. When the segment is used following the IN3 segment, and the role-ROL value is PP or FHCP, the PP or FHCP is related to the health plan. When the segment is used following the PID segment, and the role-ROL value is PP or FHCP, the PP or FHCP is related to the person. When the segment is used following the PV2 segment, and the role-ROL value is PCP or FHCP, the PP or FHCP is related to the patient visit.

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Segment
• TbsROL_28

Overview

Methods

	function RolePersonRepCount : Integer;
	function ProviderTypeRepCount : Integer;
	function OfficeHomeAddressBirthplaceRepCount : Integer;
	function PhoneRepCount : Integer;

Properties

	property RoleInstanceId : TbsEI_28 read GetRoleInstanceId write SetRoleInstanceId;
	property ActionCode : TbsID_28 read GetActionCode write SetActionCode;
	property Rolerol : TbsCWE_28 read GetRolerol write SetRolerol;
	property RolePerson[RepCount:Integer]: TbsXCN_28 read GetRolePerson write SetRolePerson;
	property RoleBeginDateTime : TbsDTM_28 read GetRoleBeginDateTime write SetRoleBeginDateTime;
	property RoleEndDateTime : TbsDTM_28 read GetRoleEndDateTime write SetRoleEndDateTime;
	property RoleDuration : TbsCWE_28 read GetRoleDuration write SetRoleDuration;
	property RoleActionReason : TbsCWE_28 read GetRoleActionReason write SetRoleActionReason;
	property ProviderType[RepCount:Integer]: TbsCWE_28 read GetProviderType write SetProviderType;
	property OrganizationUnitType : TbsCWE_28 read GetOrganizationUnitType write SetOrganizationUnitType;
	property OfficeHomeAddressBirthplace[RepCount:Integer]: TbsXAD_28 read GetOfficeHomeAddressBirthplace write SetOfficeHomeAddressBirthplace;
	property Phone[RepCount:Integer]: TbsXTN_28 read GetPhone write SetPhone;
	property PersonsLocation : TbsPL_28 read GetPersonsLocation write SetPersonsLocation;
	property Organization : TbsXON_28 read GetOrganization write SetOrganization;

Description

Methods

	function RolePersonRepCount : Integer;

	function ProviderTypeRepCount : Integer;

	function OfficeHomeAddressBirthplaceRepCount : Integer;

	function PhoneRepCount : Integer;

Properties

	property RoleInstanceId : TbsEI_28 read GetRoleInstanceId write SetRoleInstanceId;
Role Instance Id, Min : 0, Max : 1

	property ActionCode : TbsID_28 read GetActionCode write SetActionCode;
Action Code, Min : 1, Max : 1

	property Rolerol : TbsCWE_28 read GetRolerol write SetRolerol;
Role-rol, Min : 1, Max : 1

	property RolePerson[RepCount:Integer]: TbsXCN_28 read GetRolePerson write SetRolePerson;
Role Person, Min : 1, Max : *

	property RoleBeginDateTime : TbsDTM_28 read GetRoleBeginDateTime write SetRoleBeginDateTime;
Role Begin Date/Time, Min : 0, Max : 1

	property RoleEndDateTime : TbsDTM_28 read GetRoleEndDateTime write SetRoleEndDateTime;
Role End Date/Time, Min : 0, Max : 1

	property RoleDuration : TbsCWE_28 read GetRoleDuration write SetRoleDuration;
Role Duration, Min : 0, Max : 1

	property RoleActionReason : TbsCWE_28 read GetRoleActionReason write SetRoleActionReason;
Role Action Reason, Min : 0, Max : 1

	property ProviderType[RepCount:Integer]: TbsCWE_28 read GetProviderType write SetProviderType;
Provider Type, Min : 0, Max : *

	property OrganizationUnitType : TbsCWE_28 read GetOrganizationUnitType write SetOrganizationUnitType;
Organization Unit Type, Min : 0, Max : 1

	property OfficeHomeAddressBirthplace[RepCount:Integer]: TbsXAD_28 read GetOfficeHomeAddressBirthplace write SetOfficeHomeAddressBirthplace;
Office/Home Address/Birthplace, Min : 0, Max : *

	property Phone[RepCount:Integer]: TbsXTN_28 read GetPhone write SetPhone;
Phone, Min : 0, Max : *

	property PersonsLocation : TbsPL_28 read GetPersonsLocation write SetPersonsLocation;
Person's Location, Min : 0, Max : 1

	property Organization : TbsXON_28 read GetOrganization write SetOrganization;
Organization, Min : 0, Max : 1