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.Router837Combo">
<Description>
</Description>
<Super>Ens.BusinessProcessBPL</Super>
<TimeCreated>65035,76721.062847</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='2200' width='2000' >
<context>
<property name='ST02' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='FILENUMBER' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='TSOUT' type='EDIGW.TXNSETX' instantiate='0' />
<property name='VALOUT' type='CREPOS.TXNSET999' instantiate='0' />
<property name='Document' type='EnsLib.EDI.X12.Document' instantiate='0' />
<property name='RuleStatus' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='2500' />
</parameters>
</property>
<property name='RuleReason' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='valStatus' type='%Library.Status' instantiate='0' />
<property name='TXTYPE' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
</context>
<sequence xend='200' yend='1850' >
<code name='Set Context Props' xpos='200' ypos='250' >
<annotation><![CDATA[Set context properties from document]]]]><![CDATA[></annotation>
<![CDATA[ set context.TSOUT = ""
set context.ST02 = ""
if request.Name = "837" set context.ST02=request.GetValueAt("1:2")
Set context.TXTYPE=request.GetValueAt("1:3")
set context.FILENUMBER=##class(EDIGW.Utility).SourceFN(request.Source)
set context.Document=request
do ##class(EDIGW.Utility).DebugTEST("BPL RouterCombo "_request.Name_":"_context.ST02)
]]]]><![CDATA[>
</code>
<switch name='Document Type' xpos='200' ypos='350' xend='200' yend='1750' >
<case condition='(request.Name="Interchange")' name='ISA' >
<call name='File Process' target='FileProcess' async='1' xpos='335' ypos='500' >
<request type='EDIGW.ReqFN' >
<assign property="callrequest.FILENUMBER" value="context.FILENUMBER" action="set" />
</request>
<response type='Ens.Response' />
</call>
</case>
<case condition='(request.Name=837)' name='ST' >
<switch name='TXNTYPE' xpos='605' ypos='500' xend='605' yend='750' >
<case condition='(context.TXTYPE="005010X223A2")' name='837I' >
<transform name='Validate 837I' class='EDIGW.DTL837IVAL' source='request' target='context.VALOUT' xpos='740' ypos='650' />
</case>
<default name='default' />
</switch>
<code name='Save VALOUT' xpos='605' ypos='850' >
<![CDATA[ If $IsObject(context.VALOUT) {
// Rubberstamp 999
Set context.VALOUT.valStatus=$$$OK
Set sc=context.VALOUT.%Save()

}
]]]]><![CDATA[>
</code>
<if name='Check VAL Status' condition='$$$ISOK(context.VALOUT)' xpos='605' ypos='950' xend='605' yend='1650' >
<true>
<switch name='TXNTYPE' xpos='740' ypos='1100' xend='740' yend='1350' >
<case condition='(context.TXTYPE="005010X223A2")' name='837I' >
<transform name='837I' class='EDIGW.DTL837I' source='request' target='context.TSOUT' xpos='875' ypos='1250' />
</case>
<default name='default' />
</switch>
<code name='Save TSOUT' xpos='740' ypos='1450' >
<![CDATA[ If $IsObject(context.TSOUT) Set sc=context.TSOUT.%Save()]]]]><![CDATA[>
</code>
<call name='Operation SQL' target='OperationSQL' async='1' xpos='740' ypos='1550' >
<request type='EDIGW.ReqSqlTS' >
<assign property="callrequest.IIterator" value="context.TSOUT.IIterator" action="set" />
</request>
<response type='Ens.Response' />
</call>
</true>
</if>
</case>
<default name='GS' />
</switch>
</sequence>
</process>
]]></Data>
</XData>

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