[Home] [Help]
1: PACKAGE BODY AMS_IBA_PS_POSTINGS_B_PKG as
2: /* $Header: amstpstb.pls 115.9 2002/12/19 04:16:57 ryedator ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_IBA_PS_POSTINGS_B_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstpstb.pls';
1: PACKAGE BODY AMS_IBA_PS_POSTINGS_B_PKG as
2: /* $Header: amstpstb.pls 115.9 2002/12/19 04:16:57 ryedator ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_IBA_PS_POSTINGS_B_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstpstb.pls';
6:
7: ----------------------------------------------------------
8: ---- MEDIA ----
59: BEGIN
60:
61: px_object_version_number := 1;
62:
63: INSERT INTO AMS_IBA_PS_POSTINGS_B(
64: created_by,
65: creation_date,
66: last_updated_by,
67: last_update_date,
208: p_attribute15 VARCHAR2)
209:
210: IS
211: BEGIN
212: Update AMS_IBA_PS_POSTINGS_B
213: SET
214: created_by = DECODE( p_created_by, FND_API.g_miss_num, created_by, p_created_by),
215: creation_date = DECODE( p_creation_date, FND_API.g_miss_date, creation_date, p_creation_date),
216: last_updated_by = DECODE( p_last_updated_by, FND_API.g_miss_num, last_updated_by, p_last_updated_by),
284: PROCEDURE Delete_Row(
285: p_POSTING_ID NUMBER)
286: IS
287: BEGIN
288: DELETE FROM AMS_IBA_PS_POSTINGS_B
289: WHERE POSTING_ID = p_POSTING_ID;
290: If (SQL%NOTFOUND) then
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: End If;
341:
342: IS
343: CURSOR C IS
344: SELECT *
345: FROM AMS_IBA_PS_POSTINGS_B
346: WHERE POSTING_ID = p_POSTING_ID
347: FOR UPDATE of POSTING_ID NOWAIT;
348: Recinfo C%ROWTYPE;
349: BEGIN
403: begin
404: delete from AMS_IBA_PS_POSTINGS_TL T
405: where not exists
406: (select NULL
407: from AMS_IBA_PS_POSTINGS_B B
408: where B.POSTING_ID = T.POSTING_ID
409: );
410:
411: update AMS_IBA_PS_POSTINGS_TL T set (
470: where T.POSTING_ID = B.POSTING_ID
471: and T.LANGUAGE = L.LANGUAGE_CODE);
472: end ADD_LANGUAGE;
473:
474: END AMS_IBA_PS_POSTINGS_B_PKG;