Besa HL7 2.x Help File

Getting Started

Units

Class Hierarchy

Classes, Interfaces, Objects and Records

Types

Variables

Constants

Functions and Procedures

Identifiers

Unit BSHL7Object

DescriptionUsesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

Base HL7 Object Library

Overview

Classes, Interfaces, Objects and Records

Name Description
Record TBSHL7MessageInfo Message Information record.
Class TBSHL7Value  
Class TBSHL7Definition  
Class TBSHL7Array  
Interface IBSTypedComposite  
Interface IBSHL7Object  
Class TBSTypedComposite  
Class TBSHL7Object  
Class TBSHL7Varies  
Interface IBSHL7Field  
Class TBSHL7Field  
Interface IBSHL7Segment  
Class TBSHL7Segment Segment Type
Interface IBSHL7Group  
Class TBSHL7Group Base HL7 Segment Group
Interface IBSHL7Message  
Class TBSHL7Message Base HL7 Message
Class TBSHL7LibraryHelper  

Functions and Procedures

function GetMessageInfo(const AMessage: BSString): TBSHL7MessageInfo;
function BSHL7Library:TBSHL7LibraryHelper;

Types

TBSDefinitionType = (...);
TBSXMLNode = IXMLNode;
TOnXMLGetNodeName = procedure(AXMLNodeName:String; ANode : TBSXMLNode; var ANodeName:String; var AIgnore:Boolean) of object;
TBSOnLoadLibray = procedure(AName, AType, AVersion, ADefinition: BSString; var ALoad:Boolean);
TStringArray = array of BSString;

Constants

IID_IBSHL7Object: TGUID = '{3AD1279B-B4F6-4046-A9D0-121774BDEDB1}';

Description

Functions and Procedures

function GetMessageInfo(const AMessage: BSString): TBSHL7MessageInfo;

Gets Message information 

var
  mi: TBSHL7MessageInfo
  msg : String;
begin
  msg:='MSH|ˆ˜\&||Sending|||20170609200200||ADTˆA01||P|2.2|123'+#$D+
       'EVN|'+#$D+
       'PID|||123456||DoeˆJohn'+#$D+
       'PV1|'+#$D#$A;

  mi:=GetMessageInfo(msg);

  //mi.FieldSeparator:='|';
  //mi.ComponentSeparator:='ˆ';
  //mi.RepetitionSeparator:='˜';
  //mi.SubcomponentSeparator:='&';
  //mi.EscapeCharacter:='\';
  //mi.EncodingCharacters:='ˆ˜\&';
  //mi.ProcessingID:='P';
  //mi.MessageControlID:='';
  //mi.MessageType:='ADTˆA01';
  //mi.Version:='2.2';
end;

Returns

TBSHL7MessageInfo type.

function BSHL7Library:TBSHL7LibraryHelper;

Gets All HL7 Library Helper

Types

TBSDefinitionType = (...);
 
Values
  • dtUndefined
  • dtMessage
  • dtGroup
  • dtSegment
  • dtField
  • dtComposite
  • dtBasic
TBSXMLNode = IXMLNode;
 
TOnXMLGetNodeName = procedure(AXMLNodeName:String; ANode : TBSXMLNode; var ANodeName:String; var AIgnore:Boolean) of object;
 
TBSOnLoadLibray = procedure(AName, AType, AVersion, ADefinition: BSString; var ALoad:Boolean);
 
TStringArray = array of BSString;
 

Constants

IID_IBSHL7Object: TGUID = '{3AD1279B-B4F6-4046-A9D0-121774BDEDB1}';
 
Generated by PasDoc 0.14.0.