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.DTL837I">
<Super>Ens.DataTransformDTL</Super>
<TimeCreated>64957,56924.148336</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:837I' 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='"837I"' 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 does NOT repeat in 837I]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.SEQNBR=1]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2010AA.REF}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2000A.Loop2010AA.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![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,aux.SUBSCRIBERINFOKEY=objLoop2000B.SBR.SUBSCRIBERINFOKEY]]]]><![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>
<subtransform class='EDIGW.DTLSEGCL1' targetObj='objLoop2300.CL1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).CL1}' aux='aux' />
<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>
<code>
<![CDATA[ /// SEGMENT 2300-CN1 - CONTRACT INFORMATION ]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<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>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).NTE()}' key='Nte2300k' >
<assign value='Nte2300k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGNTE' targetObj='NTEOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).NTE(Nte2300k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.NTE.SetAt(NTEOut,NTEOut.CLAIMNOTEKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set CRCOut=""]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGCRC' targetObj='CRCOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).CRC}' aux='aux' />
<code>
<![CDATA[ IF $IsObject(CRCOut) set sc=objLoop2300.CRC.SetAt(CRCOut,1) ]]]]><![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='1' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGHCP' targetObj='objLoop2300.HCP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).HCP}' aux='aux' />
<code>
<![CDATA[ // 2310A repeats in 837D and 837P]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310A",objLoop2310A=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310A.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310A.NM1!1=71}' aux='aux' />
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2310A.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310A.PRV}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310A.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.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,1)]]]]><![CDATA[></code>
<code>
<![CDATA[ // 2310B LOOP TRANSFORMATION ]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ set aux.LOOPID="2310B",objLoop2310B=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310B.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310B.NM1!1=72}' aux='aux' />
<code>
<![CDATA[ /// PRV SEGMENT DOES NOT COME IN FOR 837 INSTITUTIONAL ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310B.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).loop2310B.REF(k6)}' 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 CODE - LOOP 2310B]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2310C TRANSFORMATION ]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ set aux.LOOPID="2310C",objLoop2310C=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310C.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310C.NM1!1=ZZ}' aux='aux' />
<code>
<![CDATA[ /// SEGMENTS N3 AND N4 DO NOT APPEAR ]]]]><![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>
<code>
<![CDATA[ /// SEGMENT PER DOES NOT APPEAR ]]]]><![CDATA[></code>
<code>
<![CDATA[ set objLoop2300.Loop2310C =objLoop2310C]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2310C TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2310D TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310D",aux.SEQNBR=1,objLoop2310D=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310D.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310D.NM1!1=82}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310D.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).loop2310D.REF(k5)}' 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 2310D TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2310E TRANSFORMATION ]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ set aux.LOOPID="2310E",objLoop2310E=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310E.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310E.NM1!1=77}' aux='aux' />
<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' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310E.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).loop2310E.REF(k5)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2310E.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2300.Loop2310E =objLoop2310E]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2310E TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2310F TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310F",aux.SEQNBR=1,objLoop2310F=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310F.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310F.NM1}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310F.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).loop2310F.REF(k5)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2310F.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2300.Loop2310F =objLoop2310F]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2310F TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START 2320 LOOP]]]]><![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>
<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[ set (aux.OHISUBSCRIBERKEY,aux.SUBSCRIBERINFOKEY)=objLoop2320.SBR.SUBSCRIBERINFOKEY]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2320.CAS SEGMENT]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).CAS()}' key='k6' >
<code>
<![CDATA[ set aux.CLAIMKEY=objLoop2300.CLM.CLAIMKEY,aux.LOOPSEQNBR=k5,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[ /// END 2320.CAS SEGMENT CODE]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START 2320.AMT SEGMENT]]]]><![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[ /// START 2320.OI SEGMENT]]]]><![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[ set aux.SUBSCRIBERINFOKEY=objLoop2320.SBR.SUBSCRIBERINFOKEY]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGMIA' targetObj='objLoop2320.MIA' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).MIA}' aux='aux' />
<subtransform class='EDIGW.DTLSEGMOA' targetObj='objLoop2320.MOA' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).MOA}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.Loop2320.SetAt(objLoop2320,k5)]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2320 TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330A TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330A",aux.SEQNBR=1,objLoop2330A=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330A.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330A.NM1}' aux='aux' />
<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' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330A.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).loop2330A.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330A.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330A=objLoop2330A]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2330A TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330B TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330B",aux.SEQNBR=1,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>
<code>
<![CDATA[ set aux.LOOPID="2330C",aux.SEQNBR=1,objLoop2330C=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330C.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330C.NM1!1=71}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330C.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).loop2330C.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330C.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc=objLoop2320.Loop2330C.SetAt(objLoop2330C,1)]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2330C TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330D TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330D",aux.SEQNBR=1,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=72}' 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>
<code>
<![CDATA[ /// START 2330E TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330E",aux.SEQNBR=1,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=ZZ}' 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>
<code>
<![CDATA[ /// START 2330F TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330F",aux.SEQNBR=1,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=77}' 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>
<code>
<![CDATA[ /// START 2330G TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330G",aux.SEQNBR=1,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!1=82}' 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>
<code>
<![CDATA[ /// START 2330H TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330H",aux.SEQNBR=1,objLoop2330H=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330H.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330H.NM1!1=DN}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330H.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).loop2330H.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330H.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330H=objLoop2330H]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2330H TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330I TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330I",aux.SEQNBR=1,objLoop2330I=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330I.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330I.NM1}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2320(k5).loop2330I.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).loop2330I.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330I.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330I=objLoop2330I]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2330I 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>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).LX:AssignedNumber}' property='aux.LX01ASGNLNNBR' action='set' />
<subtransform class='EDIGW.DTLSEGLXSV2' targetObj='objLoop2400.LXSV2' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).SV2}' aux='aux' />
<assign value='objLoop2400.LXSV2.SERVICEKEY' property='aux.INSTSERVICEKEY' action='set' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).PWK()}' key='Pwk2400k' >
<assign value='Pwk2400k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGPWK' targetObj='PWKOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).PWK(Pwk2400k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.PWK.SetAt(PWKOut,PWKOut.PWKKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set DTPOut=""]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGDTP' targetObj='DTPOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).DTP}' aux='aux' />
<code>
<![CDATA[ If $IsObject(DTPOut) set sc=objLoop2400.DTP.SetAt(DTPOut,1) ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).REF()}' key='Ref2400k' >
<assign value='Ref2400k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).REF(Ref2400k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).AMT()}' key='Amt2400k' >
<assign value='Amt2400k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGAMT' targetObj='AMTOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).AMT(Amt2400k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.AMT.SetAt(AMTOut,AMTOut.CLAIMAMOUNTKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set NTEOut=""]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGNTE' targetObj='NTEOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).NTE}' aux='aux' />
<code>
<![CDATA[ if $IsObject(NTEOut) set sc=objLoop2400.NTE.SetAt(NTEOut,1) ]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGHCP' targetObj='objLoop2400.HCP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).HCP}' aux='aux' />
<code>
<![CDATA[ set aux.LOOPID="2410",aux.SEQNBR=1,objLoop2410=##class(EDIGW.Loop2410).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGLIN' targetObj='objLoop2410.LIN' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2410.LIN}' aux='aux' />
<subtransform class='EDIGW.DTLSEGCTP' targetObj='objLoop2410.CTP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2410.CTP}' aux='aux' />
<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[ 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=72}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420A.REF()}' key='Ref2420Ak' >
<assign value='Ref2420Ak' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420A.REF(Ref2420Ak)}' 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[ 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=ZZ}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420B.REF()}' key='Ref2420Bk' >
<assign value='Ref2420Bk' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420B.REF(Ref2420Bk)}' 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[ 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=82}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420C.REF()}' key='Ref2420Ck' >
<assign value='Ref2420Ck' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420C.REF(Ref2420Ck)}' 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[ 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}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420D.REF()}' key='Ref2420Dk' >
<assign value='Ref2420Dk' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420D.REF(Ref2420Dk)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2400.Loop2420D=objLoop2420X]]]]><![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='Cas2430k' >
<assign value='Cas2430k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGCAS' targetObj='CASOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2430(k6).CAS(Cas2430k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2430.CAS.SetAt(CASOut,CASOut.CASESKEY)]]]]><![CDATA[></code>
</foreach>
<assign value='1' 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[ 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>
<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>
<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=objLoop2000C.HL.HRCHLLEVELKEY, aux.SUBSCRIBERINFOKEY=objLoop2000B.SBR.SUBSCRIBERINFOKEY]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGPAT' targetObj='objLoop2000C.PAT' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).PAT}' aux='aux' />
<code>
<![CDATA[ set aux.LOOPID="2010CA",aux.SEQNBR=k3]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2000C.Loop2010CA.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2010CA.NM1}' aux='aux' />
<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,aux.HRCHLLEVELKEY=objLoop2000C.HL.HRCHLLEVELKEY]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGDMG' targetObj='objLoop2000C.Loop2010CA.DMG' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2010CA.DMG}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2010CA.REF()}' key='Ref2010CAk' >
<code>
<![CDATA[ set aux.NM109PTNTID=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>
<subtransform class='EDIGW.DTLSEGPER' targetObj='objLoop2000C.Loop2010CA.PER' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2010CA.PER}' aux='aux' />
<code>
<![CDATA[ /// START OF 2300 LOOP]]]]><![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>
<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' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).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).loop2000C(k3).loop2300(k4).DTP(Dtp2300k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.DTP.SetAt(DTPOut,DTPOut.CLAIMDTKEY) ]]]]><![CDATA[></code>
</foreach>
<subtransform class='EDIGW.DTLSEGCL1' targetObj='objLoop2300.CL1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).CL1}' aux='aux' />
<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='1' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGCN1' targetObj='objLoop2300.CN1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).CN1}' aux='aux' >
<annotation>subtransform</annotation>
</subtransform>
<subtransform class='EDIGW.DTLSEGAMT' targetObj='objLoop2300.AMT' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).AMT}' aux='aux' />
<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>
<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>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).NTE()}' key='Nte2300k' >
<assign value='Nte2300k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGNTE' targetObj='NTEOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).NTE(Nte2300k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.NTE.SetAt(NTEOut,NTEOut.CLAIMNOTEKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set CRCOut=""]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGCRC' targetObj='CRCOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).CRC}' aux='aux' />
<code>
<![CDATA[ IF $IsObject(CRCOut) set sc=objLoop2300.CRC.SetAt(CRCOut,1) ]]]]><![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='1' property='aux.SEQNBR' action='set' />
<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[ set aux.LOOPID="2310A", aux.SEQNBR=1,objLoop2310A=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310A.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310A.NM1!1=71}' aux='aux' />
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2310A.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310A.PRV}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310A.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.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,1)]]]]><![CDATA[></code>
<code>
<![CDATA[ /// 2310B LOOP TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310B",aux.SEQNBR=1,objLoop2310B=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310B.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310B.NM1!1=72}' aux='aux' />
<code>
<![CDATA[ /// PRV SEGMENT DOES NOT COME IN FOR 837 INSTITUTIONAL ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310B.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).loop2310B.REF(k6)}' 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 CODE - ADDED BY JAY 2310B TRANSFORMATION 11-29-2018]]]]><![CDATA[></code>
<code>
<![CDATA[ // 2310C TO BE ADDED BY JAY]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2310C TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310C",aux.SEQNBR=1,objLoop2310C=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310C.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310C.NM1!1=ZZ}' aux='aux' />
<code>
<![CDATA[ /// SEGMENTS N3 AND N4 DO NOT APPEAR ]]]]><![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>
<code>
<![CDATA[ /// SEGMENT PER DOES NOT APPEAR ]]]]><![CDATA[></code>
<code>
<![CDATA[ set objLoop2300.Loop2310C =objLoop2310C]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2310C TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START OF 2310D]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310D",aux.SEQNBR=1,objLoop2310D=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310D.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310D.NM1!1=82}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310D.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).loop2310D.REF(k5)}' 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 OF 2310D]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START OF 2310E]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310E",aux.SEQNBR=1,objLoop2310E=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310E.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310E.NM1!1=77}' aux='aux' />
<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' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310E.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).loop2310E.REF(k5)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2310E.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2300.Loop2310E =objLoop2310E]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END OF 2310E]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START OF 2310F]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310F",aux.SEQNBR=1,objLoop2310F=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2310F.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310F.NM1}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310F.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).loop2310F.REF(k5)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2310F.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2300.Loop2310F =objLoop2310F]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END OF 2310F]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START OF 2320 LOOP]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320()}' key='k5' >
<code>
<![CDATA[ /// START LOOP2320 TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2320",aux.SEQNBR=k5,objLoop2320=##class(EDIGW.Loop2320).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGSBR' targetObj='objLoop2320.SBR' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).SBR}' aux='aux' />
<code>
<![CDATA[ set aux.HRCHLLEVELKEY=objLoop2000C.HL.HRCHLLEVELKEY,aux.SUBSCRIBERINFOKEY=objLoop2320.SBR.SUBSCRIBERINFOKEY]]]]><![CDATA[></code>
<assign value='objLoop2320.SBR.SUBSCRIBERINFOKEY' property='aux.OHISUBSCRIBERKEY' action='set' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).CAS()}' key='Cas2320k' >
<assign value='Cas2320k' property='aux.SEQNBR' action='set' />
<code>
<![CDATA[ set aux.CLAIMKEY=objLoop2300.CLM.CLAIMKEY,aux.LOOPSEQNBR=k5]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGCAS' targetObj='CASOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).CAS(Cas2320k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2320.CAS.SetAt(CASOut,CASOut.CASESKEY) ]]]]><![CDATA[></code>
</foreach>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).AMT()}' key='Amt2320k' >
<assign value='Amt2320k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGAMT' targetObj='AMTOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).AMT(Amt2320k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2320.AMT.SetAt(AMTOut,AMTOut.CLAIMAMOUNTKEY) ]]]]><![CDATA[></code>
</foreach>
<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[ set aux.SUBSCRIBERINFOKEY=objLoop2320.SBR.SUBSCRIBERINFOKEY]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGMIA' targetObj='objLoop2320.MIA' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).MIA}' aux='aux' />
<subtransform class='EDIGW.DTLSEGMOA' targetObj='objLoop2320.MOA' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).MOA}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.Loop2320.SetAt(objLoop2320,k5)]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP2320 TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330A TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330A",aux.SEQNBR=1,objLoop2330A=##class(EDIGW.Loop2330X).%New()]]]]><![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' />
<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' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330A.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).loop2330A.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330A.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330A=objLoop2330A]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2330A TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330B TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330B",aux.SEQNBR=1,objLoop2330B=##class(EDIGW.Loop2330X).%New()]]]]><![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' />
<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' />
<subtransform class='EDIGW.DTLSEGDTP' targetObj='objLoop2330B.DTP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330B.DTP}' aux='aux' />
<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 2330B TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START OF 2330C TRANSFORMATION]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330C",aux.SEQNBR=1,objLoop2330C=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330C.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330C.NM1!1=71}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330C.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).loop2330C.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330C.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc=objLoop2320.Loop2330C.SetAt(objLoop2330C,1)]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END OF 2330C TRANSFORMATION]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330D TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330D",aux.SEQNBR=1,objLoop2330D=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330D.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330D.NM1!1=72}' aux='aux' />
<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 2330D TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330E TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330E",aux.SEQNBR=1,objLoop2330E=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330E.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330E.NM1!1=ZZ}' aux='aux' />
<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 2330E TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330F TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330F",aux.SEQNBR=1,objLoop2330F=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330F.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330F.NM1!1=77}' aux='aux' />
<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 2330F TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330G TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330G",aux.SEQNBR=1,objLoop2330G=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330G.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330G.NM1!1=82}' aux='aux' />
<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 2330G TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330H TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330H",aux.SEQNBR=1,objLoop2330H=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330H.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330H.NM1!1=DN}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330H.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).loop2330H.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330H.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330H=objLoop2330H]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2330H TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330I TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2330I",aux.SEQNBR=1,objLoop2330I=##class(EDIGW.Loop2330X).%New()]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNM1' targetObj='objLoop2330I.NM1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330I.NM1}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330I.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).loop2330I.REF(k6)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2330I.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2320.Loop2330I=objLoop2330I]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2330I 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).loop2000C(k3).loop2300(k4).loop2400()}' key='k5' >
<code>
<![CDATA[ set aux.LOOPID="2400",aux.SEQNBR=k5,objLoop2400=##class(EDIGW.Loop2400).%New()]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).LX:AssignedNumber}' property='aux.LX01ASGNLNNBR' action='set' />
<subtransform class='EDIGW.DTLSEGLXSV2' targetObj='objLoop2400.LXSV2' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).SV2}' aux='aux' />
<assign value='objLoop2400.LXSV2.SERVICEKEY' property='aux.INSTSERVICEKEY' action='set' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).PWK()}' key='Pwk2400k' >
<assign value='Pwk2400k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGPWK' targetObj='PWKOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).PWK(Pwk2400k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.PWK.SetAt(PWKOut,PWKOut.PWKKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set DTPOut="",aux.SEQNBR=1]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGDTP' targetObj='DTPOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).DTP}' aux='aux' />
<code>
<![CDATA[ If $IsObject(DTPOut) set sc=objLoop2400.DTP.SetAt(DTPOut,1) ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).REF()}' key='Ref2400k' >
<assign value='Ref2400k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).REF(Ref2400k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.REF.SetAt(REFOut,REFOut.REFSEGKEY) ]]]]><![CDATA[></code>
</foreach>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).AMT()}' key='Amt2400k' >
<assign value='Amt2400k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGAMT' targetObj='AMTOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).AMT(Amt2400k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.AMT.SetAt(AMTOut,AMTOut.CLAIMAMOUNTKEY) ]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set NTEOut="",aux.SEQNBR=1]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGNTE' targetObj='NTEOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).NTE}' aux='aux' />
<code>
<![CDATA[ if $IsObject(NTEOut) set sc=objLoop2400.NTE.SetAt(NTEOut,1) ]]]]><![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[ set aux.LOOPID="2410",aux.SEQNBR=1,objLoop2410=##class(EDIGW.Loop2410).%New()]]]]><![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' />
<subtransform class='EDIGW.DTLSEGCTP' targetObj='objLoop2410.CTP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2410.CTP}' aux='aux' />
<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[ 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).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420A.NM1!1=72}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420A.REF()}' key='Ref2420Ak' >
<assign value='Ref2420Ak' 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(Ref2420Ak)}' 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[ 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).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420B.NM1!1=ZZ}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420B.REF()}' key='Ref2420Bk' >
<assign value='Ref2420Bk' 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(Ref2420Bk)}' 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[ 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).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420C.NM1!1=82}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420C.REF()}' key='Ref2420Ck' >
<assign value='Ref2420Ck' 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(Ref2420Ck)}' 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[ 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}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420D.REF()}' key='Ref2420Dk' >
<assign value='Ref2420Dk' 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(Ref2420Dk)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2420X.REF.SetAt(REFOut,REFOut.REFSEGKEY)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set objLoop2400.Loop2420D=objLoop2420X]]]]><![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>
<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>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2430(k6).CAS()}' key='Cas2430k' >
<assign value='Cas2430k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGCAS' targetObj='CASOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2430(k6).CAS(Cas2430k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2430.CAS.SetAt(CASOut,CASOut.CASESKEY)]]]]><![CDATA[></code>
</foreach>
<assign value='1' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGDTP' targetObj='objLoop2430.DTP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2430(k6).DTP}' aux='aux' />
<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[ set sc=objLoop2300.Loop2400.SetAt(objLoop2400,k5)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ ///END LOOP 2400]]]]><![CDATA[></code>
<code>
<![CDATA[ set sc=objLoop2000C.Loop2300.SetAt(objLoop2300,k4)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc=objLoop2000B.Loop2000C.SetAt(objLoop2000C,k3)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc=objLoop2000A.Loop2000B.SetAt(objLoop2000B,k2)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ set sc=target.Loop2000A.SetAt(objLoop2000A,k1)]]]]><![CDATA[></code>
</foreach>
</transform>
]]></Data>
</XData>
</Class>
</Export>