Class TbsPMU_B01_24

Unit

BSHL724

Declaration

type TbsPMU_B01_24 = class(TbsHL7Message)

Description

Represents a PMU_B01(Add personnel record) message structure. This structure contains the following elements:

1. MSH, required

2. EVN, required

3. STF, required

4. PRA, optional repeating

5. ORG, optional repeating

6. AFF, optional repeating

7. LAN, optional repeating

8. EDU, optional repeating

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Group
• TBSHL7Message
• TbsPMU_B01_24

Overview

Methods

	function PRARepCount : Integer ;
	function ORGRepCount : Integer ;
	function AFFRepCount : Integer ;
	function LANRepCount : Integer ;
	function EDURepCount : Integer ;
	procedure Init; override;

Properties

	property MSH : TbsMSH_24 read GetMSH write SetMSH;
	property EVN : TbsEVN_24 read GetEVN write SetEVN;
	property STF : TbsSTF_24 read GetSTF write SetSTF;
	property PRA[RepCount:Integer]: TbsPRA_24 read GetPRA write SetPRA;
	property ORG[RepCount:Integer]: TbsORG_24 read GetORG write SetORG;
	property AFF[RepCount:Integer]: TbsAFF_24 read GetAFF write SetAFF;
	property LAN[RepCount:Integer]: TbsLAN_24 read GetLAN write SetLAN;
	property EDU[RepCount:Integer]: TbsEDU_24 read GetEDU write SetEDU;

Description

Methods

	function PRARepCount : Integer ;

	function ORGRepCount : Integer ;

	function AFFRepCount : Integer ;

	function LANRepCount : Integer ;

	function EDURepCount : Integer ;

	procedure Init; override;

Properties

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

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

	property STF : TbsSTF_24 read GetSTF write SetSTF;
STF, Min : 1, Max : 1

	property PRA[RepCount:Integer]: TbsPRA_24 read GetPRA write SetPRA;
PRA, Usage : O, Min : 0, Max : *

	property ORG[RepCount:Integer]: TbsORG_24 read GetORG write SetORG;
ORG, Usage : O, Min : 0, Max : *

	property AFF[RepCount:Integer]: TbsAFF_24 read GetAFF write SetAFF;
AFF, Usage : O, Min : 0, Max : *

	property LAN[RepCount:Integer]: TbsLAN_24 read GetLAN write SetLAN;
LAN, Usage : O, Min : 0, Max : *

	property EDU[RepCount:Integer]: TbsEDU_24 read GetEDU write SetEDU;
EDU, Usage : O, Min : 0, Max : *