[Home] [Help]
813: IF p_x_mr_header_rec.implement_status_code <> 'OPTIONAL_DO_NOT_IMPLEMENT' AND
814: p_x_mr_header_rec.dml_operation='U'
815: THEN
816: Select count(*) INTO l_check_impl_status
817: From AHL_MR_HEADERS_B
818: WHERE Implement_status_code = 'OPTIONAL_DO_NOT_IMPLEMENT'
819: AND MR_HEADER_ID=p_x_mr_header_rec.MR_HEADER_ID;
820: IF nvl(l_check_impl_status,0) >0
821: THEN
1067: mr.space_category_code,
1068: mr.down_time,
1069: mr.uom_code
1070: FROM
1071: ahl_mr_headers_b mr,
1072: qa_char_value_lookups qa,
1073: mtl_system_items_kfv mtl
1074: WHERE
1075: mr_header_id= c_mr_header_id AND
1663: END IF;
1664: CLOSE check_route_mo_proc;
1665: END IF;
1666:
1667: SELECT program_type_code INTO l_old_prog_type FROM ahl_mr_headers_b WHERE mr_header_id = p_mr_header_rec.mr_header_id;
1668: IF (l_old_prog_type <> p_mr_header_rec.program_type_code AND 'MO_PROC' IN (l_old_prog_type, p_mr_header_rec.program_type_code))
1669: THEN
1670: OPEN check_eff_exists(p_mr_header_rec.mr_header_id);
1671: FETCH check_eff_exists INTO l_dummy_char;
1708: BEGIN
1709: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1710:
1711: SELECT COUNT(*) INTO l_counter
1712: FROM AHL_MR_HEADERS_B
1713: WHERE APPLICATION_USG_CODE=G_APPLN_USAGE
1714: START WITH MR_HEADER_ID=P_MR_HEADER_ID
1715: CONNECT BY PRIOR MR_HEADER_ID=PRECEDING_MR_HEADER_ID;
1716:
1867: THEN
1868: p_x_mr_header_rec.EFFECTIVE_FROM:=sysdate;
1869: END IF;
1870: */
1871: select AHL_MR_HEADERS_B_S.NEXTVAL INTO p_x_mr_header_rec.mr_header_id from dual;
1872:
1873:
1874: /*
1875: IF p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG IS NULL OR p_x_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG=FND_API.G_MISS_char
2263: --AMSRINIV.Bug 4916286. Tuning below commented query for improving performance
2264: SELECT
2265: mr_status_code
2266: FROM
2267: ahl_mr_headers_b
2268: WHERE
2269: application_usg_code = RTRIM(LTRIM(fnd_profile.value('AHL_APPLN_USAGE'))) AND
2270: mr_header_id=C_MR_HEADER_ID AND
2271: object_version_number=C_OBJECT_VERSION_NUMBER;