eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.HR_DELIVERY_METHODS_BE1

Source


1 package body hr_delivery_methods_be1 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 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;