Electronic Data Interchange

Procedure for Getting a Value from an ASC/X12 EDI Document

This procedure describes how one can translate an ASC/X12 Purchase Order (850) document, and get a single data element value.  A simple application is created that will read a single EDI file using a single Standard Exchange Format (SEF) file as an implementation guideline, and access a single element value using the hierarchical syntax.  This procedure is available only in Dynamic cursor mode, which is the default operation mode for Framework EDI (FREDI).  In Dynamic cursor, an internal hierarchical tree is created of data segments.  The hierarchical relationship between the data segments is defined in the SEF guideline, and the tree is created in the same hierarchical relationship.  The procedure is as follows:

  1. Create an instance of ediDocument object.
  2. Specify implementation guidelines
  3. Load EDI document
  4. Access data element value
  5. Sample

 

Example in Visual Basic

This example will use the following:

 

Create an instance of ediDocument.  The ediDocument object is the top level application instance for FREDI.  This object is the topmost object in the object model hierarchy of FREDI.  This instance is always created at the start of a program.

Dim oEdiDoc As Fredi.ediDocument

Set oEdiDoc = New Fredi.ediDocument

Specify implementation guidelines.  Specify the implementation guidelines using the LoadSchema method of the ediDocument object.  In this example, the standard reference library will not be used so we disable its use by setting the EnableStandardReference property to false in the ediSchemas object.

Dim oSchemas As Fredi.ediSchemas
Dim oSchema As Fredi.ediSchema

' Disable standard reference library.
 Set oSchemas = oEdiDoc.GetSchemas
oSchemas.EnableStandardReference = False

Set oSchema = oEdiDoc.LoadSchema(App.Path & "\SampleSefX12_850.SEF", Schema_Standard_Exchange_Format)

 

Load EDI document.  Load the EDI document using the LoadEdi method of the ediDocument object.  This method will read the EDI file, and verify its correctness using the implementation guideline in the SEF file specified previously in the program using the LoadSchema method.  The data is stored and organized internally in a hierarchical tree.

' Load EDI document normally.
 oEdiDoc.LoadEdi App.Path & "\SampleEdiX12_850.X12"

Access the data element value.  In dynamic cursor, the data segments are organized in a hierarchy.  The hierarchical relationship of the data segments are defined in the SEF file.  The data segments contain data elements that hold the value.  To access a value in a data element, use the DataElementValueByPos property and pass a string that describes a hierarchy to access the data segment and the data element whose value we want to get.  For more information on this hierarchy syntax, please see Hierarchical String Syntax.

Set oDataSegment = oEdiDoc.FirstDataSegment

sValue = oDataSegment.DataElementValueByPos("\ISA\GS\ST\N1(2)\N1<93>")

Sample

Sample program to translate ASC/X12 EDI file and getting single value

See Also: