Message Flow for ESB 12

>>>>>>>>Siebel_Exception_Service
--Set Routing LabelName
CREATE DATABASE MODULE Set_Ex_RoutingLabelName
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
CALL Utility.addRouteLabel(LocalEnvironment,'EX_' || Environment.Variables.operation);
RETURN TRUE;
END;
END MODULE;


--OrderException
--Set OrderException LabelName
CREATE DATABASE MODULE OrderException_LableName
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
DECLARE labelName CHARACTER;
SET labelName='EX_' || FIELDVALUE(Root.XMLNSC.siebel:SiebelMessage.siebel:ListOfOrder.siebel:ListOfOrderHeader.siebel:Order.siebel:ListOfOrderItem.siebel:OrderItem.siebel:ActionCode);
CALL Utility.addRouteLabel(LocalEnvironment,labelName);
END;
END MODULE;


--CRM_Order_Sync_RSP
/*
異常報文
*/
CREATE COMPUTE MODULE CRM_Order_Sync_Ex_Response
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
SET OutputRoot.Properties = InputRoot.Properties;
CREATE FIELD OutputRoot.XMLNSC.siebel:SiebelMessage;
DECLARE OutputSeibel REFERENCE TO OutputRoot.XMLNSC.siebel:SiebelMessage;

SET OutputSeibel.siebel:ActionControl.siebel:DownStreamNumber = Common.getCBSModule();
SET OutputSeibel.siebel:OrderHeadResp.siebel:Version='1';
SET OutputSeibel.siebel:OrderHeadResp.siebel:OrderLineItemResp.siebel:Status=Environment.Variables.RequestHeader.RetCode;
SET OutputSeibel.siebel:OrderHeadResp.siebel:OrderLineItemResp.siebel:Desc=Environment.Variables.RequestHeader.RetMsg;
SET OutputSeibel.siebel:OrderHeadResp.siebel:OrderLineItemResp.siebel:ReturnTime=CAST(CURRENT_TIMESTAMP AS CHARACTER FORMAT 'dd/MM/yyyy HH:mm:ss');
RETURN TRUE;
END;
END MODULE;


--Set Siebel Response Header
CREATE COMPUTE MODULE Siebel_Header_Exception_Rsp
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
SET OutputRoot=InputRoot;
SET Environment.Variables.status = ESB_RET_FAIL_CODE;

CAll Siebel.Util.buildSeibelMessageProperties(OutputRoot.XMLNSC.siebel:SiebelMessage,Environment);

RETURN TRUE;
END;
END MODULE;