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.Router837">
<Description>
</Description>
<ClassType>persistent</ClassType>
<ProcedureBlock>1</ProcedureBlock>
<Super>Ens.BusinessProcessBPL</Super>
<TimeCreated>65022,39782.075644</TimeCreated>

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

<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='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>
</context>
<sequence xend='200' yend='700' >
<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.FILENUMBER=##class(EDIGW.Utility).SourceFN(request.Source)
set context.Document=request
do ##class(EDIGW.Utility).DebugBPL("BPL Router "_request.Name_":"_context.ST02)]]]]><![CDATA[>
</code>
<switch name='Document Type' xpos='200' ypos='350' xend='200' yend='600' >
<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' >
<call name='ST Router' target='ST Router' async='1' xpos='605' ypos='500' >
<request type='EnsLib.EDI.X12.Document' >
<assign property="callrequest" value="request" action="set" />
</request>
</call>
</case>
<default name='GS' />
</switch>
</sequence>
</process>
]]></Data>
</XData>
</Class>
</Export>