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