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.DTL837D">
<Super>Ens.DataTransformDTL</Super>
<TimeCreated>64957,56906.764732</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:837D' 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='"837D"' property='aux.TXTYPE' action='set' />
<assign value='source.{ST:ImplementationConventionRefe}' property='aux.CLAIMTYPE' 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>
<code>
<![CDATA[ set aux.LOOPID="1000B"]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<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.LOOPID="2010AA",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>
<assign value='1' property='aux.SEQNBR' action='set' />
<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='1' property='aux.SEQNBR' action='set' />
<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>
<assign value='1' property='aux.SEQNBR' action='set' />
<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='1' property='aux.SEQNBR' action='set' />
<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>
<assign value='1' property='aux.SEQNBR' action='set' />
<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>
<assign value='1' property='aux.SEQNBR' action='set' />
<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='1' property='aux.SEQNBR' action='set' />
<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=Ref2010BBk,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>
<assign value='1' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGDN1' targetObj='objLoop2300.DN1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).DN1}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).DN2()}' key='Dn22300k' >
<assign value='Dn22300k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGDN2' targetObj='DN2Out' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).DN2(Dn22300k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.DN2.SetAt(DN2Out,Dn22300k) ]]]]><![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>
<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>
<assign value='1' property='aux.SEQNBR' action='set' />
<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>
<code>
<![CDATA[ /// SEGMENT 2300-NTE - CLAIM NOTE ]]]]><![CDATA[></code>
<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[ /// SEGMENT 2300-HI - HEALTH CARE DIAGNOSIS CODE,ANESTHESIA RELATED PROCEDURE,CONDITION INFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ set HIOut=""]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGHI' targetObj='HIOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).HI}' aux='aux' />
<code>
<![CDATA[ if $IsObject(HIOut) set sc=objLoop2300.HI.SetAt(HIOut,1)]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2300-HCP - CLAIM PRICING/REPRICING INFORMATION ]]]]><![CDATA[></code>
<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[ /// 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",aux.SEQNBR=k6,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' />
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2310A.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310A(k6).PRV}' aux='aux' />
<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>
<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",aux.SEQNBR=1,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>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2300().2310C - SERVICE FACILITY LOCATION]]]]><![CDATA[></code>
<code>
<![CDATA[ set aux.LOOPID="2310C",aux.SEQNBR=1,objLoop2310C=##class(EDIGW.Loop2310X).%New()]]]]><![CDATA[></code>
<code>
<![CDATA[ /// SEGMENT 2310C-NM1 - SERVICE FACILITY LOCATION NAME ]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<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='1' property='aux.SEQNBR' action='set' />
<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>
<code>
<![CDATA[ /// SEGMENT PER DOES NOT APPEAR ]]]]><![CDATA[></code>
<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[ /// 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=DD}' aux='aux' />
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2310D.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310D.PRV}' aux='aux' />
<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>
<code>
<![CDATA[ /// START LOOP LOOP200A().LOOP2000B().2000C().2300().2310E - AMBULANCE PICK-UP]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END 2310D TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2310E TRANSFORMATION ]]]]><![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).loop2300(k4).loop2310E.NM1}' aux='aux' />
<code>
<![CDATA[ /// SEGMENTS N3/N4 DO NOT APPEAR IN DENTAL ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310E.REF()}' key='k11' >
<assign value='k11' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2310E.REF(k11)}' 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 OF 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>
<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' />
<code>
<![CDATA[ set (aux.OHISUBSCRIBERKEY,aux.SUBSCRIBERINFOKEY)=objLoop2320.SBR.SUBSCRIBERINFOKEY]]]]><![CDATA[></code>
<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.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[ /// 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[ /// START 2320.OI SEGMENT]]]]><![CDATA[></code>
<assign value='1' 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>
<code>
<![CDATA[ ///START 2320.MOA SEGMENT]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<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 LOOP 2320 ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2330A TRANSFORMATION ]]]]><![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>
<assign value='1' property='aux.SEQNBR' action='set' />
<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='1' property='aux.SEQNBR' action='set' />
<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 LOOP LOOP200A().LOOP2000B().2000C().2300().2320().2330A- OTHER SUBSCRIBER]]]]><![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>
<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>
<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' />
<assign value='k6' property='aux.SEQNBR' action='set' />
<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>
<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=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>
<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=DQ}' 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=85}' 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=77}' 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}' 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[ set sc=objLoop2300.Loop2320.SetAt(objLoop2320,k5)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// START 2400Loop ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400()}' key='k5' >
<code>
<![CDATA[ set aux.LOOPID="2400",aux.SEQNBR=k5]]]]><![CDATA[></code>
<code>
<![CDATA[ set objLoop2400=##class(EDIGW.Loop2400).%New() ]]]]><![CDATA[></code>
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).LX:AssignedNumber}' property='aux.LX01ASGNLNITM' action='set' />
<subtransform class='EDIGW.DTLSEGLXSV3' targetObj='objLoop2400.LXSV3' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).SV3}' aux='aux' />
<assign value='objLoop2400.LXSV3.SERVICEKEY' property='aux.DENTALSERVICEKEY' action='set' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).TOO()}' key='Too2400k' >
<code>
<![CDATA[ set aux.SEQNBR=Too2400k]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGTOO' targetObj='TOOOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).TOO(Too2400k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.TOO.SetAt(TOOOut,Too2400k) ]]]]><![CDATA[></code>
</foreach>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).DTP()}' key='Dtp2400k' >
<annotation>DTP Loop</annotation>
<code>
<![CDATA[ set aux.SEQNBR= Dtp2400k]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGDTP' targetObj='DTPOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).DTP(Dtp2400k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.DTP.SetAt(DTPOut,DTPOut.CLAIMDTKEY) ]]]]><![CDATA[></code>
</foreach>
<assign value='1' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGCN1' targetObj='objLoop2400.CN1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).CN1}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).REF()}' key='Ref2400k' >
<code>
<![CDATA[ set aux.SEQNBR=Ref2400k]]]]><![CDATA[></code>
<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>
<code>
<![CDATA[ set AMTOut="",aux.SEQNBR=1]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGAMT' targetObj='AMTOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).AMT}' aux='aux' />
<code>
<![CDATA[ If $IsObject(AMTOut) set sc=objLoop2400.AMT.SetAt(AMTOut,1)]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).K3()}' key='K32400k' >
<assign value='K32400k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGK3' targetObj='K3Out' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).K3(K32400k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.K3.SetAt(K3Out,K3Out.FILEINFOKEY)]]]]><![CDATA[></code>
</foreach>
<assign value='1' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGHCP' targetObj='objLoop2400.HCP' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).HCP}' aux='aux' />
<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='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[ ///END OF LOOP 2420A]]]]><![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=DD}' aux='aux' />
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2420X.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420B.PRV}' 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[ ///END OF LOOP 2420B]]]]><![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=DQ}' 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).loop2420B.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[ ///END OF LOOP 2420C]]]]><![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}' aux='aux' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420D.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420D.N3:AddressInformation2}' property='aux.N302ADRLN2' action='set' />
<subtransform class='EDIGW.DTLSEGN34' targetObj='objLoop2420X.N34' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2420D.N4}' 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>
<code>
<![CDATA[ ///END OF LOOP 2420D]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START OF 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' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2300(k4).loop2400(k5).loop2430(k6).CAS()}' key='Cas2430k' >
<code>
<![CDATA[ set aux.LOOPSEQNBR=k6]]]]><![CDATA[></code>
<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,Cas2430k)]]]]><![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[ ///END OF LOOP 2430]]]]><![CDATA[></code>
<code>
<![CDATA[ set sc=objLoop2300.Loop2400.SetAt(objLoop2400,k5)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END 2400Loop ]]]]><![CDATA[></code>
<code>
<![CDATA[ set sc=objLoop2000B.Loop2300.SetAt(objLoop2300,k4)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END LOOP 2000B().2300()]]]]><![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>
<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>
<assign value='Ref2010CAk' property='aux.SEQNBR' action='set' />
<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' >
<annotation>subtransform</annotation>
</subtransform>
<assign value='objLoop2300.CLM.CLAIMKEY' property='aux.CLAIMKEY' action='set' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).DTP()}' key='Dtp2300k' >
<annotation>DTP Loop</annotation>
<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>
<assign value='1' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGDN1' targetObj='objLoop2300.DN1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).DN1}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).DN2()}' key='Dn22300k' >
<assign value='Dn22300k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGDN2' targetObj='DN2Out' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).DN2(Dn22300k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2300.DN2.SetAt(DN2Out,Dn22300k) ]]]]><![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>
<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).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' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).REF()}' key='Ref2300k' >
<code>
<![CDATA[ set aux.SEQNBR=Ref2300k]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).REF(Ref2300k)}' 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 HIOut=""]]]]><![CDATA[></code>
<assign value='1' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGHI' targetObj='HIOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).HI}' aux='aux' />
<code>
<![CDATA[ if $IsObject(HIOut) set sc=objLoop2300.HI.SetAt(HIOut,1)]]]]><![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>
<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>
<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' />
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2310A.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310A(k6).PRV}' aux='aux' />
<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[ /// 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=82}' aux='aux' />
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2310B.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310B.PRV}' aux='aux' />
<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 CODE 2310B TRANSFORMATION ]]]]><![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=77}' aux='aux' />
<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' />
<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 COME IN ]]]]><![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).loop2000C(k3).loop2300(k4).loop2310D.NM1!1=DD}' aux='aux' />
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2310D.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310D.PRV}' aux='aux' />
<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 2310D TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// START 2310E TRANSFORMATION ]]]]><![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}' aux='aux' />
<code>
<![CDATA[ /// SEGMENTS N3/N4 DO NOT APPEAR IN DENTAL ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310E.REF()}' key='k11' >
<assign value='k11' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGREF' targetObj='REFOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2310E.REF(k11)}' 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 OF 2320 LOOP]]]]><![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>
<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[ /// START 2320.CAS SEGMENT]]]]><![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[ /// END 2320.CAS SEGMENT CODE]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START 2320.AMT SEGMENT]]]]><![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[ /// 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).loop2000C(k3).loop2300(k4).loop2320(k5).OI}' aux='aux' />
<code>
<![CDATA[ ///START 2320.MOA SEGMENT]]]]><![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[ /// END 2320.MOA TRANSFORMATION ]]]]><![CDATA[></code>
<code>
<![CDATA[ /// END LOOP 2320 ]]]]><![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 2330C TRANSFORMATION ]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2320(k5).loop2330C()}' key='k6' >
<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(k6).NM1!1=DN=P3}' aux='aux' />
<assign value='k6' property='aux.SEQNBR' action='set' />
<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 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=82}' 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=DQ}' 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=85}' 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=77}' 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}' 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[ set sc=objLoop2300.Loop2320.SetAt(objLoop2320,k5)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// START 2400Loop ]]]]><![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]]]]><![CDATA[></code>
<code>
<![CDATA[ set objLoop2400=##class(EDIGW.Loop2400).%New() ]]]]><![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.DTLSEGLXSV3' targetObj='objLoop2400.LXSV3' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).SV3}' aux='aux' />
<assign value='objLoop2400.LXSV3.SERVICEKEY' property='aux.DENTALSERVICEKEY' action='set' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).TOO()}' key='Too2400k' >
<code>
<![CDATA[ set aux.SEQNBR=Too2400k]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGTOO' targetObj='TOOOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).TOO(Too2400k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.TOO.SetAt(TOOOut,Too2400k) ]]]]><![CDATA[></code>
</foreach>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).DTP()}' key='Dtp2400k' >
<annotation>DTP Loop</annotation>
<code>
<![CDATA[ set aux.SEQNBR= Dtp2400k]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGDTP' targetObj='DTPOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).DTP(Dtp2400k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.DTP.SetAt(DTPOut,DTPOut.CLAIMDTKEY) ]]]]><![CDATA[></code>
</foreach>
<subtransform class='EDIGW.DTLSEGCN1' targetObj='objLoop2400.CN1' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).CN1}' aux='aux' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).REF()}' key='Ref2400k' >
<code>
<![CDATA[ set aux.SEQNBR=Ref2400k]]]]><![CDATA[></code>
<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>
<code>
<![CDATA[ set AMTOut="",aux.SEQNBR=1]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTLSEGAMT' targetObj='AMTOut' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).AMT}' aux='aux' />
<code>
<![CDATA[ If $IsObject(AMTOut) set sc=objLoop2400.AMT.SetAt(AMTOut,1)]]]]><![CDATA[></code>
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).K3()}' key='K32400k' >
<assign value='K32400k' property='aux.SEQNBR' action='set' />
<subtransform class='EDIGW.DTLSEGK3' targetObj='K3Out' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).K3(K32400k)}' aux='aux' />
<code>
<![CDATA[ set sc=objLoop2400.K3.SetAt(K3Out,K3Out.FILEINFOKEY)]]]]><![CDATA[></code>
</foreach>
<assign value='1' property='aux.SEQNBR' action='set' />
<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 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).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420A.NM1!1=82}' aux='aux' />
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2420X.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420A.PRV}' 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[ ///END OF LOOP 2420A]]]]><![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).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420B.NM1!1=DD}' aux='aux' />
<subtransform class='EDIGW.DTLSEGPRV' targetObj='objLoop2420X.PRV' sourceObj='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420B.PRV}' 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[ ///END OF LOOP 2420B]]]]><![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).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420C.NM1!1=DQ}' 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).loop2420B.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[ ///END OF LOOP 2420C]]]]><![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).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420D.NM1}' aux='aux' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420D.N3:AddressInformation}' property='aux.N301ADRLN1' action='set' />
<assign value='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2420D.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).loop2420D.N4}' 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>
<code>
<![CDATA[ ///END OF LOOP 2420D]]]]><![CDATA[></code>
<code>
<![CDATA[ ///START OF LOOP 2430]]]]><![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' />
<foreach property='source.{loop2000A(k1).loop2000B(k2).loop2000C(k3).loop2300(k4).loop2400(k5).loop2430(k6).CAS()}' key='Cas2430k' >
<code>
<![CDATA[ set aux.LOOPSEQNBR=k6]]]]><![CDATA[></code>
<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,Cas2430k)]]]]><![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[ ///END OF LOOP 2430]]]]><![CDATA[></code>
<code>
<![CDATA[ set sc=objLoop2300.Loop2400.SetAt(objLoop2400,k5)]]]]><![CDATA[></code>
</foreach>
<code>
<![CDATA[ /// END 2400Loop ]]]]><![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>