1: PACKAGE BODY AMW_PROCESS_OBJECTIVES_B_PKG as
2: /* $Header: amwtprob.pls 115.1 2004/02/06 01:00:12 abedajna noship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
2: /* $Header: amwtprob.pls 115.1 2004/02/06 01:00:12 abedajna noship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
6: -- AMW_PROCESS_OBJECTIVES_B_PKG
7: -- Purpose
8: --
9: -- History
10: --
13: -- End of Comments
14: -- ===============================================================
15:
16:
17: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMW_PROCESS_OBJECTIVES_B_PKG';
18: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amwtprob.pls';
19:
20:
21: ----------------------------------------------------------
67: X_NAME in VARCHAR2,
68: X_DESCRIPTION in VARCHAR2)
69:
70: IS
71: cursor C is select ROWID from AMW_process_objectives_B
72: where process_objective_ID = x_process_objective_id;
73: ---- x_rowid VARCHAR2(30);
74:
75:
75:
76: BEGIN
77:
78:
79: INSERT INTO AMW_PROCESS_OBJECTIVES_B(
80: last_updated_by,
81: last_update_date,
82: created_by,
83: creation_date,
228: x_requestor_id NUMBER)
229:
230: IS
231: BEGIN
232: Update AMW_PROCESS_OBJECTIVES_B
233: SET
234: last_updated_by = DECODE( x_last_updated_by, FND_API.g_miss_num, last_updated_by, x_last_updated_by),
235: last_update_date = DECODE( x_last_update_date, FND_API.g_miss_date, last_update_date, x_last_update_date),
236: --created_by = DECODE( x_created_by, FND_API.g_miss_num, created_by, x_created_by),
307: if (sql%notfound) then
308: raise FND_API.G_EXC_UNEXPECTED_ERROR;
309: end if;
310:
311: DELETE FROM AMW_PROCESS_OBJECTIVES_B
312: WHERE PROCESS_OBJECTIVE_ID = x_PROCESS_OBJECTIVE_ID;
313: If (SQL%NOTFOUND) then
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: End If;
388: attribute15,
389: security_group_id,
390: object_version_number,
391: requestor_id
392: FROM AMW_PROCESS_OBJECTIVES_B
393: WHERE PROCESS_OBJECTIVE_ID = x_PROCESS_OBJECTIVE_ID
394: FOR UPDATE of PROCESS_OBJECTIVE_ID NOWAIT;
395: Recinfo C%ROWTYPE;
396:
530: begin
531: delete from AMW_process_objectives_TL T
532: where not exists
533: (select NULL
534: from AMW_process_objectives_B B
535: where B.process_objective_id = T.process_objective_id
536: );
537:
538: update AMW_process_objectives_TL T set (
642: end delete_proc_obj;
643:
644:
645:
646: END AMW_PROCESS_OBJECTIVES_B_PKG;