[Home] [Help]
PACKAGE BODY: APPS.OTA_OCL_SHD
Source
4 -- ----------------------------------------------------------------------------
1 Package Body ota_ocl_shd as
2 /* $Header: otoclrhi.pkb 120.1.12000000.2 2007/02/07 09:19:37 niarora noship $ */
3 --
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ota_ocl_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |---------------------------< constraint_error >---------------------------|
12 -- ----------------------------------------------------------------------------
13 Procedure constraint_error
14 (p_constraint_name in all_constraints.constraint_name%TYPE
15 ) Is
16 --
17 l_proc varchar2(72) := g_package||'constraint_error';
18 --
19 Begin
20 --
21 If (p_constraint_name = 'OTA_COMPETENCE_LANGUAGES_PK') Then
22 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
23 fnd_message.set_token('PROCEDURE', l_proc);
24 fnd_message.set_token('STEP','5');
25 fnd_message.raise_error;
26 ElsIf (p_constraint_name = 'OTA_COMPETENCE_LANGUAGES_UK') Then
27 fnd_message.set_name('OTA','OTA_OCL_MAPPING_EXISTS');
28 fnd_message.raise_error;
29
30 Else
31 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
32 fnd_message.set_token('PROCEDURE', l_proc);
33 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
34 fnd_message.raise_error;
35 End If;
36 --
37 End constraint_error;
38 --
39 -- ----------------------------------------------------------------------------
40 -- |-----------------------------< api_updating >-----------------------------|
41 -- ----------------------------------------------------------------------------
42 Function api_updating
43 (p_competence_language_id in number
44 ,p_object_version_number in number
45 )
46 Return Boolean Is
47 --
48 --
49 -- Cursor selects the 'current' row from the HR Schema
50 --
51 Cursor C_Sel1 is
52 select
53 competence_language_id
54 ,competence_id
55 ,language_code
56 ,min_proficiency_level_id
57 ,business_group_id
58 ,object_version_number
59 ,ocl_information_category
60 ,ocl_information1
61 ,ocl_information2
62 ,ocl_information3
63 ,ocl_information4
64 ,ocl_information5
65 ,ocl_information6
66 ,ocl_information7
67 ,ocl_information8
68 ,ocl_information9
69 ,ocl_information10
70 ,ocl_information11
71 ,ocl_information12
72 ,ocl_information13
73 ,ocl_information14
74 ,ocl_information15
75 ,ocl_information16
76 ,ocl_information17
77 ,ocl_information18
78 ,ocl_information19
79 ,ocl_information20
80 from ota_competence_languages
81 where competence_language_id = p_competence_language_id;
82 --
83 l_fct_ret boolean;
84 --
85 Begin
86 --
87 If (p_competence_language_id is null and
88 p_object_version_number is null
89 ) Then
90 --
91 -- One of the primary key arguments is null therefore we must
92 -- set the returning function value to false
93 --
94 l_fct_ret := false;
95 Else
96 If (p_competence_language_id
97 = ota_ocl_shd.g_old_rec.competence_language_id and
98 p_object_version_number
99 = ota_ocl_shd.g_old_rec.object_version_number
100 ) Then
101 --
102 -- The g_old_rec is current therefore we must
103 -- set the returning function to true
104 --
105 l_fct_ret := true;
106 Else
107 --
108 -- Select the current row into g_old_rec
109 --
110 Open C_Sel1;
111 Fetch C_Sel1 Into ota_ocl_shd.g_old_rec;
112 If C_Sel1%notfound Then
113 Close C_Sel1;
114 --
115 -- The primary key is invalid therefore we must error
116 --
117 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
118 fnd_message.raise_error;
119 End If;
120 Close C_Sel1;
121 If (p_object_version_number
122 <> ota_ocl_shd.g_old_rec.object_version_number) Then
123 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
124 fnd_message.raise_error;
125 End If;
126 l_fct_ret := true;
127 End If;
128 End If;
129 Return (l_fct_ret);
130 --
131 End api_updating;
132 --
133 -- ----------------------------------------------------------------------------
134 -- |---------------------------------< lck >----------------------------------|
135 -- ----------------------------------------------------------------------------
136 Procedure lck
137 (p_competence_language_id in number
138 ,p_object_version_number in number
142 --
139 ) is
140 --
141 -- Cursor selects the 'current' row from the HR Schema
143 Cursor C_Sel1 is
144 select
145 competence_language_id
146 ,competence_id
147 ,language_code
148 ,min_proficiency_level_id
149 ,business_group_id
150 ,object_version_number
151 ,ocl_information_category
152 ,ocl_information1
153 ,ocl_information2
154 ,ocl_information3
155 ,ocl_information4
156 ,ocl_information5
157 ,ocl_information6
158 ,ocl_information7
159 ,ocl_information8
160 ,ocl_information9
161 ,ocl_information10
162 ,ocl_information11
163 ,ocl_information12
164 ,ocl_information13
165 ,ocl_information14
166 ,ocl_information15
167 ,ocl_information16
168 ,ocl_information17
169 ,ocl_information18
170 ,ocl_information19
171 ,ocl_information20
172 from ota_competence_languages
173 where competence_language_id = p_competence_language_id
174 for update nowait;
175 --
176 l_proc varchar2(72) := g_package||'lck';
177 --
178 Begin
179 hr_utility.set_location('Entering:'||l_proc, 5);
180 --
181 hr_api.mandatory_arg_error
182 (p_api_name => l_proc
183 ,p_argument => 'COMPETENCE_LANGUAGE_ID'
184 ,p_argument_value => p_competence_language_id
185 );
186 --
187 Open C_Sel1;
188 Fetch C_Sel1 Into ota_ocl_shd.g_old_rec;
189 If C_Sel1%notfound then
190 Close C_Sel1;
191 --
192 -- The primary key is invalid therefore we must error
193 --
194 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
195 fnd_message.raise_error;
196 End If;
197 Close C_Sel1;
198 If (p_object_version_number
199 <> ota_ocl_shd.g_old_rec.object_version_number) Then
200 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
201 fnd_message.raise_error;
202 End If;
203 --
204 hr_utility.set_location(' Leaving:'||l_proc, 10);
205 --
206 -- We need to trap the ORA LOCK exception
207 --
208 Exception
209 When HR_Api.Object_Locked then
210 --
211 -- The object is locked therefore we need to supply a meaningful
212 -- error message.
213 --
214 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
215 fnd_message.set_token('TABLE_NAME', 'ota_competence_languages');
216 fnd_message.raise_error;
217 End lck;
218 --
219 -- ----------------------------------------------------------------------------
220 -- |-----------------------------< convert_args >-----------------------------|
221 -- ----------------------------------------------------------------------------
222 Function convert_args
223 (p_competence_language_id in number
224 ,p_competence_id in number
225 ,p_language_code in varchar2
226 ,p_min_proficiency_level_id in number
227 ,p_business_group_id in number
228 ,p_object_version_number in number
229 ,p_ocl_information_category in varchar2
230 ,p_ocl_information1 in varchar2
231 ,p_ocl_information2 in varchar2
232 ,p_ocl_information3 in varchar2
233 ,p_ocl_information4 in varchar2
234 ,p_ocl_information5 in varchar2
235 ,p_ocl_information6 in varchar2
236 ,p_ocl_information7 in varchar2
237 ,p_ocl_information8 in varchar2
238 ,p_ocl_information9 in varchar2
239 ,p_ocl_information10 in varchar2
240 ,p_ocl_information11 in varchar2
241 ,p_ocl_information12 in varchar2
242 ,p_ocl_information13 in varchar2
243 ,p_ocl_information14 in varchar2
244 ,p_ocl_information15 in varchar2
245 ,p_ocl_information16 in varchar2
246 ,p_ocl_information17 in varchar2
247 ,p_ocl_information18 in varchar2
248 ,p_ocl_information19 in varchar2
249 ,p_ocl_information20 in varchar2
250 )
251 Return g_rec_type is
252 --
253 l_rec g_rec_type;
254 --
255 Begin
256 --
257 -- Convert arguments into local l_rec structure.
258 --
259 l_rec.competence_language_id := p_competence_language_id;
260 l_rec.competence_id := p_competence_id;
261 l_rec.language_code := p_language_code;
262 l_rec.min_proficiency_level_id := p_min_proficiency_level_id;
263 l_rec.business_group_id := p_business_group_id;
264 l_rec.object_version_number := p_object_version_number;
265 l_rec.ocl_information_category := p_ocl_information_category;
266 l_rec.ocl_information1 := p_ocl_information1;
267 l_rec.ocl_information2 := p_ocl_information2;
268 l_rec.ocl_information3 := p_ocl_information3;
269 l_rec.ocl_information4 := p_ocl_information4;
270 l_rec.ocl_information5 := p_ocl_information5;
271 l_rec.ocl_information6 := p_ocl_information6;
272 l_rec.ocl_information7 := p_ocl_information7;
273 l_rec.ocl_information8 := p_ocl_information8;
274 l_rec.ocl_information9 := p_ocl_information9;
275 l_rec.ocl_information10 := p_ocl_information10;
276 l_rec.ocl_information11 := p_ocl_information11;
277 l_rec.ocl_information12 := p_ocl_information12;
278 l_rec.ocl_information13 := p_ocl_information13;
279 l_rec.ocl_information14 := p_ocl_information14;
280 l_rec.ocl_information15 := p_ocl_information15;
281 l_rec.ocl_information16 := p_ocl_information16;
282 l_rec.ocl_information17 := p_ocl_information17;
283 l_rec.ocl_information18 := p_ocl_information18;
284 l_rec.ocl_information19 := p_ocl_information19;
285 l_rec.ocl_information20 := p_ocl_information20;
286 --
287 -- Return the plsql record structure.
288 --
289 Return(l_rec);
290 --
291 End convert_args;
292 --
293 end ota_ocl_shd;