1: PACKAGE BODY AMS_MET_TPL_HEADERS_B_PKG AS
2: /* $Header: amslmthb.pls 115.14 2003/10/16 11:26:04 sunkumar ship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
2: /* $Header: amslmthb.pls 115.14 2003/10/16 11:26:04 sunkumar ship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
6: -- AMS_MET_TPL_HEADERS_B_PKG
7: -- Purpose
8: --
9: -- History
10: -- 03/05/2002 dmvincen Created.
18: -- End of Comments
19: -- ===============================================================
20:
21:
22: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_MET_TPL_HEADERS_B_PKG';
23: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amslmthb.pls';
24:
25:
26: ----------------------------------------------------------
63: BEGIN
64:
65: -- px_object_version_number := 1;
66:
67: INSERT INTO AMS_MET_TPL_HEADERS_B(
68: metric_tpl_header_id,
69: last_update_date,
70: last_updated_by,
71: creation_date,
165: p_object_version_number = FND_API.g_miss_num THEN
166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
167: END IF;
168:
169: UPDATE AMS_MET_TPL_HEADERS_B
170: SET
171: last_update_date = DECODE( p_last_update_date, FND_API.g_miss_date, last_update_date, p_last_update_date),
172: last_updated_by = DECODE( p_last_updated_by, FND_API.g_miss_num, last_updated_by, p_last_updated_by),
173: last_update_login = DECODE( p_last_update_login, FND_API.g_miss_num, last_update_login, p_last_update_login),
221: PROCEDURE Delete_Row(
222: p_METRIC_TPL_HEADER_ID NUMBER)
223: IS
224: BEGIN
225: DELETE FROM AMS_MET_TPL_HEADERS_B
226: WHERE METRIC_TPL_HEADER_ID = p_METRIC_TPL_HEADER_ID;
227: IF (SQL%NOTFOUND) THEN
228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: END IF;
265:
266: IS
267: CURSOR C IS
268: SELECT *
269: FROM AMS_MET_TPL_HEADERS_B
270: WHERE METRIC_TPL_HEADER_ID = p_METRIC_TPL_HEADER_ID
271: FOR UPDATE OF METRIC_TPL_HEADER_ID NOWAIT;
272: Recinfo C%ROWTYPE;
273: BEGIN
336: l_db_luby_id NUMBER;
337:
338: CURSOR c_db_data_details IS
339: SELECT last_updated_by, object_version_number
340: FROM AMS_MET_TPL_HEADERS_B
341: WHERE METRIC_TPL_HEADER_ID = X_METRIC_TPL_HEADER_ID;
342:
343: CURSOR c_get_mthid IS
344: SELECT AMS_MET_TPL_HEADERS_ALL_S.NEXTVAL
418: begin
419: delete from AMS_MET_TPL_HEADERS_TL T
420: where not exists
421: (select NULL
422: from AMS_MET_TPL_HEADERS_B B
423: where B.METRIC_TPL_HEADER_ID = T.METRIC_TPL_HEADER_ID
424: );
425:
426: update AMS_MET_TPL_HEADERS_TL T set (
496: where METRIC_TPL_HEADER_ID = x_METRIC_TPL_HEADER_ID
497: and userenv('LANG') in (language, source_lang);
498: end TRANSLATE_ROW;
499:
500: END AMS_MET_TPL_HEADERS_B_PKG;