[Home] [Help]
PACKAGE BODY: APPS.OTA_ACI_SHD
Source
1 Package Body ota_aci_shd as
2 /* $Header: otacirhi.pkb 120.0 2005/05/29 06:51:07 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ota_aci_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------< return_api_dml_status >-------------------------|
12 -- ----------------------------------------------------------------------------
13 Function return_api_dml_status Return Boolean Is
14 --
15 Begin
16 --
17 Return (nvl(g_api_dml, false));
18 --
19 End return_api_dml_status;
20 --
21 -- ----------------------------------------------------------------------------
22 -- |---------------------------< constraint_error >---------------------------|
23 -- ----------------------------------------------------------------------------
24 Procedure constraint_error
25 (p_constraint_name in all_constraints.constraint_name%TYPE
26 ) Is
27 --
28 l_proc varchar2(72) := g_package||'constraint_error';
29 --
30 Begin
31 --
32 If (p_constraint_name = 'OTA_ACT_CAT_ACTIVE_DATE_CHK') Then
33 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
34 fnd_message.set_token('PROCEDURE', l_proc);
35 fnd_message.set_token('STEP','5');
36 fnd_message.raise_error;
37 ElsIf (p_constraint_name = 'OTA_ACT_CAT_INCLUSIONS_FK1') Then
38 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
39 fnd_message.set_token('PROCEDURE', l_proc);
40 fnd_message.set_token('STEP','10');
41 fnd_message.raise_error;
42 ElsIf (p_constraint_name = 'OTA_ACT_CAT_INCLUSIONS_FK2') Then
43 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
44 fnd_message.set_token('PROCEDURE', l_proc);
45 fnd_message.set_token('STEP','15');
46 fnd_message.raise_error;
47 ElsIf (p_constraint_name = 'OTA_ACT_CAT_INCLUSIONS_UK3') Then
48 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
49 fnd_message.set_token('PROCEDURE', l_proc);
50 fnd_message.set_token('STEP','20');
51 fnd_message.raise_error;
52 /*
53 ElsIf (p_constraint_name = 'OTA_ACT_CAT_INCL_PK') Then
54 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
55 fnd_message.set_token('PROCEDURE', l_proc);
56 fnd_message.set_token('STEP','25');
57 fnd_message.raise_error;
58 */
59 Else
60 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
61 fnd_message.set_token('PROCEDURE', l_proc);
62 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
63 fnd_message.raise_error;
64 End If;
65 --
66 End constraint_error;
67 --
68 -- ----------------------------------------------------------------------------
69 -- |-----------------------------< api_updating >-----------------------------|
70 -- ----------------------------------------------------------------------------
71 Function api_updating
72 (p_activity_version_id in number
73 ,p_category_usage_id in number
74 ,p_object_version_number in number
75 )
76 Return Boolean Is
77 --
78 --
79 -- Cursor selects the 'current' row from the HR Schema
80 --
81 Cursor C_Sel1 is
82 select
83 activity_version_id
84 ,activity_category
85 ,object_version_number
86 ,event_id
87 ,comments
88 ,aci_information_category
89 ,aci_information1
90 ,aci_information2
91 ,aci_information3
92 ,aci_information4
93 ,aci_information5
94 ,aci_information6
95 ,aci_information7
96 ,aci_information8
97 ,aci_information9
98 ,aci_information10
99 ,aci_information11
100 ,aci_information12
101 ,aci_information13
102 ,aci_information14
103 ,aci_information15
104 ,aci_information16
105 ,aci_information17
106 ,aci_information18
107 ,aci_information19
108 ,aci_information20
109 ,start_date_active
110 ,end_date_active
111 ,primary_flag
112 ,category_usage_id
113 from ota_act_cat_inclusions
114 where activity_version_id = p_activity_version_id
115 and category_usage_id = p_category_usage_id;
116 --
117 l_fct_ret boolean;
118 --
119 Begin
120 --
121 If (p_activity_version_id is null and
122 p_object_version_number is null and
123 p_category_usage_id is null
124 ) Then
125 --
126 -- One of the primary key arguments is null therefore we must
127 -- set the returning function value to false
128 --
129 l_fct_ret := false;
130 Else
131 If (p_activity_version_id
132 = ota_aci_shd.g_old_rec.activity_version_id and
133 p_object_version_number
134 = ota_aci_shd.g_old_rec.object_version_number and
135 p_category_usage_id
136 = ota_aci_shd.g_old_rec.category_usage_id
137 ) Then
138 --
139 -- The g_old_rec is current therefore we must
140 -- set the returning function to true
141 --
142 l_fct_ret := true;
143 Else
144 --
145 -- Select the current row into g_old_rec
146 --
147 Open C_Sel1;
148 Fetch C_Sel1 Into ota_aci_shd.g_old_rec;
149 If C_Sel1%notfound Then
150 Close C_Sel1;
151 --
152 -- The primary key is invalid therefore we must error
153 --
154 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
155 fnd_message.raise_error;
156 End If;
157 Close C_Sel1;
158 If (p_object_version_number
159 <> ota_aci_shd.g_old_rec.object_version_number) Then
160 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
161 fnd_message.raise_error;
162 End If;
163 l_fct_ret := true;
164 End If;
165 End If;
166 Return (l_fct_ret);
167 --
168 End api_updating;
169 --
170 -- ----------------------------------------------------------------------------
171 -- |---------------------------------< lck >----------------------------------|
172 -- ----------------------------------------------------------------------------
173 Procedure lck
174 (p_activity_version_id in number
175 ,p_category_usage_id in number
176 ,p_object_version_number in number
177 ) is
178 --
179 -- Cursor selects the 'current' row from the HR Schema
180 --
181 Cursor C_Sel1 is
182 select
183 activity_version_id
184 ,activity_category
185 ,object_version_number
186 ,event_id
187 ,comments
188 ,aci_information_category
189 ,aci_information1
190 ,aci_information2
191 ,aci_information3
192 ,aci_information4
193 ,aci_information5
194 ,aci_information6
195 ,aci_information7
196 ,aci_information8
197 ,aci_information9
198 ,aci_information10
199 ,aci_information11
200 ,aci_information12
201 ,aci_information13
202 ,aci_information14
203 ,aci_information15
204 ,aci_information16
205 ,aci_information17
206 ,aci_information18
207 ,aci_information19
208 ,aci_information20
209 ,start_date_active
210 ,end_date_active
211 ,primary_flag
212 ,category_usage_id
213 from ota_act_cat_inclusions
214 where activity_version_id = p_activity_version_id
215 and category_usage_id = p_category_usage_id
216 for update nowait;
217 --
218 l_proc varchar2(72) := g_package||'lck';
219 --
220 Begin
221 hr_utility.set_location('Entering:'||l_proc, 5);
222 --
223 hr_api.mandatory_arg_error
224 (p_api_name => l_proc
225 ,p_argument => 'ACTIVITY_VERSION_ID'
226 ,p_argument_value => p_activity_version_id
227 );
228 hr_utility.set_location(l_proc,6);
229 hr_api.mandatory_arg_error
230 (p_api_name => l_proc
231 ,p_argument => 'OBJECT_VERSION_NUMBER'
232 ,p_argument_value => p_object_version_number
233 );
234 hr_utility.set_location(l_proc,7);
235 hr_api.mandatory_arg_error
236 (p_api_name => l_proc
237 ,p_argument => 'CATEGORY_USAGE_ID'
238 ,p_argument_value => p_category_usage_id
239 );
240 --
241 Open C_Sel1;
242 Fetch C_Sel1 Into ota_aci_shd.g_old_rec;
243 If C_Sel1%notfound then
244 Close C_Sel1;
245 --
246 -- The primary key is invalid therefore we must error
247 --
248 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
249 fnd_message.raise_error;
250 End If;
251 Close C_Sel1;
252 If (p_object_version_number
253 <> ota_aci_shd.g_old_rec.object_version_number) Then
254 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
255 fnd_message.raise_error;
256 End If;
257 --
258 hr_utility.set_location(' Leaving:'||l_proc, 10);
259 --
260 -- We need to trap the ORA LOCK exception
261 --
262 Exception
263 When HR_Api.Object_Locked then
264 --
265 -- The object is locked therefore we need to supply a meaningful
266 -- error message.
267 --
268 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
269 fnd_message.set_token('TABLE_NAME', 'ota_act_cat_inclusions');
270 fnd_message.raise_error;
271 End lck;
272 --
273 -- ----------------------------------------------------------------------------
274 -- |-----------------------------< convert_args >-----------------------------|
275 -- ----------------------------------------------------------------------------
276 Function convert_args
277 (p_activity_version_id in number
278 ,p_activity_category in varchar2
279 ,p_object_version_number in number
280 ,p_event_id in number
281 ,p_comments in varchar2
282 ,p_aci_information_category in varchar2
283 ,p_aci_information1 in varchar2
284 ,p_aci_information2 in varchar2
285 ,p_aci_information3 in varchar2
286 ,p_aci_information4 in varchar2
287 ,p_aci_information5 in varchar2
288 ,p_aci_information6 in varchar2
289 ,p_aci_information7 in varchar2
290 ,p_aci_information8 in varchar2
291 ,p_aci_information9 in varchar2
292 ,p_aci_information10 in varchar2
293 ,p_aci_information11 in varchar2
294 ,p_aci_information12 in varchar2
295 ,p_aci_information13 in varchar2
296 ,p_aci_information14 in varchar2
297 ,p_aci_information15 in varchar2
298 ,p_aci_information16 in varchar2
299 ,p_aci_information17 in varchar2
300 ,p_aci_information18 in varchar2
301 ,p_aci_information19 in varchar2
302 ,p_aci_information20 in varchar2
303 ,p_start_date_active in date
304 ,p_end_date_active in date
305 ,p_primary_flag in varchar2
306 ,p_category_usage_id in number
307 )
308 Return g_rec_type is
309 --
310 l_rec g_rec_type;
311 --
312 Begin
313 --
314 -- Convert arguments into local l_rec structure.
315 --
316 l_rec.activity_version_id := p_activity_version_id;
317 l_rec.activity_category := p_activity_category;
318 l_rec.object_version_number := p_object_version_number;
319 l_rec.event_id := p_event_id;
320 l_rec.comments := p_comments;
321 l_rec.aci_information_category := p_aci_information_category;
322 l_rec.aci_information1 := p_aci_information1;
323 l_rec.aci_information2 := p_aci_information2;
324 l_rec.aci_information3 := p_aci_information3;
325 l_rec.aci_information4 := p_aci_information4;
326 l_rec.aci_information5 := p_aci_information5;
327 l_rec.aci_information6 := p_aci_information6;
328 l_rec.aci_information7 := p_aci_information7;
329 l_rec.aci_information8 := p_aci_information8;
330 l_rec.aci_information9 := p_aci_information9;
331 l_rec.aci_information10 := p_aci_information10;
332 l_rec.aci_information11 := p_aci_information11;
333 l_rec.aci_information12 := p_aci_information12;
334 l_rec.aci_information13 := p_aci_information13;
335 l_rec.aci_information14 := p_aci_information14;
336 l_rec.aci_information15 := p_aci_information15;
337 l_rec.aci_information16 := p_aci_information16;
338 l_rec.aci_information17 := p_aci_information17;
339 l_rec.aci_information18 := p_aci_information18;
340 l_rec.aci_information19 := p_aci_information19;
341 l_rec.aci_information20 := p_aci_information20;
342 l_rec.start_date_active := p_start_date_active;
343 l_rec.end_date_active := p_end_date_active;
344 l_rec.primary_flag := p_primary_flag;
345 l_rec.category_usage_id := p_category_usage_id;
346 --
347 -- Return the plsql record structure.
348 --
349 Return(l_rec);
350 --
351 End convert_args;
352 --
353 end ota_aci_shd;