Summary Table
Categories |
Total Count |
PII |
0 |
URL |
0 |
DNS |
0 |
EKL |
0 |
IP |
0 |
PORT |
0 |
VsID |
0 |
CF |
0 |
AI |
0 |
VPD |
0 |
PL |
0 |
Other |
0 |
File Content
<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25">
<Class name="EDIGW.DTL837P">
<Super>Ens.DataTransformDTL</Super>
<TimeCreated>64957,56970.246455</TimeCreated>
<DependsOn>EnsLib.EDI.X12.Document,EDIGW.TXNSETX</DependsOn>
<Parameter name="IGNOREMISSINGSOURCE">
<Default>1</Default>
</Parameter>
<Parameter name="REPORTERRORS">
<Default>1</Default>
</Parameter>
<Parameter name="TREATEMPTYREPEATINGFIELDASNULL">
<Default>0</Default>
</Parameter>
<XData name="DTL">
<XMLNamespace>http://www.intersystems.com/dtl</XMLNamespace>
<Data><![CDATA[
<transform sourceClass='EnsLib.EDI.X12.Document' targetClass='EDIGW.TXNSETX' sourceDocType='HIPAA_5010:837P' create='new' language='objectscript' >
<code>
<![CDATA[ /// START ST - TRANSACTION SET HEADER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START BHT - BEGINNING OF HIERARCHICAL TRANSACTION]]]]><![CDATA[></code>
<assign value='##class(EDIGW.Auxiliary).%New()' property='aux' action='set' />
<assign value='##class(EDIGW.Utility).SourceFNGoodFileName(source.Source)' property='aux.FILENUMBER' action='set' />
<assign value='"837P"' property='aux.TXTYPE' action='set' />
<assign value='source.{ST:ImplementationConventionRefe}' property='aux.CLAIMTYPE' action='set' />
<assign value='1' property='aux.SEQNBR' action='set' />
<assign value='$I(^EDIGWsql)' property='target.IIterator' action='set' />
<assign value='source.{BHT:HierarchicalStructureCode}' property='target.TXNSET.BHT01HRCHLSTRC' action='set' />
<assign value='source.{BHT:TransactionSetPurposeCode}' property='target.TXNSET.BHT02TXNPRPSCD' action='set' />
<assign value='source.{BHT:RefId}' property='target.TXNSET.BHT03ORGNTXNID' action='set' />
<assign value='source.{BHT:Date}' property='target.TXNSET.BHT04TXNCREDT' action='set' />
<assign value='source.{BHT:Time}' property='target.TXNSET.BHT05TXNCRETM' action='set' />
<assign value='source.{BHT:TransactionTypeCode}' property='target.TXNSET.BHT06TXNTYPECD' action='set' />
<assign value='source.{SE:TransactionSetControlNumber}' property='target.TXNSET.SE02TXNCTLNBR' action='set' />
<assign value='source.{SE:NumberofIncludedSegments}' property='target.TXNSET.SE01TXNSGMTCNT' action='set' />
<assign value='source.{ST:TransactionSetIdentifierCode}' property='target.TXNSET.ST01TXNID' action='set' />
<assign value='source.{ST:TransactionSetControlNumber}' property='target.TXNSET.ST02TXNCTLNBR' action='set' />
<assign value='source.{ST:ImplementationConventionRefe}' property='target.TXNSET.ST03IMPLMTCNVNTNREG' action='set' />
<assign value='aux.FILENUMBER' property='target.TXNSET.FILENUMBER' action='set' />
<assign value='aux.TXTYPE' property='target.TXNSET.TXTYPE' action='set' />
<code>
<![CDATA[ /// END ST - TRANSACTION SET HEADER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END BHT - BEGINNING OF HIERARCHICAL TRANSACTION]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.ST02TXNCTLNBR=target.TXNSET.ST02TXNCTLNBR,aux.LOOPID="1000A"]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP ID - 1000A SUBMITTER NAME]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='target.Loop1000A.NM1' sourceObj='source.{loop1000A.NM1}' aux='aux' />
<assign value='source.{loop1000A.NM1:IdentificationCode}' property='aux.SENDERID' action='set' />
<foreach property='source.{loop1000A.PER()}' key='PERIN' >
<code>
<![CDATA[ set aux.SEQNBR=PERIN]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPER' targetObj='PEROut' sourceObj='source.{loop1000A.PER(PERIN)}' aux='aux' />
<code>
<![CDATA[ set sc=target.Loop1000A.PER.SetAt(PEROut,PEROut.CONTACTINFOKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP ID - 1000A SUBMITTER NAME]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP ID - 1000B RECEIVER NAME]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ set aux.LOOPID="1000B"]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='target.Loop1000B.NM1' sourceObj='source.{loop1000B.NM1}' aux='aux' />
<assign value='source.{loop1000B.NM1:IdentificationCode}' property='aux.RECEIVERID' action='set' />
<code>
<![CDATA[ /// END LOOP ID - 1000B RECEIVER NAME]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP ID - 2000A() BILLING PROVIDER HIERARCHICAL LEVEL]]]]><![CDATA[></code>
<foreach property='source.{loop2000A()}' key='k1' >
<code>
<![CDATA[ set aux.LOOPID="2000A",aux.SEQNBR=k1
set objLoop2000A=##class(EDIGW.Loop2000A).%New()
set objLoop2000A.Loop2010AA=##class(EDIGW.Loop2010AX).%New()
set objLoop2000A.Loop2010AB=##class(EDIGW.Loop2010AX).%New()
set objLoop2000A.Loop2010AC=##class(EDIGW.Loop2010AX).%New()
set HLOut=""
]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGHL' targetObj='HLOut' sourceObj='source.{loop2000A(k1).HL!3=20}' aux='aux' />
<code>
<![CDATA[ if $IsObject(HLOut) set objLoop2000A.HL=HLOut,(aux.HRCHLLEVELKEY,aux.BILLINGHRCHLLEVELKEY)=HLOut.HRCHLLEVELKEY]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2000A-PRV - BILLING PROVIDER SPECIALTY INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2000A.PRV' sourceObj='source.{loop2000A(k1).PRV}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2000A-CUR - FOREIGN CURRENCY INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCUR' targetObj='objLoop2000A.CUR' sourceObj='source.{loop2000A(k1).CUR}' aux='aux' />
<code>
<![CDATA[ /// START LOOP ID - 2000A().2010AA BILLING PROVIDER NAME]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2010AA",aux.SEQNBR=k1]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2010AA-NM1 - BILLING PROVIDER NAME]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2000A.Loop2010AA.NM1' sourceObj='source.{loop2000A(k1).loop2010AA.NM1}' aux='aux' />
<assign value='objLoop2000A.Loop2010AA.NM1.NM109BILLPRVDID' property='aux.NM109BILLPRVDID' action='set' />
<code>
<![CDATA[ /// SEGMENT 2010AA-N3 - BILLING PROVIDER ADDRESS]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2010AA-N4 - BILLING PROVIDER CITY, STATE, ZIP CODE]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2010AA.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2010AA.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2000A.Loop2010AA.N34' sourceObj='source.{loop2000A(k1).loop2010AA.N4}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2010AA-PER - BILLING PROVIDER CONTACT INFORMATION]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2010AA.PER()}' key='k2' >
<code>
<![CDATA[ set aux.SEQNBR=k2]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPER' targetObj='PEROut' sourceObj='source.{loop2000A(k1).loop2010AA.PER(k2)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2000A.Loop2010AA.CNTCPER.SetAt(PEROut,PEROut.CONTACTINFOKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// SEGMENT 2010AA-REF() - BILLING PROVIDER TAX IDENTIFICATION, UPIN/LICENSE INFORMATION,CONTACT INFORMATION]]]]><![CDATA[></code>
<code>
<![CDATA[ // 2010AA REF repeats in 837D and 837P]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2010AA.REF()}' key='k2' >
<code>
<![CDATA[ set aux.LOOPID="2010AA",aux.SEQNBR=k2]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2010AA.REF(k2)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2000A.Loop2010AA.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP ID - 2000A().2010AA BILLING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP ID - 2000A().2010AB PAY-TO ADDRESS NAME]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2010AB",aux.SEQNBR=k1]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2010AB-NM1 - PAY-TO ADDRESS NAME]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2000A.Loop2010AB.NM1' sourceObj='source.{loop2000A(k1).loop2010AB.NM1!1=87}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2010AB-N3 - PAY-TO ADDRESS - ADDRESS]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2010AB-N4 - PAY-TO ADDRESS CITY, STATE, ZIP CODE]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2010AB.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2010AB.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2000A.Loop2010AB.N34' sourceObj='source.{loop2000A(k1).loop2010AB.N4}' aux='aux' />
<code>
<![CDATA[ /// END LOOP ID - 2000A().2010AB PAY-TO ADDRESS NAME]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP ID - 2000A().2010AC PAY-TO PLAN NAME]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2010AC",aux.SEQNBR=k1]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2010AC-NM1 - PAY-TO PLAN NAME]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2000A.Loop2010AC.NM1' sourceObj='source.{loop2000A(k1).loop2010AC.NM1}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2010AC-N3 - PAY-TO PLAN ADDRESS]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2010AC-N4 - PAY-TO PLAN CITY, STATE, ZIP CODE]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2010AC.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2010AC.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2000A.Loop2010AC.N34' sourceObj='source.{loop2000A(k1).loop2010AC.N4}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2010AC-REF() - PAY-TO PLAN SECONDARY IDENTIFICATION & TAX IDENTIFICATION NUMBER]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2010AC.REF()}' key='k2' >
<code>
<![CDATA[ set aux.SEQNBR=k2]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2010AC.REF(k2)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2000A.Loop2010AC.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// START LOOP ID - 2000A().2000B() SUBSCRIBER HIERARCHICAL LEVEL]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B()}' key='k2' >
<code>
<![CDATA[ set aux.LOOPID="2000B",aux.SEQNBR=k2
set objLoop2000B=##class(EDIGW.Loop2000B).%New() ]]]]><![CDATA[></code>
<code>
<![CDATA[ set (HLOut,SBROut)=""]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGHL' targetObj='objLoop2000B.HL' sourceObj='source.{loop2000A(k1).loop2000B(k2).HL!3=22}' aux='aux' />
<code>
<![CDATA[ set (aux.HRCHLLEVELKEY,aux.SUBSCRIBERHRCHLLEVELKEY)=objLoop2000B.HL.HRCHLLEVELKEY]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2000B-SBR - SUBSCRIBER INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGSBR' targetObj='objLoop2000B.SBR' sourceObj='source.{loop2000A(k1).loop2000B(k2).SBR}' aux='aux' />
<code>
<![CDATA[ set aux.SUBSCRIBERINFOKEY=objLoop2000B.SBR.SUBSCRIBERINFOKEY]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2000B-PAT - PATIENT INFORMATION]]]]><![CDATA[></code>
<code>
<![CDATA[ // 2000B PAT appears only in 837P, not D or I]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPAT' targetObj='objLoop2000B.PAT' sourceObj='source.{loop2000A(k1).loop2000B(k2).PAT}' aux='aux' />
<code>
<![CDATA[ /// START LOOP ID - loop2000A().loop2000B().2010BA SUBSCRIBER NAME]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2010BA"]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2000BA-NM1 - SUBSCRIBER NAME]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2000B.Loop2010BA.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2010BA.NM1}' aux='aux' />
<assign value='objLoop2000B.Loop2010BA.NM1.NM109SBSRID' property='aux.NM109SBSRID' action='set' />
<assign value='objLoop2000B.Loop2010BA.NM1.NM109SBSRID' property='aux.SUBSCRIBERID' action='set' />
<code>
<![CDATA[ /// SEGMENT 2000BA-N3 - SUBSCRIBER ADDRESS]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2000BA-N4 - SUBSCRIBER CITY, STATE, ZIP CODE]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2010BA.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2010BA.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2000B.Loop2010BA.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2010BA.N4}' aux='aux' />
<code>
<![CDATA[ set aux.SEQNBR=k2]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2000BA-DMG - SUBSCRIBER DEMOGRAPHIC INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGDMG' targetObj='objLoop2000B.Loop2010BA.DMG' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2010BA.DMG}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2000BA-REF()- SUBSCRIBER SECONDARY IDENTIFICATION,PROPERTY AND CASUALTY CLAIM NUMBER]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2010BA.REF()}' key='Ref2010BAk' >
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2010BA.REF(Ref2010BAk)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2000B.Loop2010BA.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ // 2000BA PER appears only in 837P, not D or I]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2000BA-PER - PROPERTY AND CASUALTY SUBSCRIBER CONTACT INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPER' targetObj='objLoop2000B.Loop2010BA.PER' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2010BA.PER}' aux='aux' />
<code>
<![CDATA[ /// END LOOP ID - loop2000A().loop2000B().2010BA SUBSCRIBER NAME]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP ID - loop2000A().loop2000B().2010BB PAYER NAME]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2010BB",aux.SEQNBR=k2]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2000BB-NM1 - PAYER NAME]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2000B.Loop2010BB.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2010BB.NM1}' aux='aux' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2010BB.NM1:IdentificationCode}' property='aux.NM109PAYPRVDID' action='set' />
<code>
<![CDATA[ /// SEGMENT 2000BB-N3 - PAYER ADDRESS]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2000BB-N4 - PAYER CITY, STATE, ZIP CODE]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2010BB.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2010BB.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2000B.Loop2010BB.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2010BB.N4}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2000BB-REF()- PAYER SECONDARY IDENTIFICATION,BILLING PROVIDER SECONDARY IDENTIFICATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2010BB.REF()}' key='Ref2010BBk' >
<code>
<![CDATA[ set aux.LOOPID="2010BB",aux.SEQNBR=k2]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2010BB.REF(Ref2010BBk)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2000B.Loop2010BB.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP ID - loop2000A().loop2000B().2010BB PAYER NAME]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP loop2000A().loop2000B().2300()-CLAIM INFORMATION]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300()}' key='k4' >
<code>
<![CDATA[ set aux.LOOPID="2300",aux.SEQNBR=k4 ]]]]><![CDATA[></code>
<code>
<![CDATA[ set objLoop2300=##class(EDIGW.Loop2300).%New() ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.PATIENTINFOKEY = "" ;;objLoop2000C.PAT.PATIENTINFOKEY]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2300 CLM CLAIM INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCLM' targetObj='objLoop2300.CLM' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).CLM}' aux='aux' />
<assign value='objLoop2300.CLM.CLAIMKEY' property='aux.CLAIMKEY' action='set' />
<code>
<![CDATA[ /// SEGMENT 2300-DTP - DATE - ONSET OF CURRENT ILLNESS OR SYMPTOM,INITIAL TREATMENT DATE,LAST SEEN DATE,DATE - ACUTE MANIFESTATION,DATE - ACCIDENT,LAST MENSTRUAL PERIOD,LAST X-RAY DATE,HEARING AND VISION PRESCRIPTION DATE, DATE - DISABILITY DATES,DATE - LAST WORKED,DATE - AUTHORIZED RETURN TO WORK,DATE - ADMISSION,DATE - DISCHARGE,ASSUMED AND RELINQUISHED CARE DATES,PROPERTY AND CASUALTY DATE OF FIRST CONTACT,REPRICER RECEIVED DATE ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).DTP()}' key='Dtp2300k' >
<code>
<![CDATA[ set aux.SEQNBR= Dtp2300k]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGDTP' targetObj='DTPOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).DTP(Dtp2300k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.DTP.SetAt(DTPOut,DTPOut.CLAIMDTKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// SEGMENT 2300-PWK -CLAIM SUPPLEMENTAL INFORMATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).PWK()}' key='Pwk2300k' >
<assign value='Pwk2300k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGPWK' targetObj='PWKOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).PWK(Pwk2300k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.PWK.SetAt(PWKOut,PWKOut.PWKKEY) ]]]]><![CDATA[></code>
</foreach>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// SEGMENT 2300-CN1 - CONTRACT INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCN1' targetObj='objLoop2300.CN1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).CN1}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2300-AMT - PATIENT AMOUNT PAID ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGAMT' targetObj='objLoop2300.AMT' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).AMT}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2300-REF() -SERVICE AUTHORIZATION EXCEPTION CODE,MANDATORY MEDICARE (SECTION 4081) CROSSOVER INDICATOR,MAMMOGRAPHY CERTIFICATION NUMBER,REFERRAL NUMBER, PRIOR AUTHORIZATION,PAYER CLAIM CONTROL NUMBER,CLINICAL LABORATORY IMPROVEMENT AMENDMENT (CLIA) NUMBER,REPRICED CLAIM NUMBER, ADJUSTED REPRICED CLAIM NUMBER,INVESTIGATIONAL DEVICE EXEMPTION NUMBER,CLAIM IDENTIFIER FOR TRANSMISSION INTERMEDIARIES,MEDICAL RECORD NUMBER, DEMONSTRATION PROJECT IDENTIFIER, CARE PLAN OVERSIGHT ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).REF()}' key='k5' >
<assign value='k5' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).REF(k5)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// SEGMENT 2300-K3() - FILE INFORMATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).K3()}' key='K32300k' >
<assign value='K32300k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGK3' targetObj='K3Out' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).K3(K32300k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.K3.SetAt(K3Out,K3Out.FILEINFOKEY)]]]]><![CDATA[></code>
</foreach>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// SEGMENT 2300-NTE - CLAIM NOTE ]]]]><![CDATA[></code>
<code>
<![CDATA[ set NTEOut=""]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNTE' targetObj='NTEOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).NTE}' aux='aux' />
<code>
<![CDATA[ If $IsObject(NTEOut) set sc=objLoop2300.NTE.SetAt(NTEOut,1)]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2300-CR1 - AMBULANCE TRANSPORT INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCR1' targetObj='objLoop2300.CR1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).CR1}' aux='aux' />
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// SEGMENT 2300-CR2 - SPINAL MANIPULATION SERVICE INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCR2' targetObj='objLoop2300.CR2' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).CR2}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2300-CRC - AMBULANCE CERTIFICATION,PATIENT CONDITION INFORMATION:VISION,HOMEBOUND INDICATOR,EPSDT REFERRAL ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).CRC()}' key='k5' >
<assign value='k5' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGCRC' targetObj='CRCOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).CRC(k5)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.CRC.SetAt(CRCOut,k5)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// SEGMENT 2300-HI - HEALTH CARE DIAGNOSIS CODE,ANESTHESIA RELATED PROCEDURE,CONDITION INFORMATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).HI()}' key='Hi2300k' >
<assign value='Hi2300k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGHI' targetObj='HIOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).HI(Hi2300k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.HI.SetAt(HIOut,Hi2300k)]]]]><![CDATA[></code>
</foreach>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// SEGMENT 2300-HCP - CLAIM PRICING/REPRICING INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGHCP' targetObj='objLoop2300.HCP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).HCP}' aux='aux' />
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2300().2310A() - REFERRING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ // 2310A repeats in 837D and 837P]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310A()}' key='k6' >
<code>
<![CDATA[ set aux.LOOPID="2310A",objLoop2310A=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310A-NM1 - REFERRING PROVIDER NAME ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310A.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310A(k6).NM1!1=DN=P3}' aux='aux' />
<code>
<![CDATA[ // PRV SEGMENT DOES NOT COME IN FOR 837 PROFESSIONAL ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310A-REF() - REFERRING PROVIDER SECONDARY IDENTIFICATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310A(k6).REF()}' key='k7' >
<assign value='k7' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310A(k6).REF(k7)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2310A.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc=objLoop2300.Loop2310A.SetAt(objLoop2310A,k6)]]]]><![CDATA[></code>
</foreach>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2300().2310A() - REFERRING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2300().2310B - RENDERING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310B",objLoop2310B=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310B-NM1 - RENDERING PROVIDER NAME ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310B.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310B.NM1!1=82}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2310B-PRV - RENDERING PROVIDER SPECIALTY INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2310B.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310B.PRV}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2310B-REF - RENDERING PROVIDER SECONDARY IDENTIFICATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310B.REF()}' key='k8' >
<assign value='k8' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310B.REF(k8)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2310B.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2300.Loop2310B =objLoop2310B]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2300().2310B - RENDERING PROVIDER]]]]><![CDATA[></code>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2300().2310C - SERVICE FACILITY LOCATION]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310C",objLoop2310C=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310C-NM1 - SERVICE FACILITY LOCATION NAME ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310C.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310C.NM1!1=77}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2310C-N3 - SERVICE FACILITY LOCATION ADDRESS ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310C-N4 - SERVICE FACILITY LOCATION CITY,STATE, ZIP CODE ]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310C.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310C.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2310C.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310C.N4}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2310C-REF - SERVICE FACILITY LOCATION SECONDARY IDENTIFICATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310C.REF()}' key='k9' >
<assign value='k9' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310C.REF(k9)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2310C.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// SEGMENT 2310C-PER - SERVICE FACILITY CONTACT INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPER' targetObj='objLoop2310C.PER' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310C.PER}' aux='aux' />
<code>
<![CDATA[ set objLoop2300.Loop2310C =objLoop2310C]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2300().2310C - SERVICE FACILITY LOCATION]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2310D - SUPERVISING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310D",objLoop2310D=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310D-NM1 - SUPERVISING PROVIDER NAME ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310D.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310D.NM1!1=DQ}' aux='aux' />
<code>
<![CDATA[ /// PRV SEGMENT DOES NOT APPEAR IN PROFESSIONAL ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310D-REF - SUPERVISING PROVIDER SECONDARY IDENTIFICATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310D.REF()}' key='k10' >
<assign value='k10' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310D.REF(k10)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2310D.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2300.Loop2310D =objLoop2310D]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2300().2310D - SUPERVISING PROVIDER]]]]><![CDATA[></code>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2310E - AMBULANCE PICK-UP]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310E",objLoop2310E=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310E-NM1 - AMBULANCE PICK-UP LOCATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310E.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310E.NM1!1=PW}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2310E-N3 - AMBULANCE PICK-UP LOCATIONADDRESS ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310E-N4 - AMBULANCE PICK-UP LOCATION CITY,STATE, ZIP CODE ]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310E.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310E.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2310E.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310E.N4}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT REF DOES NOT APPEAR FOR PROFESSIONAL ]]]]><![CDATA[></code>
<code>
<![CDATA[ set objLoop2300.Loop2310E =objLoop2310E]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2300().2310E - AMBULANCE PICK-UP]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2300().2310F - AMBULANCE DROP-OFF]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310F",objLoop2310F=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310F-NM1 - AMBULANCE DROP-OFF LOCATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310F.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310F.NM1}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2310F-N3 -AMBULANCE DROP-OFF LOCATION ADDRESS]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310F -N4 -AMBULANCE DROP-OFF LOCATION CITY,STATE, ZIP CODE]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310F.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310F.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2310F.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310F.N4}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT REF DOES NOT APPEAR FOR PROFESSIONAL ]]]]><![CDATA[></code>
<code>
<![CDATA[ set objLoop2300.Loop2310F =objLoop2310F]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2310F TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2300().2320() - OTHER SUBSCRIBER]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320()}' key='k5' >
<code>
<![CDATA[ set aux.LOOPID="2320",aux.LOOPSEQNBR=k5,aux.SEQNBR=k5,objLoop2320=##class(EDIGW.Loop2320).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START 2320.SBR SEGMENT]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2320 - SBR-OTHER SUBSCRIBER INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGSBR' targetObj='objLoop2320.SBR' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).SBR}' aux='aux' />
<assign value='objLoop2320.SBR.SUBSCRIBERINFOKEY' property='aux.SUBSCRIBERINFOKEY' action='set' />
<assign value='objLoop2320.SBR.SUBSCRIBERINFOKEY' property='aux.OHISUBSCRIBERKEY' action='set' />
<code>
<![CDATA[ /// SEGMENT 2320-CAS() - CLAIM LEVEL ADJUSTMENTS]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).CAS()}' key='k6' >
<code>
<![CDATA[ set aux.SEQNBR=k6]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCAS' targetObj='CASOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).CAS(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2320.CAS.SetAt(CASOut,k6)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// SEGMENT 2320-AMT() - COORDINATION OF BENEFITS (COB)PAYER PAID AMOUNT,COORDINATION OF BENEFITS (COB)TOTAL NON-COVERED AMOUNT,REMAINING PATIENT LIABILITY]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).AMT()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGAMT' targetObj='AMTOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).AMT(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2320.AMT.SetAt(AMTOut,k6)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// SEGMENT 2320-OI-OTHER INSURANCE COVERAGE INFORMATION]]]]><![CDATA[></code>
<assign value='k5' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGOI' targetObj='objLoop2320.OI' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).OI}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2320-MOA-OUTPATIENT ADJUDICATION INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGMOA' targetObj='objLoop2320.MOA' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).MOA}' aux='aux' />
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2300().2320().2330A- OTHER SUBSCRIBER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330A",objLoop2330A=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2330A-NM1 - OTHER SUSCRIBER NAME]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330A.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330A.NM1}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2330A-N3 - OTHER SUSCRIBER ADDRESS]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2330A-N4 - OTHER SUSCRIBER CITY,STATE,ZIP]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330A.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330A.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2330A.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330A.N4}' aux='aux' />
<assign value='1' property='aux.SEQNBR' action='set' />
<assign value='""' property='REFOut' action='set' />
<code>
<![CDATA[ /// SEGMENT 2330A-ref() - OTHER SUSCRIBER SECONDARY IDENTIFICATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330A.REF}' aux='aux' />
<code>
<![CDATA[ if $IsObject(REFOut) set sc=objLoop2330A.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
<code>
<![CDATA[ set objLoop2320.Loop2330A=objLoop2330A]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330A- OTHER SUBSCRIBER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330B TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330B",objLoop2330B=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330B.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330B.NM1}' aux='aux' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330B.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330B.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2330B.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330B.N4}' aux='aux' />
<assign value='1' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGDTP' targetObj='objLoop2330B.DTP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330B.DTP}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330B.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330B.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330B.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330B=objLoop2330B]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2330B TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330C TRANSFORMATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330C()}' key='k6' >
<code>
<![CDATA[ set aux.LOOPID="2330C",objLoop2330C=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330C.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330C(k6).NM1!1=DN=P3}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330C(k6).REF()}' key='k7' >
<assign value='k7' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330C(k6).REF(k7)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330C.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc=objLoop2320.Loop2330C.SetAt(objLoop2330C,k6)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END 2330C TRANSFORMATION ]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START 2330D TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330D",objLoop2330D=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330D.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330D.NM1!1=82}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330D.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330D.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330D.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330D=objLoop2330D]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2330D TRANSFORMATION ]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START 2330E TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330E",objLoop2330E=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330E.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330E.NM1!1=77}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330E.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330E.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330E.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330E=objLoop2330E]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2330E TRANSFORMATION ]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START 2330F TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330F",objLoop2330F=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330F.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330F.NM1!1=DQ}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330F.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330F.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330F.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330F=objLoop2330F]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2330F TRANSFORMATION ]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START 2330G TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330G",objLoop2330G=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330G.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330G.NM1}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330G.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330G.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330G.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330G=objLoop2330G]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2330G TRANSFORMATION ]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START 2330H TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2330H TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set sc=objLoop2300.Loop2320.SetAt(objLoop2320,k5)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END OF 2320 LOOP]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START LOOP 2400]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400()}' key='k5' >
<code>
<![CDATA[ set aux.LOOPID="2400",aux.SEQNBR=k5,objLoop2400=##class(EDIGW.Loop2400).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START LOOP 2400.lX-SV1]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).LX:AssignedNumber}' property='aux.LX01ASGNLNITM' action='set' />
<subtransform class='EDIGW.DTLSEGLXSV1' targetObj='objLoop2400.LXSV1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).SV1}' aux='aux' />
<assign value='objLoop2400.LXSV1.SERVICEKEY' property='aux.PRFSNSERVICEKEY' action='set' />
<code>
<![CDATA[ ///START LOOP 2400.SV5]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGSV5' targetObj='objLoop2400.SV5' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).SV5}' aux='aux' />
<code>
<![CDATA[ ///START LOOP 2400.PWK()]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).PWK()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGPWK' targetObj='PWKOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).PWK(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.PWK.SetAt(PWKOut,PWKOut.PWKKEY) ]]]]><![CDATA[></code>
</foreach>
<assign value='k5' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ ///START LOOP 2400.CR1]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCR1' targetObj='objLoop2400.CR1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).CR1}' aux='aux' />
<code>
<![CDATA[ ///START LOOP 2400.CR3]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCR3' targetObj='objLoop2400.CR3' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).CR3}' aux='aux' />
<code>
<![CDATA[ ///START LOOP 2400.CRC()]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).CRC()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGCRC' targetObj='CRCOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).CRC(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.CRC.SetAt(CRCOut,k6) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///START LOOP 2400.DTP()]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).DTP()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGDTP' targetObj='DTPOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).DTP(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.DTP.SetAt(DTPOut,DTPOut.CLAIMDTKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///START LOOP 2400.QTY()]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).QTY()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGQTY' targetObj='QTYOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).QTY(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.QTY.SetAt(QTYOut,QTYOut.QUANTITYKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///START LOOP 2400.MEA()]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).MEA()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGMEA' targetObj='MEAOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).MEA(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.MEA.SetAt(MEAOut,k6) ]]]]><![CDATA[></code>
</foreach>
<assign value='k5' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ ///START LOOP 2400.CN1]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCN1' targetObj='objLoop2400.CN1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).CN1}' aux='aux' />
<code>
<![CDATA[ ///START LOOP 2400.REF()]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///START LOOP 2400.AMT()]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).AMT()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGAMT' targetObj='AMTOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).AMT(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.AMT.SetAt(AMTOut,k6) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///START LOOP 2400.K3()]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).K3()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGK3' targetObj='K3Out' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).K3(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.K3.SetAt(K3Out,K3Out.FILEINFOKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///START LOOP 2400.NTE()]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).NTE()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGNTE' targetObj='NTEOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).NTE(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.NTE.SetAt(NTEOut,k6) ]]]]><![CDATA[></code>
</foreach>
<assign value='k5' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ ///START LOOP 2400.PS1]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPS1' targetObj='objLoop2400.PS1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).PS1}' aux='aux' />
<code>
<![CDATA[ ///START LOOP 2400.HCP]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGHCP' targetObj='objLoop2400.HCP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).HCP}' aux='aux' />
<code>
<![CDATA[ ///START LOOP 2410]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2410",aux.SEQNBR=1,objLoop2410=##class(EDIGW.Loop2410).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START LOOP 2410.LIN]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGLIN' targetObj='objLoop2410.LIN' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2410.LIN}' aux='aux' />
<code>
<![CDATA[ ///START LOOP 2410.CTP]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCTP' targetObj='objLoop2410.CTP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2410.CTP}' aux='aux' />
<code>
<![CDATA[ ///START LOOP 2410.REF]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGREF' targetObj='objLoop2410.REF' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2410.REF}' aux='aux' />
<code>
<![CDATA[ set objLoop2400.Loop2410=objLoop2410]]]]><![CDATA[></code>
<code>
<![CDATA[ ///END LOOP 2410]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START LOOP 2420A]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420A",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420A.NM1!1=82}' aux='aux' />
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2420X.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420A.PRV}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420A.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420A.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2400.Loop2420A=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START LOOP 2420B]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420B",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420B.NM1!1=QB}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420B.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420B.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2400.Loop2420B=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START LOOP 2420C]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420C",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420C.NM1!1=77}' aux='aux' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420C.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420C.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2420X.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420C.N4}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420C.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420C.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2400.Loop2420C=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START LOOP 2420D]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420D",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420D.NM1!1=DQ}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420D.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420D.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2400.Loop2420D=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START LOOP 2420E]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420E",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420E.NM1!1=DK}' aux='aux' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420E.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420E.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2420X.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420E.N4}' aux='aux' />
<subtransform class='EDIGW.DTLSEGPER' targetObj='objLoop2420X.PER' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420E.PER}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420E.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420E.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2400.Loop2420E=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START LOOP 2420F()]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420F()}' key='k6' >
<code>
<![CDATA[ set aux.LOOPID="2420F",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420F(k6).NM1!1=DN=P3}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420F(k6).REF()}' key='k7' >
<assign value='k7' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420F(k6).REF(k7)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc=objLoop2400.Loop2420F.SetAt(objLoop2420X,k6)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///START LOOP 2420G]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420G",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420G.NM1!1=PW}' aux='aux' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420G.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420G.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2420X.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420G.N4}' aux='aux' />
<code>
<![CDATA[ set objLoop2400.Loop2420G=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START LOOP 2420H]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420H",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420H.NM1}' aux='aux' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420H.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420H.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2420X.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420H.N4}' aux='aux' />
<code>
<![CDATA[ set objLoop2400.Loop2420H=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START LOOP 2430]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2430()}' key='k6' >
<code>
<![CDATA[ set aux.LOOPID="2430",aux.SEQNBR=k6,objLoop2430=##class(EDIGW.Loop2430).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGSVD' targetObj='objLoop2430.SVD' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2430(k6).SVD}' aux='aux' />
<code>
<![CDATA[ set aux.LOOPSEQNBR=k6]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2430(k6).CAS()}' key='k7' >
<code>
<![CDATA[ set aux.SEQNBR=k7]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCAS' targetObj='CASOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2430(k6).CAS(k7)}' aux='aux' />
<code>
<![CDATA[ set sc = objLoop2430.CAS.SetAt(CASOut,k7)]]]]><![CDATA[></code>
</foreach>
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGDTP' targetObj='objLoop2430.DTP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2430(k6).DTP}' aux='aux' />
<subtransform class='EDIGW.DTLSEGAMT' targetObj='objLoop2430.AMT' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2430(k6).AMT}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.Loop2430.SetAt(objLoop2430,k6)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///START LOOP 2440]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2440()}' key='k6' >
<code>
<![CDATA[ set aux.LOOPID="2440",aux.SEQNBR=k6,objLoop2440=##class(EDIGW.Loop2440).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START LOOP 2440.LQ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGLQ' targetObj='objLoop2440.LQ' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2440(k6).LQ}' aux='aux' />
<code>
<![CDATA[ ///START LOOP 2440.FRM()]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPSEQNBR=k6]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2440(k6).FRM()}' key='k7' >
<code>
<![CDATA[ set aux.SEQNBR=k7]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGFRM' targetObj='FRMOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2440(k6).FRM(k7)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2440.FRM.SetAt(FRMOut,k7)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc = objLoop2400.Loop2440.SetAt(objLoop2440,k6)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc=objLoop2300.Loop2400.SetAt(objLoop2400,k5)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///END LOOP 2400]]]]><![CDATA[></code>
<code>
<![CDATA[ set sc=objLoop2000B.Loop2300.SetAt(objLoop2300,k4)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP loop2000A().loop2000B().2300()-CLAIM INFORMATION]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP200A().LOOP2000B().2000C() -PATIENT HIERARCHICAL LEVEL]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C()}' key='k3' >
<code>
<![CDATA[ set aux.LOOPID="2000C",aux.SEQNBR=k3]]]]><![CDATA[></code>
<code>
<![CDATA[ set objLoop2000C=##class(EDIGW.Loop2000C).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2000C-HL - PATIENT HIERARCHICAL LEVEL ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGHL' targetObj='objLoop2000C.HL' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).HL!3=23}' aux='aux' />
<code>
<![CDATA[ set (aux.HRCHLLEVELKEY,aux.PATIENTHRCHLLEVELKEY)=objLoop2000C.HL.HRCHLLEVELKEY]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2000C-PAT - PATIENT INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPAT' targetObj='objLoop2000C.PAT' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).PAT}' aux='aux' />
<code>
<![CDATA[ /// START LOOP200A().LOOP2000B().2000C().2010CA -PATIENT NAME]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2010CA",aux.SEQNBR=k3]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2010CA-NM1 - PATIENT NAME ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2000C.Loop2010CA.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2010CA.NM1}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2010CA-N3 - PATIENT ADDRESS ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2000CA-N4 - PATIENT CITY, STATE, ZIP CODE ]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2010CA.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2010CA.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2000C.Loop2010CA.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2010CA.N4}' aux='aux' />
<code>
<![CDATA[ set aux.SEQNBR=k3]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2010CA-DMG - PATIENT DEMOGRAPHIC INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGDMG' targetObj='objLoop2000C.Loop2010CA.DMG' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2010CA.DMG}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2010CA-REF - PROPERTY AND CASUALTY CLAIM NUMBER - as per specs segment repeat is 1 ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2010CA.REF()}' key='Ref2010CAk' >
<code>
<![CDATA[ set (aux.NM109PTNTID,aux.PATIENTID)=objLoop2000C.Loop2010CA.NM1.NM109PTNTID]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2010CA.REF(Ref2010CAk)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2000C.Loop2010CA.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ // 2010CA PER appears only in 837P, not D or I]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.SEQNBR=1]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2010CA-PER - PROPERTY AND CASUALTY PATIENT CONTACT INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPER' targetObj='objLoop2000C.Loop2010CA.PER' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2010CA.PER}' aux='aux' />
<code>
<![CDATA[ /// END LOOP200A().LOOP2000B().2000C().2010CA -PATIENT NAME]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300() - CLAIM INFORMATION]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300()}' key='k4' >
<code>
<![CDATA[ set aux.LOOPID="2300",aux.SEQNBR=k4 ]]]]><![CDATA[></code>
<code>
<![CDATA[ set objLoop2300=##class(EDIGW.Loop2300).%New() ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.PATIENTINFOKEY = objLoop2000C.PAT.PATIENTINFOKEY]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2300-CLM - CLAIM INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCLM' targetObj='objLoop2300.CLM' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).CLM}' aux='aux' />
<assign value='objLoop2300.CLM.CLAIMKEY' property='aux.CLAIMKEY' action='set' />
<code>
<![CDATA[ /// SEGMENT 2300-DTP - DATE - ONSET OF CURRENT ILLNESS OR SYMPTOM,INITIAL TREATMENT DATE,LAST SEEN DATE,DATE - ACUTE MANIFESTATION,DATE - ACCIDENT,LAST MENSTRUAL PERIOD,LAST X-RAY DATE,HEARING AND VISION PRESCRIPTION DATE, DATE - DISABILITY DATES,DATE - LAST WORKED,DATE - AUTHORIZED RETURN TO WORK,DATE - ADMISSION,DATE - DISCHARGE,ASSUMED AND RELINQUISHED CARE DATES,PROPERTY AND CASUALTY DATE OF FIRST CONTACT,REPRICER RECEIVED DATE ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).DTP()}' key='Dtp2300k' >
<assign value='Dtp2300k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGDTP' targetObj='DTPOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).DTP(Dtp2300k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.DTP.SetAt(DTPOut,DTPOut.CLAIMDTKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// SEGMENT 2300-PWK -CLAIM SUPPLEMENTAL INFORMATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).PWK()}' key='Pwk2300k' >
<assign value='Pwk2300k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGPWK' targetObj='PWKOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).PWK(Pwk2300k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.PWK.SetAt(PWKOut,PWKOut.PWKKEY) ]]]]><![CDATA[></code>
</foreach>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// SEGMENT 2300-CN1 - CONTRACT INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCN1' targetObj='objLoop2300.CN1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).CN1}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2300-AMT - PATIENT AMOUNT PAID ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGAMT' targetObj='objLoop2300.AMT' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).AMT}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2300-REF() -SERVICE AUTHORIZATION EXCEPTION CODE,MANDATORY MEDICARE (SECTION 4081) CROSSOVER INDICATOR,MAMMOGRAPHY CERTIFICATION NUMBER,REFERRAL NUMBER, PRIOR AUTHORIZATION,PAYER CLAIM CONTROL NUMBER,CLINICAL LABORATORY IMPROVEMENT AMENDMENT (CLIA) NUMBER,REPRICED CLAIM NUMBER, ADJUSTED REPRICED CLAIM NUMBER,INVESTIGATIONAL DEVICE EXEMPTION NUMBER,CLAIM IDENTIFIER FOR TRANSMISSION INTERMEDIARIES,MEDICAL RECORD NUMBER, DEMONSTRATION PROJECT IDENTIFIER, CARE PLAN OVERSIGHT ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).REF()}' key='k5' >
<assign value='k5' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).REF(k5)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// SEGMENT 2300-K3() - FILE INFORMATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).K3()}' key='K32300k' >
<assign value='K32300k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGK3' targetObj='K3Out' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).K3(K32300k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.K3.SetAt(K3Out,K3Out.FILEINFOKEY)]]]]><![CDATA[></code>
</foreach>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// SEGMENT 2300-NTE - CLAIM NOTE ]]]]><![CDATA[></code>
<code>
<![CDATA[ set NTEOut=""]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNTE' targetObj='NTEOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).NTE}' aux='aux' />
<code>
<![CDATA[ If $IsObject(NTEOut) set sc=objLoop2300.NTE.SetAt(NTEOut,1)]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2300-CR1 - AMBULANCE TRANSPORT INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCR1' targetObj='objLoop2300.CR1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).CR1}' aux='aux' />
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// SEGMENT 2300-CR2 - SPINAL MANIPULATION SERVICE INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCR2' targetObj='objLoop2300.CR2' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).CR2}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2300-CRC - AMBULANCE CERTIFICATION,PATIENT CONDITION INFORMATION:VISION,HOMEBOUND INDICATOR,EPSDT REFERRAL ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).CRC()}' key='k5' >
<assign value='k5' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGCRC' targetObj='CRCOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).CRC(k5)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.CRC.SetAt(CRCOut,k5)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// SEGMENT 2300-HI - HEALTH CARE DIAGNOSIS CODE,ANESTHESIA RELATED PROCEDURE,CONDITION INFORMATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).HI()}' key='Hi2300k' >
<assign value='Hi2300k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGHI' targetObj='HIOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).HI(Hi2300k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.HI.SetAt(HIOut,Hi2300k)]]]]><![CDATA[></code>
</foreach>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// SEGMENT 2300-HCP - CLAIM PRICING/REPRICING INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGHCP' targetObj='objLoop2300.HCP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).HCP}' aux='aux' />
<code>
<![CDATA[ // 2310A repeats in 837D and 837P]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2310A() - REFERRING PROVIDER]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310A()}' key='k6' >
<code>
<![CDATA[ set aux.LOOPID="2310A",objLoop2310A=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310A-NM1 - REFERRING PROVIDER NAME ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310A.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310A(k6).NM1!1=DN=P3}' aux='aux' />
<code>
<![CDATA[ // PRV SEGMENT DOES NOT COME IN FOR 837 PROFESSIONAL ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310A-REF() - REFERRING PROVIDER SECONDARY IDENTIFICATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310A(k6).REF()}' key='k7' >
<assign value='k7' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310A(k6).REF(k7)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2310A.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc=objLoop2300.Loop2310A.SetAt(objLoop2310A,k6)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2310A() - REFERRING PROVIDER]]]]><![CDATA[></code>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2310B - RENDERING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310B",objLoop2310B=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310B-NM1 - RENDERING PROVIDER NAME ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310B.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310B.NM1!1=82}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2310B-PRV - RENDERING PROVIDER SPECIALTY INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2310B.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310B.PRV}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2310B-REF - RENDERING PROVIDER SECONDARY IDENTIFICATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310B.REF()}' key='k8' >
<assign value='k8' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310B.REF(k8)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2310B.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2300.Loop2310B =objLoop2310B]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2310B - RENDERING PROVIDER]]]]><![CDATA[></code>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2310C - SERVICE FACILITY LOCATION]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310C",objLoop2310C=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310C-NM1 - SERVICE FACILITY LOCATION NAME ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310C.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310C.NM1!1=77}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2310C-N3 - SERVICE FACILITY LOCATION ADDRESS ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310C-N4 - SERVICE FACILITY LOCATION CITY,STATE, ZIP CODE ]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310C.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310C.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2310C.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310C.N4}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2310C-REF - SERVICE FACILITY LOCATION SECONDARY IDENTIFICATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310C.REF()}' key='k9' >
<assign value='k9' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310C.REF(k9)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2310C.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// SEGMENT 2310C-PER - SERVICE FACILITY CONTACT INFORMATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPER' targetObj='objLoop2310C.PER' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310C.PER}' aux='aux' />
<code>
<![CDATA[ set objLoop2300.Loop2310C =objLoop2310C]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2310C - SERVICE FACILITY LOCATION]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2310D - SUPERVISING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310D",objLoop2310D=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310D-NM1 - SUPERVISING PROVIDER NAME ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310D.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310D.NM1!1=DQ}' aux='aux' />
<code>
<![CDATA[ /// PRV SEGMENT DOES NOT APPEAR IN PROFESSIONAL ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310D-REF - SUPERVISING PROVIDER SECONDARY IDENTIFICATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310D.REF()}' key='k10' >
<assign value='k10' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310D.REF(k10)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2310D.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2300.Loop2310D =objLoop2310D]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2310D - SUPERVISING PROVIDER]]]]><![CDATA[></code>
<assign value='k4' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2310E - AMBULANCE PICK-UP]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310E",objLoop2310E=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310E-NM1 - AMBULANCE PICK-UP LOCATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310E.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310E.NM1!1=PW}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2310E-N3 - AMBULANCE PICK-UP LOCATIONADDRESS ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310E-N4 - AMBULANCE PICK-UP LOCATION CITY,STATE, ZIP CODE ]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310E.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310E.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2310E.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310E.N4}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT REF DOES NOT APPEAR FOR PROFESSIONAL ]]]]><![CDATA[></code>
<code>
<![CDATA[ set objLoop2300.Loop2310E =objLoop2310E]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2310E - AMBULANCE PICK-UP]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2310F - AMBULANCE DROP-OFF]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310F",objLoop2310F=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310F-NM1 - AMBULANCE DROP-OFF LOCATION ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310F.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310F.NM1}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2310F-N3 -AMBULANCE DROP-OFF LOCATION ADDRESS]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310F -N4 -AMBULANCE DROP-OFF LOCATION CITY,STATE, ZIP CODE]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310F.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310F.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2310F.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310F.N4}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT REF DOES NOT APPEAR FOR PROFESSIONAL ]]]]><![CDATA[></code>
<code>
<![CDATA[ set objLoop2300.Loop2310F =objLoop2310F]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2310F - AMBULANCE DROP-OFF]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2320() - OTHER SUBSCRIBER]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320()}' key='k5' >
<code>
<![CDATA[ set aux.LOOPID="2320",aux.LOOPSEQNBR=k5,aux.SEQNBR=k5,objLoop2320=##class(EDIGW.Loop2320).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START 2320.SBR SEGMENT]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2320 - SBR-OTHER SUBSCRIBER INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGSBR' targetObj='objLoop2320.SBR' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).SBR}' aux='aux' />
<assign value='objLoop2320.SBR.SUBSCRIBERINFOKEY' property='aux.SUBSCRIBERINFOKEY' action='set' />
<assign value='objLoop2320.SBR.SUBSCRIBERINFOKEY' property='aux.OHISUBSCRIBERKEY' action='set' />
<code>
<![CDATA[ /// SEGMENT 2320-CAS() - CLAIM LEVEL ADJUSTMENTS]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).CAS()}' key='k6' >
<code>
<![CDATA[ set aux.SEQNBR=k6]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCAS' targetObj='CASOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).CAS(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2320.CAS.SetAt(CASOut,k6)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// SEGMENT 2320-AMT() - COORDINATION OF BENEFITS (COB)PAYER PAID AMOUNT,COORDINATION OF BENEFITS (COB)TOTAL NON-COVERED AMOUNT,REMAINING PATIENT LIABILITY]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).AMT()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGAMT' targetObj='AMTOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).AMT(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2320.AMT.SetAt(AMTOut,k6)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// SEGMENT 2320-OI-OTHER INSURANCE COVERAGE INFORMATION]]]]><![CDATA[></code>
<assign value='k5' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGOI' targetObj='objLoop2320.OI' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).OI}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2320-MOA-OUTPATIENT ADJUDICATION INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGMOA' targetObj='objLoop2320.MOA' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).MOA}' aux='aux' />
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330A- OTHER SUBSCRIBER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330A",objLoop2330A=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2330A-NM1 - OTHER SUSCRIBER NAME]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330A.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330A.NM1}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2330A-N3 - OTHER SUSCRIBER ADDRESS]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2330A-N4 - OTHER SUSCRIBER CITY,STATE,ZIP]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330A.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330A.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2330A.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330A.N4}' aux='aux' />
<assign value='1' property='aux.SEQNBR' action='set' />
<assign value='""' property='REFOut' action='set' />
<code>
<![CDATA[ /// SEGMENT 2330A-ref() - OTHER SUSCRIBER SECONDARY IDENTIFICATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330A.REF}' aux='aux' />
<code>
<![CDATA[ if $IsObject(REFOut) set sc=objLoop2330A.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
<code>
<![CDATA[ set objLoop2320.Loop2330A=objLoop2330A]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330A- OTHER SUBSCRIBER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330B- OTHER PAYER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330B",objLoop2330B=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2330B-NM1 - OTHER PAYER NAME]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330B.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330B.NM1}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2330B-N3 - OTHER PAYER ADDRESS]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2330B-N4 - OTHER PAYER CITY,STATE,ZIP]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330B.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330B.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2330B.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330B.N4}' aux='aux' />
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// SEGMENT 2330B-DTP - CLAIM CHECK OR REMITTANCE DATE]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGDTP' targetObj='objLoop2330B.DTP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330B.DTP}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2330B-REF() - OTHER PAYER SECONDARY IDENTIFIER,PRIOR AUTHORIZATION NUMBER,REFERRAL NUMBER,CLAIM ADJUSTMENT INDICATOR,CLAIM CONTROL NUMBER]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330B.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330B.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330B.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330B=objLoop2330B]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330B- OTHER PAYER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330C()- OTHER PAYER REFERRING PROVIDER]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330C()}' key='k6' >
<code>
<![CDATA[ set aux.LOOPID="2330C",objLoop2330C=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2330C-NM1 - OTHER PAYER REFERRING PROVIDER]]]]><![CDATA[></code>
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330C.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330C(k6).NM1!1=DN=P3}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2330C-REF() - OTHER PAYER REFERRING PROVIDER SECONDARY IDENTIFICATION]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330C(k6).REF()}' key='k7' >
<assign value='k7' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330C(k6).REF(k7)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330C.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc=objLoop2320.Loop2330C.SetAt(objLoop2330C,k6)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330C()- OTHER PAYER REFERRING PROVIDER]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330D- OTHER PAYER RENDERING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330D",objLoop2330D=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2330D-NM1 - OTHER PAYER RENDERING PROVIDER]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330D.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330D.NM1!1=82}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2330D-REF() - OTHER PAYER RENDERING PROVIDER SECONDARY IDENTIFICATION]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330D.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330D.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330D.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330D=objLoop2330D]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330D- OTHER PAYER RENDERING PROVIDER]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330E- OTHER PAYER SERVICE FACILITY]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330E",objLoop2330E=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2330E-NM1 - OTHER PAYER SERVICE FACILITY LOCATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330E.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330E.NM1!1=77}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2330E-REF() - OTHER PAYER SERVICE FACILITY LOCATION SECONDARY IDENTIFICATION]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330E.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330E.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330E.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330E=objLoop2330E]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330E- OTHER PAYER SERVICE FACILITY]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330F- OTHER PAYER SUPERVISING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330F",objLoop2330F=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2330F-NM1 - OTHER PAYER SUPERVISING PROVIDER]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330F.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330F.NM1!1=DQ}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2330F-REF() - OTHER PAYER SUPERVISING PROVIDER SECONDARY IDENTIFICATION]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330F.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330F.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330F.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330F=objLoop2330F]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330F- OTHER PAYER SUPERVISING PROVIDER]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330G- OTHER PAYER BILLING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330G",objLoop2330G=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2330G-NM1 - OTHER PAYER BILLING PROVIDER]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330G.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330G.NM1}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2330G-REF() -OTHER PAYER BILLING PROVIDER SECONDARY IDENTIFICATION]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330G.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330G.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330G.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330G=objLoop2330G]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330G- OTHER PAYER BILLING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330H IS NOT PRESENT IN PROFESSIONAL FILE ]]]]><![CDATA[></code>
<code>
<![CDATA[ set sc=objLoop2300.Loop2320.SetAt(objLoop2320,k5)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2320() - OTHER SUBSCRIBER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2400() - SERVICE LINE]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400()}' key='k5' >
<code>
<![CDATA[ set aux.LOOPID="2400",aux.SEQNBR=k5,objLoop2400=##class(EDIGW.Loop2400).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2400-LX1/SV1 - SERVICE LINE NUMBER / PROFESSIONAL SERVICE]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).LX:AssignedNumber}' property='aux.LX01ASGNLNITM' action='set' />
<subtransform class='EDIGW.DTLSEGLXSV1' targetObj='objLoop2400.LXSV1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).SV1}' aux='aux' />
<assign value='objLoop2400.LXSV1.SERVICEKEY' property='aux.PRFSNSERVICEKEY' action='set' />
<code>
<![CDATA[ /// SEGMENT 2400-SV5 - DURABLE MEDICAL EQUIPMENT SERVICE]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGSV5' targetObj='objLoop2400.SV5' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).SV5}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2400-PWK() - LINE SUPPLEMENTAL INFORMATION,DURABLE MEDICAL EQUIPMEN CERTIFICATE OF MEDICAL NECESSITY
INDICATOR]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).PWK()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGPWK' targetObj='PWKOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).PWK(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.PWK.SetAt(PWKOut,PWKOut.PWKKEY) ]]]]><![CDATA[></code>
</foreach>
<assign value='k5' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ /// SEGMENT 2400-CR1 - AMBULANCE TRANSPORT INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCR1' targetObj='objLoop2400.CR1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).CR1}' aux='aux' />
<code>
<![CDATA[ /// SEGMENT 2400-CR3 - DURABLE MEDICAL EQUIPMENT CERTIFICATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCR3' targetObj='objLoop2400.CR3' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).CR3}' aux='aux' />
<code>
<![CDATA[ ///SEGMENT 2400.CRC() AMBULANCE CERTIFICATION,HOSPICE EMPLOYEE INDICATOR,CONDITION INDICATOR/DURABLE MEDICAL EQUIPMENT]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).CRC()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGCRC' targetObj='CRCOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).CRC(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.CRC.SetAt(CRCOut,k6) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///SEGMENT 2400.DTP()SERVICE DATE,PRESCRIPTION DATE,CERTIFICATION REVISION/RECERTIFICATION DATE,BEGIN THERAPY DATE,LAST CERTIFICATION DATE,LAST SEEN DATE,TEST DATE,SHIPPED DATE,LAST X-RAY DATE,INITIAL TREATMENT DATE]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).DTP()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGDTP' targetObj='DTPOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).DTP(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.DTP.SetAt(DTPOut,DTPOut.CLAIMDTKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///SEGMENT 2400.QTY() AMBULANCE PATIENT COUNT,OBSTETRIC ANESTHESIA ADDITIONAL UNITS]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).QTY()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGQTY' targetObj='QTYOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).QTY(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.QTY.SetAt(QTYOut,QTYOut.QUANTITYKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///SEGMENT 2400.MEA() TEST RESULT]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).MEA()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGMEA' targetObj='MEAOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).MEA(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.MEA.SetAt(MEAOut,k6) ]]]]><![CDATA[></code>
</foreach>
<assign value='k5' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ ///SEGMENT 2400.CN1 CONTRACT INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCN1' targetObj='objLoop2400.CN1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).CN1}' aux='aux' />
<code>
<![CDATA[ ///SEGMENT 2400.REF()REPRICED LINE ITEM REFERENCE NUMBER,ADJUSTED REPRICED LINE ITEM REFERENCE NUMBER, PRIOR AUTHORIZATION,LINE ITEM CONTROL NUMBER,MAMMOGRAPHY CERTIFICATION NUMBER, CLINICAL LABORATORY IMPROVEMENT AMENDMENT(CLIA)NUMBER, REFERRING CLINICAL LABORATORY IMPROVEMENT AMENDMENT(CLIA)FACILITY IDENTIFICATION,IMMUNIZATION BATCH NUMBER,REFERRAL NUMBER ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///SEGMENT 2400.AMT()SALES TAX AMOUNT]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).AMT()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGAMT' targetObj='AMTOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).AMT(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.AMT.SetAt(AMTOut,k6) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///SEGMENT LOOP 2400.K3() FILE INFORMATION]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).K3()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGK3' targetObj='K3Out' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).K3(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.K3.SetAt(K3Out,K3Out.FILEINFOKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///SEGMENT LOOP 2400.NTE()LINE NOTE,THIRD PARTY ORGANIZATION NOTES ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).NTE()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGNTE' targetObj='NTEOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).NTE(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.NTE.SetAt(NTEOut,k6) ]]]]><![CDATA[></code>
</foreach>
<assign value='k5' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ ///SEGMENT 2400.PS1 PURCHASED SERVICE INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPS1' targetObj='objLoop2400.PS1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).PS1}' aux='aux' />
<code>
<![CDATA[ ///SEGMENT 2400.HCP LINE PRICING/REPRICING INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGHCP' targetObj='objLoop2400.HCP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).HCP}' aux='aux' />
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2410 - DRUG IDENTIFICATION]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2410",aux.SEQNBR=1,objLoop2410=##class(EDIGW.Loop2410).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ ///SEGMENT 2410.LIN PURCHASED SERVICE INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGLIN' targetObj='objLoop2410.LIN' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2410.LIN}' aux='aux' />
<code>
<![CDATA[ ///SEGMENT 2410.CTP DRUG QUANTITY]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCTP' targetObj='objLoop2410.CTP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2410.CTP}' aux='aux' />
<code>
<![CDATA[ ///START LOOP 2410.REF PRESCRIPTION OR COMPOUND DRUG ASSOCIATION NUMBER]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGREF' targetObj='objLoop2410.REF' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2410.REF}' aux='aux' />
<code>
<![CDATA[ set objLoop2400.Loop2410=objLoop2410]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2410 - DRUG IDENTIFICATION]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2420A - RENDERING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420A",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ ///SEGMENT 2420A.NM1 RENDERING PROVIDER NAME]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420A.NM1!1=82}' aux='aux' />
<code>
<![CDATA[ ///SEGMENT 2420A.PRV RENDERING PROVIDER SPECIALTY INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2420X.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420A.PRV}' aux='aux' />
<code>
<![CDATA[ ///SEGMENT 2420A.REF() RENDERING PROVIDER SECONDARY INFORMATION]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420A.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420A.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2400.Loop2420A=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2420A - RENDERING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2420B - PURCHASED SERVICE PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420B",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ ///SEGMENT 2420B.NM1 PURCHASED SERVICE PROVIDER NAME]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420B.NM1!1=QB}' aux='aux' />
<code>
<![CDATA[ ///SEGMENT 2420B.REF() PURCHASED SERVICE PROVIDER SECONDARY]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420B.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420B.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2400.Loop2420B=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2420B - PURCHASED SERVICE PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2420C - SERVICE FACILITY LOCATION]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420C",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ ///SEGMENT 2420C.NM1 SERVICE FACILITY LOCATION NAME]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420C.NM1!1=77}' aux='aux' />
<code>
<![CDATA[ ///SEGMENT 2420C.N3/N4 ADDRESS/CITY,STATE,ZIP]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420C.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420C.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2420X.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420C.N4}' aux='aux' />
<code>
<![CDATA[ ///SEGMENT 2420C.REF() SECONDARY INFORMATION]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420C.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420C.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2400.Loop2420C=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2420C - SERVICE FACILITY LOCATION]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2420D - SUPERVISING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420D",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420D.NM1!1=DQ}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420D.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420D.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2400.Loop2420D=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2420D - SUPERVISING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2420E - ORDERING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420E",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420E.NM1!1=DK}' aux='aux' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420E.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420E.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2420X.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420E.N4}' aux='aux' />
<subtransform class='EDIGW.DTLSEGPER' targetObj='objLoop2420X.PER' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420E.PER}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420E.REF()}' key='k6' >
<assign value='k6' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420E.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2400.Loop2420E=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2420E - ORDERING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2420F() - REFERRING PROVIDER]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420F()}' key='k6' >
<code>
<![CDATA[ set aux.LOOPID="2420F",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420F(k6).NM1!1=DN=P3}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420F(k6).REF()}' key='k7' >
<assign value='k7' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420F(k6).REF(k7)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc=objLoop2400.Loop2420F.SetAt(objLoop2420X,k6)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2420F() - REFERRING PROVIDER]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2420G - AMBULANCE PICKUP LOCATION]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420G",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420G.NM1!1=PW}' aux='aux' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420G.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420G.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2420X.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420G.N4}' aux='aux' />
<code>
<![CDATA[ set objLoop2400.Loop2420G=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2420G - AMBULANCE PICKUP LOCATION]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2420H - AMBULANCE DROP-OFF LOCATION]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2420H",aux.SEQNBR=1,objLoop2420X=##class(EDIGW.Loop2420X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2420X.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420H.NM1}' aux='aux' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420H.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420H.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2420X.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420H.N4}' aux='aux' />
<code>
<![CDATA[ set objLoop2400.Loop2420H=objLoop2420X]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2420H - AMBULANCE DROP-OFF LOCATION]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2430() - LINE ADJUDICATION INFORMATION]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2430()}' key='k6' >
<code>
<![CDATA[ set aux.LOOPID="2430",aux.SEQNBR=k6,objLoop2430=##class(EDIGW.Loop2430).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ ///SEGMENT 2430.SVD LINE ADJUDICATION INFORMATION]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGSVD' targetObj='objLoop2430.SVD' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2430(k6).SVD}' aux='aux' />
<code>
<![CDATA[ set aux.LOOPSEQNBR=k6]]]]><![CDATA[></code>
<code>
<![CDATA[ ///SEGMENT 2430.CAS LINE ADJUDICATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2430(k6).CAS()}' key='k7' >
<code>
<![CDATA[ set aux.SEQNBR=k7]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCAS' targetObj='CASOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2430(k6).CAS(k7)}' aux='aux' />
<code>
<![CDATA[ set sc = objLoop2430.CAS.SetAt(CASOut,k7)]]]]><![CDATA[></code>
</foreach>
<assign value='k6' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ ///SEGMENT 2430.DTP LINE CHECK OR REMITTANCE DATE ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGDTP' targetObj='objLoop2430.DTP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2430(k6).DTP}' aux='aux' />
<code>
<![CDATA[ ///SEGMENT 2430.AMT REMAINING PATIENT LIABILITY ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGAMT' targetObj='objLoop2430.AMT' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2430(k6).AMT}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.Loop2430.SetAt(objLoop2430,k6)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2430() - LINE ADJUDICATION INFORMATION]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2440() - FORM IDENTIFICATION CODE]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2440()}' key='k6' >
<code>
<![CDATA[ set aux.LOOPID="2440",aux.SEQNBR=k6,objLoop2440=##class(EDIGW.Loop2440).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ ///SEGMENT 2440.LQ FORM IDENTIFICATION CODE]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGLQ' targetObj='objLoop2440.LQ' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2440(k6).LQ}' aux='aux' />
<code>
<![CDATA[ ///SEGMENT 2440.FRM()SUPPORTING DOCUMENTATION]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPSEQNBR=k6]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2440(k6).FRM()}' key='k7' >
<code>
<![CDATA[ set aux.SEQNBR=k7]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGFRM' targetObj='FRMOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2440(k6).FRM(k7)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2440.FRM.SetAt(FRMOut,k7)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc = objLoop2400.Loop2440.SetAt(objLoop2440,k6)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2440() - FORM IDENTIFICATION CODE]]]]><![CDATA[></code>
<code>
<![CDATA[ set sc=objLoop2300.Loop2400.SetAt(objLoop2400,k5)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300().2400() - SERVICE LINE]]]]><![CDATA[></code>
<code>
<![CDATA[ set sc=objLoop2000C.Loop2300.SetAt(objLoop2300,k4)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP LOOP200A().LOOP2000B().2000C().2300() - CLAIM INFORMATION]]]]><![CDATA[></code>
<code>
<![CDATA[ set sc=objLoop2000B.Loop2000C.SetAt(objLoop2000C,k3)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP200A().LOOP2000B().2000C() -PATIENT HIERARCHICAL LEVEL]]]]><![CDATA[></code>
<code>
<![CDATA[ set sc=objLoop2000A.Loop2000B.SetAt(objLoop2000B,k2)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP ID - 2000A().2000B() SUBSCRIBER HIERARCHICAL LEVEL]]]]><![CDATA[></code>
<code>
<![CDATA[ set sc=target.Loop2000A.SetAt(objLoop2000A,k1)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP ID - 2000A BILLING PROVIDER HIERARCHICAL LEVEL]]]]><![CDATA[></code>
</transform>
]]></Data>
</XData>
</Class>
</Export>