[Home] [Help]
PACKAGE BODY: APPS.PER_ESTAB_ATTENDANCES_BE1
Source
1 package body per_estab_attendances_be1 as
2 --Code generated on 03/01/2007 10:48:58
3 /* $Header: hrapiwfe.pkb 120.3 2006/06/20 10:26:28 sayyampe noship $*/
4 procedure create_attended_estab_a (
5 p_effective_date date,
6 p_fulltime varchar2,
7 p_attended_start_date date,
8 p_attended_end_date date,
9 p_establishment varchar2,
10 p_business_group_id number,
11 p_person_id number,
12 p_party_id number,
13 p_establishment_id number,
14 p_attribute_category varchar2,
15 p_attribute1 varchar2,
16 p_attribute2 varchar2,
17 p_attribute3 varchar2,
18 p_attribute4 varchar2,
19 p_attribute5 varchar2,
20 p_attribute6 varchar2,
21 p_attribute7 varchar2,
22 p_attribute8 varchar2,
23 p_attribute9 varchar2,
24 p_attribute10 varchar2,
25 p_attribute11 varchar2,
26 p_attribute12 varchar2,
27 p_attribute13 varchar2,
28 p_attribute14 varchar2,
29 p_attribute15 varchar2,
30 p_attribute16 varchar2,
31 p_attribute17 varchar2,
32 p_attribute18 varchar2,
33 p_attribute19 varchar2,
34 p_attribute20 varchar2,
35 p_address varchar2) is
36 l_event_key number;
37 l_event_data clob;
38 l_event_name varchar2(250);
39 l_text varchar2(2000);
40 l_message varchar2(10);
41 --
42 cursor get_seq is
43 select per_wf_events_s.nextval from dual;
44 --
45 l_proc varchar2(72):=' per_estab_attendances_be1.create_attended_estab_a';
46 begin
47 hr_utility.set_location('Entering: '||l_proc,10);
48 -- check the status of the business event
49 l_event_name:='oracle.apps.per.api.estab_attendances.create_attended_estab';
50 l_message:=wf_event.test(l_event_name);
51 --
52 if (l_message='MESSAGE') then
53 hr_utility.set_location(l_proc,20);
54 --
55 -- get a key for the event
56 --
57 open get_seq;
58 fetch get_seq into l_event_key;
59 close get_seq;
60 --
61 -- build the xml data for the event
62 --
63 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
64 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
65 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
66 l_text:='<estab_attendances>';
67 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
68 --
69 l_text:='<effective_date>';
70 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
71 l_text:=l_text||'</effective_date>';
72 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
73 l_text:='<fulltime>';
74 l_text:=l_text||irc_utilities_pkg.removeTags(p_fulltime);
75 l_text:=l_text||'</fulltime>';
76 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
77 l_text:='<attended_start_date>';
78 l_text:=l_text||fnd_date.date_to_canonical(p_attended_start_date);
79 l_text:=l_text||'</attended_start_date>';
80 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
81 l_text:='<attended_end_date>';
82 l_text:=l_text||fnd_date.date_to_canonical(p_attended_end_date);
83 l_text:=l_text||'</attended_end_date>';
84 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
85 l_text:='<establishment>';
86 l_text:=l_text||irc_utilities_pkg.removeTags(p_establishment);
87 l_text:=l_text||'</establishment>';
88 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
89 l_text:='<business_group_id>';
90 l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
91 l_text:=l_text||'</business_group_id>';
92 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
93 l_text:='<person_id>';
94 l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
95 l_text:=l_text||'</person_id>';
96 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
97 l_text:='<party_id>';
98 l_text:=l_text||fnd_number.number_to_canonical(p_party_id);
99 l_text:=l_text||'</party_id>';
100 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
101 l_text:='<establishment_id>';
102 l_text:=l_text||fnd_number.number_to_canonical(p_establishment_id);
103 l_text:=l_text||'</establishment_id>';
104 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
105 l_text:='<attribute_category>';
106 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
107 l_text:=l_text||'</attribute_category>';
108 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
109 l_text:='<attribute1>';
110 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
111 l_text:=l_text||'</attribute1>';
112 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
113 l_text:='<attribute2>';
114 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
115 l_text:=l_text||'</attribute2>';
116 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
117 l_text:='<attribute3>';
118 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
119 l_text:=l_text||'</attribute3>';
120 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
121 l_text:='<attribute4>';
122 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
123 l_text:=l_text||'</attribute4>';
124 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
125 l_text:='<attribute5>';
126 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
127 l_text:=l_text||'</attribute5>';
128 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
129 l_text:='<attribute6>';
130 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
131 l_text:=l_text||'</attribute6>';
132 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
133 l_text:='<attribute7>';
134 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
135 l_text:=l_text||'</attribute7>';
136 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
137 l_text:='<attribute8>';
138 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
139 l_text:=l_text||'</attribute8>';
140 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
141 l_text:='<attribute9>';
142 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
143 l_text:=l_text||'</attribute9>';
144 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
145 l_text:='<attribute10>';
146 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
147 l_text:=l_text||'</attribute10>';
148 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
149 l_text:='<attribute11>';
150 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
151 l_text:=l_text||'</attribute11>';
152 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
153 l_text:='<attribute12>';
154 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
155 l_text:=l_text||'</attribute12>';
156 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
157 l_text:='<attribute13>';
158 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
159 l_text:=l_text||'</attribute13>';
160 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
161 l_text:='<attribute14>';
162 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
163 l_text:=l_text||'</attribute14>';
164 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
165 l_text:='<attribute15>';
166 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
167 l_text:=l_text||'</attribute15>';
168 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
169 l_text:='<attribute16>';
170 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
171 l_text:=l_text||'</attribute16>';
172 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
173 l_text:='<attribute17>';
174 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
175 l_text:=l_text||'</attribute17>';
176 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
177 l_text:='<attribute18>';
178 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
179 l_text:=l_text||'</attribute18>';
180 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
181 l_text:='<attribute19>';
182 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
183 l_text:=l_text||'</attribute19>';
184 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
185 l_text:='<attribute20>';
186 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
187 l_text:=l_text||'</attribute20>';
188 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
189 l_text:='<address>';
190 l_text:=l_text||irc_utilities_pkg.removeTags(p_address);
191 l_text:=l_text||'</address>';
192 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
193 l_text:='</estab_attendances>';
194 --
195 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
196 --
197 -- raise the event with the event data
198 wf_event.raise(p_event_name=>l_event_name
199 ,p_event_key=>l_event_key
200 ,p_event_data=>l_event_data);
201 --
202 elsif (l_message='KEY') then
203 hr_utility.set_location(l_proc,30);
204 -- get a key for the event
205 open get_seq;
206 fetch get_seq into l_event_key;
207 close get_seq;
208 -- this is a key event, so just raise the event
209 -- without the event data
210 wf_event.raise(p_event_name=>l_event_name
211 ,p_event_key=>l_event_key);
212 --
213 elsif (l_message='NONE') then
214 hr_utility.set_location(l_proc,40);
215 -- no event is required, so do nothing
216 null;
217 end if;
218 hr_utility.set_location('Leaving: '||l_proc,50);
219 end create_attended_estab_a;
220 end per_estab_attendances_be1;