[Home] [Help]
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:
760:
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';
773: p_x_mr_header_rec.PROGRAM_TYPE_CODE:=l_lookup_code;
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;
803:
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;
830: END IF;
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
854: OR p_x_mr_header_rec.IMPLEMENT_STATUS_CODE <>FND_API.G_MISS_CHAR
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: */
865:
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.
881: /*IF p_x_mr_header_rec.implement_status_code <> 'OPTIONAL_DO_NOT_IMPLEMENT' AND
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;
903: END IF; */
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);
927:
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
941: THEN
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)
961: THEN
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;
967: ELSIF NVL(l_title_counter,0)=0
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.
974:
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;
1007: END IF;
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:
1028: END IF;
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:
1043: END IF;
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
1076: THEN
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
1088: FROM AHL_MR_EFFECTIVITIES
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
1101: FROM AHL_MR_EFFECTIVITIES A,AHL_MR_INTERVALS B
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:
1112: IF p_mr_header_rec.TYPE_CODE='PROGRAM' and l_mr_rec.type_code='ACTIVITY'
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
1134: FROM AHL_DOC_TITLE_ASSOS_B
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;
1145: CLOSE GetMrDet;
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:
1360: IF p_mr_header_rec.PROGRAM_TYPE_CODE IS NULL OR
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:
1368: IF p_mr_header_rec.AUTO_SIGNOFF_FLAG<>'Y' AND
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:
1376:
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;
1386:
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;
1406:
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:
1428: ELSIF G_APPLN_USAGE<>'PM'
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:
1443: -- Implement Status
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
1460:
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:
1475:
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: */
1490: -- Repetitive Flag
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)
1506: THEN
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:
1514: if p_mr_header_rec.dml_operation<>'C'
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;
1535: END IF;
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
1553:
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
1571: VALIDATE_SERVICE_CATEGORY_CODE
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;
1587:
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');
1602: FND_MSG_PUB.ADD;
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'
1606: THEN
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;
1628: end if;
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:
1646:
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;
1678: CLOSE get_super_non_edit;
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
1690: OR p_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG=FND_API.G_MISS_CHAR
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
1697: OR p_mr_header_rec.CATEGORY_CODE=FND_API.G_MISS_CHAR
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: (
1704: x_return_status =>l_return_status,
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:
1716: IF G_APPLN_USAGE='PM'
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: (
1726: x_return_status =>l_return_status,
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
1746: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_DOWNTIME_NO_Z');
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'
1751: and NVL(p_mr_header_rec.SERVICE_REQUEST_TEMPLATE_ID,0)>0
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'
1758: THEN
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;
1778:
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;
1789: -- Tamal [MEL/CDL] -- End changes
1790:
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:
1801: -- Title Should not Repeat in Create mode
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:
1812: ELSIF p_mr_header_rec.dml_operation<>'U' THEN
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
1820: THEN
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:
1826: IF p_mr_header_rec.mr_header_id is null or p_mr_header_rec.mr_header_id=fnd_api.g_miss_num
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
1833: THEN
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
1850: THEN
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
1856: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NOT_EDITABLE');
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;
1861: END IF;
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;
1877: END IF;
1878:
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;
1891: END IF;
1892: END IF;
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;
1909: END IF;
1910:
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;
1924: END IF;
1925: END IF;
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;
1943:
1944: IF (l_dummy_char IS NULL) THEN
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;
1954: END IF;
1955:
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;
1966: END IF;
1967:
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;
1978: END IF;
1979:
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:
1999: END IF;
2000: CLOSE Get_Visit_Type_Count;
2001: END IF;
2002: END IF;
2003: -- pdoki added for Auto Visit Forecasting Project, End.
2004:
2005: l_msg_count := FND_MSG_PUB.count_msg;
2006:
2007: IF l_msg_count > 0
2008: THEN
2009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
2048: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_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;
2048: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2049: p_count => x_msg_count,
2050: p_data => x_msg_data);
2051:
2052: WHEN FND_API.G_EXC_ERROR THEN
2050: p_data => x_msg_data);
2051:
2052: WHEN FND_API.G_EXC_ERROR THEN
2053: x_return_status := FND_API.G_RET_STS_ERROR;
2054: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2055: p_count => x_msg_count,
2056: p_data => X_msg_data);
2057: WHEN OTHERS THEN
2058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2055: p_count => x_msg_count,
2056: p_data => X_msg_data);
2057: WHEN OTHERS THEN
2058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2059: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2060: THEN
2061: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_MR_ASSOCIATIONS_PVT',
2062: p_procedure_name => 'CHECK_CYCLIC_ASSOCIATION',
2063: p_error_text => SUBSTR(SQLERRM,1,240));
2057: WHEN OTHERS THEN
2058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2059: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2060: THEN
2061: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_MR_ASSOCIATIONS_PVT',
2062: p_procedure_name => 'CHECK_CYCLIC_ASSOCIATION',
2063: p_error_text => SUBSTR(SQLERRM,1,240));
2064: END IF;
2065: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2061: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_MR_ASSOCIATIONS_PVT',
2062: p_procedure_name => 'CHECK_CYCLIC_ASSOCIATION',
2063: p_error_text => SUBSTR(SQLERRM,1,240));
2064: END IF;
2065: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2066: p_count => x_msg_count,
2067: p_data => X_msg_data);
2068: END;
2069: -- pdoki, SBE Project, End.
2106: END IF;
2107:
2108:
2109: IF FND_API.to_boolean(l_init_msg_list) THEN
2110: FND_MSG_PUB.initialize;
2111: END IF;
2112:
2113:
2114: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2153: x_return_status =>x_return_Status,
2154: p_x_mr_header_rec =>p_x_mr_header_rec);
2155: END IF;
2156:
2157: l_msg_count := FND_MSG_PUB.count_msg;
2158: IF l_msg_count > 0
2159: THEN
2160: x_msg_count := l_msg_count;
2161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2176: x_return_status =>x_return_Status,
2177: p_mr_header_rec =>p_x_mr_header_rec);
2178: END IF;
2179:
2180: l_msg_count := FND_MSG_PUB.count_msg;
2181:
2182: IF l_msg_count > 0
2183: THEN
2184: x_msg_count := l_msg_count;
2274: EXCEPTION
2275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2276: ROLLBACK TO CREATE_MR_HEADER_PVT;
2277: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2278: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2279: p_count => x_msg_count,
2280: p_data => x_msg_data);
2281: IF G_DEBUG='Y' THEN
2282: AHL_DEBUG_PUB.disable_debug;
2283: END IF;
2284: WHEN FND_API.G_EXC_ERROR THEN
2285: ROLLBACK TO CREATE_MR_HEADER_PVT;
2286: X_return_status := FND_API.G_RET_STS_ERROR;
2287: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2288: p_count => x_msg_count,
2289: p_data => X_msg_data);
2290: IF G_DEBUG='Y' THEN
2291: AHL_DEBUG_PUB.disable_debug;
2293:
2294: WHEN OTHERS THEN
2295: ROLLBACK TO CREATE_MR_HEADER_PVT;
2296: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2297: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2298: THEN
2299: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_FMP_MR_HEADER_PVT',
2300: p_procedure_name => 'CREATE_MR_HEADER',
2301: p_error_text => SUBSTR(SQLERRM,1,240));
2295: ROLLBACK TO CREATE_MR_HEADER_PVT;
2296: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2297: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2298: THEN
2299: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_FMP_MR_HEADER_PVT',
2300: p_procedure_name => 'CREATE_MR_HEADER',
2301: p_error_text => SUBSTR(SQLERRM,1,240));
2302:
2303: END IF;
2300: p_procedure_name => 'CREATE_MR_HEADER',
2301: p_error_text => SUBSTR(SQLERRM,1,240));
2302:
2303: END IF;
2304: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2305: p_count => x_msg_count,
2306: p_data => X_msg_data);
2307: IF G_DEBUG='Y' THEN
2308: AHL_DEBUG_PUB.disable_debug;
2340: END IF;
2341:
2342: IF FND_API.to_boolean(p_init_msg_list)
2343: THEN
2344: FND_MSG_PUB.initialize;
2345: END IF;
2346:
2347:
2348: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2415: x_return_status =>x_return_Status,
2416: p_x_mr_header_rec =>p_x_mr_header_rec);
2417: END IF;
2418:
2419: l_msg_count := FND_MSG_PUB.count_msg;
2420:
2421: IF l_msg_count > 0
2422: THEN
2423: x_msg_count := l_msg_count;
2437: );
2438:
2439: END IF;
2440:
2441: l_msg_count := FND_MSG_PUB.count_msg;
2442:
2443: IF l_msg_count > 0
2444: THEN
2445: x_msg_count := l_msg_count;
2506: X_LAST_UPDATE_DATE =>sysdate,
2507: X_LAST_UPDATED_BY =>fnd_global.user_id,
2508: X_LAST_UPDATE_LOGIN =>fnd_global.user_id);
2509:
2510: l_msg_count := FND_MSG_PUB.count_msg;
2511: IF l_msg_count > 0 THEN
2512: X_msg_count := l_msg_count;
2513: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2514: RAISE FND_API.G_EXC_ERROR;
2532: p_x_mr_header_rec.PRECEDING_MR_TITLE
2533: );
2534: END IF;
2535:
2536: l_msg_count := FND_MSG_PUB.count_msg;
2537: IF l_msg_count > 0 THEN
2538: X_msg_count := l_msg_count;
2539: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2540: RAISE FND_API.G_EXC_ERROR;
2559:
2560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2561: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2562: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2563: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2564: p_count => x_msg_count,
2565: p_data => x_msg_data);
2566: IF G_DEBUG='Y' THEN
2567: AHL_DEBUG_PUB.disable_debug;
2569:
2570: WHEN FND_API.G_EXC_ERROR THEN
2571: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2572: X_return_status := FND_API.G_RET_STS_ERROR;
2573: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2574: p_count => x_msg_count,
2575: p_data => X_msg_data);
2576: IF G_DEBUG='Y' THEN
2577: AHL_DEBUG_PUB.disable_debug;
2578: END IF;
2579: WHEN OTHERS THEN
2580: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2581: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2582: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2583: THEN
2584: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2585: p_procedure_name =>l_api_name,
2586: p_error_text => SUBSTR(SQLERRM,1,240));
2580: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2581: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2582: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2583: THEN
2584: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2585: p_procedure_name =>l_api_name,
2586: p_error_text => SUBSTR(SQLERRM,1,240));
2587: END IF;
2588: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2584: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2585: p_procedure_name =>l_api_name,
2586: p_error_text => SUBSTR(SQLERRM,1,240));
2587: END IF;
2588: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2589: p_count => x_msg_count,
2590: p_data => X_msg_data);
2591: IF G_DEBUG='Y' THEN
2592: AHL_DEBUG_PUB.disable_debug;
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:
2632: IF P_MR_HEADER_ID IS NULL OR P_MR_HEADER_ID=FND_API.G_MISS_NUM
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:
2639: IF P_OBJECT_VERSION_NUMBER IS NULL OR P_OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM
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:
2646: IF L_ERR_FLAG=1
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
2658: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INVALID_MR_STATUS');
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;
2663: --
2749: END IF;
2750:
2751: IF FND_API.to_boolean(P_init_msg_list)
2752: THEN
2753: FND_MSG_PUB.initialize;
2754: END IF;
2755:
2756:
2757: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2773: p_object_version_number =>p_object_version_number,
2774: x_return_status =>L_return_Status
2775: );
2776:
2777: l_msg_count := FND_MSG_PUB.count_msg;
2778: IF l_msg_count > 0
2779: THEN
2780: x_msg_count := l_msg_count;
2781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
2903: End if;
2905:
2906: -- sansatpa - Changes for NR Analysis - MR Orgs Deletion -- Ends
2907:
2908:
2909: l_msg_count := FND_MSG_PUB.count_msg;
2910: IF l_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
2911: THEN
2912: x_msg_count := l_msg_count;
2913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2918: (
2919: X_MR_HEADER_ID =>p_mr_header_id
2920: );
2921:
2922: l_msg_count := FND_MSG_PUB.count_msg;
2923: IF l_msg_count > 0 THEN
2924: X_msg_count := l_msg_count;
2925: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2926: RAISE FND_API.G_EXC_ERROR;
2936: EXCEPTION
2937: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2938: ROLLBACK TO DELETE_MR_HEADER_PVT;
2939: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2940: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2941: p_count => x_msg_count,
2942: p_data => x_msg_data);
2943: IF G_DEBUG='Y' THEN
2944: AHL_DEBUG_PUB.disable_debug;
2946:
2947: WHEN FND_API.G_EXC_ERROR THEN
2948: ROLLBACK TO DELETE_MR_HEADER_PVT;
2949: X_return_status := FND_API.G_RET_STS_ERROR;
2950: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2951: p_count => x_msg_count,
2952: p_data => X_msg_data);
2953: IF G_DEBUG='Y' THEN
2954: AHL_DEBUG_PUB.disable_debug;
2956:
2957: WHEN OTHERS THEN
2958: ROLLBACK TO DELETE_MR_HEADER_PVT;
2959: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2960: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2961: THEN
2962: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2963: p_procedure_name =>l_api_name,
2964: p_error_text => SUBSTR(SQLERRM,1,240));
2958: ROLLBACK TO DELETE_MR_HEADER_PVT;
2959: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2960: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2961: THEN
2962: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2963: p_procedure_name =>l_api_name,
2964: p_error_text => SUBSTR(SQLERRM,1,240));
2965: END IF;
2966: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2962: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2963: p_procedure_name =>l_api_name,
2964: p_error_text => SUBSTR(SQLERRM,1,240));
2965: END IF;
2966: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2967: p_count => x_msg_count,
2968: p_data => X_msg_data);
2969: IF G_DEBUG='Y' THEN
2970: AHL_DEBUG_PUB.disable_debug;