[Home] [Help]
7: --
8: -- MODIFICATION HISTORY
9: -- Person Date Comments
10: -- Liang Xia 4/24/2001 Created
11: -- Liang Xia 6/7/2001 added checking duplication on IEM_ROUTES.name for PROCEDURE
12: -- create_item_routes and update_item_route
13: -- added updating priority in IEM_ACCOUNT_ROUTES for delete_item_batch
14: -- Liang Xia 6/7/2002 added validation for dynamic Route
15: -- Liang Xia 11/6/2002 release the validation for ALL_EMAILS and fixed part of "No MISS.." GSCC warning.
147:
148: --Actual API starts here
149: FORALL i IN p_route_ids_tbl.FIRST..p_route_ids_tbl.LAST
150: DELETE
151: FROM IEM_ROUTES
152:
153: WHERE route_id = p_route_ids_tbl(i);
154:
155:
244:
245: l_api_name VARCHAR2(255):='create_item_wrap';
246: l_api_version_number NUMBER:=1.0;
247:
248: l_route_id IEM_ROUTES.ROUTE_ID%TYPE;
249: l_route_rule_id IEM_ROUTE_RULES.ROUTE_RULE_ID%TYPE;
250: l_return_type VARCHAR2(30);
251:
252:
460:
461: --begins here
462:
463: --check duplicate value for attribute Name
464: select count(*) into l_name_count from iem_routes where UPPER(name) = UPPER(p_name);
465:
466: if l_name_count > 0 then
467: raise IEM_ADMIN_ROUTE_DUP_NAME;
468: end if;
505: l_description := p_description;
506: end if;
507:
508: --get next sequential number for route_id
509: SELECT IEM_ROUTES_s1.nextval
510: INTO l_seq_id
511: FROM dual;
512:
513: G_ROUTE_ID := l_seq_id;
511: FROM dual;
512:
513: G_ROUTE_ID := l_seq_id;
514:
515: INSERT INTO IEM_ROUTES
516: (
517: ROUTE_ID,
518: NAME,
519: DESCRIPTION,
1036: );
1037:
1038: END create_item_account_routes;
1039:
1040: --update iem_routes, update iem_route_rules, insert iem_route_rules
1041: PROCEDURE update_item_wrap (p_api_version_number IN NUMBER,
1042: p_init_msg_list IN VARCHAR2 := null,
1043: p_commit IN VARCHAR2 := null,
1044: p_route_id IN NUMBER,
1110: --API Body
1111:
1112:
1113: --check if the route_id exist before update
1114: select count(*) into l_route from iem_routes where route_id = p_route_id;
1115:
1116: if l_route < 1 then
1117: raise IEM_NO_ROUTE_UPDATE;
1118: end if;
1126: l_proc_name := FND_API.G_MISS_CHAR;
1127: l_return_type := FND_API.G_MISS_CHAR;
1128: end if;
1129:
1130: --update iem_routes table
1131: if p_description is null then
1132: l_description := FND_API.G_MISS_CHAR;
1133: elsif l_description = FND_API.G_MISS_CHAR then
1134: l_description := null;
1347: x_return_status := FND_API.G_RET_STS_SUCCESS;
1348:
1349: --check duplicate value for attribute Name
1350:
1351: select count(*) into l_name_count from iem_routes where UPPER(name) = UPPER(p_name) and route_id <> p_route_id;
1352:
1353:
1354: if l_name_count > 0 then
1355: raise IEM_ADMIN_ROUTE_DUP_NAME;
1382: end if;
1383:
1384: end if;
1385:
1386: update IEM_ROUTES
1387: set
1388: name=decode(p_name,null,name,p_name),
1389: description=decode(p_description,FND_API.G_MISS_CHAR,null,null,description,p_description),
1390: boolean_type_code=decode(p_ruling_chain,null,boolean_type_code,p_ruling_chain),
1510: END IF;
1511: -- Initialize API return status to SUCCESS
1512: x_return_status := FND_API.G_RET_STS_SUCCESS;
1513:
1514: -- check if the route_id exist in iem_routes
1515: select count(*) into l_rule from iem_route_rules
1516:
1517: where route_rule_id = p_route_rule_id;
1518:
1671: -- Initialize API return status to SUCCESS
1672: x_return_status := FND_API.G_RET_STS_SUCCESS;
1673:
1674:
1675: -- check if the route_id exist in iem_routes
1676: select count(*) into l_route from iem_routes
1677: where route_id = p_route_id;
1678:
1679: if l_route < 1 then
1672: x_return_status := FND_API.G_RET_STS_SUCCESS;
1673:
1674:
1675: -- check if the route_id exist in iem_routes
1676: select count(*) into l_route from iem_routes
1677: where route_id = p_route_id;
1678:
1679: if l_route < 1 then
1680:
1839: x_return_status := FND_API.G_RET_STS_SUCCESS;
1840:
1841: -- Check For Existing IEM Server Group
1842: IF p_route_id <> FND_API.G_MISS_NUM THEN
1843: Select count(*) into l_route_cnt from iem_routes
1844: where route_id=p_route_id;
1845:
1846:
1847: IF l_route_cnt = 0 then