[Home] [Help]
641: RETURN l_recipe_type;
642: END get_recipe_type;
643:
644: BEGIN
645: -- gmd_debug.log_initialize('MSNR');
646:
647: IF (l_debug = 'Y') THEN
648: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : 1st line ');
649: END IF;
644: BEGIN
645: -- gmd_debug.log_initialize('MSNR');
646:
647: IF (l_debug = 'Y') THEN
648: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : 1st line ');
649: END IF;
650:
651: -- Using concurrent_id/request_id we get the details on the object and column that
652: -- is being replaced.
692: END IF;
693:
694: IF (l_debug = 'Y') THEN
695:
696: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
697: ||' : Call Sts API - object type, replace_type, '
698: ||'object id , old_name/version and new_name = '
699: ||get_object_rec.object_type||' - '
700: ||get_object_rec.replace_type||' - '
718: , x_return_status => l_return_status
719: );
720:
721: IF (l_debug = 'Y') THEN
722: gmd_debug.put_line
723: ('In MSNR replace : After Sts API - return status = '
724: ||l_return_status);
725: END IF;
726:
740: l_version_enabled := 'N';
741: END IF;
742: CLOSE Check_version_enabled;
743:
744: gmd_debug.put_line('In MSNR Replace : The status type = '||l_status_type||
745: ' and the version flag API passes = '||get_object_rec.version_flag||
746: ' and version enabled check = '||l_version_enabled);
747:
748: IF (get_object_rec.object_type <> 'VALIDITY') THEN
790: END IF;
791: END IF;
792:
793: IF (l_debug = 'Y') THEN
794: gmd_debug.put_line
795: ('In MSNR replace : For formula Action flag = '
796: ||l_action_flag);
797: END IF;
798:
882: INTO l_formula_class, l_new_ingredient, l_old_ingredient, l_owner_id
883: FROM dual;
884:
885: IF (l_debug = 'Y') THEN
886: gmd_debug.put_line
887: ('In MSNR replace : In Insert mode '
888: ||' l_fm_class = '||l_formula_class
889: ||' l_new_ingredient = '||l_new_ingredient
890: ||' l_old_ingredient = '||l_old_ingredient
949: last_update_login = p_last_update_login
950: WHERE formula_id = get_object_rec.object_id;
951: ELSIF (get_object_rec.replace_type = 'INGREDIENT') THEN
952: IF (l_debug = 'Y') THEN
953: gmd_debug.put_line
954: ('In MSNR replace for formula : action flag = '
955: ||l_action_flag
956: ||' and replace type = '
957: ||get_object_rec.replace_type
1036: l_action_flag := 'N';
1037: END IF;
1038: ELSE -- When version control is off
1039: IF (l_debug = 'Y') THEN
1040: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1041: ||' : About check if Recipe update is allowed, Recipe Id = '
1042: ||get_object_rec.object_id);
1043: END IF;
1044:
1067: END IF; -- check for GMD_API_GRP.Check_orgn_access
1068: END IF; -- check for version control on / off
1069:
1070: IF (l_debug = 'Y') THEN
1071: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : For Recipe Action flag = '
1072: ||l_action_flag);
1073: END IF;
1074:
1075: IF (l_action_flag = 'N') THEN
1245: END IF;
1246: -- Delete all recipe dependencies if either formula or
1247: -- routing is replaced.
1248: IF (l_debug = 'Y') THEN
1249: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||
1250: ': About check fm and rout dependency with Recipe = '||
1251: get_object_rec.object_id||
1252: ' Replace column = '||get_object_rec.replace_type||
1253: ' Replace value = '||get_object_rec.new_name);
1261: END IF;
1262: END IF;
1263:
1264: IF (l_debug = 'Y') THEN
1265: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||
1266: ' After checking the fm and rout dep with Recipe ');
1267: END IF;
1268:
1269: END IF; -- When action flag is either 'U' or 'I'
1301: END IF;
1302: END IF;
1303:
1304: IF (l_debug = 'Y') THEN
1305: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1306: ||' : For Routing Action flag = '||l_action_flag);
1307: END IF;
1308:
1309: IF (l_action_flag = 'N') THEN
1393: ELSIF (l_action_flag IN ('U')) THEN
1394: p_rout_update_table(1).p_col_to_update := get_object_rec.replace_type;
1395:
1396: IF (l_debug = 'Y') THEN
1397: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : About update Routing '
1398: ||' Replace type = '
1399: ||get_object_rec.replace_type
1400: ||' new_name = '
1401: ||get_object_rec.new_name
1407: IF (get_object_rec.replace_type = 'OPRN_ID') THEN
1408: -- Get the routingstep id
1409:
1410: IF (l_debug = 'Y') THEN
1411: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1412: ||' : About update Routing - Operation'
1413: ||' Routing Step id = '
1414: ||l_routingStep_id
1415: ||' Routing id = '
1449:
1450: --changes end Bug # : 1024528
1451:
1452: IF (l_debug = 'Y') THEN
1453: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1454: ||' : After calling Rt Step API '
1455: ||' l_return_status = '
1456: ||l_return_status
1457: );
1457: );
1458: END IF;
1459: ELSE
1460: IF (l_debug = 'Y') THEN
1461: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1462: ||' : About to call Update Routing API ');
1463: END IF;
1464:
1465: -- Call the routing API
1510: END IF;
1511: END IF;
1512:
1513: IF (l_debug = 'Y') THEN
1514: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1515: ||' Version Flag = '
1516: ||get_object_rec.version_flag
1517: ||' Replace Column = '
1518: ||get_object_rec.replace_type
1560: l_oprn_class, l_old_resource, l_new_resource, l_organization_id
1561: FROM dual;
1562:
1563: IF (l_debug = 'Y') THEN
1564: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1565: ||' : About to call create_new_operation - End Date = '
1566: ||l_end_date);
1567: END IF;
1568:
1606: p_oprn_update_table(1).P_COL_TO_UPDATE := get_object_rec.replace_type;
1607: p_oprn_update_table(1).P_VALUE := get_object_rec.new_name;
1608:
1609: IF (l_debug = 'Y') THEN
1610: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : Update of Operation '||
1611: ' Replace type = '||p_oprn_update_table(1).P_COL_TO_UPDATE||
1612: ' and value = '||p_oprn_update_table(1).P_VALUE);
1613: END IF;
1614:
1642: ELSIF (get_object_rec.replace_type = 'RESOURCES') THEN
1643: -- Get the oprn_line_id based on the old oprn_id (object_id)
1644: -- and old resource (old_name).
1645: IF (l_debug = 'Y') THEN
1646: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : About replace a resource '
1647: ||' in a operation. The oprn_id = '||get_object_rec.object_id||' and'
1648: ||' old resource = '||get_object_rec.old_name);
1649: END IF;
1650:
1663:
1664: --changes end Bug # : 12794489
1665:
1666: IF (l_debug = 'Y') THEN
1667: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : The oprn_line_id = '
1668: ||l_oprn_line_id||' and'||' new resource = '||get_object_rec.new_name);
1669: END IF;
1670:
1671: p_oprn_resources_table(1).P_COL_TO_UPDATE := get_object_rec.replace_type;
1696:
1697: END IF;
1698: ELSIF (get_object_rec.object_type = 'VALIDITY') THEN
1699: IF (l_debug = 'Y') THEN
1700: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : The Vr status = '||l_status_type
1701: ||' and replace type = '||get_object_rec.replace_type);
1702: END IF;
1703: IF (get_object_rec.replace_type <> 'STATUS') THEN
1704: -- If status code is On-Hold or obsolete no update is allowed
1710: l_action_flag := 'N';
1711: END IF;
1712: END IF;
1713: IF (l_debug = 'Y') THEN
1714: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : The Vr action_flag = '
1715: ||l_action_flag);
1716: END IF;
1717:
1718: IF (l_action_flag = 'U') THEN
1727:
1728: -- Currently for Validity Rules we do not provide version
1729: -- control. So there would not be any creation of Validity Rules
1730: If (l_debug = 'Y') THEN
1731: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : The update clumn = '||
1732: get_object_rec.replace_type||
1733: ' and update value = '||
1734: get_object_rec.new_name);
1735: END IF;
1863: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1864:
1865: -- Set the row counter
1866: l_rowcount := l_rowcount + 1;
1867: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : Within loop for Row # '
1868: ||l_rowcount);
1869: EXCEPTION
1870: WHEN NO_UPDATE_EXCEPTION THEN
1871: -- Bug# 5008299 Kapil M
1881: err_buf := NULL;
1882: l_retval := fnd_concurrent.set_completion_status('WARNING',l_error_text);
1883:
1884: IF (l_debug = 'Y') THEN
1885: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1886: ||' : In the No_update_exception section '
1887: ||' Error text is '||l_error_text);
1888: END IF;
1889: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
2040: Raise No_Replace_Exception;
2041: END IF;
2042:
2043: IF (l_debug = 'Y') THEN
2044: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||'Completed '||l_api_name ||' at '
2045: ||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
2046: END IF;
2047:
2048: EXCEPTION
2059: err_buf := NULL;
2060: l_retval := fnd_concurrent.set_completion_status('WARNING',l_error_text);
2061:
2062: IF (l_debug = 'Y') THEN
2063: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
2064: ||' : In the No_replace_exception section '
2065: ||' Error text is '||l_error_text);
2066: END IF;
2067: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
2157:
2158: l_replace_type := pReplace_type;
2159:
2160: IF (l_debug = 'Y') THEN
2161: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : l_replace_type = '||l_replace_type||
2162: ' and l_table_name = '||l_table_name);
2163: END IF;
2164:
2165: IF (pObject_type = 'FORMULA') THEN
2290: l_dynamic_select := fnd_dsql.get_text(FALSE);
2291:
2292: l_dsql_debug := fnd_dsql.get_text(TRUE);
2293: IF (l_debug = 'Y') THEN
2294: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : l_dsql_debug = '||l_dsql_debug);
2295: END IF;
2296:
2297: dbms_sql.parse(l_cursor_id, l_dynamic_select, dbms_sql.native);
2298: fnd_dsql.do_binds;
2299:
2300: pRows_Processed := dbms_sql.execute(l_cursor_id);
2301:
2302: IF (l_debug = 'Y') THEN
2303: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : Rows fetched = '||pRows_Processed||
2304: ' and Original select cnt = '||l_row_count);
2305: END IF;
2306:
2307: dbms_sql.close_cursor(l_cursor_id); -- close cursor
2306:
2307: dbms_sql.close_cursor(l_cursor_id); -- close cursor
2308:
2309: IF (l_debug = 'Y') THEN
2310: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : pRows_Processed = '||pRows_Processed);
2311: END IF;
2312:
2313: -- If all rows processed it actually means that none of the
2314: -- rows selected met the initial criteria, so we rollback all changes
2321: x_return_status := 'E';
2322: WHEN OTHERS THEN
2323: ROLLBACK to SAVEPOINT validate_all_rows;
2324: IF (l_debug = 'Y') THEN
2325: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
2326: ||' : When Others for Validate_all_rep_rows, Error '||
2327: sqlerrm);
2328: END IF;
2329: x_return_status := 'U';