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.DTLBatch">
<Super>Ens.DataTransformDTL</Super>
<TimeCreated>64957,56065.739633</TimeCreated>
<DependsOn>EnsLib.EDI.X12.Document,EDIGW.BatchX</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.BatchX' sourceDocType='HIPAA_5010:Interchange' create='new' language='objectscript' >
<assign value='##class(EDIGW.Utility).SourceFN(source.Source)' property='auxFN' action='set' />
<code>
<![CDATA[
set sRC=source.RawContent
set st=$$$OK
set t="~"
set last=$L(sRC,t)
set ISA=$P(sRC,t,1) if $E(ISA,1,4)'="ISA*" set ISA="",st=0
set IEA=$P(sRC,t,last-1) if $E(IEA,1,4)'="IEA*" set IEA="",st=0
set GS=$P(sRC,t,2) if $E(GS,1,3)'="GS*" set GS="",st=0
set GE=$P(sRC,t,last-2) if $E(GE,1,3)'="GE*" set GE="",st=0
///Create BATCH object
set objBatch = ##class(CREPOS.BATCH999).%New()
set objBatch.FILENUMBER = auxFN
set objBatch.RawISA = ISA
set objBatch.RawIEA = IEA
set objBatch.RawGS = GS
set objBatch.RawGE = GE
set objBatch.valStatus = st
set st=objBatch.%Save()
]]]]><![CDATA[></code>
<assign value='auxFN' property='target.FILENUMBER' action='set' />
<trace value='"DTLBatch started processing "_auxFN' />
<assign value='""' property='target.INTCHGX.MODIFIEDBY' action='set' />
<assign value='""' property='target.INTCHGX.DATECREATED' action='set' />
<assign value='""' property='target.INTCHGX.DATEMODIFIED' action='set' />
<assign value='auxFN' property='target.INTCHGX.FILENUMBER' action='set' />
<assign value='source.{IEA:NumberofIncludedFunctionalGr}' property='target.INTCHGX.IEA01NBRINCLGRP' action='set' />
<assign value='source.{IEA:InterchangeControlNumber}' property='target.INTCHGX.IEA02INTCHGNBR' action='set' />
<assign value='source.{ISA:InterchangeIDQualifier}' property='target.INTCHGX.ISA05SNDIDQUAL' action='set' />
<assign value='source.{ISA:SecurityInformation}' property='target.INTCHGX.ISA04SCRINFO' action='set' />
<assign value='source.{ISA:SecurityInformationQualifier}' property='target.INTCHGX.ISA03SCRINFOQUAL' action='set' />
<assign value='source.{ISA:AuthorizationInformationQual}' property='target.INTCHGX.ISA01AUTHQUAL' action='set' />
<assign value='source.{ISA:AuthorizationInformation}' property='target.INTCHGX.ISA02AUTHINFO' action='set' />
<assign value='source.{ISA:ComponentElementSeparator}' property='target.INTCHGX.ISA16CPNTELESEP' action='set' />
<assign value='source.{ISA:UsageIndicator}' property='target.INTCHGX.ISA15USEIND' action='set' />
<assign value='source.{ISA:AcknowledgmentRequested}' property='target.INTCHGX.ISA14ACKRQST' action='set' />
<assign value='source.{ISA:InterchangeControlVersionNum}' property='target.INTCHGX.ISA12INTCHGVER' action='set' />
<assign value='source.{ISA:InterchangeControlStandardsI}' property='target.INTCHGX.ISA11INTCHGSTD' action='set' />
<assign value='source.{ISA:InterchangeTime}' property='target.INTCHGX.ISA10INTCHGTM' action='set' />
<assign value='source.{ISA:InterchangeDate}' property='target.INTCHGX.ISA09INTCHGDT' action='set' />
<assign value='source.{ISA:InterchangeReceiverID}' property='target.INTCHGX.ISA08RCVID' action='set' />
<assign value='source.{ISA:InterchangeIDQualifier2}' property='target.INTCHGX.ISA07RCVIDQUAL' action='set' />
<assign value='source.{ISA:InterchangeSenderID}' property='target.INTCHGX.ISA06SNDID' action='set' />
<assign value='source.{ISA:InterchangeControlNumber}' property='target.INTCHGX.ISA13INTCHGNBR' action='set' />
<foreach property='source.{GroupDocsRef}' key='Group' >
<subtransform class='EDIGW.DTLGroup' targetObj='target.FUNCGROUPX' sourceObj='Group' >
<annotation>Transform the Group</annotation>
</subtransform>
<assign value='target.FUNCGROUPX.TXTYPE' property='auxTXTYP' action='set' />
<foreach property='Group.{TransactionSetDocsRef}' key='TSIn' >
<annotation>Loop over Transaction Sets in the Group</annotation>
<code>
<![CDATA[
]]]]><![CDATA[></code>
<assign value='""' property='TSOut' action='set' />
<code>
<![CDATA[ set aux=##class(EDIGW.Auxiliary).%New(),aux.FILENUMBER=auxFN,aux.TXTYPE=auxTXTYP]]]]><![CDATA[></code>
<if condition='auxTXTYP="837P"' >
<true>
<subtransform class='EDIGW.DTL837P' targetObj='TSOut' sourceObj='TSIn' aux='aux' />
</true>
</if>
<if condition='auxTXTYP="837I"' >
<true>
<code>
<![CDATA[ ///Creating TXNSET Object
S aux.BATCH = objBatch]]]]><![CDATA[></code>
<subtransform class='EDIGW.DTL837IVAL' targetObj='TSOut' sourceObj='TSIn' aux='aux' />
<code>
<![CDATA[ ///Saving TXNSET
Set st = TSOut.%Save()]]]]><![CDATA[></code>
<if condition='TSOut.valStatus = 1' >
<true>
<subtransform class='EDIGW.DTL837I' targetObj='TSOut' sourceObj='TSIn' aux='aux' />
</true>
</if>
</true>
</if>
<if condition='auxTXTYP="837D"' >
<true>
<subtransform class='EDIGW.DTL837D' targetObj='TSOut' sourceObj='TSIn' aux='aux' />
</true>
</if>
<code>
<![CDATA[
set status=tSC1 ;; tSC1 is the returned status from subtransform
if tSC1 set status=TSOut.%Save()
if 'tSC1 set ^TEST($I(^TEST))="tSC1:"_tSC1
if $$$ISERR(status) set status=##class(EDIGW.ErrorDTL).logErr(aux,status,TSIn.RawContent)
]]]]><![CDATA[></code>
</foreach>
</foreach>
<assign value='"837"' property='target.INTCHGX.TXTYPE' action='set' />
<trace value='"DTLBatch completed processing "_auxFN' />
</transform>
]]></Data>
</XData>
</Class>
</Export>