[Home] [Help]
1044: c_segment7 varchar2, c_segment8 varchar2, c_segment9 varchar2,
1045: c_segment10 varchar2, c_segment11 varchar2, c_segment12 varchar2,
1046: c_segment13 varchar2, c_segment14 varchar2, c_segment15 varchar2) IS
1047: SELECT 'X'
1048: FROM ahl_operations_b
1049: WHERE ((segment1 is null and c_segment1 is null) or segment1 = c_segment1) AND
1050: ((segment2 is null and c_segment2 is null) or segment2 = c_segment2) AND
1051: ((segment3 is null and c_segment3 is null) or segment3 = c_segment3) AND
1052: ((segment4 is null and c_segment4 is null) or segment4 = c_segment4) AND
1069:
1070: cursor validate_oper_ovn
1071: is
1072: select 'x'
1073: from ahl_operations_b
1074: where operation_id = p_operation_rec.operation_id and
1075: object_version_number = p_operation_rec.object_version_number;
1076:
1077: BEGIN
1168:
1169: IF (p_operation_rec.dml_operation = 'U' AND p_operation_rec.enigma_op_id IS NOT NULL)
1170: THEN
1171: Select model_code into l_model_code
1172: From ahl_operations_b
1173: Where operation_id = p_operation_rec.operation_id;
1174:
1175: IF ( p_operation_rec.model_code is null or (l_model_code <> p_operation_rec.model_code))
1176: THEN
1195: --to disallow users to modify enigma doc id and model for automatic enigma operations
1196: IF (p_operation_rec.dml_operation = 'U')
1197: THEN
1198: Select model_code,enigma_doc_id into l_model_code,l_enigma_doc_id
1199: From ahl_operations_b
1200: Where operation_id = p_operation_rec.operation_id;
1201:
1202: IF (p_module_type <> 'BPEL' AND p_operation_rec.enigmatype_code <> 'MANUAL')
1203: THEN
1292: c_segment13 VARCHAR2, c_segment14 VARCHAR2, c_segment15 VARCHAR2,
1293: c_revision_number NUMBER )
1294: IS
1295: SELECT operation_id
1296: FROM AHL_OPERATIONS_B
1297: WHERE (c_segment1 is null or nvl(segment1, c_segment1) = c_segment1) AND
1298: (c_segment2 is null or nvl(segment2, c_segment2) = c_segment2) AND
1299: (c_segment3 is null or nvl(segment3, c_segment3) = c_segment3) AND
1300: (c_segment4 is null or nvl(segment4, c_segment4) = c_segment4) AND
1519: END IF;
1520:
1521: IF ( p_x_operation_rec.dml_operation = 'U' AND p_x_operation_rec.enigma_doc_id IS NOT NULL)
1522: THEN
1523: select ENIGMA_OP_ID into l_enigma_op_id from AHL_OPERATIONS_B WHERE operation_id = p_x_operation_rec.operation_id;
1524:
1525: IF (l_enigma_op_id IS NULL ) THEN
1526: p_x_operation_rec.ENIGMATYPE_CODE := 'MANUAL' ;
1527: ELSIF (l_enigma_op_id IS NOT NULL ) THEN
1626:
1627: BEGIN
1628:
1629: -- Get the Operation ID from the Sequence
1630: SELECT AHL_OPERATIONS_B_S.NEXTVAL
1631: INTO p_x_operation_rec.operation_id
1632: FROM DUAL;
1633: -- Insert the record
1634: AHL_OPERATIONS_PKG.insert_row
1709: fnd_log.string
1710: (
1711: fnd_log.level_unexpected,
1712: 'ahl.plsql.'||G_PKG_NAME||'.'||G_API_NAME,
1713: 'AHL_OPERATIONS_B insert error = ['||SQLERRM||']'
1714: );
1715: END IF;
1716:
1717: END IF;
1803: fnd_log.string
1804: (
1805: fnd_log.level_unexpected,
1806: 'ahl.plsql.'||G_PKG_NAME||'.'||G_API_NAME,
1807: 'AHL_OPERATIONS_B insert error = ['||SQLERRM||']'
1808: );
1809: END IF;
1810: END IF;
1811: END;
1930:
1931: cursor validate_oper_ovn
1932: is
1933: select 'x'
1934: from ahl_operations_b
1935: where operation_id = p_operation_id and
1936: object_version_number = p_object_version_number;
1937:
1938: l_dummy VARCHAR2(1);
1987: --pekambar chaned in Enigma Phase - 2
1988: --IF (p_module_type <> 'ENIGMA' ) THEN
1989: IF (p_module_type <> 'BPEL' ) THEN
1990: Select ENIGMA_OP_ID into l_enig_op_id
1991: From ahl_operations_b
1992: Where operation_id = p_operation_id;
1993:
1994: IF ( l_enig_op_id is not null and l_enig_op_id <> FND_API.G_MISS_CHAR)
1995: THEN
2019: RAISE FND_API.G_EXC_ERROR;
2020: END IF;
2021:
2022: BEGIN
2023: -- Delete the record in AHL_OPERATIONS_B and AHL_OPERATIONS_TL
2024: AHL_OPERATIONS_PKG.delete_row
2025: (
2026: X_OPERATION_ID => p_operation_id
2027: );
2035: RAISE;
2036: END;
2037:
2038: IF G_DEBUG = 'Y' THEN
2039: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after Deleting AHL_OPERATIONS_B and AHL_OPERATIONS_TL' );
2040: END IF;
2041:
2042: -- Delete all the associations
2043:
2378: IF ( TRUNC( l_old_operation_rec.active_start_date ) < TRUNC( SYSDATE ) ) THEN
2379: l_old_operation_rec.active_start_date := SYSDATE;
2380: END IF;
2381:
2382: -- Create copy of the route in AHL_OPERATIONS_B and AHL_OPERATIONS_TL
2383: BEGIN
2384:
2385: l_revision_number := l_revision_number + 1;
2386:
2384:
2385: l_revision_number := l_revision_number + 1;
2386:
2387: -- Get the Operation ID from the Sequence
2388: SELECT AHL_OPERATIONS_B_S.NEXTVAL
2389: INTO l_operation_id
2390: FROM DUAL;
2391:
2392: -- Insert the record
2468: fnd_log.string
2469: (
2470: fnd_log.level_unexpected,
2471: 'ahl.plsql.'||G_PKG_NAME||'.'||G_API_NAME,
2472: 'AHL_OPERATIONS_B insert error = ['||SQLERRM||']'
2473: );
2474: END IF;
2475: END IF;
2476: END;