🥣 👩🏻‍🍳 👨‍👩‍👦 पारसीम X12 "घुटने पर" 👚 ⛵️ 🐃

एक ऐसा एप्लिकेशन बनाते समय जो सक्रिय रूप से तृतीय-पक्ष सेवाओं और प्रणालियों के साथ सहभागिता करता है, अक्सर उनके साथ सूचना विनिमय प्रदान करने की आवश्यकता होती है, एक-तरफ़ा या दो-तरफ़ा

हालांकि, अक्सर एक तृतीय-पक्ष सेवा ऐसी बातचीत के लिए एक एकल प्रारूप और डेटा संरचना प्रदान करती है।

इलेक्ट्रॉनिक दस्तावेज़ प्रबंधन के इन स्वरूपों में से एक EDI ANSI ASC X12 है , जिसका एक विस्तृत विवरण यहाँ दिया गया है।

केडीपीवी को इस साइट से लिया गया था

बिल्ली के नीचे एक सरल X12 पार्सर एल्गोरिथ्म और क्लोजर कोड है जो एक पार्सर को लागू करता है और पार्स डेटा को संसाधित करने का एक उदाहरण है।

प्रारूप के बारे में थोड़ा

उपरोक्त लिंक को उद्धृत करते हुए:

इलेक्ट्रॉनिक दस्तावेज़ विनिमय ANSI ASC X12 (अमेरिकी राष्ट्रीय मानक संस्थान मान्यता प्राप्त मानक समिति X12) का मानक 70 के दशक में विकसित किया गया था, जब इलेक्ट्रॉनिक दस्तावेज़ का छोटा आकार महत्वपूर्ण था (प्रति सेकंड 300-1200 बिट्स की गति के साथ मोडेम के लिए) और प्रत्येक बाइट को ले जाना था। अधिकतम जानकारी। इस प्रकार, इलेक्ट्रॉनिक दस्तावेज़ की "पठनीयता" को "सूचना के घनत्व" के पक्ष में छोड़ दिया गया था।

इसलिए, आपको इसमें कोई मानव-पढ़ने योग्य सुंदरियां नहीं दिखेंगी, जैसे कि एक्सएमएल में। और यद्यपि मानक आपको ब्लॉक और तथाकथित छोरों की उपस्थिति के साथ, बल्कि जटिल जटिल पदानुक्रमित संरचना के दस्तावेज बनाने की अनुमति देता है, फिर भी, सभी ब्लॉकों के लिए बंद टैग (आईएसए / जीएस / एसटी को छोड़कर) प्रदान नहीं किए जाते हैं। काटा के लिंक के माध्यम से, हर कोई प्रारूप की संरचना और विवरण के साथ खुद को परिचित कर सकता है, फिर हम केवल आवश्यक चीजों पर स्पर्श करेंगे।

प्रत्येक प्रकार के दस्तावेज़ की अपनी टेम्पलेट संरचना होती है, जो व्यक्तिगत फ़ील्ड और सेगमेंट के अर्थ और उद्देश्य, उनके प्रकार और संभव मानों के साथ-साथ आवश्यक और वैकल्पिक सेगमेंट और ब्लॉक की सूची को इंगित करती है। टेम्प्लेट का संस्करण समर्थित है, प्रकार और संस्करण संख्या पर जानकारी दस्तावेज़ के संबंधित फ़ील्ड में प्रेषित की जाती है। यह माना जाता है कि यह एक विशेष प्रकार के दस्तावेज़ के टेम्पलेट का उपयोग कर रहा है कि इसे पार्स और मान्य किया जाना चाहिए।

नीचे एक दस्तावेज का उदाहरण है जिसमें टाइप 835 (टाइप क्लेम रिस्पांस का एक डॉक्यूमेंट) है, जो पार्सिंग और बाद में डेटा प्रोसेसिंग प्रदर्शित करेगा।

उदाहरण X12

