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