[Home] [Help]
PACKAGE BODY: APPS.HR_CAGR_PARAMETER_API
Source
1 Package Body hr_cagr_parameter_api as
2 /* $Header: pecpaapi.pkb 115.5 2002/12/10 15:21:05 pkakar noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' hr_cagr_parameter_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_cagr_parameter >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_cagr_parameter
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_cagr_api_id in number
16 ,p_display_name in varchar2
17 ,p_parameter_name in varchar2
18 ,p_column_type in varchar2
19 ,p_column_size in number
20 ,p_uom_parameter in varchar2 default null
21 ,p_uom_lookup in varchar2 default null
22 ,p_default_uom in varchar2 default null
23 ,p_hidden in varchar2
24 ,p_cagr_api_param_id out nocopy number
25 ,p_object_version_number out nocopy number
26 ) is
27 --
28 -- Declare cursors and local variables
29 --
30 l_proc varchar2(72) := g_package||'create_cagr_parameter';
31 l_object_version_number per_cagr_api_parameters.object_version_number%TYPE;
32 l_cagr_api_param_id per_cagr_api_parameters.object_version_number%TYPE;
33 l_effective_date DATE;
34 --
35 begin
36 --
37 hr_utility.set_location('Entering:'|| l_proc, 10);
38 --
39 -- Issue a savepoint if operating in validation only mode
40 --
41 savepoint create_cagr_parameter;
42 --
43 -- Truncate the time portion from all IN date parameters
44 --
45 l_effective_date := TRUNC(p_effective_date);
46 --
47 hr_utility.set_location(l_proc, 20);
48 --
49 -- Process Logic
50 --
51 --
52 per_cpa_ins.ins
53 (
54 p_effective_date => l_effective_date
55 ,p_cagr_api_id => p_cagr_api_id
56 ,p_display_name => p_display_name
57 ,p_parameter_name => p_parameter_name
58 ,p_column_type => p_column_type
59 ,p_column_size => p_column_size
60 ,p_uom_parameter => p_uom_parameter
61 ,p_uom_lookup => p_uom_lookup
62 ,p_default_uom => p_default_uom
63 ,p_hidden => p_hidden
64 ,p_cagr_api_param_id => l_cagr_api_param_id
65 ,p_object_version_number => l_object_version_number
66 );
67 --
68 hr_utility.set_location(l_proc, 60);
69 --
70 -- When in validation only mode raise the Validate_Enabled exception
71 --
72 if p_validate then
73 raise hr_api.validate_enabled;
74 end if;
75 --
76 -- Set all output arguments
77 --
78 p_object_version_number := l_object_version_number;
79 p_cagr_api_param_id := l_cagr_api_param_id;
80 --
81 hr_utility.set_location(' Leaving:'||l_proc, 70);
82 --
83 exception
84 --
85 when hr_api.validate_enabled then
86 --
87 -- As the Validate_Enabled exception has been raised
88 -- we must rollback to the savepoint
89 --
90 ROLLBACK TO create_cagr_parameter;
91 --
92 -- Only set output warning arguments
93 -- (Any key or derived arguments must be set to null
94 -- when validation only mode is being used.)
95 --
96 p_object_version_number := null;
97 p_cagr_api_param_id := null;
98 --
99 hr_utility.set_location(' Leaving:'||l_proc, 80);
100 --
101 when others then
102 --
103 -- A validation or unexpected error has occured
104 --
105 ROLLBACK TO create_cagr_parameter;
106 -- Set out parameters
107 p_object_version_number := null;
108 p_cagr_api_param_id := null;
109 --
110 hr_utility.set_location(' Leaving:'||l_proc, 90);
111 raise;
112 --
113 end create_cagr_parameter;
114 -- ----------------------------------------------------------------------------
115 -- |------------------------< update_cagr_parameter >--- ------------------|
116 -- ----------------------------------------------------------------------------
117 --
118 procedure update_cagr_parameter
119 (p_validate in boolean default false
120 ,p_effective_date in date
121 ,p_cagr_api_param_id in number
122 ,p_cagr_api_id in number default hr_api.g_number
123 ,p_display_name in varchar2 default hr_api.g_varchar2
124 ,p_parameter_name in varchar2 default hr_api.g_varchar2
125 ,p_column_type in varchar2 default hr_api.g_varchar2
126 ,p_column_size in number default hr_api.g_number
127 ,p_uom_parameter in varchar2 default hr_api.g_varchar2
128 ,p_uom_lookup in varchar2 default hr_api.g_varchar2
129 ,p_default_uom in varchar2 default hr_api.g_varchar2
130 ,p_hidden in varchar2 default hr_api.g_varchar2
131 ,p_object_version_number in out nocopy number
132 ) is
133 --
134 -- Declare cursors and local variables
135 --
136 l_proc varchar2(72) := g_package||'update_cagr_parameter';
137 l_object_version_number per_cagr_api_parameters.object_version_number%TYPE;
138 l_effective_date DATE;
139 l_temp_object_version_number per_cagr_api_parameters.object_version_number%TYPE;
140 --
141 begin
142 --
143 hr_utility.set_location('Entering:'|| l_proc, 10);
144 --
145 -- Issue a savepoint if operating in validation only mode
146 --
147 savepoint update_cagr_parameter;
148 --
149 hr_utility.set_location(l_proc, 20);
150 --
151 -- Truncate the time portion from all IN date parameters
152 --
153 l_effective_date := TRUNC(p_effective_date);
154 --
155 -- Process Logic
156 --
157 l_object_version_number := p_object_version_number;
158 l_temp_object_version_number := p_object_version_number;
159 --
160 per_cpa_upd.upd
161 (
162 p_cagr_api_param_id => p_cagr_api_param_id
163 ,p_effective_date => l_effective_date
164 ,p_cagr_api_id => p_cagr_api_id
165 ,p_display_name => p_display_name
166 ,p_parameter_name => p_parameter_name
167 ,p_column_type => p_column_type
168 ,p_column_size => p_column_size
169 ,p_uom_parameter => p_uom_parameter
170 ,p_uom_lookup => p_uom_lookup
171 ,p_default_uom => p_default_uom
172 ,p_hidden => p_hidden
173 ,p_object_version_number => l_object_version_number
174 );
175 --
176 hr_utility.set_location(l_proc, 60);
177 --
178 -- When in validation only mode raise the Validate_Enabled exception
179 --
180 if p_validate then
181 raise hr_api.validate_enabled;
182 end if;
183 --
184 -- Set all output arguments
185 --
186 p_object_version_number := l_object_version_number;
187 --
188 hr_utility.set_location(' Leaving:'||l_proc, 70);
189 --
190 exception
191 --
192 when hr_api.validate_enabled then
193 --
194 -- As the Validate_Enabled exception has been raised
195 -- we must rollback to the savepoint
196 --
197 ROLLBACK TO update_cagr_parameter;
198 --
199 -- Only set output warning arguments
200 -- (Any key or derived arguments must be set to null
201 -- when validation only mode is being used.)
202 --
203 hr_utility.set_location(' Leaving:'||l_proc, 80);
204 --
205 when others then
206 --
207 -- A validation or unexpected error has occured
208 --
209 ROLLBACK TO update_cagr_parameter;
210 --
211 -- Reset in out parameters
212 p_object_version_number := l_temp_object_version_number;
213 --
214 hr_utility.set_location(' Leaving:'||l_proc, 90);
215 raise;
216 --
217 end update_cagr_parameter;
218 -- ----------------------------------------------------------------------------
219 -- |------------------------< delete_cagr_parameter >----------------------|
220 -- ----------------------------------------------------------------------------
221 --
222 procedure delete_cagr_parameter
223 (
224 p_cagr_api_param_id in number
225 ,p_validate in boolean default false
226 ,p_object_version_number in out nocopy number
227 ) is
228 --
229 -- Declare cursors and local variables
230 --
231 l_proc varchar2(72) := g_package||'update_cagr_parameter';
232 l_object_version_number per_cagr_api_parameters.object_version_number%TYPE;
233 --
234 begin
235 --
236 hr_utility.set_location('Entering:'|| l_proc, 10);
237 --
238 -- Issue a savepoint if operating in validation only mode
239 --
240 savepoint delete_cagr_parameter;
241 --
242 hr_utility.set_location(l_proc, 20);
243 --
244 -- Process Logic
245 --
246 l_object_version_number := p_object_version_number;
247 --
248 per_cpa_del.del
249 (
250 p_cagr_api_param_id => p_cagr_api_param_id
251 ,p_object_version_number => l_object_version_number
252 );
253 --
254 hr_utility.set_location(l_proc, 60);
255 --
256 -- When in validation only mode raise the Validate_Enabled exception
257 --
258 if p_validate then
259 raise hr_api.validate_enabled;
260 end if;
261 --
262 hr_utility.set_location(' Leaving:'||l_proc, 70);
263 --
264 exception
265 --
266 when hr_api.validate_enabled then
267 --
268 -- As the Validate_Enabled exception has been raised
269 -- we must rollback to the savepoint
270 --
271 ROLLBACK TO delete_cagr_parameter;
272 --
273 -- Only set output warning arguments
274 -- (Any key or derived arguments must be set to null
275 -- when validation only mode is being used.)
276 --
277 --
278 when others then
279 --
280 -- A validation or unexpected error has occured
281 --
282 ROLLBACK TO delete_cagr_parameter;
283 -- set in out parameters
284 p_object_version_number := l_object_version_number;
285 --
286 hr_utility.set_location(' Leaving:'||l_proc, 80);
287 raise;
288 --
289 end delete_cagr_parameter;
290 --
291 end hr_cagr_parameter_api;