236: FND_MESSAGE.SET_TOKEN('JOB_NAME', wip_interface_rec.wip_entity_name);
237: FND_MESSAGE.SET_TOKEN('OP_SEQ', wip_interface_rec.operation_seq_num);
238: FND_MESSAGE.SET_TOKEN('ERROR_TYPE', wip_interface_rec.error_type_meaning);
239: FND_MESSAGE.SET_TOKEN('ERROR_MSG', wip_interface_rec.error);
240: FND_MSG_PUB.ADD;
241: END LOOP;
242: END add_wip_interface_errors;
243:
244: -- This procedure checks if the specified Job name exists in the
503: EXCEPTION
504: WHEN OTHERS THEN
505: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_HEADER_INSERT_ERR');
506: FND_MESSAGE.SET_TOKEN('JOB_NAME', l_job_header_rec.job_name );
507: FND_MSG_PUB.ADD;
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: RETURN;
510: END;
511:
696: EXCEPTION
697: WHEN OTHERS THEN
698: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_DETAILS_INSERT_ERR');
699: FND_MESSAGE.SET_TOKEN('JOB_NAME', l_job_details_rec.wip_entity_id);
700: FND_MSG_PUB.ADD;
701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
702: RETURN;
703: END;
704:
839: EXCEPTION
840: WHEN OTHERS THEN
841: FND_MESSAGE.SET_NAME('CSD','CSD_TXNS_HEADER_INSERT_ERR');
842: FND_MESSAGE.SET_TOKEN('JOB_NAME', l_transactions_interface_rec.transaction_source_id );
843: FND_MSG_PUB.ADD;
844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
845: RETURN;
846: END;
847:
905:
906: EXCEPTION
907: WHEN OTHERS THEN
908: FND_MESSAGE.SET_NAME('CSD','CSD_TXNS_HEADER_UPDATE_ERR');
909: FND_MSG_PUB.ADD;
910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
911: RETURN;
912: END;
913:
994:
995: EXCEPTION
996: WHEN OTHERS THEN
997: FND_MESSAGE.SET_NAME('CSD','CSD_TXN_LOTS_INSERT_ERR');
998: FND_MSG_PUB.ADD;
999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1000: RETURN;
1001: END;
1002:
1060:
1061: EXCEPTION
1062: WHEN OTHERS THEN
1063: FND_MESSAGE.SET_NAME('CSD','CSD_SRL_NMBRS_UPDATE_ERR');
1064: FND_MSG_PUB.ADD;
1065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1066: RETURN;
1067: END;
1068:
1103:
1104: EXCEPTION
1105: WHEN OTHERS THEN
1106: FND_MESSAGE.SET_NAME('CSD','CSD_SRL_NMBRS_INSERT_ERR');
1107: FND_MSG_PUB.ADD;
1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1109: RETURN;
1110: END;
1111:
1240:
1241: EXCEPTION
1242: WHEN OTHERS THEN
1243: FND_MESSAGE.SET_NAME('CSD','CSD_WIP_COST_TXN_INSERT_ERR');
1244: FND_MSG_PUB.ADD;
1245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1246: RETURN;
1247:
1248: END;
1369:
1370: EXCEPTION
1371: WHEN OTHERS THEN
1372: FND_MESSAGE.SET_NAME('CSD','CSD_WIP_MOVE_TXN_INSERT_ERR');
1373: FND_MSG_PUB.ADD;
1374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1375: RETURN;
1376:
1377: END;
1433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1434: END IF;
1435:
1436: IF FND_API.to_boolean(p_init_msg_list) THEN
1437: FND_MSG_PUB.initialize;
1438: END IF;
1439:
1440: x_return_status := FND_API.G_RET_STS_SUCCESS;
1441:
1458: );
1459:
1460: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1461: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_COMP_TXN_FAILURE');
1462: FND_MSG_PUB.ADD;
1463: RAISE FND_API.G_EXC_ERROR;
1464: END IF;
1465:
1466: -- if no need for details, then we can process transactions and commit
1482: -- p_txn_type IN VARCHAR2
1483: );
1484: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1485: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_COMP_TXN_FAILURE');
1486: FND_MSG_PUB.ADD;
1487: RAISE FND_API.G_EXC_ERROR;
1488: END IF;
1489: ELSE
1490: --if we need details, pass back the transaction header id
1501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1502: ROLLBACK to PROCESS_JOB_COMP_TXN_PVT ;
1503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1504:
1505: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1506: p_count => x_msg_count,
1507: p_data => x_msg_data);
1508:
1509: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1516: WHEN FND_API.G_EXC_ERROR THEN
1517: ROLLBACK to PROCESS_JOB_COMP_TXN_PVT ;
1518: x_return_status := FND_API.G_RET_STS_ERROR;
1519:
1520: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1521: p_count => x_msg_count,
1522: p_data => x_msg_data);
1523:
1524: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1530: WHEN OTHERS THEN
1531: ROLLBACK to PROCESS_JOB_COMP_TXN_PVT ;
1532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1533:
1534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1535: -- Add Unexpected Error to Message List, here SQLERRM is used for
1536: -- getting the error
1537: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
1538: p_procedure_name => lc_api_name );
1533:
1534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1535: -- Add Unexpected Error to Message List, here SQLERRM is used for
1536: -- getting the error
1537: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
1538: p_procedure_name => lc_api_name );
1539: END IF;
1540:
1541: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1537: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
1538: p_procedure_name => lc_api_name );
1539: END IF;
1540:
1541: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1542: p_count => x_msg_count,
1543: p_data => x_msg_data);
1544:
1545: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1720: END IF;
1721:
1722:
1723: IF FND_API.to_boolean(p_init_msg_list) THEN
1724: FND_MSG_PUB.initialize;
1725: END IF;
1726:
1727: -- initialize out params
1728: x_return_status := FND_API.G_RET_STS_SUCCESS;
1754: IF (get_last_operation_dtls%FOUND) THEN
1755: l_transaction_quantity := l_last_op_move_quantity;
1756: IF l_last_move_allowed = 'N' THEN
1757: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_COMP_MV_NOT_ALL');
1758: FND_MSG_PUB.ADD;
1759: close get_last_operation_dtls;
1760: RAISE FND_API.G_EXC_ERROR;
1761: END IF;
1762: END IF;
1763: close get_last_operation_dtls;
1764:
1765: IF l_transaction_quantity <= 0 THEN
1766: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_COMP_ZER_QTY');
1767: FND_MSG_PUB.ADD;
1768: RAISE FND_API.G_EXC_ERROR;
1769: END IF;
1770:
1771: l_transactions_interface_rec.source_code := lc_completion_source_code;
1935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1936: ROLLBACK to INSERT_JOB_COMP_TXN_PVT ;
1937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1938:
1939: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1940: p_count => x_msg_count,
1941: p_data => x_msg_data);
1942:
1943: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1951: ROLLBACK to INSERT_JOB_COMP_TXN_PVT ;
1952: x_return_status := FND_API.G_RET_STS_ERROR;
1953:
1954:
1955: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1956: p_count => x_msg_count,
1957: p_data => x_msg_data);
1958:
1959: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1965: WHEN OTHERS THEN
1966: ROLLBACK to INSERT_JOB_COMP_TXN_PVT ;
1967: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1968:
1969: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1970:
1971: -- Add Unexpected Error to Message List, here SQLERRM is used for
1972: -- getting the error
1973:
1970:
1971: -- Add Unexpected Error to Message List, here SQLERRM is used for
1972: -- getting the error
1973:
1974: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
1975: p_procedure_name => lc_api_name );
1976: END IF;
1977:
1978: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1974: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
1975: p_procedure_name => lc_api_name );
1976: END IF;
1977:
1978: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1979: p_count => x_msg_count,
1980: p_data => x_msg_data);
1981:
1982: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2027: END IF;
2028:
2029:
2030: IF FND_API.to_boolean(p_init_msg_list) THEN
2031: FND_MSG_PUB.initialize;
2032: END IF;
2033: x_return_status := FND_API.G_RET_STS_SUCCESS;
2034:
2035: -- Populate the constant values
2055:
2056: IF ( txn_int_error_exists( p_txn_header_id) or
2057: x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2058: FND_MESSAGE.SET_NAME('CSD','CSD_PROCESS_MTI_TXN_FAILURE');
2059: FND_MSG_PUB.ADD;
2060: RAISE FND_API.G_EXC_ERROR;
2061: END IF;
2062:
2063: -- Standard check for p_commit
2070: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2071: ROLLBACK to PROCESS_MTI_TRANSACTIONS_PVT ;
2072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2073:
2074: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2075: p_count => x_msg_count,
2076: p_data => x_msg_data);
2077:
2078: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2085: WHEN FND_API.G_EXC_ERROR THEN
2086: ROLLBACK to PROCESS_MTI_TRANSACTIONS_PVT ;
2087: x_return_status := FND_API.G_RET_STS_ERROR;
2088:
2089: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2090: p_count => x_msg_count,
2091: p_data => x_msg_data);
2092:
2093: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2099: WHEN OTHERS THEN
2100: ROLLBACK to PROCESS_MTI_TRANSACTIONS_PVT ;
2101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2102:
2103: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2104: -- Add Unexpected Error to Message List, here SQLERRM is used for
2105: -- getting the error
2106: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
2107: p_procedure_name => lc_api_name );
2102:
2103: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2104: -- Add Unexpected Error to Message List, here SQLERRM is used for
2105: -- getting the error
2106: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
2107: p_procedure_name => lc_api_name );
2108: END IF;
2109:
2110: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2106: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
2107: p_procedure_name => lc_api_name );
2108: END IF;
2109:
2110: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2111: p_count => x_msg_count,
2112: p_data => x_msg_data);
2113:
2114: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2219: END IF;
2220:
2221:
2222: IF FND_API.to_boolean(p_init_msg_list) THEN
2223: FND_MSG_PUB.initialize;
2224: END IF;
2225:
2226:
2227:
2269: -- to skip operations for the same job. (eg, complete 10, skip 20, complete 30)
2270: IF l_prev_wip_entity_id = p_mv_txn_dtls_tbl(mv_ctr).wip_entity_id THEN
2271: IF l_prev_to_operation_seq_num <> p_mv_txn_dtls_tbl(mv_ctr).fm_operation_seq_num THEN
2272: FND_MESSAGE.SET_NAME('CSD','CSD_OP_COMP_SEQ_ERROR');
2273: FND_MSG_PUB.ADD;
2274: RAISE FND_API.G_EXC_ERROR;
2275: ELSE
2276: l_wip_move_txn_interface_rec.transaction_quantity := p_mv_txn_dtls_tbl(mv_ctr).transaction_quantity +
2277: l_prev_transaction_quantity;
2369: -- ROLLBACK to PROCESS_OPER_COMP_TXN_PVT ;
2370:
2371:
2372: FND_MESSAGE.SET_NAME('CSD','CSD_MOVE_TXN_FAILURE');
2373: FND_MSG_PUB.ADD;
2374: RAISE FND_API.G_EXC_ERROR;
2375: -- Need to rollback Raise exception -
2376: -- once commit is removed from above call
2377:
2385: ROLLBACK to PROCESS_OPER_COMP_TXN_PVT ;
2386:
2387:
2388: FND_MESSAGE.SET_NAME('CSD','CSD_MOVE_TXN_FAILURE');
2389: FND_MSG_PUB.ADD;
2390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; */
2391:
2392:
2393: /* IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2412: ROLLBACK to PROCESS_OPER_COMP_TXN_PVT ;
2413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2414:
2415: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2416: p_count => x_msg_count,
2417: p_data => x_msg_data);
2418:
2419: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2427: ROLLBACK to PROCESS_OPER_COMP_TXN_PVT ;
2428: x_return_status := FND_API.G_RET_STS_ERROR;
2429:
2430:
2431: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2432: p_count => x_msg_count,
2433: p_data => x_msg_data);
2434:
2435: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2441: WHEN OTHERS THEN
2442: ROLLBACK to PROCESS_OPER_COMP_TXN_PVT ;
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2444:
2445: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2446:
2447: -- Add Unexpected Error to Message List, here SQLERRM is used for
2448: -- getting the error
2449:
2446:
2447: -- Add Unexpected Error to Message List, here SQLERRM is used for
2448: -- getting the error
2449:
2450: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
2451: p_procedure_name => lc_api_name );
2452: END IF;
2453:
2454: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2450: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
2451: p_procedure_name => lc_api_name );
2452: END IF;
2453:
2454: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2455: p_count => x_msg_count,
2456: p_data => x_msg_data);
2457:
2458: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2592: END IF;
2593:
2594:
2595: IF FND_API.to_boolean(p_init_msg_list) THEN
2596: FND_MSG_PUB.initialize;
2597: END IF;
2598:
2599:
2600:
2670: l_transactions_interface_rec.transaction_quantity := (-1) * p_mtl_txn_dtls_tbl(mtl_ctr).transaction_quantity;
2671:
2672: If l_transactions_interface_rec.transaction_quantity = 0 then
2673: FND_MESSAGE.SET_NAME('CSD','CSD_ISS_QTY_ZERO');
2674: FND_MSG_PUB.ADD;
2675: RAISE FND_API.G_EXC_ERROR;
2676: end if;
2677:
2678:
3155:
3156: -- IF nvl( x_msg_count, 0 ) = 0 THEN
3157:
3158: FND_MESSAGE.SET_NAME('CSD','CSD_MAT_TXN_FAILURE');
3159: FND_MSG_PUB.ADD;
3160:
3161: RAISE FND_API.G_EXC_ERROR;
3162:
3163: -- END IF;
3193: x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3194:
3195:
3196: FND_MESSAGE.SET_NAME('CSD','CSD_MTL_ISS_MASS_LD_FAILURE');
3197: FND_MSG_PUB.ADD;
3198: x_return_status := FND_API.G_RET_STS_ERROR;
3199:
3200: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3201: p_count => x_msg_count,
3196: FND_MESSAGE.SET_NAME('CSD','CSD_MTL_ISS_MASS_LD_FAILURE');
3197: FND_MSG_PUB.ADD;
3198: x_return_status := FND_API.G_RET_STS_ERROR;
3199:
3200: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3201: p_count => x_msg_count,
3202: p_data => x_msg_data);
3203:
3204: RETURN;
3211: WHEN OTHERS THEN
3212:
3213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3214:
3215: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3216:
3217: -- Add Unexpected Error to Message List, here SQLERRM is used for
3218: -- getting the error
3219:
3216:
3217: -- Add Unexpected Error to Message List, here SQLERRM is used for
3218: -- getting the error
3219:
3220: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
3221: p_procedure_name => lc_api_name );
3222: END IF;
3223:
3224: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3220: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
3221: p_procedure_name => lc_api_name );
3222: END IF;
3223:
3224: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3225: p_count => x_msg_count,
3226: p_data => x_msg_data);
3227:
3228: END;
3233: -- dbms_output.put_line('WIP Update Error');
3234:
3235:
3236: FND_MESSAGE.SET_NAME('CSD','CSD_MAT_TXN_FAILURE');
3237: FND_MSG_PUB.ADD;
3238: RETURN; */
3239: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3240:
3241:
3265: -- dbms_output.put_line( 'FND_API.G_EXC_UNEXPECTED_ERROR error'|| sqlerrm);
3266: ROLLBACK to PROCESS_ISSUE_MTL_TXN_PVT ;
3267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3268:
3269: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3270: p_count => x_msg_count,
3271: p_data => x_msg_data);
3272:
3273: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3281: ROLLBACK to PROCESS_ISSUE_MTL_TXN_PVT ;
3282: x_return_status := FND_API.G_RET_STS_ERROR;
3283:
3284:
3285: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3286: p_count => x_msg_count,
3287: p_data => x_msg_data);
3288:
3289: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3296: -- dbms_output.put_line( 'OTHERS error' || sqlerrm );
3297: ROLLBACK to PROCESS_ISSUE_MTL_TXN_PVT ;
3298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3299:
3300: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3301:
3302: -- Add Unexpected Error to Message List, here SQLERRM is used for
3303: -- getting the error
3304:
3301:
3302: -- Add Unexpected Error to Message List, here SQLERRM is used for
3303: -- getting the error
3304:
3305: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
3306: p_procedure_name => lc_api_name );
3307: -- END IF;
3308:
3309: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3305: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
3306: p_procedure_name => lc_api_name );
3307: -- END IF;
3308:
3309: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3310: p_count => x_msg_count,
3311: p_data => x_msg_data);
3312:
3313: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3362: END IF;
3363:
3364: IF FND_API.to_boolean(p_init_msg_list) THEN
3365: FND_MSG_PUB.initialize;
3366: END IF;
3367:
3368: x_return_status := FND_API.G_RET_STS_SUCCESS;
3369:
3384: p_transaction_header_id => p_transaction_header_id
3385: );
3386: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3387: FND_MESSAGE.SET_NAME('CSD','CSD_MAT_TXN_FAILURE');
3388: FND_MSG_PUB.ADD;
3389: RAISE FND_API.G_EXC_ERROR;
3390: END IF;
3391:
3392: IF ( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3406: -- p_txn_type IN VARCHAR2
3407: );
3408: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3409: FND_MESSAGE.SET_NAME('CSD','CSD_MAT_TXN_FAILURE');
3410: FND_MSG_PUB.ADD;
3411: RAISE FND_API.G_EXC_ERROR;
3412: END IF;
3413:
3414: -- Standard check for p_commit
3421: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3422: ROLLBACK to PROCESS_MTL_TXNS_LOT_SRL_PVT ;
3423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3424:
3425: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3426: p_count => x_msg_count,
3427: p_data => x_msg_data);
3428:
3429: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3435: WHEN FND_API.G_EXC_ERROR THEN
3436: ROLLBACK to PROCESS_MTL_TXNS_LOT_SRL_PVT ;
3437: x_return_status := FND_API.G_RET_STS_ERROR;
3438:
3439: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3440: p_count => x_msg_count,
3441: p_data => x_msg_data);
3442:
3443: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3449: WHEN OTHERS THEN
3450: ROLLBACK to PROCESS_MTL_TXNS_LOT_SRL_PVT ;
3451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3452:
3453: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3454: -- Add Unexpected Error to Message List, here SQLERRM is used for
3455: -- getting the error
3456: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
3457: p_procedure_name => lc_api_name );
3452:
3453: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3454: -- Add Unexpected Error to Message List, here SQLERRM is used for
3455: -- getting the error
3456: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
3457: p_procedure_name => lc_api_name );
3458: END IF;
3459:
3460: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3456: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
3457: p_procedure_name => lc_api_name );
3458: END IF;
3459:
3460: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3461: p_count => x_msg_count,
3462: p_data => x_msg_data);
3463:
3464: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3524: END IF;
3525:
3526: IF FND_API.to_boolean(p_init_msg_list) THEN
3527: FND_MSG_PUB.initialize;
3528: END IF;
3529:
3530: x_return_status := FND_API.G_RET_STS_SUCCESS;
3531:
3624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3625: ROLLBACK to UPDATE_MTL_TXNS_LOT_SRL_PVT ;
3626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3627:
3628: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3629: p_count => x_msg_count,
3630: p_data => x_msg_data);
3631:
3632: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3638: WHEN FND_API.G_EXC_ERROR THEN
3639: ROLLBACK to UPDATE_MTL_TXNS_LOT_SRL_PVT ;
3640: x_return_status := FND_API.G_RET_STS_ERROR;
3641:
3642: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3643: p_count => x_msg_count,
3644: p_data => x_msg_data);
3645:
3646: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3652: WHEN OTHERS THEN
3653: ROLLBACK to UPDATE_MTL_TXNS_LOT_SRL_PVT ;
3654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3655:
3656: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3657: -- Add Unexpected Error to Message List, here SQLERRM is used for
3658: -- getting the error
3659: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
3660: p_procedure_name => lc_api_name );
3655:
3656: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3657: -- Add Unexpected Error to Message List, here SQLERRM is used for
3658: -- getting the error
3659: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
3660: p_procedure_name => lc_api_name );
3661: END IF;
3662:
3663: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3659: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
3660: p_procedure_name => lc_api_name );
3661: END IF;
3662:
3663: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3664: p_count => x_msg_count,
3665: p_data => x_msg_data);
3666:
3667: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3748: END IF;
3749:
3750:
3751: IF FND_API.to_boolean(p_init_msg_list) THEN
3752: FND_MSG_PUB.initialize;
3753: END IF;
3754:
3755:
3756:
3782: -- Uncomment following later - once profiles are defined
3783: /* IF l_job_details_rec.autocharge_type is NULL THEN
3784:
3785: FND_MESSAGE.SET_NAME('CSD','CSD_ATCHG_TYP_NULL');
3786: FND_MSG_PUB.ADD;
3787: RAISE FND_API.G_EXC_ERROR;
3788: end if;
3789:
3790:
3794:
3795: IF l_job_details_rec.basis_type is NULL THEN
3796:
3797: FND_MESSAGE.SET_NAME('CSD','CSD_BASIS_TYP_NULL');
3798: FND_MSG_PUB.ADD;
3799: RAISE FND_API.G_EXC_ERROR;
3800: end if;
3801:
3802: l_job_details_rec.scheduled_flag := fnd_profile.value('CSD_HV_SCD_FLG');
3805:
3806: IF l_job_details_rec.scheduled_flag is NULL THEN
3807:
3808: FND_MESSAGE.SET_NAME('CSD','CSD_SCD_FLG_NULL');
3809: FND_MSG_PUB.ADD;
3810: RAISE FND_API.G_EXC_ERROR;
3811: end if;
3812:
3813: l_job_details_rec.standard_rate_flag := fnd_profile.value('CSD_HV_STD_FLG');
3816:
3817: IF l_job_details_rec.standard_rate_flag is NULL THEN
3818:
3819: FND_MESSAGE.SET_NAME('CSD','CSD_STD_FLG_NULL');
3820: FND_MSG_PUB.ADD;
3821: RAISE FND_API.G_EXC_ERROR;
3822: end if; */
3823:
3824: l_wip_cost_txn_interface_rec.transaction_date := sysdate;
3847: l_wip_cost_txn_interface_rec.transaction_quantity := p_res_txn_dtls_tbl(res_ctr).transaction_quantity;
3848:
3849: If l_wip_cost_txn_interface_rec.transaction_quantity = 0 then
3850: FND_MESSAGE.SET_NAME('CSD','CSD_TRX_QTY_ZERO');
3851: FND_MSG_PUB.ADD;
3852: RAISE FND_API.G_EXC_ERROR;
3853: end if;
3854:
3855: l_wip_cost_txn_interface_rec.transaction_uom := p_res_txn_dtls_tbl(res_ctr).transaction_uom;
4045: If ( ml_error_exists( l_job_header_rec.group_id ) or
4046: x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4047:
4048: FND_MESSAGE.SET_NAME('CSD','CSD_RES_TXN_MASS_LD_FAILURE');
4049: FND_MSG_PUB.ADD;
4050: x_return_status := FND_API.G_RET_STS_ERROR;
4051:
4052: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4053: p_count => x_msg_count,
4048: FND_MESSAGE.SET_NAME('CSD','CSD_RES_TXN_MASS_LD_FAILURE');
4049: FND_MSG_PUB.ADD;
4050: x_return_status := FND_API.G_RET_STS_ERROR;
4051:
4052: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4053: p_count => x_msg_count,
4054: p_data => x_msg_data);
4055:
4056: RETURN;
4063: WHEN OTHERS THEN
4064:
4065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4066:
4067: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4068:
4069: -- Add Unexpected Error to Message List, here SQLERRM is used for
4070: -- getting the error
4071:
4068:
4069: -- Add Unexpected Error to Message List, here SQLERRM is used for
4070: -- getting the error
4071:
4072: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
4073: p_procedure_name => lc_api_name );
4074: END IF;
4075:
4076: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4072: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
4073: p_procedure_name => lc_api_name );
4074: END IF;
4075:
4076: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4077: p_count => x_msg_count,
4078: p_data => x_msg_data);
4079:
4080: END;
4083: /* IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4084: -- ROLLBACK to PROCESS_TRANSACT_RES_TXN_PVT ;
4085:
4086: FND_MESSAGE.SET_NAME('CSD','CSD_RES_TXN_FAILURE');
4087: FND_MSG_PUB.ADD;
4088: RETURN; -- later - once wip works - can remove this
4089: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4090: */
4091:
4113: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4114: ROLLBACK to PROCESS_TRANSACT_RES_TXN_PVT ;
4115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4116:
4117: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4118: p_count => x_msg_count,
4119: p_data => x_msg_data);
4120:
4121: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
4129: ROLLBACK to PROCESS_TRANSACT_RES_TXN_PVT ;
4130: x_return_status := FND_API.G_RET_STS_ERROR;
4131:
4132:
4133: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4134: p_count => x_msg_count,
4135: p_data => x_msg_data);
4136:
4137: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
4143: WHEN OTHERS THEN
4144: ROLLBACK to PROCESS_TRANSACT_RES_TXN_PVT ;
4145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4146:
4147: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4148:
4149: -- Add Unexpected Error to Message List, here SQLERRM is used for
4150: -- getting the error
4151:
4148:
4149: -- Add Unexpected Error to Message List, here SQLERRM is used for
4150: -- getting the error
4151:
4152: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
4153: p_procedure_name => lc_api_name );
4154: END IF;
4155:
4156: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4152: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
4153: p_procedure_name => lc_api_name );
4154: END IF;
4155:
4156: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4157: p_count => x_msg_count,
4158: p_data => x_msg_data);
4159:
4160: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
4262: END IF;
4263:
4264: -- Initialize message list if p_init_msg_list is set to TRUE
4265: IF FND_API.to_boolean(p_init_msg_list) THEN
4266: FND_MSG_PUB.initialize;
4267: END IF;
4268:
4269:
4270: x_return_status := FND_API.G_RET_STS_SUCCESS;
4326: -- we cannot add the material to operation 1 since
4327: -- it would force a wip_supply_type of pull, which
4328: -- required backflush.
4329: FND_MESSAGE.SET_NAME('CSD','CSD_DEF_OP_DEPT_NULL');
4330: FND_MSG_PUB.ADD;
4331: RAISE FND_API.G_EXC_ERROR;
4332: else
4333: l_op_dtls_tbl(1).new_row := 'Y';
4334: l_op_dtls_tbl(1).wip_entity_id := p_mtl_txn_dtls_tbl(mtl_ctr).wip_entity_id;
4357: l_op_seq_num := l_op_dtls_tbl(1).operation_seq_num;
4358: x_op_created := FND_API.G_TRUE;
4359: else
4360: FND_MESSAGE.SET_NAME('CSD','CSD_OP_AUTO_CREATE_FAILURE');
4361: FND_MSG_PUB.ADD;
4362: RAISE FND_API.G_EXC_ERROR;
4363: end if;
4364: end if; -- department profile
4365: end if; -- operation does not exist
4391: l_job_details_rec.supply_subinventory := p_mtl_txn_dtls_tbl(mtl_ctr).supply_subinventory;
4392:
4393: If l_job_details_rec.supply_subinventory is null then
4394: FND_MESSAGE.SET_NAME('CSD','CSD_DEF_SUB_INV_NULL');
4395: FND_MSG_PUB.ADD;
4396: RAISE FND_API.G_EXC_ERROR;
4397: end if;
4398:
4399:
4451: If ( ml_error_exists( l_job_header_rec.group_id ) or
4452: x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4453:
4454: FND_MESSAGE.SET_NAME('CSD','CSD_MTL_ADD_MASS_LD_FAILURE');
4455: FND_MSG_PUB.ADD;
4456: x_return_status := FND_API.G_RET_STS_ERROR;
4457:
4458: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4459: p_count => x_msg_count,
4454: FND_MESSAGE.SET_NAME('CSD','CSD_MTL_ADD_MASS_LD_FAILURE');
4455: FND_MSG_PUB.ADD;
4456: x_return_status := FND_API.G_RET_STS_ERROR;
4457:
4458: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4459: p_count => x_msg_count,
4460: p_data => x_msg_data);
4461: -- Need to rollback Raise exception -
4462: -- once commit is removed from above call
4472: -- when rollback for WIP works, remove x_return_status, count_and_get,
4473: -- and return then reinstate raise exception above
4474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4475: /*
4476: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4477: -- Add Unexpected Error to Message List, here SQLERRM is used for
4478: -- getting the error
4479:
4480: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
4476: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4477: -- Add Unexpected Error to Message List, here SQLERRM is used for
4478: -- getting the error
4479:
4480: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
4481: p_procedure_name => lc_api_name );
4482: END IF;
4483: */
4484: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4480: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
4481: p_procedure_name => lc_api_name );
4482: END IF;
4483: */
4484: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4485: p_count => x_msg_count,
4486: p_data => x_msg_data);
4487:
4488: END;
4578: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4579: ROLLBACK to PROCESS_SAVE_MTL_TXN_DTLS_PVT ;
4580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4581:
4582: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4583: p_count => x_msg_count,
4584: p_data => x_msg_data);
4585:
4586: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
4594: ROLLBACK to PROCESS_SAVE_MTL_TXN_DTLS_PVT ;
4595: x_return_status := FND_API.G_RET_STS_ERROR;
4596:
4597:
4598: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4599: p_count => x_msg_count,
4600: p_data => x_msg_data);
4601:
4602: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
4608: WHEN OTHERS THEN
4609: ROLLBACK to PROCESS_SAVE_MTL_TXN_DTLS_PVT ;
4610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4611:
4612: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4613:
4614: -- Add Unexpected Error to Message List, here SQLERRM is used for
4615: -- getting the error
4616:
4613:
4614: -- Add Unexpected Error to Message List, here SQLERRM is used for
4615: -- getting the error
4616:
4617: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
4618: p_procedure_name => lc_api_name );
4619: END IF;
4620:
4621: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4617: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
4618: p_procedure_name => lc_api_name );
4619: END IF;
4620:
4621: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4622: p_count => x_msg_count,
4623: p_data => x_msg_data);
4624:
4625: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
4732:
4733:
4734: -- Initialize message list if p_init_msg_list is set to TRUE
4735: IF FND_API.to_boolean(p_init_msg_list) THEN
4736: FND_MSG_PUB.initialize;
4737: END IF;
4738:
4739: x_return_status := FND_API.G_RET_STS_SUCCESS;
4740:
4870: If ( ml_error_exists( l_job_header_rec.group_id ) or
4871: x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4872:
4873: FND_MESSAGE.SET_NAME('CSD','CSD_RES_ADD_MASS_LD_FAILURE');
4874: FND_MSG_PUB.ADD;
4875: x_return_status := FND_API.G_RET_STS_ERROR;
4876:
4877: FND_MSG_PUB.count_and_get(p_encoded => FND_API.G_FALSE,
4878: p_count => x_msg_count,
4873: FND_MESSAGE.SET_NAME('CSD','CSD_RES_ADD_MASS_LD_FAILURE');
4874: FND_MSG_PUB.ADD;
4875: x_return_status := FND_API.G_RET_STS_ERROR;
4876:
4877: FND_MSG_PUB.count_and_get(p_encoded => FND_API.G_FALSE,
4878: p_count => x_msg_count,
4879: p_data => x_msg_data);
4880:
4881: -- Need to rollback Raise exception -
4893: -- when rollback for WIP works, remove x_return_status, count_and_get,
4894: -- and return then reinstate raise exception above
4895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4896: /*
4897: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4898: -- Add Unexpected Error to Message List, here SQLERRM is used for
4899: -- getting the error
4900: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
4901: p_procedure_name => lc_api_name );
4896: /*
4897: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4898: -- Add Unexpected Error to Message List, here SQLERRM is used for
4899: -- getting the error
4900: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
4901: p_procedure_name => lc_api_name );
4902: END IF;
4903: */
4904: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4900: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
4901: p_procedure_name => lc_api_name );
4902: END IF;
4903: */
4904: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4905: p_count => x_msg_count,
4906: p_data => x_msg_data);
4907: return;
4908: END;
4999: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5000: ROLLBACK to PROCESS_SAVE_RES_TXN_DTLS_PVT ;
5001: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5002:
5003: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5004: p_count => x_msg_count,
5005: p_data => x_msg_data);
5006:
5007: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
5015: ROLLBACK to PROCESS_SAVE_RES_TXN_DTLS_PVT ;
5016: x_return_status := FND_API.G_RET_STS_ERROR;
5017:
5018:
5019: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5020: p_count => x_msg_count,
5021: p_data => x_msg_data);
5022:
5023: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
5029: WHEN OTHERS THEN
5030: ROLLBACK to PROCESS_SAVE_RES_TXN_DTLS_PVT ;
5031: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5032:
5033: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5034:
5035: -- Add Unexpected Error to Message List, here SQLERRM is used for
5036: -- getting the error
5037:
5034:
5035: -- Add Unexpected Error to Message List, here SQLERRM is used for
5036: -- getting the error
5037:
5038: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
5039: p_procedure_name => lc_api_name );
5040: END IF;
5041:
5042: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5038: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
5039: p_procedure_name => lc_api_name );
5040: END IF;
5041:
5042: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5043: p_count => x_msg_count,
5044: p_data => x_msg_data);
5045:
5046: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
5119:
5120:
5121: -- Initialize message list if p_init_msg_list is set to TRUE
5122: IF FND_API.to_boolean(p_init_msg_list) THEN
5123: FND_MSG_PUB.initialize;
5124: END IF;
5125:
5126: x_return_status := FND_API.G_RET_STS_SUCCESS;
5127:
5227: If ( ml_error_exists( l_job_header_rec.group_id ) or
5228: x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5229:
5230: FND_MESSAGE.SET_NAME('CSD','CSD_OP_ADD_MASS_LD_FAILURE');
5231: FND_MSG_PUB.ADD;
5232: x_return_status := FND_API.G_RET_STS_ERROR;
5233:
5234: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5235: p_count => x_msg_count,
5230: FND_MESSAGE.SET_NAME('CSD','CSD_OP_ADD_MASS_LD_FAILURE');
5231: FND_MSG_PUB.ADD;
5232: x_return_status := FND_API.G_RET_STS_ERROR;
5233:
5234: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5235: p_count => x_msg_count,
5236: p_data => x_msg_data);
5237:
5238: -- Need to rollback Raise exception -
5249: -- when rollback for WIP works, remove x_return_status, count_and_get,
5250: -- and return then reinstate raise exception above
5251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5252: /*
5253: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5254:
5255: -- Add Unexpected Error to Message List, here SQLERRM is used for
5256: -- getting the error
5257:
5254:
5255: -- Add Unexpected Error to Message List, here SQLERRM is used for
5256: -- getting the error
5257:
5258: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
5259: p_procedure_name => lc_api_name );
5260: END IF;
5261: */
5262: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5258: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
5259: p_procedure_name => lc_api_name );
5260: END IF;
5261: */
5262: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5263: p_count => x_msg_count,
5264: p_data => x_msg_data);
5265: return;
5266: END;
5355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5356: ROLLBACK to PROCESS_SAVE_OP_DTLS_PVT ;
5357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5358:
5359: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5360: p_count => x_msg_count,
5361: p_data => x_msg_data);
5362:
5363: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
5371: ROLLBACK to PROCESS_SAVE_OP_DTLS_PVT ;
5372: x_return_status := FND_API.G_RET_STS_ERROR;
5373:
5374:
5375: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5376: p_count => x_msg_count,
5377: p_data => x_msg_data);
5378:
5379: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
5385: WHEN OTHERS THEN
5386: ROLLBACK to PROCESS_SAVE_OP_DTLS_PVT ;
5387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5388:
5389: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5390:
5391: -- Add Unexpected Error to Message List, here SQLERRM is used for
5392: -- getting the error
5393:
5390:
5391: -- Add Unexpected Error to Message List, here SQLERRM is used for
5392: -- getting the error
5393:
5394: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
5395: p_procedure_name => lc_api_name );
5396: END IF;
5397:
5398: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5394: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
5395: p_procedure_name => lc_api_name );
5396: END IF;
5397:
5398: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5399: p_count => x_msg_count,
5400: p_data => x_msg_data);
5401:
5402: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
5530: END IF;
5531:
5532: -- Initialize message list if p_init_msg_list is set to TRUE
5533: IF FND_API.to_boolean(p_init_msg_list) THEN
5534: FND_MSG_PUB.initialize;
5535: END IF;
5536:
5537: -- Initialize API return status to success
5538: x_return_status:=FND_API.G_RET_STS_SUCCESS;
5545:
5546: IF l_job_header_rec.organization_id is NULL THEN
5547:
5548: FND_MESSAGE.SET_NAME('CSD','CSD_DEF_REP_INV_NULL');
5549: FND_MSG_PUB.ADD;
5550: RAISE FND_API.G_EXC_ERROR;
5551: end if;
5552:
5553:
5559:
5560: IF l_job_prefix is NULL THEN
5561:
5562: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_PREFIX_NULL');
5563: FND_MSG_PUB.ADD;
5564: RAISE FND_API.G_EXC_ERROR;
5565: end if;
5566:
5567:
5573:
5574: IF l_job_header_rec.class_code is NULL THEN
5575:
5576: FND_MESSAGE.SET_NAME('CSD','CSD_CLASS_CODE_NULL');
5577: FND_MSG_PUB.ADD;
5578: RAISE FND_API.G_EXC_ERROR;
5579: end if;
5580:
5581:
5683: -- ROLLBACK to CREATE_WIP_JOB_PVT ;
5684:
5685:
5686: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_CREAT_FAILURE');
5687: FND_MSG_PUB.ADD;
5688: RAISE FND_API.G_EXC_ERROR;
5689:
5690: -- Need to rollback Raise exception -
5691: -- once commit is removed from above call
5782: x_msg_count => x_msg_count,
5783: x_msg_data => x_msg_data);
5784: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5785: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_GEN_FAILURE');
5786: FND_MSG_PUB.ADD;
5787: RAISE FND_API.G_EXC_ERROR;
5788: END IF;
5789: end if;
5790: end if; -- swai: bug 7477845/7483291 num other jobs = 0
5797: ROLLBACK to CREATE_WIP_JOB_PVT ;
5798:
5799:
5800: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_CREAT_FAILURE');
5801: FND_MSG_PUB.ADD;
5802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR; */
5803:
5804:
5805: -- dbms_output.put_line('In Error');
5990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5991: ROLLBACK to CREATE_WIP_JOB_PVT ;
5992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5993:
5994: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5995: p_count => x_msg_count,
5996: p_data => x_msg_data);
5997:
5998: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
6006: ROLLBACK to CREATE_WIP_JOB_PVT ;
6007: x_return_status := FND_API.G_RET_STS_ERROR;
6008:
6009:
6010: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6011: p_count => x_msg_count,
6012: p_data => x_msg_data);
6013:
6014: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
6020: WHEN OTHERS THEN
6021: ROLLBACK to CREATE_WIP_JOB_PVT ;
6022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6023:
6024: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6025:
6026: -- Add Unexpected Error to Message List, here SQLERRM is used for
6027: -- getting the error
6028:
6025:
6026: -- Add Unexpected Error to Message List, here SQLERRM is used for
6027: -- getting the error
6028:
6029: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
6030: p_procedure_name => lc_api_name );
6031: END IF;
6032:
6033: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6029: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
6030: p_procedure_name => lc_api_name );
6031: END IF;
6032:
6033: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6034: p_count => x_msg_count,
6035: p_data => x_msg_data);
6036:
6037: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
6202: END IF;
6203:
6204: -- Initialize message list if p_init_msg_list is set to TRUE
6205: IF FND_API.to_boolean(p_init_msg_list) THEN
6206: FND_MSG_PUB.initialize;
6207: END IF;
6208:
6209: -- Initialize API return status to success
6210: x_return_status:=FND_API.G_RET_STS_SUCCESS;
6215:
6216: IF l_job_header_rec.organization_id is NULL THEN
6217:
6218: FND_MESSAGE.SET_NAME('CSD','CSD_DEF_REP_INV_NULL');
6219: FND_MSG_PUB.ADD;
6220: RAISE FND_API.G_EXC_ERROR;
6221: END IF;
6222:
6223: l_job_prefix := fnd_profile.value('CSD_DEFAULT_JOB_PREFIX');
6224:
6225: -- If l_job_prefix is null, throw an error and return;
6226: IF l_job_prefix is NULL THEN
6227: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_PREFIX_NULL');
6228: FND_MSG_PUB.ADD;
6229: RAISE FND_API.G_EXC_ERROR;
6230: END IF;
6231:
6232: l_job_header_rec.class_code :=
6233: fnd_profile.value('CSD_DEF_WIP_ACCOUNTING_CLASS');
6234:
6235: IF l_job_header_rec.class_code is NULL THEN
6236: FND_MESSAGE.SET_NAME('CSD','CSD_CLASS_CODE_NULL');
6237: FND_MSG_PUB.ADD;
6238: RAISE FND_API.G_EXC_ERROR;
6239: END IF;
6240:
6241: -- Populate the Job Header Record
6350: -- ROLLBACK to GENERATE_WIP_JOBS_FROM_SCS_PVT ;
6351:
6352:
6353: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_GEN_FAILURE');
6354: FND_MSG_PUB.ADD;
6355: RAISE FND_API.G_EXC_ERROR;
6356:
6357: -- Need to rollback Raise exception -
6358: -- once commit is removed from above call
6458: x_msg_count => x_msg_count,
6459: x_msg_data => x_msg_data);
6460: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6461: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_GEN_FAILURE');
6462: FND_MSG_PUB.ADD;
6463: RAISE FND_API.G_EXC_ERROR;
6464: END IF;
6465: end if;
6466: end if; -- swai: bug 7477845/7483291 l_num_other_jobs = 0
6637: fetch c_get_service_code_details into l_service_code;
6638: close c_get_service_code_details;
6639: FND_MESSAGE.SET_NAME('CSD', 'CSD_NO_BILLS_ROUTES_FOR_SC');
6640: FND_MESSAGE.set_token('SERVICE_CODE', l_service_code);
6641: FND_MSG_PUB.add_detail(p_message_type => FND_MSG_PUB.G_WARNING_MSG);
6642: end if;
6643: -- swai: end bug 5239301
6644:
6645: l_ro_service_code_rec.ro_service_code_id := p_service_code_tbl(sc_ctr).ro_service_code_id;
6687: -- if there are messages to show, then set the return status in order
6688: -- to flag this, but do not rollback.
6689: if l_show_messages_flag = 'T' then
6690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6691: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6692: p_count => x_msg_count,
6693: p_data => x_msg_data);
6694: end if;
6695: -- swai: end bug 5239301
6705: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6706: ROLLBACK to GENERATE_WIP_JOBS_FROM_SCS_PVT ;
6707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6708:
6709: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6710: p_count => x_msg_count,
6711: p_data => x_msg_data);
6712:
6713: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
6721: ROLLBACK to GENERATE_WIP_JOBS_FROM_SCS_PVT ;
6722: x_return_status := FND_API.G_RET_STS_ERROR;
6723:
6724:
6725: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6726: p_count => x_msg_count,
6727: p_data => x_msg_data);
6728:
6729: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
6735: WHEN OTHERS THEN
6736: ROLLBACK to GENERATE_WIP_JOBS_FROM_SCS_PVT ;
6737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6738:
6739: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6740:
6741: -- Add Unexpected Error to Message List, here SQLERRM is used for
6742: -- getting the error
6743:
6740:
6741: -- Add Unexpected Error to Message List, here SQLERRM is used for
6742: -- getting the error
6743:
6744: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
6745: p_procedure_name => lc_api_name );
6746: END IF;
6747:
6748: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6744: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
6745: p_procedure_name => lc_api_name );
6746: END IF;
6747:
6748: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6749: p_count => x_msg_count,
6750: p_data => x_msg_data);
6751:
6752: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then