[Home] [Help]
488: RETURN l_recipe_type;
489: END get_recipe_type;
490:
491: BEGIN
492: -- gmd_debug.log_initialize('MSNR');
493:
494: IF (l_debug = 'Y') THEN
495: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : 1st line ');
496: END IF;
491: BEGIN
492: -- gmd_debug.log_initialize('MSNR');
493:
494: IF (l_debug = 'Y') THEN
495: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : 1st line ');
496: END IF;
497:
498: -- Using concurrent_id/request_id we get the details on the object and column that
499: -- is being replaced.
539: END IF;
540:
541: IF (l_debug = 'Y') THEN
542:
543: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
544: ||' : Call Sts API - object type, replace_type, '
545: ||'object id , old_name/version and new_name = '
546: ||get_object_rec.object_type||' - '
547: ||get_object_rec.replace_type||' - '
565: , x_return_status => l_return_status
566: );
567:
568: IF (l_debug = 'Y') THEN
569: gmd_debug.put_line
570: ('In MSNR replace : After Sts API - return status = '
571: ||l_return_status);
572: END IF;
573:
587: l_version_enabled := 'N';
588: END IF;
589: CLOSE Check_version_enabled;
590:
591: gmd_debug.put_line('In MSNR Replace : The status type = '||l_status_type||
592: ' and the version flag API passes = '||get_object_rec.version_flag||
593: ' and version enabled check = '||l_version_enabled);
594:
595: IF (get_object_rec.object_type <> 'VALIDITY') THEN
637: END IF;
638: END IF;
639:
640: IF (l_debug = 'Y') THEN
641: gmd_debug.put_line
642: ('In MSNR replace : For formula Action flag = '
643: ||l_action_flag);
644: END IF;
645:
729: INTO l_formula_class, l_new_ingredient, l_old_ingredient, l_owner_id
730: FROM dual;
731:
732: IF (l_debug = 'Y') THEN
733: gmd_debug.put_line
734: ('In MSNR replace : In Insert mode '
735: ||' l_fm_class = '||l_formula_class
736: ||' l_new_ingredient = '||l_new_ingredient
737: ||' l_old_ingredient = '||l_old_ingredient
796: last_update_login = p_last_update_login
797: WHERE formula_id = get_object_rec.object_id;
798: ELSIF (get_object_rec.replace_type = 'INGREDIENT') THEN
799: IF (l_debug = 'Y') THEN
800: gmd_debug.put_line
801: ('In MSNR replace for formula : action flag = '
802: ||l_action_flag
803: ||' and replace type = '
804: ||get_object_rec.replace_type
883: l_action_flag := 'N';
884: END IF;
885: ELSE -- When version control is off
886: IF (l_debug = 'Y') THEN
887: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
888: ||' : About check if Recipe update is allowed, Recipe Id = '
889: ||get_object_rec.object_id);
890: END IF;
891:
914: END IF; -- check for GMD_API_GRP.Check_orgn_access
915: END IF; -- check for version control on / off
916:
917: IF (l_debug = 'Y') THEN
918: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : For Recipe Action flag = '
919: ||l_action_flag);
920: END IF;
921:
922: IF (l_action_flag = 'N') THEN
1092: END IF;
1093: -- Delete all recipe dependencies if either formula or
1094: -- routing is replaced.
1095: IF (l_debug = 'Y') THEN
1096: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||
1097: ': About check fm and rout dependency with Recipe = '||
1098: get_object_rec.object_id||
1099: ' Replace column = '||get_object_rec.replace_type||
1100: ' Replace value = '||get_object_rec.new_name);
1108: END IF;
1109: END IF;
1110:
1111: IF (l_debug = 'Y') THEN
1112: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||
1113: ' After checking the fm and rout dep with Recipe ');
1114: END IF;
1115:
1116: END IF; -- When action flag is either 'U' or 'I'
1148: END IF;
1149: END IF;
1150:
1151: IF (l_debug = 'Y') THEN
1152: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1153: ||' : For Routing Action flag = '||l_action_flag);
1154: END IF;
1155:
1156: IF (l_action_flag = 'N') THEN
1240: ELSIF (l_action_flag IN ('U')) THEN
1241: p_rout_update_table(1).p_col_to_update := get_object_rec.replace_type;
1242:
1243: IF (l_debug = 'Y') THEN
1244: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : About update Routing '
1245: ||' Replace type = '
1246: ||get_object_rec.replace_type
1247: ||' new_name = '
1248: ||get_object_rec.new_name
1259: WHERE routing_id = get_object_rec.object_id
1260: AND oprn_id = get_object_rec.old_name;
1261:
1262: IF (l_debug = 'Y') THEN
1263: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1264: ||' : About update Routing - Operation'
1265: ||' Routing Step id = '
1266: ||l_routingStep_id
1267: ||' Routing id = '
1280: ,x_message_list => l_mesg_data
1281: );
1282:
1283: IF (l_debug = 'Y') THEN
1284: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1285: ||' : After calling Rt Step API '
1286: ||' l_return_status = '
1287: ||l_return_status
1288: );
1288: );
1289: END IF;
1290: ELSE
1291: IF (l_debug = 'Y') THEN
1292: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1293: ||' : About to call Update Routing API ');
1294: END IF;
1295:
1296: -- Call the routing API
1341: END IF;
1342: END IF;
1343:
1344: IF (l_debug = 'Y') THEN
1345: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1346: ||' Version Flag = '
1347: ||get_object_rec.version_flag
1348: ||' Replace Column = '
1349: ||get_object_rec.replace_type
1391: l_oprn_class, l_old_resource, l_new_resource, l_organization_id
1392: FROM dual;
1393:
1394: IF (l_debug = 'Y') THEN
1395: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1396: ||' : About to call create_new_operation - End Date = '
1397: ||l_end_date);
1398: END IF;
1399:
1437: p_oprn_update_table(1).P_COL_TO_UPDATE := get_object_rec.replace_type;
1438: p_oprn_update_table(1).P_VALUE := get_object_rec.new_name;
1439:
1440: IF (l_debug = 'Y') THEN
1441: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : Update of Operation '||
1442: ' Replace type = '||p_oprn_update_table(1).P_COL_TO_UPDATE||
1443: ' and value = '||p_oprn_update_table(1).P_VALUE);
1444: END IF;
1445:
1473: ELSIF (get_object_rec.replace_type = 'RESOURCES') THEN
1474: -- Get the oprn_line_id based on the old oprn_id (object_id)
1475: -- and old resource (old_name).
1476: IF (l_debug = 'Y') THEN
1477: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : About replace a resource '
1478: ||' in a operation. The oprn_id = '||get_object_rec.object_id||' and'
1479: ||' old resource = '||get_object_rec.old_name);
1480: END IF;
1481:
1486: AND r.resources = get_object_rec.old_name
1487: AND a.oprn_line_id = r.oprn_line_id;
1488:
1489: IF (l_debug = 'Y') THEN
1490: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : The oprn_line_id = '
1491: ||l_oprn_line_id||' and'||' new resource = '||get_object_rec.new_name);
1492: END IF;
1493:
1494: p_oprn_resources_table(1).P_COL_TO_UPDATE := get_object_rec.replace_type;
1510:
1511: END IF;
1512: ELSIF (get_object_rec.object_type = 'VALIDITY') THEN
1513: IF (l_debug = 'Y') THEN
1514: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : The Vr status = '||l_status_type
1515: ||' and replace type = '||get_object_rec.replace_type);
1516: END IF;
1517: IF (get_object_rec.replace_type <> 'STATUS') THEN
1518: -- If status code is On-Hold or obsolete no update is allowed
1524: l_action_flag := 'N';
1525: END IF;
1526: END IF;
1527: IF (l_debug = 'Y') THEN
1528: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : The Vr action_flag = '
1529: ||l_action_flag);
1530: END IF;
1531:
1532: IF (l_action_flag = 'U') THEN
1541:
1542: -- Currently for Validity Rules we do not provide version
1543: -- control. So there would not be any creation of Validity Rules
1544: If (l_debug = 'Y') THEN
1545: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : The update clumn = '||
1546: get_object_rec.replace_type||
1547: ' and update value = '||
1548: get_object_rec.new_name);
1549: END IF;
1677: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1678:
1679: -- Set the row counter
1680: l_rowcount := l_rowcount + 1;
1681: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : Within loop for Row # '
1682: ||l_rowcount);
1683: EXCEPTION
1684: WHEN NO_UPDATE_EXCEPTION THEN
1685: -- Bug# 5008299 Kapil M
1695: err_buf := NULL;
1696: l_retval := fnd_concurrent.set_completion_status('WARNING',l_error_text);
1697:
1698: IF (l_debug = 'Y') THEN
1699: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1700: ||' : In the No_update_exception section '
1701: ||' Error text is '||l_error_text);
1702: END IF;
1703: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1854: Raise No_Replace_Exception;
1855: END IF;
1856:
1857: IF (l_debug = 'Y') THEN
1858: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||'Completed '||l_api_name ||' at '
1859: ||to_char(sysdate,'MM/DD/YYYY HH24:MI:SS'));
1860: END IF;
1861:
1862: EXCEPTION
1873: err_buf := NULL;
1874: l_retval := fnd_concurrent.set_completion_status('WARNING',l_error_text);
1875:
1876: IF (l_debug = 'Y') THEN
1877: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
1878: ||' : In the No_replace_exception section '
1879: ||' Error text is '||l_error_text);
1880: END IF;
1881: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1971:
1972: l_replace_type := pReplace_type;
1973:
1974: IF (l_debug = 'Y') THEN
1975: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : l_replace_type = '||l_replace_type||
1976: ' and l_table_name = '||l_table_name);
1977: END IF;
1978:
1979: IF (pObject_type = 'FORMULA') THEN
2104: l_dynamic_select := fnd_dsql.get_text(FALSE);
2105:
2106: l_dsql_debug := fnd_dsql.get_text(TRUE);
2107: IF (l_debug = 'Y') THEN
2108: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : l_dsql_debug = '||l_dsql_debug);
2109: END IF;
2110:
2111: dbms_sql.parse(l_cursor_id, l_dynamic_select, dbms_sql.native);
2112: fnd_dsql.do_binds;
2113:
2114: pRows_Processed := dbms_sql.execute(l_cursor_id);
2115:
2116: IF (l_debug = 'Y') THEN
2117: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : Rows fetched = '||pRows_Processed||
2118: ' and Original select cnt = '||l_row_count);
2119: END IF;
2120:
2121: dbms_sql.close_cursor(l_cursor_id); -- close cursor
2120:
2121: dbms_sql.close_cursor(l_cursor_id); -- close cursor
2122:
2123: IF (l_debug = 'Y') THEN
2124: gmd_debug.put_line(g_pkg_name||'.'||l_api_name||' : pRows_Processed = '||pRows_Processed);
2125: END IF;
2126:
2127: -- If all rows processed it actually means that none of the
2128: -- rows selected met the initial criteria, so we rollback all changes
2135: x_return_status := 'E';
2136: WHEN OTHERS THEN
2137: ROLLBACK to SAVEPOINT validate_all_rows;
2138: IF (l_debug = 'Y') THEN
2139: gmd_debug.put_line(g_pkg_name||'.'||l_api_name
2140: ||' : When Others for Validate_all_rep_rows, Error '||
2141: sqlerrm);
2142: END IF;
2143: x_return_status := 'U';