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.Context">
<Description>
This class is generated by the EDIGW.BPL.ST837 BPL class.
This class should not be edited or modified in any way.
Do not make direct use of this class in your application.</Description>
<ClassType>persistent</ClassType>
<CompileAfter>EDIGW.BPL.ST837</CompileAfter>
<IncludeCode/>
<ProcedureBlock>1</ProcedureBlock>
<Super>Ens.BP.Context</Super>
<TimeCreated>65030,38779.155923</TimeCreated>
<GeneratedBy>Ens.BPL.Compiler.CLS</GeneratedBy>
<Storage name="Default">
<Type>%Library.CacheStorage</Type>
<DefaultData>ContextDefaultData1</DefaultData>
<Data name="ContextDefaultData1">
<Structure>listnode</Structure>
<Subscript>"Context"</Subscript>
<Value name="1">
<Value>valStatus</Value>
</Value>
<Value name="2">
<Value>ST02</Value>
</Value>
</Data>
</Storage>
<Property name="ST02">
<Type>%String</Type>
<Parameter name="MAXLEN" value="50"/>
</Property>
<Property name="valStatus">
<Type>%Library.Status</Type>
</Property>
<Method name="OnResponse1">
<Description>
Response Handler for call to ST 837 Validation</Description>
<FormalSpec>process:Ens.BusinessProcess,context:Ens.BP.Context,request:EnsLib.EDI.X12.Document,response:,callrequest:EnsLib.EDI.X12.Document,callresponse:EDIGW.RespStatus,callname:%String</FormalSpec>
<Language>cache</Language>
<PublicList>process,context</PublicList>
<ReturnType>%Status</ReturnType>
<Implementation><![CDATA[
Set $ZT="Trap",status=$$$OK do {
Set status=$$$OK,context.valStatus=callresponse.respStatus
If $$$ISERR(status) Quit
} while (0)
Exit Quit status
Trap Set $ZT="",status=##class(Ens.Util.Error).EnsSystemError("EDIGW.BPL.ST837.Thread1","OnResponse1")
Goto Exit
]]></Implementation>
</Method>
</Class>
</Export>