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