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.Thread1">
<Description>
This class is generated by the EDIGW.BPL.Router837 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.Router837</CompileAfter>
<IncludeCode/>
<ProcedureBlock>1</ProcedureBlock>
<Super>Ens.BP.Thread</Super>
<TimeCreated>65056,61298.557604</TimeCreated>
<GeneratedBy>Ens.BPL.Compiler.CLS</GeneratedBy>
<Method name="S1">
<FormalSpec>process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent</FormalSpec>
<Language>cache</Language>
<PublicList>process,context</PublicList>
<ReturnType>%Status</ReturnType>
<Implementation><![CDATA[
Set $ZT="Trap",status=$$$OK do {
Do {
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)
} while (0)
If $$$ISERR(status) Quit
If ((request.Name="Interchange")) {
Set ..%NextState="S3"
} elseif ((request.Name="837")) {
Set ..%NextState="S4"
} else {
Set ..%NextState="S2"
}
} while (0)
Exit Quit ..ManageState(status)
Trap Set $ZT="",status=..ManageStatus(status,"S1") Goto Exit
]]></Implementation>
</Method>
<Method name="S2">
<FormalSpec>process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent</FormalSpec>
<Language>cache</Language>
<PublicList>process,context</PublicList>
<ReturnType>%Status</ReturnType>
<Implementation><![CDATA[
Set $ZT="Trap",status=$$$OK do {
Do process.ClearAllPendingResponses()
Set ..%NextState="Stop"
} while (0)
Exit Quit ..ManageState(status)
Trap Set $ZT="",status=..ManageStatus(status,"S2") Goto Exit
]]></Implementation>
</Method>
<Method name="S3">
<FormalSpec>process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent</FormalSpec>
<Language>cache</Language>
<PublicList>process,context</PublicList>
<ReturnType>%Status</ReturnType>
<Implementation><![CDATA[
Set $ZT="Trap",status=$$$OK do {
#; --- Begin Call File Process ---
#; --- Begin Request ---
Set callrequest=##class(EDIGW.ReqFN).%New()
If '$IsObject(callrequest) Set status=%objlasterror Quit
Set status=$$$OK,callrequest.FILENUMBER=context.FILENUMBER
If $$$ISERR(status) Quit
Set status=..MakeAsyncCall("","FileProcess",callrequest,"File Process",1,0,"File Process",0)
If $$$ISERR(status) Quit
Kill callrequest
#; --- End Request ---
#; --- End Call File Process ---
Set ..%NextState="S2"
} while (0)
Exit Quit ..ManageState(status)
Trap Set $ZT="",status=..ManageStatus(status,"S3") Goto Exit
]]></Implementation>
</Method>
<Method name="S4">
<FormalSpec>process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent</FormalSpec>
<Language>cache</Language>
<PublicList>process,context</PublicList>
<ReturnType>%Status</ReturnType>
<Implementation><![CDATA[
Set $ZT="Trap",status=$$$OK do {
#; --- Begin Call ST Router ---
#; --- Begin Request ---
Set callrequest=##class(EnsLib.EDI.X12.Document).%New()
If '$IsObject(callrequest) Set status=%objlasterror Quit
Set status=$$$OK,callrequest=request
If $$$ISERR(status) Quit
Set status=..MakeAsyncCall("","ST Router",callrequest,"ST Router",0,0,"ST Router",0)
If $$$ISERR(status) Quit
Kill callrequest
#; --- End Request ---
#; --- End Call ST Router ---
Set ..%NextState="S2"
} while (0)
Exit Quit ..ManageState(status)
Trap Set $ZT="",status=..ManageStatus(status,"S4") Goto Exit
]]></Implementation>
</Method>
<Storage name="Default">
<Type>%Library.CacheStorage</Type>
</Storage>
</Class>
</Export>