1 PACKAGE BODY irc_qua_update AS
2 /* $Header: irquaupg.pkb 120.0 2005/07/26 15:16 mbocutt noship $*/
3
4 -- ----------------------------------------------------------------------------
5 -- |--------------------------< update_qualification_data >-------------------|
6 -- ----------------------------------------------------------------------------
7 procedure update_qualification_data(
8 p_process_ctrl IN varchar2,
9 p_start_pkid IN number,
10 p_end_pkid IN number,
11 p_rows_processed OUT nocopy number)
12 is
13 --
14 -- This cursor loops over all qualification records which doesn't have a person_id
15 -- and business_group_id
16 --
17 cursor csr_upd_qualification is
18 select pea.person_id person_id
19 ,pea.business_group_id business_group_id
20 ,pq.attendance_id attendance_id
21 from per_qualifications pq
22 ,per_establishment_attendances pea
23 where pea.attendance_id = pq.attendance_id
24 and pea.attendance_id between p_start_pkid and p_end_pkid
25 and pq.person_id is null
26 and pq.business_group_id is null;
27 l_rows_processed number := 0;
28 --
29 begin
30 for csr_rec in csr_upd_qualification
31 loop
32 update per_qualifications
33 set person_id = csr_rec.person_id
34 ,business_group_id = csr_rec.business_group_id
35 where attendance_id=csr_rec.attendance_id;
36 l_rows_processed := l_rows_processed + 1;
37 end loop;
38 p_rows_processed := l_rows_processed;
39 end update_qualification_data;
40 --
41 end irc_qua_update;