[Home] [Help]
PACKAGE BODY: APPS.HRDPP_CREATE_QUALIFICATION_TYP
Source
1 package body hrdpp_CREATE_QUALIFICATION_TYP as
2 /*
3 * Generated by hr_pump_meta_mapper at: 2012/11/27 04:11:37
4 * Generated for API: HR_QUALIFICATION_TYPE_API.CREATE_QUALIFICATION_TYPE
5 */
6 --
7 dh constant date := hr_api.g_date;
8 nh constant number := hr_api.g_number;
9 vh constant varchar2(64) := hr_api.g_varchar2;
10 c_sot constant date := to_date('01010001','DDMMYYYY');
11 cn constant varchar2(32) := '<NULL>';
12 dn constant date := null;
13 nn constant number := null;
14 vn constant varchar2(1) := null;
15 --
16 function dc(p in date) return varchar2 is
17 begin
18 if p<c_sot then
19 if p<>trunc(p) then
20 return to_char(p,'SYYYY/MM/DD HH24:MI:SS');
21 end if;
22 return to_char(p,'SYYYY/MM/DD');
23 elsif p<>trunc(p) then
24 return to_char(p,'YYYY/MM/DD HH24:MI:SS');
25 end if;
26 return to_char(p,'YYYY/MM/DD');
27 end dc;
28 function d(p in varchar2) return date is
29 begin
30 if length(p)=10 then
31 return to_date(p,'YYYY/MM/DD');
32 elsif length(p)=19 then
33 return to_date(p,'YYYY/MM/DD HH24:MI:SS');
34 elsif length(p)=11 then
35 return to_date(p,'SYYYY/MM/DD');
36 elsif length(p)=20 then
37 return to_date(p,'SYYYY/MM/DD HH24:MI:SS');
38 end if;
39 -- Try default format as last resort.
40 return to_date(p,'YYYY/MM/DD');
41 end d;
42 function n(p in varchar2) return number is
43 begin
44 return to_number(p);
45 end n;
46 function dd(p in date,i in varchar2)
47 return varchar2 is
48 begin
49 if upper(i) = 'N' then return dc(p);
50 else return cn; end if;
51 end dd;
52 function nd(p in number,i in varchar2)
53 return varchar2 is
54 begin
55 if upper(i) = 'N' then return to_char(p);
56 else return cn; end if;
57 end nd;
58 --
59 procedure iuk
60 (p_batch_line_id in number,
61 p_user_key_value in varchar2,
62 p_unique_key_id in number)
63 is
64 begin
65 hr_data_pump.entry('ins_user_key');
66 insert into hr_pump_batch_line_user_keys
67 (user_key_id, batch_line_id,user_key_value,unique_key_id)
68 values
69 (hr_pump_batch_line_user_keys_s.nextval,
70 p_batch_line_id,
71 p_user_key_value,
72 p_unique_key_id);
73 hr_data_pump.exit('ins_user_key');
74 end iuk;
75 --
76 procedure insert_batch_lines
77 (p_batch_id in number
78 ,p_data_pump_batch_line_id in number default null
79 ,p_data_pump_business_grp_name in varchar2 default null
80 ,p_user_sequence in number default null
81 ,p_link_value in number default null
82 ,P_EFFECTIVE_DATE in date
83 ,P_LANGUAGE_CODE in varchar2 default null
84 ,P_NAME in varchar2
85 ,P_CATEGORY in varchar2
86 ,P_RANK in number default null
87 ,P_ATTRIBUTE_CATEGORY in varchar2 default null
88 ,P_ATTRIBUTE1 in varchar2 default null
89 ,P_ATTRIBUTE2 in varchar2 default null
90 ,P_ATTRIBUTE3 in varchar2 default null
91 ,P_ATTRIBUTE4 in varchar2 default null
92 ,P_ATTRIBUTE5 in varchar2 default null
93 ,P_ATTRIBUTE6 in varchar2 default null
94 ,P_ATTRIBUTE7 in varchar2 default null
95 ,P_ATTRIBUTE8 in varchar2 default null
96 ,P_ATTRIBUTE9 in varchar2 default null
97 ,P_ATTRIBUTE10 in varchar2 default null
98 ,P_ATTRIBUTE11 in varchar2 default null
99 ,P_ATTRIBUTE12 in varchar2 default null
100 ,P_ATTRIBUTE13 in varchar2 default null
101 ,P_ATTRIBUTE14 in varchar2 default null
102 ,P_ATTRIBUTE15 in varchar2 default null
103 ,P_ATTRIBUTE16 in varchar2 default null
104 ,P_ATTRIBUTE17 in varchar2 default null
105 ,P_ATTRIBUTE18 in varchar2 default null
106 ,P_ATTRIBUTE19 in varchar2 default null
107 ,P_ATTRIBUTE20 in varchar2 default null
108 ,P_INFORMATION_CATEGORY in varchar2 default null
109 ,P_INFORMATION1 in varchar2 default null
110 ,P_INFORMATION2 in varchar2 default null
111 ,P_INFORMATION3 in varchar2 default null
112 ,P_INFORMATION4 in varchar2 default null
113 ,P_INFORMATION5 in varchar2 default null
114 ,P_INFORMATION6 in varchar2 default null
115 ,P_INFORMATION7 in varchar2 default null
116 ,P_INFORMATION8 in varchar2 default null
117 ,P_INFORMATION9 in varchar2 default null
118 ,P_INFORMATION10 in varchar2 default null
119 ,P_INFORMATION11 in varchar2 default null
120 ,P_INFORMATION12 in varchar2 default null
121 ,P_INFORMATION13 in varchar2 default null
122 ,P_INFORMATION14 in varchar2 default null
123 ,P_INFORMATION15 in varchar2 default null
124 ,P_INFORMATION16 in varchar2 default null
125 ,P_INFORMATION17 in varchar2 default null
126 ,P_INFORMATION18 in varchar2 default null
127 ,P_INFORMATION19 in varchar2 default null
128 ,P_INFORMATION20 in varchar2 default null
129 ,P_INFORMATION21 in varchar2 default null
130 ,P_INFORMATION22 in varchar2 default null
131 ,P_INFORMATION23 in varchar2 default null
132 ,P_INFORMATION24 in varchar2 default null
133 ,P_INFORMATION25 in varchar2 default null
134 ,P_INFORMATION26 in varchar2 default null
135 ,P_INFORMATION27 in varchar2 default null
136 ,P_INFORMATION28 in varchar2 default null
137 ,P_INFORMATION29 in varchar2 default null
138 ,P_INFORMATION30 in varchar2 default null
139 ,P_QUAL_FRAMEWORK_ID in number default null
140 ,P_QUALIFICATION_TYPE in varchar2 default null
141 ,P_CREDIT_TYPE in varchar2 default null
142 ,P_CREDITS in number default null
143 ,P_LEVEL_TYPE in varchar2 default null
144 ,P_LEVEL_NUMBER in number default null
145 ,P_FIELD in varchar2 default null
146 ,P_SUB_FIELD in varchar2 default null
147 ,P_PROVIDER in varchar2 default null
148 ,P_QA_ORGANIZATION in varchar2 default null) is
149 blid number := p_data_pump_batch_line_id;
150 begin
151 if blid is not null then
152 delete from hr_pump_batch_lines where batch_line_id = blid;
153 delete from hr_pump_batch_exceptions
154 where source_type = 'BATCH_LINE' and source_id = blid;
155 end if;
156 insert into hr_pump_batch_lines
157 (batch_id
158 ,batch_line_id
159 ,business_group_name
160 ,api_module_id
161 ,line_status
162 ,user_sequence
163 ,link_value
164 ,pval001
165 ,pval002
166 ,pval003
167 ,pval004
168 ,pval005
169 ,pval006
170 ,pval007
171 ,pval008
172 ,pval009
173 ,pval010
174 ,pval011
175 ,pval012
176 ,pval013
177 ,pval014
178 ,pval015
179 ,pval016
180 ,pval017
181 ,pval018
182 ,pval019
183 ,pval020
184 ,pval021
185 ,pval022
186 ,pval023
187 ,pval024
188 ,pval025
189 ,pval026
190 ,pval027
191 ,pval028
192 ,pval029
193 ,pval030
194 ,pval031
195 ,pval032
196 ,pval033
197 ,pval034
198 ,pval035
199 ,pval036
200 ,pval037
201 ,pval038
202 ,pval039
203 ,pval040
204 ,pval041
205 ,pval042
206 ,pval043
207 ,pval044
208 ,pval045
209 ,pval046
210 ,pval047
211 ,pval048
212 ,pval049
213 ,pval050
214 ,pval051
215 ,pval052
216 ,pval053
217 ,pval054
218 ,pval055
219 ,pval056
220 ,pval057
221 ,pval058
222 ,pval059
223 ,pval060
224 ,pval061
225 ,pval062
226 ,pval063
227 ,pval064
228 ,pval065
229 ,pval066
230 ,pval067)
231 values
232 (p_batch_id
233 ,nvl(blid,hr_pump_batch_lines_s.nextval)
234 ,p_data_pump_business_grp_name
235 ,3117
236 ,'U'
237 ,p_user_sequence
238 ,p_link_value
239 ,dc(P_EFFECTIVE_DATE)
240 ,P_LANGUAGE_CODE
241 ,P_NAME
242 ,P_CATEGORY
243 ,P_RANK
244 ,P_ATTRIBUTE_CATEGORY
245 ,P_ATTRIBUTE1
246 ,P_ATTRIBUTE2
247 ,P_ATTRIBUTE3
248 ,P_ATTRIBUTE4
249 ,P_ATTRIBUTE5
250 ,P_ATTRIBUTE6
251 ,P_ATTRIBUTE7
252 ,P_ATTRIBUTE8
253 ,P_ATTRIBUTE9
254 ,P_ATTRIBUTE10
255 ,P_ATTRIBUTE11
256 ,P_ATTRIBUTE12
257 ,P_ATTRIBUTE13
258 ,P_ATTRIBUTE14
259 ,P_ATTRIBUTE15
260 ,P_ATTRIBUTE16
261 ,P_ATTRIBUTE17
262 ,P_ATTRIBUTE18
263 ,P_ATTRIBUTE19
264 ,P_ATTRIBUTE20
265 ,P_INFORMATION_CATEGORY
266 ,P_INFORMATION1
267 ,P_INFORMATION2
268 ,P_INFORMATION3
269 ,P_INFORMATION4
270 ,P_INFORMATION5
271 ,P_INFORMATION6
272 ,P_INFORMATION7
273 ,P_INFORMATION8
274 ,P_INFORMATION9
275 ,P_INFORMATION10
276 ,P_INFORMATION11
277 ,P_INFORMATION12
278 ,P_INFORMATION13
279 ,P_INFORMATION14
280 ,P_INFORMATION15
281 ,P_INFORMATION16
282 ,P_INFORMATION17
283 ,P_INFORMATION18
284 ,P_INFORMATION19
285 ,P_INFORMATION20
286 ,P_INFORMATION21
287 ,P_INFORMATION22
288 ,P_INFORMATION23
289 ,P_INFORMATION24
290 ,P_INFORMATION25
291 ,P_INFORMATION26
292 ,P_INFORMATION27
293 ,P_INFORMATION28
294 ,P_INFORMATION29
295 ,P_INFORMATION30
296 ,P_QUAL_FRAMEWORK_ID
297 ,P_QUALIFICATION_TYPE
298 ,P_CREDIT_TYPE
299 ,P_CREDITS
300 ,P_LEVEL_TYPE
301 ,P_LEVEL_NUMBER
302 ,P_FIELD
303 ,P_SUB_FIELD
304 ,P_PROVIDER
305 ,P_QA_ORGANIZATION);
306 end insert_batch_lines;
307 --
308 procedure call
309 (p_business_group_id in number,
310 p_batch_line_id in number) is
311 cursor cr is
312 select l.rowid myrowid,
313 decode(l.pval001,cn,dn,d(l.pval001)) p1,
314 decode(l.pval002,cn,vn,vn,vn,l.pval002) p2,
315 l.pval002 d2,
319 l.pval005 d5,
316 decode(l.pval003,cn,vn,l.pval003) p3,
317 decode(l.pval004,cn,vn,l.pval004) p4,
318 decode(l.pval005,cn,nn,vn,nn,n(l.pval005)) p5,
320 decode(l.pval006,cn,vn,vn,vn,l.pval006) p6,
321 l.pval006 d6,
322 decode(l.pval007,cn,vn,vn,vn,l.pval007) p7,
323 l.pval007 d7,
324 decode(l.pval008,cn,vn,vn,vn,l.pval008) p8,
325 l.pval008 d8,
326 decode(l.pval009,cn,vn,vn,vn,l.pval009) p9,
327 l.pval009 d9,
328 decode(l.pval010,cn,vn,vn,vn,l.pval010) p10,
329 l.pval010 d10,
330 decode(l.pval011,cn,vn,vn,vn,l.pval011) p11,
331 l.pval011 d11,
332 decode(l.pval012,cn,vn,vn,vn,l.pval012) p12,
333 l.pval012 d12,
334 decode(l.pval013,cn,vn,vn,vn,l.pval013) p13,
335 l.pval013 d13,
336 decode(l.pval014,cn,vn,vn,vn,l.pval014) p14,
337 l.pval014 d14,
338 decode(l.pval015,cn,vn,vn,vn,l.pval015) p15,
339 l.pval015 d15,
340 decode(l.pval016,cn,vn,vn,vn,l.pval016) p16,
341 l.pval016 d16,
342 decode(l.pval017,cn,vn,vn,vn,l.pval017) p17,
343 l.pval017 d17,
344 decode(l.pval018,cn,vn,vn,vn,l.pval018) p18,
345 l.pval018 d18,
346 decode(l.pval019,cn,vn,vn,vn,l.pval019) p19,
347 l.pval019 d19,
348 decode(l.pval020,cn,vn,vn,vn,l.pval020) p20,
349 l.pval020 d20,
350 decode(l.pval021,cn,vn,vn,vn,l.pval021) p21,
351 l.pval021 d21,
352 decode(l.pval022,cn,vn,vn,vn,l.pval022) p22,
353 l.pval022 d22,
354 decode(l.pval023,cn,vn,vn,vn,l.pval023) p23,
355 l.pval023 d23,
356 decode(l.pval024,cn,vn,vn,vn,l.pval024) p24,
357 l.pval024 d24,
358 decode(l.pval025,cn,vn,vn,vn,l.pval025) p25,
359 l.pval025 d25,
360 decode(l.pval026,cn,vn,vn,vn,l.pval026) p26,
361 l.pval026 d26,
362 decode(l.pval027,cn,vn,vn,vn,l.pval027) p27,
363 l.pval027 d27,
364 decode(l.pval028,cn,vn,vn,vn,l.pval028) p28,
365 l.pval028 d28,
366 decode(l.pval029,cn,vn,vn,vn,l.pval029) p29,
367 l.pval029 d29,
368 decode(l.pval030,cn,vn,vn,vn,l.pval030) p30,
369 l.pval030 d30,
370 decode(l.pval031,cn,vn,vn,vn,l.pval031) p31,
371 l.pval031 d31,
372 decode(l.pval032,cn,vn,vn,vn,l.pval032) p32,
373 l.pval032 d32,
374 decode(l.pval033,cn,vn,vn,vn,l.pval033) p33,
375 l.pval033 d33,
376 decode(l.pval034,cn,vn,vn,vn,l.pval034) p34,
377 l.pval034 d34,
378 decode(l.pval035,cn,vn,vn,vn,l.pval035) p35,
379 l.pval035 d35,
380 decode(l.pval036,cn,vn,vn,vn,l.pval036) p36,
381 l.pval036 d36,
382 decode(l.pval037,cn,vn,vn,vn,l.pval037) p37,
383 l.pval037 d37,
384 decode(l.pval038,cn,vn,vn,vn,l.pval038) p38,
385 l.pval038 d38,
386 decode(l.pval039,cn,vn,vn,vn,l.pval039) p39,
387 l.pval039 d39,
388 decode(l.pval040,cn,vn,vn,vn,l.pval040) p40,
389 l.pval040 d40,
390 decode(l.pval041,cn,vn,vn,vn,l.pval041) p41,
391 l.pval041 d41,
392 decode(l.pval042,cn,vn,vn,vn,l.pval042) p42,
393 l.pval042 d42,
394 decode(l.pval043,cn,vn,vn,vn,l.pval043) p43,
395 l.pval043 d43,
396 decode(l.pval044,cn,vn,vn,vn,l.pval044) p44,
397 l.pval044 d44,
398 decode(l.pval045,cn,vn,vn,vn,l.pval045) p45,
399 l.pval045 d45,
400 decode(l.pval046,cn,vn,vn,vn,l.pval046) p46,
401 l.pval046 d46,
402 decode(l.pval047,cn,vn,vn,vn,l.pval047) p47,
403 l.pval047 d47,
404 decode(l.pval048,cn,vn,vn,vn,l.pval048) p48,
405 l.pval048 d48,
406 decode(l.pval049,cn,vn,vn,vn,l.pval049) p49,
407 l.pval049 d49,
408 decode(l.pval050,cn,vn,vn,vn,l.pval050) p50,
409 l.pval050 d50,
410 decode(l.pval051,cn,vn,vn,vn,l.pval051) p51,
411 l.pval051 d51,
412 decode(l.pval052,cn,vn,vn,vn,l.pval052) p52,
413 l.pval052 d52,
414 decode(l.pval053,cn,vn,vn,vn,l.pval053) p53,
415 l.pval053 d53,
416 decode(l.pval054,cn,vn,vn,vn,l.pval054) p54,
417 l.pval054 d54,
418 decode(l.pval055,cn,vn,vn,vn,l.pval055) p55,
419 l.pval055 d55,
420 decode(l.pval056,cn,vn,vn,vn,l.pval056) p56,
421 l.pval056 d56,
422 decode(l.pval057,cn,vn,vn,vn,l.pval057) p57,
423 l.pval057 d57,
424 decode(l.pval058,cn,nn,vn,nn,n(l.pval058)) p58,
425 l.pval058 d58,
426 decode(l.pval059,cn,vn,vn,vn,l.pval059) p59,
427 l.pval059 d59,
428 decode(l.pval060,cn,vn,vn,vn,
429 hr_pump_get.gl(l.pval060,'PER_QUAL_FWK_CREDIT_TYPE',d(l.pval001),l.pval002)) p60,
430 l.pval060 d60,
431 decode(l.pval061,cn,nn,vn,nn,n(l.pval061)) p61,
432 l.pval061 d61,
433 decode(l.pval062,cn,vn,vn,vn,
434 hr_pump_get.gl(l.pval062,'PER_QUAL_FWK_LEVEL_TYPE',d(l.pval001),l.pval002)) p62,
435 l.pval062 d62,
436 decode(l.pval063,cn,nn,vn,nn,
437 hr_pump_get.gl(l.pval063,'PER_QUAL_FWK_LEVEL_NUMBER',d(l.pval001),l.pval002)) p63,
438 l.pval063 d63,
439 decode(l.pval064,cn,vn,vn,vn,
440 hr_pump_get.gl(l.pval064,'PER_QUAL_FWK_FIELD',d(l.pval001),l.pval002)) p64,
441 l.pval064 d64,
442 decode(l.pval065,cn,vn,vn,vn,
443 hr_pump_get.gl(l.pval065,'PER_QUAL_FWK_SUB_FIELD',d(l.pval001),l.pval002)) p65,
444 l.pval065 d65,
445 decode(l.pval066,cn,vn,vn,vn,
446 hr_pump_get.gl(l.pval066,'PER_QUAL_FWK_PROVIDER',d(l.pval001),l.pval002)) p66,
447 l.pval066 d66,
448 decode(l.pval067,cn,vn,vn,vn,
449 hr_pump_get.gl(l.pval067,'PER_QUAL_FWK_QA_ORG',d(l.pval001),l.pval002)) p67,
450 l.pval067 d67,
451 l.pval068 p68,
452 l.pval069 p69
453 from hr_pump_batch_lines l
454 where l.batch_line_id = p_batch_line_id;
455 --
456 c cr%rowtype;
457 l_validate boolean := false;
458 --
459 begin
460 hr_data_pump.entry('call');
461 open cr;
462 fetch cr into c;
463 if cr%notfound then
464 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
465 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
466 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
467 hr_utility.set_message_token('VALUE',p_batch_line_id);
468 hr_utility.raise_error;
469 end if;
470 --
471 hr_data_pump.api_trc_on;
472 HR_QUALIFICATION_TYPE_API.CREATE_QUALIFICATION_TYPE
473 (p_validate => l_validate
474 ,P_EFFECTIVE_DATE => c.p1
475 ,P_LANGUAGE_CODE => c.p2
476 ,P_NAME => c.p3
477 ,P_CATEGORY => c.p4
478 ,P_RANK => c.p5
479 ,P_ATTRIBUTE_CATEGORY => c.p6
480 ,P_ATTRIBUTE1 => c.p7
481 ,P_ATTRIBUTE2 => c.p8
482 ,P_ATTRIBUTE3 => c.p9
483 ,P_ATTRIBUTE4 => c.p10
484 ,P_ATTRIBUTE5 => c.p11
485 ,P_ATTRIBUTE6 => c.p12
486 ,P_ATTRIBUTE7 => c.p13
487 ,P_ATTRIBUTE8 => c.p14
488 ,P_ATTRIBUTE9 => c.p15
489 ,P_ATTRIBUTE10 => c.p16
490 ,P_ATTRIBUTE11 => c.p17
491 ,P_ATTRIBUTE12 => c.p18
492 ,P_ATTRIBUTE13 => c.p19
493 ,P_ATTRIBUTE14 => c.p20
494 ,P_ATTRIBUTE15 => c.p21
495 ,P_ATTRIBUTE16 => c.p22
496 ,P_ATTRIBUTE17 => c.p23
497 ,P_ATTRIBUTE18 => c.p24
498 ,P_ATTRIBUTE19 => c.p25
499 ,P_ATTRIBUTE20 => c.p26
500 ,P_INFORMATION_CATEGORY => c.p27
501 ,P_INFORMATION1 => c.p28
502 ,P_INFORMATION2 => c.p29
503 ,P_INFORMATION3 => c.p30
504 ,P_INFORMATION4 => c.p31
505 ,P_INFORMATION5 => c.p32
506 ,P_INFORMATION6 => c.p33
507 ,P_INFORMATION7 => c.p34
508 ,P_INFORMATION8 => c.p35
509 ,P_INFORMATION9 => c.p36
510 ,P_INFORMATION10 => c.p37
511 ,P_INFORMATION11 => c.p38
512 ,P_INFORMATION12 => c.p39
513 ,P_INFORMATION13 => c.p40
514 ,P_INFORMATION14 => c.p41
515 ,P_INFORMATION15 => c.p42
516 ,P_INFORMATION16 => c.p43
517 ,P_INFORMATION17 => c.p44
518 ,P_INFORMATION18 => c.p45
519 ,P_INFORMATION19 => c.p46
520 ,P_INFORMATION20 => c.p47
521 ,P_INFORMATION21 => c.p48
522 ,P_INFORMATION22 => c.p49
523 ,P_INFORMATION23 => c.p50
524 ,P_INFORMATION24 => c.p51
525 ,P_INFORMATION25 => c.p52
526 ,P_INFORMATION26 => c.p53
527 ,P_INFORMATION27 => c.p54
528 ,P_INFORMATION28 => c.p55
529 ,P_INFORMATION29 => c.p56
530 ,P_INFORMATION30 => c.p57
531 ,P_QUAL_FRAMEWORK_ID => c.p58
532 ,P_QUALIFICATION_TYPE => c.p59
533 ,P_CREDIT_TYPE => c.p60
534 ,P_CREDITS => c.p61
535 ,P_LEVEL_TYPE => c.p62
536 ,P_LEVEL_NUMBER => c.p63
537 ,P_FIELD => c.p64
538 ,P_SUB_FIELD => c.p65
539 ,P_PROVIDER => c.p66
540 ,P_QA_ORGANIZATION => c.p67
541 ,P_QUALIFICATION_TYPE_ID => c.p68
542 ,P_OBJECT_VERSION_NUMBER => c.p69);
543 hr_data_pump.api_trc_off;
544
545 --
546 update hr_pump_batch_lines l set
547 l.pval068 = decode(c.p68,null,cn,c.p68),
548 l.pval069 = decode(c.p69,null,cn,c.p69)
549 where l.rowid = c.myrowid;
550 --
551 close cr;
552 --
553 hr_data_pump.exit('call');
554 exception
555 when hr_multi_message.error_message_exist then
556 if cr%isopen then
557 close cr;
558 end if;
559 hr_pump_utils.set_multi_msg_error_flag(true);
560 when others then
561 if cr%isopen then
562 close cr;
563 end if;
564 raise;
565 end call;
566 end hrdpp_CREATE_QUALIFICATION_TYP;