[Home] [Help]
PACKAGE BODY: APPS.PFT_BR_ACTIVITY_RATE_PVT
Source
1 PACKAGE BODY PFT_BR_ACTIVITY_RATE_PVT AS
2 /* $Header: PFTVRATB.pls 120.0 2005/06/06 19:08:04 appldev noship $ */
3
4 --------------------------------------------------------------------------------
5 -- PRIVATE CONSTANTS
6 --------------------------------------------------------------------------------
7
8 G_PKG_NAME constant varchar2(30) := 'PFT_BR_ACTIVITY_RATE_PVT';
9
10 --------------------------------------------------------------------------------
11 -- PRIVATE SPECIFICATIONS
12 --------------------------------------------------------------------------------
13
14 --------------------------------------------------------------------------------
15 -- PUBLIC BODIES
16 --------------------------------------------------------------------------------
17
18 --
19 -- PROCEDURE
20 -- DeleteObjectDefinition
21 --
22 -- DESCRIPTION
23 -- Deletes all the details records of an Activity Rate Definition.
24 --
25 -- IN
26 -- p_obj_def_id - Object Definition ID.
27 --
28 --------------------------------------------------------------------------------
29 PROCEDURE DeleteObjectDefinition(
30 p_obj_def_id in number
31 )
32 --------------------------------------------------------------------------------
33 IS
34
35 g_api_name constant varchar2(30) := 'DeleteObjectDefinition';
36
37 BEGIN
38
39 delete from PFT_ACTIVITY_DRIVER_ASGN
40 where activity_rate_obj_def_id = p_obj_def_id;
41
42 delete from PFT_ACTIVITY_RATES
43 where activity_rate_obj_def_id = p_obj_def_id;
44
45 EXCEPTION
46
47 when others then
48 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
49 raise FND_API.G_EXC_UNEXPECTED_ERROR;
50
51 END DeleteObjectDefinition;
52
53
54 --
55 -- PROCEDURE
56 -- CopyObjectDefinition
57 --
58 -- DESCRIPTION
59 -- Creates all the detail records of a new Activity Rate Definition
60 -- (target) by copying the detail records of another Activity Rate
61 -- Definition (source).
62 --
63 -- IN
64 -- p_source_obj_def_id - Source Object Definition ID.
65 -- p_target_obj_def_id - Target Object Definition ID.
66 -- p_created_by - FND User ID (optional).
67 -- p_creation_date - System Date (optional).
68 --
69 --------------------------------------------------------------------------------
70 PROCEDURE CopyObjectDefinition(
71 p_source_obj_def_id in number
72 ,p_target_obj_def_id in number
73 ,p_created_by in number
74 ,p_creation_date in date
75 )
76 --------------------------------------------------------------------------------
77 IS
78
79 g_api_name constant varchar2(30) := 'CopyObjectDefinition';
80
81 BEGIN
82
83 insert into pft_activity_rates (
84 activity_rate_obj_def_id
85 ,activity_hier_obj_id
86 ,currency_code
87 ,condition_obj_id
88 ,top_nodes_flag
89 ,output_to_rate_stat_flag
90 ,created_by
91 ,creation_date
92 ,last_updated_by
93 ,last_update_date
94 ,last_update_login
95 ,object_version_number
96 ) select
97 p_target_obj_def_id
98 ,activity_hier_obj_id
99 ,currency_code
100 ,condition_obj_id
101 ,top_nodes_flag
102 ,output_to_rate_stat_flag
103 ,nvl(p_created_by,created_by)
104 ,nvl(p_creation_date,creation_date)
105 ,FND_GLOBAL.user_id
106 ,sysdate
107 ,FND_GLOBAL.login_id
108 ,object_version_number
109 from pft_activity_rates
110 where activity_rate_obj_def_id = p_source_obj_def_id;
111
112
113
114 insert into pft_activity_driver_asgn (
115 activity_rate_obj_def_id
116 ,activity_id
117 ,source_table_name
118 ,column_name
119 ,statistic_basis_id
120 ,condition_obj_id
121 ,created_by
122 ,creation_date
123 ,last_updated_by
124 ,last_update_date
125 ,last_update_login
126 ,object_version_number
127 ) select
128 p_target_obj_def_id
129 ,activity_id
130 ,source_table_name
131 ,column_name
132 ,statistic_basis_id
133 ,condition_obj_id
134 ,nvl(p_created_by,created_by)
135 ,nvl(p_creation_date,creation_date)
136 ,FND_GLOBAL.user_id
137 ,sysdate
138 ,FND_GLOBAL.login_id
139 ,object_version_number
140 from pft_activity_driver_asgn
141 where activity_rate_obj_def_id = p_source_obj_def_id;
142
143
144 EXCEPTION
145
146 when others then
147 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
148 raise FND_API.G_EXC_UNEXPECTED_ERROR;
149
150 END CopyObjectDefinition;
151
152
153
154 END PFT_BR_ACTIVITY_RATE_PVT;