[Home] [Help]
976: c_segment7 varchar2, c_segment8 varchar2, c_segment9 varchar2,
977: c_segment10 varchar2, c_segment11 varchar2, c_segment12 varchar2,
978: c_segment13 varchar2, c_segment14 varchar2, c_segment15 varchar2) IS
979: SELECT 'X'
980: FROM ahl_operations_b
981: WHERE ((segment1 is null and c_segment1 is null) or segment1 = c_segment1) AND
982: ((segment2 is null and c_segment2 is null) or segment2 = c_segment2) AND
983: ((segment3 is null and c_segment3 is null) or segment3 = c_segment3) AND
984: ((segment4 is null and c_segment4 is null) or segment4 = c_segment4) AND
998:
999: cursor validate_oper_ovn
1000: is
1001: select 'x'
1002: from ahl_operations_b
1003: where operation_id = p_operation_rec.operation_id and
1004: object_version_number = p_operation_rec.object_version_number;
1005:
1006: BEGIN
1093:
1094: IF (p_operation_rec.dml_operation = 'U' AND p_operation_rec.enigma_op_id IS NOT NULL)
1095: THEN
1096: Select model_code into l_model_code
1097: From ahl_operations_b
1098: Where operation_id = p_operation_rec.operation_id;
1099:
1100: IF ( p_operation_rec.model_code is null or (l_model_code <> p_operation_rec.model_code))
1101: THEN
1167: c_segment13 VARCHAR2, c_segment14 VARCHAR2, c_segment15 VARCHAR2,
1168: c_revision_number NUMBER )
1169: IS
1170: SELECT operation_id
1171: FROM AHL_OPERATIONS_B
1172: WHERE (c_segment1 is null or nvl(segment1, c_segment1) = c_segment1) AND
1173: (c_segment2 is null or nvl(segment2, c_segment2) = c_segment2) AND
1174: (c_segment3 is null or nvl(segment3, c_segment3) = c_segment3) AND
1175: (c_segment4 is null or nvl(segment4, c_segment4) = c_segment4) AND
1437:
1438: BEGIN
1439:
1440: -- Get the Operation ID from the Sequence
1441: SELECT AHL_OPERATIONS_B_S.NEXTVAL
1442: INTO p_x_operation_rec.operation_id
1443: FROM DUAL;
1444: -- Insert the record
1445: AHL_OPERATIONS_PKG.insert_row
1516: fnd_log.string
1517: (
1518: fnd_log.level_unexpected,
1519: 'ahl.plsql.'||G_PKG_NAME||'.'||G_API_NAME,
1520: 'AHL_OPERATIONS_B insert error = ['||SQLERRM||']'
1521: );
1522: END IF;
1523:
1524: END IF;
1601: fnd_log.string
1602: (
1603: fnd_log.level_unexpected,
1604: 'ahl.plsql.'||G_PKG_NAME||'.'||G_API_NAME,
1605: 'AHL_OPERATIONS_B insert error = ['||SQLERRM||']'
1606: );
1607: END IF;
1608: END IF;
1609: END;
1728:
1729: cursor validate_oper_ovn
1730: is
1731: select 'x'
1732: from ahl_operations_b
1733: where operation_id = p_operation_id and
1734: object_version_number = p_object_version_number;
1735:
1736: l_dummy VARCHAR2(1);
1783: --bachandr Enigma Phase I changes -- start
1784: -- Fire the validation only if the call is from the CMRO end.
1785: IF (p_module_type <> 'ENIGMA' ) THEN
1786: Select ENIGMA_OP_ID into l_enig_op_id
1787: From ahl_operations_b
1788: Where operation_id = p_operation_id;
1789:
1790: IF ( l_enig_op_id is not null and l_enig_op_id <> FND_API.G_MISS_CHAR)
1791: THEN
1815: RAISE FND_API.G_EXC_ERROR;
1816: END IF;
1817:
1818: BEGIN
1819: -- Delete the record in AHL_OPERATIONS_B and AHL_OPERATIONS_TL
1820: AHL_OPERATIONS_PKG.delete_row
1821: (
1822: X_OPERATION_ID => p_operation_id
1823: );
1831: RAISE;
1832: END;
1833:
1834: IF G_DEBUG = 'Y' THEN
1835: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after Deleting AHL_OPERATIONS_B and AHL_OPERATIONS_TL' );
1836: END IF;
1837:
1838: -- Delete all the associations
1839:
2174: IF ( TRUNC( l_old_operation_rec.active_start_date ) < TRUNC( SYSDATE ) ) THEN
2175: l_old_operation_rec.active_start_date := SYSDATE;
2176: END IF;
2177:
2178: -- Create copy of the route in AHL_OPERATIONS_B and AHL_OPERATIONS_TL
2179: BEGIN
2180:
2181: l_revision_number := l_revision_number + 1;
2182:
2180:
2181: l_revision_number := l_revision_number + 1;
2182:
2183: -- Get the Operation ID from the Sequence
2184: SELECT AHL_OPERATIONS_B_S.NEXTVAL
2185: INTO l_operation_id
2186: FROM DUAL;
2187:
2188: -- Insert the record
2260: fnd_log.string
2261: (
2262: fnd_log.level_unexpected,
2263: 'ahl.plsql.'||G_PKG_NAME||'.'||G_API_NAME,
2264: 'AHL_OPERATIONS_B insert error = ['||SQLERRM||']'
2265: );
2266: END IF;
2267: END IF;
2268: END;