This project has moved. For the latest updates, please go here.

Error processing 4010 810

May 8, 2014 at 5:29 AM
Edited May 8, 2014 at 5:50 AM
I'm getting an exception "arrayAttribute" in Extensions.cs processing this 4010 810 file. Can anyone process this file using ediFabric? Thanks, Robert

ISA*00*          *00*          *01*177667227      *ZZ*08M999999      *140505*1005*U*00401*200484874*0*P*+\
GS*IN*177667227*08M999999*20140505*1005*200184368*X*004010\
ST*810*0001\
BIG*20140505*7628422401\
N1*ST*TEST*9*999999\                   
N1*BT*TEST*9*999999\
N1*RE*MCKESSON*91*177667227\   
ITD*01*3**20140525**20140525*20*****Net20\
FOB*PP\
IT1*000000*1*EA*999.93**UI*35045856201*VN*1206671*ND*50458056201\
PID*F****INVEGA SUSTENNA 117MG      KIT\
IT1*000000*1*EA*888.05**UI*30037024523*VN*1309152*ND*00037024523\
PID*F****DYMISTA 120 DOSE 23 GM\
IT1*000000*1*EA*77.66**UI*36467996701*VN*1626332*ND*64679096701\
PID*F****BETHANECHOL TAB 25MG WOCK 100@\
IT1*000000*2*EA*6.01**UI*36275679688*VN*1707827*ND*62756079688\
PID*F****DIVALP DR TB 125MG  CARA  100@\
IT1*000000*2*EA*5.34**UI*02791701919*VN*1896703\
PID*F****VITAFUS MULTI-VITE GUMMY   150\
IT1*000000*1*BX*4444.12**UI*35914801871*VN*2017713*ND*59148001871\
PID*F****ABILIFY MAINTENA 300MG     KIT\
IT1*000000*1*BX*3333.83**UI*35914801971*VN*2017721*ND*59148001971\
PID*F****ABILIFY MAINTENA 400MG     KIT\
TDS*123456\           
ISS*9*EA\
CTT*7\
SE*25*0001\
GE*1*200184368\
IEA*1*200484874\
May 8, 2014 at 5:33 AM
Edited May 8, 2014 at 5:59 AM
The
+
should be a 'plus' sign. Can't figure out how to get a plus sign through the formatting here ..
May 8, 2014 at 6:05 AM
My code in VB.NET, which is basically just the sample code on edifabric.com translated into VB.NET:
Public Shared Sub Parse810()
            Try
                Dim fileName = "c:\integratingRx\Lifechek\Accpac Ops\Rx\McKesson\McKessonSampleEDI810.x12"
                Dim edi810Stream As New System.IO.FileStream(fileName, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.Read)
                Dim ediParser As New EdiFabric.Framework.Parsers.EdiParser()
                Dim ediObj = ediParser.ToInterchange(Of EdiFabric.Framework.InterchangeEnvelopes.X12.INTERCHANGE)(edi810Stream, Nothing)
            Catch ex As EdiFabric.Framework.Exceptions.ParserException
                MsgBox("Unable to Parse EDI 810: " & ex.InnerException.Message)
            End Try