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.ST837GOOD.Thread1">
<Description>
This class is generated by the EDIGW.BPL.ST837GOOD 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.ST837GOOD</CompileAfter>
<IncludeCode/>
<ProcedureBlock>1</ProcedureBlock>
<Super>Ens.BP.Thread</Super>
<TimeCreated>65072,53863.150838</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.saveStatus=""
Set context.TSOUT=""
Set context.FILENUMBER=##class(EDIGW.Utility).SourceFN(request.Source)
Set context.TXTYPE=request.GetValueAt("1:3")
Set context.ST02=request.GetValueAt("1:2")
Do ##class(EDIGW.Utility).DebugBPL("BPL Good "_request.Name_":"_context.ST02)
} while (0)
If $$$ISERR(status) Quit
If ((context.TXTYPE="005010X223A2")) {
Set ..%NextState="S3"
} elseif ((context.TXTYPE="005010X222A1")) {
Set ..%NextState="S4"
} elseif ((context.TXTYPE="005010X224A2")) {
Set ..%NextState="S5"
} 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 {
Do ##class(EDIGW.Utility).DebugBPL("BPL TSOUT before %Save() "_request.Name_":"_context.ST02_" saveStatus "_context.saveStatus)
If $IsObject(context.TSOUT) {
Set context.saveStatus=context.TSOUT.%Save()
If $$$ISERR(context.saveStatus) $$$LOGERROR($system.Status.GetOneErrorText(context.saveStatus))
}
Do ##class(EDIGW.Utility).DebugBPL("BPL TSOUT "_request.Name_":"_context.ST02_" saveStatus "_context.saveStatus)
} while (0)
If $$$ISERR(status) Quit
If (context.saveStatus) {
Set ..%NextState="S7"
} else {
Set ..%NextState="S8"
}
} 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 {
Set iscTemp=context.TSOUT
Set status=$classmethod("EDIGW.DTL837I","Transform",request,.iscTemp,"")
If $$$ISERR(status) Quit
Set context.TSOUT=iscTemp
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 {
Set iscTemp=context.TSOUT
Set status=$classmethod("EDIGW.DTL837P","Transform",request,.iscTemp,"")
If $$$ISERR(status) Quit
Set context.TSOUT=iscTemp
Set ..%NextState="S2"
} while (0)
Exit Quit ..ManageState(status)
Trap Set $ZT="",status=..ManageStatus(status,"S4") Goto Exit
]]></Implementation>
</Method>

<Method name="S5">
<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 {
Set iscTemp=context.TSOUT
Set status=$classmethod("EDIGW.DTL837D","Transform",request,.iscTemp,"")
If $$$ISERR(status) Quit
Set context.TSOUT=iscTemp
Set ..%NextState="S2"
} while (0)
Exit Quit ..ManageState(status)
Trap Set $ZT="",status=..ManageStatus(status,"S5") Goto Exit
]]></Implementation>
</Method>

<Method name="S6">
<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,"S6") Goto Exit
]]></Implementation>
</Method>

<Method name="S7">
<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 Operation SQL ---
#; --- Begin Request ---
Set callrequest=##class(EDIGW.ReqSqlTS).%New()
If '$IsObject(callrequest) Set status=%objlasterror Quit
Set status=$$$OK,callrequest.IIterator=context.TSOUT.IIterator
If $$$ISERR(status) Quit
Set status=..MakeAsyncCall("","OperationSQL",callrequest,"Operation SQL",1,0,"Operation SQL",0)
If $$$ISERR(status) Quit
Kill callrequest
#; --- End Request ---
#; --- End Call Operation SQL ---
Set ..%NextState="S6"
} while (0)
Exit Quit ..ManageState(status)
Trap Set $ZT="",status=..ManageStatus(status,"S7") Goto Exit
]]></Implementation>
</Method>

<Method name="S8">
<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 {
Do ##class(EDIGW.Utility).DebugBPL("BPL Good - Save Error "_context.saveStatus)
Do ##class(EDIGW.Utility).DebugBPL("BPL Good - Raw Content "_request.RawContent)
Do ##class(EDIGW.Utility).DebugBPL("BPL Good - SQL IIterator "_context.TSOUT.IIterator)
Set aux=##class(EDIGW.Auxiliary).%New()
Set aux.FILENUMBER=context.FILENUMBER
Set aux.ST02TXNCTLNBR=context.ST02
Set aux.TXTYPE=context.TXTYPE
Set sc=##class(EDIGW.ErrorDTL).logErr(aux,context.saveStatus,request.RawContent,request,context.TSOUT.IIterator)
} while (0)
If $$$ISERR(status) Quit
Set ..%NextState="S6"
} while (0)
Exit Quit ..ManageState(status)
Trap Set $ZT="",status=..ManageStatus(status,"S8") Goto Exit
]]></Implementation>
</Method>

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