[Home] [Help]
80: l_mod_name||'begin',
81: 'Entering procedure insert_job_header' );
82: END IF;
83:
84: x_return_status := FND_API.G_RET_STS_SUCCESS;
85:
86:
87: -- Populate the record l_job_header_rec
88:
232: WHEN OTHERS THEN
233: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_HEADER_INSERT_ERR');
234: FND_MESSAGE.SET_TOKEN('JOB_NAME', l_job_header_rec.job_name );
235: FND_MSG_PUB.ADD;
236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
237: RETURN;
238: END;
239:
240:
298: l_mod_name||'begin',
299: 'Entering procedure insert_job_header' );
300: END IF;
301:
302: x_return_status := FND_API.G_RET_STS_SUCCESS;
303:
304:
305: -- Populate the record l_job_header_rec
306:
398: WHEN OTHERS THEN
399: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_HEADER_INSERT_ERR');
400: FND_MESSAGE.SET_TOKEN('JOB_NAME', l_job_header_rec.job_name );
401: FND_MSG_PUB.ADD;
402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
403: RETURN;
404: END;
405:
406:
447:
448:
449: BEGIN
450:
451: x_return_status := FND_API.G_RET_STS_SUCCESS;
452:
453: -- Validate if Internal Concurrent Manager is up
454:
455: fnd_concurrent.get_manager_status(applid => l_fnd_application_id,
475:
476: IF (l_activep <= 0 OR l_activep1 <= 0) THEN
477: FND_MESSAGE.SET_NAME('CSD','CSD_CONC_MGR_DOWN');
478: FND_MSG_PUB.ADD;
479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
480: END IF;
481:
482:
483: END verify_conc_manager_status;
524:
525: -- Generated job name does exist either in the interface or wip_entities table,
526: -- Success is returned
527:
528: x_return_status := FND_API.G_RET_STS_SUCCESS;
529: RETURN;
530:
531: ELSE
532:
531: ELSE
532:
533: -- Job exists in wip_job_schedule_interface table, hence return Error status
534:
535: x_return_status := FND_API.G_RET_STS_ERROR;
536: RETURN;
537:
538:
539: END IF;
542: ELSE
543:
544: -- Job exists in wip_entities table, hence return Error status
545:
546: x_return_status := FND_API.G_RET_STS_ERROR;
547: RETURN;
548:
549:
550: END IF;
590: Validate_job_name ( p_job_name => x_job_name,
591: p_organization_id => p_organization_id,
592: x_return_status => l_return_status ) ;
593:
594: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
595:
596: -- Generated job name does not exist both in the interface and wip_entities table, so exit the loop
597:
598: exit;
710: --message(fnd_profile.value('CSD_DEF_HV_SUBINV'));
711: IF x_MTL_TXN_DTLS_TAB_TYPE(l_counter).supply_subinventory IS NULL THEN
712: FND_MESSAGE.SET_NAME('CSD','CSD_DEF_SUB_INV_NULL');
713: FND_MSG_PUB.ADD;
714: RAISE FND_API.G_EXC_ERROR;
715: END IF;
716: x_MTL_TXN_DTLS_TAB_TYPE(l_counter).new_row := 'Y';
717:
718: x_MTL_TXN_DTLS_TAB_TYPE(l_counter).supply_locator_id := NULL;
764: --message(fnd_profile.value('CSD_DEF_HV_SUBINV'));
765: IF x_MTL_TXN_DTLS_TAB_TYPE(l_counter).supply_subinventory IS NULL THEN
766: FND_MESSAGE.SET_NAME('CSD','CSD_DEF_SUB_INV_NULL');
767: FND_MSG_PUB.ADD;
768: RAISE FND_API.G_EXC_ERROR;
769: END IF;
770:
771: x_MTL_TXN_DTLS_TAB_TYPE(l_counter).supply_locator_id := NULL;
772: x_MTL_TXN_DTLS_TAB_TYPE(l_counter).wip_entity_id := p_wip_entity_id;
836:
837: PROCEDURE submit_jobs
838: (
839: p_api_version IN NUMBER,
840: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
841: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
842: x_return_status OUT NOCOPY VARCHAR2,
843: x_msg_count OUT NOCOPY NUMBER,
844: x_msg_data OUT NOCOPY VARCHAR2,
837: PROCEDURE submit_jobs
838: (
839: p_api_version IN NUMBER,
840: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
841: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
842: x_return_status OUT NOCOPY VARCHAR2,
843: x_msg_count OUT NOCOPY NUMBER,
844: x_msg_data OUT NOCOPY VARCHAR2,
845: p_repair_line_id IN NUMBER,
936: 'Entering Private API submit_jobs');
937: END IF;
938:
939: -- Standard call to check for call compatibility
940: IF Not FND_API.COMPATIBLE_API_CALL( l_api_version,
941: p_api_version,
942: l_api_name,
943: G_PKG_NAME) THEN
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
940: IF Not FND_API.COMPATIBLE_API_CALL( l_api_version,
941: p_api_version,
942: l_api_name,
943: G_PKG_NAME) THEN
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945: END If;
946:
947: -- Initialize message list if p_init_msg_list is set to TRUE
948: IF FND_API.to_boolean(p_init_msg_list) THEN
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945: END If;
946:
947: -- Initialize message list if p_init_msg_list is set to TRUE
948: IF FND_API.to_boolean(p_init_msg_list) THEN
949: FND_MSG_PUB.initialize;
950: END IF;
951:
952: -- Initialize API return status to success
949: FND_MSG_PUB.initialize;
950: END IF;
951:
952: -- Initialize API return status to success
953: x_return_status:=FND_API.G_RET_STS_SUCCESS;
954:
955:
956: -- Verify that the Standard and Internal Concurrent Managers are UP
957:
956: -- Verify that the Standard and Internal Concurrent Managers are UP
957:
958: verify_conc_manager_status ( x_return_status => x_return_status );
959:
960: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
961: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
962: END IF;
963:
964: l_default_ro_item := nvl(FND_PROFILE.VALUE('CSD_DEFAULT_RO_ITEM_AS_MATERIAL_ON_JOB'), 'N');
957:
958: verify_conc_manager_status ( x_return_status => x_return_status );
959:
960: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
961: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
962: END IF;
963:
964: l_default_ro_item := nvl(FND_PROFILE.VALUE('CSD_DEFAULT_RO_ITEM_AS_MATERIAL_ON_JOB'), 'N');
965:
1050: x_interface_id => l_interface_id,--nnadig: bug 9263438
1051: x_return_status => x_return_status );
1052:
1053:
1054: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1056: END IF;
1057:
1058:
1051: x_return_status => x_return_status );
1052:
1053:
1054: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1056: END IF;
1057:
1058:
1059: --This code is change to online create the wipjob without use the concurrent program.
1062: x_wipEntityID => l_wip_entity_id,
1063: x_returnStatus => x_return_status,
1064: x_errorMsg => x_msg_data );
1065:
1066: if (x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
1067: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_GEN_FAILURE');
1068: FND_MSG_PUB.ADD;
1069: RAISE FND_API.G_EXC_ERROR;
1070: end if;
1065:
1066: if (x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
1067: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_GEN_FAILURE');
1068: FND_MSG_PUB.ADD;
1069: RAISE FND_API.G_EXC_ERROR;
1070: end if;
1071:
1072: COMMIT;
1073:
1076: --bug#12316893
1077:
1078: CSD_WARRANTY_CONTRACT_PVT.Default_Warranty_Contract(
1079: P_Api_Version_Number => 1.0,
1080: P_Init_Msg_List => FND_API.G_FALSE,
1081: p_commit => FND_API.G_TRUE,
1082: p_validation_level => fnd_api.g_valid_level_none,
1083: P_Repair_Line_Id => p_repair_line_id,
1084: P_Wip_Entity_Id => l_wip_entity_id,
1077:
1078: CSD_WARRANTY_CONTRACT_PVT.Default_Warranty_Contract(
1079: P_Api_Version_Number => 1.0,
1080: P_Init_Msg_List => FND_API.G_FALSE,
1081: p_commit => FND_API.G_TRUE,
1082: p_validation_level => fnd_api.g_valid_level_none,
1083: P_Repair_Line_Id => p_repair_line_id,
1084: P_Wip_Entity_Id => l_wip_entity_id,
1085: X_Return_Status => x_return_status,
1078: CSD_WARRANTY_CONTRACT_PVT.Default_Warranty_Contract(
1079: P_Api_Version_Number => 1.0,
1080: P_Init_Msg_List => FND_API.G_FALSE,
1081: p_commit => FND_API.G_TRUE,
1082: p_validation_level => fnd_api.g_valid_level_none,
1083: P_Repair_Line_Id => p_repair_line_id,
1084: P_Wip_Entity_Id => l_wip_entity_id,
1085: X_Return_Status => x_return_status,
1086: X_Msg_Count => x_msg_count,
1085: X_Return_Status => x_return_status,
1086: X_Msg_Count => x_msg_count,
1087: X_Msg_Data => x_msg_data
1088: );
1089: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
1090: THEN
1091: RAISE Fnd_Api.G_EXC_ERROR;
1092: END IF;
1093:
1087: X_Msg_Data => x_msg_data
1088: );
1089: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
1090: THEN
1091: RAISE Fnd_Api.G_EXC_ERROR;
1092: END IF;
1093:
1094:
1095: if (l_default_ro_item = 'Y') then
1138: x_op_created => l_op_created,
1139: x_return_status => x_return_status,
1140: x_msg_count => x_msg_count,
1141: x_msg_data => x_msg_data);
1142: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1143: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_GEN_FAILURE');
1144: FND_MSG_PUB.ADD;
1145: RAISE FND_API.G_EXC_ERROR;
1146: END IF;
1141: x_msg_data => x_msg_data);
1142: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1143: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_GEN_FAILURE');
1144: FND_MSG_PUB.ADD;
1145: RAISE FND_API.G_EXC_ERROR;
1146: END IF;
1147: end if;
1148:
1149: End if;
1190: p_organization_id => p_job_header_rec.organization_id,
1191: x_return_status => x_return_status ) ;
1192:
1193:
1194: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1195:
1196: -- Job name either exists in WIP_ENTITIES or in the interface table for the specified
1197: -- organization, So raise an error and exit
1198:
1198:
1199: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_NAME_EXISTS');
1200: FND_MESSAGE.SET_TOKEN('JOB_NAME', l_job_bill_routing_rec.job_name );
1201: FND_MSG_PUB.ADD;
1202: RAISE FND_API.G_EXC_ERROR;
1203: end if;
1204:
1205: ELSE
1206:
1239: x_interface_id => l_interface_id,--nnadig: bug 9263438
1240: x_return_status => x_return_status );
1241:
1242:
1243: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1245: END IF;
1246:
1247:
1240: x_return_status => x_return_status );
1241:
1242:
1243: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1245: END IF;
1246:
1247:
1248: --This code is change to online create the wipjob without use the concurrent program.
1251: x_wipEntityID => l_wip_entity_id,
1252: x_returnStatus => x_return_status,
1253: x_errorMsg => x_msg_data );
1254:
1255: if (x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
1256: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_GEN_FAILURE');
1257: FND_MSG_PUB.ADD;
1258: RAISE FND_API.G_EXC_ERROR;
1259: end if;
1254:
1255: if (x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
1256: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_GEN_FAILURE');
1257: FND_MSG_PUB.ADD;
1258: RAISE FND_API.G_EXC_ERROR;
1259: end if;
1260:
1261: COMMIT;
1262:
1265: --bug#12316893
1266:
1267: CSD_WARRANTY_CONTRACT_PVT.Default_Warranty_Contract(
1268: P_Api_Version_Number => 1.0,
1269: P_Init_Msg_List => FND_API.G_FALSE,
1270: p_commit => FND_API.G_TRUE,
1271: p_validation_level => fnd_api.g_valid_level_none,
1272: P_Repair_Line_Id => p_repair_line_id,
1273: P_Wip_Entity_Id => l_wip_entity_id,
1266:
1267: CSD_WARRANTY_CONTRACT_PVT.Default_Warranty_Contract(
1268: P_Api_Version_Number => 1.0,
1269: P_Init_Msg_List => FND_API.G_FALSE,
1270: p_commit => FND_API.G_TRUE,
1271: p_validation_level => fnd_api.g_valid_level_none,
1272: P_Repair_Line_Id => p_repair_line_id,
1273: P_Wip_Entity_Id => l_wip_entity_id,
1274: X_Return_Status => x_return_status,
1267: CSD_WARRANTY_CONTRACT_PVT.Default_Warranty_Contract(
1268: P_Api_Version_Number => 1.0,
1269: P_Init_Msg_List => FND_API.G_FALSE,
1270: p_commit => FND_API.G_TRUE,
1271: p_validation_level => fnd_api.g_valid_level_none,
1272: P_Repair_Line_Id => p_repair_line_id,
1273: P_Wip_Entity_Id => l_wip_entity_id,
1274: X_Return_Status => x_return_status,
1275: X_Msg_Count => x_msg_count,
1274: X_Return_Status => x_return_status,
1275: X_Msg_Count => x_msg_count,
1276: X_Msg_Data => x_msg_data
1277: );
1278: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
1279: THEN
1280: RAISE Fnd_Api.G_EXC_ERROR;
1281: END IF;
1282:
1276: X_Msg_Data => x_msg_data
1277: );
1278: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
1279: THEN
1280: RAISE Fnd_Api.G_EXC_ERROR;
1281: END IF;
1282:
1283:
1284: if (l_default_ro_item = 'Y') then
1347: x_op_created => l_op_created,
1348: x_return_status => x_return_status,
1349: x_msg_count => x_msg_count,
1350: x_msg_data => x_msg_data);
1351: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1352: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_GEN_FAILURE');
1353: FND_MSG_PUB.ADD;
1354: RAISE FND_API.G_EXC_ERROR;
1355: END IF;
1350: x_msg_data => x_msg_data);
1351: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1352: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_GEN_FAILURE');
1353: FND_MSG_PUB.ADD;
1354: RAISE FND_API.G_EXC_ERROR;
1355: END IF;
1356: end if;
1357: -- COMMIT;
1358: End if;
1394: -- add the error message to the message list and exit
1395:
1396: FND_MESSAGE.SET_NAME('CSD','CSD_CSDJSWIP_SUBMIT_FAILURE');
1397: FND_MSG_PUB.ADD;
1398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1399:
1400:
1401: IF ( l_stat_level >= l_debug_level ) then
1402: FND_LOG.STRING( l_stat_level,
1403: l_mod_name||'requestfail',
1404: 'Submit request failed');
1405: END IF;
1406:
1407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1408:
1409: ELSE
1410: --This commit is a must for the successful submission of the concurrent request above
1411: COMMIT;
1423: 'Leaving Private API submit_jobs');
1424: END IF;
1425:
1426: EXCEPTION
1427: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1428: ROLLBACK ;
1429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1431: p_count => x_msg_count,
1425:
1426: EXCEPTION
1427: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1428: ROLLBACK ;
1429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1431: p_count => x_msg_count,
1432: p_data => x_msg_data);
1433:
1426: EXCEPTION
1427: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1428: ROLLBACK ;
1429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1431: p_count => x_msg_count,
1432: p_data => x_msg_data);
1433:
1434: IF ( FND_LOG.LEVEL_EXCEPTION >= l_debug_level ) then
1437: 'G_EXC_UNEXPECTED_ERROR Exception');
1438: END IF;
1439:
1440:
1441: WHEN FND_API.G_EXC_ERROR THEN
1442: ROLLBACK ;
1443: x_return_status := FND_API.G_RET_STS_ERROR;
1444: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1445: p_count => x_msg_count,
1439:
1440:
1441: WHEN FND_API.G_EXC_ERROR THEN
1442: ROLLBACK ;
1443: x_return_status := FND_API.G_RET_STS_ERROR;
1444: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1445: p_count => x_msg_count,
1446: p_data => x_msg_data);
1447:
1440:
1441: WHEN FND_API.G_EXC_ERROR THEN
1442: ROLLBACK ;
1443: x_return_status := FND_API.G_RET_STS_ERROR;
1444: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1445: p_count => x_msg_count,
1446: p_data => x_msg_data);
1447:
1448: IF ( FND_LOG.LEVEL_ERROR >= l_debug_level ) then
1452: END IF;
1453:
1454: WHEN OTHERS THEN
1455: ROLLBACK ;
1456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1457:
1458: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1459:
1460: -- Add Unexpected Error to Message List, here SQLERRM is used for
1463: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'CSD_WIP_JOB_PVT',
1464: p_procedure_name => 'submit_jobs');
1465: END IF;
1466:
1467: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1468: p_count => x_msg_count,
1469: p_data => x_msg_data);
1470:
1471: IF ( FND_LOG.LEVEL_EXCEPTION >= l_debug_level ) then
1621: l_mod_name||'requestfailure',
1622: 'WIP Mass Load Submit request failed' );
1623: END IF;
1624:
1625: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1626:
1627: ELSE
1628:
1629: COMMIT; --This commit is a must for the completion of the concurrent request submission
1665: l_mod_name||'waitfailure',
1666: 'Wait for request failed');
1667: END IF;
1668:
1669: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1670:
1671:
1672: ELSIF (l_dev_phase = 'COMPLETE' AND l_dev_status = 'NORMAL') THEN
1673:
1697: -- one repair order, then this is the case, that is, p_repair_line_id is null.
1698:
1699: CSD_UPDATE_PROGRAMS_PVT.WIP_UPDATE
1700: ( p_api_version => l_api_version,
1701: p_commit => FND_API.G_TRUE,
1702: p_init_msg_list => FND_API.G_TRUE,
1703: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1704: x_return_status => l_return_status,
1705: x_msg_count => l_msg_count,
1698:
1699: CSD_UPDATE_PROGRAMS_PVT.WIP_UPDATE
1700: ( p_api_version => l_api_version,
1701: p_commit => FND_API.G_TRUE,
1702: p_init_msg_list => FND_API.G_TRUE,
1703: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1704: x_return_status => l_return_status,
1705: x_msg_count => l_msg_count,
1706: x_msg_data => l_msg_data,
1699: CSD_UPDATE_PROGRAMS_PVT.WIP_UPDATE
1700: ( p_api_version => l_api_version,
1701: p_commit => FND_API.G_TRUE,
1702: p_init_msg_list => FND_API.G_TRUE,
1703: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1704: x_return_status => l_return_status,
1705: x_msg_count => l_msg_count,
1706: x_msg_data => l_msg_data,
1707: p_upd_job_completion => 'N',
1706: x_msg_data => l_msg_data,
1707: p_upd_job_completion => 'N',
1708: p_repair_line_id => p_repair_line_id );
1709:
1710: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1711:
1712: -- If return status is not success, write the error messages to
1713: -- the concurrent request log file and raise exception to exit
1714:
1722: -- message list, retrieve the messages and write it to the log file
1723:
1724: FOR l_msg_ctr IN 1..l_msg_count
1725: LOOP
1726: l_msg_data := fnd_msg_pub.get(l_msg_ctr, FND_API.G_FALSE );
1727: fnd_file.put_line( fnd_file.log, l_msg_data);
1728: END LOOP;
1729:
1730: END IF;
1734: l_mod_name||'updatecallerror',
1735: 'CSD_UPDATE_PROGRAMS_PVT.WIP_UPDATE call returned error');
1736: END IF;
1737:
1738: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1739:
1740: ELSE
1741:
1742: -- If return status is success, return concurrent program success code
1799: IF l_mtl_details_tbl.COUNT > 0
1800: THEN
1801: CSD_HV_WIP_JOB_PVT.process_save_mtl_txn_dtls
1802: (p_api_version_number => 1.0,
1803: p_init_msg_list => fnd_api.g_false,
1804: p_commit => fnd_api.g_false,
1805: p_validation_level => 100,
1806: x_return_status => l_return_status,
1807: x_msg_count => l_msg_count,
1800: THEN
1801: CSD_HV_WIP_JOB_PVT.process_save_mtl_txn_dtls
1802: (p_api_version_number => 1.0,
1803: p_init_msg_list => fnd_api.g_false,
1804: p_commit => fnd_api.g_false,
1805: p_validation_level => 100,
1806: x_return_status => l_return_status,
1807: x_msg_count => l_msg_count,
1808: x_msg_data => l_msg_data,
1835: l_mod_name||'completionfailure',
1836: 'WIP Mass Load did not Complete Successfully');
1837: END IF;
1838:
1839: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1840:
1841: END IF;
1842: END IF;
1843:
1850:
1851: EXCEPTION
1852:
1853:
1854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1855:
1856: -- write message to log file indicating the failure of the concurrent program,
1857: -- return error retcode
1858:
1858:
1859: errbuf := FND_MESSAGE.GET_STRING('CSD','CSD_CSDJSWIP_FAILURE');
1860: retcode := l_error;
1861:
1862: WHEN FND_API.G_EXC_ERROR THEN
1863:
1864: -- write message to log file indicating the failure of the concurrent program,
1865: -- return error retcode
1866:
1877:
1878: -- Get the count of the Messages from the message list, if the count is 1
1879: -- get the message as well
1880:
1881: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1882: p_count => l_msg_count,
1883: p_data => l_msg_data);
1884:
1885: IF l_msg_count = 1 THEN
1892: -- message list, retrieve the messages and write it to the log file
1893:
1894: FOR l_msg_ctr IN 1..l_msg_count
1895: LOOP
1896: l_msg_data := fnd_msg_pub.get(l_msg_ctr, FND_API.G_FALSE );
1897: fnd_file.put_line( fnd_file.log, l_msg_data);
1898: END LOOP;
1899:
1900: END IF;
1999:
2000: -- Standard Start of API savepoint
2001: SAVEPOINT CREATE_WIP_JOB_PVT;
2002: -- Standard call to check for call compatibility.
2003: IF NOT FND_API.Compatible_API_Call
2004: (lc_api_version_number,
2005: p_api_version_number,
2006: lc_api_name,
2007: G_PKG_NAME)
2005: p_api_version_number,
2006: lc_api_name,
2007: G_PKG_NAME)
2008: THEN
2009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2010: END IF;
2011:
2012: -- Initialize message list if p_init_msg_list is set to TRUE
2013: IF FND_API.to_boolean(p_init_msg_list) THEN
2009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2010: END IF;
2011:
2012: -- Initialize message list if p_init_msg_list is set to TRUE
2013: IF FND_API.to_boolean(p_init_msg_list) THEN
2014: FND_MSG_PUB.initialize;
2015: END IF;
2016:
2017: -- Initialize API return status to success
2014: FND_MSG_PUB.initialize;
2015: END IF;
2016:
2017: -- Initialize API return status to success
2018: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2019:
2020: -- initialize the job header rec.
2021:
2022: l_job_header_rec.organization_id :=
2025: IF l_job_header_rec.organization_id is NULL THEN
2026:
2027: FND_MESSAGE.SET_NAME('CSD','CSD_DEF_REP_INV_NULL');
2028: FND_MSG_PUB.ADD;
2029: RAISE FND_API.G_EXC_ERROR;
2030: END IF;
2031:
2032:
2033: l_job_prefix := fnd_profile.value('CSD_DEFAULT_JOB_PREFIX');
2038: IF l_job_prefix IS NULL THEN
2039:
2040: FND_MESSAGE.SET_NAME('CSD','CSD_JOB_PREFIX_NULL');
2041: FND_MSG_PUB.ADD;
2042: RAISE FND_API.G_EXC_ERROR;
2043: END IF;
2044:
2045: l_job_header_rec.class_code :=
2046: fnd_profile.value('CSD_DEF_WIP_ACCOUNTING_CLASS');
2048: IF l_job_header_rec.class_code is NULL THEN
2049:
2050: FND_MESSAGE.SET_NAME('CSD','CSD_CLASS_CODE_NULL');
2051: FND_MSG_PUB.ADD;
2052: RAISE FND_API.G_EXC_ERROR;
2053: END IF;
2054:
2055: -- Assign the WIP Job Status lookup codes corresponding to Released -- and Unreleased Job status,
2056: -- to be passed for WIP Interface Table
2155: x_return_status =>
2156: x_return_status );
2157:
2158:
2159: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2161: END IF;
2162:
2163:
2156: x_return_status );
2157:
2158:
2159: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2161: END IF;
2162:
2163:
2164: -- CALL WIP API to process records in wip interface table,
2178: x_returnStatus => x_return_status,
2179: x_errorMsg => x_msg_data );
2180:
2181:
2182: If (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2183:
2184: ROLLBACK to CREATE_WIP_JOB_PVT ;
2185: RETURN;
2186:
2194:
2195:
2196: CSD_WARRANTY_CONTRACT_PVT.Default_Warranty_Contract(
2197: P_Api_Version_Number => 1.0,
2198: P_Init_Msg_List => FND_API.G_FALSE,
2199: p_commit => FND_API.G_TRUE,
2200: p_validation_level => fnd_api.g_valid_level_none,
2201: P_Repair_Line_Id => p_ESTM_JOB_DETLS_REC_TYPE.repair_line_id,
2202: P_Wip_Entity_Id => x_wip_entity_id,
2195:
2196: CSD_WARRANTY_CONTRACT_PVT.Default_Warranty_Contract(
2197: P_Api_Version_Number => 1.0,
2198: P_Init_Msg_List => FND_API.G_FALSE,
2199: p_commit => FND_API.G_TRUE,
2200: p_validation_level => fnd_api.g_valid_level_none,
2201: P_Repair_Line_Id => p_ESTM_JOB_DETLS_REC_TYPE.repair_line_id,
2202: P_Wip_Entity_Id => x_wip_entity_id,
2203: X_Return_Status => x_return_status,
2196: CSD_WARRANTY_CONTRACT_PVT.Default_Warranty_Contract(
2197: P_Api_Version_Number => 1.0,
2198: P_Init_Msg_List => FND_API.G_FALSE,
2199: p_commit => FND_API.G_TRUE,
2200: p_validation_level => fnd_api.g_valid_level_none,
2201: P_Repair_Line_Id => p_ESTM_JOB_DETLS_REC_TYPE.repair_line_id,
2202: P_Wip_Entity_Id => x_wip_entity_id,
2203: X_Return_Status => x_return_status,
2204: X_Msg_Count => x_msg_count,
2203: X_Return_Status => x_return_status,
2204: X_Msg_Count => x_msg_count,
2205: X_Msg_Data => x_msg_data
2206: );
2207: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
2208: THEN
2209: RAISE Fnd_Api.G_EXC_ERROR;
2210: END IF;
2211:
2205: X_Msg_Data => x_msg_data
2206: );
2207: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
2208: THEN
2209: RAISE Fnd_Api.G_EXC_ERROR;
2210: END IF;
2211:
2212:
2213: -- call procedures to insert a row in csd_repair_job_xref
2224:
2225:
2226: csd_to_form_repair_job_xref.validate_and_write(
2227: p_api_version_number => lc_api_version_number,
2228: p_init_msg_list => FND_API.G_FALSE,
2229: p_commit => FND_API.G_FALSE,
2230: p_validation_level => NULL,
2231: p_action_code => 0,
2232: px_repair_job_xref_id => l_repair_xref_id,
2225:
2226: csd_to_form_repair_job_xref.validate_and_write(
2227: p_api_version_number => lc_api_version_number,
2228: p_init_msg_list => FND_API.G_FALSE,
2229: p_commit => FND_API.G_FALSE,
2230: p_validation_level => NULL,
2231: p_action_code => 0,
2232: px_repair_job_xref_id => l_repair_xref_id,
2233: p_created_by => l_user_id,
2268: x_msg_count => x_msg_count,
2269: x_msg_data => x_msg_data);
2270:
2271:
2272: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2273: ROLLBACK to CREATE_WIP_JOB_PVT ;
2274:
2275: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2276: FND_LOG.STRING( FND_LOG.LEVEL_ERROR,
2292:
2293:
2294: csd_to_form_repair_history.validate_and_write(
2295: p_api_version_number => lc_api_version_number,
2296: p_init_msg_list => FND_API.G_FALSE,
2297: p_commit => FND_API.G_FALSE,
2298: p_validation_level => NULL,
2299: p_action_code => 0,
2300: px_repair_history_id => l_rep_hist_id,
2293:
2294: csd_to_form_repair_history.validate_and_write(
2295: p_api_version_number => lc_api_version_number,
2296: p_init_msg_list => FND_API.G_FALSE,
2297: p_commit => FND_API.G_FALSE,
2298: p_validation_level => NULL,
2299: p_action_code => 0,
2300: px_repair_history_id => l_rep_hist_id,
2301: p_OBJECT_VERSION_NUMBER => NULL,
2360: x_return_status => x_return_status,
2361: x_msg_count => x_msg_count,
2362: x_msg_data => x_msg_data);
2363:
2364: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2365: ROLLBACK to CREATE_WIP_JOB_PVT ;
2366:
2367: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2368: FND_LOG.STRING( FND_LOG.LEVEL_ERROR,
2374:
2375: END IF;
2376:
2377: -- Standard check for p_commit
2378: IF FND_API.to_Boolean( p_commit )
2379: THEN
2380: COMMIT WORK;
2381: END IF;
2382:
2381: END IF;
2382:
2383:
2384: EXCEPTION
2385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2386: ROLLBACK to CREATE_WIP_JOB_PVT ;
2387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2388:
2389: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2383:
2384: EXCEPTION
2385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2386: ROLLBACK to CREATE_WIP_JOB_PVT ;
2387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2388:
2389: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2390: p_count => x_msg_count,
2391: p_data => x_msg_data);
2385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2386: ROLLBACK to CREATE_WIP_JOB_PVT ;
2387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2388:
2389: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2390: p_count => x_msg_count,
2391: p_data => x_msg_data);
2392:
2393: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2396: 'G_EXC_UNEXPECTED_ERROR Exception');
2397: END IF;
2398:
2399:
2400: WHEN FND_API.G_EXC_ERROR THEN
2401: ROLLBACK to CREATE_WIP_JOB_PVT ;
2402: x_return_status := FND_API.G_RET_STS_ERROR;
2403:
2404:
2398:
2399:
2400: WHEN FND_API.G_EXC_ERROR THEN
2401: ROLLBACK to CREATE_WIP_JOB_PVT ;
2402: x_return_status := FND_API.G_RET_STS_ERROR;
2403:
2404:
2405: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2406: p_count => x_msg_count,
2401: ROLLBACK to CREATE_WIP_JOB_PVT ;
2402: x_return_status := FND_API.G_RET_STS_ERROR;
2403:
2404:
2405: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2406: p_count => x_msg_count,
2407: p_data => x_msg_data);
2408:
2409: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2413: END IF;
2414:
2415: WHEN OTHERS THEN
2416: ROLLBACK to CREATE_WIP_JOB_PVT ;
2417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2418:
2419: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2420:
2421: -- Add Unexpected Error to Message List, here SQLERRM is used for
2424: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
2425: p_procedure_name => lc_api_name );
2426: END IF;
2427:
2428: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2429: p_count => x_msg_count,
2430: p_data => x_msg_data);
2431:
2432: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2470: 'Entering Private API create_job_from_estimate');
2471: END IF;
2472:
2473: -- Initialize message list if p_init_msg_list is set to TRUE
2474: IF FND_API.to_boolean(p_init_msg_list) THEN
2475: FND_MSG_PUB.initialize;
2476: END IF;
2477:
2478: -- Initialize API return status to success
2475: FND_MSG_PUB.initialize;
2476: END IF;
2477:
2478: -- Initialize API return status to success
2479: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2480:
2481: -- get the material transactions table type
2482:
2483: import_estms_to_wipjob(p_rep_line_id,p_wip_entity_id,x_mtl_txn_dtls_tab_type);
2504: p_mtl_txn_dtls_tbl => x_mtl_txn_dtls_tab_type,
2505: x_op_created => x_op_created);
2506:
2507:
2508: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2509: RAISE fnd_api.g_exc_error;
2510: END IF;
2511: END IF;
2512: COMMIT WORK;
2505: x_op_created => x_op_created);
2506:
2507:
2508: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2509: RAISE fnd_api.g_exc_error;
2510: END IF;
2511: END IF;
2512: COMMIT WORK;
2513: EXCEPTION
2510: END IF;
2511: END IF;
2512: COMMIT WORK;
2513: EXCEPTION
2514: WHEN FND_API.G_EXC_ERROR THEN
2515: x_return_status := fnd_api.G_RET_STS_ERROR;
2516: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2517: p_count => x_msg_count,
2518: p_data => x_msg_data );
2511: END IF;
2512: COMMIT WORK;
2513: EXCEPTION
2514: WHEN FND_API.G_EXC_ERROR THEN
2515: x_return_status := fnd_api.G_RET_STS_ERROR;
2516: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2517: p_count => x_msg_count,
2518: p_data => x_msg_data );
2519: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2512: COMMIT WORK;
2513: EXCEPTION
2514: WHEN FND_API.G_EXC_ERROR THEN
2515: x_return_status := fnd_api.G_RET_STS_ERROR;
2516: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2517: p_count => x_msg_count,
2518: p_data => x_msg_data );
2519: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2515: x_return_status := fnd_api.G_RET_STS_ERROR;
2516: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2517: p_count => x_msg_count,
2518: p_data => x_msg_data );
2519: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2521: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2522: p_count => x_msg_count,
2523: p_data => x_msg_data );
2516: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2517: p_count => x_msg_count,
2518: p_data => x_msg_data );
2519: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2521: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2522: p_count => x_msg_count,
2523: p_data => x_msg_data );
2524: WHEN OTHERS THEN
2517: p_count => x_msg_count,
2518: p_data => x_msg_data );
2519: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2521: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2522: p_count => x_msg_count,
2523: p_data => x_msg_data );
2524: WHEN OTHERS THEN
2525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2521: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2522: p_count => x_msg_count,
2523: p_data => x_msg_data );
2524: WHEN OTHERS THEN
2525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2526: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2527: p_count => x_msg_count,
2528: p_data => x_msg_data );
2529: END matrl_reqmnt_from_estms;
2522: p_count => x_msg_count,
2523: p_data => x_msg_data );
2524: WHEN OTHERS THEN
2525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2526: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2527: p_count => x_msg_count,
2528: p_data => x_msg_data );
2529: END matrl_reqmnt_from_estms;
2530:
2531: -- 12.1.3. Mass create jobs functionality for HW and many more customers.
2532: -- Returns a table of concatenated job names delimited by ",". It also
2533: -- returns the concurrent request id for depot repair create jobs program.
2534: -- rest of the paramters are self explanatory. Pass a valid value or null.
2535: -- do NOT pass FND_API.G_MISS_* for unknown values.
2536:
2537: PROCEDURE bulk_submit_jobs(
2538: p_api_version IN NUMBER,
2539: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2535: -- do NOT pass FND_API.G_MISS_* for unknown values.
2536:
2537: PROCEDURE bulk_submit_jobs(
2538: p_api_version IN NUMBER,
2539: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2540: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2541: x_return_status OUT NOCOPY VARCHAR2,
2542: x_msg_count OUT NOCOPY NUMBER,
2543: x_msg_data OUT NOCOPY VARCHAR2,
2536:
2537: PROCEDURE bulk_submit_jobs(
2538: p_api_version IN NUMBER,
2539: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2540: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2541: x_return_status OUT NOCOPY VARCHAR2,
2542: x_msg_count OUT NOCOPY NUMBER,
2543: x_msg_data OUT NOCOPY VARCHAR2,
2544: px_job_names IN OUT NOCOPY JTF_VARCHAR2_TABLE_100,
2583: fnd_log.string(fnd_log.level_statement, lc_module_name,'Begin bulk_submit_jobs API');
2584: END IF;
2585:
2586: -- standard check for API compatibility.
2587: IF NOT Fnd_Api.Compatible_API_Call
2588: (lc_api_version,
2589: p_api_version,
2590: lc_module_name,
2591: G_PKG_NAME)
2589: p_api_version,
2590: lc_module_name,
2591: G_PKG_NAME)
2592: THEN
2593: RAISE fnd_api.g_exc_unexpected_error;
2594: END IF;
2595:
2596: IF fnd_api.to_boolean(p_init_msg_list)
2597: THEN
2592: THEN
2593: RAISE fnd_api.g_exc_unexpected_error;
2594: END IF;
2595:
2596: IF fnd_api.to_boolean(p_init_msg_list)
2597: THEN
2598: fnd_msg_pub.initialize;
2599: END IF;
2600:
2602:
2603: -- initialize the sql executed variable.
2604: l_sc_sql_executed := FALSE;
2605: -- set the return status to success.
2606: x_return_status := fnd_api.g_ret_sts_success;
2607:
2608: -- Validation for approval required flag will not be done here, as the java layer does it.
2609: -- anybody calling this API should take care of the same.
2610: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2636: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2637: fnd_log.string(fnd_log.level_statement, lc_module_name,'Starting loop to process the repair lines. Repair line id being processed is:'||p_repair_line_ids(i));
2638: END IF;
2639:
2640: IF p_service_code_id IS NOT NULL AND p_service_code_id <> fnd_api.g_miss_num
2641: THEN
2642:
2643: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2644: fnd_log.string(fnd_log.level_statement, lc_module_name,'Inside the service code block:');
2881:
2882: END IF;
2883:
2884: EXCEPTION
2885: WHEN fnd_api.g_exc_unexpected_error THEN
2886: x_return_status := fnd_api.g_ret_sts_error;
2887:
2888: END bulk_submit_jobs;
2889:
2882: END IF;
2883:
2884: EXCEPTION
2885: WHEN fnd_api.g_exc_unexpected_error THEN
2886: x_return_status := fnd_api.g_ret_sts_error;
2887:
2888: END bulk_submit_jobs;
2889:
2890: --bug#12316893