[Home] [Help]
PACKAGE BODY: APPS.IRC_REC_TEAM_MEMBERS_BE2
Source
1 package body irc_rec_team_members_be2 as
2 --Code generated on 30/03/2009 04:31:33
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure update_rec_team_member_a (
5 p_rec_team_member_id number,
6 p_person_id number,
7 p_object_version_number number,
8 p_job_id number,
9 p_start_date date,
10 p_end_date date,
11 p_update_allowed varchar2,
12 p_delete_allowed varchar2,
13 p_interview_security varchar2) is
14 l_event_key number;
15 l_event_data clob;
16 l_event_name varchar2(250);
17 l_text varchar2(2000);
18 l_message varchar2(10);
19 --
20 cursor get_seq is
21 select per_wf_events_s.nextval from dual;
22 --
23 l_proc varchar2(72):=' irc_rec_team_members_be2.update_rec_team_member_a';
24 begin
25 hr_utility.set_location('Entering: '||l_proc,10);
26 -- check the status of the business event
27 l_event_name:='oracle.apps.per.irc.api.rec_team_members.update_rec_team_member';
28 l_message:=wf_event.test(l_event_name);
29 --
30 if (l_message='MESSAGE') then
31 hr_utility.set_location(l_proc,20);
32 --
33 -- get a key for the event
34 --
35 open get_seq;
36 fetch get_seq into l_event_key;
37 close get_seq;
38 --
39 -- build the xml data for the event
40 --
41 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
42 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
43 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
44 l_text:='<rec_team_members>';
45 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
46 --
47 l_text:='<rec_team_member_id>';
48 l_text:=l_text||fnd_number.number_to_canonical(p_rec_team_member_id);
49 l_text:=l_text||'</rec_team_member_id>';
50 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
51 l_text:='<person_id>';
52 l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
53 l_text:=l_text||'</person_id>';
54 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
55 l_text:='<object_version_number>';
56 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
57 l_text:=l_text||'</object_version_number>';
58 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
59 l_text:='<job_id>';
60 l_text:=l_text||fnd_number.number_to_canonical(p_job_id);
61 l_text:=l_text||'</job_id>';
62 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
63 l_text:='<start_date>';
64 l_text:=l_text||fnd_date.date_to_canonical(p_start_date);
65 l_text:=l_text||'</start_date>';
66 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
67 l_text:='<end_date>';
68 l_text:=l_text||fnd_date.date_to_canonical(p_end_date);
69 l_text:=l_text||'</end_date>';
70 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
71 l_text:='<update_allowed>';
72 l_text:=l_text||irc_utilities_pkg.removeTags(p_update_allowed);
73 l_text:=l_text||'</update_allowed>';
74 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
75 l_text:='<delete_allowed>';
76 l_text:=l_text||irc_utilities_pkg.removeTags(p_delete_allowed);
77 l_text:=l_text||'</delete_allowed>';
78 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
79 l_text:='<interview_security>';
80 l_text:=l_text||irc_utilities_pkg.removeTags(p_interview_security);
81 l_text:=l_text||'</interview_security>';
82 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
83 l_text:='</rec_team_members>';
84 --
85 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
86 --
87 -- raise the event with the event data
88 wf_event.raise(p_event_name=>l_event_name
89 ,p_event_key=>l_event_key
90 ,p_event_data=>l_event_data);
91 elsif (l_message='KEY') then
92 hr_utility.set_location(l_proc,30);
93 -- get a key for the event
94 open get_seq;
95 fetch get_seq into l_event_key;
96 close get_seq;
97 -- this is a key event, so just raise the event
98 -- without the event data
99 wf_event.raise(p_event_name=>l_event_name
100 ,p_event_key=>l_event_key);
101 elsif (l_message='NONE') then
102 hr_utility.set_location(l_proc,40);
103 -- no event is required, so do nothing
104 null;
105 end if;
106 hr_utility.set_location('Leaving: '||l_proc,50);
107 end update_rec_team_member_a;
108 end irc_rec_team_members_be2;