Sample VB .NET source code using FREDI-NET

Sample HIPAA EDI Validation program

	[Run Program]     [Download program]
   'This EDI validation program has two main parts.  The first part is to load all SEF files (implementation
   ' guidelines in Standard Exchange Format) for the EDI file types you will be validating.  The second part is
   ' interrogating the warning object to obtain and then display the errors found after loading the EDI file.  
   ' Framework EDI validates the EDI file by comparing the EDI file against the corresponding SEF file.  Any 
   ' discrepancies found are stored into its warning object.
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        'instantiate edi document
        oEdiDoc.Set(oEdiDoc, New ediDocument)   
        'load edi file as readonly
        oEdiDoc.Option(DocumentOptionIDConstants.OptDocument_ReadOnlyMode) = 1
        'disable internal standard reference library
        oSchemas.Set(oSchemas, oEdiDoc.GetSchemas)  
        oSchemas.EnableStandardReference = False
        'load SEF files only when needed
        oSchemas.Option(SchemasOptionIDConstants.OptSchemas_SetOnDemand) = 1
        oEdiDoc.LoadSchema("D:\Sef\270_X092.SEF", SchemaTypeIDConstants.Schema_Standard_Exchange_Format)
        oEdiDoc.LoadSchema("D:\Sef\271_X092.SEF", SchemaTypeIDConstants.Schema_Standard_Exchange_Format)
        oEdiDoc.LoadSchema("D:\Sef\276_X093.SEF", SchemaTypeIDConstants.Schema_Standard_Exchange_Format)
        oEdiDoc.LoadSchema("D:\Sef\277_X093.SEF", SchemaTypeIDConstants.Schema_Standard_Exchange_Format)
        oEdiDoc.LoadSchema("D:\Sef\820_X061.SEF", SchemaTypeIDConstants.Schema_Standard_Exchange_Format)
        oEdiDoc.LoadSchema("D:\Sef\834_X095.SEF", SchemaTypeIDConstants.Schema_Standard_Exchange_Format)
        oEdiDoc.LoadSchema("D:\Sef\835_X091.SEF", SchemaTypeIDConstants.Schema_Standard_Exchange_Format)
        oEdiDoc.LoadSchema("D:\Sef\837_X096.SEF", SchemaTypeIDConstants.Schema_Standard_Exchange_Format)
        oEdiDoc.LoadSchema("D:\Sef\837_X097.SEF", SchemaTypeIDConstants.Schema_Standard_Exchange_Format)
        oEdiDoc.LoadSchema("D:\Sef\837_X098.SEF", SchemaTypeIDConstants.Schema_Standard_Exchange_Format)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sEdiString As String
        Dim nErrCount As Integer
        Dim i As Integer
        sEdiString = Trim(txtEdiString.Text)
        If Len(Trim(sEdiString)) > 0 And Len(Trim(sEdiString)) < 10000 Then
            'load edi string
            oEdiDoc.LoadEdiString(sEdiString)
            'instantiate warnings collection object
            oWarnings.Set(oWarnings, oEdiDoc.GetWarnings)   
            'get count of error found
            nErrCount = oWarnings.Count
            lblMessage.Text = "There were " + Str(nErrCount) + " errors found."
            'display error messages
            lstErrorList.Items.Clear()
            For i = 1 To nErrCount
                'instantiate a warning object from the warnings collection
                oWarning.Set(oWarning, oWarnings.Warning(i))    
                lstErrorList.Items.Add(oWarning.LoopId + " " + oWarning.SegmentId + " " + oWarning.Description)
            Next
        Else
            lblMessage.Text = "Program only accepts short HIPAA EDI files (less than 10K characters)"
        End If
    End Sub

 

EDIdEv - EDI Development
www.edidev.com