ISA*00* *00* *ZZ*EMEDNYBAT *ZZ*ETIN *140305*0929*^*00501*111111123*0*P*:~ GS*HP*EMED*ETIN*20140301*09304100*111111123*X*005010X221A1~ ST*835*35681~ BPR*I*810.8*C*CHK************20140331~ TRN*1*12345*1512345678~ REF*EV*XYZ CLEARINGHOUSE~ N1*PR*DENTAL OF ABC~ N3*225 MAIN STREET~ N4*CENTERVILLE*PA*17111~ PER*BL*JANE DOE*TE*9005555555~ N1*PE*BAN DDS LLC*FI*999994703~ LX*1~ CLP*7722337*1*226*132**12*119932404007801~ NM1*QC*1*DOE*SANDY****MI*SJD11112~ NM1*82*1*BAN*ERIN****XX*1811901945~ AMT*AU*132~ SVC*AD:D0120*46*25~ DTM*472*20140324~ CAS*CO*131*21~ AMT*B6*25~ SVC*AD:D0220*25*14~ DTM*472*20140324~ CAS*CO*131*11~ AMT*B6*14~ SVC*AD:D0230*22*10~ DTM*472*20140324~ CAS*CO*131*12~ AMT*B6*10~ SVC*AD:D0274*60*34~ DTM*472*20140324~ CAS*CO*131*26~ AMT*B6*34~ SVC*AD:D1110*73*49~ DTM*472*20140324~ CAS*CO*131*24~ AMT*B6*49~ LX*2~ CLP*7722337*1*119*74**12*119932404007801~ NM1*QC*1*DOE*SALLY****MI*SJD11111~ NM1*IL*1*DOE*JOHN****MI*123456~ NM1*82*1*BAN*ERIN****XX*1811901945~ AMT*AU*74~ SVC*AD:D0120*46*25~ DTM*472*20140324~ CAS*CO*131*21~ AMT*B6*25~ SVC*AD:D1110*73*49~ DTM*472*20140324~ CAS*CO*131*24~ AMT*B6*49~ LX*3~ CLP*7722337*1*226*108*24*12*119932404007801~ NM1*QC*1*SMITH*SALLY****MI*SJD11113~ NM1*82*1*BAN*ERIN****XX*1811901945~ AMT*AU*132~ SVC*AD:D0120*46*25~ DTM*472*20140324~ CAS*CO*131*21~ AMT*B6*25~ SVC*AD:D0220*25*0~ DTM*472*20140324~ CAS*PR*3*14~ CAS*CO*131*11~ AMT*B6*14~ SVC*AD:D0230*22*0~ DTM*472*20140324~ CAS*PR*3*10~ CAS*CO*131*12~ AMT*B6*10~ SVC*AD:D0274*60*34~ DTM*472*20140324~ CAS*CO*131*26~ AMT*B6*34~ SVC*AD:D1110*73*49~ DTM*472*20140324~ CAS*CO*131*24~ AMT*B6*49~ LX*4~ CLP*7722337*1*1145*14*902*12*119932404007801~ NM1*QC*1*SMITH*SAM****MI*SJD11116~ NM1*82*1*BAN*ERIN****XX*1811901945~ AMT*AU*14~ SVC*AD:D0220*25*14~ DTM*472*20140324~ CAS*CO*131*11~ AMT*B6*14~ SVC*AD:D2790*940*0~ DTM*472*20140324~ CAS*PR*3*756~ CAS*CO*131*184~ SVC*AD:D2950*180*0~ DTM*472*20140324~ CAS*PR*3*146~ CAS*CO*131*34~ LX*5~ CLP*7722337*1*348*16.8*44.2*12*119932404007801~ NM1*QC*1*JONES*SAM****MI*SJD11122~ NM1*82*1*BAN*ERIN****XX*1811901945~ AMT*AU*28~ SVC*AD:D4342*125*0~ DTM*472*20140313~ CAS*CO*131*125~ SVC*AD:D4381*43*0~ DTM*472*20140313~ CAS*PR*3*33~ CAS*CO*131*10~ SVC*AD:D2950*180*16.8~ DTM*472*20140313~ CAS*PR*3*11.2~ CAS*CO*131*152~ AMT*B6*28~ LX*6~ CLP*7722337*1*226*132**12*119932404007801~ NM1*QC*1*JONES*SALLY****MI*SJD11133~ NM1*82*1*BAN*ERIN****XX*1811901945~ AMT*AU*132~ SVC*AD:D0120*46*25~ DTM*472*20140321~ CAS*CO*131*21~ AMT*B6*25~ SVC*AD:D0220*25*14~ DTM*472*20140321~ CAS*CO*131*11~ AMT*B6*14~ SVC*AD:D0230*22*10~ DTM*472*20140321~ CAS*CO*131*12~ AMT*B6*10~ SVC*AD:D0274*60*34~ DTM*472*20140321~ CAS*CO*131*26~ AMT*B6*34~ SVC*AD:D1110*73*49~ DTM*472*20140321~ CAS*CO*131*24~ AMT*B6*49~ LX*7~ CLP*7722337*1*179*108**12*119932404007801~ NM1*QC*1*DOE*SAM****MI*SJD99999~ NM1*82*1*BAN*ERIN****XX*1811901945~ AMT*AU*108~ SVC*AD:D0120*46*25~ DTM*472*20140324~ CAS*CO*131*21~ AMT*B6*25~ SVC*AD:D0274*60*34~ DTM*472*20140324~ CAS*CO*131*26~ AMT*B6*34~ SVC*AD:D1110*73*49~ DTM*472*20140324~ CAS*CO*131*24~ AMT*B6*49~ LX*8~ CLP*7722337*1*129*82**12*119932404007801~ NM1*QC*1*DOE*SUE****MI*SJD88888~ NM1*82*1*BAN*ERIN****XX*1811901945~ AMT*AU*82~ SVC*AD:D0120*46*25~ DTM*472*20140324~ CAS*CO*131*21~ AMT*B6*25~ SVC*AD:D1120*54*37~ DTM*472*20140324~ CAS*CO*131*17~ AMT*B6*37~ SVC*AD:D1208*29*20~ DTM*472*20140324~ CAS*CO*131*9~ AMT*B6*20~ LX*9~ CLP*7722337*1*221*144**12*119932404007801~ NM1*QC*1*DOE*DONNA****MI*SJD77777~ NM1*82*1*BAN*ERIN****XX*1811901945~ AMT*AU*144~ SVC*AD:D0120*46*25~ DTM*472*20140324~ CAS*CO*131*21~ AMT*B6*25~ SVC*AD:D0330*92*62~ DTM*472*20140324~ CAS*CO*131*30~ AMT*B6*62~ SVC*AD:D1120*54*37~ DTM*472*20140324~ CAS*CO*131*17~ AMT*B6*37~ SVC*AD:D1208*29*20~ DTM*472*20140324~ CAS*CO*131*9~ AMT*B6*20~ SE*190*35681~ GE*1*111111123~ IEA*1*111111123~

