[Home] [Help]
881: /*IF p_x_mr_header_rec.implement_status_code <> 'OPTIONAL_DO_NOT_IMPLEMENT' AND
882: p_x_mr_header_rec.dml_operation='U'
883: THEN
884: Select count(*) INTO l_check_impl_status
885: From AHL_MR_HEADERS_B
886: WHERE Implement_status_code = 'OPTIONAL_DO_NOT_IMPLEMENT'
887: AND MR_HEADER_ID=p_x_mr_header_rec.MR_HEADER_ID;
888: IF nvl(l_check_impl_status,0) >0
889: THEN
1197: mr.space_category_code,
1198: mr.down_time,
1199: mr.uom_code
1200: FROM
1201: ahl_mr_headers_b mr,
1202: qa_char_value_lookups qa,
1203: mtl_system_items_kfv mtl
1204: WHERE
1205: mr_header_id= c_mr_header_id AND
1337: FROM AHL_MR_VISIT_TYPES
1338: WHERE mr_header_id = c_mr_header_id;
1339:
1340: l_count NUMBER;
1341: l_old_impl_status AHL_MR_HEADERS_B.implement_status_code%TYPE;
1342: -- pdoki added for Auto Visit Forecasting Project, End.
1343:
1344: BEGIN
1345: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1875: END IF;
1876: CLOSE check_route_mo_proc;
1877: END IF;
1878:
1879: 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;
1880: 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))
1881: THEN
1882: OPEN check_eff_exists(p_mr_header_rec.mr_header_id);
1883: FETCH check_eff_exists INTO l_dummy_char;
1908: CLOSE check_accom_triggers_exists;
1909: END IF;
1910:
1911:
1912: 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;
1913: IF (l_old_prog_type = 'SERV_BLTN' AND l_old_prog_type <> p_mr_header_rec.program_type_code)
1914: THEN
1915: OPEN check_sb_rules_exists(p_mr_header_rec.mr_header_id);
1916: FETCH check_sb_rules_exists INTO l_dummy_char;
1981: --sukhwsin::Complex Assembly Maintenance Changes - Ends
1982:
1983: -- pdoki added for Auto Visit Forecasting Project, Start.
1984: IF (p_mr_header_rec.dml_operation = 'U') THEN
1985: SELECT implement_status_code INTO l_old_impl_status FROM ahl_mr_headers_b WHERE mr_header_id = p_mr_header_rec.mr_header_id;
1986: IF (l_old_impl_status = 'OPTIONAL_DO_NOT_IMPLEMENT' AND l_old_impl_status <> p_mr_header_rec.implement_status_code)
1987: THEN
1988:
1989: OPEN Get_Visit_Type_Count(p_mr_header_rec.mr_header_id);
2031: BEGIN
2032: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2033:
2034: SELECT COUNT(*) INTO l_counter
2035: FROM AHL_MR_HEADERS_B
2036: WHERE APPLICATION_USG_CODE=G_APPLN_USAGE
2037: START WITH MR_HEADER_ID=P_MR_HEADER_ID
2038: CONNECT BY PRIOR MR_HEADER_ID=PRECEDING_MR_HEADER_ID;
2039:
2196: THEN
2197: p_x_mr_header_rec.EFFECTIVE_FROM:=sysdate;
2198: END IF;
2199: */
2200: select AHL_MR_HEADERS_B_S.NEXTVAL INTO p_x_mr_header_rec.mr_header_id from dual;
2201:
2202:
2203: /*
2204: 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
2607: --AMSRINIV.Bug 4916286. Tuning below commented query for improving performance
2608: SELECT
2609: mr_status_code
2610: FROM
2611: ahl_mr_headers_b
2612: WHERE
2613: application_usg_code = RTRIM(LTRIM(fnd_profile.value('AHL_APPLN_USAGE'))) AND
2614: mr_header_id=C_MR_HEADER_ID AND
2615: object_version_number=C_OBJECT_VERSION_NUMBER;
2729: -- sansatpa - Changes for NR Analysis - MR Org removal Begins
2730: CURSOR get_mr_title(c_mr_header_id NUMBER)
2731: IS
2732: SELECT title
2733: FROM AHL_MR_HEADERS_B
2734: WHERE mr_header_id= c_mr_header_id;
2735:
2736: l_mr_title varchar2(80);
2737: -- sansatpa - Changes for NR Analysis - MR Org removal Ends
2869: -- pdoki added for SBE Project, Start.
2870: -- Deletes the SB Rules associated to an MR
2871: select program_type_code
2872: into l_program_type
2873: from ahl_mr_headers_b
2874: where mr_header_id = p_mr_header_id;
2875:
2876: IF l_program_type = 'SERV_BLTN' THEN
2877: