[Home] [Help]
751: x_return_status:=FND_API.G_RET_STS_SUCCESS;
752:
753: IF p_x_mr_header_rec.PROGRAM_TYPE IS NULL OR p_x_mr_header_rec.PROGRAM_TYPE=FND_API.G_MISS_CHAR
754: THEN
755: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPE_NULL');
756: FND_MSG_PUB.ADD;
757: l_check_flag:='N';
758: END IF;
759:
763: OPEN get_lookup_meaning_to_code('AHL_FMP_MR_PROGRAM_TYPE',p_x_mr_header_rec.PROGRAM_TYPE);
764: FETCH get_lookup_meaning_to_code INTO l_lookup_code;
765: IF get_lookup_meaning_to_code%NOTFOUND
766: THEN
767: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPE_INVALID');
768: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PROGRAM_TYPE,false);
769: FND_MSG_PUB.ADD;
770: l_check_flag:='N';
771: ELSE
764: FETCH get_lookup_meaning_to_code INTO l_lookup_code;
765: IF get_lookup_meaning_to_code%NOTFOUND
766: THEN
767: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPE_INVALID');
768: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PROGRAM_TYPE,false);
769: FND_MSG_PUB.ADD;
770: l_check_flag:='N';
771: ELSE
772: l_program_type_code_ind:='N';
793: FETCH get_lookup_meaning_to_code INTO l_lookup_code;
794:
795: IF get_lookup_meaning_to_code%NOTFOUND
796: THEN
797: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGSUBTYPE_INVALID');
798: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE,false);
799: FND_MSG_PUB.ADD;
800: ELSE
801: p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE:=l_lookup_code;
794:
795: IF get_lookup_meaning_to_code%NOTFOUND
796: THEN
797: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGSUBTYPE_INVALID');
798: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE,false);
799: FND_MSG_PUB.ADD;
800: ELSE
801: p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE:=l_lookup_code;
802: END IF;
820: FETCH get_mrItemId INTO p_x_mr_header_rec.BILLING_ITEM_ID;
821:
822: IF get_mrItemId%NOTFOUND
823: THEN
824: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_INVALID_BITEM');
825: FND_MESSAGE.SET_TOKEN('BILLING_ITEM',p_x_mr_header_rec.BILLING_ITEM,false);
826: FND_MSG_PUB.ADD;
827: END IF;
828:
821:
822: IF get_mrItemId%NOTFOUND
823: THEN
824: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_INVALID_BITEM');
825: FND_MESSAGE.SET_TOKEN('BILLING_ITEM',p_x_mr_header_rec.BILLING_ITEM,false);
826: FND_MSG_PUB.ADD;
827: END IF;
828:
829: CLOSE get_mrItemId;
844: FETCH get_qainspection_type_code INTO p_x_mr_header_rec.QA_INSPECTION_TYPE_CODE;
845:
846: IF get_qainspection_type_code%NOTFOUND
847: THEN
848: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_QA_INSP');
849: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.QA_INSPECTION_TYPE,false);
850: FND_MSG_PUB.ADD;
851: /* Commented the Qa inspection type depedency on IMPLEMENTAT_STATUS_CODE as per ER#3822674
852: ELSE
845:
846: IF get_qainspection_type_code%NOTFOUND
847: THEN
848: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_QA_INSP');
849: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.QA_INSPECTION_TYPE,false);
850: FND_MSG_PUB.ADD;
851: /* Commented the Qa inspection type depedency on IMPLEMENTAT_STATUS_CODE as per ER#3822674
852: ELSE
853: IF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE IS NOT NULL
856: IF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE = 'OPTIONAL_DO_NOT_IMPLEMENT'
857: AND (p_x_mr_header_rec.qa_inspection_type IS NOT NULL
858: OR p_x_mr_header_rec.qa_inspection_type <>FND_API.G_MISS_CHAR)
859: THEN
860: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_IMPL_QA');
861: FND_MSG_PUB.ADD;
862: END IF;
863: End if;
864: */
872:
873: IF p_x_mr_header_rec.PROGRAM_TYPE_CODE= 'NON-ROUTINE' AND
874: p_x_mr_header_rec.IMPLEMENT_STATUS_CODE <> 'OPTIONAL_DO_NOT_IMPLEMENT'
875: THEN
876: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_IMPL_AND_PROGRAM_TYPE');
877: FND_MSG_PUB.ADD;
878: END IF;
879:
880: -- pdoki Commented for Auto Visit Forecasting Enhancement, Start.
894: WHERE MR_HEADER_ID=p_x_mr_header_rec.MR_HEADER_ID;
895:
896: IF nvl(l_check_impl_status,0) >0
897: THEN
898: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_VTYPE_EXIST');
899: FND_MSG_PUB.ADD;
900: -- Cannot modify if implementation status from unplanned/optional do not implement to some thing else if visit types are defined.
901: END IF;
902: END IF;
917: THEN
918: IF G_DEBUG='Y' THEN
919: AHL_DEBUG_PUB.debug( 'PRECEDING MR_TITLE COUNTER');
920: END IF;
921: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
922: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PRECEDING_MR_TITLE,false);
923: FND_MSG_PUB.ADD;
924: ELSIF nvl(l_title_counter,0)=1
925: THEN
918: IF G_DEBUG='Y' THEN
919: AHL_DEBUG_PUB.debug( 'PRECEDING MR_TITLE COUNTER');
920: END IF;
921: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
922: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PRECEDING_MR_TITLE,false);
923: FND_MSG_PUB.ADD;
924: ELSIF nvl(l_title_counter,0)=1
925: THEN
926: OPEN get_mr_header(p_x_mr_header_rec.PRECEDING_MR_TITLE);
931: THEN
932: IF G_DEBUG='Y' THEN
933: AHL_DEBUG_PUB.debug(' Preceding MRHEADER_ID NOT FOUND2','+HEADERS+');
934: END IF;
935: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
936: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PRECEDING_MR_TITLE,false);
937: FND_MSG_PUB.ADD;
938: END IF;
939: Close get_mr_header;
932: IF G_DEBUG='Y' THEN
933: AHL_DEBUG_PUB.debug(' Preceding MRHEADER_ID NOT FOUND2','+HEADERS+');
934: END IF;
935: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
936: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PRECEDING_MR_TITLE,false);
937: FND_MSG_PUB.ADD;
938: END IF;
939: Close get_mr_header;
940: ELSIF NVL(l_title_counter,0)>1
951: IF G_DEBUG='Y' THEN
952: AHL_DEBUG_PUB.debug('Preceding mr title err','+HEADERS+');
953: END IF;
954:
955: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
956: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PRECEDING_MR_TITLE,false);
957: FND_MSG_PUB.ADD;
958:
959: ELSIF (l_prec_mr_info.title<>p_x_mr_header_rec.PRECEDING_MR_TITLE
952: AHL_DEBUG_PUB.debug('Preceding mr title err','+HEADERS+');
953: END IF;
954:
955: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
956: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PRECEDING_MR_TITLE,false);
957: FND_MSG_PUB.ADD;
958:
959: ELSIF (l_prec_mr_info.title<>p_x_mr_header_rec.PRECEDING_MR_TITLE
960: and l_prec_mr_info.REVISION<>p_x_mr_header_rec.PRECEDING_MR_REVISION)
958:
959: ELSIF (l_prec_mr_info.title<>p_x_mr_header_rec.PRECEDING_MR_TITLE
960: and l_prec_mr_info.REVISION<>p_x_mr_header_rec.PRECEDING_MR_REVISION)
961: THEN
962: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PREC_MR_ID_SELECT_LOV');
963: FND_MSG_PUB.ADD;
964: END IF;
965:
966: Close get_prec_mrheader_info;
965:
966: Close get_prec_mrheader_info;
967: ELSIF NVL(l_title_counter,0)=0
968: THEN
969: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
970: FND_MSG_PUB.ADD;
971: END IF;
972: END IF;
973: -- pdoki, SBE Project, End.
997: FETCH get_warranty_template_id INTO p_x_mr_header_rec.WARRANTY_TEMPLATE_ID;
998:
999: IF get_warranty_template_id%NOTFOUND
1000: THEN
1001: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_INVALID_TEMPL');
1002: FND_MESSAGE.SET_TOKEN('WARRANTY_TEMPLATE_NAME',p_x_mr_header_rec.WARRANTY_TEMPLATE_NAME,false);
1003: FND_MSG_PUB.ADD;
1004: END IF;
1005:
998:
999: IF get_warranty_template_id%NOTFOUND
1000: THEN
1001: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_INVALID_TEMPL');
1002: FND_MESSAGE.SET_TOKEN('WARRANTY_TEMPLATE_NAME',p_x_mr_header_rec.WARRANTY_TEMPLATE_NAME,false);
1003: FND_MSG_PUB.ADD;
1004: END IF;
1005:
1006: CLOSE get_warranty_template_id;
1019: THEN
1020: SELECT COUNT(*) INTO l_loop_chain_count FROM ahl_mr_loop_chain_relns WHERE mr_header_id = p_x_mr_header_rec.mr_header_id AND (relationship_code = 'LOOP' OR (relationship_code ='CHAIN' AND sequence_number <> 1)) ;
1021:
1022: IF l_loop_chain_count > 0 THEN
1023: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_LPCH_IMPL_EXIST');
1024: FND_MSG_PUB.ADD;
1025:
1026: END IF;
1027:
1034: THEN
1035: SELECT COUNT(*) INTO l_loop_chain_count FROM ahl_mr_loop_chain_relns WHERE mr_header_id = p_x_mr_header_rec.mr_header_id;
1036:
1037: IF l_loop_chain_count > 0 THEN
1038: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_LPCH_REPT_EXIST');
1039: FND_MSG_PUB.ADD;
1040:
1041: END IF;
1042:
1067: OPEN GetMrDet(p_mr_header_rec.MR_HEADER_ID);
1068: FETCH GetMrDet into l_mr_rec;
1069: IF GetMrDet%NOTFOUND
1070: THEN
1071: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1072: FND_MSG_PUB.ADD;
1073: ELSE
1074:
1075: IF p_mr_header_rec.TYPE_CODE<>l_mr_rec.type_code
1079: WHERE MR_HEADER_ID=p_mr_header_rec.MR_HEADER_ID
1080: AND RELATIONSHIP_CODE = 'PARENT';
1081: IF l_counter >0
1082: THEN
1083: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_REL_SHOULDNOT_EXIST');
1084: FND_MSG_PUB.ADD;
1085: END IF;
1086:
1087: SELECT COUNT(*) INTO l_counter
1092:
1093:
1094: IF l_counter >0
1095: THEN
1096: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_EFF_SHOULDNOT_EXIST');
1097: FND_MSG_PUB.ADD;
1098: END IF;
1099:
1100: SELECT COUNT(B.MR_INTERVAL_ID) INTO l_counter
1103: AND A.MR_EFFECTIVITY_ID=B.MR_EFFECTIVITY_ID;
1104:
1105: IF l_counter >0
1106: THEN
1107: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INT_SHOULDNOT_EXIST');
1108: FND_MSG_PUB.ADD;
1109: END IF;
1110: END IF;
1111:
1116: WHERE MR_HEADER_ID=p_mr_header_rec.MR_HEADER_ID;
1117:
1118: IF l_counter >0
1119: THEN
1120: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_ROUTS_SHOULDNOT_EXIST');
1121: FND_MSG_PUB.ADD;
1122: END IF;
1123:
1124: SELECT COUNT(*) INTO l_counter
1125: FROM AHL_MR_ACTIONS_B
1126: WHERE MR_HEADER_ID=p_mr_header_rec.MR_HEADER_ID;
1127: IF l_counter >0
1128: THEN
1129: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_ACTNS_SHOULDNOT_EXIST');
1130: FND_MSG_PUB.ADD;
1131: END IF;
1132:
1133: SELECT COUNT(*) INTO l_counter
1136: AND ASO_OBJECT_TYPE_CODE='MR';
1137:
1138: IF l_counter >0
1139: THEN
1140: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_DOC_SHOULDNOT_EXIST');
1141: FND_MSG_PUB.ADD;
1142: END IF;
1143: END IF;
1144: END IF;
1351: END IF;
1352:
1353: IF G_APPLN_USAGE IS NULL
1354: THEN
1355: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
1356: FND_MSG_PUB.ADD;
1357: RETURN;
1358: END IF;
1359:
1359:
1360: IF p_mr_header_rec.PROGRAM_TYPE_CODE IS NULL OR
1361: p_mr_header_rec.PROGRAM_TYPE_CODE=FND_API.G_MISS_CHAR
1362: THEN
1363: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPE_NULL');
1364: FND_MSG_PUB.ADD;
1365: l_check_flag:='N';
1366: END IF;
1367:
1367:
1368: IF p_mr_header_rec.AUTO_SIGNOFF_FLAG<>'Y' AND
1369: nvl(p_mr_header_rec.AUTO_SIGNOFF_FLAG,'N')<>'N'
1370: THEN
1371: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_AUTOSIGNOFF_INVALID');
1372: FND_MSG_PUB.ADD;
1373: l_check_flag:='N';
1374: END IF;
1375:
1377: IF G_APPLN_USAGE='PM'
1378: THEN
1379: IF p_mr_header_rec.TYPE_CODE IS NULL OR p_mr_header_rec.TYPE_CODE=FND_API.G_MISS_CHAR
1380: THEN
1381: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TYPE_CODE_NULL');
1382: FND_MSG_PUB.ADD;
1383: l_check_flag:='N';
1384: END IF;
1385: END IF;
1395: OPEN check_prog_subtype(p_mr_header_rec.PROGRAM_TYPE_CODE,p_mr_header_rec.PROGRAM_SUBTYPE_CODE);
1396: FETCH check_prog_subtype INTO l_counter;
1397: IF check_prog_subtype%FOUND and l_counter=0
1398: THEN
1399: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPESUBTYPE_INV');
1400: FND_MESSAGE.SET_TOKEN('FIELD1',p_mr_header_rec.PROGRAM_SUBTYPE_CODE,false);
1401: FND_MESSAGE.SET_TOKEN('FIELD2',p_mr_header_rec.PROGRAM_TYPE_CODE,false);
1402: FND_MSG_PUB.ADD;
1403: END IF;
1396: FETCH check_prog_subtype INTO l_counter;
1397: IF check_prog_subtype%FOUND and l_counter=0
1398: THEN
1399: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPESUBTYPE_INV');
1400: FND_MESSAGE.SET_TOKEN('FIELD1',p_mr_header_rec.PROGRAM_SUBTYPE_CODE,false);
1401: FND_MESSAGE.SET_TOKEN('FIELD2',p_mr_header_rec.PROGRAM_TYPE_CODE,false);
1402: FND_MSG_PUB.ADD;
1403: END IF;
1404: CLOSE check_prog_subtype;
1397: IF check_prog_subtype%FOUND and l_counter=0
1398: THEN
1399: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPESUBTYPE_INV');
1400: FND_MESSAGE.SET_TOKEN('FIELD1',p_mr_header_rec.PROGRAM_SUBTYPE_CODE,false);
1401: FND_MESSAGE.SET_TOKEN('FIELD2',p_mr_header_rec.PROGRAM_TYPE_CODE,false);
1402: FND_MSG_PUB.ADD;
1403: END IF;
1404: CLOSE check_prog_subtype;
1405: END IF;
1418: p_lookup_TYPE =>'AHL_FMP_MR_SERVICE_TYPE'
1419: );
1420: IF l_return_status<>'S'
1421: THEN
1422: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SERVICE_INVALID');
1423: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.service_type_code,false);
1424: FND_MSG_PUB.ADD;
1425: END IF;
1426: END IF;
1419: );
1420: IF l_return_status<>'S'
1421: THEN
1422: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SERVICE_INVALID');
1423: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.service_type_code,false);
1424: FND_MSG_PUB.ADD;
1425: END IF;
1426: END IF;
1427:
1434: p_lookup_TYPE =>'AHL_FMP_PM_DOWNTIME_UOM'
1435: );
1436: IF l_return_status<>'S'
1437: THEN
1438: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_UOM_CODE_INV');
1439: FND_MSG_PUB.ADD;
1440: END IF;
1441: END IF;
1442:
1450: p_lookup_TYPE =>'AHL_FMP_MR_IMPLEMENT_STATUS'
1451: );
1452: IF l_return_status<>'S'
1453: THEN
1454: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_IMPLMNTSTAT_INVALID');
1455: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.implement_status_code,false);
1456: FND_MSG_PUB.ADD;
1457: END IF;
1458:
1451: );
1452: IF l_return_status<>'S'
1453: THEN
1454: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_IMPLMNTSTAT_INVALID');
1455: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.implement_status_code,false);
1456: FND_MSG_PUB.ADD;
1457: END IF;
1458:
1459: -- Qa Inspection type and autosignoff
1466: THEN
1467: IF G_DEBUG='Y' THEN
1468: AHL_DEBUG_PUB.debug('Error at AHL_FMP_AUTSIGNOFF_QA_INV');
1469: END IF;
1470: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_AUTSIGNOFF_QA_INV');
1471: FND_MSG_PUB.ADD;
1472: END IF;
1473: END IF;
1474:
1481: IF p_mr_header_rec.implement_status_code = 'OPTIONAL_DO_NOT_IMPLEMENT'
1482: AND (p_mr_header_rec.qa_inspection_type IS NOT NULL
1483: AND p_mr_header_rec.qa_inspection_type <>FND_API.G_MISS_CHAR)
1484: THEN
1485: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_IMPL_QA');
1486: FND_MSG_PUB.ADD;
1487: END IF;
1488: END IF;
1489: */
1496: );
1497:
1498: IF l_return_status<>'S'
1499: THEN
1500: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_REPETITIVE_INVALID');
1501: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.repetitive_flag,false);
1502: FND_MSG_PUB.ADD;
1503: ELSE
1504: IF p_mr_header_rec.repetitive_flag ='N'
1497:
1498: IF l_return_status<>'S'
1499: THEN
1500: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_REPETITIVE_INVALID');
1501: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.repetitive_flag,false);
1502: FND_MSG_PUB.ADD;
1503: ELSE
1504: IF p_mr_header_rec.repetitive_flag ='N'
1505: and (p_mr_header_rec.SHOW_REPETITIVE_CODE IS NOT NULL OR p_mr_header_rec.SHOW_REPETITIVE_CODE<>FND_API.G_MISS_CHAR)
1505: and (p_mr_header_rec.SHOW_REPETITIVE_CODE IS NOT NULL OR p_mr_header_rec.SHOW_REPETITIVE_CODE<>FND_API.G_MISS_CHAR)
1506: THEN
1507: IF p_mr_header_rec.SHOW_REPETITIVE_CODE<>'NEXT'
1508: THEN
1509: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_REPITITVE_NO');
1510: FND_MSG_PUB.ADD;
1511: END IF;
1512: END IF;
1513:
1526: );
1527:
1528: IF l_return_Status<>FND_API.G_RET_STS_SUCCESS
1529: THEN
1530: FND_MESSAGE.SET_NAME('AHL',l_msg_data1);
1531: FND_MSG_PUB.ADD;
1532: END IF;
1533: END IF;
1534: end if;
1543: );
1544:
1545: IF l_return_status<>'S'
1546: THEN
1547: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_WHICHEVER_INVALID');
1548: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.whichever_first_code,false);
1549: FND_MSG_PUB.ADD;
1550: END IF;
1551:
1544:
1545: IF l_return_status<>'S'
1546: THEN
1547: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_WHICHEVER_INVALID');
1548: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.whichever_first_code,false);
1549: FND_MSG_PUB.ADD;
1550: END IF;
1551:
1552: --Space Category
1561: );
1562:
1563: IF l_return_status<>'S'
1564: THEN
1565: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_VISIT_CATEGORY');
1566: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.space_category_code,false);
1567: FND_MSG_PUB.ADD;
1568: END IF;
1569:
1562:
1563: IF l_return_status<>'S'
1564: THEN
1565: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_VISIT_CATEGORY');
1566: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.space_category_code,false);
1567: FND_MSG_PUB.ADD;
1568: END IF;
1569:
1570: --sareepar service category
1577: AHL_DEBUG_PUB.debug('RETURN STATUS '||l_return_status,'+ERRORS+');
1578:
1579: IF l_return_status<>'S'
1580: THEN
1581: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INVALID_SERV_CAT_RANK');
1582: FND_MESSAGE.SET_TOKEN('CODE',p_mr_header_rec.space_category_code,false);
1583: FND_MSG_PUB.ADD;
1584:
1585: END IF;
1578:
1579: IF l_return_status<>'S'
1580: THEN
1581: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INVALID_SERV_CAT_RANK');
1582: FND_MESSAGE.SET_TOKEN('CODE',p_mr_header_rec.space_category_code,false);
1583: FND_MSG_PUB.ADD;
1584:
1585: END IF;
1586: END IF;
1593: IF l_mr_header_rec.MR_STATUS_CODE='DRAFT' -- AND nvl(l_mr_header_rec.SUPERUSER_ROLE,'N')='N'
1594: THEN
1595: IF p_mr_header_rec.effective_from is null or p_mr_header_rec.effective_from=fnd_api.g_miss_date
1596: THEN
1597: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_EFFECTIVE_FROM_NULL');
1598: FND_MSG_PUB.ADD;
1599: ELSIF TRUNC(p_mr_header_rec.effective_from)
1601: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_EFFE_FROM_INVALID');
1597: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_EFFECTIVE_FROM_NULL');
1598: FND_MSG_PUB.ADD;
1599: ELSIF TRUNC(p_mr_header_rec.effective_from)
1601: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_EFFE_FROM_INVALID');
1602: FND_MSG_PUB.ADD;
1603: END IF;
1604: END IF;
1605: IF P_MR_HEADER_REC.DML_OPERATION='U'
1618: THEN
1619:
1620: IF trunc(l_mr_Rec.effective_from) < trunc(l_mr_Rec1.effective_from)
1621: THEN
1622: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_ST_DATE_LESSER');
1623: FND_MESSAGE.SET_TOKEN('FIELD',l_mr_Rec.effective_from,false);
1624: FND_MSG_PUB.ADD;
1625: END IF;
1626: END IF;
1619:
1620: IF trunc(l_mr_Rec.effective_from) < trunc(l_mr_Rec1.effective_from)
1621: THEN
1622: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_ST_DATE_LESSER');
1623: FND_MESSAGE.SET_TOKEN('FIELD',l_mr_Rec.effective_from,false);
1624: FND_MSG_PUB.ADD;
1625: END IF;
1626: END IF;
1627: close GetHeaderInfo1;
1637: AHL_DEBUG_PUB.debug('billing item :'||nvl(p_mr_header_rec.mr_header_id,0));
1638: END IF;
1639: IF l_mr_header_rec.MR_STATUS_CODE='COMPLETE' AND nvl(l_mr_header_rec.SUPERUSER_ROLE,'N')='N'
1640: THEN
1641: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_INVALID_EDIT');
1642: FND_MSG_PUB.ADD;
1643: ELSIF l_mr_header_rec.MR_STATUS_CODE='COMPLETE' AND l_mr_header_rec.SUPERUSER_ROLE='Y'
1644: THEN
1645:
1669: or nvl(l_rec.space_category_code,'X')<>nvl(P_mr_header_rec.space_category_code,'X')
1670: or NVL(l_rec.DOWN_TIME,0)<>NVL(p_mr_header_rec.DOWN_TIME,0)
1671: or nvl(l_rec.UOM_CODE,'X')<>nvl(p_mr_header_rec.uom_code,'X')
1672: THEN
1673: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SUPER_NONEDIT_COLS');
1674: FND_MSG_PUB.ADD;
1675: AHL_DEBUG_PUB.debug('SUPERUSER NONEDIT:'||L_MR_HEADER_REC.SUPERUSER_ROLE);
1676: l_check_flag:='N';
1677: END IF;
1681: -- Validating null items
1682:
1683: IF p_mr_header_rec.SHOW_REPETITIVE_CODE IS NULL OR p_mr_header_rec.SHOW_REPETITIVE_CODE=FND_API.G_MISS_char
1684: THEN
1685: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_REPETITIVE_INVALID');
1686: FND_MSG_PUB.ADD;
1687: END IF;
1688:
1689: IF p_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG IS NULL
1688:
1689: IF p_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG IS NULL
1690: OR p_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG=FND_API.G_MISS_CHAR
1691: THEN
1692: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_ACCMPLSHMNT_NULL');
1693: FND_MSG_PUB.ADD;
1694: END IF;
1695: -- Validating category. Kasridha - Bug#10245217
1696: IF p_mr_header_rec.CATEGORY_CODE IS NULL
1695: -- Validating category. Kasridha - Bug#10245217
1696: IF p_mr_header_rec.CATEGORY_CODE IS NULL
1697: OR p_mr_header_rec.CATEGORY_CODE=FND_API.G_MISS_CHAR
1698: THEN
1699: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_CATEGORY_NULL');
1700: FND_MSG_PUB.ADD;
1701: ELSE
1702: CHECK_LOOKUP_CODE
1703: (
1706: p_lookup_TYPE =>'AHL_FMP_MR_CATEGORY'
1707: );
1708: IF l_return_status<>'S'
1709: THEN
1710: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_CATEGORY_INVALID');
1711: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.CATEGORY_CODE);
1712: FND_MSG_PUB.ADD;
1713: END IF;
1714: END IF;
1707: );
1708: IF l_return_status<>'S'
1709: THEN
1710: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_CATEGORY_INVALID');
1711: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.CATEGORY_CODE);
1712: FND_MSG_PUB.ADD;
1713: END IF;
1714: END IF;
1715:
1717: THEN
1718: IF p_mr_header_rec.TYPE_CODE IS NULL
1719: OR p_mr_header_rec.TYPE_CODE=FND_API.G_MISS_CHAR
1720: THEN
1721: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_TYPECODE_NULL');
1722: FND_MSG_PUB.ADD;
1723: ELSE
1724: CHECK_LOOKUP_CODE
1725: (
1728: p_lookup_TYPE =>'AHL_FMP_MR_TYPE'
1729: );
1730: IF l_return_status<>'S'
1731: THEN
1732: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_TYPE_CODE_INVALID');
1733: FND_MSG_PUB.ADD;
1734: END IF;
1735: END IF;
1736:
1737:
1738: IF NVL(p_mr_header_rec.TYPE_CODE,'X')='PROGRAM'
1739: and NVL(p_mr_header_rec.DOWN_TIME,0)>0
1740: THEN
1741: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_DOWNTIME_ZERO');
1742: FND_MSG_PUB.ADD;
1743: ELSIF NVL(p_mr_header_rec.TYPE_CODE,'X')<>'PROGRAM'
1744: and NVL(p_mr_header_rec.DOWN_TIME,0)=0
1745: THEN
1742: FND_MSG_PUB.ADD;
1743: ELSIF NVL(p_mr_header_rec.TYPE_CODE,'X')<>'PROGRAM'
1744: and NVL(p_mr_header_rec.DOWN_TIME,0)=0
1745: THEN
1746: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_DOWNTIME_NO_Z');
1747: FND_MSG_PUB.ADD;
1748: END IF;
1749:
1750: IF NVL(p_mr_header_rec.TYPE_CODE,'X')='PROGRAM'
1749:
1750: IF NVL(p_mr_header_rec.TYPE_CODE,'X')='PROGRAM'
1751: and NVL(p_mr_header_rec.SERVICE_REQUEST_TEMPLATE_ID,0)>0
1752: THEN
1753: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_SRVREQ_TEMPLT');
1754: FND_MSG_PUB.ADD;
1755: END IF;
1756:
1757: IF p_mr_header_rec.DML_OPERATION='U'
1769: p_mr_header_rec.DOWN_TIME<>FND_API.G_MISS_NUM)
1770: AND p_mr_header_rec.DOWN_TIME <=0
1771: THEN
1772: -- FOR CMRO MODE
1773: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_DOWNTIME_NO_Z');
1774: FND_MSG_PUB.ADD;
1775: END IF;
1776:
1777: END IF;
1780: IF (p_mr_header_rec.dml_operation <> 'D')
1781: THEN
1782: IF (p_mr_header_rec.program_type_code = 'MO_PROC' AND p_mr_header_rec.implement_status_code <> 'OPTIONAL_DO_NOT_IMPLEMENT')
1783: THEN
1784: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_MR_MOPROC_IMPL_INV');
1785: -- Maintenance Requirements of (M) and (O) procedure program type must be unplanned.
1786: FND_MSG_PUB.ADD;
1787: END IF;
1788: END IF;
1792:
1793: IF p_mr_header_rec.dml_operation='C' THEN
1794: IF p_mr_header_rec.title is null or p_mr_header_rec.title=fnd_api.g_miss_char
1795: THEN
1796: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NULL');
1797: FND_MSG_PUB.ADD;
1798: ELSIF p_mr_header_rec.title is not null or p_mr_header_rec.title<>fnd_api.g_miss_char
1799: THEN
1800:
1803: SELECT COUNT(*) INTO l_title_counter
1804: FROM AHL_MR_HEADERS_APP_V
1805: WHERE upper(ltrim(rtrim(TITLE)))=upper(ltrim(rtrim(l_mr_header_rec.title)));
1806: IF l_title_counter >0 then
1807: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_INVALID');
1808: FND_MSG_PUB.ADD;
1809: END IF;
1810: END IF;
1811:
1811:
1812: ELSIF p_mr_header_rec.dml_operation<>'U' THEN
1813: IF p_mr_header_rec.title is null or p_mr_header_rec.title=fnd_api.g_miss_char
1814: THEN
1815: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NULL');
1816: FND_MSG_PUB.ADD;
1817: END IF;
1818: -- pdoki, Following attr is obsoleted after SBE Project, Start.
1819: IF p_mr_header_rec.PRECEDING_MR_HEADER_ID=p_mr_header_rec.MR_HEADER_ID
1817: END IF;
1818: -- pdoki, Following attr is obsoleted after SBE Project, Start.
1819: IF p_mr_header_rec.PRECEDING_MR_HEADER_ID=p_mr_header_rec.MR_HEADER_ID
1820: THEN
1821: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
1822: FND_MSG_PUB.ADD;
1823: END IF;
1824: -- pdoki, SBE Project, End.
1825:
1824: -- pdoki, SBE Project, End.
1825:
1826: IF p_mr_header_rec.mr_header_id is null or p_mr_header_rec.mr_header_id=fnd_api.g_miss_num
1827: THEN
1828: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
1829: FND_MSG_PUB.ADD;
1830: END IF;
1831:
1832: IF p_mr_header_rec.SERVICE_TYPE_CODE IS NULL OR p_mr_header_rec.SERVICE_TYPE_CODE=FND_API.G_MISS_char
1832: IF p_mr_header_rec.SERVICE_TYPE_CODE IS NULL OR p_mr_header_rec.SERVICE_TYPE_CODE=FND_API.G_MISS_char
1833: THEN
1834: IF G_APPLN_USAGE<>'PM'
1835: THEN
1836: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SERVICE_NULL');
1837: FND_MSG_PUB.ADD;
1838: END IF;
1839: ELSE
1840: OPEN get_mr_title(p_mr_header_rec.mr_header_id);
1841: FETCH get_mr_title INTO l_title,l_object_version_number;
1842:
1843: IF get_mr_title%NOTFOUND
1844: THEN
1845: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_INVALID');
1846: FND_MSG_PUB.ADD;
1847: END IF;
1848:
1849: IF p_mr_header_rec.object_version_number <> l_object_version_number or l_object_version_number is null or l_object_version_number=fnd_api.g_miss_num
1847: END IF;
1848:
1849: IF p_mr_header_rec.object_version_number <> l_object_version_number or l_object_version_number is null or l_object_version_number=fnd_api.g_miss_num
1850: THEN
1851: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1852: FND_MSG_PUB.ADD;
1853: END IF;
1854: IF p_mr_header_rec.title <> l_title
1855: THEN
1852: FND_MSG_PUB.ADD;
1853: END IF;
1854: IF p_mr_header_rec.title <> l_title
1855: THEN
1856: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NOT_EDITABLE');
1857: FND_MSG_PUB.ADD;
1858: END IF;
1859: CLOSE get_mr_title;
1860: END IF;
1868: OPEN check_route_mo_proc(p_mr_header_rec.mr_header_id);
1869: FETCH check_route_mo_proc INTO l_dummy_char;
1870: IF (check_route_mo_proc%FOUND)
1871: THEN
1872: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_MR_TYPE_ROUTE_INV');
1873: -- Cannot modify program type to (M) and (O) procedure since routes of non (M), (O) procedure type are already associated.
1874: FND_MSG_PUB.ADD;
1875: END IF;
1876: CLOSE check_route_mo_proc;
1882: OPEN check_eff_exists(p_mr_header_rec.mr_header_id);
1883: FETCH check_eff_exists INTO l_dummy_char;
1884: IF (check_eff_exists%FOUND)
1885: THEN
1886: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_MR_TYPE_EFF_INV');
1887: -- Cannot modify program type to / from(M) and (O) procedure since effectivities already exist.
1888: FND_MSG_PUB.ADD;
1889: END IF;
1890: CLOSE check_eff_exists;
1900: OPEN check_accom_triggers_exists(p_mr_header_rec.mr_header_id);
1901: FETCH check_accom_triggers_exists INTO l_dummy_char;
1902: IF (check_accom_triggers_exists%FOUND)
1903: THEN
1904: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_ACCOM_TRGRS_EXISTS');
1905: -- Cannot modify Implement Status to Unplanned since Accomplishment Triggers are associated.
1906: FND_MSG_PUB.ADD;
1907: END IF;
1908: CLOSE check_accom_triggers_exists;
1915: OPEN check_sb_rules_exists(p_mr_header_rec.mr_header_id);
1916: FETCH check_sb_rules_exists INTO l_dummy_char;
1917: IF (check_sb_rules_exists%FOUND)
1918: THEN
1919: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_SB_RULES_EXISTS');
1920: -- Cannot modify program type from Service Bulletin since Service Bulletin Rules are defined..It can be modified only after deleting associated rules.
1921: FND_MSG_PUB.ADD;
1922: END IF;
1923: CLOSE check_sb_rules_exists;
1934: OPEN check_accom_triggers_exists(p_mr_header_rec.mr_header_id);
1935: FETCH check_accom_triggers_exists INTO l_dummy_char;
1936: IF (check_accom_triggers_exists%FOUND)
1937: THEN
1938: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_ACM_TRG_EXIST');
1939: -- Cannot modify Implement Status to Soft Limit since Accomplishment Triggers are associated.
1940: FND_MSG_PUB.ADD;
1941: END IF;
1942: CLOSE check_accom_triggers_exists;
1945: --Check If Parent-Child Relationship Exist for MR
1946: OPEN check_group_mr(p_mr_header_rec.mr_header_id);
1947: FETCH check_group_mr INTO l_dummy_char;
1948: IF (check_group_mr%FOUND) THEN
1949: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_REL_EXIST');
1950: --Cannot modify Implement Status to Soft Limit since this Maintenance Requirement is a part of relationship.
1951: FND_MSG_PUB.ADD;
1952: END IF;
1953: CLOSE check_group_mr;
1957: --Check If Chain Exist for MR
1958: OPEN chk_mr_in_loop_or_chain(p_mr_header_rec.mr_header_id, 'CHAIN');
1959: FETCH chk_mr_in_loop_or_chain INTO l_dummy_char;
1960: IF (chk_mr_in_loop_or_chain%FOUND) THEN
1961: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_CHAIN_EXIST');
1962: --Cannot modify Implement Status to Soft Limit since this Maintenance Requirement is a part of Chain.
1963: FND_MSG_PUB.ADD;
1964: END IF;
1965: CLOSE chk_mr_in_loop_or_chain;
1969: --Check If Loop Exist for MR
1970: OPEN chk_mr_in_loop_or_chain(p_mr_header_rec.mr_header_id, 'LOOP');
1971: FETCH chk_mr_in_loop_or_chain INTO l_dummy_char;
1972: IF (chk_mr_in_loop_or_chain%FOUND) THEN
1973: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_LOOP_EXIST');
1974: --Cannot modify Implement Status to Soft Limit since this Maintenance Requirement is a part of Loop.
1975: FND_MSG_PUB.ADD;
1976: END IF;
1977: CLOSE chk_mr_in_loop_or_chain;
1990: FETCH Get_Visit_Type_Count INTO l_count;
1991: IF (Get_Visit_Type_Count%FOUND)
1992: THEN
1993: IF l_count > 1 THEN
1994: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_VST_TYPES_EXISTS');
1995: -- Cannot modify Unplanned Maintenance Requirement to Planned if more than one Visit Type Exists.
1996: FND_MSG_PUB.ADD;
1997: END IF;
1998:
2038: CONNECT BY PRIOR MR_HEADER_ID=PRECEDING_MR_HEADER_ID;
2039:
2040: EXCEPTION
2041: WHEN l_cyclic_loop THEN
2042: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_H_ID_CYCLIC');
2043: FND_MESSAGE.SET_TOKEN('FIELD',P_RELATED_MR_TITLE,false);
2044: FND_MSG_PUB.ADD;
2045: x_return_status := FND_API.G_RET_STS_ERROR;
2046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2039:
2040: EXCEPTION
2041: WHEN l_cyclic_loop THEN
2042: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_H_ID_CYCLIC');
2043: FND_MESSAGE.SET_TOKEN('FIELD',P_RELATED_MR_TITLE,false);
2044: FND_MSG_PUB.ADD;
2045: x_return_status := FND_API.G_RET_STS_ERROR;
2046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2047: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2623: BEGIN
2624:
2625: IF G_APPLN_USAGE IS NULL
2626: THEN
2627: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
2628: FND_MSG_PUB.ADD;
2629: RETURN;
2630: END IF;
2631:
2630: END IF;
2631:
2632: IF P_MR_HEADER_ID IS NULL OR P_MR_HEADER_ID=FND_API.G_MISS_NUM
2633: THEN
2634: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
2635: FND_MSG_PUB.ADD;
2636: L_ERR_FLAG:=1;
2637: END IF;
2638:
2637: END IF;
2638:
2639: IF P_OBJECT_VERSION_NUMBER IS NULL OR P_OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM
2640: THEN
2641: FND_MESSAGE.SET_NAME('AHL','AHL_COM_OBJECT_VERS_NUM_NULL');
2642: FND_MSG_PUB.ADD;
2643: L_ERR_FLAG:=1;
2644: END IF;
2645:
2649: END IF;
2650: Open GetHeaderDet(P_MR_HEADER_ID,P_OBJECT_VERSION_NUMBER);
2651: Fetch GetHeaderDet into l_rec;
2652: If GetHeaderDet%NotFound Then
2653: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_INVALID');
2654: FND_MSG_PUB.ADD;
2655: Elsif GetHeaderDet%Found and (l_rec.mr_status_code<>'DRAFT' AND
2656: l_rec.mr_status_code<>'APPROVAL_REJECTED')
2657: Then
2654: FND_MSG_PUB.ADD;
2655: Elsif GetHeaderDet%Found and (l_rec.mr_status_code<>'DRAFT' AND
2656: l_rec.mr_status_code<>'APPROVAL_REJECTED')
2657: Then
2658: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INVALID_MR_STATUS');
2659: FND_MSG_PUB.ADD;
2660: End if;
2661: Close GetHeaderDet;
2662: END;
2894: FETCH get_mr_title INTO l_mr_title;
2895:
2896: IF get_mr_title%NOTFOUND
2897: THEN
2898: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_INVALID');
2899: FND_MSG_PUB.ADD;
2900: Else
2901: Delete from AHL_MR_ORGANIZATIONS
2902: Where MR_TITLE = l_mr_title;