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