[Home] [Help]
1: PACKAGE BODY IEM_ROUTE_PUB AS
2: /* $Header: iemproub.pls 120.2 2006/05/22 20:10:32 pkesani noship $ */
3: --
4: --
5: -- Purpose: Mantain route classification related operations
28:
29:
30: /*GLOBAL VARIABLES FOR PRIVATE USE
31: ==================================*/
32: G_PKG_NAME VARCHAR2(100):= 'IEM_ROUTE_PUB';
33:
34: --The record type for passing rules
35: TYPE Rules_rec_type is RECORD (
36: key iem_route_rules.key_type_code%type,
113: When others then
114:
115: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
116: errorMessage := '[' || sqlcode || sqlerrm || ']' || ' Others';
117: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_ROUTE_PUB.EVALUATEAND.OTHERS', errorMessage);
118: end if;
119:
120:
121: End evaluateAnd;
185: When others then
186:
187: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
188: errorMessage := '[' || sqlcode || sqlerrm || ']' || ' Others';
189: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_ROUTE_PUB.EVALUATEOR.OTHERS', errorMessage);
190: end if;
191:
192: End evaluateOr;
193:
298: When OTHERS then
299:
300: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
301: errorMessage := '[' || sqlcode || sqlerrm || ']' || ' Others';
302: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_ROUTE_PUB.VALIDGROUP.OTHERS', errorMessage);
303: end if;
304:
305: groupOK := false;
306: return groupOK;
417:
418:
419: if l_log_enabled then
420: logMessage := '[p_account_id=' || to_char(p_accountid) || ']';
421: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ROUTE_PUB.ROUTE.START', logMessage);
422: end if;
423:
424: --Initialize group to 0
425: x_groupId := 0;
431: If p_keyVals_tbl.count > 0 then
432:
433: if l_log_enabled then
434: logMessage := '[p_keyValsCount=' || to_char(p_keyVals_tbl.count) || ']';
435: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ROUTE_PUB.ROUTE.KEY_VALS_MORE_THAN_0', logMessage);
436: end if;
437: --Get all the active routes in the system
438: For v_routes in c_routes (enabledFlag, p_accountId) Loop
439:
452: -- Identify route type
453: IF ( booleanTypeCode = 'DYNAMIC' ) THEN
454: if l_log_enabled then
455: logMessage := '[DYNAMIC procedure_name='||procedureName|| ']';
456: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ROUTE_PUB.ROUTE.DYNAMIC_ROUTE', logMessage);
457: end if;
458:
459: runTimekeyVals_tbl.delete;
460: runTimeSuccess := true;
479:
480: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
481: if l_log_enabled then
482: logMessage := '[ERROR when execute procedure for RouteID: '||v_routes.route_id ||']';
483: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ROUTE_PUB.ROUTE.DYNAMIC_ROUTE', logMessage);
484: end if;
485: runTimeSuccess := false;
486: else
487: -- Insert data in key-value pair table
496: end if;
497:
498: if l_log_enabled then
499: logMessage := '[DYNAMIC ROUTE RETURNED VALUE =' || l_result || ']';
500: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ROUTE_PUB.ROUTE.DYNAMIC_ROUTE', logMessage);
501: end if;
502: end if;
503: EXCEPTION
504: WHEN OTHERS THEN
504: WHEN OTHERS THEN
505: runTimeSuccess := false;
506: if l_log_enabled then
507: logMessage := '[ERROR (Others) when execute procedure for keyId: '||v_routes.route_id ||'. error:'||sqlerrm||']';
508: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ROUTE_PUB.ROUTE.DYNAMIC_ROUTE', logMessage);
509: end if;
510: END; -- end of PROCEDURE processing
511:
512: -- Exit when run procedure failed
521: ruleHold(x).value := v_rules.value;
522:
523: if l_log_enabled then
524: logMessage := '[DYNAMIC ROUTE' || ruleHold(x).key || ruleHold(x).operator || ruleHold(x).value || ']';
525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ROUTE_PUB.ROUTE.DYNAMIC_ROUTE', logMessage);
526: end if;
527: else
528: exit;
529: end if;
548: ruleHold(x).value := v_rules.value;
549:
550: if l_log_enabled then
551: logMessage := '[' || ruleHold(x).key || ruleHold(x).operator || ruleHold(x).value || ']';
552: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ROUTE_PUB.ROUTE.RULES', logMessage);
553: end if;
554:
555: x := x + 1;
556: End Loop;
578: p_key_name=>'IEMNAGENTID');
579:
580: if l_log_enabled then
581: logMessage := '[ROUTE to oringinating agent. IEMNAGENTID=' || l_agent_id|| ']';
582: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ROUTE_PUB.ROUTE.RULES', logMessage);
583: end if;
584:
585:
586: if ( l_agent_id is null or l_agent_id='') then
622: end if;
623:
624: if l_log_enabled then
625: logMessage := '[Route destination = ' || x_groupId|| ']';
626: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_ROUTE_PUB.ROUTE.RULES', logMessage);
627: end if;
628: EXIT;
629: end if;
630:
653: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
654:
655: if l_exception_log then
656: errorMessage := '[' || sqlcode || sqlerrm || ']' || ' Execution Error';
657: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_ROUTE_PUB.ROUTE.EXEC_ERROR', errorMessage);
658: end if;
659:
660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
661: Rollback to Route_PUB;
662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
663: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
664: if l_exception_log then
665: errorMessage := '[' || sqlcode || sqlerrm || ']' || ' Unexpected Execution Error';
666: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_ROUTE_PUB.ROUTE.UNEXP_EXEC_ERROR', errorMessage);
667: end if;
668:
669: WHEN OTHERS THEN
670: Rollback to Route_PUB;
675: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
676:
677: if l_exception_log then
678: errorMessage := '[' || sqlcode || sqlerrm || ']' || ' Others';
679: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_ROUTE_PUB.ROUTE.OTHERS', errorMessage);
680: end if;
681:
682: END route;
683:
698:
699: return x_value;
700: end;
701:
702: END IEM_ROUTE_PUB;