[Home] [Help]
34: l_deliverable_id NUMBER := null;
35: l_access_name VARCHAR2(40);
36:
37: CURSOR context_id_seq IS
38: SELECT ibe_dsp_context_b_s1.NEXTVAL
39: FROM DUAL;
40:
41: BEGIN
42:
117: END IF;
118:
119: IF l_operation_type = 'INSERT'
120: THEN
121: INSERT INTO IBE_DSP_CONTEXT_B (
122: CONTEXT_ID,
123: OBJECT_VERSION_NUMBER,
124: LAST_UPDATE_DATE,
125: LAST_UPDATED_BY,
178: p_display_context_rec.object_version_number := 1;
179:
180: ELSIF l_operation_type = 'UPDATE'
181: THEN
182: UPDATE IBE_DSP_CONTEXT_B
183: SET LAST_UPDATE_DATE = SYSDATE,
184: LAST_UPDATED_BY = FND_GLOBAL.user_id,
185: LAST_UPDATE_login = FND_GLOBAL.user_id,
186: ACCESS_NAME = p_display_context_rec.access_name,
313: THEN
314: RAISE FND_API.g_exc_error;
315: END IF;
316:
317: DELETE FROM IBE_DSP_CONTEXT_B
318: WHERE CONTEXT_ID = p_display_context_rec.context_id
319: AND CONTEXT_TYPE_code = p_display_context_rec.context_type
320: AND OBJECT_VERSION_NUMBER= p_display_context_rec.object_version_number;
321:
527:
528: ---------------------------------------------------------------+
529: -- NOTES
530: -- 1. Raise exception if there is a database error
531: -- 2. Sets the item_id in IBE_DSP_CONTEXT_B to null for
532: -- the deliverable id passed
533: -- 3. No api level exceptions are raised
534: ---------------------------------------------------------------+
535: PROCEDURE delete_deliverable(p_deliverable_id IN NUMBER )
540: IF p_deliverable_id <> FND_API.g_miss_num OR
541: p_deliverable_id IS NOT NULL
542: THEN
543: -- Set the deliverable id to null for any display context
544: UPDATE IBE_DSP_CONTEXT_B
545: SET item_id = NULL
546: WHERE item_id = p_deliverable_id;
547: END IF;
548: EXCEPTION
568: X_COMPONENT_TYPE_CODE in VARCHAR2)
569: IS
570: CURSOR C IS
571: SELECT ROWID
572: FROM IBE_DSP_CONTEXT_B
573: WHERE CONTEXT_ID = X_CONTEXT_ID;
574: BEGIN
575: INSERT INTO IBE_DSP_CONTEXT_B (
576: CONTEXT_ID,
571: SELECT ROWID
572: FROM IBE_DSP_CONTEXT_B
573: WHERE CONTEXT_ID = X_CONTEXT_ID;
574: BEGIN
575: INSERT INTO IBE_DSP_CONTEXT_B (
576: CONTEXT_ID,
577: OBJECT_VERSION_NUMBER,
578: ACCESS_NAME,
579: CONTEXT_TYPE_CODE,
654: OBJECT_VERSION_NUMBER,
655: ACCESS_NAME,
656: CONTEXT_TYPE_CODE,
657: ITEM_ID
658: FROM IBE_DSP_CONTEXT_B
659: WHERE CONTEXT_ID = X_CONTEXT_ID
660: FOR UPDATE OF CONTEXT_ID NOWAIT;
661:
662: recinfo c%rowtype;
728: x_last_update_login in number,
729: x_component_type_code in VARCHAR2)
730: IS
731: BEGIN
732: UPDATE IBE_DSP_CONTEXT_B
733: SET OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
734: ACCESS_NAME = X_ACCESS_NAME,
735: CONTEXT_TYPE_CODE = X_CONTEXT_TYPE_CODE,
736: ITEM_ID = X_ITEM_ID,
773: THEN
774: RAISE no_data_found;
775: END IF;
776:
777: DELETE FROM IBE_DSP_CONTEXT_B
778: WHERE CONTEXT_ID = X_CONTEXT_ID;
779:
780: IF (sql%notfound)
781: THEN
841:
842: CURSOR c_get_context_csr(c_access_name VARCHAR2,
843: c_context_type_code VARCHAR2) IS
844: SELECT context_id
845: FROM ibe_dsp_context_b
846: WHERE access_name = c_access_name
847: AND context_type_code = c_context_type_code;
848: l_temp NUMBER;
849: BEGIN
860:
861: -- get the value of the db_luby and db_ludate from the database
862: select LAST_UPDATED_BY, LAST_UPDATE_DATE
863: into db_luby, db_ludate
864: from IBE_DSP_CONTEXT_B
865: where CONTEXT_ID = X_CONTEXT_ID;
866: --Invoke standard merge comparison routine UPLOAD_TEST to determine whether to upload or not
867:
868: IF (fnd_load_util.upload_test(f_luby, f_ludate, db_luby, db_ludate, X_CUSTOM_MODE))
921: BEGIN
922: DELETE FROM IBE_DSP_CONTEXT_TL T
923: WHERE NOT EXISTS(
924: SELECT NULL
925: FROM IBE_DSP_CONTEXT_B B
926: WHERE B.CONTEXT_ID = T.CONTEXT_ID );
927:
928: UPDATE IBE_DSP_CONTEXT_TL T
929: SET (NAME,DESCRIPTION) =