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.BPL.ST837GOOD">
<Description>
</Description>
<Super>Ens.BusinessProcessBPL</Super>
<TimeCreated>65030,47336.36792</TimeCreated>

<XData name="BPL">
<Description>
BPL Definition</Description>
<XMLNamespace>http://www.intersystems.com/bpl</XMLNamespace>
<Data><![CDATA[
<process language='objectscript' request='EnsLib.EDI.X12.Document' height='2000' width='2000' >
<context>
<property name='TSOUT' type='EDIGW.TXNSETX' instantiate='0' />
<property name='TXTYPE' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='ST02' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='saveStatus' type='%Library.Status' instantiate='0' />
<property name='FILENUMBER' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
</context>
<sequence xend='200' yend='1150' >
<code name='Initialize' xpos='200' ypos='250' >
<![CDATA[ Set context.saveStatus=""
Set context.TSOUT=""
Set context.FILENUMBER=##class(EDIGW.Utility).SourceFN(request.Source)
Set context.TXTYPE=request.GetValueAt("1:3")
Set context.ST02=request.GetValueAt("1:2")
Do ##class(EDIGW.Utility).DebugBPL("BPL Good "_request.Name_":"_context.ST02)]]]]><![CDATA[>
</code>
<switch name='Transaction Type' xpos='200' ypos='350' xend='200' yend='600' >
<case condition='(context.TXTYPE="005010X223A2")' name='837I' >
<transform name='837I' class='EDIGW.DTL837I' source='request' target='context.TSOUT' xpos='335' ypos='500' />
</case>
<case condition='(context.TXTYPE="005010X222A1")' name='837P' >
<transform name='837P' class='EDIGW.DTL837P' source='request' target='context.TSOUT' xpos='605' ypos='500' />
</case>
<case condition='(context.TXTYPE="005010X224A2")' name='837D' >
<transform name='837D' class='EDIGW.DTL837D' source='request' target='context.TSOUT' xpos='875' ypos='500' />
</case>
<default name='default' />
</switch>
<code name='Save TSOUT' xpos='200' ypos='700' >
<![CDATA[ Do ##class(EDIGW.Utility).DebugBPL("BPL TSOUT before %Save() "_request.Name_":"_context.ST02_" saveStatus "_context.saveStatus)
If $IsObject(context.TSOUT) {
Set context.saveStatus=context.TSOUT.%Save()
If $$$ISERR(context.saveStatus) $$$LOGERROR($system.Status.GetOneErrorText(context.saveStatus))
}
Do ##class(EDIGW.Utility).DebugBPL("BPL TSOUT "_request.Name_":"_context.ST02_" saveStatus "_context.saveStatus)]]]]><![CDATA[>
</code>
<if name='Save $$$OK' condition='context.saveStatus' xpos='200' ypos='800' xend='200' yend='1050' >
<true>
<call name='Operation SQL' target='OperationSQL' async='1' xpos='470' ypos='950' >
<request type='EDIGW.ReqSqlTS' >
<assign property="callrequest.IIterator" value="context.TSOUT.IIterator" action="set" />
</request>
<response type='Ens.Response' />
</call>
</true>
<false>
<code name='Record Error' xpos='200' ypos='950' >
<![CDATA[ Do ##class(EDIGW.Utility).DebugBPL("BPL Good - Save Error "_context.saveStatus)
Do ##class(EDIGW.Utility).DebugBPL("BPL Good - Raw Content "_request.RawContent)
Do ##class(EDIGW.Utility).DebugBPL("BPL Good - SQL IIterator "_context.TSOUT.IIterator)
Set aux=##class(EDIGW.Auxiliary).%New()
Set aux.FILENUMBER=context.FILENUMBER
Set aux.ST02TXNCTLNBR=context.ST02
Set aux.TXTYPE=context.TXTYPE
Set sc=##class(EDIGW.ErrorDTL).logErr(aux,context.saveStatus,request.RawContent,request,context.TSOUT.IIterator)]]]]><![CDATA[>
</code>
</false>
</if>
</sequence>
</process>
]]></Data>
</XData>

<Storage name="Default">
<Type>%Library.CacheStorage</Type>
</Storage>
</Class>
</Export>