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.ST837">
<Description>
</Description>
<Super>Ens.BusinessProcessBPL</Super>
<TimeCreated>65030,37458.311294</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='valStatus' type='%Library.Status' instantiate='0' />
<property name='ST02' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
</context>
<sequence xend='200' yend='1100' >
<code name='Set Context Props' xpos='200' ypos='250' >
<![CDATA[ set context.ST02 = ""
if request.Name = "837" set context.ST02=request.GetValueAt("1:2")
do ##class(EDIGW.Utility).DebugBPL("BPL ST "_request.Name_":"_context.ST02)
]]]]><![CDATA[>
</code>
<call name='Validation' target='ST 837 Validation' async='1' xpos='200' ypos='350' >
<request type='EnsLib.EDI.X12.Document' >
<assign property="callrequest" value="request" action="set" />
</request>
<response type='EDIGW.RespStatus' >
<assign property="context.valStatus" value="callresponse.respStatus" action="set" />
</response>
</call>
<sync name='Wait for VAL' calls='Validation' timeout='1' type='all' xpos='200' ypos='450' />
<code name='capture callresponse' xpos='200' ypos='550' >
<![CDATA[ do ##class(EDIGW.Utility).DebugBPL("BPL ST837 callresp: "_context.ST02_" "_context.valStatus)]]]]><![CDATA[>
</code>
<if name='Check VAL Status' condition='context.valStatus' xpos='200' ypos='650' xend='200' yend='900' >
<true>
<call name='Good Transaction Handling' target='837 Good ST' async='1' xpos='335' ypos='800' >
<request type='EnsLib.EDI.X12.Document' >
<assign property="callrequest" value="request" action="set" />
</request>
<response type='Ens.Response' />
</call>
</true>
</if>
<code xpos='200' ypos='1000' >
<![CDATA[ Do ##class(EDIGW.Utility).DebugBPL("BPL ST at end valStatus is "_context.valStatus)]]]]><![CDATA[>
</code>
</sequence>
</process>
]]></Data>
</XData>

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