[Home] [Help]
PACKAGE BODY: APPS.RLM_TPA_SV
Source
1 PACKAGE BODY RLM_TPA_SV AS
2 /* $Header: RLMTPDPB.pls 120.1.12000000.2 2007/07/30 09:27:32 brana 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 PROCEDURE populate_record_cust
12 (
13 x_ship_from_org_id IN NUMBER,
14 x_customer_id IN NUMBER,
15 x_terms_definition_level IN OUT NOCOPY VARCHAR2,
16 x_terms_rec OUT NOCOPY rlm_setup_terms_sv.setup_terms_rec_typ,
17 x_return_message IN OUT NOCOPY VARCHAR2,
18 x_return_status OUT NOCOPY BOOLEAN
19 )
20 IS
21 --{
22 --
23 --
24 --
25 -- Internal Variables
26 --
27 k_program_unit_id CONSTANT NUMBER := 1053;
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 RLM_SETUP_TERMS_SV.populate_record_cust
45 (
46 x_ship_from_org_id => x_ship_from_org_id,
47 x_customer_id => x_customer_id,
48 x_terms_definition_level => x_terms_definition_level,
49 x_terms_rec => x_terms_rec,
50 x_return_message => x_return_message,
51 x_return_status => x_return_status
52 )
53 ;
54 --
55 --
56 --}
57 EXCEPTION
58 --{
59 --
60 --
61 WHEN OTHERS THEN
62 RAISE ;
63 --
64 --
65 --}
66 END populate_record_cust;
67 --
68 --
69 PROCEDURE get_setup_terms
70 (
71 x_ship_from_org_id IN NUMBER,
72 x_customer_id IN NUMBER,
73 x_ship_to_address_id IN NUMBER,
74 x_customer_item_id IN NUMBER,
75 x_terms_definition_level IN OUT NOCOPY VARCHAR2,
76 x_terms_rec OUT NOCOPY rlm_setup_terms_sv.setup_terms_rec_typ,
77 x_return_message OUT NOCOPY VARCHAR2,
78 x_return_status OUT NOCOPY BOOLEAN
79 )
80 IS
81 --{
82 --
83 --
84 --
85 -- Internal Variables
86 --
87 k_program_unit_id CONSTANT NUMBER := 1052;
88 --
89 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
90 --
91 l_customization_level VARCHAR2(32767);
92 --
93 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
94 --
95 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
96 --
97 --
98 --
99 --}
100 BEGIN
101 --{
102 --
103 --
104 RLM_SETUP_TERMS_SV.get_setup_terms
105 (
106 x_ship_from_org_id => x_ship_from_org_id,
107 x_customer_id => x_customer_id,
108 x_ship_to_address_id => x_ship_to_address_id,
109 x_customer_item_id => x_customer_item_id,
110 x_terms_definition_level => x_terms_definition_level,
111 x_terms_rec => x_terms_rec,
112 x_return_message => x_return_message,
113 x_return_status => x_return_status
114 )
115 ;
116 --
117 --
118 --}
119 EXCEPTION
120 --{
121 --
122 --
123 WHEN OTHERS THEN
124 RAISE ;
125 --
126 --
127 --}
128 END get_setup_terms;
129 --
130 --
131 PROCEDURE CheckCUMKeyPO
132 (
133 x_group_rec IN RLM_VALIDATEDEMAND_SV.t_group_rec,
134 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
135 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE
136 )
137 IS
138 --{
139 --
140 --
141 --
142 -- Internal Variables
143 --
144 k_program_unit_id CONSTANT NUMBER := 984;
145 --
146 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
147 --
148 l_customization_level VARCHAR2(32767);
149 --
150 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
151 --
152 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
153 --
154 --
155 --
156 --}
157 BEGIN
158 --{
159 --
160 --
161 RLM_VALIDATEDEMAND_SV.CheckCUMKeyPO
162 (
163 x_group_rec => x_group_rec,
164 x_header_rec => x_header_rec,
165 x_lines_rec => x_lines_rec
166 )
167 ;
168 --
169 --
170 --}
171 EXCEPTION
172 --{
173 --
174 --
175 WHEN OTHERS THEN
176 RAISE ;
177 --
178 --
179 --}
180 END CheckCUMKeyPO;
181 --
182 --
183 PROCEDURE DeriveInventoryItemId
184 (
185 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
186 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE
187 )
188 IS
189 --{
190 --
191 --
192 --
193 -- Internal Variables
194 --
195 k_program_unit_id CONSTANT NUMBER := 976;
196 --
197 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
198 --
199 l_customization_level VARCHAR2(32767);
200 --
201 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
202 --
203 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
204 --
205 --
206 --
207 --}
208 BEGIN
209 --{
210 --
211 --
212 RLM_VALIDATEDEMAND_SV.DeriveInventoryItemId
213 (
214 x_header_rec => x_header_rec,
215 x_lines_rec => x_lines_rec
216 )
217 ;
218 --
219 --
220 --}
221 EXCEPTION
222 --{
223 --
224 --
225 WHEN OTHERS THEN
226 RAISE ;
227 --
228 --
229 --}
230 END DeriveInventoryItemId;
231 --
232 --
233 PROCEDURE InsertOMMessages
234 (
235 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
236 x_Group_rec IN RLM_DP_SV.t_Group_rec,
237 x_msg_count IN NUMBER,
238 x_msg_level IN VARCHAR2,
239 x_token IN VARCHAR2,
240 x_msg_name IN VARCHAR2
241 )
242 IS
243 --{
244 --
245 --
246 --
247 -- Internal Variables
248 --
249 k_program_unit_id CONSTANT NUMBER := 707;
250 --
251 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
252 --
253 l_customization_level VARCHAR2(32767);
254 --
255 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
256 --
257 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
258 --
259 --
260 --
261 --}
262 BEGIN
263 --{
264 --
265 --
266 RLM_BLANKET_SV.InsertOMMessages
267 (
268 x_Sched_rec => x_Sched_rec,
269 x_Group_rec => x_Group_rec,
270 x_msg_count => x_msg_count,
271 x_msg_level => x_msg_level,
272 x_token => x_token,
273 x_msg_name => x_msg_name
274 )
275 ;
276 --
277 --
278 --}
279 EXCEPTION
280 --{
281 --
282 --
283 WHEN OTHERS THEN
284 RAISE ;
285 --
286 --
287 --}
288 END InsertOMMessages;
289 --
290 --
291 PROCEDURE CreateRSOHeader
292 (
293 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
294 x_Group_rec IN RLM_DP_SV.t_Group_rec,
295 x_rso_hdr_id OUT NOCOPY NUMBER
296 )
297 IS
298 --{
299 --
300 --
301 --
302 -- Internal Variables
303 --
304 k_program_unit_id CONSTANT NUMBER := 706;
305 --
306 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
307 --
308 l_customization_level VARCHAR2(32767);
309 --
310 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
311 --
312 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
313 --
314 --
315 --
316 --}
317 BEGIN
318 --{
319 --
320 --
321 RLM_BLANKET_SV.CreateRSOHeader
322 (
323 x_Sched_rec => x_Sched_rec,
324 x_Group_rec => x_Group_rec,
325 x_rso_hdr_id => x_rso_hdr_id
326 )
327 ;
328 --
329 --
330 --}
331 EXCEPTION
332 --{
333 --
334 --
335 WHEN OTHERS THEN
336 RAISE ;
337 --
338 --
339 --}
340 END CreateRSOHeader;
341 --
342 --
343 PROCEDURE InsertRSO
344 (
345 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
346 x_Group_rec IN RLM_DP_SV.t_Group_rec,
347 p_rso_hdr_id IN NUMBER,
348 p_start_date IN DATE,
349 p_end_date IN DATE
350 )
351 IS
352 --{
353 --
354 --
355 --
356 -- Internal Variables
357 --
358 k_program_unit_id CONSTANT NUMBER := 705;
359 --
360 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
361 --
362 l_customization_level VARCHAR2(32767);
363 --
364 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
365 --
366 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
367 --
368 --
369 --
370 --}
371 BEGIN
372 --{
373 --
374 --
375 RLM_BLANKET_SV.InsertRSO
376 (
377 x_Sched_rec => x_Sched_rec,
378 x_Group_rec => x_Group_rec,
379 p_rso_hdr_id => p_rso_hdr_id,
380 p_start_date => p_start_date,
381 p_end_date => p_end_date
382 )
383 ;
384 --
385 --
386 --}
387 EXCEPTION
388 --{
389 --
390 --
391 WHEN OTHERS THEN
392 RAISE ;
393 --
394 --
395 --}
396 END InsertRSO;
397 --
398 --
399 PROCEDURE DeriveRSO
400 (
401 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
402 x_Group_rec IN RLM_DP_SV.t_Group_rec,
403 x_return_status OUT NOCOPY NUMBER
404 )
405 IS
406 --{
407 --
408 --
409 --
410 -- Internal Variables
411 --
412 k_program_unit_id CONSTANT NUMBER := 704;
413 --
414 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
415 --
416 l_customization_level VARCHAR2(32767);
417 --
418 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
419 --
420 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
421 --
422 --
423 --
424 --}
425 BEGIN
426 --{
427 --
428 --
429 RLM_BLANKET_SV.DeriveRSO
430 (
431 x_Sched_rec => x_Sched_rec,
432 x_Group_rec => x_Group_rec,
433 x_return_status => x_return_status
434 )
435 ;
436 --
437 --
438 --}
439 EXCEPTION
440 --{
441 --
442 --
443 WHEN OTHERS THEN
444 RAISE ;
445 --
446 --
447 --}
448 END DeriveRSO;
449 --
450 --
451 PROCEDURE ReconcileAction
452 (
453 x_sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
454 x_group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
455 x_key_rec IN OUT NOCOPY RLM_RD_SV.t_key_rec,
456 x_line_id_tab IN RLM_RD_SV.t_matching_line,
457 x_DemandCount IN NUMBER,
458 x_SumOrderedQty IN NUMBER,
459 x_DemandType IN VARCHAR2
460 )
461 IS
462 --{
463 --
464 --
465 --
466 -- Internal Variables
467 --
468 k_program_unit_id CONSTANT NUMBER := 597;
469 --
470 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
471 --
472 l_customization_level VARCHAR2(32767);
473 --
474 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
475 --
476 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
477 --
478 --
479 --
480 --}
481 BEGIN
482 --{
483 --
484 --
485 RLM_RD_SV.ReconcileAction
486 (
487 x_sched_rec => x_sched_rec,
488 x_group_rec => x_group_rec,
489 x_key_rec => x_key_rec,
490 x_line_id_tab => x_line_id_tab,
491 x_DemandCount => x_DemandCount,
492 x_SumOrderedQty => x_SumOrderedQty,
493 x_DemandType => x_DemandType
494 )
495 ;
496 --
497 --
498 --}
499 EXCEPTION
500 --{
501 --
502 --
503 WHEN OTHERS THEN
504 RAISE ;
505 --
506 --
507 --}
508 END ReconcileAction;
509 --
510 --
511 PROCEDURE BuildMatchQuery
512 (
513 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
514 x_Group_Rec IN OUT NOCOPY RLM_DP_SV.t_Group_rec,
515 x_Demand_Type IN VARCHAR2,
516 x_Sql OUT NOCOPY VARCHAR2,
517 x_Sql1 OUT NOCOPY VARCHAR2,
518 x_Sql2 OUT NOCOPY VARCHAR2,
519 x_Sum_Sql OUT NOCOPY VARCHAR2
520 )
521 IS
522 --{
523 --
524 --
525 --
526 -- Internal Variables
527 --
528 k_program_unit_id CONSTANT NUMBER := 596;
529 --
530 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
531 --
532 l_customization_level VARCHAR2(32767);
533 --
534 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
535 --
536 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
537 --
538 --
539 --
540 --}
541 BEGIN
542 --{
543 --
544 --
545 RLM_RD_SV.BuildMatchQuery
546 (
547 x_Sched_rec => x_Sched_rec,
548 x_Group_Rec => x_Group_Rec,
549 x_Demand_Type => x_Demand_Type,
550 x_Sql => x_Sql,
551 x_Sql1 => x_Sql1,
552 x_Sql2 => x_Sql2,
553 x_Sum_Sql => x_Sum_Sql
554 )
555 ;
556 --
557 --
558 --}
559 EXCEPTION
560 --{
561 --
562 --
563 WHEN OTHERS THEN
564 RAISE ;
565 --
566 --
567 --}
568 END BuildMatchQuery;
569 --
570 --
571 PROCEDURE OtherDemand
572 (
573 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
574 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
575 x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
576 x_Demand_ref IN OUT NOCOPY RLM_RD_SV.t_Cursor_ref
577 )
578 IS
579 --{
580 --
581 --
582 --
583 -- Internal Variables
584 --
585 k_program_unit_id CONSTANT NUMBER := 595;
586 --
587 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
588 --
589 l_customization_level VARCHAR2(32767);
590 --
591 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
592 --
593 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
594 --
595 --
596 --
597 --}
598 BEGIN
599 --{
600 --
601 --
602 RLM_RD_SV.OtherDemand
603 (
604 x_Sched_rec => x_Sched_rec,
605 x_Group_rec => x_Group_rec,
606 x_Key_rec => x_Key_rec,
607 x_Demand_ref => x_Demand_ref
608 )
609 ;
610 --
611 --
612 --}
613 EXCEPTION
614 --{
615 --
616 --
617 WHEN OTHERS THEN
618 RAISE ;
619 --
620 --
621 --}
622 END OtherDemand;
623 --
624 --
625 PROCEDURE DecreaseDemand
626 (
627 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
628 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
629 x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
630 x_Demand_ref IN OUT NOCOPY RLM_RD_SV.t_Cursor_ref,
631 x_SumOrderedQty IN NUMBER
632 )
633 IS
634 --{
635 --
636 --
637 --
638 -- Internal Variables
639 --
640 k_program_unit_id CONSTANT NUMBER := 594;
641 --
642 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
643 --
644 l_customization_level VARCHAR2(32767);
645 --
646 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
647 --
648 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
649 --
650 --
651 --
652 --}
653 BEGIN
654 --{
655 --
656 --
657 RLM_RD_SV.DecreaseDemand
658 (
659 x_Sched_rec => x_Sched_rec,
660 x_Group_rec => x_Group_rec,
661 x_Key_rec => x_Key_rec,
662 x_Demand_ref => x_Demand_ref,
663 x_SumOrderedQty => x_SumOrderedQty
664 )
665 ;
666 --
667 --
668 --}
669 EXCEPTION
670 --{
671 --
672 --
673 WHEN OTHERS THEN
674 RAISE ;
675 --
676 --
677 --}
678 END DecreaseDemand;
679 --
680 --
681 PROCEDURE DeleteDemand
682 (
683 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
684 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
685 x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
686 x_Demand_ref IN OUT NOCOPY RLM_RD_SV.t_Cursor_ref
687 )
688 IS
689 --{
690 --
691 --
692 --
693 -- Internal Variables
694 --
695 k_program_unit_id CONSTANT NUMBER := 593;
696 --
697 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
698 --
699 l_customization_level VARCHAR2(32767);
700 --
701 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
702 --
703 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
704 --
705 --
706 --
707 --}
708 BEGIN
709 --{
710 --
711 --
712 RLM_RD_SV.DeleteDemand
713 (
714 x_Sched_rec => x_Sched_rec,
715 x_Group_rec => x_Group_rec,
716 x_Key_rec => x_Key_rec,
717 x_Demand_ref => x_Demand_ref
718 )
719 ;
720 --
721 --
722 --}
723 EXCEPTION
724 --{
725 --
726 --
727 WHEN OTHERS THEN
728 RAISE ;
729 --
730 --
731 --}
732 END DeleteDemand;
733 --
734 --
735 PROCEDURE IncreaseDemand
736 (
737 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
738 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
739 x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
740 x_Demand_ref IN OUT NOCOPY RLM_RD_SV.t_Cursor_ref,
741 x_SumOrderedQty IN NUMBER
742 )
743 IS
744 --{
745 --
746 --
747 --
748 -- Internal Variables
749 --
750 k_program_unit_id CONSTANT NUMBER := 592;
751 --
752 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
753 --
754 l_customization_level VARCHAR2(32767);
755 --
756 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
757 --
758 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
759 --
760 --
761 --
762 --}
763 BEGIN
764 --{
765 --
766 --
767 RLM_RD_SV.IncreaseDemand
768 (
769 x_Sched_rec => x_Sched_rec,
770 x_Group_rec => x_Group_rec,
771 x_Key_rec => x_Key_rec,
772 x_Demand_ref => x_Demand_ref,
773 x_SumOrderedQty => x_SumOrderedQty
774 )
775 ;
776 --
777 --
778 --}
779 EXCEPTION
780 --{
781 --
782 --
783 WHEN OTHERS THEN
784 RAISE ;
785 --
786 --
787 --}
788 END IncreaseDemand;
789 --
790 --
791 PROCEDURE UpdateDemand
792 (
793 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
794 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
795 x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
796 x_SumOrderedQty IN NUMBER,
797 x_DemandType IN VARCHAR2
798 )
799 IS
800 --{
801 --
802 --
803 --
804 -- Internal Variables
805 --
806 k_program_unit_id CONSTANT NUMBER := 591;
807 --
808 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
809 --
810 l_customization_level VARCHAR2(32767);
811 --
812 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
813 --
814 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
815 --
816 --
817 --
818 --}
819 BEGIN
820 --{
821 --
822 --
823 RLM_RD_SV.UpdateDemand
824 (
825 x_Sched_rec => x_Sched_rec,
826 x_Group_rec => x_Group_rec,
827 x_Key_rec => x_Key_rec,
828 x_SumOrderedQty => x_SumOrderedQty,
829 x_DemandType => x_DemandType
830 )
831 ;
832 --
833 --
834 --}
835 EXCEPTION
836 --{
837 --
838 --
839 WHEN OTHERS THEN
840 RAISE ;
841 --
842 --
843 --}
844 END UpdateDemand;
845 --
846 --
847 PROCEDURE InsertRequirement
848 (
849 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
850 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
851 x_Key_rec IN OUT NOCOPY RLM_RD_SV.t_Key_rec,
852 x_Reconcile IN BOOLEAN,
853 x_Quantity IN OUT NOCOPY NUMBER
854 )
855 IS
856 --{
857 --
858 --
859 --
860 -- Internal Variables
861 --
862 k_program_unit_id CONSTANT NUMBER := 590;
863 --
864 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
865 --
866 l_customization_level VARCHAR2(32767);
867 --
868 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
869 --
870 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
871 --
872 --
873 --
874 --}
875 BEGIN
876 --{
877 --
878 --
879 RLM_RD_SV.InsertRequirement
880 (
881 x_Sched_rec => x_Sched_rec,
882 x_Group_rec => x_Group_rec,
883 x_Key_rec => x_Key_rec,
884 x_Reconcile => x_Reconcile,
885 x_Quantity => x_Quantity
886 )
887 ;
888 --
889 --
890 --}
891 EXCEPTION
892 --{
893 --
894 --
895 WHEN OTHERS THEN
896 RAISE ;
897 --
898 --
899 --}
900 END InsertRequirement;
901 --
902 --
903 FUNCTION GetIntransitAcrossOrgs
904 (
905 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
906 x_Group_rec IN rlm_dp_sv.t_Group_rec,
907 x_cum_key_id IN NUMBER
908 )
909 RETURN NUMBER
910 IS
911 --{
912 --
913 --
914 --
915 -- Internal Variables
916 --
917 l_return_value NUMBER;
918 --
919 k_program_unit_id CONSTANT NUMBER := 399;
920 --
921 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
922 --
923 l_customization_level VARCHAR2(32767);
924 --
925 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
926 --
927 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
928 --
929 --
930 --
931 --}
932 BEGIN
933 --{
934 --
935 --
936 l_return_value := RLM_MANAGE_DEMAND_SV.GetIntransitAcrossOrgs
937 (
938 x_Sched_rec => x_Sched_rec,
939 x_Group_rec => x_Group_rec,
940 x_cum_key_id => x_cum_key_id
941 )
942 ;
943 --
944 --
945 RETURN (l_return_value);
946 --
947 --
948 --}
949 EXCEPTION
950 --{
951 --
952 --
953 WHEN OTHERS THEN
954 RAISE ;
955 --
956 --
957 --}
958 END GetIntransitAcrossOrgs;
959 --
960 --
961 PROCEDURE InitializeMdGroup
962 (
963 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
964 x_Group_ref IN OUT NOCOPY rlm_manage_demand_sv.t_Cursor_ref,
965 x_Group_rec IN rlm_dp_sv.t_Group_rec
966 )
967 IS
968 --{
969 --
970 --
971 --
972 -- Internal Variables
973 --
974 k_program_unit_id CONSTANT NUMBER := 11560;
975 --
976 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
977 --
978 l_customization_level VARCHAR2(32767);
979 --
980 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
981 --
982 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
983 --
984 --
985 --
986 --}
987 BEGIN
988 --{
989 --
990 --
991 RLM_MANAGE_DEMAND_SV.InitializeMdGroup
992 (
993 x_Sched_rec => x_Sched_rec,
994 x_Group_ref => x_Group_ref,
995 x_Group_rec => x_Group_rec
996 )
997 ;
998 --
999 --
1000 --}
1001 EXCEPTION
1002 --{
1003 --
1004 --
1005 WHEN OTHERS THEN
1006 RAISE ;
1007 --
1008 --
1009 --}
1010 END InitializeMdGroup;
1011 --
1012 --
1013 PROCEDURE InitializeSoGroup
1014 (
1015 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1016 x_Group_ref IN OUT NOCOPY rlm_rd_sv.t_Cursor_ref,
1017 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec
1018 )
1019 IS
1020 --{
1021 --
1022 --
1023 --
1024 -- Internal Variables
1025 --
1026 k_program_unit_id CONSTANT NUMBER := 11563;
1027 --
1028 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1029 --
1030 l_customization_level VARCHAR2(32767);
1031 --
1032 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1033 --
1034 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1035 --
1036 --
1037 --
1038 --}
1039 BEGIN
1040 --{
1041 --
1042 --
1043 RLM_RD_SV.InitializeSoGroup
1044 (
1045 x_Sched_rec => x_Sched_rec,
1046 x_Group_ref => x_Group_ref,
1047 x_Group_rec => x_Group_rec
1048 )
1049 ;
1050 --
1051 --
1052 --}
1053 EXCEPTION
1054 --{
1055 --
1056 --
1057 WHEN OTHERS THEN
1058 RAISE ;
1059 --
1060 --
1061 --}
1062 END InitializeSoGroup;
1063 --
1064 --
1065 PROCEDURE InitializeBlktGrp
1066 (
1067 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1068 x_Group_ref IN OUT NOCOPY rlm_rd_sv.t_Cursor_ref,
1069 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec
1070 )
1071 IS
1072 --{
1073 --
1074 --
1075 --
1076 -- Internal Variables
1077 --
1078 k_program_unit_id CONSTANT NUMBER := 11564;
1079 --
1080 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1081 --
1082 l_customization_level VARCHAR2(32767);
1083 --
1084 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1085 --
1086 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1087 --
1088 --
1089 --
1090 --}
1091 BEGIN
1092 --{
1093 --
1094 --
1095 RLM_RD_SV.InitializeBlktGrp
1096 (
1097 x_Sched_rec => x_Sched_rec,
1098 x_Group_ref => x_Group_ref,
1099 x_Group_rec => x_Group_rec
1100 )
1101 ;
1102 --
1103 --
1104 --}
1105 EXCEPTION
1106 --{
1107 --
1108 --
1109 WHEN OTHERS THEN
1110 RAISE ;
1111 --
1112 --
1113 --}
1114 END InitializeBlktGrp;
1115 --
1116 --
1117 PROCEDURE CalculateCumKey
1118 (
1119 x_cum_key_record IN RLM_CUM_SV.cum_key_attrib_rec_type,
1120 x_cum_record IN OUT NOCOPY RLM_CUM_SV.cum_rec_type
1121 )
1122 IS
1123 --{
1124 --
1125 --
1126 --
1127 -- Internal Variables
1128 --
1129 k_program_unit_id CONSTANT NUMBER := 10689;
1130 --
1131 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1132 --
1133 l_customization_level VARCHAR2(32767);
1134 --
1135 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1136 --
1137 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1138 --
1139 --
1140 --
1141 --}
1142 BEGIN
1143 --{
1144 --
1145 --
1146 RLM_CUM_SV.CalculateCumKey
1147 (
1148 x_cum_key_record => x_cum_key_record,
1149 x_cum_record => x_cum_record
1150 )
1151 ;
1152 --
1153 --
1154 --}
1155 EXCEPTION
1156 --{
1157 --
1158 --
1159 WHEN OTHERS THEN
1160 RAISE ;
1161 --
1162 --
1163 --}
1164 END CalculateCumKey;
1165 --
1166 --
1167 FUNCTION GetAllIntransitQty
1168 (
1169 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1170 x_Group_rec IN rlm_dp_sv.t_Group_rec,
1171 x_Source_Tab IN rlm_manage_demand_sv.t_Source_Tab
1172 )
1173 RETURN NUMBER
1174 IS
1175 --{
1176 --
1177 --
1178 --
1179 -- Internal Variables
1180 --
1181 l_return_value NUMBER;
1182 --
1183 k_program_unit_id CONSTANT NUMBER := 2968;
1184 --
1185 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1186 --
1187 l_customization_level VARCHAR2(32767);
1188 --
1189 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1190 --
1191 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1192 --
1193 --
1194 --
1195 --}
1196 BEGIN
1197 --{
1198 --
1199 --
1200 l_return_value := RLM_MANAGE_DEMAND_SV.GetAllIntransitQty
1201 (
1202 x_Sched_rec => x_Sched_rec,
1203 x_Group_rec => x_Group_rec,
1204 x_Source_Tab => x_Source_Tab
1205 )
1206 ;
1207 --
1208 --
1209 RETURN (l_return_value);
1210 --
1211 --
1212 --}
1213 EXCEPTION
1214 --{
1215 --
1216 --
1217 WHEN OTHERS THEN
1218 RAISE ;
1219 --
1220 --
1221 --}
1222 END GetAllIntransitQty;
1223 --
1224 --
1225 FUNCTION CalculateIntransitQty
1226 (
1227 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1228 x_Group_rec IN rlm_dp_sv.t_Group_rec
1229 )
1230 RETURN NUMBER
1231 IS
1232 --{
1233 --
1234 --
1235 --
1236 -- Internal Variables
1237 --
1238 l_return_value NUMBER;
1239 --
1240 k_program_unit_id CONSTANT NUMBER := 2967;
1241 --
1242 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1243 --
1244 l_customization_level VARCHAR2(32767);
1245 --
1246 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1247 --
1248 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1249 --
1250 --
1251 --
1252 --}
1253 BEGIN
1254 --{
1255 --
1256 --
1257 l_return_value := RLM_MANAGE_DEMAND_SV.CalculateIntransitQty
1258 (
1259 x_Sched_rec => x_Sched_rec,
1260 x_Group_rec => x_Group_rec
1261 )
1262 ;
1263 --
1264 --
1265 RETURN (l_return_value);
1266 --
1267 --
1268 --}
1269 EXCEPTION
1270 --{
1271 --
1272 --
1273 WHEN OTHERS THEN
1274 RAISE ;
1275 --
1276 --
1277 --}
1278 END CalculateIntransitQty;
1279 --
1280 --
1281 PROCEDURE SynchronizeShipments
1282 (
1283 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1284 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec
1285 )
1286 IS
1287 --{
1288 --
1289 --
1290 --
1291 -- Internal Variables
1292 --
1293 k_program_unit_id CONSTANT NUMBER := 2964;
1294 --
1295 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1296 --
1297 l_customization_level VARCHAR2(32767);
1298 --
1299 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1300 --
1301 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1302 --
1303 --
1304 --
1305 --}
1306 BEGIN
1307 --{
1308 --
1309 --
1310 RLM_RD_SV.SynchronizeShipments
1311 (
1312 x_Sched_rec => x_Sched_rec,
1313 x_Group_rec => x_Group_rec
1314 )
1315 ;
1316 --
1317 --
1318 --}
1319 EXCEPTION
1320 --{
1321 --
1322 --
1323 WHEN OTHERS THEN
1324 RAISE ;
1325 --
1326 --
1327 --}
1328 END SynchronizeShipments;
1329 --
1330 --
1331 PROCEDURE ProcessOld
1332 (
1333 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1334 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec
1335 )
1336 IS
1337 --{
1338 --
1339 --
1340 --
1341 -- Internal Variables
1342 --
1343 k_program_unit_id CONSTANT NUMBER := 1839;
1344 --
1345 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1346 --
1347 l_customization_level VARCHAR2(32767);
1348 --
1349 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1350 --
1351 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1352 --
1353 --
1354 --
1355 --}
1356 BEGIN
1357 --{
1358 --
1359 --
1360 RLM_RD_SV.ProcessOld
1361 (
1362 x_Sched_rec => x_Sched_rec,
1363 x_Group_rec => x_Group_rec
1364 )
1365 ;
1366 --
1367 --
1368 --}
1369 EXCEPTION
1370 --{
1371 --
1372 --
1373 WHEN OTHERS THEN
1374 RAISE ;
1375 --
1376 --
1377 --}
1378 END ProcessOld;
1379 --
1380 --
1381 PROCEDURE calc_scheduled_ship_date
1382 (
1383 x_Input IN rlm_ship_delivery_pattern_sv.t_InputRec,
1384 x_QuantityDate OUT NOCOPY rlm_ship_delivery_pattern_sv.t_OutputTable,
1385 x_ReturnMessage OUT NOCOPY rlm_ship_delivery_pattern_sv.t_ErrorMsgTable,
1386 x_ReturnStatus OUT NOCOPY NUMBER
1387 )
1388 IS
1389 --{
1390 --
1391 --
1392 --
1393 -- Internal Variables
1394 --
1395 k_program_unit_id CONSTANT NUMBER := 1560;
1396 --
1397 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1398 --
1399 l_customization_level VARCHAR2(32767);
1400 --
1401 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1402 --
1403 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1404 --
1405 --
1406 --
1407 --}
1408 BEGIN
1409 --{
1410 --
1411 --
1412 RLM_SHIP_DELIVERY_PATTERN_SV.calc_scheduled_ship_date
1413 (
1414 x_Input => x_Input,
1415 x_QuantityDate => x_QuantityDate,
1416 x_ReturnMessage => x_ReturnMessage,
1417 x_ReturnStatus => x_ReturnStatus
1418 )
1419 ;
1420 --
1421 --
1422 --}
1423 EXCEPTION
1424 --{
1425 --
1426 --
1427 WHEN OTHERS THEN
1428 RAISE ;
1429 --
1430 --
1431 --}
1432 END calc_scheduled_ship_date;
1433 --
1434 --
1435 PROCEDURE BuildOELine
1436 (
1437 x_oe_line_rec IN OUT NOCOPY oe_order_pub.line_rec_type,
1438 x_Op_rec IN rlm_rd_sv.t_generic_rec
1439 )
1440 IS
1441 --{
1442 --
1443 --
1444 --
1445 -- Internal Variables
1446 --
1447 k_program_unit_id CONSTANT NUMBER := 1525;
1448 --
1449 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1450 --
1451 l_customization_level VARCHAR2(32767);
1452 --
1453 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1454 --
1455 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1456 --
1457 --
1458 --
1459 --}
1460 BEGIN
1461 --{
1462 --
1463 --
1464 RLM_EXTINTERFACE_SV.BuildOELine
1465 (
1466 x_oe_line_rec => x_oe_line_rec,
1467 x_Op_rec => x_Op_rec
1468 )
1469 ;
1470 --
1471 --
1472 --}
1473 EXCEPTION
1474 --{
1475 --
1476 --
1477 WHEN OTHERS THEN
1478 RAISE ;
1479 --
1480 --
1481 --}
1482 END BuildOELine;
1483 --
1484 --
1485 PROCEDURE EmptyForecast
1486 (
1487 x_sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1488 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
1489 x_forecast IN OUT NOCOPY
1490 mrp_forecast_interface_pk.t_forecast_interface,
1491 x_designator IN OUT NOCOPY
1492 mrp_forecast_interface_pk.t_forecast_designator,
1493 x_t_designator IN OUT NOCOPY
1494 mrp_forecast_interface_pk.t_forecast_designator
1495 )
1496 IS
1497 --{
1498 --
1499 --
1500 --
1501 -- Internal Variables
1502 --
1503 k_program_unit_id CONSTANT NUMBER := 1523;
1504 --
1505 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1506 --
1507 l_customization_level VARCHAR2(32767);
1508 --
1509 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1510 --
1511 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1512 --
1513 --
1514 --
1515 --}
1516 BEGIN
1517 --{
1518 --
1519 --
1520 RLM_FORECAST_SV.EmptyForecast
1521 (
1522 x_sched_rec => x_sched_rec,
1523 x_Group_rec => x_Group_rec,
1524 x_forecast => x_forecast,
1525 x_designator => x_designator,
1526 x_t_designator => x_t_designator
1527 )
1528 ;
1529 --
1530 --
1531 --}
1532 EXCEPTION
1533 --{
1534 --
1535 --
1536 WHEN OTHERS THEN
1537 RAISE ;
1538 --
1539 --
1540 --}
1541 END EmptyForecast;
1542 --
1543 --
1544 PROCEDURE GetDesignator
1545 (
1546 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE DEFAULT NULL,
1547 x_Group_rec IN rlm_dp_sv.t_Group_rec DEFAULT NULL,
1548 x_Customer_id IN NUMBER,
1549 x_ShipFromOrgId IN NUMBER,
1550 x_Ship_Site_Id IN NUMBER,
1551 x_bill_site_id IN NUMBER,
1552 x_bill_address_Id IN NUMBER,
1553 x_ForecastDesignator IN OUT NOCOPY VARCHAR2,
1554 x_ship_to_customer_id IN NUMBER DEFAULT NULL
1555 )
1556 IS
1557 --{
1558 --
1559 --
1560 --
1561 -- Internal Variables
1562 --
1563 k_program_unit_id CONSTANT NUMBER := 1522;
1564 --
1565 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1566 --
1567 l_customization_level VARCHAR2(32767);
1568 --
1569 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1570 --
1571 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1572 --
1573 --
1574 --
1575 --}
1576 BEGIN
1577 --{
1578 --
1579 --
1580 RLM_FORECAST_SV.GetDesignator
1581 (
1582 x_Sched_rec => x_Sched_rec,
1583 x_Group_rec => x_Group_rec,
1584 x_Customer_id => x_Customer_id,
1585 x_ShipFromOrgId => x_ShipFromOrgId,
1586 x_Ship_Site_Id => x_Ship_Site_Id,
1587 x_bill_site_id => x_bill_site_id,
1588 x_bill_address_Id => x_bill_address_Id,
1589 x_ForecastDesignator => x_ForecastDesignator,
1590 x_ship_to_customer_id => x_ship_to_customer_id
1591 )
1592 ;
1593 --
1594 --
1595 --}
1596 EXCEPTION
1597 --{
1598 --
1599 --
1600 WHEN OTHERS THEN
1601 RAISE ;
1602 --
1603 --
1604 --}
1605 END GetDesignator;
1606 --
1607 --
1608 PROCEDURE LoadForecast
1609 (
1610 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1611 x_Group_rec IN rlm_dp_sv.t_Group_rec,
1612 t_forecast IN OUT NOCOPY mrp_forecast_interface_pk.t_forecast_interface,
1613 x_forecast_designator IN mrp_forecast_designators.forecast_designator%TYPE
1614 )
1615 IS
1616 --{
1617 --
1618 --
1619 --
1620 -- Internal Variables
1621 --
1622 k_program_unit_id CONSTANT NUMBER := 1521;
1623 --
1624 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1625 --
1626 l_customization_level VARCHAR2(32767);
1627 --
1628 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1629 --
1630 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1631 --
1632 --
1633 --
1634 --}
1635 BEGIN
1636 --{
1637 --
1638 --
1639 RLM_FORECAST_SV.LoadForecast
1640 (
1641 x_Sched_rec => x_Sched_rec,
1642 x_Group_rec => x_Group_rec,
1643 t_forecast => t_forecast,
1644 x_forecast_designator => x_forecast_designator
1645 )
1646 ;
1647 --
1648 --
1649 --}
1650 EXCEPTION
1651 --{
1652 --
1653 --
1654 WHEN OTHERS THEN
1655 RAISE ;
1656 --
1657 --
1658 --}
1659 END LoadForecast;
1660 --
1661 --
1662 PROCEDURE ProcessTable
1663 (
1664 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1665 x_Group_rec IN rlm_dp_sv.t_Group_rec,
1666 t_Forecast IN mrp_forecast_interface_pk.t_forecast_interface
1667 )
1668 IS
1669 --{
1670 --
1671 --
1672 --
1673 -- Internal Variables
1674 --
1675 k_program_unit_id CONSTANT NUMBER := 1520;
1676 --
1677 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1678 --
1679 l_customization_level VARCHAR2(32767);
1680 --
1681 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1682 --
1683 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1684 --
1685 --
1686 --
1687 --}
1688 BEGIN
1689 --{
1690 --
1691 --
1692 RLM_FORECAST_SV.ProcessTable
1693 (
1694 x_Sched_rec => x_Sched_rec,
1695 x_Group_rec => x_Group_rec,
1696 t_Forecast => t_Forecast
1697 )
1698 ;
1699 --
1700 --
1701 --}
1702 EXCEPTION
1703 --{
1704 --
1705 --
1706 WHEN OTHERS THEN
1707 RAISE ;
1708 --
1709 --
1710 --}
1711 END ProcessTable;
1712 --
1713 --
1714 PROCEDURE UpdateGroupStatus
1715 (
1716 x_header_id IN NUMBER,
1717 x_ScheduleHeaderId IN NUMBER,
1718 x_Group_rec IN rlm_dp_sv.t_Group_rec,
1719 x_status IN NUMBER,
1720 x_UpdateLevel IN VARCHAR2 DEFAULT 'GROUP'
1721 )
1722 IS
1723 --{
1724 --
1725 --
1726 --
1727 -- Internal Variables
1728 --
1729 k_program_unit_id CONSTANT NUMBER := 1519;
1730 --
1731 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1732 --
1733 l_customization_level VARCHAR2(32767);
1734 --
1735 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1736 --
1737 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1738 --
1739 --
1740 --
1741 --}
1742 BEGIN
1743 --{
1744 --
1745 --
1746 RLM_FORECAST_SV.UpdateGroupStatus
1747 (
1748 x_header_id => x_header_id,
1749 x_ScheduleHeaderId => x_ScheduleHeaderId,
1750 x_Group_rec => x_Group_rec,
1751 x_status => x_status,
1752 x_UpdateLevel => x_UpdateLevel
1753 )
1754 ;
1755 --
1756 --
1757 --}
1758 EXCEPTION
1759 --{
1760 --
1761 --
1762 WHEN OTHERS THEN
1763 RAISE ;
1764 --
1765 --
1766 --}
1767 END UpdateGroupStatus;
1768 --
1769 --
1770 PROCEDURE InitializeGroup
1771 (
1772 x_Sched_rec IN rlm_interface_headers%ROWTYPE,
1773 x_Group_ref IN OUT NOCOPY rlm_forecast_sv.t_Cursor_ref,
1774 x_Group_rec IN rlm_dp_sv.t_Group_rec
1775 )
1776 IS
1777 --{
1778 --
1779 --
1780 --
1781 -- Internal Variables
1782 --
1783 k_program_unit_id CONSTANT NUMBER := 1518;
1784 --
1785 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1786 --
1787 l_customization_level VARCHAR2(32767);
1788 --
1789 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1790 --
1791 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1792 --
1793 --
1794 --
1795 --}
1796 BEGIN
1797 --{
1798 --
1799 --
1800 RLM_FORECAST_SV.InitializeGroup
1801 (
1802 x_Sched_rec => x_Sched_rec,
1803 x_Group_ref => x_Group_ref,
1804 x_Group_rec => x_Group_rec
1805 )
1806 ;
1807 --
1808 --
1809 --}
1810 EXCEPTION
1811 --{
1812 --
1813 --
1814 WHEN OTHERS THEN
1815 RAISE ;
1816 --
1817 --
1818 --}
1819 END InitializeGroup;
1820 --
1821 --
1822 PROCEDURE ManageGroupForecast
1823 (
1824 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1825 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
1826 x_forecast IN OUT NOCOPY
1827 mrp_forecast_interface_pk.t_forecast_interface,
1828 x_designator IN OUT NOCOPY
1829 mrp_forecast_interface_pk.t_forecast_designator,
1830 x_ReturnStatus OUT NOCOPY NUMBER
1831 )
1832 IS
1833 --{
1834 --
1835 --
1836 --
1837 -- Internal Variables
1838 --
1839 k_program_unit_id CONSTANT NUMBER := 1517;
1840 --
1841 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1842 --
1843 l_customization_level VARCHAR2(32767);
1844 --
1845 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1846 --
1847 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1848 --
1849 --
1850 --
1851 --}
1852 BEGIN
1853 --{
1854 --
1855 --
1856 RLM_FORECAST_SV.ManageGroupForecast
1857 (
1858 x_Sched_rec => x_Sched_rec,
1859 x_Group_rec => x_Group_rec,
1860 x_forecast => x_forecast,
1861 x_designator => x_designator,
1862 x_ReturnStatus => x_ReturnStatus
1863 )
1864 ;
1865 --
1866 --
1867 --}
1868 EXCEPTION
1869 --{
1870 --
1871 --
1872 WHEN OTHERS THEN
1873 RAISE ;
1874 --
1875 --
1876 --}
1877 END ManageGroupForecast;
1878 --
1879 --
1880 PROCEDURE ManageForecast
1881 (
1882 x_InterfaceHeaderId IN NUMBER,
1883 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
1884 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
1885 x_ReturnStatus OUT NOCOPY NUMBER
1886 )
1887 IS
1888 --{
1889 --
1890 --
1891 --
1892 -- Internal Variables
1893 --
1894 k_program_unit_id CONSTANT NUMBER := 1516;
1895 --
1896 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1897 --
1898 l_customization_level VARCHAR2(32767);
1899 --
1900 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1901 --
1902 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1903 --
1904 --
1905 --
1906 --}
1907 BEGIN
1908 --{
1909 --
1910 --
1911 RLM_FORECAST_SV.ManageForecast
1912 (
1913 x_InterfaceHeaderId => x_InterfaceHeaderId,
1914 x_Sched_rec => x_Sched_rec,
1915 x_Group_rec => x_Group_rec,
1916 x_ReturnStatus => x_ReturnStatus
1917 )
1918 ;
1919 --
1920 --
1921 --}
1922 EXCEPTION
1923 --{
1924 --
1925 --
1926 WHEN OTHERS THEN
1927 RAISE ;
1928 --
1929 --
1930 --}
1931 END ManageForecast;
1932 --
1933 --
1934 PROCEDURE UpdateInterfaceLines
1935 (
1936 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE
1937 )
1938 IS
1939 --{
1940 --
1941 --
1942 --
1943 -- Internal Variables
1944 --
1945 k_program_unit_id CONSTANT NUMBER := 1332;
1946 --
1947 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1948 --
1949 l_customization_level VARCHAR2(32767);
1950 --
1951 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
1952 --
1953 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
1954 --
1955 --
1956 --
1957 --}
1958 BEGIN
1959 --{
1960 --
1961 --
1962 RLM_VALIDATEDEMAND_SV.UpdateInterfaceLines
1963 (
1964 x_header_rec => x_header_rec
1965 )
1966 ;
1967 --
1968 --
1969 --}
1970 EXCEPTION
1971 --{
1972 --
1973 --
1974 WHEN OTHERS THEN
1975 RAISE ;
1976 --
1977 --
1978 --}
1979 END UpdateInterfaceLines;
1980 --
1981 --
1982 PROCEDURE SetLineTPAttCategory
1983 (
1984 x_header_rec IN OUT NOCOPY RLM_INTERFACE_HEADERS%ROWTYPE,
1985 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE,
1986 x_group_rec IN OUT NOCOPY RLM_VALIDATEDEMAND_SV.t_Group_rec
1987 )
1988 IS
1989 --{
1990 --
1991 --
1992 --
1993 -- Internal Variables
1994 --
1995 k_program_unit_id CONSTANT NUMBER := 1217;
1996 --
1997 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
1998 --
1999 l_customization_level VARCHAR2(32767);
2000 --
2001 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2002 --
2003 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2004 --
2005 --
2006 --
2007 --}
2008 BEGIN
2009 --{
2010 --
2011 --
2012 RLM_VALIDATEDEMAND_SV.SetLineTPAttCategory
2013 (
2014 x_header_rec => x_header_rec,
2015 x_lines_rec => x_lines_rec,
2016 x_group_rec => x_group_rec
2017 )
2018 ;
2019 --
2020 --
2021 --}
2022 EXCEPTION
2023 --{
2024 --
2025 --
2026 WHEN OTHERS THEN
2027 RAISE ;
2028 --
2029 --
2030 --}
2031 END SetLineTPAttCategory;
2032 --
2033 --
2034 PROCEDURE SetHdrTPAttCategory
2035 (
2036 x_header_rec IN OUT NOCOPY RLM_INTERFACE_HEADERS%ROWTYPE
2037 )
2038 IS
2039 --{
2040 --
2041 --
2042 --
2043 -- Internal Variables
2044 --
2045 k_program_unit_id CONSTANT NUMBER := 1216;
2046 --
2047 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2048 --
2049 l_customization_level VARCHAR2(32767);
2050 --
2051 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2052 --
2053 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2054 --
2055 --
2056 --
2057 --}
2058 BEGIN
2059 --{
2060 --
2061 --
2062 RLM_VALIDATEDEMAND_SV.SetHdrTPAttCategory
2063 (
2064 x_header_rec => x_header_rec
2065 )
2066 ;
2067 --
2068 --
2069 --}
2070 EXCEPTION
2071 --{
2072 --
2073 --
2074 WHEN OTHERS THEN
2075 RAISE ;
2076 --
2077 --
2078 --}
2079 END SetHdrTPAttCategory;
2080 --
2081 --
2082 PROCEDURE SetTPAttCategory
2083 (
2084 x_header_rec IN OUT NOCOPY RLM_INTERFACE_HEADERS%ROWTYPE,
2085 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE,
2086 x_group_rec IN OUT NOCOPY RLM_VALIDATEDEMAND_SV.t_Group_rec
2087 )
2088 IS
2089 --{
2090 --
2091 --
2092 --
2093 -- Internal Variables
2094 --
2095 k_program_unit_id CONSTANT NUMBER := 1215;
2096 --
2097 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2098 --
2099 l_customization_level VARCHAR2(32767);
2100 --
2101 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2102 --
2103 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2104 --
2105 --
2106 --
2107 --}
2108 BEGIN
2109 --{
2110 --
2111 --
2112 RLM_VALIDATEDEMAND_SV.SetTPAttCategory
2113 (
2114 x_header_rec => x_header_rec,
2115 x_lines_rec => x_lines_rec,
2116 x_group_rec => x_group_rec
2117 )
2118 ;
2119 --
2120 --
2121 --}
2122 EXCEPTION
2123 --{
2124 --
2125 --
2126 WHEN OTHERS THEN
2127 RAISE ;
2128 --
2129 --
2130 --}
2131 END SetTPAttCategory;
2132 --
2133 --
2134 PROCEDURE populate_record_cust_item
2135 (
2136 x_ship_from_org_id IN NUMBER,
2137 x_customer_id IN NUMBER,
2138 x_ship_to_address_id IN NUMBER,
2139 x_customer_item_id IN NUMBER,
2140 x_terms_definition_level IN OUT NOCOPY VARCHAR2,
2141 x_terms_rec OUT NOCOPY rlm_setup_terms_sv.setup_terms_rec_typ,
2142 x_return_message IN OUT NOCOPY VARCHAR2,
2143 x_return_status OUT NOCOPY BOOLEAN
2144 )
2145 IS
2146 --{
2147 --
2148 --
2149 --
2150 -- Internal Variables
2151 --
2152 k_program_unit_id CONSTANT NUMBER := 1056;
2153 --
2154 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2155 --
2156 l_customization_level VARCHAR2(32767);
2157 --
2158 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2159 --
2160 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2161 --
2162 --
2163 --
2164 --}
2165 BEGIN
2166 --{
2167 --
2168 --
2169 RLM_SETUP_TERMS_SV.populate_record_cust_item
2170 (
2171 x_ship_from_org_id => x_ship_from_org_id,
2172 x_customer_id => x_customer_id,
2173 x_ship_to_address_id => x_ship_to_address_id,
2174 x_customer_item_id => x_customer_item_id,
2175 x_terms_definition_level => x_terms_definition_level,
2176 x_terms_rec => x_terms_rec,
2177 x_return_message => x_return_message,
2178 x_return_status => x_return_status
2179 )
2180 ;
2181 --
2182 --
2183 --}
2184 EXCEPTION
2185 --{
2186 --
2187 --
2188 WHEN OTHERS THEN
2189 RAISE ;
2190 --
2191 --
2192 --}
2193 END populate_record_cust_item;
2194 --
2195 --
2196 PROCEDURE populate_record_item
2197 (
2198 x_ship_from_org_id IN NUMBER,
2199 x_customer_id IN NUMBER,
2200 x_ship_to_address_id IN NUMBER,
2201 x_customer_item_id IN NUMBER,
2202 x_terms_definition_level IN OUT NOCOPY VARCHAR2,
2203 x_terms_rec OUT NOCOPY rlm_setup_terms_sv.setup_terms_rec_typ,
2204 x_return_message IN OUT NOCOPY VARCHAR2,
2205 x_return_status OUT NOCOPY BOOLEAN
2206 )
2207 IS
2208 --{
2209 --
2210 --
2211 --
2212 -- Internal Variables
2213 --
2214 k_program_unit_id CONSTANT NUMBER := 1055;
2215 --
2216 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2217 --
2218 l_customization_level VARCHAR2(32767);
2219 --
2220 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2221 --
2222 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2223 --
2224 --
2225 --
2226 --}
2227 BEGIN
2228 --{
2229 --
2230 --
2231 RLM_SETUP_TERMS_SV.populate_record_item
2232 (
2233 x_ship_from_org_id => x_ship_from_org_id,
2234 x_customer_id => x_customer_id,
2235 x_ship_to_address_id => x_ship_to_address_id,
2236 x_customer_item_id => x_customer_item_id,
2237 x_terms_definition_level => x_terms_definition_level,
2238 x_terms_rec => x_terms_rec,
2239 x_return_message => x_return_message,
2240 x_return_status => x_return_status
2241 )
2242 ;
2243 --
2244 --
2245 --}
2246 EXCEPTION
2247 --{
2248 --
2249 --
2250 WHEN OTHERS THEN
2251 RAISE ;
2252 --
2253 --
2254 --}
2255 END populate_record_item;
2256 --
2257 --
2258 PROCEDURE populate_record_add
2259 (
2260 x_ship_from_org_id IN NUMBER,
2261 x_customer_id IN NUMBER,
2262 x_ship_to_address_id IN NUMBER,
2263 x_customer_item_id IN NUMBER,
2264 x_terms_definition_level IN OUT NOCOPY VARCHAR2,
2265 x_terms_rec OUT NOCOPY rlm_setup_terms_sv.setup_terms_rec_typ,
2266 x_return_message IN OUT NOCOPY VARCHAR2,
2267 x_return_status OUT NOCOPY BOOLEAN
2268 )
2269 IS
2270 --{
2271 --
2272 --
2273 --
2274 -- Internal Variables
2275 --
2276 k_program_unit_id CONSTANT NUMBER := 1054;
2277 --
2278 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2279 --
2280 l_customization_level VARCHAR2(32767);
2281 --
2282 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2283 --
2284 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2285 --
2286 --
2287 --
2288 --}
2289 BEGIN
2290 --{
2291 --
2292 --
2293 RLM_SETUP_TERMS_SV.populate_record_add
2294 (
2295 x_ship_from_org_id => x_ship_from_org_id,
2296 x_customer_id => x_customer_id,
2297 x_ship_to_address_id => x_ship_to_address_id,
2298 x_customer_item_id => x_customer_item_id,
2299 x_terms_definition_level => x_terms_definition_level,
2300 x_terms_rec => x_terms_rec,
2301 x_return_message => x_return_message,
2302 x_return_status => x_return_status
2303 )
2304 ;
2305 --
2306 --
2307 --}
2308 EXCEPTION
2309 --{
2310 --
2311 --
2312 WHEN OTHERS THEN
2313 RAISE ;
2314 --
2315 --
2316 --}
2317 END populate_record_add;
2318 --
2319 --
2320 PROCEDURE BuildTPOELine
2321 (
2322 x_oe_line_rec IN OUT NOCOPY oe_order_pub.line_rec_type,
2323 x_Op_rec IN rlm_rd_sv.t_generic_rec
2324 )
2325 IS
2326 --{
2327 --
2328 --
2329 --
2330 -- Internal Variables
2331 --
2332 k_program_unit_id CONSTANT NUMBER := 11348;
2333 --
2334 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2335 --
2336 l_customization_level VARCHAR2(32767);
2337 --
2338 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2339 --
2340 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2341 --
2342 --
2343 --
2344 --}
2345 BEGIN
2346 --{
2347 --
2348 --
2349 RLM_EXTINTERFACE_SV.BuildTPOELine
2350 (
2351 x_oe_line_rec => x_oe_line_rec,
2352 x_Op_rec => x_Op_rec
2353 )
2354 ;
2355 --
2356 --
2357 --}
2358 EXCEPTION
2359 --{
2360 --
2361 --
2362 WHEN OTHERS THEN
2363 RAISE ;
2364 --
2365 --
2366 --}
2367 END BuildTPOELine;
2368 --
2369 --
2370 PROCEDURE determine_send_date
2371 (
2372 x_Input IN rlm_ship_delivery_pattern_sv.t_inputRec,
2373 x_DailyPercent IN rlm_core_sv.t_NumberTable,
2374 x_ShipmentDate IN OUT NOCOPY DATE
2375 )
2376 IS
2377 --{
2378 --
2379 --
2380 --
2381 -- Internal Variables
2382 --
2383 k_program_unit_id CONSTANT NUMBER := 11174;
2384 --
2385 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2386 --
2387 l_customization_level VARCHAR2(32767);
2388 --
2389 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2390 --
2391 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2392 --
2393 --
2394 --
2395 --}
2396 BEGIN
2397 --{
2398 --
2399 --
2400 RLM_SHIP_DELIVERY_PATTERN_SV.determine_send_date
2401 (
2402 x_Input => x_Input,
2403 x_DailyPercent => x_DailyPercent,
2404 x_ShipmentDate => x_ShipmentDate
2405 )
2406 ;
2407 --
2408 --
2409 --}
2410 EXCEPTION
2411 --{
2412 --
2413 --
2414 WHEN OTHERS THEN
2415 RAISE ;
2416 --
2417 --
2418 --}
2419 END determine_send_date;
2420 --
2421 --
2422 FUNCTION check_send_date
2423 (
2424 x_Input IN rlm_ship_delivery_pattern_sv.t_inputRec,
2425 x_ShipmentDate IN DATE
2426 )
2427 RETURN BOOLEAN
2428 IS
2429 --{
2430 --
2431 --
2432 --
2433 -- Internal Variables
2434 --
2435 l_return_value BOOLEAN;
2436 --
2437 k_program_unit_id CONSTANT NUMBER := 11173;
2438 --
2439 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2440 --
2441 l_customization_level VARCHAR2(32767);
2442 --
2443 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2444 --
2445 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2446 --
2447 --
2448 --
2449 --}
2450 BEGIN
2451 --{
2452 --
2453 --
2454 l_return_value := RLM_SHIP_DELIVERY_PATTERN_SV.check_send_date
2455 (
2456 x_Input => x_Input,
2457 x_ShipmentDate => x_ShipmentDate
2458 )
2459 ;
2460 --
2461 --
2462 RETURN (l_return_value);
2463 --
2464 --
2465 --}
2466 EXCEPTION
2467 --{
2468 --
2469 --
2470 WHEN OTHERS THEN
2471 RAISE ;
2472 --
2473 --
2474 --}
2475 END check_send_date;
2476 --
2477 --
2478 PROCEDURE determine_receive_date
2479 (
2480 x_Input IN rlm_ship_delivery_pattern_sv.t_InputRec,
2481 x_DailyPercent IN rlm_core_sv.t_NumberTable,
2482 x_ReceiveDate IN OUT NOCOPY DATE
2483 )
2484 IS
2485 --{
2486 --
2487 --
2488 --
2489 -- Internal Variables
2490 --
2491 k_program_unit_id CONSTANT NUMBER := 11172;
2492 --
2493 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2494 --
2495 l_customization_level VARCHAR2(32767);
2496 --
2497 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2498 --
2499 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2500 --
2501 --
2502 --
2503 --}
2504 BEGIN
2505 --{
2506 --
2507 --
2508 RLM_SHIP_DELIVERY_PATTERN_SV.determine_receive_date
2509 (
2510 x_Input => x_Input,
2511 x_DailyPercent => x_DailyPercent,
2512 x_ReceiveDate => x_ReceiveDate
2513 )
2514 ;
2515 --
2516 --
2517 --}
2518 EXCEPTION
2519 --{
2520 --
2521 --
2522 WHEN OTHERS THEN
2523 RAISE ;
2524 --
2525 --
2526 --}
2527 END determine_receive_date;
2528 --
2529 --
2530 FUNCTION check_receive_date
2531 (
2532 x_Input IN rlm_ship_delivery_pattern_sv.t_InputRec,
2533 x_ReceiveDate IN DATE
2534 )
2535 RETURN BOOLEAN
2536 IS
2537 --{
2538 --
2539 --
2540 --
2541 -- Internal Variables
2542 --
2543 l_return_value BOOLEAN;
2544 --
2545 k_program_unit_id CONSTANT NUMBER := 11171;
2546 --
2547 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2548 --
2549 l_customization_level VARCHAR2(32767);
2550 --
2551 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2552 --
2553 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2554 --
2555 --
2556 --
2557 --}
2558 BEGIN
2559 --{
2560 --
2561 --
2562 l_return_value := RLM_SHIP_DELIVERY_PATTERN_SV.check_receive_date
2563 (
2564 x_Input => x_Input,
2565 x_ReceiveDate => x_ReceiveDate
2566 )
2567 ;
2568 --
2569 --
2570 RETURN (l_return_value);
2571 --
2572 --
2573 --}
2574 EXCEPTION
2575 --{
2576 --
2577 --
2578 WHEN OTHERS THEN
2579 RAISE ;
2580 --
2581 --
2582 --}
2583 END check_receive_date;
2584 --
2585 --
2586 FUNCTION previous_valid_sdp_date
2587 (
2588 x_Input IN rlm_ship_delivery_pattern_sv.t_InputRec,
2589 x_Date IN DATE,
2590 x_DailyPercent IN rlm_core_sv.t_NumberTable
2591 )
2592 RETURN DATE
2593 IS
2594 --{
2595 --
2596 --
2597 --
2598 -- Internal Variables
2599 --
2600 l_return_value DATE;
2601 --
2602 k_program_unit_id CONSTANT NUMBER := 11170;
2603 --
2604 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2605 --
2606 l_customization_level VARCHAR2(32767);
2607 --
2608 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2609 --
2610 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2611 --
2612 --
2613 --
2614 --}
2615 BEGIN
2616 --{
2617 --
2618 --
2619 l_return_value := RLM_SHIP_DELIVERY_PATTERN_SV.previous_valid_sdp_date
2620 (
2621 x_Input => x_Input,
2622 x_Date => x_Date,
2623 x_DailyPercent => x_DailyPercent
2624 )
2625 ;
2626 --
2627 --
2628 RETURN (l_return_value);
2629 --
2630 --
2631 --}
2632 EXCEPTION
2633 --{
2634 --
2635 --
2636 WHEN OTHERS THEN
2637 RAISE ;
2638 --
2639 --
2640 --}
2641 END previous_valid_sdp_date;
2642 --
2643 --
2644 FUNCTION valid_sdp_date
2645 (
2646 x_Input IN rlm_ship_delivery_pattern_sv.t_InputRec,
2647 x_DailyPercent IN rlm_core_sv.t_NumberTable
2648 )
2649 RETURN BOOLEAN
2650 IS
2651 --{
2652 --
2653 --
2654 --
2655 -- Internal Variables
2656 --
2657 l_return_value BOOLEAN;
2658 --
2659 k_program_unit_id CONSTANT NUMBER := 11169;
2660 --
2661 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2662 --
2663 l_customization_level VARCHAR2(32767);
2664 --
2665 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2666 --
2667 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2668 --
2669 --
2670 --
2671 --}
2672 BEGIN
2673 --{
2674 --
2675 --
2676 l_return_value := RLM_SHIP_DELIVERY_PATTERN_SV.valid_sdp_date
2677 (
2678 x_Input => x_Input,
2679 x_DailyPercent => x_DailyPercent
2680 )
2681 ;
2682 --
2683 --
2684 RETURN (l_return_value);
2685 --
2686 --
2687 --}
2688 EXCEPTION
2689 --{
2690 --
2691 --
2692 WHEN OTHERS THEN
2693 RAISE ;
2694 --
2695 --
2696 --}
2697 END valid_sdp_date;
2698 --
2699 --
2700 FUNCTION find_monday_date
2701 (
2702 x_Input IN rlm_ship_delivery_pattern_sv.t_InputRec,
2703 x_Date IN DATE
2704 )
2705 RETURN DATE
2706 IS
2707 --{
2708 --
2709 --
2710 --
2711 -- Internal Variables
2712 --
2713 l_return_value DATE;
2714 --
2715 k_program_unit_id CONSTANT NUMBER := 11168;
2716 --
2717 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2718 --
2719 l_customization_level VARCHAR2(32767);
2720 --
2721 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2722 --
2723 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2724 --
2725 --
2726 --
2727 --}
2728 BEGIN
2729 --{
2730 --
2731 --
2732 l_return_value := RLM_SHIP_DELIVERY_PATTERN_SV.find_monday_date
2733 (
2734 x_Input => x_Input,
2735 x_Date => x_Date
2736 )
2737 ;
2738 --
2739 --
2740 RETURN (l_return_value);
2741 --
2742 --
2743 --}
2744 EXCEPTION
2745 --{
2746 --
2747 --
2748 WHEN OTHERS THEN
2749 RAISE ;
2750 --
2751 --
2752 --}
2753 END find_monday_date;
2754 --
2755 --
2756 FUNCTION check_start_date
2757 (
2758 x_Input IN rlm_ship_delivery_pattern_sv.t_Inputrec,
2759 x_BucketType IN VARCHAR2
2760 )
2761 RETURN BOOLEAN
2762 IS
2763 --{
2764 --
2765 --
2766 --
2767 -- Internal Variables
2768 --
2769 l_return_value BOOLEAN;
2770 --
2771 k_program_unit_id CONSTANT NUMBER := 11167;
2772 --
2773 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2774 --
2775 l_customization_level VARCHAR2(32767);
2776 --
2777 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2778 --
2779 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2780 --
2781 --
2782 --
2783 --}
2784 BEGIN
2785 --{
2786 --
2787 --
2788 l_return_value := RLM_SHIP_DELIVERY_PATTERN_SV.check_start_date
2789 (
2790 x_Input => x_Input,
2791 x_BucketType => x_BucketType
2792 )
2793 ;
2794 --
2795 --
2796 RETURN (l_return_value);
2797 --
2798 --
2799 --}
2800 EXCEPTION
2801 --{
2802 --
2803 --
2804 WHEN OTHERS THEN
2805 RAISE ;
2806 --
2807 --
2808 --}
2809 END check_start_date;
2810 --
2811 --
2812 PROCEDURE apply_sdp_to_daily_bucket
2813 (
2814 x_Input IN rlm_ship_delivery_pattern_sv.t_InputRec,
2815 x_ItemDetailSubtype IN VARCHAR2,
2816 x_DailyPercent IN rlm_core_sv.t_NumberTable,
2817 x_StartDateTime IN DATE,
2818 x_PrimaryQuantity IN NUMBER,
2819 x_QuantityDate IN OUT NOCOPY rlm_ship_delivery_pattern_sv.t_OutputTable
2820 )
2821 IS
2822 --{
2823 --
2824 --
2825 --
2826 -- Internal Variables
2827 --
2828 k_program_unit_id CONSTANT NUMBER := 11166;
2829 --
2830 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2831 --
2832 l_customization_level VARCHAR2(32767);
2833 --
2834 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2835 --
2836 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2837 --
2838 --
2839 --
2840 --}
2841 BEGIN
2842 --{
2843 --
2844 --
2845 RLM_SHIP_DELIVERY_PATTERN_SV.apply_sdp_to_daily_bucket
2846 (
2847 x_Input => x_Input,
2848 x_ItemDetailSubtype => x_ItemDetailSubtype,
2849 x_DailyPercent => x_DailyPercent,
2850 x_StartDateTime => x_StartDateTime,
2851 x_PrimaryQuantity => x_PrimaryQuantity,
2852 x_QuantityDate => x_QuantityDate
2853 )
2854 ;
2855 --
2856 --
2857 --}
2858 EXCEPTION
2859 --{
2860 --
2861 --
2862 WHEN OTHERS THEN
2863 RAISE ;
2864 --
2865 --
2866 --}
2867 END apply_sdp_to_daily_bucket;
2868 --
2869 --
2870 PROCEDURE apply_sdp_to_weekly_bucket
2871 (
2872 x_Input IN rlm_ship_delivery_pattern_sv.t_InputRec,
2873 x_ItemDetailSubtype IN VARCHAR2,
2874 x_DailyPercent IN rlm_core_sv.t_NumberTable,
2875 x_StartDateTime IN DATE,
2876 x_PrimaryQuantity IN NUMBER,
2877 x_WholeNumber IN BOOLEAN,
2878 x_QuantityDate IN OUT NOCOPY RLM_SHIP_DELIVERY_PATTERN_SV.t_OutputTable
2879 )
2880 IS
2881 --{
2882 --
2883 --
2884 --
2885 -- Internal Variables
2886 --
2887 k_program_unit_id CONSTANT NUMBER := 11165;
2888 --
2889 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2890 --
2891 l_customization_level VARCHAR2(32767);
2892 --
2893 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2894 --
2895 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2896 --
2897 --
2898 --
2899 --}
2900 BEGIN
2901 --{
2902 --
2903 --
2904 RLM_SHIP_DELIVERY_PATTERN_SV.apply_sdp_to_weekly_bucket
2905 (
2906 x_Input => x_Input,
2907 x_ItemDetailSubtype => x_ItemDetailSubtype,
2908 x_DailyPercent => x_DailyPercent,
2909 x_StartDateTime => x_StartDateTime,
2910 x_PrimaryQuantity => x_PrimaryQuantity,
2911 x_WholeNumber => x_WholeNumber,
2912 x_QuantityDate => x_QuantityDate
2913 )
2914 ;
2915 --
2916 --
2917 --}
2918 EXCEPTION
2919 --{
2920 --
2921 --
2922 WHEN OTHERS THEN
2923 RAISE ;
2924 --
2925 --
2926 --}
2927 END apply_sdp_to_weekly_bucket;
2928 --
2929 --
2930 FUNCTION get_weekly_quantity
2931 (
2932 x_WholeNumber IN BOOLEAN,
2933 x_Count IN NUMBER,
2934 x_Input IN rlm_ship_delivery_pattern_sv.t_InputRec,
2935 x_DivideBy IN NUMBER
2936 )
2937 RETURN NUMBER
2938 IS
2939 --{
2940 --
2941 --
2942 --
2943 -- Internal Variables
2944 --
2945 l_return_value NUMBER;
2946 --
2947 k_program_unit_id CONSTANT NUMBER := 11164;
2948 --
2949 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
2950 --
2951 l_customization_level VARCHAR2(32767);
2952 --
2953 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
2954 --
2955 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
2956 --
2957 --
2958 --
2959 --}
2960 BEGIN
2961 --{
2962 --
2963 --
2964 l_return_value := RLM_SHIP_DELIVERY_PATTERN_SV.get_weekly_quantity
2965 (
2966 x_WholeNumber => x_WholeNumber,
2967 x_Count => x_Count,
2968 x_Input => x_Input,
2969 x_DivideBy => x_DivideBy
2970 )
2971 ;
2972 --
2973 --
2974 RETURN (l_return_value);
2975 --
2976 --
2977 --}
2978 EXCEPTION
2979 --{
2980 --
2981 --
2982 WHEN OTHERS THEN
2983 RAISE ;
2984 --
2985 --
2986 --}
2987 END get_weekly_quantity;
2988 --
2989 --
2990 PROCEDURE break_bucket
2991 (
2992 x_Input IN rlm_ship_delivery_pattern_sv.t_InputRec,
2993 x_ReturnMessage IN OUT NOCOPY rlm_ship_delivery_pattern_sv.t_ErrorMsgTable,
2994 x_WeeklyBucket OUT NOCOPY rlm_ship_delivery_pattern_sv.t_BucketTable,
2995 x_ReturnStatus OUT NOCOPY NUMBER
2996 )
2997 IS
2998 --{
2999 --
3000 --
3001 --
3002 -- Internal Variables
3003 --
3004 k_program_unit_id CONSTANT NUMBER := 11163;
3005 --
3006 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3007 --
3008 l_customization_level VARCHAR2(32767);
3009 --
3010 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3011 --
3012 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3013 --
3014 --
3015 --
3016 --}
3017 BEGIN
3018 --{
3019 --
3020 --
3021 RLM_SHIP_DELIVERY_PATTERN_SV.break_bucket
3022 (
3023 x_Input => x_Input,
3024 x_ReturnMessage => x_ReturnMessage,
3025 x_WeeklyBucket => x_WeeklyBucket,
3026 x_ReturnStatus => x_ReturnStatus
3027 )
3028 ;
3029 --
3030 --
3031 --}
3032 EXCEPTION
3033 --{
3034 --
3035 --
3036 WHEN OTHERS THEN
3037 RAISE ;
3038 --
3039 --
3040 --}
3041 END break_bucket;
3042 --
3043 --
3044 PROCEDURE RoundStandardPack
3045 (
3046 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
3047 x_Group_rec IN rlm_dp_sv.t_Group_rec
3048 )
3049 IS
3050 --{
3051 --
3052 --
3053 --
3054 -- Internal Variables
3055 --
3056 k_program_unit_id CONSTANT NUMBER := 10811;
3057 --
3058 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3059 --
3060 l_customization_level VARCHAR2(32767);
3061 --
3062 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3063 --
3064 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3065 --
3066 --
3067 --
3068 --}
3069 BEGIN
3070 --{
3071 --
3072 --
3073 RLM_MANAGE_DEMAND_SV.RoundStandardPack
3074 (
3075 x_Sched_rec => x_Sched_rec,
3076 x_Group_rec => x_Group_rec
3077 )
3078 ;
3079 --
3080 --
3081 --}
3082 EXCEPTION
3083 --{
3084 --
3085 --
3086 WHEN OTHERS THEN
3087 RAISE ;
3088 --
3089 --
3090 --}
3091 END RoundStandardPack;
3092 --
3093 --
3094 FUNCTION MatchShipments
3095 (
3096 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
3097 x_Current_rec IN RLM_RD_SV.t_Generic_rec,
3098 x_Index OUT NOCOPY NUMBER
3099 )
3100 RETURN BOOLEAN
3101 IS
3102 --{
3103 --
3104 --
3105 --
3106 -- Internal Variables
3107 --
3108 l_return_value BOOLEAN;
3109 --
3110 k_program_unit_id CONSTANT NUMBER := 10791;
3111 --
3112 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3113 --
3114 l_customization_level VARCHAR2(32767);
3115 --
3116 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3117 --
3118 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3119 --
3120 --
3121 --
3122 --}
3123 BEGIN
3124 --{
3125 --
3126 --
3127 l_return_value := RLM_RD_SV.MatchShipments
3128 (
3129 x_Group_rec => x_Group_rec,
3130 x_Current_rec => x_Current_rec,
3131 x_Index => x_Index
3132 )
3133 ;
3134 --
3135 --
3136 RETURN (l_return_value);
3137 --
3138 --
3139 --}
3140 EXCEPTION
3141 --{
3142 --
3143 --
3144 WHEN OTHERS THEN
3145 RAISE ;
3146 --
3147 --
3148 --}
3149 END MatchShipments;
3150 --
3151 --
3152 PROCEDURE ReconcileShipments
3153 (
3154 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec,
3155 x_Key_rec IN RLM_RD_SV.t_Key_rec,
3156 x_Quantity IN OUT NOCOPY NUMBER
3157 )
3158 IS
3159 --{
3160 --
3161 --
3162 --
3163 -- Internal Variables
3164 --
3165 k_program_unit_id CONSTANT NUMBER := 10790;
3166 --
3167 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3168 --
3169 l_customization_level VARCHAR2(32767);
3170 --
3171 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3172 --
3173 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3174 --
3175 --
3176 --
3177 --}
3178 BEGIN
3179 --{
3180 --
3181 --
3182 RLM_RD_SV.ReconcileShipments
3183 (
3184 x_Group_rec => x_Group_rec,
3185 x_Key_rec => x_Key_rec,
3186 x_Quantity => x_Quantity
3187 )
3188 ;
3189 --
3190 --
3191 --}
3192 EXCEPTION
3193 --{
3194 --
3195 --
3196 WHEN OTHERS THEN
3197 RAISE ;
3198 --
3199 --
3200 --}
3201 END ReconcileShipments;
3202 --
3203 --
3204 PROCEDURE ProcessATS
3205 (
3206 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
3207 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec
3208 )
3209 IS
3210 --{
3211 --
3212 --
3213 --
3214 -- Internal Variables
3215 --
3216 k_program_unit_id CONSTANT NUMBER := 10789;
3217 --
3218 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3219 --
3220 l_customization_level VARCHAR2(32767);
3221 --
3222 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3223 --
3224 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3225 --
3226 --
3227 --
3228 --}
3229 BEGIN
3230 --{
3231 --
3232 --
3233 RLM_RD_SV.ProcessATS
3234 (
3235 x_Sched_rec => x_Sched_rec,
3236 x_Group_rec => x_Group_rec
3237 )
3238 ;
3239 --
3240 --
3241 --}
3242 EXCEPTION
3243 --{
3244 --
3245 --
3246 WHEN OTHERS THEN
3247 RAISE ;
3248 --
3249 --
3250 --}
3251 END ProcessATS;
3252 --
3253 --
3254 PROCEDURE ProcessNATS
3255 (
3256 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
3257 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec
3258 )
3259 IS
3260 --{
3261 --
3262 --
3263 --
3264 -- Internal Variables
3265 --
3266 k_program_unit_id CONSTANT NUMBER := 10788;
3267 --
3268 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3269 --
3270 l_customization_level VARCHAR2(32767);
3271 --
3272 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3273 --
3274 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3275 --
3276 --
3277 --
3278 --}
3279 BEGIN
3280 --{
3281 --
3282 --
3283 RLM_RD_SV.ProcessNATS
3284 (
3285 x_Sched_rec => x_Sched_rec,
3286 x_Group_rec => x_Group_rec
3287 )
3288 ;
3289 --
3290 --
3291 --}
3292 EXCEPTION
3293 --{
3294 --
3295 --
3296 WHEN OTHERS THEN
3297 RAISE ;
3298 --
3299 --
3300 --}
3301 END ProcessNATS;
3302 --
3303 --
3304 PROCEDURE ProcessPreHorizonATS
3305 (
3306 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
3307 x_Group_rec IN OUT NOCOPY rlm_dp_sv.t_Group_rec
3308 )
3309 IS
3310 --{
3311 --
3312 --
3313 --
3314 -- Internal Variables
3315 --
3316 k_program_unit_id CONSTANT NUMBER := 10787;
3317 --
3318 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3319 --
3320 l_customization_level VARCHAR2(32767);
3321 --
3322 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3323 --
3324 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3325 --
3326 --
3327 --
3328 --}
3329 BEGIN
3330 --{
3331 --
3332 --
3333 RLM_RD_SV.ProcessPreHorizonATS
3334 (
3335 x_Sched_rec => x_Sched_rec,
3336 x_Group_rec => x_Group_rec
3337 )
3338 ;
3339 --
3340 --
3341 --}
3342 EXCEPTION
3343 --{
3344 --
3345 --
3346 WHEN OTHERS THEN
3347 RAISE ;
3348 --
3349 --
3350 --}
3351 END ProcessPreHorizonATS;
3352 --
3353 --
3354 PROCEDURE ApplyFFFFences
3355 (
3356 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
3357 x_Group_rec IN rlm_dp_sv.t_Group_rec,
3358 IsLineProcessed IN OUT NOCOPY BOOLEAN
3359 )
3360 IS
3361 --{
3362 --
3363 --
3364 --
3365 -- Internal Variables
3366 --
3367 k_program_unit_id CONSTANT NUMBER := 10753;
3368 --
3369 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3370 --
3371 l_customization_level VARCHAR2(32767);
3372 --
3373 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3374 --
3375 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3376 --
3377 --
3378 --
3379 --}
3380 BEGIN
3381 --{
3382 --
3383 --
3384 RLM_MANAGE_DEMAND_SV.ApplyFFFFences
3385 (
3386 x_Sched_rec => x_Sched_rec,
3387 x_Group_rec => x_Group_rec,
3388 IsLineProcessed => IsLineProcessed
3389 )
3390 ;
3391 --
3392 --
3393 --}
3394 EXCEPTION
3395 --{
3396 --
3397 --
3398 WHEN OTHERS THEN
3399 RAISE ;
3400 --
3401 --
3402 --}
3403 END ApplyFFFFences;
3404 --
3405 --
3406 PROCEDURE CalculateShipDate
3407 (
3408 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
3409 x_Group_rec IN rlm_dp_sv.t_Group_rec
3410 )
3411 IS
3412 --{
3413 --
3414 --
3415 --
3416 -- Internal Variables
3417 --
3418 k_program_unit_id CONSTANT NUMBER := 10752;
3419 --
3420 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3421 --
3422 l_customization_level VARCHAR2(32767);
3423 --
3424 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3425 --
3426 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3427 --
3428 --
3429 --
3430 --}
3431 BEGIN
3432 --{
3433 --
3434 --
3435 RLM_MANAGE_DEMAND_SV.CalculateShipDate
3436 (
3437 x_Sched_rec => x_Sched_rec,
3438 x_Group_rec => x_Group_rec
3439 )
3440 ;
3441 --
3442 --
3443 --}
3444 EXCEPTION
3445 --{
3446 --
3447 --
3448 WHEN OTHERS THEN
3449 RAISE ;
3450 --
3451 --
3452 --}
3453 END CalculateShipDate;
3454 --
3455 --
3456 PROCEDURE ApplySourceRules
3457 (
3458 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
3459 x_Group_rec IN rlm_dp_sv.t_Group_rec,
3460 x_SourcedDemand_tab OUT NOCOPY rlm_manage_demand_sv.t_MD_Tab,
3461 x_Source_Tab OUT NOCOPY rlm_manage_demand_sv.t_Source_Tab
3462 )
3463 IS
3464 --{
3465 --
3466 --
3467 --
3468 -- Internal Variables
3469 --
3470 k_program_unit_id CONSTANT NUMBER := 10751;
3471 --
3472 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3473 --
3474 l_customization_level VARCHAR2(32767);
3475 --
3476 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3477 --
3478 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3479 --
3480 --
3481 --
3482 --}
3483 BEGIN
3484 --{
3485 --
3486 --
3487 RLM_MANAGE_DEMAND_SV.ApplySourceRules
3488 (
3489 x_Sched_rec => x_Sched_rec,
3490 x_Group_rec => x_Group_rec,
3491 x_SourcedDemand_tab => x_SourcedDemand_tab,
3492 x_Source_Tab => x_Source_Tab
3493 )
3494 ;
3495 --
3496 --
3497 --}
3498 EXCEPTION
3499 --{
3500 --
3501 --
3502 WHEN OTHERS THEN
3503 RAISE ;
3504 --
3505 --
3506 --}
3507 END ApplySourceRules;
3508 --
3509 --
3510 PROCEDURE CUMToDiscrete
3511 (
3512 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
3513 x_Group_rec IN rlm_dp_sv.t_Group_rec
3514 )
3515 IS
3516 --{
3517 --
3518 --
3519 --
3520 -- Internal Variables
3521 --
3522 k_program_unit_id CONSTANT NUMBER := 10750;
3523 --
3524 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3525 --
3526 l_customization_level VARCHAR2(32767);
3527 --
3528 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3529 --
3530 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3531 --
3532 --
3533 --
3534 --}
3535 BEGIN
3536 --{
3537 --
3538 --
3539 RLM_MANAGE_DEMAND_SV.CUMToDiscrete
3540 (
3541 x_Sched_rec => x_Sched_rec,
3542 x_Group_rec => x_Group_rec
3543 )
3544 ;
3545 --
3546 --
3547 --}
3548 EXCEPTION
3549 --{
3550 --
3551 --
3552 WHEN OTHERS THEN
3553 RAISE ;
3554 --
3555 --
3556 --}
3557 END CUMToDiscrete;
3558 --
3559 --
3560 PROCEDURE CUMDiscrepancyCheck
3561 (
3562 x_Sched_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
3563 x_Group_rec IN rlm_dp_sv.t_Group_rec
3564 )
3565 IS
3566 --{
3567 --
3568 --
3569 --
3570 -- Internal Variables
3571 --
3572 k_program_unit_id CONSTANT NUMBER := 10749;
3573 --
3574 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3575 --
3576 l_customization_level VARCHAR2(32767);
3577 --
3578 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3579 --
3580 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3581 --
3582 --
3583 --
3584 --}
3585 BEGIN
3586 --{
3587 --
3588 --
3589 RLM_MANAGE_DEMAND_SV.CUMDiscrepancyCheck
3590 (
3591 x_Sched_rec => x_Sched_rec,
3592 x_Group_rec => x_Group_rec
3593 )
3594 ;
3595 --
3596 --
3597 --}
3598 EXCEPTION
3599 --{
3600 --
3601 --
3602 WHEN OTHERS THEN
3603 RAISE ;
3604 --
3605 --
3606 --}
3607 END CUMDiscrepancyCheck;
3608 --
3609 --
3610 PROCEDURE UOMConversion
3611 (
3612 x_Group_rec IN rlm_dp_sv.t_Group_rec
3613 )
3614 IS
3615 --{
3616 --
3617 --
3618 --
3619 -- Internal Variables
3620 --
3621 k_program_unit_id CONSTANT NUMBER := 10748;
3622 --
3623 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3624 --
3625 l_customization_level VARCHAR2(32767);
3626 --
3627 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3628 --
3629 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3630 --
3631 --
3632 --
3633 --}
3634 BEGIN
3635 --{
3636 --
3637 --
3638 RLM_MANAGE_DEMAND_SV.UOMConversion
3639 (
3640 x_Group_rec => x_Group_rec
3641 )
3642 ;
3643 --
3644 --
3645 --}
3646 EXCEPTION
3647 --{
3648 --
3649 --
3650 WHEN OTHERS THEN
3651 RAISE ;
3652 --
3653 --
3654 --}
3655 END UOMConversion;
3656 --
3657 --
3658 PROCEDURE PostValidation
3659 IS
3660 --{
3661 --
3662 --
3663 --
3664 -- Internal Variables
3665 --
3666 k_program_unit_id CONSTANT NUMBER := 10734;
3667 --
3668 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3669 --
3670 l_customization_level VARCHAR2(32767);
3671 --
3672 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3673 --
3674 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3675 --
3676 --
3677 --
3678 --}
3679 BEGIN
3680 --{
3681 --
3682 --
3683 RLM_VALIDATEDEMAND_SV.PostValidation;
3684 --
3685 --
3686 --}
3687 EXCEPTION
3688 --{
3689 --
3690 --
3691 WHEN OTHERS THEN
3692 RAISE ;
3693 --
3694 --
3695 --}
3696 END PostValidation;
3697 --
3698 --
3699 PROCEDURE ValidateCustomerItem
3700 (
3701 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
3702 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE
3703 )
3704 IS
3705 --{
3706 --
3707 --
3708 --
3709 -- Internal Variables
3710 --
3711 k_program_unit_id CONSTANT NUMBER := 10733;
3712 --
3713 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3714 --
3715 l_customization_level VARCHAR2(32767);
3716 --
3717 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3718 --
3719 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3720 --
3721 --
3722 --
3723 --}
3724 BEGIN
3725 --{
3726 --
3727 --
3728 RLM_VALIDATEDEMAND_SV.ValidateCustomerItem
3729 (
3730 x_header_rec => x_header_rec,
3731 x_lines_rec => x_lines_rec
3732 )
3733 ;
3734 --
3735 --
3736 --}
3737 EXCEPTION
3738 --{
3739 --
3740 --
3741 WHEN OTHERS THEN
3742 RAISE ;
3743 --
3744 --
3745 --}
3746 END ValidateCustomerItem;
3747 --
3748 --
3749 PROCEDURE ValidSchedulePurpose
3750 (
3751 x_header_rec IN OUT NOCOPY RLM_INTERFACE_HEADERS%ROWTYPE
3752 )
3753 IS
3754 --{
3755 --
3756 --
3757 --
3758 -- Internal Variables
3759 --
3760 k_program_unit_id CONSTANT NUMBER := 10732;
3761 --
3762 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3763 --
3764 l_customization_level VARCHAR2(32767);
3765 --
3766 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3767 --
3768 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3769 --
3770 --
3771 --
3772 --}
3773 BEGIN
3774 --{
3775 --
3776 --
3777 RLM_VALIDATEDEMAND_SV.ValidSchedulePurpose
3778 (
3779 x_header_rec => x_header_rec
3780 )
3781 ;
3782 --
3783 --
3784 --}
3785 EXCEPTION
3786 --{
3787 --
3788 --
3789 WHEN OTHERS THEN
3790 RAISE ;
3791 --
3792 --
3793 --}
3794 END ValidSchedulePurpose;
3795 --
3796 --
3797 FUNCTION ValidLookup
3798 (
3799 p_lookup_type IN VARCHAR2,
3800 p_lookup_code IN VARCHAR2,
3801 p_date IN DATE
3802 )
3803 RETURN BOOLEAN
3804 IS
3805 --{
3806 --
3807 --
3808 --
3809 -- Internal Variables
3810 --
3811 l_return_value BOOLEAN;
3812 --
3813 k_program_unit_id CONSTANT NUMBER := 10731;
3814 --
3815 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3816 --
3817 l_customization_level VARCHAR2(32767);
3818 --
3819 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3820 --
3821 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3822 --
3823 --
3824 --
3825 --}
3826 BEGIN
3827 --{
3828 --
3829 --
3830 l_return_value := RLM_VALIDATEDEMAND_SV.ValidLookup
3831 (
3832 p_lookup_type => p_lookup_type,
3833 p_lookup_code => p_lookup_code,
3834 p_date => p_date
3835 )
3836 ;
3837 --
3838 --
3839 RETURN (l_return_value);
3840 --
3841 --
3842 --}
3843 EXCEPTION
3844 --{
3845 --
3846 --
3847 WHEN OTHERS THEN
3848 RAISE ;
3849 --
3850 --
3851 --}
3852 END ValidLookup;
3853 --
3854 --
3855 PROCEDURE ValidScheduleType
3856 (
3857 x_header_rec IN OUT NOCOPY RLM_INTERFACE_HEADERS%ROWTYPE
3858 )
3859 IS
3860 --{
3861 --
3862 --
3863 --
3864 -- Internal Variables
3865 --
3866 k_program_unit_id CONSTANT NUMBER := 10730;
3867 --
3868 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3869 --
3870 l_customization_level VARCHAR2(32767);
3871 --
3872 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3873 --
3874 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3875 --
3876 --
3877 --
3878 --}
3879 BEGIN
3880 --{
3881 --
3882 --
3883 RLM_VALIDATEDEMAND_SV.ValidScheduleType
3884 (
3885 x_header_rec => x_header_rec
3886 )
3887 ;
3888 --
3889 --
3890 --}
3891 EXCEPTION
3892 --{
3893 --
3894 --
3895 WHEN OTHERS THEN
3896 RAISE ;
3897 --
3898 --
3899 --}
3900 END ValidScheduleType;
3901 --
3902 --
3903 PROCEDURE ValidScheduleReferenceNum
3904 (
3905 x_header_rec IN OUT NOCOPY RLM_INTERFACE_HEADERS%ROWTYPE
3906 )
3907 IS
3908 --{
3909 --
3910 --
3911 --
3912 -- Internal Variables
3913 --
3914 k_program_unit_id CONSTANT NUMBER := 10729;
3915 --
3916 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3917 --
3918 l_customization_level VARCHAR2(32767);
3919 --
3920 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3921 --
3922 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3923 --
3924 --
3925 --
3926 --}
3927 BEGIN
3928 --{
3929 --
3930 --
3931 RLM_VALIDATEDEMAND_SV.ValidScheduleReferenceNum
3932 (
3933 x_header_rec => x_header_rec
3934 )
3935 ;
3936 --
3937 --
3938 --}
3939 EXCEPTION
3940 --{
3941 --
3942 --
3943 WHEN OTHERS THEN
3944 RAISE ;
3945 --
3946 --
3947 --}
3948 END ValidScheduleReferenceNum;
3949 --
3950 --
3951 PROCEDURE ValidHorizonDates
3952 (
3953 x_header_rec IN OUT NOCOPY RLM_INTERFACE_HEADERS%ROWTYPE
3954 )
3955 IS
3956 --{
3957 --
3958 --
3959 --
3960 -- Internal Variables
3961 --
3962 k_program_unit_id CONSTANT NUMBER := 10728;
3963 --
3964 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
3965 --
3966 l_customization_level VARCHAR2(32767);
3967 --
3968 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
3969 --
3970 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
3971 --
3972 --
3973 --
3974 --}
3975 BEGIN
3976 --{
3977 --
3978 --
3979 RLM_VALIDATEDEMAND_SV.ValidHorizonDates
3980 (
3981 x_header_rec => x_header_rec
3982 )
3983 ;
3984 --
3985 --
3986 --}
3987 EXCEPTION
3988 --{
3989 --
3990 --
3991 WHEN OTHERS THEN
3992 RAISE ;
3993 --
3994 --
3995 --}
3996 END ValidHorizonDates;
3997 --
3998 --
3999 PROCEDURE ValidScheduleSource
4000 (
4001 x_header_rec IN OUT NOCOPY RLM_INTERFACE_HEADERS%ROWTYPE
4002 )
4003 IS
4004 --{
4005 --
4006 --
4007 --
4008 -- Internal Variables
4009 --
4010 k_program_unit_id CONSTANT NUMBER := 10727;
4011 --
4012 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4013 --
4014 l_customization_level VARCHAR2(32767);
4015 --
4016 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4017 --
4018 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4019 --
4020 --
4021 --
4022 --}
4023 BEGIN
4024 --{
4025 --
4026 --
4027 RLM_VALIDATEDEMAND_SV.ValidScheduleSource
4028 (
4029 x_header_rec => x_header_rec
4030 )
4031 ;
4032 --
4033 --
4034 --}
4035 EXCEPTION
4036 --{
4037 --
4038 --
4039 WHEN OTHERS THEN
4040 RAISE ;
4041 --
4042 --
4043 --}
4044 END ValidScheduleSource;
4045 --
4046 --
4047 PROCEDURE ValidNumberLines
4048 (
4049 x_header_rec IN OUT NOCOPY RLM_INTERFACE_HEADERS%ROWTYPE
4050 )
4051 IS
4052 --{
4053 --
4054 --
4055 --
4056 -- Internal Variables
4057 --
4058 k_program_unit_id CONSTANT NUMBER := 10726;
4059 --
4060 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4061 --
4062 l_customization_level VARCHAR2(32767);
4063 --
4064 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4065 --
4066 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4067 --
4068 --
4069 --
4070 --}
4071 BEGIN
4072 --{
4073 --
4074 --
4075 RLM_VALIDATEDEMAND_SV.ValidNumberLines
4076 (
4077 x_header_rec => x_header_rec
4078 )
4079 ;
4080 --
4081 --
4082 --}
4083 EXCEPTION
4084 --{
4085 --
4086 --
4087 WHEN OTHERS THEN
4088 RAISE ;
4089 --
4090 --
4091 --}
4092 END ValidNumberLines;
4093 --
4094 --
4095 PROCEDURE ValidScheduleHeader
4096 (
4097 x_header_rec IN OUT NOCOPY RLM_INTERFACE_HEADERS%ROWTYPE
4098 )
4099 IS
4100 --{
4101 --
4102 --
4103 --
4104 -- Internal Variables
4105 --
4106 k_program_unit_id CONSTANT NUMBER := 10725;
4107 --
4108 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4109 --
4110 l_customization_level VARCHAR2(32767);
4111 --
4112 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4113 --
4114 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4115 --
4116 --
4117 --
4118 --}
4119 BEGIN
4120 --{
4121 --
4122 --
4123 RLM_VALIDATEDEMAND_SV.ValidScheduleHeader
4124 (
4125 x_header_rec => x_header_rec
4126 )
4127 ;
4128 --
4129 --
4130 --}
4131 EXCEPTION
4132 --{
4133 --
4134 --
4135 WHEN OTHERS THEN
4136 RAISE ;
4137 --
4138 --
4139 --}
4140 END ValidScheduleHeader;
4141 --
4142 --
4143 PROCEDURE ValidItemDetailType
4144 (
4145 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
4146 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE
4147 )
4148 IS
4149 --{
4150 --
4151 --
4152 --
4153 -- Internal Variables
4154 --
4155 k_program_unit_id CONSTANT NUMBER := 10724;
4156 --
4157 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4158 --
4159 l_customization_level VARCHAR2(32767);
4160 --
4161 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4162 --
4163 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4164 --
4165 --
4166 --
4167 --}
4168 BEGIN
4169 --{
4170 --
4171 --
4172 RLM_VALIDATEDEMAND_SV.ValidItemDetailType
4173 (
4174 x_header_rec => x_header_rec,
4175 x_lines_rec => x_lines_rec
4176 )
4177 ;
4178 --
4179 --
4180 --}
4181 EXCEPTION
4182 --{
4183 --
4184 --
4185 WHEN OTHERS THEN
4186 RAISE ;
4187 --
4188 --
4189 --}
4190 END ValidItemDetailType;
4191 --
4192 --
4193 PROCEDURE ValidItemDetailSubtype
4194 (
4195 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
4196 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE
4197 )
4198 IS
4199 --{
4200 --
4201 --
4202 --
4203 -- Internal Variables
4204 --
4205 k_program_unit_id CONSTANT NUMBER := 10723;
4206 --
4207 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4208 --
4209 l_customization_level VARCHAR2(32767);
4210 --
4211 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4212 --
4213 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4214 --
4215 --
4216 --
4217 --}
4218 BEGIN
4219 --{
4220 --
4221 --
4222 RLM_VALIDATEDEMAND_SV.ValidItemDetailSubtype
4223 (
4224 x_header_rec => x_header_rec,
4225 x_lines_rec => x_lines_rec
4226 )
4227 ;
4228 --
4229 --
4230 --}
4231 EXCEPTION
4232 --{
4233 --
4234 --
4235 WHEN OTHERS THEN
4236 RAISE ;
4237 --
4238 --
4239 --}
4240 END ValidItemDetailSubtype;
4241 --
4242 --
4243 PROCEDURE ValidQtyTypeCode
4244 (
4245 x_setup_terms_rec IN rlm_setup_terms_sv.setup_terms_rec_typ,
4246 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
4247 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE
4248 )
4249 IS
4250 --{
4251 --
4252 --
4253 --
4254 -- Internal Variables
4255 --
4256 k_program_unit_id CONSTANT NUMBER := 10722;
4257 --
4258 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4259 --
4260 l_customization_level VARCHAR2(32767);
4261 --
4262 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4263 --
4264 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4265 --
4266 --
4267 --
4268 --}
4269 BEGIN
4270 --{
4271 --
4272 --
4273 RLM_VALIDATEDEMAND_SV.ValidQtyTypeCode
4274 (
4275 x_setup_terms_rec => x_setup_terms_rec,
4276 x_header_rec => x_header_rec,
4277 x_lines_rec => x_lines_rec
4278 )
4279 ;
4280 --
4281 --
4282 --}
4283 EXCEPTION
4284 --{
4285 --
4286 --
4287 WHEN OTHERS THEN
4288 RAISE ;
4289 --
4290 --
4291 --}
4292 END ValidQtyTypeCode;
4293 --
4294 --
4295 PROCEDURE ValidItemDetailQty
4296 (
4297 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
4298 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE
4299 )
4300 IS
4301 --{
4302 --
4303 --
4304 --
4305 -- Internal Variables
4306 --
4307 k_program_unit_id CONSTANT NUMBER := 10721;
4308 --
4309 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4310 --
4311 l_customization_level VARCHAR2(32767);
4312 --
4313 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4314 --
4315 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4316 --
4317 --
4318 --
4319 --}
4320 BEGIN
4321 --{
4322 --
4323 --
4324 RLM_VALIDATEDEMAND_SV.ValidItemDetailQty
4325 (
4326 x_header_rec => x_header_rec,
4327 x_lines_rec => x_lines_rec
4328 )
4329 ;
4330 --
4331 --
4332 --}
4333 EXCEPTION
4334 --{
4335 --
4336 --
4337 WHEN OTHERS THEN
4338 RAISE ;
4339 --
4340 --
4341 --}
4342 END ValidItemDetailQty;
4343 --
4344 --
4345 PROCEDURE ValidDateTypeCode
4346 (
4347 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
4348 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE
4349 )
4350 IS
4351 --{
4352 --
4353 --
4354 --
4355 -- Internal Variables
4356 --
4357 k_program_unit_id CONSTANT NUMBER := 10720;
4358 --
4359 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4360 --
4361 l_customization_level VARCHAR2(32767);
4362 --
4363 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4364 --
4365 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4366 --
4367 --
4368 --
4369 --}
4370 BEGIN
4371 --{
4372 --
4373 --
4374 RLM_VALIDATEDEMAND_SV.ValidDateTypeCode
4375 (
4376 x_header_rec => x_header_rec,
4377 x_lines_rec => x_lines_rec
4378 )
4379 ;
4380 --
4381 --
4382 --}
4383 EXCEPTION
4384 --{
4385 --
4386 --
4387 WHEN OTHERS THEN
4388 RAISE ;
4389 --
4390 --
4391 --}
4392 END ValidDateTypeCode;
4393 --
4394 --
4395 PROCEDURE ValidDateRange
4396 (
4397 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
4398 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE
4399 )
4400 IS
4401 --{
4402 --
4403 --
4404 --
4405 -- Internal Variables
4406 --
4407 k_program_unit_id CONSTANT NUMBER := 10719;
4408 --
4409 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4410 --
4411 l_customization_level VARCHAR2(32767);
4412 --
4413 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4414 --
4415 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4416 --
4417 --
4418 --
4419 --}
4420 BEGIN
4421 --{
4422 --
4423 --
4424 RLM_VALIDATEDEMAND_SV.ValidDateRange
4425 (
4426 x_header_rec => x_header_rec,
4427 x_lines_rec => x_lines_rec
4428 )
4429 ;
4430 --
4431 --
4432 --}
4433 EXCEPTION
4434 --{
4435 --
4436 --
4437 WHEN OTHERS THEN
4438 RAISE ;
4439 --
4440 --
4441 --}
4442 END ValidDateRange;
4443 --
4444 --
4445 PROCEDURE ValidateUOM
4446 (
4447 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
4448 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE
4449 )
4450 IS
4451 --{
4452 --
4453 --
4454 --
4455 -- Internal Variables
4456 --
4457 k_program_unit_id CONSTANT NUMBER := 10718;
4458 --
4459 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4460 --
4461 l_customization_level VARCHAR2(32767);
4462 --
4463 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4464 --
4465 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4466 --
4467 --
4468 --
4469 --}
4470 BEGIN
4471 --{
4472 --
4473 --
4474 RLM_VALIDATEDEMAND_SV.ValidateUOM
4475 (
4476 x_header_rec => x_header_rec,
4477 x_lines_rec => x_lines_rec
4478 )
4479 ;
4480 --
4481 --
4482 --}
4483 EXCEPTION
4484 --{
4485 --
4486 --
4487 WHEN OTHERS THEN
4488 RAISE ;
4489 --
4490 --
4491 --}
4492 END ValidateUOM;
4493 --
4494 --
4495 PROCEDURE ValidOrderHeaderId
4496 (
4497 x_setup_terms_rec IN rlm_setup_terms_sv.setup_terms_rec_typ,
4498 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
4499 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE
4500 )
4501 IS
4502 --{
4503 --
4504 --
4505 --
4506 -- Internal Variables
4507 --
4508 k_program_unit_id CONSTANT NUMBER := 10717;
4509 --
4510 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4511 --
4512 l_customization_level VARCHAR2(32767);
4513 --
4514 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4515 --
4516 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4517 --
4518 --
4519 --
4520 --}
4521 BEGIN
4522 --{
4523 --
4524 --
4525 RLM_VALIDATEDEMAND_SV.ValidOrderHeaderId
4526 (
4527 x_setup_terms_rec => x_setup_terms_rec,
4528 x_header_rec => x_header_rec,
4529 x_lines_rec => x_lines_rec
4530 )
4531 ;
4532 --
4533 --
4534 --}
4535 EXCEPTION
4536 --{
4537 --
4538 --
4539 WHEN OTHERS THEN
4540 RAISE ;
4541 --
4542 --
4543 --}
4544 END ValidOrderHeaderId;
4545 --
4546 --
4547 PROCEDURE ValidateLineDetails
4548 (
4549 x_setup_terms_rec IN rlm_setup_terms_sv.setup_terms_rec_typ,
4550 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
4551 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE,
4552 x_line_source IN VARCHAR2
4553 )
4554 IS
4555 --{
4556 --
4557 --
4558 --
4559 -- Internal Variables
4560 --
4561 k_program_unit_id CONSTANT NUMBER := 10716;
4562 --
4563 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4564 --
4565 l_customization_level VARCHAR2(32767);
4566 --
4567 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4568 --
4569 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4570 --
4571 --
4572 --
4573 --}
4574 BEGIN
4575 --{
4576 --
4577 --
4578 RLM_VALIDATEDEMAND_SV.ValidateLineDetails
4579 (
4580 x_setup_terms_rec => x_setup_terms_rec,
4581 x_header_rec => x_header_rec,
4582 x_lines_rec => x_lines_rec,
4583 x_line_source => x_line_source
4584 )
4585 ;
4586 --
4587 --
4588 --}
4589 EXCEPTION
4590 --{
4591 --
4592 --
4593 WHEN OTHERS THEN
4594 RAISE ;
4595 --
4596 --
4597 --}
4598 END ValidateLineDetails;
4599 --
4600 --
4601 PROCEDURE ValidLineScheduleType
4602 (
4603 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
4604 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE
4605 )
4606 IS
4607 --{
4608 --
4609 --
4610 --
4611 -- Internal Variables
4612 --
4613 k_program_unit_id CONSTANT NUMBER := 10715;
4614 --
4615 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4616 --
4617 l_customization_level VARCHAR2(32767);
4618 --
4619 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4620 --
4621 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4622 --
4623 --
4624 --
4625 --}
4626 BEGIN
4627 --{
4628 --
4629 --
4630 RLM_VALIDATEDEMAND_SV.ValidLineScheduleType
4631 (
4632 x_header_rec => x_header_rec,
4633 x_lines_rec => x_lines_rec
4634 )
4635 ;
4636 --
4637 --
4638 --}
4639 EXCEPTION
4640 --{
4641 --
4642 --
4643 WHEN OTHERS THEN
4644 RAISE ;
4645 --
4646 --
4647 --}
4648 END ValidLineScheduleType;
4649 --
4650 --
4651 PROCEDURE ValidPlanningProdSeqNum
4652 (
4653 x_setup_terms_rec IN rlm_setup_terms_sv.setup_terms_rec_typ,
4654 x_header_rec IN RLM_INTERFACE_HEADERS%ROWTYPE,
4655 x_lines_rec IN OUT NOCOPY RLM_INTERFACE_LINES%ROWTYPE
4656 )
4657 IS
4658 --{
4659 --
4660 --
4661 --
4662 -- Internal Variables
4663 --
4664 k_program_unit_id CONSTANT NUMBER := 10714;
4665 --
4666 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4667 --
4668 l_customization_level VARCHAR2(32767);
4669 --
4670 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4671 --
4672 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4673 --
4674 --
4675 --
4676 --}
4677 BEGIN
4678 --{
4679 --
4680 --
4681 RLM_VALIDATEDEMAND_SV.ValidPlanningProdSeqNum
4682 (
4683 x_setup_terms_rec => x_setup_terms_rec,
4684 x_header_rec => x_header_rec,
4685 x_lines_rec => x_lines_rec
4686 )
4687 ;
4688 --
4689 --
4690 --}
4691 EXCEPTION
4692 --{
4693 --
4694 --
4695 WHEN OTHERS THEN
4696 RAISE ;
4697 --
4698 --
4699 --}
4700 END ValidPlanningProdSeqNum;
4701 --
4702 --
4703 PROCEDURE UpdateCumKey
4704 (
4705 x_trip_stop_id IN NUMBER,
4706 x_return_status OUT NOCOPY BOOLEAN
4707 )
4708 IS
4709 --{
4710 --
4711 --
4712 --
4713 -- Internal Variables
4714 --
4715 k_program_unit_id CONSTANT NUMBER := 10691;
4716 --
4717 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4718 --
4719 l_customization_level VARCHAR2(32767);
4720 --
4721 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4722 --
4723 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4724 --
4725 --
4726 --
4727 --}
4728 BEGIN
4729 --{
4730 --
4731 --
4732 RLM_CUM_SV.UpdateCumKey
4733 (
4734 x_trip_stop_id => x_trip_stop_id,
4735 x_return_status => x_return_status
4736 )
4737 ;
4738 --
4739 --
4740 --}
4741 EXCEPTION
4742 --{
4743 --
4744 --
4745 WHEN OTHERS THEN
4746 RAISE ;
4747 --
4748 --
4749 --}
4750 END UpdateCumKey;
4751 --
4752 --
4753 PROCEDURE CalculateSupplierCum
4754 (
4755 x_new_ship_count IN RLM_CUM_SV.t_new_ship_count DEFAULT RLM_CUM_SV.g_miss_new_ship_count,
4756 x_cum_key_record IN RLM_CUM_SV.cum_key_attrib_rec_type,
4757 x_cum_record IN OUT NOCOPY RLM_CUM_SV.cum_rec_type
4758 )
4759 IS
4760 --{
4761 --
4762 --
4763 --
4764 -- Internal Variables
4765 --
4766 k_program_unit_id CONSTANT NUMBER := 10690;
4767 --
4768 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
4769 --
4770 l_customization_level VARCHAR2(32767);
4771 --
4772 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
4773 --
4774 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
4775 --
4776 --
4777 --
4778 --}
4779 BEGIN
4780 --{
4781 --
4782 --
4783 RLM_CUM_SV.CalculateSupplierCum
4784 (
4785 x_new_ship_count => x_new_ship_count,
4786 x_cum_key_record => x_cum_key_record,
4787 x_cum_record => x_cum_record
4788 )
4789 ;
4790 --
4791 --
4792 --}
4793 EXCEPTION
4794 --{
4795 --
4796 --
4797 WHEN OTHERS THEN
4798 RAISE ;
4799 --
4800 --
4801 --}
4802 END CalculateSupplierCum;
4803 --
4804 --
4805 --
4806 --}
4807 END RLM_TPA_SV;
4808 --