Class TbsPKG_26

Unit

BSHL7DT26

Declaration

type TbsPKG_26 = class(TbsHL7Segment)

Description

Packaging Segment This segment contains the type of packaging available for the inventory supply item to be ordered and/or issued to a department or other supply location for a specified Purchasing Vendor.   It would be recommended to send this segment in descending unit of measure order corresponding with the ascending Set ID.

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Segment
• TbsPKG_26

Overview

Properties

	property SetIdPKG : TbsSI_26 read GetSetIdPKG write SetSetIdPKG;
	property PackagingUnits : TbsCWE_26 read GetPackagingUnits write SetPackagingUnits;
	property DefaultOrderUnitOfMeasureIndicator : TbsCNE_26 read GetDefaultOrderUnitOfMeasureIndicator write SetDefaultOrderUnitOfMeasureIndicator;
	property PackageQuantity : TbsNM_26 read GetPackageQuantity write SetPackageQuantity;
	property Price : TbsCP_26 read GetPrice write SetPrice;
	property FutureItemPrice : TbsCP_26 read GetFutureItemPrice write SetFutureItemPrice;
	property FutureItemPriceEffectiveDate : TbsDTM_26 read GetFutureItemPriceEffectiveDate write SetFutureItemPriceEffectiveDate;

Description

Properties

	property SetIdPKG : TbsSI_26 read GetSetIdPKG write SetSetIdPKG;
Set Id - PKG, Min : 1, Max : 1

	property PackagingUnits : TbsCWE_26 read GetPackagingUnits write SetPackagingUnits;
Packaging Units, Min : 0, Max : 1

	property DefaultOrderUnitOfMeasureIndicator : TbsCNE_26 read GetDefaultOrderUnitOfMeasureIndicator write SetDefaultOrderUnitOfMeasureIndicator;
Default Order Unit Of Measure Indicator, Min : 0, Max : 1

	property PackageQuantity : TbsNM_26 read GetPackageQuantity write SetPackageQuantity;
Package Quantity, Min : 0, Max : 1

	property Price : TbsCP_26 read GetPrice write SetPrice;
Price, Min : 0, Max : 1

	property FutureItemPrice : TbsCP_26 read GetFutureItemPrice write SetFutureItemPrice;
Future Item Price, Min : 0, Max : 1

	property FutureItemPriceEffectiveDate : TbsDTM_26 read GetFutureItemPriceEffectiveDate write SetFutureItemPriceEffectiveDate;
Future Item Price Effective Date, Min : 0, Max : 1