ListMessageSegments

Name: ListMessageSegments()

Parameters: None

Returns: String

Description: Returns a pipe ( | ) delimited string with all of the segments in the current message.

Like "MSH|EVN|PID|GT1|IN1|IN2|IN1|IN2|NTE|NTE|NTE"

      'Declare a Variable        

      Dim sVendorID

      Dim sMsg 

      Dim sMsgType, sMsgSegments

      Dim mySegments

      sMsg = Request("TXTAREAHL7MSG")

      If Err.Number <> 0 Then

       'Do something about an error here

       '

      End If

      With oMSG

             sVendorID = .GetVendorID("Default","2.3")        

             If Not .OpenVendor(sVendorID) Then

               'Do Something

             End If         

      'Open the Message 

      .CreateFromHL7 sMsg   

      sMsgType = GetMessageType(sMsg)

      sMsgSegments = .ListMessageSegments()

      mySegments = Split(sMsgSegments,"|") 

      End With

  Function GetMessageType() As String

      On Error Resume Next        

      Dim hMSH  ' This will be our msh segment handle  

      With oMSG   'The global object dimmed above

         hMSH = .GetSegment("MSH")

         GetMessageType = .GetFieldValue(hMSH,9,1)

      End With

  End Function   

     'Easy as that