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.ST837VAL">
<Description>
</Description>
<Super>Ens.BusinessProcessBPL</Super>
<TimeCreated>65030,39281.636147</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' response='EDIGW.RespStatus' height='2000' width='2000' >
<context>
<property name='TXTYPE' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='VALOUT' type='CREPOS.TXNSET999' instantiate='0' />
<property name='ST02' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
</context>
<sequence xend='200' yend='800' >
<code name='Initialize VALOUT' xpos='200' ypos='250' >
<![CDATA[ Set strFN=##class(EDIGW.Utility).SourceFN(request.Source)
Set batchId=##class(EDIGW.Utility).getBatchId(strFN)
Set context.ST02=request.GetValueAt("1:2")
Set context.TXTYPE=request.GetValueAt("1:3")
Do ##class(EDIGW.Utility).DebugBPL("BPL VAL "_request.Name_":"_context.ST02)
//Set response=##class(EDIGW.RespStatus).%New()
Set context.VALOUT=##class(CREPOS.TXNSET999).%New()
Set context.VALOUT.BATCH=##class(CREPOS.BATCH999).%OpenId(batchId)
Set context.VALOUT.ST02TXNCTLNBR=request.GetValueAt("1:2")
Set context.VALOUT.RawData=request.RawContent
Set context.VALOUT.valStatus=1
Set context.VALOUT.valDone=0
Set tSC=context.VALOUT.%Save()]]]]><![CDATA[>
</code>
<switch name='Transaction Type' xpos='200' ypos='350' xend='200' yend='600' >
<case condition='(context.TXTYPE="005010X223A2")' name='837I' >
<code name='TR3Rules' xpos='200' ypos='500' >
<![CDATA[ ///Invoking All TR3 Rules
Set tsStatus = ##class(EDIGW.Rules.TR3Rules).AllRules(request,context.VALOUT)]]]]><![CDATA[>
</code>
</case>
<case condition='(context.TXTYPE="005010X224A2")' name='837D' >
<code name='Not implemented yet' xpos='470' ypos='500' >
<![CDATA[ ///Invoking All TR3 Rules
//no validation implemented yet]]]]><![CDATA[>
</code>
</case>
<case condition='(context.TXTYPE="005010X222A1")' name='837P' >
<code name='Not implemented yet' xpos='740' ypos='500' >
<![CDATA[ ///Invoking All TR3 Rules
//no validation implemented yet]]]]><![CDATA[>
</code>
</case>
<default name='default' >
<code name='Bad ST handling' xpos='1010' ypos='500' >
<![CDATA[ ///Bad ST handling
Set tsStatus = ##class(EDIGW.Rules.TR3Rules).BadST(request,context.VALOUT)
Do ##class(EDIGW.Utility).DebugBPL("BPL Rule Status: "_tsStatus)
Set context.VALOUT.valStatus=tsStatus
//Set tSC=context.VALOUT.%Save()]]]]><![CDATA[>
</code>
</default>
</switch>
<code name='Build Response' xpos='200' ypos='700' >
<![CDATA[ Do ##class(EDIGW.Utility).DebugBPL("BPL SAVE VALOUT: "_context.ST02_" "_context.VALOUT)
If $IsObject(context.VALOUT) {
set response.respStatus=context.VALOUT.valStatus
set context.VALOUT.valDone=1
set tSC = context.VALOUT.%Save()
set context.VALOUT="" // Discard VALOUT - TXNSETERR999 may contain error and cause %Save to fail
}]]]]><![CDATA[>
</code>
</sequence>
</process>
]]></Data>
</XData>
</Class>
</Export>