Class TbsOPL_O37_26

Unit

BSHL726

Declaration

type TbsOPL_O37_26 = class(TbsHL7Message)

Description

Represents a OPL_O37(Population/Location-Based Laboratory Order) message structure. This structure contains the following elements:

1. MSH, required

2. SFT, optional repeating

3. UAC, optional

4. NTE, optional repeating

5. ROL, required repeating

6. GUARANTOR, optional

7. ORDER, required repeating

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Group
• TBSHL7Message
• TbsOPL_O37_26

Overview

Methods

	function SFTRepCount : Integer ;
	function NTERepCount : Integer ;
	function ROLRepCount : Integer ;
	function ORDERRepCount : Integer ;
	procedure Init; override;

Properties

	property MSH : TbsMSH_26 read GetMSH write SetMSH;
	property SFT[RepCount:Integer]: TbsSFT_26 read GetSFT write SetSFT;
	property UAC : TbsUAC_26 read GetUAC write SetUAC;
	property NTE[RepCount:Integer]: TbsNTE_26 read GetNTE write SetNTE;
	property ROL[RepCount:Integer]: TbsROL_26 read GetROL write SetROL;
	property GUARANTOR : TbsOPL_O37_GUARANTOR_26 read GetGUARANTOR write SetGUARANTOR;
	property ORDER[RepCount:Integer]: TbsOPL_O37_ORDER_26 read GetORDER write SetORDER;

Description

Methods

	function SFTRepCount : Integer ;

	function NTERepCount : Integer ;

	function ROLRepCount : Integer ;

	function ORDERRepCount : Integer ;

	procedure Init; override;

Properties

	property MSH : TbsMSH_26 read GetMSH write SetMSH;
MSH, Min : 1, Max : 1

	property SFT[RepCount:Integer]: TbsSFT_26 read GetSFT write SetSFT;
SFT, Usage : O, Min : 0, Max : *

	property UAC : TbsUAC_26 read GetUAC write SetUAC;
UAC, Min : 0, Max : 1

	property NTE[RepCount:Integer]: TbsNTE_26 read GetNTE write SetNTE;
NTE, Usage : O, Min : 0, Max : *

	property ROL[RepCount:Integer]: TbsROL_26 read GetROL write SetROL;
ROL, Usage : R, Min : 1, Max : *

	property GUARANTOR : TbsOPL_O37_GUARANTOR_26 read GetGUARANTOR write SetGUARANTOR;
GUARANTOR, Min : 0, Max : 1

	property ORDER[RepCount:Integer]: TbsOPL_O37_ORDER_26 read GetORDER write SetORDER;
ORDER, Usage : R, Min : 1, Max : *