प्रत्येक ब्लॉक और खंड के उद्देश्य का विस्तृत विवरण इस प्रकार के दस्तावेज़ के लिए सामान्य संरचना 12 और टेम्पलेट की संरचना के विश्लेषण में पाया जा सकता है। लेकिन मूल अवधारणा सभी प्रकारों के लिए सामान्य है - पैकेज की सामग्री ~ प्रतीक द्वारा अलग किए गए खंडों से मिलकर बनती है (उदाहरण के पाठ में, प्रत्येक खंड पठनीयता के लिए एक नई पंक्ति में प्रदर्शित होता है)। बदले में, प्रत्येक खंड में * द्वारा अलग किए गए क्षेत्रों की एक मनमानी संख्या हो सकती है।

इस तरह के समझौते हमें दस्तावेज़ों की एक रेखीय संरचना को आसानी से अपने क्षेत्रों की सूची वाले खंडों की सूची के रूप में प्राप्त करने की अनुमति देते हैं। हालांकि, यह दस्तावेज़ ब्लॉकों की पदानुक्रमित संरचना को पुनर्स्थापित करने के लिए पर्याप्त नहीं है। इसके लिए, जैसा कि मैंने पहले ही उल्लेख किया है, यह एक योजना का उपयोग करने वाला है, जो अधिकांश प्रकार के दस्तावेजों के लिए एक काफी बड़ी फ़ाइल है। लेकिन, चूंकि हम दस्तावेज़ सत्यापन की समस्या पर विचार नहीं करेंगे, लेकिन खुद को केवल पार्स करने तक सीमित रखेंगे, निम्नलिखित एल्गोरिथ्म हमारे उद्देश्यों के लिए काफी उपयुक्त है - दस्तावेज़ खंडों की रैखिक सूची के अनुक्रमिक विश्लेषण के दौरान सामना किए गए प्रत्येक खंड के लिए, हमें केवल प्रश्न का उत्तर प्राप्त करने की आवश्यकता है: क्या यह खंड बनता है एक नया नेस्टेड ब्लॉक, चाहे वह वर्तमान ब्लॉक का अंत हो (और साथ ही साथ अगले की शुरुआत), या (अन्य मामलों में) वर्तमान ब्लॉक का आंतरिक खंड है।

