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.PV_ENTYROUT_PUB_W

Source


1 package body pv_entyrout_pub_w as
2   /* $Header: pvrwertb.pls 120.0 2005/05/27 16:21:43 appldev noship $ */
3   rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4   rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 
6   function rosetta_g_miss_num_map(n number) return number as
7     a number := fnd_api.g_miss_num;
8     b number := 0-1962.0724;
9   begin
10     if n=a then return b; end if;
11     if n=b then return a; end if;
12     return n;
13   end;
14 
15   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16   function rosetta_g_miss_date_in_map(d date) return date as
17   begin
18     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19     return d;
20   end;
21 
22   procedure create_entyrout(p_api_version_number  NUMBER
23     , p_init_msg_list  VARCHAR2
24     , p_commit  VARCHAR2
25     , p_validation_level  NUMBER
26     , p_identity_resource_id  NUMBER
27     , x_entity_routing_id out nocopy  NUMBER
28     , x_return_status out nocopy  VARCHAR2
29     , x_msg_count out nocopy  NUMBER
30     , x_msg_data out nocopy  VARCHAR2
31     , p5_a0  NUMBER := 0-1962.0724
32     , p5_a1  DATE := fnd_api.g_miss_date
33     , p5_a2  NUMBER := 0-1962.0724
34     , p5_a3  DATE := fnd_api.g_miss_date
35     , p5_a4  NUMBER := 0-1962.0724
36     , p5_a5  NUMBER := 0-1962.0724
37     , p5_a6  NUMBER := 0-1962.0724
38     , p5_a7  NUMBER := 0-1962.0724
39     , p5_a8  NUMBER := 0-1962.0724
40     , p5_a9  NUMBER := 0-1962.0724
41     , p5_a10  DATE := fnd_api.g_miss_date
42     , p5_a11  NUMBER := 0-1962.0724
43     , p5_a12  NUMBER := 0-1962.0724
44     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
45     , p5_a14  NUMBER := 0-1962.0724
46     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
47     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
48     , p5_a17  NUMBER := 0-1962.0724
49     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
50     , p5_a19  NUMBER := 0-1962.0724
51     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
52     , p5_a21  NUMBER := 0-1962.0724
53     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
54     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
55     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
56     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
57     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
58     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
59     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
60     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
61     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
62     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
63     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
64     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
65     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
66     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
67     , p5_a36  VARCHAR2 := fnd_api.g_miss_char
68     , p5_a37  VARCHAR2 := fnd_api.g_miss_char
69     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
70   )
71 
72   as
73     ddp_entyrout_rec pv_rule_rectype_pub.entyrout_rec_type;
74     ddindx binary_integer; indx binary_integer;
75   begin
76 
77     -- copy data to the local IN or IN-OUT args, if any
78 
79 
80 
81 
82 
83     ddp_entyrout_rec.entity_routing_id := rosetta_g_miss_num_map(p5_a0);
84     ddp_entyrout_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
85     ddp_entyrout_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
86     ddp_entyrout_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
87     ddp_entyrout_rec.created_by := rosetta_g_miss_num_map(p5_a4);
88     ddp_entyrout_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
89     ddp_entyrout_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
90     ddp_entyrout_rec.request_id := rosetta_g_miss_num_map(p5_a7);
91     ddp_entyrout_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
92     ddp_entyrout_rec.program_id := rosetta_g_miss_num_map(p5_a9);
93     ddp_entyrout_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
94     ddp_entyrout_rec.process_rule_id := rosetta_g_miss_num_map(p5_a11);
95     ddp_entyrout_rec.distance_from_customer := rosetta_g_miss_num_map(p5_a12);
96     ddp_entyrout_rec.distance_uom_code := p5_a13;
97     ddp_entyrout_rec.max_nearest_partner := rosetta_g_miss_num_map(p5_a14);
98     ddp_entyrout_rec.routing_type := p5_a15;
99     ddp_entyrout_rec.bypass_cm_ok_flag := p5_a16;
100     ddp_entyrout_rec.cm_timeout := rosetta_g_miss_num_map(p5_a17);
101     ddp_entyrout_rec.cm_timeout_uom_code := p5_a18;
102     ddp_entyrout_rec.partner_timeout := rosetta_g_miss_num_map(p5_a19);
103     ddp_entyrout_rec.partner_timeout_uom_code := p5_a20;
104     ddp_entyrout_rec.unmatched_int_resource_id := rosetta_g_miss_num_map(p5_a21);
105     ddp_entyrout_rec.unmatched_call_tap_flag := p5_a22;
106     ddp_entyrout_rec.attribute_category := p5_a23;
107     ddp_entyrout_rec.attribute1 := p5_a24;
108     ddp_entyrout_rec.attribute2 := p5_a25;
109     ddp_entyrout_rec.attribute3 := p5_a26;
110     ddp_entyrout_rec.attribute4 := p5_a27;
111     ddp_entyrout_rec.attribute5 := p5_a28;
112     ddp_entyrout_rec.attribute6 := p5_a29;
113     ddp_entyrout_rec.attribute7 := p5_a30;
114     ddp_entyrout_rec.attribute8 := p5_a31;
115     ddp_entyrout_rec.attribute9 := p5_a32;
116     ddp_entyrout_rec.attribute10 := p5_a33;
117     ddp_entyrout_rec.attribute11 := p5_a34;
118     ddp_entyrout_rec.attribute12 := p5_a35;
119     ddp_entyrout_rec.attribute13 := p5_a36;
120     ddp_entyrout_rec.attribute14 := p5_a37;
121     ddp_entyrout_rec.attribute15 := p5_a38;
122 
123 
124 
125 
126 
127     -- here's the delegated call to the old PL/SQL routine
128     pv_entyrout_pub.create_entyrout(p_api_version_number,
129       p_init_msg_list,
130       p_commit,
131       p_validation_level,
132       p_identity_resource_id,
133       ddp_entyrout_rec,
134       x_entity_routing_id,
135       x_return_status,
136       x_msg_count,
137       x_msg_data);
138 
139     -- copy data back from the local variables to OUT or IN-OUT args, if any
140 
141 
142 
143 
144 
145 
146 
147 
148 
149   end;
150 
151   procedure update_entyrout(p_api_version_number  NUMBER
152     , p_init_msg_list  VARCHAR2
153     , p_commit  VARCHAR2
154     , p_validation_level  NUMBER
155     , p_identity_resource_id  NUMBER
156     , x_return_status out nocopy  VARCHAR2
157     , x_msg_count out nocopy  NUMBER
158     , x_msg_data out nocopy  VARCHAR2
159     , p5_a0  NUMBER := 0-1962.0724
160     , p5_a1  DATE := fnd_api.g_miss_date
161     , p5_a2  NUMBER := 0-1962.0724
162     , p5_a3  DATE := fnd_api.g_miss_date
163     , p5_a4  NUMBER := 0-1962.0724
164     , p5_a5  NUMBER := 0-1962.0724
165     , p5_a6  NUMBER := 0-1962.0724
166     , p5_a7  NUMBER := 0-1962.0724
167     , p5_a8  NUMBER := 0-1962.0724
168     , p5_a9  NUMBER := 0-1962.0724
169     , p5_a10  DATE := fnd_api.g_miss_date
170     , p5_a11  NUMBER := 0-1962.0724
171     , p5_a12  NUMBER := 0-1962.0724
172     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
173     , p5_a14  NUMBER := 0-1962.0724
174     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
175     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
176     , p5_a17  NUMBER := 0-1962.0724
177     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
178     , p5_a19  NUMBER := 0-1962.0724
179     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
180     , p5_a21  NUMBER := 0-1962.0724
181     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
182     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
183     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
184     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
185     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
186     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
187     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
188     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
189     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
190     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
191     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
192     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
193     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
194     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
195     , p5_a36  VARCHAR2 := fnd_api.g_miss_char
196     , p5_a37  VARCHAR2 := fnd_api.g_miss_char
197     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
198   )
199 
200   as
201     ddp_entyrout_rec pv_rule_rectype_pub.entyrout_rec_type;
202     ddindx binary_integer; indx binary_integer;
203   begin
204 
205     -- copy data to the local IN or IN-OUT args, if any
206 
207 
208 
209 
210 
211     ddp_entyrout_rec.entity_routing_id := rosetta_g_miss_num_map(p5_a0);
212     ddp_entyrout_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
213     ddp_entyrout_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
214     ddp_entyrout_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
215     ddp_entyrout_rec.created_by := rosetta_g_miss_num_map(p5_a4);
216     ddp_entyrout_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
217     ddp_entyrout_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
218     ddp_entyrout_rec.request_id := rosetta_g_miss_num_map(p5_a7);
219     ddp_entyrout_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
220     ddp_entyrout_rec.program_id := rosetta_g_miss_num_map(p5_a9);
221     ddp_entyrout_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
222     ddp_entyrout_rec.process_rule_id := rosetta_g_miss_num_map(p5_a11);
223     ddp_entyrout_rec.distance_from_customer := rosetta_g_miss_num_map(p5_a12);
224     ddp_entyrout_rec.distance_uom_code := p5_a13;
225     ddp_entyrout_rec.max_nearest_partner := rosetta_g_miss_num_map(p5_a14);
226     ddp_entyrout_rec.routing_type := p5_a15;
227     ddp_entyrout_rec.bypass_cm_ok_flag := p5_a16;
228     ddp_entyrout_rec.cm_timeout := rosetta_g_miss_num_map(p5_a17);
229     ddp_entyrout_rec.cm_timeout_uom_code := p5_a18;
230     ddp_entyrout_rec.partner_timeout := rosetta_g_miss_num_map(p5_a19);
231     ddp_entyrout_rec.partner_timeout_uom_code := p5_a20;
232     ddp_entyrout_rec.unmatched_int_resource_id := rosetta_g_miss_num_map(p5_a21);
233     ddp_entyrout_rec.unmatched_call_tap_flag := p5_a22;
234     ddp_entyrout_rec.attribute_category := p5_a23;
235     ddp_entyrout_rec.attribute1 := p5_a24;
236     ddp_entyrout_rec.attribute2 := p5_a25;
237     ddp_entyrout_rec.attribute3 := p5_a26;
238     ddp_entyrout_rec.attribute4 := p5_a27;
239     ddp_entyrout_rec.attribute5 := p5_a28;
240     ddp_entyrout_rec.attribute6 := p5_a29;
241     ddp_entyrout_rec.attribute7 := p5_a30;
242     ddp_entyrout_rec.attribute8 := p5_a31;
243     ddp_entyrout_rec.attribute9 := p5_a32;
244     ddp_entyrout_rec.attribute10 := p5_a33;
245     ddp_entyrout_rec.attribute11 := p5_a34;
246     ddp_entyrout_rec.attribute12 := p5_a35;
247     ddp_entyrout_rec.attribute13 := p5_a36;
248     ddp_entyrout_rec.attribute14 := p5_a37;
249     ddp_entyrout_rec.attribute15 := p5_a38;
250 
251 
252 
253 
254     -- here's the delegated call to the old PL/SQL routine
255     pv_entyrout_pub.update_entyrout(p_api_version_number,
256       p_init_msg_list,
257       p_commit,
258       p_validation_level,
259       p_identity_resource_id,
260       ddp_entyrout_rec,
261       x_return_status,
262       x_msg_count,
263       x_msg_data);
264 
265     -- copy data back from the local variables to OUT or IN-OUT args, if any
266 
267 
268 
269 
270 
271 
272 
273 
274   end;
275 
276   procedure delete_entyrout(p_api_version_number  NUMBER
277     , p_init_msg_list  VARCHAR2
278     , p_commit  VARCHAR2
279     , p_validation_level  NUMBER
280     , p_identity_resource_id  NUMBER
281     , x_return_status out nocopy  VARCHAR2
282     , x_msg_count out nocopy  NUMBER
283     , x_msg_data out nocopy  VARCHAR2
284     , p5_a0  NUMBER := 0-1962.0724
285     , p5_a1  DATE := fnd_api.g_miss_date
286     , p5_a2  NUMBER := 0-1962.0724
287     , p5_a3  DATE := fnd_api.g_miss_date
288     , p5_a4  NUMBER := 0-1962.0724
289     , p5_a5  NUMBER := 0-1962.0724
290     , p5_a6  NUMBER := 0-1962.0724
291     , p5_a7  NUMBER := 0-1962.0724
292     , p5_a8  NUMBER := 0-1962.0724
293     , p5_a9  NUMBER := 0-1962.0724
294     , p5_a10  DATE := fnd_api.g_miss_date
295     , p5_a11  NUMBER := 0-1962.0724
296     , p5_a12  NUMBER := 0-1962.0724
297     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
298     , p5_a14  NUMBER := 0-1962.0724
299     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
300     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
301     , p5_a17  NUMBER := 0-1962.0724
302     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
303     , p5_a19  NUMBER := 0-1962.0724
304     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
305     , p5_a21  NUMBER := 0-1962.0724
306     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
307     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
308     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
309     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
310     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
311     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
312     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
313     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
314     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
315     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
316     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
317     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
318     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
319     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
320     , p5_a36  VARCHAR2 := fnd_api.g_miss_char
321     , p5_a37  VARCHAR2 := fnd_api.g_miss_char
322     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
323   )
324 
325   as
326     ddp_entyrout_rec pv_rule_rectype_pub.entyrout_rec_type;
327     ddindx binary_integer; indx binary_integer;
328   begin
329 
330     -- copy data to the local IN or IN-OUT args, if any
331 
332 
333 
334 
335 
336     ddp_entyrout_rec.entity_routing_id := rosetta_g_miss_num_map(p5_a0);
337     ddp_entyrout_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a1);
338     ddp_entyrout_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
339     ddp_entyrout_rec.creation_date := rosetta_g_miss_date_in_map(p5_a3);
340     ddp_entyrout_rec.created_by := rosetta_g_miss_num_map(p5_a4);
341     ddp_entyrout_rec.last_update_login := rosetta_g_miss_num_map(p5_a5);
342     ddp_entyrout_rec.object_version_number := rosetta_g_miss_num_map(p5_a6);
343     ddp_entyrout_rec.request_id := rosetta_g_miss_num_map(p5_a7);
344     ddp_entyrout_rec.program_application_id := rosetta_g_miss_num_map(p5_a8);
345     ddp_entyrout_rec.program_id := rosetta_g_miss_num_map(p5_a9);
346     ddp_entyrout_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
347     ddp_entyrout_rec.process_rule_id := rosetta_g_miss_num_map(p5_a11);
348     ddp_entyrout_rec.distance_from_customer := rosetta_g_miss_num_map(p5_a12);
349     ddp_entyrout_rec.distance_uom_code := p5_a13;
350     ddp_entyrout_rec.max_nearest_partner := rosetta_g_miss_num_map(p5_a14);
351     ddp_entyrout_rec.routing_type := p5_a15;
352     ddp_entyrout_rec.bypass_cm_ok_flag := p5_a16;
353     ddp_entyrout_rec.cm_timeout := rosetta_g_miss_num_map(p5_a17);
354     ddp_entyrout_rec.cm_timeout_uom_code := p5_a18;
355     ddp_entyrout_rec.partner_timeout := rosetta_g_miss_num_map(p5_a19);
356     ddp_entyrout_rec.partner_timeout_uom_code := p5_a20;
357     ddp_entyrout_rec.unmatched_int_resource_id := rosetta_g_miss_num_map(p5_a21);
358     ddp_entyrout_rec.unmatched_call_tap_flag := p5_a22;
359     ddp_entyrout_rec.attribute_category := p5_a23;
360     ddp_entyrout_rec.attribute1 := p5_a24;
361     ddp_entyrout_rec.attribute2 := p5_a25;
362     ddp_entyrout_rec.attribute3 := p5_a26;
363     ddp_entyrout_rec.attribute4 := p5_a27;
364     ddp_entyrout_rec.attribute5 := p5_a28;
365     ddp_entyrout_rec.attribute6 := p5_a29;
366     ddp_entyrout_rec.attribute7 := p5_a30;
367     ddp_entyrout_rec.attribute8 := p5_a31;
368     ddp_entyrout_rec.attribute9 := p5_a32;
369     ddp_entyrout_rec.attribute10 := p5_a33;
370     ddp_entyrout_rec.attribute11 := p5_a34;
371     ddp_entyrout_rec.attribute12 := p5_a35;
372     ddp_entyrout_rec.attribute13 := p5_a36;
373     ddp_entyrout_rec.attribute14 := p5_a37;
374     ddp_entyrout_rec.attribute15 := p5_a38;
375 
376 
377 
378 
379     -- here's the delegated call to the old PL/SQL routine
380     pv_entyrout_pub.delete_entyrout(p_api_version_number,
381       p_init_msg_list,
382       p_commit,
383       p_validation_level,
384       p_identity_resource_id,
385       ddp_entyrout_rec,
386       x_return_status,
387       x_msg_count,
388       x_msg_data);
389 
390     -- copy data back from the local variables to OUT or IN-OUT args, if any
391 
392 
393 
394 
395 
396 
397 
398 
399   end;
400 
401 end pv_entyrout_pub_w;