[Home] [Help]
685:
686: IF p_x_mr_header_rec.PROGRAM_TYPE IS NULL OR p_x_mr_header_rec.PROGRAM_TYPE=FND_API.G_MISS_CHAR
687: THEN
688: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPE_NULL');
689: FND_MSG_PUB.ADD;
690: l_check_flag:='N';
691: END IF;
692:
693:
698: IF get_lookup_meaning_to_code%NOTFOUND
699: THEN
700: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPE_INVALID');
701: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PROGRAM_TYPE,false);
702: FND_MSG_PUB.ADD;
703: l_check_flag:='N';
704: ELSE
705: l_program_type_code_ind:='N';
706: p_x_mr_header_rec.PROGRAM_TYPE_CODE:=l_lookup_code;
728: IF get_lookup_meaning_to_code%NOTFOUND
729: THEN
730: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGSUBTYPE_INVALID');
731: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE,false);
732: FND_MSG_PUB.ADD;
733: ELSE
734: p_x_mr_header_rec.PROGRAM_SUBTYPE_CODE:=l_lookup_code;
735: END IF;
736:
755: IF get_mrItemId%NOTFOUND
756: THEN
757: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_INVALID_BITEM');
758: FND_MESSAGE.SET_TOKEN('BILLING_ITEM',p_x_mr_header_rec.BILLING_ITEM,false);
759: FND_MSG_PUB.ADD;
760: END IF;
761:
762: CLOSE get_mrItemId;
763: END IF;
779: IF get_qainspection_type_code%NOTFOUND
780: THEN
781: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_QA_INSP');
782: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.QA_INSPECTION_TYPE,false);
783: FND_MSG_PUB.ADD;
784: /* Commented the Qa inspection type depedency on IMPLEMENTAT_STATUS_CODE as per ER#3822674
785: ELSE
786: IF p_x_mr_header_rec.IMPLEMENT_STATUS_CODE IS NOT NULL
787: OR p_x_mr_header_rec.IMPLEMENT_STATUS_CODE <>FND_API.G_MISS_CHAR
790: AND (p_x_mr_header_rec.qa_inspection_type IS NOT NULL
791: OR p_x_mr_header_rec.qa_inspection_type <>FND_API.G_MISS_CHAR)
792: THEN
793: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_IMPL_QA');
794: FND_MSG_PUB.ADD;
795: END IF;
796: End if;
797: */
798:
806: IF p_x_mr_header_rec.PROGRAM_TYPE_CODE= 'NON-ROUTINE' AND
807: p_x_mr_header_rec.IMPLEMENT_STATUS_CODE <> 'OPTIONAL_DO_NOT_IMPLEMENT'
808: THEN
809: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_IMPL_AND_PROGRAM_TYPE');
810: FND_MSG_PUB.ADD;
811: END IF;
812:
813: IF p_x_mr_header_rec.implement_status_code <> 'OPTIONAL_DO_NOT_IMPLEMENT' AND
814: p_x_mr_header_rec.dml_operation='U'
827:
828: IF nvl(l_check_impl_status,0) >0
829: THEN
830: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_VTYPE_EXIST');
831: FND_MSG_PUB.ADD;
832: -- Cannot modify if implementation status from unplanned/optional do not implement to some thing else if visit types are defined.
833: END IF;
834: END IF;
835: END IF;
849: AHL_DEBUG_PUB.debug( 'PRECEDING MR_TITLE COUNTER');
850: END IF;
851: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
852: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PRECEDING_MR_TITLE,false);
853: FND_MSG_PUB.ADD;
854: ELSIF nvl(l_title_counter,0)=1
855: THEN
856: OPEN get_mr_header(p_x_mr_header_rec.PRECEDING_MR_TITLE);
857:
863: AHL_DEBUG_PUB.debug(' Preceding MRHEADER_ID NOT FOUND2','+HEADERS+');
864: END IF;
865: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
866: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PRECEDING_MR_TITLE,false);
867: FND_MSG_PUB.ADD;
868: END IF;
869: Close get_mr_header;
870: ELSIF NVL(l_title_counter,0)>1
871: THEN
883: END IF;
884:
885: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
886: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_header_rec.PRECEDING_MR_TITLE,false);
887: FND_MSG_PUB.ADD;
888:
889: ELSIF (l_prec_mr_info.title<>p_x_mr_header_rec.PRECEDING_MR_TITLE
890: and l_prec_mr_info.REVISION<>p_x_mr_header_rec.PRECEDING_MR_REVISION)
891: THEN
889: ELSIF (l_prec_mr_info.title<>p_x_mr_header_rec.PRECEDING_MR_TITLE
890: and l_prec_mr_info.REVISION<>p_x_mr_header_rec.PRECEDING_MR_REVISION)
891: THEN
892: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PREC_MR_ID_SELECT_LOV');
893: FND_MSG_PUB.ADD;
894: END IF;
895:
896: Close get_prec_mrheader_info;
897: ELSIF NVL(l_title_counter,0)=0
896: Close get_prec_mrheader_info;
897: ELSIF NVL(l_title_counter,0)=0
898: THEN
899: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
900: FND_MSG_PUB.ADD;
901: END IF;
902: END IF;
903:
904: IF p_x_mr_header_rec.DML_OPERATION='U'
939: FETCH GetMrDet into l_mr_rec;
940: IF GetMrDet%NOTFOUND
941: THEN
942: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
943: FND_MSG_PUB.ADD;
944: ELSE
945:
946: IF p_mr_header_rec.TYPE_CODE<>l_mr_rec.type_code
947: THEN
950: WHERE MR_HEADER_ID=p_mr_header_rec.MR_HEADER_ID;
951: IF l_counter >0
952: THEN
953: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_REL_SHOULDNOT_EXIST');
954: FND_MSG_PUB.ADD;
955: END IF;
956:
957: SELECT COUNT(*) INTO l_counter
958: FROM AHL_MR_EFFECTIVITIES
963:
964: IF l_counter >0
965: THEN
966: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_EFF_SHOULDNOT_EXIST');
967: FND_MSG_PUB.ADD;
968: END IF;
969:
970: SELECT COUNT(B.MR_INTERVAL_ID) INTO l_counter
971: FROM AHL_MR_EFFECTIVITIES A,AHL_MR_INTERVALS B
974:
975: IF l_counter >0
976: THEN
977: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INT_SHOULDNOT_EXIST');
978: FND_MSG_PUB.ADD;
979: END IF;
980: END IF;
981:
982: IF p_mr_header_rec.TYPE_CODE='PROGRAM' and l_mr_rec.type_code='ACTIVITY'
987:
988: IF l_counter >0
989: THEN
990: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_ROUTS_SHOULDNOT_EXIST');
991: FND_MSG_PUB.ADD;
992: END IF;
993:
994: SELECT COUNT(*) INTO l_counter
995: FROM AHL_MR_ACTIONS_B
996: WHERE MR_HEADER_ID=p_mr_header_rec.MR_HEADER_ID;
997: IF l_counter >0
998: THEN
999: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_ACTNS_SHOULDNOT_EXIST');
1000: FND_MSG_PUB.ADD;
1001: END IF;
1002:
1003: SELECT COUNT(*) INTO l_counter
1004: FROM AHL_DOC_TITLE_ASSOS_B
1007:
1008: IF l_counter >0
1009: THEN
1010: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_DOC_SHOULDNOT_EXIST');
1011: FND_MSG_PUB.ADD;
1012: END IF;
1013: END IF;
1014: END IF;
1015: CLOSE GetMrDet;
1172:
1173: IF G_APPLN_USAGE IS NULL
1174: THEN
1175: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
1176: FND_MSG_PUB.ADD;
1177: RETURN;
1178: END IF;
1179:
1180: IF p_mr_header_rec.PROGRAM_TYPE_CODE IS NULL OR
1180: IF p_mr_header_rec.PROGRAM_TYPE_CODE IS NULL OR
1181: p_mr_header_rec.PROGRAM_TYPE_CODE=FND_API.G_MISS_CHAR
1182: THEN
1183: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPE_NULL');
1184: FND_MSG_PUB.ADD;
1185: l_check_flag:='N';
1186: END IF;
1187:
1188: IF p_mr_header_rec.AUTO_SIGNOFF_FLAG<>'Y' AND
1188: IF p_mr_header_rec.AUTO_SIGNOFF_FLAG<>'Y' AND
1189: nvl(p_mr_header_rec.AUTO_SIGNOFF_FLAG,'N')<>'N'
1190: THEN
1191: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_AUTOSIGNOFF_INVALID');
1192: FND_MSG_PUB.ADD;
1193: l_check_flag:='N';
1194: END IF;
1195:
1196:
1198: THEN
1199: IF p_mr_header_rec.TYPE_CODE IS NULL OR p_mr_header_rec.TYPE_CODE=FND_API.G_MISS_CHAR
1200: THEN
1201: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TYPE_CODE_NULL');
1202: FND_MSG_PUB.ADD;
1203: l_check_flag:='N';
1204: END IF;
1205: END IF;
1206:
1218: THEN
1219: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PROGTYPESUBTYPE_INV');
1220: FND_MESSAGE.SET_TOKEN('FIELD1',p_mr_header_rec.PROGRAM_SUBTYPE_CODE,false);
1221: FND_MESSAGE.SET_TOKEN('FIELD2',p_mr_header_rec.PROGRAM_TYPE_CODE,false);
1222: FND_MSG_PUB.ADD;
1223: END IF;
1224: CLOSE check_prog_subtype;
1225: END IF;
1226:
1240: IF l_return_status<>'S'
1241: THEN
1242: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SERVICE_INVALID');
1243: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.service_type_code,false);
1244: FND_MSG_PUB.ADD;
1245: END IF;
1246: END IF;
1247:
1248: ELSIF G_APPLN_USAGE<>'PM'
1255: );
1256: IF l_return_status<>'S'
1257: THEN
1258: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_UOM_CODE_INV');
1259: FND_MSG_PUB.ADD;
1260: END IF;
1261: END IF;
1262:
1263: -- Implement Status
1272: IF l_return_status<>'S'
1273: THEN
1274: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_IMPLMNTSTAT_INVALID');
1275: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.implement_status_code,false);
1276: FND_MSG_PUB.ADD;
1277: END IF;
1278:
1279: -- Qa Inspection type and autosignoff
1280:
1287: IF G_DEBUG='Y' THEN
1288: AHL_DEBUG_PUB.debug('Error at AHL_FMP_AUTSIGNOFF_QA_INV');
1289: END IF;
1290: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_AUTSIGNOFF_QA_INV');
1291: FND_MSG_PUB.ADD;
1292: END IF;
1293: END IF;
1294:
1295:
1302: AND (p_mr_header_rec.qa_inspection_type IS NOT NULL
1303: AND p_mr_header_rec.qa_inspection_type <>FND_API.G_MISS_CHAR)
1304: THEN
1305: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_IMPL_QA');
1306: FND_MSG_PUB.ADD;
1307: END IF;
1308: END IF;
1309: */
1310: -- Repetitive Flag
1318: IF l_return_status<>'S'
1319: THEN
1320: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_REPETITIVE_INVALID');
1321: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.repetitive_flag,false);
1322: FND_MSG_PUB.ADD;
1323: ELSE
1324: IF p_mr_header_rec.repetitive_flag ='N'
1325: and (p_mr_header_rec.SHOW_REPETITIVE_CODE IS NOT NULL OR p_mr_header_rec.SHOW_REPETITIVE_CODE<>FND_API.G_MISS_CHAR)
1326: THEN
1326: THEN
1327: IF p_mr_header_rec.SHOW_REPETITIVE_CODE<>'NEXT'
1328: THEN
1329: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_REPITITVE_NO');
1330: FND_MSG_PUB.ADD;
1331: END IF;
1332: END IF;
1333:
1334: if p_mr_header_rec.dml_operation<>'C'
1347:
1348: IF l_return_Status<>FND_API.G_RET_STS_SUCCESS
1349: THEN
1350: FND_MESSAGE.SET_NAME('AHL',l_msg_data1);
1351: FND_MSG_PUB.ADD;
1352: END IF;
1353: END IF;
1354: end if;
1355: END IF;
1365: IF l_return_status<>'S'
1366: THEN
1367: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_WHICHEVER_INVALID');
1368: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.whichever_first_code,false);
1369: FND_MSG_PUB.ADD;
1370: END IF;
1371:
1372: --Space Category
1373:
1383: IF l_return_status<>'S'
1384: THEN
1385: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_VISIT_CATEGORY');
1386: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_header_rec.space_category_code,false);
1387: FND_MSG_PUB.ADD;
1388: END IF;
1389: END IF;
1390:
1391:
1397: THEN
1398: IF p_mr_header_rec.effective_from is null or p_mr_header_rec.effective_from=fnd_api.g_miss_date
1399: THEN
1400: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_EFFECTIVE_FROM_NULL');
1401: FND_MSG_PUB.ADD;
1402: ELSIF TRUNC(p_mr_header_rec.effective_from)
1404: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_EFFE_FROM_INVALID');
1405: FND_MSG_PUB.ADD;
1401: FND_MSG_PUB.ADD;
1402: ELSIF TRUNC(p_mr_header_rec.effective_from)
1404: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_EFFE_FROM_INVALID');
1405: FND_MSG_PUB.ADD;
1406: END IF;
1407: END IF;
1408: IF P_MR_HEADER_REC.DML_OPERATION='U'
1409: THEN
1423: IF trunc(l_mr_Rec.effective_from) < trunc(l_mr_Rec1.effective_from)
1424: THEN
1425: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_ST_DATE_LESSER');
1426: FND_MESSAGE.SET_TOKEN('FIELD',l_mr_Rec.effective_from,false);
1427: FND_MSG_PUB.ADD;
1428: END IF;
1429: END IF;
1430: close GetHeaderInfo1;
1431: end if;
1441: END IF;
1442: IF l_mr_header_rec.MR_STATUS_CODE='COMPLETE' AND nvl(l_mr_header_rec.SUPERUSER_ROLE,'N')='N'
1443: THEN
1444: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_INVALID_EDIT');
1445: FND_MSG_PUB.ADD;
1446: ELSIF l_mr_header_rec.MR_STATUS_CODE='COMPLETE' AND l_mr_header_rec.SUPERUSER_ROLE='Y'
1447: THEN
1448:
1449:
1473: or NVL(l_rec.DOWN_TIME,0)<>NVL(p_mr_header_rec.DOWN_TIME,0)
1474: or nvl(l_rec.UOM_CODE,'X')<>nvl(p_mr_header_rec.uom_code,'X')
1475: THEN
1476: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SUPER_NONEDIT_COLS');
1477: FND_MSG_PUB.ADD;
1478: AHL_DEBUG_PUB.debug('SUPERUSER NONEDIT:'||L_MR_HEADER_REC.SUPERUSER_ROLE);
1479: l_check_flag:='N';
1480: END IF;
1481: CLOSE get_super_non_edit;
1485:
1486: IF p_mr_header_rec.SHOW_REPETITIVE_CODE IS NULL OR p_mr_header_rec.SHOW_REPETITIVE_CODE=FND_API.G_MISS_char
1487: THEN
1488: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_REPETITIVE_INVALID');
1489: FND_MSG_PUB.ADD;
1490: END IF;
1491:
1492: IF p_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG IS NULL
1493: OR p_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG=FND_API.G_MISS_CHAR
1492: IF p_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG IS NULL
1493: OR p_mr_header_rec.COPY_ACCOMPLISHMENT_FLAG=FND_API.G_MISS_CHAR
1494: THEN
1495: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_ACCMPLSHMNT_NULL');
1496: FND_MSG_PUB.ADD;
1497: END IF;
1498:
1499: IF p_mr_header_rec.CATEGORY_CODE IS NULL
1500: OR p_mr_header_rec.CATEGORY_CODE=FND_API.G_MISS_CHAR
1499: IF p_mr_header_rec.CATEGORY_CODE IS NULL
1500: OR p_mr_header_rec.CATEGORY_CODE=FND_API.G_MISS_CHAR
1501: THEN
1502: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_CATEGORY_NULL');
1503: FND_MSG_PUB.ADD;
1504: END IF;
1505:
1506: IF G_APPLN_USAGE='PM'
1507: THEN
1508: IF p_mr_header_rec.TYPE_CODE IS NULL
1509: OR p_mr_header_rec.TYPE_CODE=FND_API.G_MISS_CHAR
1510: THEN
1511: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_TYPECODE_NULL');
1512: FND_MSG_PUB.ADD;
1513: ELSE
1514: CHECK_LOOKUP_CODE
1515: (
1516: x_return_status =>l_return_status,
1519: );
1520: IF l_return_status<>'S'
1521: THEN
1522: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_TYPE_CODE_INVALID');
1523: FND_MSG_PUB.ADD;
1524: END IF;
1525: END IF;
1526:
1527:
1528: IF NVL(p_mr_header_rec.TYPE_CODE,'X')='PROGRAM'
1529: and NVL(p_mr_header_rec.DOWN_TIME,0)>0
1530: THEN
1531: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_DOWNTIME_ZERO');
1532: FND_MSG_PUB.ADD;
1533: ELSIF NVL(p_mr_header_rec.TYPE_CODE,'X')<>'PROGRAM'
1534: and NVL(p_mr_header_rec.DOWN_TIME,0)=0
1535: THEN
1536: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_DOWNTIME_NO_Z');
1533: ELSIF NVL(p_mr_header_rec.TYPE_CODE,'X')<>'PROGRAM'
1534: and NVL(p_mr_header_rec.DOWN_TIME,0)=0
1535: THEN
1536: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_DOWNTIME_NO_Z');
1537: FND_MSG_PUB.ADD;
1538: END IF;
1539:
1540: IF NVL(p_mr_header_rec.TYPE_CODE,'X')='PROGRAM'
1541: and NVL(p_mr_header_rec.SERVICE_REQUEST_TEMPLATE_ID,0)>0
1540: IF NVL(p_mr_header_rec.TYPE_CODE,'X')='PROGRAM'
1541: and NVL(p_mr_header_rec.SERVICE_REQUEST_TEMPLATE_ID,0)>0
1542: THEN
1543: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_SRVREQ_TEMPLT');
1544: FND_MSG_PUB.ADD;
1545: END IF;
1546:
1547: IF p_mr_header_rec.DML_OPERATION='U'
1548: THEN
1560: AND p_mr_header_rec.DOWN_TIME <=0
1561: THEN
1562: -- FOR CMRO MODE
1563: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_DOWNTIME_NO_Z');
1564: FND_MSG_PUB.ADD;
1565: END IF;
1566:
1567: END IF;
1568:
1572: IF (p_mr_header_rec.program_type_code = 'MO_PROC' AND p_mr_header_rec.implement_status_code <> 'OPTIONAL_DO_NOT_IMPLEMENT')
1573: THEN
1574: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_MR_MOPROC_IMPL_INV');
1575: -- Maintenance Requirements of (M) and (O) procedure program type must be unplanned.
1576: FND_MSG_PUB.ADD;
1577: END IF;
1578: END IF;
1579: -- Tamal [MEL/CDL] -- End changes
1580:
1583: IF p_mr_header_rec.dml_operation='C' THEN
1584: IF p_mr_header_rec.title is null or p_mr_header_rec.title=fnd_api.g_miss_char
1585: THEN
1586: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NULL');
1587: FND_MSG_PUB.ADD;
1588: ELSIF p_mr_header_rec.title is not null or p_mr_header_rec.title<>fnd_api.g_miss_char
1589: THEN
1590:
1591: -- Title Should not Repeat in Create mode
1594: FROM AHL_MR_HEADERS_APP_V
1595: WHERE upper(ltrim(rtrim(TITLE)))=upper(ltrim(rtrim(l_mr_header_rec.title)));
1596: IF l_title_counter >0 then
1597: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_INVALID');
1598: FND_MSG_PUB.ADD;
1599: END IF;
1600: END IF;
1601:
1602: ELSIF p_mr_header_rec.dml_operation<>'U' THEN
1602: ELSIF p_mr_header_rec.dml_operation<>'U' THEN
1603: IF p_mr_header_rec.title is null or p_mr_header_rec.title=fnd_api.g_miss_char
1604: THEN
1605: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NULL');
1606: FND_MSG_PUB.ADD;
1607: END IF;
1608: IF p_mr_header_rec.PRECEDING_MR_HEADER_ID=p_mr_header_rec.MR_HEADER_ID
1609: THEN
1610: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
1607: END IF;
1608: IF p_mr_header_rec.PRECEDING_MR_HEADER_ID=p_mr_header_rec.MR_HEADER_ID
1609: THEN
1610: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_ID_INVALID');
1611: FND_MSG_PUB.ADD;
1612: END IF;
1613:
1614: IF p_mr_header_rec.mr_header_id is null or p_mr_header_rec.mr_header_id=fnd_api.g_miss_num
1615: THEN
1613:
1614: IF p_mr_header_rec.mr_header_id is null or p_mr_header_rec.mr_header_id=fnd_api.g_miss_num
1615: THEN
1616: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
1617: FND_MSG_PUB.ADD;
1618: END IF;
1619:
1620: IF p_mr_header_rec.SERVICE_TYPE_CODE IS NULL OR p_mr_header_rec.SERVICE_TYPE_CODE=FND_API.G_MISS_char
1621: THEN
1621: THEN
1622: IF G_APPLN_USAGE<>'PM'
1623: THEN
1624: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SERVICE_NULL');
1625: FND_MSG_PUB.ADD;
1626: END IF;
1627: ELSE
1628: OPEN get_mr_title(p_mr_header_rec.mr_header_id);
1629: FETCH get_mr_title INTO l_title,l_object_version_number;
1630:
1631: IF get_mr_title%NOTFOUND
1632: THEN
1633: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_INVALID');
1634: FND_MSG_PUB.ADD;
1635: END IF;
1636:
1637: 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
1638: THEN
1636:
1637: 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
1638: THEN
1639: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1640: FND_MSG_PUB.ADD;
1641: END IF;
1642: IF p_mr_header_rec.title <> l_title
1643: THEN
1644: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NOT_EDITABLE');
1641: END IF;
1642: IF p_mr_header_rec.title <> l_title
1643: THEN
1644: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NOT_EDITABLE');
1645: FND_MSG_PUB.ADD;
1646: END IF;
1647: CLOSE get_mr_title;
1648: END IF;
1649: END IF;
1658: IF (check_route_mo_proc%FOUND)
1659: THEN
1660: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_MR_TYPE_ROUTE_INV');
1661: -- Cannot modify program type to (M) and (O) procedure since routes of non (M), (O) procedure type are already associated.
1662: FND_MSG_PUB.ADD;
1663: END IF;
1664: CLOSE check_route_mo_proc;
1665: END IF;
1666:
1672: IF (check_eff_exists%FOUND)
1673: THEN
1674: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_MR_TYPE_EFF_INV');
1675: -- Cannot modify program type to / from(M) and (O) procedure since effectivities already exist.
1676: FND_MSG_PUB.ADD;
1677: END IF;
1678: CLOSE check_eff_exists;
1679: END IF;
1680: END IF;
1679: END IF;
1680: END IF;
1681: -- Tamal [MEL/CDL] -- End changes
1682:
1683: l_msg_count := FND_MSG_PUB.count_msg;
1684:
1685: IF l_msg_count > 0
1686: THEN
1687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1717: EXCEPTION
1718: WHEN l_cyclic_loop THEN
1719: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_PREC_MR_H_ID_CYCLIC');
1720: FND_MESSAGE.SET_TOKEN('FIELD',P_RELATED_MR_TITLE,false);
1721: FND_MSG_PUB.ADD;
1722: x_return_status := FND_API.G_RET_STS_ERROR;
1723: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1724: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1725: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1721: FND_MSG_PUB.ADD;
1722: x_return_status := FND_API.G_RET_STS_ERROR;
1723: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1724: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1725: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1726: p_count => x_msg_count,
1727: p_data => x_msg_data);
1728:
1729: WHEN FND_API.G_EXC_ERROR THEN
1727: p_data => x_msg_data);
1728:
1729: WHEN FND_API.G_EXC_ERROR THEN
1730: x_return_status := FND_API.G_RET_STS_ERROR;
1731: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1732: p_count => x_msg_count,
1733: p_data => X_msg_data);
1734: WHEN OTHERS THEN
1735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1732: p_count => x_msg_count,
1733: p_data => X_msg_data);
1734: WHEN OTHERS THEN
1735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1736: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1737: THEN
1738: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_MR_ASSOCIATIONS_PVT',
1739: p_procedure_name => 'CHECK_CYCLIC_ASSOCIATION',
1740: p_error_text => SUBSTR(SQLERRM,1,240));
1734: WHEN OTHERS THEN
1735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1736: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1737: THEN
1738: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_MR_ASSOCIATIONS_PVT',
1739: p_procedure_name => 'CHECK_CYCLIC_ASSOCIATION',
1740: p_error_text => SUBSTR(SQLERRM,1,240));
1741: END IF;
1742: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1738: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_MR_ASSOCIATIONS_PVT',
1739: p_procedure_name => 'CHECK_CYCLIC_ASSOCIATION',
1740: p_error_text => SUBSTR(SQLERRM,1,240));
1741: END IF;
1742: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1743: p_count => x_msg_count,
1744: p_data => X_msg_data);
1745: END;
1746:
1782: END IF;
1783:
1784:
1785: IF FND_API.to_boolean(l_init_msg_list) THEN
1786: FND_MSG_PUB.initialize;
1787: END IF;
1788:
1789:
1790: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1827: x_return_status =>x_return_Status,
1828: p_x_mr_header_rec =>p_x_mr_header_rec);
1829: END IF;
1830:
1831: l_msg_count := FND_MSG_PUB.count_msg;
1832: IF l_msg_count > 0
1833: THEN
1834: x_msg_count := l_msg_count;
1835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1850: x_return_status =>x_return_Status,
1851: p_mr_header_rec =>p_x_mr_header_rec);
1852: END IF;
1853:
1854: l_msg_count := FND_MSG_PUB.count_msg;
1855:
1856: IF l_msg_count > 0
1857: THEN
1858: x_msg_count := l_msg_count;
1941: EXCEPTION
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943: ROLLBACK TO CREATE_MR_HEADER_PVT;
1944: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1946: p_count => x_msg_count,
1947: p_data => x_msg_data);
1948: IF G_DEBUG='Y' THEN
1949: AHL_DEBUG_PUB.disable_debug;
1950: END IF;
1951: WHEN FND_API.G_EXC_ERROR THEN
1952: ROLLBACK TO CREATE_MR_HEADER_PVT;
1953: X_return_status := FND_API.G_RET_STS_ERROR;
1954: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1955: p_count => x_msg_count,
1956: p_data => X_msg_data);
1957: IF G_DEBUG='Y' THEN
1958: AHL_DEBUG_PUB.disable_debug;
1960:
1961: WHEN OTHERS THEN
1962: ROLLBACK TO CREATE_MR_HEADER_PVT;
1963: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1964: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1965: THEN
1966: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_FMP_MR_HEADER_PVT',
1967: p_procedure_name => 'CREATE_MR_HEADER',
1968: p_error_text => SUBSTR(SQLERRM,1,240));
1962: ROLLBACK TO CREATE_MR_HEADER_PVT;
1963: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1964: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1965: THEN
1966: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_FMP_MR_HEADER_PVT',
1967: p_procedure_name => 'CREATE_MR_HEADER',
1968: p_error_text => SUBSTR(SQLERRM,1,240));
1969:
1970: END IF;
1967: p_procedure_name => 'CREATE_MR_HEADER',
1968: p_error_text => SUBSTR(SQLERRM,1,240));
1969:
1970: END IF;
1971: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1972: p_count => x_msg_count,
1973: p_data => X_msg_data);
1974: IF G_DEBUG='Y' THEN
1975: AHL_DEBUG_PUB.disable_debug;
2007: END IF;
2008:
2009: IF FND_API.to_boolean(p_init_msg_list)
2010: THEN
2011: FND_MSG_PUB.initialize;
2012: END IF;
2013:
2014:
2015: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2081: x_return_status =>x_return_Status,
2082: p_x_mr_header_rec =>p_x_mr_header_rec);
2083: END IF;
2084:
2085: l_msg_count := FND_MSG_PUB.count_msg;
2086:
2087: IF l_msg_count > 0
2088: THEN
2089: x_msg_count := l_msg_count;
2103: );
2104:
2105: END IF;
2106:
2107: l_msg_count := FND_MSG_PUB.count_msg;
2108:
2109: IF l_msg_count > 0
2110: THEN
2111: x_msg_count := l_msg_count;
2164: X_LAST_UPDATE_DATE =>sysdate,
2165: X_LAST_UPDATED_BY =>fnd_global.user_id,
2166: X_LAST_UPDATE_LOGIN =>fnd_global.user_id);
2167:
2168: l_msg_count := FND_MSG_PUB.count_msg;
2169: IF l_msg_count > 0 THEN
2170: X_msg_count := l_msg_count;
2171: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2172: RAISE FND_API.G_EXC_ERROR;
2189: p_x_mr_header_rec.PRECEDING_MR_TITLE
2190: );
2191: END IF;
2192:
2193: l_msg_count := FND_MSG_PUB.count_msg;
2194: IF l_msg_count > 0 THEN
2195: X_msg_count := l_msg_count;
2196: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2197: RAISE FND_API.G_EXC_ERROR;
2215:
2216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2217: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2218: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2219: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2220: p_count => x_msg_count,
2221: p_data => x_msg_data);
2222: IF G_DEBUG='Y' THEN
2223: AHL_DEBUG_PUB.disable_debug;
2225:
2226: WHEN FND_API.G_EXC_ERROR THEN
2227: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2228: X_return_status := FND_API.G_RET_STS_ERROR;
2229: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2230: p_count => x_msg_count,
2231: p_data => X_msg_data);
2232: IF G_DEBUG='Y' THEN
2233: AHL_DEBUG_PUB.disable_debug;
2234: END IF;
2235: WHEN OTHERS THEN
2236: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2237: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2238: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2239: THEN
2240: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2241: p_procedure_name =>l_api_name,
2242: p_error_text => SUBSTR(SQLERRM,1,240));
2236: ROLLBACK TO UPDATE_MR_HEADER_PVT;
2237: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2238: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2239: THEN
2240: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2241: p_procedure_name =>l_api_name,
2242: p_error_text => SUBSTR(SQLERRM,1,240));
2243: END IF;
2244: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2240: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2241: p_procedure_name =>l_api_name,
2242: p_error_text => SUBSTR(SQLERRM,1,240));
2243: END IF;
2244: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2245: p_count => x_msg_count,
2246: p_data => X_msg_data);
2247: IF G_DEBUG='Y' THEN
2248: AHL_DEBUG_PUB.disable_debug;
2280:
2281: IF G_APPLN_USAGE IS NULL
2282: THEN
2283: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
2284: FND_MSG_PUB.ADD;
2285: RETURN;
2286: END IF;
2287:
2288: IF P_MR_HEADER_ID IS NULL OR P_MR_HEADER_ID=FND_API.G_MISS_NUM
2287:
2288: IF P_MR_HEADER_ID IS NULL OR P_MR_HEADER_ID=FND_API.G_MISS_NUM
2289: THEN
2290: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
2291: FND_MSG_PUB.ADD;
2292: L_ERR_FLAG:=1;
2293: END IF;
2294:
2295: IF P_OBJECT_VERSION_NUMBER IS NULL OR P_OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM
2294:
2295: IF P_OBJECT_VERSION_NUMBER IS NULL OR P_OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM
2296: THEN
2297: FND_MESSAGE.SET_NAME('AHL','AHL_COM_OBJECT_VERS_NUM_NULL');
2298: FND_MSG_PUB.ADD;
2299: L_ERR_FLAG:=1;
2300: END IF;
2301:
2302: IF L_ERR_FLAG=1
2306: Open GetHeaderDet(P_MR_HEADER_ID,P_OBJECT_VERSION_NUMBER);
2307: Fetch GetHeaderDet into l_rec;
2308: If GetHeaderDet%NotFound Then
2309: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_INVALID');
2310: FND_MSG_PUB.ADD;
2311: Elsif GetHeaderDet%Found and (l_rec.mr_status_code<>'DRAFT' AND
2312: l_rec.mr_status_code<>'APPROVAL_REJECTED')
2313: Then
2314: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INVALID_MR_STATUS');
2311: Elsif GetHeaderDet%Found and (l_rec.mr_status_code<>'DRAFT' AND
2312: l_rec.mr_status_code<>'APPROVAL_REJECTED')
2313: Then
2314: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INVALID_MR_STATUS');
2315: FND_MSG_PUB.ADD;
2316: End if;
2317: Close GetHeaderDet;
2318: END;
2319: --
2378: END IF;
2379:
2380: IF FND_API.to_boolean(P_init_msg_list)
2381: THEN
2382: FND_MSG_PUB.initialize;
2383: END IF;
2384:
2385:
2386: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2402: p_object_version_number =>p_object_version_number,
2403: x_return_status =>L_return_Status
2404: );
2405:
2406: l_msg_count := FND_MSG_PUB.count_msg;
2407: IF l_msg_count > 0
2408: THEN
2409: x_msg_count := l_msg_count;
2410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2469: Delete AHL_MR_RELATIONSHIPS
2470: Where mr_header_id=p_mr_header_id
2471: or RELATED_MR_HEADER_ID=P_MR_HEADER_ID;
2472:
2473: l_msg_count := FND_MSG_PUB.count_msg;
2474: IF l_msg_count > 0
2475: THEN
2476: x_msg_count := l_msg_count;
2477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2482: (
2483: X_MR_HEADER_ID =>p_mr_header_id
2484: );
2485:
2486: l_msg_count := FND_MSG_PUB.count_msg;
2487: IF l_msg_count > 0 THEN
2488: X_msg_count := l_msg_count;
2489: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2490: RAISE FND_API.G_EXC_ERROR;
2500: EXCEPTION
2501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2502: ROLLBACK TO DELETE_MR_HEADER_PVT;
2503: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2504: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2505: p_count => x_msg_count,
2506: p_data => x_msg_data);
2507: IF G_DEBUG='Y' THEN
2508: AHL_DEBUG_PUB.disable_debug;
2510:
2511: WHEN FND_API.G_EXC_ERROR THEN
2512: ROLLBACK TO DELETE_MR_HEADER_PVT;
2513: X_return_status := FND_API.G_RET_STS_ERROR;
2514: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2515: p_count => x_msg_count,
2516: p_data => X_msg_data);
2517: IF G_DEBUG='Y' THEN
2518: AHL_DEBUG_PUB.disable_debug;
2520:
2521: WHEN OTHERS THEN
2522: ROLLBACK TO DELETE_MR_HEADER_PVT;
2523: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2524: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2525: THEN
2526: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2527: p_procedure_name =>l_api_name,
2528: p_error_text => SUBSTR(SQLERRM,1,240));
2522: ROLLBACK TO DELETE_MR_HEADER_PVT;
2523: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2524: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2525: THEN
2526: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2527: p_procedure_name =>l_api_name,
2528: p_error_text => SUBSTR(SQLERRM,1,240));
2529: END IF;
2530: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2526: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
2527: p_procedure_name =>l_api_name,
2528: p_error_text => SUBSTR(SQLERRM,1,240));
2529: END IF;
2530: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2531: p_count => x_msg_count,
2532: p_data => X_msg_data);
2533: IF G_DEBUG='Y' THEN
2534: AHL_DEBUG_PUB.disable_debug;