Class TbsADT_A01_22

Unit

BSHL722

Declaration

type TbsADT_A01_22 = class(TbsHL7Message)

Description

Represents a ADT_A01(Admit a Patient) message structure. This structure contains the following elements:

1. MSH, required

2. EVN, required

3. PID, required

4. NK1, optional repeating

5. PV1, required

6. PV2, optional

7. OBX, optional repeating

8. AL1, optional repeating

9. DG1, optional repeating

10. PR1, optional repeating

11. GT1, optional repeating

12. INSURANCE, optional repeating

13. ACC, optional

14. UB1, optional

15. UB2, optional

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Group
• TBSHL7Message
• TbsADT_A01_22

Overview

Methods

	function NK1RepCount : Integer ;
	function OBXRepCount : Integer ;
	function AL1RepCount : Integer ;
	function DG1RepCount : Integer ;
	function PR1RepCount : Integer ;
	function GT1RepCount : Integer ;
	function INSURANCERepCount : Integer ;
	procedure Init; override;

Properties

	property MSH : TbsMSH_22 read GetMSH write SetMSH;
	property EVN : TbsEVN_22 read GetEVN write SetEVN;
	property PID : TbsPID_22 read GetPID write SetPID;
	property NK1[RepCount:Integer]: TbsNK1_22 read GetNK1 write SetNK1;
	property PV1 : TbsPV1_22 read GetPV1 write SetPV1;
	property PV2 : TbsPV2_22 read GetPV2 write SetPV2;
	property OBX[RepCount:Integer]: TbsOBX_22 read GetOBX write SetOBX;
	property AL1[RepCount:Integer]: TbsAL1_22 read GetAL1 write SetAL1;
	property DG1[RepCount:Integer]: TbsDG1_22 read GetDG1 write SetDG1;
	property PR1[RepCount:Integer]: TbsPR1_22 read GetPR1 write SetPR1;
	property GT1[RepCount:Integer]: TbsGT1_22 read GetGT1 write SetGT1;
	property INSURANCE[RepCount:Integer]: TbsADT_A01_INSURANCE_22 read GetINSURANCE write SetINSURANCE;
	property ACC : TbsACC_22 read GetACC write SetACC;
	property UB1 : TbsUB1_22 read GetUB1 write SetUB1;
	property UB2 : TbsUB2_22 read GetUB2 write SetUB2;

Description

Methods

	function NK1RepCount : Integer ;

	function OBXRepCount : Integer ;

	function AL1RepCount : Integer ;

	function DG1RepCount : Integer ;

	function PR1RepCount : Integer ;

	function GT1RepCount : Integer ;

	function INSURANCERepCount : Integer ;

	procedure Init; override;

Properties

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

	property EVN : TbsEVN_22 read GetEVN write SetEVN;
EVN, Min : 1, Max : 1

	property PID : TbsPID_22 read GetPID write SetPID;
PID, Min : 1, Max : 1

	property NK1[RepCount:Integer]: TbsNK1_22 read GetNK1 write SetNK1;
NK1, Usage : O, Min : 0, Max : *

	property PV1 : TbsPV1_22 read GetPV1 write SetPV1;
PV1, Min : 1, Max : 1

	property PV2 : TbsPV2_22 read GetPV2 write SetPV2;
PV2, Min : 0, Max : 1

	property OBX[RepCount:Integer]: TbsOBX_22 read GetOBX write SetOBX;
OBX, Usage : O, Min : 0, Max : *

	property AL1[RepCount:Integer]: TbsAL1_22 read GetAL1 write SetAL1;
AL1, Usage : O, Min : 0, Max : *

	property DG1[RepCount:Integer]: TbsDG1_22 read GetDG1 write SetDG1;
DG1, Usage : O, Min : 0, Max : *

	property PR1[RepCount:Integer]: TbsPR1_22 read GetPR1 write SetPR1;
PR1, Usage : O, Min : 0, Max : *

	property GT1[RepCount:Integer]: TbsGT1_22 read GetGT1 write SetGT1;
GT1, Usage : O, Min : 0, Max : *

	property INSURANCE[RepCount:Integer]: TbsADT_A01_INSURANCE_22 read GetINSURANCE write SetINSURANCE;
INSURANCE, Usage : O, Min : 0, Max : *

	property ACC : TbsACC_22 read GetACC write SetACC;
ACC, Min : 0, Max : 1

	property UB1 : TbsUB1_22 read GetUB1 write SetUB1;
UB1, Min : 0, Max : 1

	property UB2 : TbsUB2_22 read GetUB2 write SetUB2;
UB2, Min : 0, Max : 1