[Home] [Help]
PACKAGE BODY: APPS.WSH_TPA_DELIVERY_PKG
Source
1 PACKAGE BODY WSH_TPA_DELIVERY_PKG AS
2 /* $Header: WSHTPDEB.pls 115.3 2002/11/12 01:55:27 nparikh ship $ */
3 --{
4 --
5 --
6 -- =================================================================
7 -- *** PLEASE DO NOT EDIT THIS FILE. ***
8 -- *** THIS FILE IS ALWAYS GENERATED BY TPA GENERATE UTILITY. ***
9 -- =================================================================
10 --
11 FUNCTION Check_Req_Date_Match
12 (
13 p_delivery_id IN NUMBER,
14 p_del_date IN DATE,
15 p_detail_date IN DATE
16 )
17 RETURN BOOLEAN
18 IS
19 --{
20 --
21 --
22 --
23 -- Internal Variables
24 --
25 l_return_value BOOLEAN;
26 --
27 k_program_unit_id CONSTANT NUMBER := 11323;
28 --
29 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
30 --
31 l_customization_level VARCHAR2(32767);
32 --
33 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
34 --
35 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
36 --
37 --
38 --
39 --}
40 BEGIN
41 --{
42 --
43 --
44 l_return_value := WSH_DELIVERY_AUTOCREATE.Check_Req_Date_Match
45 (
46 p_delivery_id => p_delivery_id,
47 p_del_date => p_del_date,
48 p_detail_date => p_detail_date
49 )
50 ;
51 --
52 --
53 RETURN (l_return_value);
54 --
55 --
56 --}
57 EXCEPTION
58 --{
59 --
60 --
61 WHEN OTHERS THEN
62 RAISE ;
63 --
64 --
65 --}
66 END Check_Req_Date_Match;
67 --
68 --
69 FUNCTION Check_Sch_Date_Match
70 (
71 p_delivery_id IN NUMBER,
72 p_del_date IN DATE,
73 p_detail_date IN DATE
74 )
75 RETURN BOOLEAN
76 IS
77 --{
78 --
79 --
80 --
81 -- Internal Variables
82 --
83 l_return_value BOOLEAN;
84 --
85 k_program_unit_id CONSTANT NUMBER := 11322;
86 --
87 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
88 --
89 l_customization_level VARCHAR2(32767);
90 --
91 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
92 --
93 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
94 --
95 --
96 --
97 --}
98 BEGIN
99 --{
100 --
101 --
102 l_return_value := WSH_DELIVERY_AUTOCREATE.Check_Sch_Date_Match
103 (
104 p_delivery_id => p_delivery_id,
105 p_del_date => p_del_date,
106 p_detail_date => p_detail_date
107 )
108 ;
109 --
110 --
111 RETURN (l_return_value);
112 --
113 --
114 --}
115 EXCEPTION
116 --{
117 --
118 --
119 WHEN OTHERS THEN
120 RAISE ;
121 --
122 --
123 --}
124 END Check_Sch_Date_Match;
125 --
126 --
127 PROCEDURE Check_Calendar
128 (
129 p_entity_type IN VARCHAR2,
130 p_entity_id IN NUMBER,
131 p_ship_date IN DATE,
132 p_ship_assoc_type IN VARCHAR2,
133 p_ship_location_id IN NUMBER,
134 p_freight_code IN VARCHAR2,
135 p_freight_org_id IN NUMBER,
136 p_receive_date IN DATE,
137 p_receive_assoc_type IN VARCHAR2,
138 p_receive_location_id IN NUMBER,
139 p_update_flag IN VARCHAR2,
140 x_return_status OUT NOCOPY VARCHAR2
141 )
142 IS
143 --{
144 --
145 --
146 --
147 -- Internal Variables
148 --
149 k_program_unit_id CONSTANT NUMBER := 11319;
150 --
151 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
152 --
153 l_customization_level VARCHAR2(32767);
154 --
155 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
156 --
157 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
158 --
159 --
160 --
161 --}
162 BEGIN
163 --{
164 --
165 --
166 WSH_DELIVERY_VALIDATIONS.Check_Calendar
167 (
168 p_entity_type => p_entity_type,
169 p_entity_id => p_entity_id,
170 p_ship_date => p_ship_date,
171 p_ship_assoc_type => p_ship_assoc_type,
172 p_ship_location_id => p_ship_location_id,
173 p_freight_code => p_freight_code,
174 p_freight_org_id => p_freight_org_id,
175 p_receive_date => p_receive_date,
176 p_receive_assoc_type => p_receive_assoc_type,
177 p_receive_location_id => p_receive_location_id,
178 p_update_flag => p_update_flag,
179 x_return_status => x_return_status
180 )
181 ;
182 --
183 --
184 --}
185 EXCEPTION
186 --{
187 --
188 --
189 WHEN OTHERS THEN
190 RAISE ;
191 --
192 --
193 --}
194 END Check_Calendar;
195 --
196 --
197 PROCEDURE Check_Del_Final_Dest
198 (
199 p_delivery_id IN NUMBER,
200 p_final_dropoff_id IN NUMBER,
201 p_ultimate_dropoff_id IN NUMBER,
202 x_return_status OUT NOCOPY VARCHAR2
203 )
204 IS
205 --{
206 --
207 --
208 --
209 -- Internal Variables
210 --
211 k_program_unit_id CONSTANT NUMBER := 11318;
212 --
213 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
214 --
215 l_customization_level VARCHAR2(32767);
216 --
217 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
218 --
219 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
220 --
221 --
222 --
223 --}
224 BEGIN
225 --{
226 --
227 --
228 WSH_DELIVERY_VALIDATIONS.Check_Del_Final_Dest
229 (
230 p_delivery_id => p_delivery_id,
231 p_final_dropoff_id => p_final_dropoff_id,
232 p_ultimate_dropoff_id => p_ultimate_dropoff_id,
233 x_return_status => x_return_status
234 )
235 ;
236 --
237 --
238 --}
239 EXCEPTION
240 --{
241 --
242 --
243 WHEN OTHERS THEN
244 RAISE ;
245 --
246 --
247 --}
248 END Check_Del_Final_Dest;
249 --
250 --
251 PROCEDURE Check_Del_Underfilled
252 (
253 p_delivery_id IN NUMBER,
254 p_cont_exists_flag IN BOOLEAN,
255 p_underfilled_flag IN BOOLEAN,
256 x_return_status OUT NOCOPY VARCHAR2
257 )
258 IS
259 --{
260 --
261 --
262 --
263 -- Internal Variables
264 --
265 k_program_unit_id CONSTANT NUMBER := 11317;
266 --
267 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
268 --
269 l_customization_level VARCHAR2(32767);
270 --
271 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
272 --
273 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
274 --
275 --
276 --
277 --}
278 BEGIN
279 --{
280 --
281 --
282 WSH_DELIVERY_VALIDATIONS.Check_Del_Underfilled
283 (
284 p_delivery_id => p_delivery_id,
285 p_cont_exists_flag => p_cont_exists_flag,
286 p_underfilled_flag => p_underfilled_flag,
287 x_return_status => x_return_status
288 )
289 ;
290 --
291 --
292 --}
293 EXCEPTION
294 --{
295 --
296 --
297 WHEN OTHERS THEN
298 RAISE ;
299 --
300 --
301 --}
302 END Check_Del_Underfilled;
303 --
304 --
305 PROCEDURE Check_Del_Overfilled
306 (
307 p_delivery_id IN NUMBER,
308 p_cont_exists_flag IN BOOLEAN,
309 p_overfilled_flag IN BOOLEAN,
310 x_return_status OUT NOCOPY VARCHAR2
311 )
312 IS
313 --{
314 --
315 --
316 --
317 -- Internal Variables
318 --
319 k_program_unit_id CONSTANT NUMBER := 11316;
320 --
321 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
322 --
323 l_customization_level VARCHAR2(32767);
324 --
325 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
326 --
327 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
328 --
329 --
330 --
331 --}
332 BEGIN
333 --{
334 --
335 --
336 WSH_DELIVERY_VALIDATIONS.Check_Del_Overfilled
337 (
338 p_delivery_id => p_delivery_id,
339 p_cont_exists_flag => p_cont_exists_flag,
340 p_overfilled_flag => p_overfilled_flag,
341 x_return_status => x_return_status
342 )
343 ;
344 --
345 --
346 --}
347 EXCEPTION
348 --{
349 --
350 --
351 WHEN OTHERS THEN
352 RAISE ;
353 --
354 --
355 --}
356 END Check_Del_Overfilled;
357 --
358 --
359 PROCEDURE Check_Del_Unpacked
360 (
361 p_delivery_id IN NUMBER,
362 p_cont_exists_flag IN BOOLEAN,
363 p_unpacked_flag IN BOOLEAN,
364 x_return_status OUT NOCOPY VARCHAR2
365 )
366 IS
367 --{
368 --
369 --
370 --
371 -- Internal Variables
372 --
373 k_program_unit_id CONSTANT NUMBER := 11315;
374 --
375 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
376 --
377 l_customization_level VARCHAR2(32767);
378 --
379 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
380 --
381 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
382 --
383 --
384 --
385 --}
386 BEGIN
387 --{
388 --
389 --
390 WSH_DELIVERY_VALIDATIONS.Check_Del_Unpacked
391 (
392 p_delivery_id => p_delivery_id,
393 p_cont_exists_flag => p_cont_exists_flag,
394 p_unpacked_flag => p_unpacked_flag,
395 x_return_status => x_return_status
396 )
397 ;
398 --
399 --
400 --}
401 EXCEPTION
402 --{
403 --
404 --
405 WHEN OTHERS THEN
406 RAISE ;
407 --
408 --
409 --}
410 END Check_Del_Unpacked;
411 --
412 --
413 PROCEDURE Check_Released_Lines
414 (
415 p_delivery_id IN NUMBER,
416 rel_num IN NUMBER,
417 unrel_num IN NUMBER,
418 x_return_status OUT NOCOPY VARCHAR2
419 )
420 IS
421 --{
422 --
423 --
424 --
425 -- Internal Variables
426 --
427 k_program_unit_id CONSTANT NUMBER := 11314;
428 --
429 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
430 --
431 l_customization_level VARCHAR2(32767);
432 --
433 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
434 --
435 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
436 --
437 --
438 --
439 --}
440 BEGIN
441 --{
442 --
443 --
444 WSH_DELIVERY_VALIDATIONS.Check_Released_Lines
445 (
446 p_delivery_id => p_delivery_id,
447 rel_num => rel_num,
448 unrel_num => unrel_num,
449 x_return_status => x_return_status
450 )
451 ;
452 --
453 --
454 --}
455 EXCEPTION
456 --{
457 --
458 --
459 WHEN OTHERS THEN
460 RAISE ;
461 --
462 --
463 --}
464 END Check_Released_Lines;
465 --
466 --
467 PROCEDURE Check_Del_Not_I_T
468 (
469 p_delivery_id IN NUMBER,
470 p_delivery_status IN VARCHAR2,
471 x_return_status OUT NOCOPY VARCHAR2
472 )
473 IS
474 --{
475 --
476 --
477 --
478 -- Internal Variables
479 --
480 k_program_unit_id CONSTANT NUMBER := 11313;
481 --
482 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
483 --
484 l_customization_level VARCHAR2(32767);
485 --
486 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
487 --
488 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
489 --
490 --
491 --
492 --}
493 BEGIN
494 --{
495 --
496 --
497 WSH_DELIVERY_VALIDATIONS.Check_Del_Not_I_T
498 (
499 p_delivery_id => p_delivery_id,
500 p_delivery_status => p_delivery_status,
501 x_return_status => x_return_status
502 )
503 ;
504 --
505 --
506 --}
507 EXCEPTION
508 --{
509 --
510 --
511 WHEN OTHERS THEN
512 RAISE ;
513 --
514 --
515 --}
516 END Check_Del_Not_I_T;
517 --
518 --
519 PROCEDURE Check_Arrival_Set
520 (
521 p_delivery_id IN NUMBER,
522 x_valid_flag OUT NOCOPY BOOLEAN,
523 x_return_status OUT NOCOPY VARCHAR2
524 )
525 IS
526 --{
527 --
528 --
529 --
530 -- Internal Variables
531 --
532 k_program_unit_id CONSTANT NUMBER := 11312;
533 --
534 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
535 --
536 l_customization_level VARCHAR2(32767);
537 --
538 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
539 --
540 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
541 --
542 --
543 --
544 --}
545 BEGIN
546 --{
547 --
548 --
549 WSH_DELIVERY_VALIDATIONS.Check_Arrival_Set
550 (
551 p_delivery_id => p_delivery_id,
552 x_valid_flag => x_valid_flag,
553 x_return_status => x_return_status
554 )
555 ;
556 --
557 --
558 --}
559 EXCEPTION
560 --{
561 --
562 --
563 WHEN OTHERS THEN
564 RAISE ;
565 --
566 --
567 --}
568 END Check_Arrival_Set;
569 --
570 --
571 PROCEDURE Check_Smc
572 (
573 p_delivery_id IN NUMBER,
574 x_valid_flag OUT NOCOPY BOOLEAN,
575 x_return_status OUT NOCOPY VARCHAR2
576 )
577 IS
578 --{
579 --
580 --
581 --
582 -- Internal Variables
583 --
584 k_program_unit_id CONSTANT NUMBER := 11311;
585 --
586 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
587 --
588 l_customization_level VARCHAR2(32767);
589 --
590 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
591 --
592 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
593 --
594 --
595 --
596 --}
597 BEGIN
598 --{
599 --
600 --
601 WSH_DELIVERY_VALIDATIONS.Check_Smc
602 (
603 p_delivery_id => p_delivery_id,
604 x_valid_flag => x_valid_flag,
605 x_return_status => x_return_status
606 )
607 ;
608 --
609 --
610 --}
611 EXCEPTION
612 --{
613 --
614 --
615 WHEN OTHERS THEN
616 RAISE ;
617 --
618 --
619 --}
620 END Check_Smc;
621 --
622 --
623 PROCEDURE Check_Ship_Set
624 (
625 p_delivery_id IN NUMBER,
626 x_valid_flag OUT NOCOPY BOOLEAN,
627 x_return_status OUT NOCOPY VARCHAR2
628 )
629 IS
630 --{
631 --
632 --
633 --
634 -- Internal Variables
635 --
636 k_program_unit_id CONSTANT NUMBER := 11310;
637 --
638 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
639 --
640 l_customization_level VARCHAR2(32767);
641 --
642 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
643 --
644 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
645 --
646 --
647 --
648 --}
649 BEGIN
650 --{
651 --
652 --
653 WSH_DELIVERY_VALIDATIONS.Check_Ship_Set
654 (
655 p_delivery_id => p_delivery_id,
656 x_valid_flag => x_valid_flag,
657 x_return_status => x_return_status
658 )
659 ;
660 --
661 --
662 --}
663 EXCEPTION
664 --{
665 --
666 --
667 WHEN OTHERS THEN
668 RAISE ;
669 --
670 --
671 --}
672 END Check_Ship_Set;
673 --
674 --
675 --
676 --}
677 END WSH_TPA_DELIVERY_PKG;
678 --