पार्सर

नीचे एक लेज़र खंड संरचना में एक रेखीय खंड संरचना पार्सिंग क्लोजर कोड है। पदानुक्रम संरचना को परिभाषित करने के लिए, एक घोषणात्मक दृष्टिकोण का उपयोग किया जाता है - सबसे सरल लूप्स डेटा संरचना, जिसमें नेस्टेड ब्लॉक बनाने और वर्तमान ब्लॉक को समाप्त करने वाले खंडों की सूची अलग-अलग सूचीबद्ध खंडों के लिए निर्दिष्ट होती है। बेशक, यह संरचना दस्तावेज़ के प्रकार पर निर्भर करती है, यह वास्तव में, इसकी पदानुक्रम को परिभाषित करता है। लेकिन नीचे दिया गया पार्सिंग फ़ंक्शन सार्वभौमिक है, और किसी भी संरचना टेम्प्लेट पर काम करेगा जो इस तरह से सही तरीके से सेट किया गया है, निश्चित रूप से, बशर्ते कि टाइप किए गए दस्तावेज़ का प्रकार चयनित टेम्पलेट से मेल खाता हो।

 ;; Parse 835 x12 string to hierarchical structure (def loops {"835" {:nested #{"ISA"}} "ISA" {:nested #{"GS"}} "GS" {:nested #{"ST"} :end #{"IEA"}} "ST" {:nested #{"N1" "LX"} :end #{"GE" "ST"}} "N1" {:end #{"SE" "LX" "N1"}} "LX" {:nested #{"CLP"} :end #{"SE" "LX"}} "CLP" {:nested #{"SVC"} :end #{"SE" "LX" "CLP"}} "SVC" {:end #{"SE" "LX" "CLP" "SVC"}}}) (defn parser-core [id ss acc] (let [seg-id (first (first ss)) {:keys [nested end]} (loops id)] (if (or (empty? ss) (and (contains? end seg-id) (not (empty? acc)))) [acc ss] (let [[v ss-] (if (contains? nested seg-id) (parser-core seg-id ss []) [(first ss) (rest ss)])] (recur id ss- (conj acc v)))))) (defn segments [s] (str/split (str/trim s) #"~")) (defn elements [s] (str/split (str/trim s) #"\*")) (defn x12 [s] (first (parser-core "835" (mapv elements (segments (or s ""))) [])))

प्रस्तुत बिगाड़ने वाले के तहत

पार्सिंग परिणाम

 [[["ISA" "00" " " "00" " " "ZZ" "EMEDNYBAT " "ZZ" "ETIN " "140305" "0929" "^" "00501" "111111123" "0" "P" ":"] [["GS" "HP" "EMED" "ETIN" "20140301" "09304100" "111111123" "X" "005010X221A1"] [["ST" "835" "35681"] ["BPR" "I" "810.8" "C" "CHK" "" "" "" "" "" "" "" "" "" "" "" "20140331"] ["TRN" "1" "12345" "1512345678"] ["REF" "EV" "XYZ CLEARINGHOUSE"] [["N1" "PR" "DENTAL OF ABC"] ["N3" "225 MAIN STREET"] ["N4" "CENTERVILLE" "PA" "17111"] ["PER" "BL" "JANE DOE" "TE" "9005555555"]] [["N1" "PE" "BAN DDS LLC" "FI" "999994703"]] [["LX" "1"] [["CLP" "7722337" "1" "226" "132" "" "12" "119932404007801"] ["NM1" "QC" "1" "DOE" "SANDY" "" "" "" "MI" "SJD11112"] ["NM1" "82" "1" "BAN" "ERIN" "" "" "" "XX" "1811901945"] ["AMT" "AU" "132"] [["SVC" "AD:D0120" "46" "25"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "21"] ["AMT" "B6" "25"]] [["SVC" "AD:D0220" "25" "14"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "11"] ["AMT" "B6" "14"]] [["SVC" "AD:D0230" "22" "10"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "12"] ["AMT" "B6" "10"]] [["SVC" "AD:D0274" "60" "34"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "26"] ["AMT" "B6" "34"]] [["SVC" "AD:D1110" "73" "49"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "24"] ["AMT" "B6" "49"]]]] [["LX" "2"] [["CLP" "7722337" "1" "119" "74" "" "12" "119932404007801"] ["NM1" "QC" "1" "DOE" "SALLY" "" "" "" "MI" "SJD11111"] ["NM1" "IL" "1" "DOE" "JOHN" "" "" "" "MI" "123456"] ["NM1" "82" "1" "BAN" "ERIN" "" "" "" "XX" "1811901945"] ["AMT" "AU" "74"] [["SVC" "AD:D0120" "46" "25"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "21"] ["AMT" "B6" "25"]] [["SVC" "AD:D1110" "73" "49"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "24"] ["AMT" "B6" "49"]]]] [["LX" "3"] [["CLP" "7722337" "1" "226" "108" "24" "12" "119932404007801"] ["NM1" "QC" "1" "SMITH" "SALLY" "" "" "" "MI" "SJD11113"] ["NM1" "82" "1" "BAN" "ERIN" "" "" "" "XX" "1811901945"] ["AMT" "AU" "132"] [["SVC" "AD:D0120" "46" "25"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "21"] ["AMT" "B6" "25"]] [["SVC" "AD:D0220" "25" "0"] ["DTM" "472" "20140324"] ["CAS" "PR" "3" "14"] ["CAS" "CO" "131" "11"] ["AMT" "B6" "14"]] [["SVC" "AD:D0230" "22" "0"] ["DTM" "472" "20140324"] ["CAS" "PR" "3" "10"] ["CAS" "CO" "131" "12"] ["AMT" "B6" "10"]] [["SVC" "AD:D0274" "60" "34"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "26"] ["AMT" "B6" "34"]] [["SVC" "AD:D1110" "73" "49"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "24"] ["AMT" "B6" "49"]]]] [["LX" "4"] [["CLP" "7722337" "1" "1145" "14" "902" "12" "119932404007801"] ["NM1" "QC" "1" "SMITH" "SAM" "" "" "" "MI" "SJD11116"] ["NM1" "82" "1" "BAN" "ERIN" "" "" "" "XX" "1811901945"] ["AMT" "AU" "14"] [["SVC" "AD:D0220" "25" "14"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "11"] ["AMT" "B6" "14"]] [["SVC" "AD:D2790" "940" "0"] ["DTM" "472" "20140324"] ["CAS" "PR" "3" "756"] ["CAS" "CO" "131" "184"]] [["SVC" "AD:D2950" "180" "0"] ["DTM" "472" "20140324"] ["CAS" "PR" "3" "146"] ["CAS" "CO" "131" "34"]]]] [["LX" "5"] [["CLP" "7722337" "1" "348" "16.8" "44.2" "12" "119932404007801"] ["NM1" "QC" "1" "JONES" "SAM" "" "" "" "MI" "SJD11122"] ["NM1" "82" "1" "BAN" "ERIN" "" "" "" "XX" "1811901945"] ["AMT" "AU" "28"] [["SVC" "AD:D4342" "125" "0"] ["DTM" "472" "20140313"] ["CAS" "CO" "131" "125"]] [["SVC" "AD:D4381" "43" "0"] ["DTM" "472" "20140313"] ["CAS" "PR" "3" "33"] ["CAS" "CO" "131" "10"]] [["SVC" "AD:D2950" "180" "16.8"] ["DTM" "472" "20140313"] ["CAS" "PR" "3" "11.2"] ["CAS" "CO" "131" "152"] ["AMT" "B6" "28"]]]] [["LX" "6"] [["CLP" "7722337" "1" "226" "132" "" "12" "119932404007801"] ["NM1" "QC" "1" "JONES" "SALLY" "" "" "" "MI" "SJD11133"] ["NM1" "82" "1" "BAN" "ERIN" "" "" "" "XX" "1811901945"] ["AMT" "AU" "132"] [["SVC" "AD:D0120" "46" "25"] ["DTM" "472" "20140321"] ["CAS" "CO" "131" "21"] ["AMT" "B6" "25"]] [["SVC" "AD:D0220" "25" "14"] ["DTM" "472" "20140321"] ["CAS" "CO" "131" "11"] ["AMT" "B6" "14"]] [["SVC" "AD:D0230" "22" "10"] ["DTM" "472" "20140321"] ["CAS" "CO" "131" "12"] ["AMT" "B6" "10"]] [["SVC" "AD:D0274" "60" "34"] ["DTM" "472" "20140321"] ["CAS" "CO" "131" "26"] ["AMT" "B6" "34"]] [["SVC" "AD:D1110" "73" "49"] ["DTM" "472" "20140321"] ["CAS" "CO" "131" "24"] ["AMT" "B6" "49"]]]] [["LX" "7"] [["CLP" "7722337" "1" "179" "108" "" "12" "119932404007801"] ["NM1" "QC" "1" "DOE" "SAM" "" "" "" "MI" "SJD99999"] ["NM1" "82" "1" "BAN" "ERIN" "" "" "" "XX" "1811901945"] ["AMT" "AU" "108"] [["SVC" "AD:D0120" "46" "25"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "21"] ["AMT" "B6" "25"]] [["SVC" "AD:D0274" "60" "34"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "26"] ["AMT" "B6" "34"]] [["SVC" "AD:D1110" "73" "49"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "24"] ["AMT" "B6" "49"]]]] [["LX" "8"] [["CLP" "7722337" "1" "129" "82" "" "12" "119932404007801"] ["NM1" "QC" "1" "DOE" "SUE" "" "" "" "MI" "SJD88888"] ["NM1" "82" "1" "BAN" "ERIN" "" "" "" "XX" "1811901945"] ["AMT" "AU" "82"] [["SVC" "AD:D0120" "46" "25"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "21"] ["AMT" "B6" "25"]] [["SVC" "AD:D1120" "54" "37"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "17"] ["AMT" "B6" "37"]] [["SVC" "AD:D1208" "29" "20"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "9"] ["AMT" "B6" "20"]]]] [["LX" "9"] [["CLP" "7722337" "1" "221" "144" "" "12" "119932404007801"] ["NM1" "QC" "1" "DOE" "DONNA" "" "" "" "MI" "SJD77777"] ["NM1" "82" "1" "BAN" "ERIN" "" "" "" "XX" "1811901945"] ["AMT" "AU" "144"] [["SVC" "AD:D0120" "46" "25"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "21"] ["AMT" "B6" "25"]] [["SVC" "AD:D0330" "92" "62"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "30"] ["AMT" "B6" "62"]] [["SVC" "AD:D1120" "54" "37"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "17"] ["AMT" "B6" "37"]] [["SVC" "AD:D1208" "29" "20"] ["DTM" "472" "20140324"] ["CAS" "CO" "131" "9"] ["AMT" "B6" "20"]]]] ["SE" "190" "35681"]] ["GE" "1" "111111123"]] ["IEA" "1" "111111123"]]]

हमारा प्रारंभिक उदाहरण खंडों की श्रेणीबद्ध संरचना है।

दरअसल, इस कार्य को पहले से ही हल माना जा सकता है। क्लोजर कोड की एक दर्जन लाइनें एक पदानुक्रमित एएसटी में किसी भी X12 दस्तावेजों के लिए पूरी तरह कार्यात्मक पार्सर के साथ हमें प्रदान करती हैं। लेकिन तस्वीर को पूरा करने के लिए, आप कुछ उपयोगी कार्य करने के लिए इस एएसटी को दरकिनार करने का एक उदाहरण दिखा सकते हैं - उदाहरण के लिए, आवश्यक प्रारूप की संरचनाओं का निर्माण करना और डेटाबेस को यह जानकारी लिखना। नीचे कोड का एक उदाहरण है जो पार्स की गई संरचना को दरकिनार करता है और इसके आधार पर वस्तुओं की एक सूची बनाता है। डेटा तक सुविधाजनक पहुंच के लिए यूनिवर्सल हेल्पर की एक जोड़ी, जैसा कि वे एएसटी में प्रस्तुत किए जाते हैं, और एक ट्री वॉकर जो कि पदानुक्रम के किसी भी स्तर पर मूल डेटा तक पहुंचने की क्षमता के साथ एक ऑब्जेक्ट बनाता है।

 ;; util helpers for extracting information (defn v-prefix? [vp] (and (vector? v) (= p (if (vector? p) (subvec v 0 (min (count v) (count p))) (get v 0))))) (defn items [vp & path] (filter #(v-prefix? (get-in % (vec path)) p) v)) (defn item [vp & path] (first (apply items vp path))) ;; test function for extracting human-readable structure (defn tst [x12-string] (for [isa (items (x12 x12-string) "ISA" 0) gs (items isa "GS" 0) st (items gs "ST" 0) lx (items st "LX" 0) clp (items lx "CLP" 0)] (let [bpr (item st "BPR")] {:message {:received (get-in isa [0 9]) :created (get-in gs [0 4])} :transaction {:check (get (item st "TRN") 2) :payed (get bpr 16) :total (read-string (get bpr 2))} :insurer (get-in (item st ["N1" "PR"] 0) [0 2]) :organization (get-in (item st ["N1" "PE"] 0) [0 2]) :claim {:patient (if-let [x (item clp ["NM1" "QC"])] (str (get x 3) " " (get x 4))) :total (read-string (get-in clp [0 4]))} :services (mapv (fn [svc] {:code (get-in svc [0 1]) :amount (read-string (get-in svc [0 3])) :date (get (item svc ["DTM" "472"]) 2)}) (items clp "SVC" 0))})))

प्रस्तुत बिगाड़ने वाले के तहत

परिणाम परिणाम

 ({:message {:received "140305", :created "20140301"}, :transaction {:check "12345", :payed "20140331", :total 810.8}, :insurer "DENTAL OF ABC", :organization "BAN DDS LLC", :claim {:patient "DOE SANDY", :total 132}, :services [{:code "AD:D0120", :amount 25, :date "20140324"} {:code "AD:D0220", :amount 14, :date "20140324"} {:code "AD:D0230", :amount 10, :date "20140324"} {:code "AD:D0274", :amount 34, :date "20140324"} {:code "AD:D1110", :amount 49, :date "20140324"}]} {:message {:received "140305", :created "20140301"}, :transaction {:check "12345", :payed "20140331", :total 810.8}, :insurer "DENTAL OF ABC", :organization "BAN DDS LLC", :claim {:patient "DOE SALLY", :total 74}, :services [{:code "AD:D0120", :amount 25, :date "20140324"} {:code "AD:D1110", :amount 49, :date "20140324"}]} {:message {:received "140305", :created "20140301"}, :transaction {:check "12345", :payed "20140331", :total 810.8}, :insurer "DENTAL OF ABC", :organization "BAN DDS LLC", :claim {:patient "SMITH SALLY", :total 108}, :services [{:code "AD:D0120", :amount 25, :date "20140324"} {:code "AD:D0220", :amount 0, :date "20140324"} {:code "AD:D0230", :amount 0, :date "20140324"} {:code "AD:D0274", :amount 34, :date "20140324"} {:code "AD:D1110", :amount 49, :date "20140324"}]} {:message {:received "140305", :created "20140301"}, :transaction {:check "12345", :payed "20140331", :total 810.8}, :insurer "DENTAL OF ABC", :organization "BAN DDS LLC", :claim {:patient "SMITH SAM", :total 14}, :services [{:code "AD:D0220", :amount 14, :date "20140324"} {:code "AD:D2790", :amount 0, :date "20140324"} {:code "AD:D2950", :amount 0, :date "20140324"}]} {:message {:received "140305", :created "20140301"}, :transaction {:check "12345", :payed "20140331", :total 810.8}, :insurer "DENTAL OF ABC", :organization "BAN DDS LLC", :claim {:patient "JONES SAM", :total 16.8}, :services [{:code "AD:D4342", :amount 0, :date "20140313"} {:code "AD:D4381", :amount 0, :date "20140313"} {:code "AD:D2950", :amount 16.8, :date "20140313"}]} {:message {:received "140305", :created "20140301"}, :transaction {:check "12345", :payed "20140331", :total 810.8}, :insurer "DENTAL OF ABC", :organization "BAN DDS LLC", :claim {:patient "JONES SALLY", :total 132}, :services [{:code "AD:D0120", :amount 25, :date "20140321"} {:code "AD:D0220", :amount 14, :date "20140321"} {:code "AD:D0230", :amount 10, :date "20140321"} {:code "AD:D0274", :amount 34, :date "20140321"} {:code "AD:D1110", :amount 49, :date "20140321"}]} {:message {:received "140305", :created "20140301"}, :transaction {:check "12345", :payed "20140331", :total 810.8}, :insurer "DENTAL OF ABC", :organization "BAN DDS LLC", :claim {:patient "DOE SAM", :total 108}, :services [{:code "AD:D0120", :amount 25, :date "20140324"} {:code "AD:D0274", :amount 34, :date "20140324"} {:code "AD:D1110", :amount 49, :date "20140324"}]} {:message {:received "140305", :created "20140301"}, :transaction {:check "12345", :payed "20140331", :total 810.8}, :insurer "DENTAL OF ABC", :organization "BAN DDS LLC", :claim {:patient "DOE SUE", :total 82}, :services [{:code "AD:D0120", :amount 25, :date "20140324"} {:code "AD:D1120", :amount 37, :date "20140324"} {:code "AD:D1208", :amount 20, :date "20140324"}]} {:message {:received "140305", :created "20140301"}, :transaction {:check "12345", :payed "20140331", :total 810.8}, :insurer "DENTAL OF ABC", :organization "BAN DDS LLC", :claim {:patient "DOE DONNA", :total 144}, :services [{:code "AD:D0120", :amount 25, :date "20140324"} {:code "AD:D0330", :amount 62, :date "20140324"} {:code "AD:D1120", :amount 37, :date "20140324"} {:code "AD:D1208", :amount 20, :date "20140324"}]})

- आप डेटाबेस पर लिखने के लिए ~~मेज~~ पर ~~सेवा~~ कर सकते ~~हैं~~ , यूआई पर कल्पना कर सकते ~~हैं~~ या किसी अन्य तरीके से उपयोग कर सकते हैं

इसी तरह के कोड और X12 दस्तावेजों को पार्स करने के लिए एक एल्गोरिथ्म का उपयोग मेरे काम के मसौदे में किया जाता है - निश्चित रूप से, अतिरिक्त कार्यक्षमता का एक गुच्छा। एल्गोरिथ्म और दृष्टिकोण को प्रदर्शित करने के लिए लेख में कोड उदाहरण एक न्यूनतम कामकाजी प्रोटोटाइप है। क्षमा करें, कि सार कारखानों के बिना, दहनशील पार्सर, पुनरावर्ती व्याकरण और अन्य गंभीर चीजें - कोड की केवल 3 दर्जन लाइनें)

जो लोग चाहते हैं वे इस पार्सर के साथ किसी भी ऑनलाइन रीप्ले में खेल सकते हैं जो क्लॉजुर का समर्थन करता है - आइडोन / प्रतिकृति / आदि आश्रितों में से, आपको परिणामों के एक सुंदर प्रिंट के लिए केवल नामस्थान clojure.string , ठीक है, शायद clojure.pprint कनेक्ट करना होगा। आप ऑब्जेक्ट बनाने के परीक्षण फ़ंक्शन के कोड को बदलने की कोशिश कर सकते हैं, पार्स की गई संरचना से अन्य फ़ील्ड प्राप्त कर सकते हैं, आदि। टाइप 835 (दावा प्रतिक्रिया) के X12 दस्तावेजों के उदाहरण ऑनलाइन पाए जा सकते हैं।

पारसीम X12 "घुटने पर"

प्रारूप के बारे में थोड़ा

पार्सर

More articles: