[Home] [Help]
PACKAGE BODY: APPS.FEM_BR_STAT_LOOKUP_PVT
Source
1 PACKAGE BODY fem_br_stat_lookup_pvt AS
2 /* $Header: FEMVSTATLKPB.pls 120.0 2006/06/29 09:06:26 asadadek noship $ */
3
4 G_PKG_NAME constant varchar2(30) := 'FEM_BR_STAT_LOOKUP_PVT';
5
6
7 PROCEDURE DeleteObjectDefinition(p_obj_def_id NUMBER) IS
8 BEGIN
9
10 -- First delete the Lookup join.
11 DELETE FROM fem_stat_lookup_rel WHERE STAT_LOOKUP_OBJ_DEF_ID = p_obj_def_id;
12 --Then delete the Lookup Details.
13 DELETE FROM fem_stat_lookups WHERE STAT_LOOKUP_OBJ_DEF_ID = p_obj_def_id;
14
15 EXCEPTION
16
17 WHEN others THEN
18 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'DeleteObjectDefinition');
19 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
20
21 END;
22
23
24 PROCEDURE CopyObjectDefinition(p_source_obj_def_id IN NUMBER,
25 p_target_obj_def_id IN NUMBER,
26 p_created_by IN NUMBER,
27 p_creation_date IN DATE) IS
28 BEGIN
29 --First copy the Lookup Details.
30 INSERT INTO fem_stat_lookups( stat_lookup_obj_def_id,
31 stat_lookup_table,
32 related_to_table,
33 stat_lookup_column,
34 condition_obj_def_id,
35 created_by,
36 creation_date,
37 last_updated_by,
38 last_update_date,
39 last_update_login,
40 object_version_number)
41 SELECT p_target_obj_def_id,
42 stat_lookup_table,
43 related_to_table,
44 stat_lookup_column,
45 condition_obj_def_id,
46 p_created_by,
47 p_creation_date,
48 FND_GLOBAL.user_id,
49 SYSDATE,
50 FND_GLOBAL.login_id,
51 0
52 FROM fem_stat_lookups
53 WHERE stat_lookup_obj_def_id = p_source_obj_def_id;
54
55 --Thereafter join the Lookup Join.
56 INSERT INTO fem_stat_lookup_rel( stat_lookup_obj_def_id,
57 stat_lookup_tbl_col,
58 relational_operand,
59 related_to_tbl_col,
60 value,
61 created_by,
62 creation_date,
63 last_updated_by,
64 last_update_date,
65 last_update_login,
66 object_version_number)
67 SELECT p_target_obj_def_id,
68 stat_lookup_tbl_col,
69 relational_operand,
70 related_to_tbl_col,
71 value,
72 p_created_by,
73 p_creation_date,
74 FND_GLOBAL.user_id,
75 SYSDATE,
76 FND_GLOBAL.login_id,
77 0
78 FROM fem_stat_lookup_rel
79 WHERE stat_lookup_obj_def_id = p_source_obj_def_id;
80
81 EXCEPTION
82
83 WHEN others THEN
84 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'CopyObjectDefinition');
85 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
86
87 END;
88
89
90 END fem_br_stat_lookup_pvt;