[Home] [Help]
PACKAGE BODY: APPS.PQH_WST_BUS
Source
1 Package Body pqh_wst_bus as
2 /* $Header: pqwstrhi.pkb 115.4 2002/12/13 00:07:23 rpasapul noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pqh_wst_bus.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------< chk_worksheet_budget_set_id >------|
12 -- ----------------------------------------------------------------------------
13 --
14 -- Description
15 -- This procedure is used to check that the primary key for the table
16 -- is created properly. It should be null on insert and
17 -- should not be able to be updated.
18 --
19 -- Pre Conditions
20 -- None.
21 --
22 -- In Parameters
23 -- worksheet_budget_set_id PK of record being inserted or updated.
24 -- object_version_number Object version number of record being
25 -- inserted or updated.
26 --
27 -- Post Success
28 -- Processing continues
29 --
30 -- Post Failure
31 -- Errors handled by the procedure
32 --
33 -- Access Status
34 -- Internal table handler use only.
35 --
36 Procedure chk_worksheet_budget_set_id(p_worksheet_budget_set_id in number,
37 p_object_version_number in number) is
38 --
39 l_proc varchar2(72) := g_package||'chk_worksheet_budget_set_id';
40 l_api_updating boolean;
41 --
42 Begin
43 --
44 hr_utility.set_location('Entering:'||l_proc, 5);
45 --
46 l_api_updating := pqh_wst_shd.api_updating
47 (p_worksheet_budget_set_id => p_worksheet_budget_set_id,
48 p_object_version_number => p_object_version_number);
49 --
50 if (l_api_updating
51 and nvl(p_worksheet_budget_set_id,hr_api.g_number)
52 <> pqh_wst_shd.g_old_rec.worksheet_budget_set_id) then
53 --
54 -- raise error as PK has changed
55 --
56 pqh_wst_shd.constraint_error('PQH_WORKSHEET_BUDGET_SETS_PK');
57 --
58 elsif not l_api_updating then
59 --
60 -- check if PK is null
61 --
62 if p_worksheet_budget_set_id is not null then
63 --
64 -- raise error as PK is not null
65 --
66 pqh_wst_shd.constraint_error('PQH_WORKSHEET_BUDGET_SETS_PK');
67 --
68 end if;
69 --
70 end if;
71 --
72 hr_utility.set_location('Leaving:'||l_proc, 10);
73 --
74 End chk_worksheet_budget_set_id;
75 --
76 -- ----------------------------------------------------------------------------
77 -- |------< chk_dflt_budget_set_id >------|
78 -- ----------------------------------------------------------------------------
79 --
80 -- Description
81 -- This procedure checks that a referenced foreign key actually exists
82 -- in the referenced table.
83 --
84 -- Pre-Conditions
85 -- None.
86 --
87 -- In Parameters
88 -- p_worksheet_budget_set_id PK
89 -- p_dflt_budget_set_id ID of FK column
90 -- p_object_version_number object version number
91 --
92 -- Post Success
93 -- Processing continues
94 --
95 -- Post Failure
96 -- Error raised.
97 --
98 -- Access Status
99 -- Internal table handler use only.
100 --
101 Procedure chk_dflt_budget_set_id (p_worksheet_budget_set_id in number,
102 p_dflt_budget_set_id in number,
103 p_object_version_number in number) is
104 --
105 l_proc varchar2(72) := g_package||'chk_dflt_budget_set_id';
106 l_api_updating boolean;
107 l_dummy varchar2(1);
108 --
109 cursor c1 is
110 select null
111 from pqh_dflt_budget_sets a
112 where a.dflt_budget_set_id = p_dflt_budget_set_id;
113 --
114 Begin
115 --
116 hr_utility.set_location('Entering:'||l_proc,5);
117 --
118 l_api_updating := pqh_wst_shd.api_updating
119 (p_worksheet_budget_set_id => p_worksheet_budget_set_id,
120 p_object_version_number => p_object_version_number);
121 --
122 if (l_api_updating
123 and nvl(p_dflt_budget_set_id,hr_api.g_number)
124 <> nvl(pqh_wst_shd.g_old_rec.dflt_budget_set_id,hr_api.g_number)
125 or not l_api_updating) then
126 --
127 -- check if dflt_budget_set_id value exists in pqh_dflt_budget_sets table
128 --
129 open c1;
130 --
131 fetch c1 into l_dummy;
132 if c1%notfound then
133 --
134 close c1;
135 --
136 -- raise error as FK does not relate to PK in pqh_dflt_budget_sets
137 -- table.
138 --
139 pqh_wst_shd.constraint_error('PQH_WORKSHEET_BUDGET_SETS_FK2');
140 --
141 end if;
142 --
143 close c1;
144 --
145 end if;
146 --
147 hr_utility.set_location('Leaving:'||l_proc,10);
148 --
149 End chk_dflt_budget_set_id;
150 --
151 -- ----------------------------------------------------------------------------
152 -- |------< chk_worksheet_period_id >------|
153 -- ----------------------------------------------------------------------------
154 --
155 -- Description
156 -- This procedure checks that a referenced foreign key actually exists
157 -- in the referenced table.
158 --
159 -- Pre-Conditions
160 -- None.
161 --
162 -- In Parameters
163 -- p_worksheet_budget_set_id PK
164 -- p_worksheet_period_id ID of FK column
165 -- p_object_version_number object version number
166 --
167 -- Post Success
168 -- Processing continues
169 --
170 -- Post Failure
171 -- Error raised.
172 --
173 -- Access Status
174 -- Internal table handler use only.
175 --
176 Procedure chk_worksheet_period_id (p_worksheet_budget_set_id in number,
177 p_worksheet_period_id in number,
178 p_object_version_number in number) is
179 --
180 l_proc varchar2(72) := g_package||'chk_worksheet_period_id';
181 l_api_updating boolean;
182 l_dummy varchar2(1);
183 --
184 cursor c1 is
185 select null
186 from pqh_worksheet_periods a
187 where a.worksheet_period_id = p_worksheet_period_id;
188 --
189 Begin
190 --
191 hr_utility.set_location('Entering:'||l_proc,5);
192 --
193 l_api_updating := pqh_wst_shd.api_updating
194 (p_worksheet_budget_set_id => p_worksheet_budget_set_id,
195 p_object_version_number => p_object_version_number);
196 --
197 if (l_api_updating
198 and nvl(p_worksheet_period_id,hr_api.g_number)
199 <> nvl(pqh_wst_shd.g_old_rec.worksheet_period_id,hr_api.g_number)
200 or not l_api_updating) then
201 --
202 -- check if worksheet_period_id value exists in pqh_worksheet_periods table
203 --
204 open c1;
205 --
206 fetch c1 into l_dummy;
207 if c1%notfound then
208 --
209 close c1;
210 --
211 -- raise error as FK does not relate to PK in pqh_worksheet_periods
212 -- table.
213 --
214 pqh_wst_shd.constraint_error('PQH_WORKSHEET_BUDGET_SETS_FK1');
215 --
216 end if;
217 --
218 close c1;
219 --
220 end if;
221 --
222 hr_utility.set_location('Leaving:'||l_proc,10);
223 --
224 End chk_worksheet_period_id;
225 --
226 -- ----------------------------------------------------------------------------
227 -- |------< chk_budget_unit3_value_type_cd >------|
228 -- ----------------------------------------------------------------------------
229 --
230 -- Description
231 -- This procedure is used to check that the lookup value is valid.
232 --
233 -- Pre Conditions
234 -- None.
235 --
236 -- In Parameters
237 -- worksheet_budget_set_id PK of record being inserted or updated.
238 -- budget_unit3_value_type_cd Value of lookup code.
239 -- effective_date effective date
240 -- object_version_number Object version number of record being
241 -- inserted or updated.
242 --
243 -- Post Success
244 -- Processing continues
245 --
246 -- Post Failure
247 -- Error handled by procedure
248 --
249 -- Access Status
250 -- Internal table handler use only.
251 --
252 Procedure chk_budget_unit3_value_type_cd(p_worksheet_budget_set_id in number,
253 p_budget_unit3_value_type_cd in varchar2,
254 p_effective_date in date,
255 p_object_version_number in number) is
256 --
260 Begin
257 l_proc varchar2(72) := g_package||'chk_budget_unit3_value_type_cd';
258 l_api_updating boolean;
259 --
261 --
262 hr_utility.set_location('Entering:'||l_proc, 5);
263 --
264 l_api_updating := pqh_wst_shd.api_updating
265 (p_worksheet_budget_set_id => p_worksheet_budget_set_id,
266 p_object_version_number => p_object_version_number);
267 --
268 if (l_api_updating
269 and p_budget_unit3_value_type_cd
270 <> nvl(pqh_wst_shd.g_old_rec.budget_unit3_value_type_cd,hr_api.g_varchar2)
271 or not l_api_updating)
272 and p_budget_unit3_value_type_cd is not null then
273 --
274 -- check if value of lookup falls within lookup type.
275 --
276 if hr_api.not_exists_in_hr_lookups
277 (p_lookup_type => 'PQH_BUDGET_UNIT_VALUE_TYPE',
278 p_lookup_code => p_budget_unit3_value_type_cd,
279 p_effective_date => p_effective_date) then
280 --
281 -- raise error as does not exist as lookup
282 --
283 hr_utility.set_message(801,'HR_LOOKUP_DOES_NOT_EXIST');
284 hr_utility.raise_error;
285 --
286 end if;
287 --
288 end if;
289 --
290 hr_utility.set_location('Leaving:'||l_proc,10);
291 --
292 end chk_budget_unit3_value_type_cd;
293 --
294 -- ----------------------------------------------------------------------------
295 -- |------< chk_budget_unit2_value_type_cd >------|
296 -- ----------------------------------------------------------------------------
297 --
298 -- Description
299 -- This procedure is used to check that the lookup value is valid.
300 --
301 -- Pre Conditions
302 -- None.
303 --
304 -- In Parameters
305 -- worksheet_budget_set_id PK of record being inserted or updated.
306 -- budget_unit2_value_type_cd Value of lookup code.
307 -- effective_date effective date
308 -- object_version_number Object version number of record being
309 -- inserted or updated.
310 --
311 -- Post Success
312 -- Processing continues
313 --
314 -- Post Failure
315 -- Error handled by procedure
316 --
317 -- Access Status
318 -- Internal table handler use only.
319 --
320 Procedure chk_budget_unit2_value_type_cd(p_worksheet_budget_set_id in number,
321 p_budget_unit2_value_type_cd in varchar2,
322 p_effective_date in date,
323 p_object_version_number in number) is
324 --
325 l_proc varchar2(72) := g_package||'chk_budget_unit2_value_type_cd';
326 l_api_updating boolean;
327 --
328 Begin
329 --
330 hr_utility.set_location('Entering:'||l_proc, 5);
331 --
332 l_api_updating := pqh_wst_shd.api_updating
333 (p_worksheet_budget_set_id => p_worksheet_budget_set_id,
334 p_object_version_number => p_object_version_number);
335 --
336 if (l_api_updating
337 and p_budget_unit2_value_type_cd
338 <> nvl(pqh_wst_shd.g_old_rec.budget_unit2_value_type_cd,hr_api.g_varchar2)
339 or not l_api_updating)
340 and p_budget_unit2_value_type_cd is not null then
341 --
342 -- check if value of lookup falls within lookup type.
343 --
344 if hr_api.not_exists_in_hr_lookups
345 (p_lookup_type => 'PQH_BUDGET_UNIT_VALUE_TYPE',
346 p_lookup_code => p_budget_unit2_value_type_cd,
347 p_effective_date => p_effective_date) then
348 --
349 -- raise error as does not exist as lookup
350 --
351 hr_utility.set_message(801,'HR_LOOKUP_DOES_NOT_EXIST');
352 hr_utility.raise_error;
353 --
354 end if;
355 --
356 end if;
357 --
358 hr_utility.set_location('Leaving:'||l_proc,10);
359 --
360 end chk_budget_unit2_value_type_cd;
361 --
362 -- ----------------------------------------------------------------------------
363 -- |------< chk_budget_unit1_value_type_cd >------|
364 -- ----------------------------------------------------------------------------
365 --
366 -- Description
367 -- This procedure is used to check that the lookup value is valid.
368 --
369 -- Pre Conditions
370 -- None.
371 --
372 -- In Parameters
373 -- worksheet_budget_set_id PK of record being inserted or updated.
374 -- budget_unit1_value_type_cd Value of lookup code.
375 -- effective_date effective date
376 -- object_version_number Object version number of record being
377 -- inserted or updated.
378 --
379 -- Post Success
380 -- Processing continues
381 --
382 -- Post Failure
383 -- Error handled by procedure
384 --
385 -- Access Status
386 -- Internal table handler use only.
387 --
388 Procedure chk_budget_unit1_value_type_cd(p_worksheet_budget_set_id in number,
389 p_budget_unit1_value_type_cd in varchar2,
390 p_effective_date in date,
391 p_object_version_number in number) is
392 --
393 l_proc varchar2(72) := g_package||'chk_budget_unit1_value_type_cd';
394 l_api_updating boolean;
395 --
396 Begin
397 --
398 hr_utility.set_location('Entering:'||l_proc, 5);
399 --
400 l_api_updating := pqh_wst_shd.api_updating
401 (p_worksheet_budget_set_id => p_worksheet_budget_set_id,
402 p_object_version_number => p_object_version_number);
403 --
407 or not l_api_updating)
404 if (l_api_updating
405 and p_budget_unit1_value_type_cd
406 <> nvl(pqh_wst_shd.g_old_rec.budget_unit1_value_type_cd,hr_api.g_varchar2)
408 and p_budget_unit1_value_type_cd is not null then
409 --
410 -- check if value of lookup falls within lookup type.
411 --
412 if hr_api.not_exists_in_hr_lookups
413 (p_lookup_type => 'PQH_BUDGET_UNIT_VALUE_TYPE',
414 p_lookup_code => p_budget_unit1_value_type_cd,
415 p_effective_date => p_effective_date) then
416 --
417 -- raise error as does not exist as lookup
418 --
419 hr_utility.set_message(801,'HR_LOOKUP_DOES_NOT_EXIST');
420 hr_utility.raise_error;
421 --
422 end if;
423 --
424 end if;
425 --
426 hr_utility.set_location('Leaving:'||l_proc,10);
427 --
428 end chk_budget_unit1_value_type_cd;
429 --
430 --
431 -- Additional values
432 --
433 Procedure chk_numeric_values
434 (p_worksheet_budget_set_id in number,
435 p_budget_unit1_percent in number,
436 p_budget_unit1_value in number,
437 p_budget_unit2_percent in number,
438 p_budget_unit2_value in number,
439 p_budget_unit3_percent in number,
440 p_budget_unit3_value in number,
441 p_object_version_number in number) is
442 --
443 l_proc varchar2(72) := g_package||'chk_numeric_values';
444 l_api_updating boolean;
445 --
446 --
447 Begin
448 --
449 hr_utility.set_location('Entering:'||l_proc,5);
450 --
451 l_api_updating := pqh_wst_shd.api_updating
452 (p_worksheet_budget_set_id => p_worksheet_budget_set_id,
453 p_object_version_number => p_object_version_number);
454 --
455 if (l_api_updating
456 and nvl(p_budget_unit1_percent,hr_api.g_number)
457 <> nvl(pqh_wst_shd.g_old_rec.budget_unit1_percent,hr_api.g_number)
458 or not l_api_updating) and
459 p_budget_unit1_percent is not null then
460 --
461 -- Raise error if the value is negative
462 --
463 If p_budget_unit1_percent < 0 then
464 hr_utility.set_message(8302,'PQH_INVALID_BDGT_UNIT_PERCENT');
465 hr_utility.raise_error;
466 End if;
467 end if;
468 --
469 --
470 if (l_api_updating
471 and nvl(p_budget_unit1_value,hr_api.g_number)
472 <> nvl(pqh_wst_shd.g_old_rec.budget_unit1_value,hr_api.g_number)
473 or not l_api_updating) and
474 p_budget_unit1_value is not null then
475 --
476 -- Raise error if the value is negative
477 --
478 If p_budget_unit1_value < 0 then
479 hr_utility.set_message(8302,'PQH_INVALID_BDGT_UNIT_VALUE');
480 hr_utility.raise_error;
481 End if;
482 end if;
483 --
484 --
485 /**
486 if (l_api_updating
487 and nvl(p_budget_unit1_available,hr_api.g_number)
488 <> nvl(pqh_wst_shd.g_old_rec.budget_unit1_available,hr_api.g_number)
489 or not l_api_updating) and
490 p_budget_unit1_available is not null then
491 --
492 -- Raise error if the value is negative
493 --
494 If p_budget_unit1_available < 0 then
495 hr_utility.set_message(8302,'PQH_INVALID_UNIT1_CONSUMED');
496 hr_utility.raise_error;
497 End if;
498 end if;
499 **/
500 --
501 --
502 --
503 if (l_api_updating
504 and nvl(p_budget_unit2_percent,hr_api.g_number)
505 <> nvl(pqh_wst_shd.g_old_rec.budget_unit2_percent,hr_api.g_number)
506 or not l_api_updating) and
507 p_budget_unit2_percent is not null then
508 --
509 -- Raise error if the value is negative
510 --
511 If p_budget_unit2_percent < 0 then
512 hr_utility.set_message(8302,'PQH_INVALID_BDGT_UNIT_PERCENT');
513 hr_utility.raise_error;
514 End if;
515 end if;
516 --
517 --
518 if (l_api_updating
519 and nvl(p_budget_unit2_value,hr_api.g_number)
520 <> nvl(pqh_wst_shd.g_old_rec.budget_unit2_value,hr_api.g_number)
521 or not l_api_updating) and
522 p_budget_unit2_value is not null then
523 --
524 -- Raise error if the value is negative
525 --
526 If p_budget_unit2_value < 0 then
527 hr_utility.set_message(8302,'PQH_INVALID_BDGT_UNIT_VALUE');
528 hr_utility.raise_error;
529 End if;
530 end if;
531 --
532 --
533 /**
534 if (l_api_updating
535 and nvl(p_budget_unit2_available,hr_api.g_number)
536 <> nvl(pqh_wst_shd.g_old_rec.budget_unit2_available,hr_api.g_number)
537 or not l_api_updating) and
538 p_budget_unit2_available is not null then
539 --
540 -- Raise error if the value is negative
541 --
542 If p_budget_unit2_available < 0 then
543 hr_utility.set_message(8302,'PQH_INVALID_UNIT2_CONSUMED');
544 hr_utility.raise_error;
545 End if;
546 end if;
547 **/
548 --
549 --
550 if (l_api_updating
551 and nvl(p_budget_unit3_percent,hr_api.g_number)
555 --
552 <> nvl(pqh_wst_shd.g_old_rec.budget_unit3_percent,hr_api.g_number)
553 or not l_api_updating) and
554 p_budget_unit3_percent is not null then
556 -- Raise error if the value is negative
557 --
558 If p_budget_unit3_percent < 0 then
559 hr_utility.set_message(8302,'PQH_INVALID_BDGT_UNIT_PERCENT');
560 hr_utility.raise_error;
561 End if;
562 end if;
563 --
564 --
565 if (l_api_updating
566 and nvl(p_budget_unit3_value,hr_api.g_number)
567 <> nvl(pqh_wst_shd.g_old_rec.budget_unit3_value,hr_api.g_number)
568 or not l_api_updating) and
569 p_budget_unit3_value is not null then
570 --
571 -- Raise error if the value is negative
572 --
573 If p_budget_unit3_value < 0 then
574 hr_utility.set_message(8302,'PQH_INVALID_BDGT_UNIT_VALUE');
575 hr_utility.raise_error;
576 End if;
577 end if;
578 --
579 --
580 /**
581 if (l_api_updating
582 and nvl(p_budget_unit3_available,hr_api.g_number)
583 <> nvl(pqh_wst_shd.g_old_rec.budget_unit3_available,hr_api.g_number)
584 or not l_api_updating) and
585 p_budget_unit3_available is not null then
586 --
587 -- Raise error if the value is negative
588 --
589 If p_budget_unit3_available < 0 then
590 hr_utility.set_message(8302,'PQH_INVALID_UNIT3_CONSUMED');
591 hr_utility.raise_error;
592 End if;
593 end if;
594 **/
595 --
596 --
597 hr_utility.set_location('Leaving:'||l_proc,10);
598 --
599 End chk_numeric_values;
600 --
601 -- ----------------------------------------------------------------------------
602 -- |---------------------------< insert_validate >----------------------------|
603 -- ----------------------------------------------------------------------------
604 Procedure insert_validate(p_rec in pqh_wst_shd.g_rec_type
605 ,p_effective_date in date) is
606 --
607 l_proc varchar2(72) := g_package||'insert_validate';
608 --
609 Begin
610 hr_utility.set_location('Entering:'||l_proc, 5);
611 --
612 -- Call all supporting business operations
613 --
614 chk_worksheet_budget_set_id
615 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
616 p_object_version_number => p_rec.object_version_number);
617 --
618 chk_dflt_budget_set_id
619 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
620 p_dflt_budget_set_id => p_rec.dflt_budget_set_id,
621 p_object_version_number => p_rec.object_version_number);
622 --
623 chk_worksheet_period_id
624 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
625 p_worksheet_period_id => p_rec.worksheet_period_id,
626 p_object_version_number => p_rec.object_version_number);
627 --
628 chk_budget_unit3_value_type_cd
629 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
630 p_budget_unit3_value_type_cd => p_rec.budget_unit3_value_type_cd,
631 p_effective_date => p_effective_date,
632 p_object_version_number => p_rec.object_version_number);
633 --
634 chk_budget_unit2_value_type_cd
635 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
636 p_budget_unit2_value_type_cd => p_rec.budget_unit2_value_type_cd,
637 p_effective_date => p_effective_date,
638 p_object_version_number => p_rec.object_version_number);
639 --
640 chk_budget_unit1_value_type_cd
641 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
642 p_budget_unit1_value_type_cd => p_rec.budget_unit1_value_type_cd,
643 p_effective_date => p_effective_date,
644 p_object_version_number => p_rec.object_version_number);
645 --
646 --
647 chk_numeric_values
648 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
649 p_budget_unit1_percent => p_rec.budget_unit1_percent,
650 p_budget_unit1_value => p_rec.budget_unit1_value,
651 p_budget_unit2_percent => p_rec.budget_unit2_percent,
652 p_budget_unit2_value => p_rec.budget_unit2_value,
653 p_budget_unit3_percent => p_rec.budget_unit3_percent,
654 p_budget_unit3_value => p_rec.budget_unit3_value,
655 p_object_version_number => p_rec.object_version_number);
656 --
657 --
658 --
659 hr_utility.set_location(' Leaving:'||l_proc, 10);
660 End insert_validate;
661 --
662 -- ----------------------------------------------------------------------------
663 -- |---------------------------< update_validate >----------------------------|
664 -- ----------------------------------------------------------------------------
665 Procedure update_validate(p_rec in pqh_wst_shd.g_rec_type
666 ,p_effective_date in date) is
667 --
668 l_proc varchar2(72) := g_package||'update_validate';
669 --
670 Begin
671 hr_utility.set_location('Entering:'||l_proc, 5);
672 --
673 -- Call all supporting business operations
674 --
675 chk_worksheet_budget_set_id
676 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
677 p_object_version_number => p_rec.object_version_number);
678 --
679 chk_dflt_budget_set_id
680 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
681 p_dflt_budget_set_id => p_rec.dflt_budget_set_id,
682 p_object_version_number => p_rec.object_version_number);
683 --
684 chk_worksheet_period_id
685 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
686 p_worksheet_period_id => p_rec.worksheet_period_id,
687 p_object_version_number => p_rec.object_version_number);
688 --
689 chk_budget_unit3_value_type_cd
690 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
691 p_budget_unit3_value_type_cd => p_rec.budget_unit3_value_type_cd,
692 p_effective_date => p_effective_date,
693 p_object_version_number => p_rec.object_version_number);
694 --
695 chk_budget_unit2_value_type_cd
696 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
697 p_budget_unit2_value_type_cd => p_rec.budget_unit2_value_type_cd,
698 p_effective_date => p_effective_date,
699 p_object_version_number => p_rec.object_version_number);
700 --
701 chk_budget_unit1_value_type_cd
702 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
703 p_budget_unit1_value_type_cd => p_rec.budget_unit1_value_type_cd,
704 p_effective_date => p_effective_date,
705 p_object_version_number => p_rec.object_version_number);
706 --
707 --
708 chk_numeric_values
709 (p_worksheet_budget_set_id => p_rec.worksheet_budget_set_id,
710 p_budget_unit1_percent => p_rec.budget_unit1_percent,
711 p_budget_unit1_value => p_rec.budget_unit1_value,
712 p_budget_unit2_percent => p_rec.budget_unit2_percent,
713 p_budget_unit2_value => p_rec.budget_unit2_value,
714 p_budget_unit3_percent => p_rec.budget_unit3_percent,
715 p_budget_unit3_value => p_rec.budget_unit3_value,
716 p_object_version_number => p_rec.object_version_number);
717 --
718 --
719 --
720 hr_utility.set_location(' Leaving:'||l_proc, 10);
721 End update_validate;
722 --
723 -- ----------------------------------------------------------------------------
724 -- |---------------------------< delete_validate >----------------------------|
725 -- ----------------------------------------------------------------------------
726 Procedure delete_validate(p_rec in pqh_wst_shd.g_rec_type
727 ,p_effective_date in date) is
728 --
729 l_proc varchar2(72) := g_package||'delete_validate';
730 --
731 Begin
732 hr_utility.set_location('Entering:'||l_proc, 5);
733 --
734 -- Call all supporting business operations
735 --
736 hr_utility.set_location(' Leaving:'||l_proc, 10);
737 End delete_validate;
738 --
739 end pqh_wst_bus;