202: IF l_DEFAULT_WORKORDER_TYPE IS NULL
203: THEN
204: FND_MESSAGE.set_name('AHL','AHL_PRD_NO_WORKORDER_TYPE');
205: FND_MSG_PUB.add;
206: RAISE FND_API.G_EXC_ERROR;
207: END IF;
208:
209: IF (p_visit_task_id IS NULL AND p_master_workorder_flag = 'Y' )
210: --************************Visit Master Workorder *******************--
217: IF (get_ue_id_csr%NOTFOUND) THEN
218: CLOSE get_ue_id_csr;
219: FND_MESSAGE.set_name('AHL','AHL_PRD_VISIT_TASK_NULL');
220: FND_MSG_PUB.add;
221: RAISE FND_API.G_EXC_ERROR;
222: END IF;
223: CLOSE get_ue_id_csr;
224:
225: IF (l_ue_id IS NULL) THEN
780:
781: PROCEDURE create_eam_workorder
782: (
783: p_api_version IN NUMBER := 1.0,
784: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
785: p_commit IN VARCHAR2 := FND_API.G_FALSE,
786: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
787: p_default IN VARCHAR2 := FND_API.G_FALSE,
788: p_module_type IN VARCHAR2 := NULL,
781: PROCEDURE create_eam_workorder
782: (
783: p_api_version IN NUMBER := 1.0,
784: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
785: p_commit IN VARCHAR2 := FND_API.G_FALSE,
786: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
787: p_default IN VARCHAR2 := FND_API.G_FALSE,
788: p_module_type IN VARCHAR2 := NULL,
789: x_return_status OUT NOCOPY VARCHAR2,
782: (
783: p_api_version IN NUMBER := 1.0,
784: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
785: p_commit IN VARCHAR2 := FND_API.G_FALSE,
786: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
787: p_default IN VARCHAR2 := FND_API.G_FALSE,
788: p_module_type IN VARCHAR2 := NULL,
789: x_return_status OUT NOCOPY VARCHAR2,
790: x_msg_count OUT NOCOPY NUMBER,
783: p_api_version IN NUMBER := 1.0,
784: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
785: p_commit IN VARCHAR2 := FND_API.G_FALSE,
786: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
787: p_default IN VARCHAR2 := FND_API.G_FALSE,
788: p_module_type IN VARCHAR2 := NULL,
789: x_return_status OUT NOCOPY VARCHAR2,
790: x_msg_count OUT NOCOPY NUMBER,
791: x_msg_data OUT NOCOPY VARCHAR2,
833: AHL_DEBUG_PUB.enable_debug;
834: END IF;
835:
836: -- Initialize API return status to success
837: x_return_status := FND_API.G_RET_STS_SUCCESS;
838:
839: -- Standard Start of API savepoint
840: SAVEPOINT create_eam_workorder_PVT;
841:
944: (
945: p_bo_identifier => l_bo_identifier,
946: p_api_version_number => 1.0,
947: p_init_msg_list => l_init_msg_list,
948: p_commit => FND_API.G_FALSE,
949: p_eam_wo_rec => l_eam_wo_rec,
950: p_eam_op_tbl => l_eam_op_tbl,
951: p_eam_op_network_tbl => l_eam_op_network_tbl,
952: p_eam_res_tbl => l_eam_res_tbl,
971: p_debug_filename => l_debug_filename,
972: p_debug_file_mode => l_debug_file_mode
973: );
974:
975: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
976: IF ( G_DEBUG = 'Y' ) THEN
977: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
978: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
979: END IF;
977: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
978: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
979: END IF;
980:
981: RAISE FND_API.G_EXC_ERROR;
982: ELSE
983: IF ( G_DEBUG = 'Y' ) THEN
984: AHL_DEBUG_PUB.debug( 'EAM process_wo API Successful' );
985: END IF;
990: AHL_DEBUG_PUB.debug( 'New wip_entity_id:' || TO_CHAR( p_x_workorder_rec.wip_entity_id ) );
991: END IF;
992:
993: -- Perform the Commit (if requested)
994: IF FND_API.to_boolean( p_commit ) THEN
995: COMMIT WORK;
996: END IF;
997: END IF;
998:
1002: END IF;
1003:
1004: EXCEPTION
1005:
1006: WHEN FND_API.G_EXC_ERROR THEN
1007: ROLLBACK TO create_eam_workorder_PVT;
1008: x_return_status := FND_API.G_RET_STS_ERROR;
1009: FND_MSG_PUB.count_and_get
1010: (
1004: EXCEPTION
1005:
1006: WHEN FND_API.G_EXC_ERROR THEN
1007: ROLLBACK TO create_eam_workorder_PVT;
1008: x_return_status := FND_API.G_RET_STS_ERROR;
1009: FND_MSG_PUB.count_and_get
1010: (
1011: p_encoded => FND_API.G_FALSE,
1012: p_count => x_msg_count,
1007: ROLLBACK TO create_eam_workorder_PVT;
1008: x_return_status := FND_API.G_RET_STS_ERROR;
1009: FND_MSG_PUB.count_and_get
1010: (
1011: p_encoded => FND_API.G_FALSE,
1012: p_count => x_msg_count,
1013: p_data => x_msg_data
1014: );
1015:
1016: IF ( G_DEBUG = 'Y' ) THEN
1017: AHL_DEBUG_PUB.disable_debug;
1018: END IF;
1019:
1020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1021: ROLLBACK TO create_eam_workorder_PVT;
1022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1023: FND_MSG_PUB.count_and_get
1024: (
1018: END IF;
1019:
1020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1021: ROLLBACK TO create_eam_workorder_PVT;
1022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1023: FND_MSG_PUB.count_and_get
1024: (
1025: p_encoded => FND_API.G_FALSE,
1026: p_count => x_msg_count,
1021: ROLLBACK TO create_eam_workorder_PVT;
1022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1023: FND_MSG_PUB.count_and_get
1024: (
1025: p_encoded => FND_API.G_FALSE,
1026: p_count => x_msg_count,
1027: p_data => x_msg_data
1028: );
1029:
1032: END IF;
1033:
1034: WHEN OTHERS THEN
1035: ROLLBACK TO create_eam_workorder_PVT;
1036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1037: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1038: THEN
1039: FND_MSG_PUB.add_exc_msg
1040: (
1044: );
1045: END IF;
1046: FND_MSG_PUB.count_and_get
1047: (
1048: p_encoded => FND_API.G_FALSE,
1049: p_count => x_msg_count,
1050: p_data => x_msg_data
1051: );
1052:
1057:
1058: PROCEDURE update_job_operations
1059: (
1060: p_api_version IN NUMBER := 1.0,
1061: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1062: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1063: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1064: p_default IN VARCHAR2 := FND_API.G_FALSE,
1065: p_module_type IN VARCHAR2 := NULL,
1058: PROCEDURE update_job_operations
1059: (
1060: p_api_version IN NUMBER := 1.0,
1061: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1062: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1063: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1064: p_default IN VARCHAR2 := FND_API.G_FALSE,
1065: p_module_type IN VARCHAR2 := NULL,
1066: x_return_status OUT NOCOPY VARCHAR2,
1059: (
1060: p_api_version IN NUMBER := 1.0,
1061: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1062: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1063: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1064: p_default IN VARCHAR2 := FND_API.G_FALSE,
1065: p_module_type IN VARCHAR2 := NULL,
1066: x_return_status OUT NOCOPY VARCHAR2,
1067: x_msg_count OUT NOCOPY NUMBER,
1060: p_api_version IN NUMBER := 1.0,
1061: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1062: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1063: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1064: p_default IN VARCHAR2 := FND_API.G_FALSE,
1065: p_module_type IN VARCHAR2 := NULL,
1066: x_return_status OUT NOCOPY VARCHAR2,
1067: x_msg_count OUT NOCOPY NUMBER,
1068: x_msg_data OUT NOCOPY VARCHAR2,
1110: AHL_DEBUG_PUB.enable_debug;
1111: END IF;
1112:
1113: -- Initialize API return status to success
1114: x_return_status := FND_API.G_RET_STS_SUCCESS;
1115:
1116: -- Standard Start of API savepoint
1117: SAVEPOINT update_job_operations_PVT;
1118:
1210: (
1211: p_bo_identifier => l_bo_identifier,
1212: p_api_version_number => 1.0,
1213: p_init_msg_list => l_init_msg_list,
1214: p_commit => FND_API.G_FALSE,
1215: p_eam_wo_rec => l_eam_wo_rec,
1216: p_eam_op_tbl => l_eam_op_tbl,
1217: p_eam_op_network_tbl => l_eam_op_network_tbl,
1218: p_eam_res_tbl => l_eam_res_tbl,
1237: p_debug_filename => l_debug_filename,
1238: p_debug_file_mode => l_debug_file_mode
1239: );
1240:
1241: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1242: IF ( G_DEBUG = 'Y' ) THEN
1243: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
1244: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
1245: END IF;
1243: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
1244: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
1245: END IF;
1246:
1247: RAISE FND_API.G_EXC_ERROR;
1248:
1249: ELSE
1250: -- Perform the Commit (if requested)
1251: IF FND_API.to_boolean( p_commit ) THEN
1247: RAISE FND_API.G_EXC_ERROR;
1248:
1249: ELSE
1250: -- Perform the Commit (if requested)
1251: IF FND_API.to_boolean( p_commit ) THEN
1252: COMMIT WORK;
1253: END IF;
1254: END IF;
1255:
1259: END IF;
1260:
1261: EXCEPTION
1262:
1263: WHEN FND_API.G_EXC_ERROR THEN
1264: ROLLBACK TO update_job_operations_PVT;
1265: x_return_status := FND_API.G_RET_STS_ERROR;
1266: FND_MSG_PUB.count_and_get
1267: (
1261: EXCEPTION
1262:
1263: WHEN FND_API.G_EXC_ERROR THEN
1264: ROLLBACK TO update_job_operations_PVT;
1265: x_return_status := FND_API.G_RET_STS_ERROR;
1266: FND_MSG_PUB.count_and_get
1267: (
1268: p_encoded => FND_API.G_FALSE,
1269: p_count => x_msg_count,
1264: ROLLBACK TO update_job_operations_PVT;
1265: x_return_status := FND_API.G_RET_STS_ERROR;
1266: FND_MSG_PUB.count_and_get
1267: (
1268: p_encoded => FND_API.G_FALSE,
1269: p_count => x_msg_count,
1270: p_data => x_msg_data
1271: );
1272:
1273: IF ( G_DEBUG = 'Y' ) THEN
1274: AHL_DEBUG_PUB.disable_debug;
1275: END IF;
1276:
1277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1278: ROLLBACK TO update_job_operations_PVT;
1279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1280: FND_MSG_PUB.count_and_get
1281: (
1275: END IF;
1276:
1277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1278: ROLLBACK TO update_job_operations_PVT;
1279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1280: FND_MSG_PUB.count_and_get
1281: (
1282: p_encoded => FND_API.G_FALSE,
1283: p_count => x_msg_count,
1278: ROLLBACK TO update_job_operations_PVT;
1279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1280: FND_MSG_PUB.count_and_get
1281: (
1282: p_encoded => FND_API.G_FALSE,
1283: p_count => x_msg_count,
1284: p_data => x_msg_data
1285: );
1286:
1289: END IF;
1290:
1291: WHEN OTHERS THEN
1292: ROLLBACK TO update_job_operations_PVT;
1293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1294: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1295: THEN
1296: FND_MSG_PUB.add_exc_msg
1297: (
1301: );
1302: END IF;
1303: FND_MSG_PUB.count_and_get
1304: (
1305: p_encoded => FND_API.G_FALSE,
1306: p_count => x_msg_count,
1307: p_data => x_msg_data
1308: );
1309:
1315:
1316: PROCEDURE process_material_req
1317: (
1318: p_api_version IN NUMBER := 1.0,
1319: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1320: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1321: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1322: p_default IN VARCHAR2 := FND_API.G_FALSE,
1323: p_module_type IN VARCHAR2 := NULL,
1316: PROCEDURE process_material_req
1317: (
1318: p_api_version IN NUMBER := 1.0,
1319: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1320: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1321: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1322: p_default IN VARCHAR2 := FND_API.G_FALSE,
1323: p_module_type IN VARCHAR2 := NULL,
1324: x_return_status OUT NOCOPY VARCHAR2,
1317: (
1318: p_api_version IN NUMBER := 1.0,
1319: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1320: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1321: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1322: p_default IN VARCHAR2 := FND_API.G_FALSE,
1323: p_module_type IN VARCHAR2 := NULL,
1324: x_return_status OUT NOCOPY VARCHAR2,
1325: x_msg_count OUT NOCOPY NUMBER,
1318: p_api_version IN NUMBER := 1.0,
1319: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1320: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1321: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1322: p_default IN VARCHAR2 := FND_API.G_FALSE,
1323: p_module_type IN VARCHAR2 := NULL,
1324: x_return_status OUT NOCOPY VARCHAR2,
1325: x_msg_count OUT NOCOPY NUMBER,
1326: x_msg_data OUT NOCOPY VARCHAR2,
1365: AHL_DEBUG_PUB.enable_debug;
1366: END IF;
1367:
1368: -- Initialize API return status to success
1369: x_return_status := FND_API.G_RET_STS_SUCCESS;
1370:
1371: -- Standard Start of API savepoint
1372: SAVEPOINT process_material_req_PVT;
1373:
1408: (
1409: p_bo_identifier => l_bo_identifier,
1410: p_api_version_number => 1.0,
1411: p_init_msg_list => l_init_msg_list,
1412: p_commit => FND_API.G_FALSE,
1413: p_eam_wo_rec => l_eam_wo_rec,
1414: p_eam_op_tbl => l_eam_op_tbl,
1415: p_eam_op_network_tbl => l_eam_op_network_tbl,
1416: p_eam_res_tbl => l_eam_res_tbl,
1435: p_debug_filename => l_debug_filename,
1436: p_debug_file_mode => l_debug_file_mode
1437: );
1438:
1439: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1440: IF ( G_DEBUG = 'Y' ) THEN
1441: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
1442: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
1443: END IF;
1441: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
1442: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
1443: END IF;
1444:
1445: RAISE FND_API.G_EXC_ERROR;
1446: END IF;
1447:
1448: -- Perform the Commit (if requested)
1449: IF FND_API.to_boolean( p_commit ) THEN
1445: RAISE FND_API.G_EXC_ERROR;
1446: END IF;
1447:
1448: -- Perform the Commit (if requested)
1449: IF FND_API.to_boolean( p_commit ) THEN
1450: COMMIT WORK;
1451: END IF;
1452:
1453: -- Disable debug (if enabled)
1456: END IF;
1457:
1458: EXCEPTION
1459:
1460: WHEN FND_API.G_EXC_ERROR THEN
1461: ROLLBACK TO process_material_req_PVT;
1462: x_return_status := FND_API.G_RET_STS_ERROR;
1463: FND_MSG_PUB.count_and_get
1464: (
1458: EXCEPTION
1459:
1460: WHEN FND_API.G_EXC_ERROR THEN
1461: ROLLBACK TO process_material_req_PVT;
1462: x_return_status := FND_API.G_RET_STS_ERROR;
1463: FND_MSG_PUB.count_and_get
1464: (
1465: p_encoded => FND_API.G_FALSE,
1466: p_count => x_msg_count,
1461: ROLLBACK TO process_material_req_PVT;
1462: x_return_status := FND_API.G_RET_STS_ERROR;
1463: FND_MSG_PUB.count_and_get
1464: (
1465: p_encoded => FND_API.G_FALSE,
1466: p_count => x_msg_count,
1467: p_data => x_msg_data
1468: );
1469:
1470: IF ( G_DEBUG = 'Y' ) THEN
1471: AHL_DEBUG_PUB.disable_debug;
1472: END IF;
1473:
1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1475: ROLLBACK TO process_material_req_PVT;
1476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1477: FND_MSG_PUB.count_and_get
1478: (
1472: END IF;
1473:
1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1475: ROLLBACK TO process_material_req_PVT;
1476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1477: FND_MSG_PUB.count_and_get
1478: (
1479: p_encoded => FND_API.G_FALSE,
1480: p_count => x_msg_count,
1475: ROLLBACK TO process_material_req_PVT;
1476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1477: FND_MSG_PUB.count_and_get
1478: (
1479: p_encoded => FND_API.G_FALSE,
1480: p_count => x_msg_count,
1481: p_data => x_msg_data
1482: );
1483:
1486: END IF;
1487:
1488: WHEN OTHERS THEN
1489: ROLLBACK TO process_material_req_PVT;
1490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1491: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1492: THEN
1493: FND_MSG_PUB.add_exc_msg
1494: (
1498: );
1499: END IF;
1500: FND_MSG_PUB.count_and_get
1501: (
1502: p_encoded => FND_API.G_FALSE,
1503: p_count => x_msg_count,
1504: p_data => x_msg_data
1505: );
1506:
1512:
1513: PROCEDURE process_resource_req
1514: (
1515: p_api_version IN NUMBER := 1.0,
1516: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1517: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1518: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1519: p_default IN VARCHAR2 := FND_API.G_FALSE,
1520: p_module_type IN VARCHAR2 := NULL,
1513: PROCEDURE process_resource_req
1514: (
1515: p_api_version IN NUMBER := 1.0,
1516: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1517: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1518: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1519: p_default IN VARCHAR2 := FND_API.G_FALSE,
1520: p_module_type IN VARCHAR2 := NULL,
1521: x_return_status OUT NOCOPY VARCHAR2,
1514: (
1515: p_api_version IN NUMBER := 1.0,
1516: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1517: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1518: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1519: p_default IN VARCHAR2 := FND_API.G_FALSE,
1520: p_module_type IN VARCHAR2 := NULL,
1521: x_return_status OUT NOCOPY VARCHAR2,
1522: x_msg_count OUT NOCOPY NUMBER,
1515: p_api_version IN NUMBER := 1.0,
1516: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1517: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1518: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1519: p_default IN VARCHAR2 := FND_API.G_FALSE,
1520: p_module_type IN VARCHAR2 := NULL,
1521: x_return_status OUT NOCOPY VARCHAR2,
1522: x_msg_count OUT NOCOPY NUMBER,
1523: x_msg_data OUT NOCOPY VARCHAR2,
1562: AHL_DEBUG_PUB.enable_debug;
1563: END IF;
1564:
1565: -- Initialize API return status to success
1566: x_return_status := FND_API.G_RET_STS_SUCCESS;
1567:
1568: -- Standard Start of API savepoint
1569: SAVEPOINT process_resource_req_PVT;
1570:
1605: (
1606: p_bo_identifier => l_bo_identifier,
1607: p_api_version_number => 1.0,
1608: p_init_msg_list => l_init_msg_list,
1609: p_commit => FND_API.G_FALSE,
1610: p_eam_wo_rec => l_eam_wo_rec,
1611: p_eam_op_tbl => l_eam_op_tbl,
1612: p_eam_op_network_tbl => l_eam_op_network_tbl,
1613: p_eam_res_tbl => l_eam_res_tbl,
1632: p_debug_filename => l_debug_filename,
1633: p_debug_file_mode => l_debug_file_mode
1634: );
1635:
1636: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1637: IF ( G_DEBUG = 'Y' ) THEN
1638: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
1639: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
1640: END IF;
1638: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
1639: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
1640: END IF;
1641:
1642: RAISE FND_API.G_EXC_ERROR;
1643: END IF;
1644:
1645: -- Perform the Commit (if requested)
1646: IF FND_API.to_boolean( p_commit ) THEN
1642: RAISE FND_API.G_EXC_ERROR;
1643: END IF;
1644:
1645: -- Perform the Commit (if requested)
1646: IF FND_API.to_boolean( p_commit ) THEN
1647: COMMIT WORK;
1648: END IF;
1649:
1650: -- Disable debug (if enabled)
1653: END IF;
1654:
1655: EXCEPTION
1656:
1657: WHEN FND_API.G_EXC_ERROR THEN
1658: ROLLBACK TO process_resource_req_PVT;
1659: x_return_status := FND_API.G_RET_STS_ERROR;
1660: FND_MSG_PUB.count_and_get
1661: (
1655: EXCEPTION
1656:
1657: WHEN FND_API.G_EXC_ERROR THEN
1658: ROLLBACK TO process_resource_req_PVT;
1659: x_return_status := FND_API.G_RET_STS_ERROR;
1660: FND_MSG_PUB.count_and_get
1661: (
1662: p_encoded => FND_API.G_FALSE,
1663: p_count => x_msg_count,
1658: ROLLBACK TO process_resource_req_PVT;
1659: x_return_status := FND_API.G_RET_STS_ERROR;
1660: FND_MSG_PUB.count_and_get
1661: (
1662: p_encoded => FND_API.G_FALSE,
1663: p_count => x_msg_count,
1664: p_data => x_msg_data
1665: );
1666:
1667: IF ( G_DEBUG = 'Y' ) THEN
1668: AHL_DEBUG_PUB.disable_debug;
1669: END IF;
1670:
1671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1672: ROLLBACK TO process_resource_req_PVT;
1673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1674: FND_MSG_PUB.count_and_get
1675: (
1669: END IF;
1670:
1671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1672: ROLLBACK TO process_resource_req_PVT;
1673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1674: FND_MSG_PUB.count_and_get
1675: (
1676: p_encoded => FND_API.G_FALSE,
1677: p_count => x_msg_count,
1672: ROLLBACK TO process_resource_req_PVT;
1673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1674: FND_MSG_PUB.count_and_get
1675: (
1676: p_encoded => FND_API.G_FALSE,
1677: p_count => x_msg_count,
1678: p_data => x_msg_data
1679: );
1680:
1683: END IF;
1684:
1685: WHEN OTHERS THEN
1686: ROLLBACK TO process_resource_req_PVT;
1687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1688: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1689: THEN
1690: FND_MSG_PUB.add_exc_msg
1691: (
1695: );
1696: END IF;
1697: FND_MSG_PUB.count_and_get
1698: (
1699: p_encoded => FND_API.G_FALSE,
1700: p_count => x_msg_count,
1701: p_data => x_msg_data
1702: );
1703:
1709:
1710: PROCEDURE process_resource_assign
1711: (
1712: p_api_version IN NUMBER := 1.0,
1713: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1714: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1715: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1716: p_default IN VARCHAR2 := FND_API.G_FALSE,
1717: p_module_type IN VARCHAR2 := NULL,
1710: PROCEDURE process_resource_assign
1711: (
1712: p_api_version IN NUMBER := 1.0,
1713: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1714: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1715: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1716: p_default IN VARCHAR2 := FND_API.G_FALSE,
1717: p_module_type IN VARCHAR2 := NULL,
1718: x_return_status OUT NOCOPY VARCHAR2,
1711: (
1712: p_api_version IN NUMBER := 1.0,
1713: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1714: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1715: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1716: p_default IN VARCHAR2 := FND_API.G_FALSE,
1717: p_module_type IN VARCHAR2 := NULL,
1718: x_return_status OUT NOCOPY VARCHAR2,
1719: x_msg_count OUT NOCOPY NUMBER,
1712: p_api_version IN NUMBER := 1.0,
1713: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1714: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1715: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1716: p_default IN VARCHAR2 := FND_API.G_FALSE,
1717: p_module_type IN VARCHAR2 := NULL,
1718: x_return_status OUT NOCOPY VARCHAR2,
1719: x_msg_count OUT NOCOPY NUMBER,
1720: x_msg_data OUT NOCOPY VARCHAR2,
1759: AHL_DEBUG_PUB.enable_debug;
1760: END IF;
1761:
1762: -- Initialize API return status to success
1763: x_return_status := FND_API.G_RET_STS_SUCCESS;
1764:
1765: -- Standard Start of API savepoint
1766: SAVEPOINT process_resource_assign_PVT;
1767:
1802: (
1803: p_bo_identifier => l_bo_identifier,
1804: p_api_version_number => 1.0,
1805: p_init_msg_list => l_init_msg_list,
1806: p_commit => FND_API.G_FALSE,
1807: p_eam_wo_rec => l_eam_wo_rec,
1808: p_eam_op_tbl => l_eam_op_tbl,
1809: p_eam_op_network_tbl => l_eam_op_network_tbl,
1810: p_eam_res_tbl => l_eam_res_tbl,
1829: p_debug_filename => l_debug_filename,
1830: p_debug_file_mode => l_debug_file_mode
1831: );
1832:
1833: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1834: IF ( G_DEBUG = 'Y' ) THEN
1835: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
1836: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
1837: END IF;
1835: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
1836: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
1837: END IF;
1838:
1839: RAISE FND_API.G_EXC_ERROR;
1840: END IF;
1841:
1842: -- Perform the Commit (if requested)
1843: IF FND_API.to_boolean( p_commit ) THEN
1839: RAISE FND_API.G_EXC_ERROR;
1840: END IF;
1841:
1842: -- Perform the Commit (if requested)
1843: IF FND_API.to_boolean( p_commit ) THEN
1844: COMMIT WORK;
1845: END IF;
1846:
1847: -- Disable debug (if enabled)
1850: END IF;
1851:
1852: EXCEPTION
1853:
1854: WHEN FND_API.G_EXC_ERROR THEN
1855: ROLLBACK TO process_resource_assign_PVT;
1856: x_return_status := FND_API.G_RET_STS_ERROR;
1857: FND_MSG_PUB.count_and_get
1858: (
1852: EXCEPTION
1853:
1854: WHEN FND_API.G_EXC_ERROR THEN
1855: ROLLBACK TO process_resource_assign_PVT;
1856: x_return_status := FND_API.G_RET_STS_ERROR;
1857: FND_MSG_PUB.count_and_get
1858: (
1859: p_encoded => FND_API.G_FALSE,
1860: p_count => x_msg_count,
1855: ROLLBACK TO process_resource_assign_PVT;
1856: x_return_status := FND_API.G_RET_STS_ERROR;
1857: FND_MSG_PUB.count_and_get
1858: (
1859: p_encoded => FND_API.G_FALSE,
1860: p_count => x_msg_count,
1861: p_data => x_msg_data
1862: );
1863:
1864: IF ( G_DEBUG = 'Y' ) THEN
1865: AHL_DEBUG_PUB.disable_debug;
1866: END IF;
1867:
1868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1869: ROLLBACK TO process_resource_assign_PVT;
1870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1871: FND_MSG_PUB.count_and_get
1872: (
1866: END IF;
1867:
1868: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1869: ROLLBACK TO process_resource_assign_PVT;
1870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1871: FND_MSG_PUB.count_and_get
1872: (
1873: p_encoded => FND_API.G_FALSE,
1874: p_count => x_msg_count,
1869: ROLLBACK TO process_resource_assign_PVT;
1870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1871: FND_MSG_PUB.count_and_get
1872: (
1873: p_encoded => FND_API.G_FALSE,
1874: p_count => x_msg_count,
1875: p_data => x_msg_data
1876: );
1877:
1880: END IF;
1881:
1882: WHEN OTHERS THEN
1883: ROLLBACK TO process_resource_assign_PVT;
1884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1885: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1886: THEN
1887: FND_MSG_PUB.add_exc_msg
1888: (
1892: );
1893: END IF;
1894: FND_MSG_PUB.count_and_get
1895: (
1896: p_encoded => FND_API.G_FALSE,
1897: p_count => x_msg_count,
1898: p_data => x_msg_data
1899: );
1900:
1906:
1907: PROCEDURE process_eam_workorders
1908: (
1909: p_api_version IN NUMBER := 1.0,
1910: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1911: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1912: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1913: p_default IN VARCHAR2 := FND_API.G_FALSE,
1914: p_module_type IN VARCHAR2 := NULL,
1907: PROCEDURE process_eam_workorders
1908: (
1909: p_api_version IN NUMBER := 1.0,
1910: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1911: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1912: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1913: p_default IN VARCHAR2 := FND_API.G_FALSE,
1914: p_module_type IN VARCHAR2 := NULL,
1915: x_return_status OUT NOCOPY VARCHAR2,
1908: (
1909: p_api_version IN NUMBER := 1.0,
1910: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1911: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1912: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1913: p_default IN VARCHAR2 := FND_API.G_FALSE,
1914: p_module_type IN VARCHAR2 := NULL,
1915: x_return_status OUT NOCOPY VARCHAR2,
1916: x_msg_count OUT NOCOPY NUMBER,
1909: p_api_version IN NUMBER := 1.0,
1910: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1911: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1912: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1913: p_default IN VARCHAR2 := FND_API.G_FALSE,
1914: p_module_type IN VARCHAR2 := NULL,
1915: x_return_status OUT NOCOPY VARCHAR2,
1916: x_msg_count OUT NOCOPY NUMBER,
1917: x_msg_data OUT NOCOPY VARCHAR2,
1955: AHL_DEBUG_PUB.enable_debug;
1956: END IF;
1957:
1958: -- Initialize API return status to success
1959: x_return_status := FND_API.G_RET_STS_SUCCESS;
1960:
1961: -- Standard Start of API savepoint
1962: SAVEPOINT process_eam_workorders_PVT;
1963:
2029: x_eam_mat_req_tbl => l_out_eam_mat_req_tbl,
2030: x_eam_direct_items_tbl => l_out_eam_direct_items_tbl,
2031: x_return_status => l_return_status,
2032: x_msg_count => l_msg_count,
2033: p_commit => FND_API.G_FALSE,
2034: p_debug => l_debug,
2035: p_output_dir => l_output_dir,
2036: p_debug_filename => l_debug_filename,
2037: p_debug_file_mode => l_debug_file_mode
2036: p_debug_filename => l_debug_filename,
2037: p_debug_file_mode => l_debug_file_mode
2038: );
2039:
2040: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2041: IF ( G_DEBUG = 'Y' ) THEN
2042: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
2043: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
2044: END IF;
2042: AHL_DEBUG_PUB.debug( 'Error Count from EAM API : ' || l_msg_count );
2043: AHL_DEBUG_PUB.debug( 'Error Count from Error Stack : ' || FND_MSG_PUB.count_msg );
2044: END IF;
2045:
2046: RAISE FND_API.G_EXC_ERROR;
2047:
2048: ELSE
2049: --Change made on Nov 17, 2005 by jeli due to bug 4742895.
2050: --Ignore messages in stack if return status is S after calls to EAM APIs.
2077: END LOOP;
2078:
2079: l_msg_count := FND_MSG_PUB.count_msg;
2080: IF l_msg_count > 0 THEN
2081: RAISE FND_API.G_EXC_ERROR;
2082: END IF;
2083:
2084: -- Perform the Commit (if requested)
2085: IF FND_API.to_boolean( p_commit ) THEN
2081: RAISE FND_API.G_EXC_ERROR;
2082: END IF;
2083:
2084: -- Perform the Commit (if requested)
2085: IF FND_API.to_boolean( p_commit ) THEN
2086: COMMIT WORK;
2087: END IF;
2088: END IF;
2089:
2093: END IF;
2094:
2095: EXCEPTION
2096:
2097: WHEN FND_API.G_EXC_ERROR THEN
2098: ROLLBACK TO process_eam_workorders_PVT;
2099: x_return_status := FND_API.G_RET_STS_ERROR;
2100: FND_MSG_PUB.count_and_get
2101: (
2095: EXCEPTION
2096:
2097: WHEN FND_API.G_EXC_ERROR THEN
2098: ROLLBACK TO process_eam_workorders_PVT;
2099: x_return_status := FND_API.G_RET_STS_ERROR;
2100: FND_MSG_PUB.count_and_get
2101: (
2102: p_encoded => FND_API.G_FALSE,
2103: p_count => x_msg_count,
2098: ROLLBACK TO process_eam_workorders_PVT;
2099: x_return_status := FND_API.G_RET_STS_ERROR;
2100: FND_MSG_PUB.count_and_get
2101: (
2102: p_encoded => FND_API.G_FALSE,
2103: p_count => x_msg_count,
2104: p_data => x_msg_data
2105: );
2106:
2107: IF ( G_DEBUG = 'Y' ) THEN
2108: AHL_DEBUG_PUB.disable_debug;
2109: END IF;
2110:
2111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2112: ROLLBACK TO process_eam_workorders_PVT;
2113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2114: FND_MSG_PUB.count_and_get
2115: (
2109: END IF;
2110:
2111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2112: ROLLBACK TO process_eam_workorders_PVT;
2113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2114: FND_MSG_PUB.count_and_get
2115: (
2116: p_encoded => FND_API.G_FALSE,
2117: p_count => x_msg_count,
2112: ROLLBACK TO process_eam_workorders_PVT;
2113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2114: FND_MSG_PUB.count_and_get
2115: (
2116: p_encoded => FND_API.G_FALSE,
2117: p_count => x_msg_count,
2118: p_data => x_msg_data
2119: );
2120:
2123: END IF;
2124:
2125: WHEN OTHERS THEN
2126: ROLLBACK TO process_eam_workorders_PVT;
2127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2128: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2129: THEN
2130: FND_MSG_PUB.add_exc_msg
2131: (
2135: );
2136: END IF;
2137: FND_MSG_PUB.count_and_get
2138: (
2139: p_encoded => FND_API.G_FALSE,
2140: p_count => x_msg_count,
2141: p_data => x_msg_data
2142: );
2143: