4 -- ----------------------------------------------------------------------------
1 package body pay_csk_flex as
2 /* $Header: pycskfli.pkb 115.0 99/07/17 05:55:34 porting ship $ */
3 --
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_csk_flex.'; -- Global package name
9 -- ----------------------------------------------------------------------------
10 -- |-------------------------------< kf >-------------------------------------|
11 -- ----------------------------------------------------------------------------
12 procedure kf
13 (p_rec in pay_csk_shd.g_rec_type) is
14 --
15 l_proc varchar2(72) := g_package||'kf';
16 l_error exception;
17 l_legislation_code per_business_groups.legislation_code%type;
18 --
19 begin
20 hr_utility.set_location('Entering:'||l_proc, 5);
21 --
22 -- Ensure that p_rec.id_flex_num is mandatory
23 --
24 if (p_rec.id_flex_num is not null) then
25 null;
26 else
27 -- *** TEMP error message ***
28 hr_utility.set_message(801, 'HR_7296_API_ARG_NOT_SUP');
29 hr_utility.set_message_token('ARG_NAME', 'id_flex_num');
30 hr_utility.set_message_token('ARG_VALUE', to_char(p_rec.id_flex_num));
31 hr_utility.raise_error;
32 end if;
33 --
34
35 if p_rec.segment1 is not null then
36 raise l_error;
37 end if;
38 if p_rec.segment2 is not null then
39 raise l_error;
40 end if;
41 if p_rec.segment3 is not null then
42 raise l_error;
43 end if;
44 if p_rec.segment4 is not null then
45 raise l_error;
46 end if;
47 if p_rec.segment5 is not null then
48 raise l_error;
49 end if;
50 if p_rec.segment6 is not null then
51 raise l_error;
52 end if;
53 if p_rec.segment7 is not null then
54 raise l_error;
55 end if;
56 if p_rec.segment8 is not null then
57 raise l_error;
58 end if;
59 if p_rec.segment9 is not null then
60 raise l_error;
61 end if;
62 if p_rec.segment10 is not null then
63 raise l_error;
64 end if;
65 if p_rec.segment11 is not null then
66 raise l_error;
67 end if;
68 if p_rec.segment12 is not null then
69 raise l_error;
70 end if;
71 if p_rec.segment13 is not null then
72 raise l_error;
73 end if;
74 if p_rec.segment14 is not null then
75 raise l_error;
76 end if;
77 if p_rec.segment15 is not null then
78 raise l_error;
79 end if;
80 if p_rec.segment16 is not null then
81 raise l_error;
82 end if;
83 if p_rec.segment17 is not null then
84 raise l_error;
85 end if;
86 if p_rec.segment18 is not null then
87 raise l_error;
88 end if;
89 if p_rec.segment19 is not null then
90 raise l_error;
91 end if;
92 if p_rec.segment20 is not null then
93 raise l_error;
94 end if;
95 if p_rec.segment21 is not null then
96 raise l_error;
97 end if;
98 if p_rec.segment22 is not null then
99 raise l_error;
100 end if;
101 if p_rec.segment23 is not null then
102 raise l_error;
103 end if;
104 if p_rec.segment24 is not null then
105 raise l_error;
106 end if;
107 if p_rec.segment25 is not null then
108 raise l_error;
109 end if;
110 if p_rec.segment26 is not null then
111 raise l_error;
112 end if;
113 if p_rec.segment27 is not null then
114 raise l_error;
115 end if;
116 if p_rec.segment28 is not null then
117 raise l_error;
118 end if;
119 if p_rec.segment29 is not null then
120 raise l_error;
121 end if;
122 if p_rec.segment30 is not null then
123 raise l_error;
124 end if;
125 --
126 hr_utility.set_location(' Leaving:'||l_proc, 10);
127 exception
128 when l_error then
129 hr_utility.set_message(801, 'HR_7439_FLEX_INV_ATTRIBUTE_ARG');
130 hr_utility.raise_error;
131 hr_utility.set_location(' Leaving:'||l_proc, 10);
132 --
133 end kf;
134 --
135
136 --
137 FUNCTION get_cost_allocation_id(p_business_group_id in number,
138 p_cost_allocation_keyflex_id in number,
139 p_concatenated_segments in varchar2,
140 p_segment1 in varchar2 default NULL,
141 p_segment2 in varchar2 default NULL,
142 p_segment3 in varchar2 default NULL,
143 p_segment4 in varchar2 default NULL,
144 p_segment5 in varchar2 default NULL,
145 p_segment6 in varchar2 default NULL,
146 p_segment7 in varchar2 default NULL,
147 p_segment8 in varchar2 default NULL,
148 p_segment9 in varchar2 default NULL,
149 p_segment10 in varchar2 default NULL,
150 p_segment11 in varchar2 default NULL,
151 p_segment12 in varchar2 default NULL,
152 p_segment13 in varchar2 default NULL,
153 p_segment14 in varchar2 default NULL,
157 p_segment18 in varchar2 default NULL,
154 p_segment15 in varchar2 default NULL,
155 p_segment16 in varchar2 default NULL,
156 p_segment17 in varchar2 default NULL,
158 p_segment19 in varchar2 default NULL,
159 p_segment20 in varchar2 default NULL,
160 p_segment21 in varchar2 default NULL,
161 p_segment22 in varchar2 default NULL,
162 p_segment23 in varchar2 default NULL,
163 p_segment24 in varchar2 default NULL,
164 p_segment25 in varchar2 default NULL,
165 p_segment26 in varchar2 default NULL,
166 p_segment27 in varchar2 default NULL,
167 p_segment28 in varchar2 default NULL,
168 p_segment29 in varchar2 default NULL,
169 p_segment30 in varchar2 default NULL)
170 return number is
171
172 l_structure NUMBER;
173
174 BEGIN
175
176 SELECT cost_allocation_structure
177 INTO l_structure
178 FROM per_business_groups pbg
179 WHERE pbg.business_group_id = p_business_group_id;
180
181 if (p_cost_allocation_keyflex_id IS NOT NULL) then
182 if (p_segment1 IS NOT NULL or
183 p_segment2 IS NOT NULL or
184 p_segment3 IS NOT NULL or
185 p_segment4 IS NOT NULL or
186 p_segment5 IS NOT NULL or
187 p_segment6 IS NOT NULL or
188 p_segment7 IS NOT NULL or
189 p_segment8 IS NOT NULL or
190 p_segment9 IS NOT NULL or
191 p_segment10 IS NOT NULL or
192 p_segment11 IS NOT NULL or
193 p_segment12 IS NOT NULL or
194 p_segment13 IS NOT NULL or
195 p_segment14 IS NOT NULL or
196 p_segment15 IS NOT NULL or
197 p_segment16 IS NOT NULL or
198 p_segment17 IS NOT NULL or
199 p_segment18 IS NOT NULL or
200 p_segment19 IS NOT NULL or
201 p_segment20 IS NOT NULL or
202 p_segment21 IS NOT NULL or
203 p_segment22 IS NOT NULL or
204 p_segment23 IS NOT NULL or
205 p_segment24 IS NOT NULL or
206 p_segment25 IS NOT NULL or
207 p_segment26 IS NOT NULL or
208 p_segment27 IS NOT NULL or
209 p_segment28 IS NOT NULL or
210 p_segment29 IS NOT NULL or
211 p_segment30 IS NOT NULL) then
212 return hr_entry.maintain_cost_keyflex (
213 l_structure,
214 -1,
215 p_concatenated_segments,
216 'N',
217 '',
218 '',
219 p_segment1,
220 p_segment2,
221 p_segment3,
222 p_segment4,
223 p_segment5,
224 p_segment6,
225 p_segment7,
226 p_segment8,
227 p_segment9,
228 p_segment10,
229 p_segment11,
230 p_segment12,
231 p_segment13,
232 p_segment14,
233 p_segment15,
234 p_segment16,
235 p_segment17,
236 p_segment18,
237 p_segment19,
238 p_segment20,
239 p_segment21,
240 p_segment22,
241 p_segment23,
242 p_segment24,
243 p_segment25,
244 p_segment26,
245 p_segment27,
246 p_segment28,
247 p_segment29,
248 p_segment30);
249 end if;
250 else
251 return null;
252 end if;
253
254
255 END get_cost_allocation_id;
256 --
257 --
258 end pay_csk_flex;