1 Package Body pe_jei_flex_ddf as
2 /* $Header: pejeiddf.pkb 115.0 99/07/18 13:56:14 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pe_jei_flex_ddf.'; -- Global package name
9 --
10 --
11 -- ----------------------------------------------------------------------------
12 -- |--------------------------< val_info_type_y >------------------------------|
13 -- ----------------------------------------------------------------------------
14 -- {Start of Comments}
15 --
16 -- Description:
17 -- This procedure performs the descriptive flexfield validation for the
18 -- reference field - Information Type where the value is 'Y'.
19 --
20 -- Pre Conditions:
21 -- None
22 --
23 -- In Arguments:
24 -- p_rec
25 --
26 -- Post Success:
27 -- Processing of pe_jei_flex_ddf continues.
28 --
29 -- Post failure:
30 -- Processing will be suspended if the descriptive flexfield validation
31 -- fails.
32 --
33 -- Developer Implementation Notes:
34 -- Customer defined.
35 --
36 -- Access Status:
37 -- From df procedure only.
38 --
39 -- {End of Comments}
40 -- ----------------------------------------------------------------------------
41 Procedure val_info_type_y
42 (p_rec in per_asg_shd.g_rec_type) is
43 --
44 l_proc varchar2(72) := g_package||'val_info_type_y';
45 --
46 begin
47 hr_utility.set_location('Entering:'||l_proc, 1);
48 --
49 -- Enter procedure code here
50 --
51 hr_utility.set_location(' Leaving:'||l_proc, 2);
52 end val_info_type_y;
53 -- ----------------------------------------------------------------------------
54 -- |--------------------------< val_info_type_x >------------------------------|
55 -- ----------------------------------------------------------------------------
56 -- {Start of Comments}
57 --
58 -- Description:
59 -- This procedure performs the descriptive flexfield validation for the
60 -- reference field - Information Type where the value is 'X'.
61 --
62 -- Pre Conditions:
63 -- None
64 --
65 -- In Arguments:
66 -- p_rec
67 --
68 -- Post Success:
69 -- Processing of pe_jei_flex_ddf continues.
70 --
71 -- Post failure:
72 -- Processing will be suspended if the descriptive flexfield validation
73 -- fails.
74 --
75 -- Developer Implementation Notes:
76 -- Customer defined.
77 --
78 -- Access Status:
79 -- From df procedure only.
80 --
81 -- {End of Comments}
82 -- ----------------------------------------------------------------------------
83 Procedure val_info_type_x
84 (p_rec in per_asg_shd.g_rec_type) is
85 --
86 l_proc varchar2(72) := g_package||'val_info_type_x';
87 --
88 begin
89 hr_utility.set_location('Entering:'||l_proc, 1);
90 --
91 -- Enter procedure code here
92 --
93 hr_utility.set_location(' Leaving:'||l_proc, 2);
94 end val_info_type_x;
95 -- ----------------------------------------------------------------------------
96 -- |-------------------------------< ddf >-------------------------------------|
97 -- ----------------------------------------------------------------------------
98 --
99 procedure ddf
100 (p_rec in pe_jei_shd.g_rec_type) is
101 --
102 l_proc varchar2(72) := g_package||'ddf';
103 l_error exception;
104 --
105 Begin
106 hr_utility.set_location('Entering:'||l_proc, 5);
107 --
108 /*
109 -- Check for value of reference field an then
110 -- call relevant validation procedure.
111 --
112 if <reference field value> is not null then
113 --
114 -- Reference field => Information type
115 -- Reference field value => 'X'
116 --
117 if <reference field value> is <value> then
118 val_info_type_x(p_rec => p_rec);
119 --
120 -- Reference field => Information type
121 -- Reference field value => 'Y'
122 --
123 elsif <reference field value> is <value> then
124 val_info_type_x(p_rec => p_rec);
125 else
126 --
127 -- Reference field values is not supported
128 --
129 hr_utility.set_message(801, 'HR_7438_FLEX_INV_REF_FIELD_VAL');
130 hr_utility.raise_error;
131 end if;
132 else
133 --
134 -- When the reference field is null, check
135 -- that none of the attribute fields have
136 -- been set
137 --
138 */
139 if p_rec.jei_information1 is not null then
140 raise l_error;
141 elsif p_rec.jei_information2 is not null then
142 raise l_error;
143 elsif p_rec.jei_information3 is not null then
144 raise l_error;
145 elsif p_rec.jei_information4 is not null then
146 raise l_error;
147 elsif p_rec.jei_information5 is not null then
148 raise l_error;
149 elsif p_rec.jei_information6 is not null then
150 raise l_error;
151 elsif p_rec.jei_information7 is not null then
152 raise l_error;
153 elsif p_rec.jei_information8 is not null then
154 raise l_error;
155 elsif p_rec.jei_information9 is not null then
156 raise l_error;
157 elsif p_rec.jei_information10 is not null then
158 raise l_error;
159 elsif p_rec.jei_information11 is not null then
160 raise l_error;
161 elsif p_rec.jei_information12 is not null then
162 raise l_error;
163 elsif p_rec.jei_information13 is not null then
164 raise l_error;
165 elsif p_rec.jei_information14 is not null then
166 raise l_error;
167 elsif p_rec.jei_information15 is not null then
168 raise l_error;
169 elsif p_rec.jei_information16 is not null then
170 raise l_error;
171 elsif p_rec.jei_information17 is not null then
172 raise l_error;
173 elsif p_rec.jei_information18 is not null then
174 raise l_error;
175 elsif p_rec.jei_information19 is not null then
176 raise l_error;
177 elsif p_rec.jei_information20 is not null then
178 raise l_error;
179 elsif p_rec.jei_information21 is not null then
180 raise l_error;
181 elsif p_rec.jei_information22 is not null then
182 raise l_error;
183 elsif p_rec.jei_information23 is not null then
184 raise l_error;
185 elsif p_rec.jei_information24 is not null then
186 raise l_error;
187 elsif p_rec.jei_information25 is not null then
188 raise l_error;
189 elsif p_rec.jei_information26 is not null then
190 raise l_error;
191 elsif p_rec.jei_information27 is not null then
192 raise l_error;
193 elsif p_rec.jei_information28 is not null then
194 raise l_error;
195 elsif p_rec.jei_information29 is not null then
196 raise l_error;
197 elsif p_rec.jei_information30 is not null then
198 raise l_error;
199 end if;
200 --
201 /*
202 endif;
203 */
204 hr_utility.set_location(' Leaving:'||l_proc, 10);
205 --
206 exception
207 when l_error then
208 hr_utility.set_message(999, 'HR_9999_FLEX_INV_INFO_ARG');
209 hr_utility.raise_error;
210 hr_utility.set_location(' Leaving:'||l_proc, 10);
211 end ddf;
212
213 --
214 end pe_jei_flex_ddf;