DBA Data[Home] [Help]

PACKAGE BODY: APPS.PER_REQUISITIONS_BE1

Source


1 package body per_requisitions_be1 as 
2 --Code generated on 03/01/2007 10:50:11
3 /* $Header: hrapiwfe.pkb 120.3 2006/06/20 10:26:28 sayyampe noship $*/
4 procedure create_requisition_a (
5 p_business_group_id            number,
6 p_date_from                    date,
7 p_name                         varchar2,
8 p_person_id                    number,
9 p_comments                     varchar2,
10 p_date_to                      date,
11 p_description                  varchar2,
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_attribute21                  varchar2,
34 p_attribute22                  varchar2,
35 p_attribute23                  varchar2,
36 p_attribute24                  varchar2,
37 p_attribute25                  varchar2,
38 p_attribute26                  varchar2,
39 p_attribute27                  varchar2,
40 p_attribute28                  varchar2,
41 p_attribute29                  varchar2,
42 p_attribute30                  varchar2,
43 p_requisition_id               number,
44 p_object_version_number        number) is
45   l_event_key number;
46   l_event_data clob;
47   l_event_name varchar2(250);
48   l_text varchar2(2000);
49   l_message varchar2(10);
50   --
51   cursor get_seq is
52   select per_wf_events_s.nextval from dual;
53   --
54   l_proc varchar2(72):='  per_requisitions_be1.create_requisition_a';
55 begin
56   hr_utility.set_location('Entering: '||l_proc,10);
57   -- check the status of the business event
58   l_event_name:='oracle.apps.per.api.requisitions.create_requisition';
59   l_message:=wf_event.test(l_event_name);
60   --
61   if (l_message='MESSAGE') then
62     hr_utility.set_location(l_proc,20);
63     --
64     -- get a key for the event
65     --
66     open get_seq;
67     fetch get_seq into l_event_key;
68     close get_seq;
69     --
70     -- build the xml data for the event
71     --
72     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
73     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
74     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
75     l_text:='<requisitions>';
76     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
77     --
78     l_text:='<business_group_id>';
79     l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
80     l_text:=l_text||'</business_group_id>';
81     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
82     l_text:='<date_from>';
83     l_text:=l_text||fnd_date.date_to_canonical(p_date_from);
84     l_text:=l_text||'</date_from>';
85     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
86     l_text:='<name>';
87     l_text:=l_text||irc_utilities_pkg.removeTags(p_name);
88     l_text:=l_text||'</name>';
89     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
90     l_text:='<person_id>';
91     l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
92     l_text:=l_text||'</person_id>';
93     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
94     l_text:='<comments>';
95     l_text:=l_text||irc_utilities_pkg.removeTags(p_comments);
96     l_text:=l_text||'</comments>';
97     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
98     l_text:='<date_to>';
99     l_text:=l_text||fnd_date.date_to_canonical(p_date_to);
100     l_text:=l_text||'</date_to>';
101     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
102     l_text:='<description>';
103     l_text:=l_text||irc_utilities_pkg.removeTags(p_description);
104     l_text:=l_text||'</description>';
105     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
106     l_text:='<attribute_category>';
107     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
108     l_text:=l_text||'</attribute_category>';
109     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
110     l_text:='<attribute1>';
111     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
112     l_text:=l_text||'</attribute1>';
113     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
114     l_text:='<attribute2>';
115     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
116     l_text:=l_text||'</attribute2>';
117     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
118     l_text:='<attribute3>';
119     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
120     l_text:=l_text||'</attribute3>';
121     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
122     l_text:='<attribute4>';
123     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
124     l_text:=l_text||'</attribute4>';
125     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
126     l_text:='<attribute5>';
127     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
128     l_text:=l_text||'</attribute5>';
129     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
130     l_text:='<attribute6>';
131     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
132     l_text:=l_text||'</attribute6>';
133     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
134     l_text:='<attribute7>';
135     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
136     l_text:=l_text||'</attribute7>';
137     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
138     l_text:='<attribute8>';
139     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
140     l_text:=l_text||'</attribute8>';
141     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
142     l_text:='<attribute9>';
143     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
144     l_text:=l_text||'</attribute9>';
145     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
146     l_text:='<attribute10>';
147     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
148     l_text:=l_text||'</attribute10>';
149     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
150     l_text:='<attribute11>';
151     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
152     l_text:=l_text||'</attribute11>';
153     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
154     l_text:='<attribute12>';
155     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
156     l_text:=l_text||'</attribute12>';
157     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
158     l_text:='<attribute13>';
159     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
160     l_text:=l_text||'</attribute13>';
161     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
162     l_text:='<attribute14>';
163     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
164     l_text:=l_text||'</attribute14>';
165     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
166     l_text:='<attribute15>';
167     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
168     l_text:=l_text||'</attribute15>';
169     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
170     l_text:='<attribute16>';
171     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
172     l_text:=l_text||'</attribute16>';
173     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
174     l_text:='<attribute17>';
175     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
176     l_text:=l_text||'</attribute17>';
177     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
178     l_text:='<attribute18>';
179     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
180     l_text:=l_text||'</attribute18>';
181     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
182     l_text:='<attribute19>';
183     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
184     l_text:=l_text||'</attribute19>';
185     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
186     l_text:='<attribute20>';
187     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
188     l_text:=l_text||'</attribute20>';
189     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
190     l_text:='<attribute21>';
191     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute21);
192     l_text:=l_text||'</attribute21>';
193     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
194     l_text:='<attribute22>';
195     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute22);
196     l_text:=l_text||'</attribute22>';
197     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
198     l_text:='<attribute23>';
199     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute23);
200     l_text:=l_text||'</attribute23>';
201     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
202     l_text:='<attribute24>';
203     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute24);
204     l_text:=l_text||'</attribute24>';
205     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
206     l_text:='<attribute25>';
207     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute25);
208     l_text:=l_text||'</attribute25>';
209     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
210     l_text:='<attribute26>';
211     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute26);
212     l_text:=l_text||'</attribute26>';
213     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
214     l_text:='<attribute27>';
215     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute27);
216     l_text:=l_text||'</attribute27>';
217     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
218     l_text:='<attribute28>';
219     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute28);
220     l_text:=l_text||'</attribute28>';
221     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
222     l_text:='<attribute29>';
223     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute29);
224     l_text:=l_text||'</attribute29>';
225     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
226     l_text:='<attribute30>';
227     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute30);
228     l_text:=l_text||'</attribute30>';
229     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
230     l_text:='<requisition_id>';
231     l_text:=l_text||fnd_number.number_to_canonical(p_requisition_id);
232     l_text:=l_text||'</requisition_id>';
233     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
234     l_text:='<object_version_number>';
235     l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
236     l_text:=l_text||'</object_version_number>';
237     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
238     l_text:='</requisitions>';
239     --
240     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
241     --
242     -- raise the event with the event data
243     wf_event.raise(p_event_name=>l_event_name
244                   ,p_event_key=>l_event_key
245                   ,p_event_data=>l_event_data);
246     --
247   elsif (l_message='KEY') then
248     hr_utility.set_location(l_proc,30);
249     -- get a key for the event
250     open get_seq;
251     fetch get_seq into l_event_key;
252     close get_seq;
253     -- this is a key event, so just raise the event
254     -- without the event data
255     wf_event.raise(p_event_name=>l_event_name
256                   ,p_event_key=>l_event_key);
257     --
258   elsif (l_message='NONE') then
259     hr_utility.set_location(l_proc,40);
260     -- no event is required, so do nothing
261     null;
262   end if;
263     hr_utility.set_location('Leaving: '||l_proc,50);
264 end create_requisition_a;
265 end per_requisitions_be1;