DBA Data[Home] [Help]

APPS.AHL_MEL_CDL_HEADERS_PVT dependencies on AHL_MEL_CDL_HEADERS

Line 1: PACKAGE BODY AHL_MEL_CDL_HEADERS_PVT AS

1: PACKAGE BODY AHL_MEL_CDL_HEADERS_PVT AS
2: /* $Header: AHLVMEHB.pls 120.5 2006/08/17 12:11:51 priyan noship $ */
3:
4: ------------------------------------
5: -- Common constants and variables --

Line 71: FROM ahl_mel_cdl_headers

67:
68: CURSOR check_can_create
69: IS
70: SELECT 'x'
71: FROM ahl_mel_cdl_headers
72: WHERE pc_node_id = p_x_mel_cdl_header_rec.pc_node_id AND
73: mel_cdl_type_code = p_x_mel_cdl_header_rec.mel_cdl_type_code;
74:
75: BEGIN

Line 175: SELECT ahl_mel_cdl_headers_s.NEXTVAL INTO p_x_mel_cdl_header_rec.mel_cdl_header_id FROM DUAL;

171: p_x_mel_cdl_header_rec.status_code := 'DRAFT';
172: p_x_mel_cdl_header_rec.version_number := 1;
173: IF (p_x_mel_cdl_header_rec.mel_cdl_header_id IS NULL)
174: THEN
175: SELECT ahl_mel_cdl_headers_s.NEXTVAL INTO p_x_mel_cdl_header_rec.mel_cdl_header_id FROM DUAL;
176: END IF;
177:
178: -- Insert record into backend
179: INSERT INTO ahl_mel_cdl_headers

Line 179: INSERT INTO ahl_mel_cdl_headers

175: SELECT ahl_mel_cdl_headers_s.NEXTVAL INTO p_x_mel_cdl_header_rec.mel_cdl_header_id FROM DUAL;
176: END IF;
177:
178: -- Insert record into backend
179: INSERT INTO ahl_mel_cdl_headers
180: (
181: MEL_CDL_HEADER_ID,
182: OBJECT_VERSION_NUMBER,
183: LAST_UPDATE_DATE,

Line 369: FROM ahl_mel_cdl_headers

365: pc_node_id,
366: version_number,
367: status_code,
368: revision_date
369: FROM ahl_mel_cdl_headers
370: WHERE mel_cdl_header_id = p_x_mel_cdl_header_rec.mel_cdl_header_id
371: FOR UPDATE OF object_version_number NOWAIT;
372:
373: l_ovn NUMBER;

Line 382: FROM ahl_mel_cdl_headers

378:
379: CURSOR check_other_type_exists
380: IS
381: SELECT 'x'
382: FROM ahl_mel_cdl_headers
383: WHERE pc_node_id = p_x_mel_cdl_header_rec.pc_node_id AND
384: mel_cdl_type_code = p_x_mel_cdl_header_rec.mel_cdl_type_code;
385:
386: CURSOR get_prev_mel_cdl_details

Line 389: FROM ahl_mel_cdl_headers

385:
386: CURSOR get_prev_mel_cdl_details
387: IS
388: SELECT revision_date
389: FROM ahl_mel_cdl_headers
390: WHERE pc_node_id = p_x_mel_cdl_header_rec.pc_node_id AND
391: mel_cdl_type_code = p_x_mel_cdl_header_rec.mel_cdl_type_code AND
392: version_number = p_x_mel_cdl_header_rec.version_number - 1;
393:

Line 529: UPDATE ahl_mel_cdl_headers

525: p_x_mel_cdl_header_rec.object_version_number := p_x_mel_cdl_header_rec.object_version_number + 1;
526: p_x_mel_cdl_header_rec.status_code := 'DRAFT';
527:
528: -- Update record in backend
529: UPDATE ahl_mel_cdl_headers
530: SET OBJECT_VERSION_NUMBER = p_x_mel_cdl_header_rec.object_version_number,
531: LAST_UPDATE_DATE = sysdate,
532: LAST_UPDATED_BY = fnd_global.user_id,
533: LAST_UPDATE_LOGIN = fnd_global.login_id,

Line 675: FROM ahl_mel_cdl_headers

671: -- Define cursors
672: CURSOR get_mel_cdl_details
673: IS
674: SELECT status_code
675: FROM ahl_mel_cdl_headers
676: WHERE mel_cdl_header_id = p_mel_cdl_header_id;
677:
678: l_status VARCHAR2(30);
679:

Line 844: DELETE FROM ahl_mel_cdl_headers

840: );
841: END IF;
842:
843: -- 3. Delete MEL/CDL itself
844: DELETE FROM ahl_mel_cdl_headers
845: WHERE mel_cdl_header_id = p_mel_cdl_header_id;
846:
847: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
848: THEN

Line 989: FROM ahl_mel_cdl_headers

985: attribute12,
986: attribute13,
987: attribute14,
988: attribute15
989: FROM ahl_mel_cdl_headers
990: WHERE mel_cdl_header_id = p_mel_cdl_header_id;
991:
992: l_mel_cdl_rec get_mel_cdl_details%rowtype;
993: l_max_rev NUMBER;

