1 Package Body pay_ppm_flex as
2 /* $Header: pyppmfli.pkb 115.0 99/07/17 06:25:29 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_ppm_flex.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |-------------------------------< df >-------------------------------------|
12 -- ----------------------------------------------------------------------------
13 procedure df(p_rec in pay_ppm_shd.g_rec_type) is
14 --
15 l_proc varchar2(72) := g_package||'df';
16 l_error exception;
17 --
18 Begin
19 hr_utility.set_location('Entering:'||l_proc, 5);
20 --
21 /*
22 -- Check for value of reference field an then
23 -- call relevant validation procedure.
24 --
25 if <reference field value> is not null then
26 --
27 -- Reference field => Assignment type
28 -- Reference field value => 'A' (Applicant assignment)
29 --
30 if <reference field value> is <value> then
31 val_asg_type_a(p_rec => p_rec);
32 --
33 -- Reference field => Assignment type
34 -- Reference field value => 'E' (Employee assignment)
35 --
36 elsif <reference field value> is <value> then
37 val_asg_type_e(p_rec => p_rec);
38 else
39 --
40 -- Reference field values is not supported
41 --
42 hr_utility.set_message(801, 'HR_7438_FLEX_INV_REF_FIELD_VAL');
43 hr_utility.raise_error;
44 end if;
45 else
46 */
47 --
48 -- When the reference field is null, check
49 -- that none of the attribute fields have
50 -- been set
51 --
52 if p_rec.attribute1 is not null then
53 raise l_error;
54 elsif p_rec.attribute2 is not null then
55 raise l_error;
56 elsif p_rec.attribute3 is not null then
57 raise l_error;
58 elsif p_rec.attribute4 is not null then
59 raise l_error;
60 elsif p_rec.attribute5 is not null then
61 raise l_error;
62 elsif p_rec.attribute6 is not null then
63 raise l_error;
64 elsif p_rec.attribute7 is not null then
65 raise l_error;
66 elsif p_rec.attribute8 is not null then
67 raise l_error;
68 elsif p_rec.attribute9 is not null then
69 raise l_error;
70 elsif p_rec.attribute10 is not null then
71 raise l_error;
72 elsif p_rec.attribute11 is not null then
73 raise l_error;
74 elsif p_rec.attribute12 is not null then
75 raise l_error;
76 elsif p_rec.attribute13 is not null then
77 raise l_error;
78 elsif p_rec.attribute14 is not null then
79 raise l_error;
80 elsif p_rec.attribute15 is not null then
81 raise l_error;
82 elsif p_rec.attribute16 is not null then
83 raise l_error;
84 elsif p_rec.attribute17 is not null then
85 raise l_error;
86 elsif p_rec.attribute18 is not null then
87 raise l_error;
88 elsif p_rec.attribute19 is not null then
89 raise l_error;
90 elsif p_rec.attribute20 is not null then
91 raise l_error;
92 end if;
93 /*
94 end if;
95 */
96 --
97 hr_utility.set_location(' Leaving:'||l_proc, 10);
98 exception
99 when l_error then
100 hr_utility.set_message(801, 'HR_7439_FLEX_INV_ATTRIBUTE_ARG');
101 hr_utility.raise_error;
102 hr_utility.set_location(' Leaving:'||l_proc, 10);
103 end df;
104 --
105 end pay_ppm_flex;