PACKAGE BODY: APPS.IRC_CMP_UPGRADE

Source

1 PACKAGE BODY irc_cmp_upgrade AS
2 /* $Header: ircmpupg.pkb 120.1 2007/12/22 14:38:40 gaukumar noship $ */
3 
4 -- ----------------------------------------------------------------------------
5 -- |--------------------------< migrateVacCommProps >---------------------|
6 -- ----------------------------------------------------------------------------
7 procedure migrateVacCommProps(
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   l_rows_processed number := 0;
15   --
16   cursor csr_vacancy is
17   select pav.vacancy_id
18     from per_all_vacancies pav
19    where not exists (select null
20                      from irc_comm_properties icp
21                      where icp.object_type = 'VACANCY'
22               and  icp.object_id = pav.vacancy_id
23              )
24    and pav.vacancy_id between p_start_pkid  and p_end_pkid;
25  --
26  l_communication_property_id    number := 0;
27  l_object_version_number        number := 0;
28  --
29 begin
30 
31   for csr_vacancy_rec in csr_vacancy
32   loop
33       --
34       irc_cmp_ins.ins
35       (
36        p_effective_date            =>  sysdate
37       ,p_object_type               => 'VACANCY'
38       ,p_object_id                 => csr_vacancy_rec.vacancy_id
39       ,p_default_comm_status       => 'CLOSED'
40       ,p_allow_attachment_flag     => 'NONE'
41       ,p_auto_notification_flag    => 'N'
42       ,p_allow_add_recipients      => 'INT'
43       ,p_default_moderator         => 'REC_N_HRNG_MGR'
44       ,p_communication_property_id => l_communication_property_id
45       ,p_object_version_number     => l_object_version_number
46      );
47 
48       l_rows_processed := l_rows_processed + 1;
49   end loop;
50   --
51   p_rows_processed := l_rows_processed;
52   --
53 end migrateVacCommProps;
54 --
55 end irc_cmp_upgrade;