[Home] [Help]
425: -- Process the incoming enigma record.
426: -- Validate if the Enigma Route Id is null throw an error if the id is null.
427: -- IF (p_enigma_route_rec.enigma_route_id IS NULL OR p_enigma_route_rec.enigma_route_id = FND_API.G_MISS_CHAR)
428: -- THEN
429: -- FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ROUTE_ID_NULL');
430: -- FND_MSG_PUB.ADD;
431: -- RAISE FND_API.G_EXC_ERROR;
432: -- END IF;
433:
797: IF l_last_ctr = l_ctr THEN
798: IF (l_log_statement >= l_log_current_level) THEN
799: fnd_log.string(fnd_log.level_statement,l_debug_module,'Associated Operation Not Found:: ' || p_enigma_op_asso_tbl(l_new_ctr));
800: END IF;
801: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OP_DONOT_EXIST');
802: FND_MESSAGE.SET_TOKEN('FIELD', p_enigma_op_asso_tbl(l_new_ctr));
803: FND_MSG_PUB.ADD;
804: RAISE FND_API.G_EXC_ERROR;
805: END IF;
798: IF (l_log_statement >= l_log_current_level) THEN
799: fnd_log.string(fnd_log.level_statement,l_debug_module,'Associated Operation Not Found:: ' || p_enigma_op_asso_tbl(l_new_ctr));
800: END IF;
801: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OP_DONOT_EXIST');
802: FND_MESSAGE.SET_TOKEN('FIELD', p_enigma_op_asso_tbl(l_new_ctr));
803: FND_MSG_PUB.ADD;
804: RAISE FND_API.G_EXC_ERROR;
805: END IF;
806: END LOOP;
984:
985: -- validations::Verify if the Change flag is right
986: IF (p_enigma_route_rec.DML_OPERATION NOT IN ( 'C', 'D', 'U','NC'))
987: THEN
988: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_DML');
989: FND_MESSAGE.SET_TOKEN('FIELD', p_enigma_route_rec.DML_OPERATION);
990: FND_MESSAGE.SET_TOKEN('RECORD', p_enigma_route_rec.enigma_route_id);
991: FND_MSG_PUB.ADD;
992: RAISE FND_API.G_EXC_ERROR;
985: -- validations::Verify if the Change flag is right
986: IF (p_enigma_route_rec.DML_OPERATION NOT IN ( 'C', 'D', 'U','NC'))
987: THEN
988: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_DML');
989: FND_MESSAGE.SET_TOKEN('FIELD', p_enigma_route_rec.DML_OPERATION);
990: FND_MESSAGE.SET_TOKEN('RECORD', p_enigma_route_rec.enigma_route_id);
991: FND_MSG_PUB.ADD;
992: RAISE FND_API.G_EXC_ERROR;
993: END IF;
986: IF (p_enigma_route_rec.DML_OPERATION NOT IN ( 'C', 'D', 'U','NC'))
987: THEN
988: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_DML');
989: FND_MESSAGE.SET_TOKEN('FIELD', p_enigma_route_rec.DML_OPERATION);
990: FND_MESSAGE.SET_TOKEN('RECORD', p_enigma_route_rec.enigma_route_id);
991: FND_MSG_PUB.ADD;
992: RAISE FND_API.G_EXC_ERROR;
993: END IF;
994:
993: END IF;
994:
995: -- IF (p_enigma_route_rec.enigma_route_id IS NULL OR p_enigma_route_rec.enigma_route_id = FND_API.G_MISS_CHAR)
996: -- THEN
997: -- FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ROUTE_ID_NULL');
998: -- FND_MSG_PUB.ADD;
999: -- RAISE FND_API.G_EXC_ERROR;
1000: -- END IF;
1001: --if DML_OPERATION <> c then validate that route with this enigma_route_id exists.
1005: INTO l_get_latest_route_rev.route_id,
1006: l_get_latest_route_rev.object_version_number,
1007: l_get_latest_route_rev.revision_status;
1008: IF get_latest_route_rev%NOTFOUND THEN
1009: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ROUTE_DONOT_EXIST');
1010: FND_MESSAGE.SET_TOKEN('FIELD', p_enigma_route_rec.enigma_route_id);
1011: FND_MSG_PUB.ADD;
1012: CLOSE get_latest_route_rev;
1013: RAISE FND_API.G_EXC_ERROR;
1006: l_get_latest_route_rev.object_version_number,
1007: l_get_latest_route_rev.revision_status;
1008: IF get_latest_route_rev%NOTFOUND THEN
1009: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ROUTE_DONOT_EXIST');
1010: FND_MESSAGE.SET_TOKEN('FIELD', p_enigma_route_rec.enigma_route_id);
1011: FND_MSG_PUB.ADD;
1012: CLOSE get_latest_route_rev;
1013: RAISE FND_API.G_EXC_ERROR;
1014: END IF;
1030: --So from this public wrapper,DML_OPERATION will be passed as 'N' to that api
1031: IF (p_enigma_route_rec.DML_OPERATION = 'NC') THEN
1032: -- IF the route is in Approval Pending status , then insert the Enigma Record into the staging table with status as pending.
1033: IF ( upper(l_get_latest_route_rev.revision_status) = 'APPROVAL_PENDING' ) THEN
1034: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ROUTE_APR_PENDING');
1035: FND_MSG_PUB.ADD;
1036: RAISE FND_API.G_EXC_ERROR;
1037: /*Update_Route_Interface_table
1038: (
1116: -- Check if the flag id delete and if so delete the route from the CMRO system .
1117: IF (p_enigma_route_rec.DML_OPERATION = 'D') THEN
1118: -- IF the route is in Approval Pending status , then insert the Enigma Record into the staging table with status as pending.
1119: IF ( upper(l_get_latest_route_rev.revision_status) = 'APPROVAL_PENDING' ) THEN
1120: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ROUTE_APR_PENDING');
1121: FND_MSG_PUB.ADD;
1122: RAISE FND_API.G_EXC_ERROR;
1123: /*Update_Route_Interface_table
1124: (
1169:
1170: IF (p_enigma_route_rec.DML_OPERATION = 'U') THEN
1171: -- IF the route is in Approval Pending status , then insert the Enigma Record into the staging table with status as pending.
1172: IF ( upper(l_get_latest_route_rev.revision_status) = 'APPROVAL_PENDING' ) THEN
1173: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ROUTE_APR_PENDING');
1174: FND_MSG_PUB.ADD;
1175: RAISE FND_API.G_EXC_ERROR;
1176: /*Update_Route_Interface_table
1177: (
1425:
1426: IF (p_enigma_route_rec.DML_OPERATION = 'C') THEN
1427: --Validation::Publish Date can not be null
1428: IF (p_pub_date IS NULL OR p_pub_date = FND_API.G_MISS_DATE)THEN
1429: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_PUB_DATE_NULL');
1430: FND_MSG_PUB.ADD;
1431: END IF;
1432:
1433: --Validation::p_context can not be null
1431: END IF;
1432:
1433: --Validation::p_context can not be null
1434: IF (p_context IS NULL OR p_context = FND_API.G_MISS_CHAR)THEN
1435: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_CONTEXT_NULL');
1436: FND_MSG_PUB.ADD;
1437: END IF;
1438:
1439: -- Validation::ENIGMA_DOC_ID can nnot be null
1437: END IF;
1438:
1439: -- Validation::ENIGMA_DOC_ID can nnot be null
1440: IF (p_enigma_route_rec.ENIGMA_DOC_ID IS NULL OR p_enigma_route_rec.ENIGMA_DOC_ID = FND_API.G_MISS_CHAR)THEN
1441: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_DOC_ID_NULL');
1442: FND_MSG_PUB.ADD;
1443: END IF;
1444:
1445: -- validation::Enigma_route_id is unique.
1445: -- validation::Enigma_route_id is unique.
1446: OPEN validate_enig_route(p_enigma_route_rec.enigma_route_id);
1447: FETCH validate_enig_route INTO l_eng_count;
1448: IF (l_eng_count > 0)THEN
1449: FND_MESSAGE.set_name('AHL','AHL_RM_ROUTE_NO_DUP');
1450: FND_MSG_PUB.add;
1451: END IF;
1452: CLOSE validate_enig_route;
1453:
1777:
1778: -- Verify if the Change flag is right...
1779: IF (p_enigma_op_rec.DML_OPERATION NOT IN ( 'C', 'D', 'U'))
1780: THEN
1781: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_DML');
1782: FND_MESSAGE.SET_TOKEN('FIELD', p_enigma_op_rec.DML_OPERATION);
1783: FND_MESSAGE.SET_TOKEN('RECORD', p_enigma_op_rec.ENIGMA_OP_ID);
1784: FND_MSG_PUB.ADD;
1785: RAISE FND_API.G_EXC_ERROR;
1778: -- Verify if the Change flag is right...
1779: IF (p_enigma_op_rec.DML_OPERATION NOT IN ( 'C', 'D', 'U'))
1780: THEN
1781: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_DML');
1782: FND_MESSAGE.SET_TOKEN('FIELD', p_enigma_op_rec.DML_OPERATION);
1783: FND_MESSAGE.SET_TOKEN('RECORD', p_enigma_op_rec.ENIGMA_OP_ID);
1784: FND_MSG_PUB.ADD;
1785: RAISE FND_API.G_EXC_ERROR;
1786: END IF;
1779: IF (p_enigma_op_rec.DML_OPERATION NOT IN ( 'C', 'D', 'U'))
1780: THEN
1781: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_DML');
1782: FND_MESSAGE.SET_TOKEN('FIELD', p_enigma_op_rec.DML_OPERATION);
1783: FND_MESSAGE.SET_TOKEN('RECORD', p_enigma_op_rec.ENIGMA_OP_ID);
1784: FND_MSG_PUB.ADD;
1785: RAISE FND_API.G_EXC_ERROR;
1786: END IF;
1787:
1802:
1803: --validate Enigma Document Id
1804: IF ( p_enigma_op_rec.ENIGMA_DOC_ID IS NULL OR p_enigma_op_rec.ENIGMA_DOC_ID = FND_API.G_MISS_CHAR)
1805: THEN
1806: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ENIGMA_ID_NULL');
1807: FND_MSG_PUB.ADD;
1808: END IF;
1809: --validate Enigma Operation Id
1810: IF ( p_enigma_op_rec.ENIGMA_OP_ID IS NULL OR p_enigma_op_rec.ENIGMA_OP_ID = FND_API.G_MISS_CHAR)
1808: END IF;
1809: --validate Enigma Operation Id
1810: IF ( p_enigma_op_rec.ENIGMA_OP_ID IS NULL OR p_enigma_op_rec.ENIGMA_OP_ID = FND_API.G_MISS_CHAR)
1811: THEN
1812: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OPER_ID_NULL');
1813: FND_MSG_PUB.ADD;
1814: END IF;
1815: --validate Opearator
1816: IF ( p_enigma_op_rec.OPERATOR IS NULL OR p_enigma_op_rec.OPERATOR = FND_API.G_MISS_CHAR)
1814: END IF;
1815: --validate Opearator
1816: IF ( p_enigma_op_rec.OPERATOR IS NULL OR p_enigma_op_rec.OPERATOR = FND_API.G_MISS_CHAR)
1817: THEN
1818: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OPERATOR_ID_NULL');
1819: FND_MSG_PUB.ADD;
1820: END IF;
1821: -- validate Oem Doc Type
1822: IF ( p_enigma_op_rec.OEM_DOC_TYPE IS NULL OR p_enigma_op_rec.OEM_DOC_TYPE = FND_API.G_MISS_CHAR)
1820: END IF;
1821: -- validate Oem Doc Type
1822: IF ( p_enigma_op_rec.OEM_DOC_TYPE IS NULL OR p_enigma_op_rec.OEM_DOC_TYPE = FND_API.G_MISS_CHAR)
1823: THEN
1824: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OEM_DOC_TYPE_NULL');
1825: FND_MSG_PUB.ADD;
1826: END IF;
1827: -- validate Chapter,Section,Subject
1828: IF ( p_enigma_op_rec.CHAPTER_SECTION_SUBJECT IS NULL OR p_enigma_op_rec.CHAPTER_SECTION_SUBJECT = FND_API.G_MISS_CHAR)
1826: END IF;
1827: -- validate Chapter,Section,Subject
1828: IF ( p_enigma_op_rec.CHAPTER_SECTION_SUBJECT IS NULL OR p_enigma_op_rec.CHAPTER_SECTION_SUBJECT = FND_API.G_MISS_CHAR)
1829: THEN
1830: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_CHA_SEC_SUB_NULL');
1831: FND_MSG_PUB.ADD;
1832: END IF;
1833: -- Validate AMTOSS Function
1834: IF ( p_enigma_op_rec.AMTOSS_Function IS NULL OR p_enigma_op_rec.AMTOSS_Function = FND_API.G_MISS_CHAR)
1832: END IF;
1833: -- Validate AMTOSS Function
1834: IF ( p_enigma_op_rec.AMTOSS_Function IS NULL OR p_enigma_op_rec.AMTOSS_Function = FND_API.G_MISS_CHAR)
1835: THEN
1836: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_AMTOSS_FUN_NULL');
1837: FND_MSG_PUB.ADD;
1838: END IF;
1839:
1840: --Validate Model Code
1839:
1840: --Validate Model Code
1841: IF (p_context IS NULL AND p_context = FND_API.G_MISS_CHAR)
1842: THEN
1843: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_CONTEXT_NULL');
1844: FND_MSG_PUB.ADD;
1845: END IF;
1846:
1847: x_msg_count := FND_MSG_PUB.count_msg;
1987:
1988: --validate Enigma Document Id, It should not be null
1989: IF ( p_enigma_op_rec.ENIGMA_DOC_ID IS NULL OR p_enigma_op_rec.ENIGMA_DOC_ID = FND_API.G_MISS_CHAR)
1990: THEN
1991: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ENIGMA_ID_NULL');
1992: FND_MSG_PUB.ADD;
1993: END IF;
1994:
1995: --validate Enigma Operation Id
1994:
1995: --validate Enigma Operation Id
1996: IF ( p_enigma_op_rec.ENIGMA_OP_ID IS NULL OR p_enigma_op_rec.ENIGMA_OP_ID = FND_API.G_MISS_CHAR)
1997: THEN
1998: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OPER_ID_NULL');
1999: FND_MSG_PUB.ADD;
2000: END IF;
2001:
2002: --Validate Model Code
2001:
2002: --Validate Model Code
2003: IF (p_context IS NULL AND p_context = FND_API.G_MISS_DATE)
2004: THEN
2005: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_CONTEXT_NULL');
2006: FND_MSG_PUB.ADD;
2007: END IF;
2008:
2009: x_msg_count := FND_MSG_PUB.count_msg;
2036:
2037: -- If the operation is in Approval Pending status , then insert the operation record into the
2038: -- staging table with status as pending.
2039: IF ( upper(l_get_latest_oper_rev.revision_status) = 'APPROVAL_PENDING' ) THEN
2040: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OP_APR_PENDING');
2041: FND_MSG_PUB.ADD;
2042: RAISE FND_API.G_EXC_ERROR;
2043: /*OP_interface_insert_row(
2044: X_CONTEXT => p_context,
2246: THEN
2247: fnd_log.string(fnd_log.level_statement,l_debug_module,'After inserting into the staging table');
2248: END IF;
2249: ELSE
2250: FND_MESSAGE.SET_NAME('AHL', 'AHL_ENIGMA_OPER_DONOT_EXIST');
2251: FND_MSG_PUB.ADD;
2252: RAISE FND_API.G_EXC_ERROR;
2253: END IF; -- Enigma Operation ID is NOT NULL Cursor Found
2254: -- If the operation change flag is "D" then process the operation accordingly .
2285: -- IF the operation is in Approval Pending status , then insert the operation record into the staging table with status as pending.
2286:
2287: -- This table is going to be restructured and based on new table this part of code will be modified.
2288: IF ( upper(l_get_latest_oper_rev.revision_status) = 'APPROVAL_PENDING' ) THEN
2289: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OP_APR_PENDING');
2290: FND_MSG_PUB.ADD;
2291: RAISE FND_API.G_EXC_ERROR;
2292: /*OP_interface_insert_row(
2293: X_CONTEXT => p_context,
2337: END IF;
2338: END IF; --Status
2339: ELSE
2340: -- If the operation is not found, then raise an error
2341: FND_MESSAGE.SET_NAME('AHL', 'AHL_ENIGMA_OPER_DONOT_EXIST');
2342: FND_MSG_PUB.ADD;
2343: RAISE FND_API.G_EXC_ERROR;
2344: END IF; -- Enigma operation ID not null
2345: END IF; -- Change Flag "D"
2454: END IF;
2455:
2456:
2457: IF p_file_name IS NULL THEN
2458: FND_MESSAGE.set_name( 'AHL','AHL_COM_REQD_PARAM_MISSING' );
2459: FND_MSG_PUB.add;
2460: x_return_status := FND_API.G_RET_STS_ERROR;
2461:
2462: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN