[Home] [Help]
PACKAGE BODY: APPS.PQH_TJR_SHD
Source
1 Package Body pqh_tjr_shd as
2 /* $Header: pqtjrrhi.pkb 115.3 2002/12/12 21:47:19 rpasapul noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pqh_tjr_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 = 'PQH_TXN_JOB_REQUIREMENTS_FK1') 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 = 'PQH_TXN_JOB_REQUIREMENTS_FK2') Then
27 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('STEP','10');
30 fnd_message.raise_error;
31 ElsIf (p_constraint_name = 'PQH_TXN_JOB_REQUIREMENTS_FK3') Then
32 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
33 fnd_message.set_token('PROCEDURE', l_proc);
34 fnd_message.set_token('STEP','15');
35 fnd_message.raise_error;
36 ElsIf (p_constraint_name = 'PQH_TXN_JOB_REQUIREMENTS_FK4') Then
37 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
38 fnd_message.set_token('PROCEDURE', l_proc);
39 fnd_message.set_token('STEP','20');
40 fnd_message.raise_error;
41 ElsIf (p_constraint_name = 'PQH_TXN_JOB_REQUIREMENTS_FK5') Then
42 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
43 fnd_message.set_token('PROCEDURE', l_proc);
44 fnd_message.set_token('STEP','25');
45 fnd_message.raise_error;
46 ElsIf (p_constraint_name = 'PQH_TXN_JOB_REQUIREMENTS_PK') Then
47 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
48 fnd_message.set_token('PROCEDURE', l_proc);
49 fnd_message.set_token('STEP','30');
50 fnd_message.raise_error;
51 Else
52 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
53 fnd_message.set_token('PROCEDURE', l_proc);
54 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
55 fnd_message.raise_error;
56 End If;
57 --
58 End constraint_error;
59 --
60 -- ----------------------------------------------------------------------------
61 -- |-----------------------------< api_updating >-----------------------------|
62 -- ----------------------------------------------------------------------------
63 Function api_updating
64 (p_txn_job_requirement_id in number
65 ,p_object_version_number in number
66 )
67 Return Boolean Is
68 --
69 --
70 -- Cursor selects the 'current' row from the HR Schema
71 --
72 Cursor C_Sel1 is
73 select
74 txn_job_requirement_id
75 ,position_transaction_id
76 ,job_requirement_id
77 ,business_group_id
78 ,analysis_criteria_id
79 ,date_from
80 ,date_to
81 ,essential
82 ,job_id
83 ,object_version_number
84 ,request_id
85 ,program_application_id
86 ,program_id
87 ,program_update_date
88 ,attribute_category
89 ,attribute1
90 ,attribute2
91 ,attribute3
92 ,attribute4
93 ,attribute5
94 ,attribute6
95 ,attribute7
96 ,attribute8
97 ,attribute9
98 ,attribute10
99 ,attribute11
100 ,attribute12
101 ,attribute13
102 ,attribute14
103 ,attribute15
104 ,attribute16
105 ,attribute17
106 ,attribute18
107 ,attribute19
108 ,attribute20
109 ,comments
110 from pqh_txn_job_requirements
111 where txn_job_requirement_id = p_txn_job_requirement_id;
112 --
113 l_fct_ret boolean;
114 --
115 Begin
116 --
117 If (p_txn_job_requirement_id is null and
118 p_object_version_number is null
119 ) Then
120 --
121 -- One of the primary key arguments is null therefore we must
122 -- set the returning function value to false
123 --
124 l_fct_ret := false;
125 Else
126 If (p_txn_job_requirement_id
127 = pqh_tjr_shd.g_old_rec.txn_job_requirement_id and
128 p_object_version_number
129 = pqh_tjr_shd.g_old_rec.object_version_number
130 ) Then
131 --
132 -- The g_old_rec is current therefore we must
133 -- set the returning function to true
134 --
135 l_fct_ret := true;
136 Else
137 --
138 -- Select the current row into g_old_rec
139 --
140 Open C_Sel1;
141 Fetch C_Sel1 Into pqh_tjr_shd.g_old_rec;
142 If C_Sel1%notfound Then
143 Close C_Sel1;
144 --
145 -- The primary key is invalid therefore we must error
146 --
147 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
148 fnd_message.raise_error;
149 End If;
150 Close C_Sel1;
151 If (p_object_version_number
152 <> pqh_tjr_shd.g_old_rec.object_version_number) Then
153 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
154 fnd_message.raise_error;
155 End If;
156 l_fct_ret := true;
157 End If;
158 End If;
159 Return (l_fct_ret);
160 --
161 End api_updating;
162 --
163 -- ----------------------------------------------------------------------------
164 -- |---------------------------------< lck >----------------------------------|
165 -- ----------------------------------------------------------------------------
166 Procedure lck
167 (p_txn_job_requirement_id in number
168 ,p_object_version_number in number
169 ) is
170 --
171 -- Cursor selects the 'current' row from the HR Schema
172 --
173 Cursor C_Sel1 is
174 select
175 txn_job_requirement_id
176 ,position_transaction_id
177 ,job_requirement_id
178 ,business_group_id
179 ,analysis_criteria_id
180 ,date_from
181 ,date_to
182 ,essential
183 ,job_id
184 ,object_version_number
185 ,request_id
186 ,program_application_id
187 ,program_id
188 ,program_update_date
189 ,attribute_category
190 ,attribute1
191 ,attribute2
192 ,attribute3
193 ,attribute4
194 ,attribute5
195 ,attribute6
196 ,attribute7
197 ,attribute8
198 ,attribute9
199 ,attribute10
200 ,attribute11
201 ,attribute12
202 ,attribute13
203 ,attribute14
204 ,attribute15
205 ,attribute16
206 ,attribute17
207 ,attribute18
208 ,attribute19
209 ,attribute20
210 ,comments
211 from pqh_txn_job_requirements
212 where txn_job_requirement_id = p_txn_job_requirement_id
213 for update nowait;
214 --
215 l_proc varchar2(72) := g_package||'lck';
216 --
217 Begin
218 hr_utility.set_location('Entering:'||l_proc, 5);
219 --
220 hr_api.mandatory_arg_error
221 (p_api_name => l_proc
222 ,p_argument => 'TXN_JOB_REQUIREMENT_ID'
223 ,p_argument_value => p_txn_job_requirement_id
224 );
225 hr_utility.set_location(l_proc,6);
226 hr_api.mandatory_arg_error
227 (p_api_name => l_proc
228 ,p_argument => 'OBJECT_VERSION_NUMBER'
229 ,p_argument_value => p_object_version_number
230 );
231 --
232 Open C_Sel1;
233 Fetch C_Sel1 Into pqh_tjr_shd.g_old_rec;
234 If C_Sel1%notfound then
235 Close C_Sel1;
236 --
237 -- The primary key is invalid therefore we must error
238 --
239 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
240 fnd_message.raise_error;
241 End If;
242 Close C_Sel1;
243 If (p_object_version_number
244 <> pqh_tjr_shd.g_old_rec.object_version_number) Then
245 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
246 fnd_message.raise_error;
247 End If;
248 --
249 hr_utility.set_location(' Leaving:'||l_proc, 10);
250 --
251 -- We need to trap the ORA LOCK exception
252 --
253 Exception
254 When HR_Api.Object_Locked then
255 --
256 -- The object is locked therefore we need to supply a meaningful
257 -- error message.
258 --
259 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
260 fnd_message.set_token('TABLE_NAME', 'pqh_txn_job_requirements');
261 fnd_message.raise_error;
262 End lck;
263 --
264 -- ----------------------------------------------------------------------------
265 -- |-----------------------------< convert_args >-----------------------------|
266 -- ----------------------------------------------------------------------------
267 Function convert_args
268 (p_txn_job_requirement_id in number
269 ,p_position_transaction_id in number
270 ,p_job_requirement_id in number
271 ,p_business_group_id in number
272 ,p_analysis_criteria_id in number
273 ,p_date_from in date
274 ,p_date_to in date
275 ,p_essential in varchar2
276 ,p_job_id in number
277 ,p_object_version_number in number
278 ,p_request_id in number
279 ,p_program_application_id in number
280 ,p_program_id in number
281 ,p_program_update_date in date
282 ,p_attribute_category in varchar2
283 ,p_attribute1 in varchar2
284 ,p_attribute2 in varchar2
285 ,p_attribute3 in varchar2
286 ,p_attribute4 in varchar2
287 ,p_attribute5 in varchar2
288 ,p_attribute6 in varchar2
289 ,p_attribute7 in varchar2
290 ,p_attribute8 in varchar2
291 ,p_attribute9 in varchar2
292 ,p_attribute10 in varchar2
293 ,p_attribute11 in varchar2
294 ,p_attribute12 in varchar2
295 ,p_attribute13 in varchar2
296 ,p_attribute14 in varchar2
297 ,p_attribute15 in varchar2
298 ,p_attribute16 in varchar2
299 ,p_attribute17 in varchar2
300 ,p_attribute18 in varchar2
301 ,p_attribute19 in varchar2
302 ,p_attribute20 in varchar2
303 ,p_comments in varchar2
304 )
305 Return g_rec_type is
306 --
307 l_rec g_rec_type;
308 --
309 Begin
310 --
311 -- Convert arguments into local l_rec structure.
312 --
313 l_rec.txn_job_requirement_id := p_txn_job_requirement_id;
314 l_rec.position_transaction_id := p_position_transaction_id;
315 l_rec.job_requirement_id := p_job_requirement_id;
316 l_rec.business_group_id := p_business_group_id;
317 l_rec.analysis_criteria_id := p_analysis_criteria_id;
318 l_rec.date_from := p_date_from;
319 l_rec.date_to := p_date_to;
320 l_rec.essential := p_essential;
321 l_rec.job_id := p_job_id;
322 l_rec.object_version_number := p_object_version_number;
323 l_rec.request_id := p_request_id;
324 l_rec.program_application_id := p_program_application_id;
325 l_rec.program_id := p_program_id;
326 l_rec.program_update_date := p_program_update_date;
327 l_rec.attribute_category := p_attribute_category;
328 l_rec.attribute1 := p_attribute1;
329 l_rec.attribute2 := p_attribute2;
330 l_rec.attribute3 := p_attribute3;
331 l_rec.attribute4 := p_attribute4;
332 l_rec.attribute5 := p_attribute5;
333 l_rec.attribute6 := p_attribute6;
334 l_rec.attribute7 := p_attribute7;
335 l_rec.attribute8 := p_attribute8;
336 l_rec.attribute9 := p_attribute9;
337 l_rec.attribute10 := p_attribute10;
338 l_rec.attribute11 := p_attribute11;
339 l_rec.attribute12 := p_attribute12;
340 l_rec.attribute13 := p_attribute13;
341 l_rec.attribute14 := p_attribute14;
342 l_rec.attribute15 := p_attribute15;
343 l_rec.attribute16 := p_attribute16;
344 l_rec.attribute17 := p_attribute17;
345 l_rec.attribute18 := p_attribute18;
346 l_rec.attribute19 := p_attribute19;
347 l_rec.attribute20 := p_attribute20;
348 l_rec.comments := p_comments;
349 --
350 -- Return the plsql record structure.
351 --
352 Return(l_rec);
353 --
354 End convert_args;
355 --
356 end pqh_tjr_shd;