658: attribute12,
659: attribute13,
660: attribute14,
661: attribute15
662: FROM AHL_MR_EFFECTIVITIES_V
663: WHERE mr_effectivity_id = c_mr_effectivity_id;
664:
665: BEGIN
666:
663: WHERE mr_effectivity_id = c_mr_effectivity_id;
664:
665: BEGIN
666:
667: -- Get the old record from AHL_MR_EFFECTIVITIES.
668: OPEN get_old_rec( p_x_effectivity_rec.mr_effectivity_id );
669:
670: FETCH get_old_rec INTO
671: l_old_effectivity_rec.name,
960: CURSOR get_eff_dtls_rec ( c_mr_effectivity_id NUMBER )
961: IS
962: SELECT DISTINCT EFD.manufacturer_id
963: FROM AHL_MR_EFFECTIVITY_DTLS_APP_V EFD,
964: AHL_MR_EFFECTIVITIES_APP_V EF
965: WHERE EFD.manufacturer_id IS NOT NULL
966: AND EFD.mr_effectivity_id = EF.mr_effectivity_id
967: AND EF.mr_effectivity_id = c_mr_effectivity_id;
968:
969: CURSOR get_intervals_rec ( c_mr_effectivity_id NUMBER )
970: IS
971: SELECT DISTINCT INT.counter_id
972: FROM AHL_MR_INTERVALS_APP_V INT,
973: AHL_MR_EFFECTIVITIES_APP_V EF
974: WHERE INT.mr_effectivity_id = EF.mr_effectivity_id
975: AND EF.mr_effectivity_id = c_mr_effectivity_id;
976:
977: -- Tamal [MEL/CDL RM-FMP Enhancements] Begins here...
1238:
1239: CURSOR get_dup_name ( c_mr_header_id NUMBER )
1240: IS
1241: SELECT name
1242: FROM AHL_MR_EFFECTIVITIES_APP_V
1243: WHERE mr_header_id = c_mr_header_id
1244: GROUP BY name
1245: HAVING count(*) > 1;
1246:
1246:
1247: CURSOR get_dup_item ( c_mr_header_id NUMBER )
1248: IS
1249: SELECT inventory_item_id
1250: FROM AHL_MR_EFFECTIVITIES_APP_V
1251: WHERE mr_header_id = c_mr_header_id
1252: GROUP BY inventory_item_id
1253: HAVING count(*) > 1;
1254:
1258: by Michael Payne. */
1259:
1260: cursor get_item_number (c_inventory_item_id number) is
1261: select item_number
1262: from ahl_mr_effectivities_v
1263: where inventory_item_id = c_inventory_item_id;
1264:
1265: BEGIN
1266:
1548: IF ( p_x_effectivity_tbl(i).dml_operation = 'C' ) THEN
1549:
1550: BEGIN
1551: -- Insert the record
1552: INSERT INTO AHL_MR_EFFECTIVITIES
1553: (
1554: MR_EFFECTIVITY_ID,
1555: OBJECT_VERSION_NUMBER,
1556: MR_HEADER_ID,
1581: CREATED_BY,
1582: LAST_UPDATE_LOGIN
1583: ) VALUES
1584: (
1585: AHL_MR_EFFECTIVITIES_S.NEXTVAL,
1586: p_x_effectivity_tbl(i).object_version_number,
1587: p_mr_header_id,
1588: p_x_effectivity_tbl(i).name,
1589: DECODE( p_x_effectivity_tbl(i).relationship_id, NULL,
1630: ELSIF ( p_x_effectivity_tbl(i).dml_operation = 'U' ) THEN
1631:
1632: BEGIN
1633: -- Update the record
1634: UPDATE AHL_MR_EFFECTIVITIES SET
1635: object_version_number = object_version_number + 1,
1636: name = p_x_effectivity_tbl(i).name,
1637: inventory_item_id = DECODE(
1638: p_x_effectivity_tbl(i).relationship_id,
1685:
1686: ELSIF ( p_x_effectivity_tbl(i).dml_operation = 'D' ) THEN
1687:
1688: -- Delete the record
1689: DELETE AHL_MR_EFFECTIVITIES
1690: WHERE mr_effectivity_id = p_x_effectivity_tbl(i).mr_effectivity_id
1691: AND object_version_number = p_x_effectivity_tbl(i).object_version_number;
1692:
1693: -- If the record does not exist, then, abort API.