Line 1172: FROM ahl_mel_cdl_headers

1168:
1169: -- Retrieve the max version of the MEL/CDL line for the particular PC Node
1170: SELECT nvl(max(version_number), 1)
1171: INTO l_max_rev
1172: FROM ahl_mel_cdl_headers
1173: WHERE pc_node_id = l_mel_cdl_rec.pc_node_id AND
1174: mel_cdl_type_code = l_mel_cdl_rec.mel_cdl_type_code;
1175:
1176: -- Verify whether the latest revision of the MEL/CDL line is being revised

Line 1202: INSERT INTO ahl_mel_cdl_headers

1198: );
1199: END IF;
1200:
1201: -- Insert record into backend, using values from the current record being revised
1202: INSERT INTO ahl_mel_cdl_headers
1203: (
1204: MEL_CDL_HEADER_ID,
1205: OBJECT_VERSION_NUMBER,
1206: LAST_UPDATE_DATE,

Line 1237: ahl_mel_cdl_headers_s.NEXTVAL,

1233: ATTRIBUTE15
1234: )
1235: VALUES
1236: (
1237: ahl_mel_cdl_headers_s.NEXTVAL,
1238: 1,
1239: sysdate,
1240: fnd_global.user_id,
1241: sysdate,

Line 1755: FROM ahl_mel_cdl_headers

1751: status_code,
1752: version_number,
1753: revision,
1754: revision_date
1755: FROM ahl_mel_cdl_headers
1756: WHERE mel_cdl_header_id = p_mel_cdl_header_id
1757: FOR UPDATE OF object_version_number NOWAIT;
1758:
1759: l_ovn NUMBER;

Line 1776: FROM ahl_mel_cdl_headers

1772: p_mel_cdl_header_id number
1773: )
1774: IS
1775: SELECT 'x'
1776: FROM ahl_mel_cdl_headers
1777: WHERE pc_node_id = p_pc_node_id AND
1778: mel_cdl_type_code = p_mel_cdl_type_code AND
1779: revision = p_revision AND
1780: mel_cdl_header_id <> p_mel_cdl_header_id;

Line 1791: FROM ahl_mel_cdl_headers

1787: )
1788: IS
1789: SELECT mel_cdl_header_id,
1790: revision_date
1791: FROM ahl_mel_cdl_headers
1792: WHERE pc_node_id = p_pc_node_id AND
1793: mel_cdl_type_code = p_mel_cdl_type AND
1794: version_number = p_version_number - 1;
1795:

Line 1922: UPDATE ahl_mel_cdl_headers

1918: 'MEL_CDL approval process is active'
1919: );
1920: END IF;
1921:
1922: UPDATE ahl_mel_cdl_headers
1923: SET status_code = 'APPROVAL_PENDING',
1924: object_version_number = p_mel_cdl_object_version + 1,
1925: last_update_date = sysdate,
1926: last_updated_by = fnd_global.user_id,

Line 1967: UPDATE ahl_mel_cdl_headers

1963: 'MEL_CDL approval process is not active, hence force complete MEL/CDL'
1964: );
1965: END IF;
1966:
1967: UPDATE ahl_mel_cdl_headers
1968: SET status_code = 'COMPLETE',
1969: object_version_number = p_mel_cdl_object_version + 1,
1970: last_update_date = sysdate,
1971: last_updated_by = fnd_global.user_id,

Line 1990: UPDATE ahl_mel_cdl_headers

1986: l_prev_expired_date := l_prev_revision_date;
1987: END IF;
1988:
1989: -- Once the current revision of the MEL/CDL is complete, need to expire the earlier revision
1990: UPDATE ahl_mel_cdl_headers
1991: SET expired_date = l_prev_expired_date,
1992: object_version_number = object_version_number + 1,
1993: last_update_date = sysdate,
1994: last_updated_by = fnd_global.user_id,

Line 2087: FROM ahl_mel_cdl_headers

2083:
2084: CURSOR check_exists
2085: IS
2086: SELECT object_version_number
2087: FROM ahl_mel_cdl_headers
2088: WHERE mel_cdl_header_id = p_mel_cdl_header_id;
2089:
2090: l_ovn NUMBER;
2091:

Line 2172: FROM ahl_mel_cdl_headers

2168: IS
2169: CURSOR check_dup_rev
2170: IS
2171: SELECT 'x'
2172: FROM ahl_mel_cdl_headers
2173: WHERE pc_node_id = p_x_mel_cdl_header_rec.pc_node_id AND
2174: mel_cdl_type_code = p_x_mel_cdl_header_rec.mel_cdl_type_code AND
2175: revision = p_x_mel_cdl_header_rec.revision AND
2176: mel_cdl_header_id <> nvl(p_x_mel_cdl_header_rec.mel_cdl_header_id, -1);

Line 2198: End AHL_MEL_CDL_HEADERS_PVT;

2194: END IF;
2195:
2196: END Check_Duplicate_Revision;
2197:
2198: End AHL_MEL_CDL_HEADERS_PVT;