In This Topic ▼

MessageStructure Class

Summary

MessageStructure represents an HL7 pipe message in text form.

Syntax

C++

Public Class MessageStructure

public class MessageStructure

public ref class MessageStructure

Example

This example shows how to use MessageStructure to read a pipe message.

using Leadtools; 
using LeadtoolsExamples.Common; 
using Leadtools.Medical.HL7; 
using Leadtools.Medical.HL7.V2x.Models; 
using Leadtools.Medical.HL7.V2x.Listener; 
using Leadtools.Medical.HL7.V2x.Sender; 
using Leadtools.Medical.HL7.V26.Messages; 
 
public static IHL7MessageItem ParsePipeMessage(string pipe) 
{ 
   PipeMessageConverter pmc = new PipeMessageConverter(); 
   MessageStructure ms = pmc.PipeMessageToMessageStructure(pipe); 
   MessageStructureConverter msc = new MessageStructureConverter(); 
 
   Exception exParse = null; 
   try 
   { 
      IHL7MessageItem msg = msc.MessageStructureToMessage(ms, new MessageStructureConverter.Options() { Parse_RepeatableParentGroupFirst = true, Forgive_IncompleteMessage = true }).Message; 
      return msg; 
   } 
   catch (Exception e) 
   { 
      exParse = e; 
   } 
 
   try 
   { 
      IHL7MessageItem msg = msc.MessageStructureToMessage(ms, new MessageStructureConverter.Options() { Parse_RepeatableParentGroupFirst = false, Forgive_IncompleteMessage = true }).Message; 
      return msg; 
   } 
   catch 
   { 
      throw exParse; 
   } 
}

Imports Leadtools 
Imports LeadtoolsDocumentsExamples.LeadtoolsExamples.Common 
Imports Leadtools.Medical.HL7 
Imports Leadtools.Medical.HL7.V2x.Models 
Imports Leadtools.Medical.HL7.V2x.Listener 
Imports Leadtools.Medical.HL7.V2x.Sender 
Imports Leadtools.Medical.HL7.V26.Messages 
 
Public Shared Function ParsePipeMessage(ByVal pipe As String) As IHL7MessageItem 
   Dim pmc As PipeMessageConverter = New PipeMessageConverter() 
   Dim ms As MessageStructure = pmc.PipeMessageToMessageStructure(pipe) 
   Dim msc As MessageStructureConverter = New MessageStructureConverter() 
 
   Dim exParse As Exception = Nothing 
   Try 
      Dim options As MessageStructureConverter.Options = New MessageStructureConverter.Options() 
      options.Parse_RepeatableParentGroupFirst = True 
      options.Forgive_IncompleteMessage = True 
      Dim msg As IHL7MessageItem = msc.MessageStructureToMessage(ms, options).Message 
      Return msg 
   Catch e As Exception 
      exParse = e 
   End Try 
 
   Try 
      Dim options As MessageStructureConverter.Options = New MessageStructureConverter.Options() 
      options.Parse_RepeatableParentGroupFirst = False 
      options.Forgive_IncompleteMessage = True 
      Dim msg As IHL7MessageItem = msc.MessageStructureToMessage(ms, options).Message 
      Return msg 
   Catch 
      Throw exParse 
   End Try 
End Function