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