[Home] [Help]
54: CURSOR get_material_details(c_nr_profile_header_id NUMBER)
55: IS
56: SELECT nr_profile_det_id, inventory_item_id, uom_code, required_qty, stage_type_code,
57: fleet_header_id, operating_org_id, operations_type_code
58: FROM ahl_nr_profile_details
59: WHERE nr_profile_header_id = c_nr_profile_header_id
60: AND inventory_item_id IS NOT NULL
61: AND excluded_date IS NULL
62: ORDER BY stage_type_code, inventory_item_id, fleet_header_id, operating_org_id, operations_type_code;
63:
64: CURSOR get_mat_det_no_fleet(c_nr_profile_header_id NUMBER)
65: IS
66: SELECT nr_profile_det_id, inventory_item_id, uom_code, required_qty, stage_type_code
67: FROM ahl_nr_profile_details
68: WHERE nr_profile_header_id = c_nr_profile_header_id
69: AND inventory_item_id IS NOT NULL
70: AND excluded_date IS NULL
71: AND fleet_header_id IS NULL
391: CURSOR get_resource_details(c_nr_profile_header_id NUMBER)
392: IS
393: SELECT nr_profile_det_id, cmro_resource_id, required_qty, stage_type_code,
394: fleet_header_id, operating_org_id, operations_type_code
395: FROM ahl_nr_profile_details
396: WHERE nr_profile_header_id = c_nr_profile_header_id
397: AND excluded_date IS NULL
398: AND cmro_resource_id IS NOT NULL
399: ORDER BY stage_type_code, cmro_resource_id, fleet_header_id, operating_org_id, operations_type_code;
400:
401: CURSOR get_res_det_no_fleet(c_nr_profile_header_id NUMBER)
402: IS
403: SELECT nr_profile_det_id, cmro_resource_id, required_qty, stage_type_code
404: FROM ahl_nr_profile_details
405: WHERE nr_profile_header_id = c_nr_profile_header_id
406: AND excluded_date IS NULL
407: AND cmro_resource_id IS NOT NULL
408: AND fleet_header_id IS NULL
824:
825: CURSOR get_object_version_number(c_nr_profile_det_id NUMBER,c_object_version_number NUMBER)
826: IS
827: SELECT object_version_number
828: FROM ahl_nr_profile_details
829: WHERE nr_profile_det_id = c_nr_profile_det_id
830: AND object_version_number = c_object_version_number;
831:
832:
864: FND_MESSAGE.set_name( 'AHL', 'AHL_RA_NP_MR_TIT_MIS');
865: FND_MSG_PUB.add;
866: END IF;
867:
868: /* Resource Type is not validated because it is not stored in Table : AHL_NR_PROFILE_DETAILS
869: It is showing in the UI,for filtering purpose*/
870: -- If Exluded date is NULL then validate the records other wise skip the validation
871: IF (p_x_nr_prof_est_tbl(i).excluded_date IS NULL)
872: THEN
1241:
1242: CURSOR check_duplicate_record (c_nr_profile_header_id NUMBER, c_cmro_resource_id NUMBER,c_inventory_item_id NUMBER,c_stage_type_code VARCHAR2,c_fleet_header_id NUMBER, c_operating_org_id NUMBER, c_operations_type_code VARCHAR2,c_analysis_qty NUMBER)
1243: IS
1244: SELECT nr_profile_det_id,required_qty,excluded_date
1245: FROM ahl_nr_profile_details
1246: WHERE NR_PROFILE_HEADER_ID = c_nr_profile_header_id
1247: AND NVL(CMRO_RESOURCE_ID,-1) = c_cmro_resource_id
1248: AND NVL(INVENTORY_ITEM_ID ,-1) = c_inventory_item_id
1249: AND NVL(STAGE_TYPE_CODE,'X') = c_stage_type_code
1254:
1255: CURSOR check_exclude_record (c_nr_profile_header_id NUMBER, c_cmro_resource_id NUMBER,c_inventory_item_id NUMBER,c_stage_type_code VARCHAR2,c_fleet_header_id NUMBER, c_operating_org_id NUMBER, c_operations_type_code VARCHAR2,c_analysis_qty NUMBER)
1256: IS
1257: SELECT nr_profile_det_id,required_qty,excluded_date
1258: FROM ahl_nr_profile_details
1259: WHERE NR_PROFILE_HEADER_ID = c_nr_profile_header_id
1260: AND NVL(CMRO_RESOURCE_ID,-1) = c_cmro_resource_id
1261: AND NVL(INVENTORY_ITEM_ID ,-1) = c_inventory_item_id
1262: AND NVL(STAGE_TYPE_CODE,'X') = c_stage_type_code
1268:
1269: CURSOR get_analysis(c_nr_profile_det_id NUMBER)
1270: IS
1271: SELECT analysis_qty ,excluded_date, cmro_resource_id, inventory_item_id, stage_type_code, fleet_header_id ,operating_org_id, operations_type_code
1272: FROM ahl_nr_profile_details
1273: WHERE nr_profile_det_id = c_nr_profile_det_id;
1274:
1275: l_nr_profile_det_id NUMBER;
1276: l_analysis_qty NUMBER;
1387: FETCH check_duplicate_record INTO l_nr_profile_det_id , l_required_qty, l_excluded_date ;
1388:
1389: IF(check_duplicate_record%NOTFOUND)
1390: THEN
1391: INSERT INTO AHL_NR_PROFILE_DETAILS
1392: (
1393: NR_PROFILE_DET_ID,
1394: OBJECT_VERSION_NUMBER,
1395: LAST_UPDATE_DATE,
1456: FETCH check_duplicate_record INTO l_nr_profile_det_id , l_required_qty, l_excluded_date ;
1457: IF(check_duplicate_record%FOUND)
1458: THEN
1459:
1460: UPDATE AHL_NR_PROFILE_DETAILS
1461: SET analysis_qty = p_x_nr_prof_est_tbl(i).analysis_qty,
1462: required_qty = p_x_nr_prof_est_tbl(i).required_qty,
1463: object_version_number = object_version_number + 1,
1464: last_update_date = SYSDATE,
1485: FETCH check_exclude_record INTO l_nr_profile_det_id , l_required_qty, l_excluded_date;
1486:
1487: IF(check_exclude_record%FOUND)
1488: THEN
1489: DELETE FROM AHL_NR_PROFILE_DETAILS
1490: WHERE NR_PROFILE_DET_ID = l_nr_profile_det_id;
1491:
1492: IF (SQL%NOTFOUND)
1493: THEN
1497:
1498: CLOSE check_exclude_record;
1499:
1500: ELSE
1501: INSERT INTO AHL_NR_PROFILE_DETAILS
1502: (
1503: NR_PROFILE_DET_ID,
1504: OBJECT_VERSION_NUMBER,
1505: LAST_UPDATE_DATE,
1565: FND_MESSAGE.set_token('RECORD', get_record_identifier( p_x_nr_prof_est_tbl(i)) );
1566: FND_MSG_PUB.add;
1567: ELSE
1568:
1569: INSERT INTO AHL_NR_PROFILE_DETAILS
1570: (
1571: NR_PROFILE_DET_ID,
1572: OBJECT_VERSION_NUMBER,
1573: LAST_UPDATE_DATE,
1620: END IF;
1621:
1622: ELSIF (p_x_nr_prof_est_tbl(i).dml_operation = 'U')
1623: THEN
1624: UPDATE AHL_NR_PROFILE_DETAILS
1625: SET object_version_number = object_version_number +1,
1626: last_update_date = SYSDATE,
1627: last_updated_by = FND_GLOBAL.user_id,
1628: last_update_login = FND_GLOBAL.login_id,
1643: IF(get_analysis%FOUND)
1644: THEN
1645: IF(l_analysis_qty IS NULL )
1646: THEN
1647: DELETE FROM AHL_NR_PROFILE_DETAILS
1648: WHERE NR_PROFILE_DET_ID = p_x_nr_prof_est_tbl(i).nr_profile_det_id;
1649: ELSE
1650: OPEN check_exclude_record(p_x_nr_prof_est_tbl(i).nr_profile_header_id,
1651: NVL(l_cmro_resource_id,-1), NVL(l_inventory_item_id,-1),
1655: FETCH check_exclude_record INTO l_temp_nr_profile_det_id , l_required_qty, l_excluded_date;
1656:
1657: IF(check_exclude_record%FOUND)
1658: THEN
1659: DELETE FROM AHL_NR_PROFILE_DETAILS
1660: WHERE nr_profile_det_id = p_x_nr_prof_est_tbl(i).nr_profile_det_id;
1661: ELSE
1662: UPDATE AHL_NR_PROFILE_DETAILS
1663: SET object_version_number = object_version_number +1,
1658: THEN
1659: DELETE FROM AHL_NR_PROFILE_DETAILS
1660: WHERE nr_profile_det_id = p_x_nr_prof_est_tbl(i).nr_profile_det_id;
1661: ELSE
1662: UPDATE AHL_NR_PROFILE_DETAILS
1663: SET object_version_number = object_version_number +1,
1664: last_update_date = SYSDATE,
1665: last_updated_by = FND_GLOBAL.user_id,
1666: last_update_login = FND_GLOBAL.login_id,
2128: THEN
2129: IF(l_mr_version_number = 1)
2130: THEN
2131: -- Delete Profile details(Resources, Materials)
2132: DELETE FROM AHL_NR_PROFILE_DETAILS
2133: WHERE NR_PROFILE_HEADER_ID = l_nr_profile_header_id;
2134:
2135: -- Delete Profile Header
2136: DELETE FROM AHL_NR_PROFILE_HEADERS