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.Thread1">
<Description>
This class is generated by the EDIGW.BPL.ST837VAL 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.ST837VAL</CompileAfter>
<IncludeCode/>
<ProcedureBlock>1</ProcedureBlock>
<Super>Ens.BP.Thread</Super>
<TimeCreated>65072,53863.167695</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 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()
} while (0)
If $$$ISERR(status) Quit
If ((context.TXTYPE="005010X223A2")) {
Set ..%NextState="S3"
} elseif ((context.TXTYPE="005010X224A2")) {
Set ..%NextState="S4"
} elseif ((context.TXTYPE="005010X222A1")) {
Set ..%NextState="S5"
} else {
Set ..%NextState="S6"
}
} 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 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
}
} while (0)
If $$$ISERR(status) Quit
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 {
Do {
///Invoking All TR3 Rules
Set tsStatus = ##class(EDIGW.Rules.TR3Rules).AllRules(request,context.VALOUT)
} while (0)
If $$$ISERR(status) Quit
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 {
Do {
///Invoking All TR3 Rules
//no validation implemented yet
} while (0)
If $$$ISERR(status) Quit
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 {
Do {
///Invoking All TR3 Rules
//no validation implemented yet
} while (0)
If $$$ISERR(status) Quit
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 {
///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()
} while (0)
If $$$ISERR(status) Quit
Set ..%NextState="S2"
} while (0)
Exit Quit ..ManageState(status)
Trap Set $ZT="",status=..ManageStatus(status,"S6") Goto Exit
]]></Implementation>
</Method>
<Storage name="Default">
<Type>%Library.CacheStorage</Type>
</Storage>
</Class>
</Export>