DBA Data[Home] [Help]

PACKAGE BODY: APPS.OTA_CERT_ENROLLMENT_BE2

Source


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