[Home] [Help]
17: --
18: -- PRIVAT
19: -- Description:
20: --
21: -- Set the amounts standard_amount, money_amount and unitary_amount
22: -- and finance_line is of type VENDOR-PAYMENT.
23: --
24: Procedure set_type_V_amounts
25: (
23: --
24: Procedure set_type_V_amounts
25: (
26: p_resource_booking_id in number
27: ,p_standard_amount in out nocopy number
28: ,p_unitary_amount in out nocopy number
29: ,p_money_amount in out nocopy number
30: ) is
31: --
54: Else
55: --
56: Close sel_type_V_amounts;
57: --
58: p_standard_amount := null;
59: p_unitary_amount := null;
60: --
61: If p_money_amount is null Then
62: --
76: --
77: -- PRIVAT
78: -- Description:
79: --
80: -- Set the amounts standard_amount, money_amount and unitary_amount
81: -- and finance_line is of type RESOURCE CHARGE.
82: --
83: Procedure set_type_R_amounts
84: (
82: --
83: Procedure set_type_R_amounts
84: (
85: p_resource_allocation_id in number
86: ,p_standard_amount in out nocopy number
87: ,p_unitary_amount in out nocopy number
88: ,p_money_amount in out nocopy number
89: ) is
90: --
116: Else
117: --
118: Close sel_type_R_amounts;
119: --
120: p_standard_amount := null;
121: p_unitary_amount := null;
122: --
123: If p_money_amount is null Then
124: --
138: --
139: -- PRIVAT
140: -- Description:
141: --
142: -- Set the amounts standard_amount, money_amount and unitary_amount
143: -- and finance_line is of type PRE-PURCHASE.
144: --
145: Procedure set_type_P_amounts
146: (
145: Procedure set_type_P_amounts
146: (
147: p_booking_deal_id in number
148: ,p_currency_precision in number
149: ,p_standard_amount in out nocopy number
150: ,p_unitary_amount in out nocopy number
151: ,p_money_amount in out nocopy number
152: ) is
153: --
190: --
191: -- Pre-purchase deal arranged in training units
192: --
193: p_unitary_amount := nvl( p_unitary_amount, 0);
194: p_standard_amount := null;
195: --
196: If p_money_amount is null Then
197: --
198: p_money_amount := round(v_single_unit_price*p_unitary_amount
205: --
206: -- Pre-purchase deal arranged in money
207: --
208: p_unitary_amount := null;
209: p_standard_amount := null;
210: p_money_amount := p_money_amount;
211: --
212: End if;
213: --
296: --
297: -- PRIVAT
298: -- Description:
299: --
300: -- Set the amounts standard_amount, money_amount and unitary_amount
301: -- and finance_line is of type ENROLLMENT. A booking deal does exist
302: -- and applied to PRICE_LIST.
303: -- The price list entry vendor must be the same vendor as on the event,
304: -- or the price list entry vendor may be null.
309: ,p_price_list_id in number
310: ,p_event_id in number
311: ,p_activity_version_id in number
312: ,p_price_basis in varchar2
313: ,p_standard_amount in out nocopy number
314: ,p_unitary_amount in out nocopy number
315: ,p_money_amount in out nocopy number
316: ,p_single_unit_price in number
317: ,p_currency_code in varchar2
330: --
331: cursor sel_type_E_tpe_event is
332: select decode(p_price_list_type,'T',tpe.price
333: ,tpe.price)
334: , evt.standard_price
335: from ota_events evt
336: , ota_price_list_entries tpe
337: , ota_price_lists tpl
338: where evt.event_id = p_event_id
379: hr_utility.trace(p_price_list_id);
380: hr_utility.trace(p_event_id);
381: hr_utility.trace(p_activity_version_id);
382: hr_utility.trace(p_price_basis);
383: hr_utility.trace(p_standard_amount);
384: hr_utility.trace(p_unitary_amount);
385: hr_utility.trace(p_money_amount);
386: hr_utility.trace(p_single_unit_price);
387: hr_utility.trace(p_currency_code);
410: --
411: if p_price_basis = 'C' then
412: null;
413: else
414: p_standard_amount := v_evt_price;
415: end if;
416: --
417: If p_price_list_type = 'T' Then
418: --
442: --
443: If p_money_amount is null Then
444: --
445: --
446: -- GP Changed so that standard price taken from price list
447: --
448: p_standard_amount := v_tpe_price;
449: p_money_amount :=
450: round(p_standard_amount*p_number_of_places*
444: --
445: --
446: -- GP Changed so that standard price taken from price list
447: --
448: p_standard_amount := v_tpe_price;
449: p_money_amount :=
450: round(p_standard_amount*p_number_of_places*
451: (1 - p_discount_percentage/100)
452: ,p_currency_precision);
446: -- GP Changed so that standard price taken from price list
447: --
448: p_standard_amount := v_tpe_price;
449: p_money_amount :=
450: round(p_standard_amount*p_number_of_places*
451: (1 - p_discount_percentage/100)
452: ,p_currency_precision);
453: --
454: End if;
461: hr_utility.trace(p_price_list_id);
462: hr_utility.trace(p_event_id);
463: hr_utility.trace(p_activity_version_id);
464: hr_utility.trace(p_price_basis);
465: hr_utility.trace(p_standard_amount);
466: hr_utility.trace(p_unitary_amount);
467: hr_utility.trace(p_money_amount);
468: hr_utility.trace(p_single_unit_price);
469: hr_utility.trace(p_currency_code);
483: --
484: -- PRIVAT
485: -- Description:
486: --
487: -- Set the amounts standard_amount, money_amount and unitary_amount
488: -- and finance_line is of type ENROLLMENT. A booking deal does exist
489: -- and applied to EVENT.
490: --
491: Procedure set_type_E_evt_amounts
492: (
493: p_event_id in number
494: ,p_tbd_event_id in number
495: ,p_price_basis in varchar2
496: ,p_standard_amount in out nocopy number
497: ,p_unitary_amount in out nocopy number
498: ,p_money_amount in out nocopy number
499: ,p_currency_code in varchar2
500: ,p_currency_precision in number
501: ,p_discount_percentage in number
502: ,p_number_of_places in number
503: ) is
504: --
505: v_standard_price number(11,2);
506: v_proc varchar2(72) := g_package||'set_type_E_evt_amounts';
507: --
508: cursor sel_type_E_evt_event is
509: select evt.standard_price
505: v_standard_price number(11,2);
506: v_proc varchar2(72) := g_package||'set_type_E_evt_amounts';
507: --
508: cursor sel_type_E_evt_event is
509: select evt.standard_price
510: from ota_events evt
511: where evt.event_id = p_event_id
512: and evt.event_id = p_tbd_event_id
513: and evt.currency_code = p_currency_code;
520: --
521: If p_event_id is NOT null Then
522: --
523: Open sel_type_E_evt_event;
524: Fetch sel_type_E_evt_event into v_standard_price;
525: --
526: If sel_type_E_evt_event%notfound then
527: --
528: Close sel_type_E_evt_event;
536: --
537: if p_price_basis = 'C' then
538: null;
539: else
540: p_standard_amount := v_standard_price;
541: end if;
542: p_unitary_amount := null;
543: --
544: If p_money_amount is null Then
543: --
544: If p_money_amount is null Then
545: --
546: p_money_amount :=
547: round(p_standard_amount*p_number_of_places*
548: (1 - p_discount_percentage/100)
549: ,p_currency_precision);
550: --
551: End if;
561: --
562: -- PRIVAT
563: -- Description:
564: --
565: -- Set the amounts standard_amount, money_amount and unitary_amount
566: -- and finance_line is of type ENROLLMENT. A booking deal does exist
567: -- and applied to ACTIVITY_VERSION.
568: --
569: Procedure set_type_E_tav_amounts
570: (
571: p_event_id in number
572: ,p_activity_version_id in number
573: ,p_price_basis in varchar2
574: ,p_standard_amount in out nocopy number
575: ,p_unitary_amount in out nocopy number
576: ,p_money_amount in out nocopy number
577: ,p_currency_code in varchar2
578: ,p_currency_precision in number
579: ,p_discount_percentage in number
580: ,p_number_of_places in number
581: ) is
582: --
583: v_standard_price number(11,2);
584: v_proc varchar2(72) := g_package||'set_type_E_tav_amounts';
585: --
586: cursor sel_type_E_tav_event is
587: select evt.standard_price
583: v_standard_price number(11,2);
584: v_proc varchar2(72) := g_package||'set_type_E_tav_amounts';
585: --
586: cursor sel_type_E_tav_event is
587: select evt.standard_price
588: from ota_events evt
589: where evt.event_id = p_event_id
590: and evt.activity_version_id = p_activity_version_id
591: and evt.currency_code = p_currency_code;
595: hr_utility.set_location('Entering:'|| v_proc, 5);
596: --
597: --
598: Open sel_type_E_tav_event;
599: Fetch sel_type_E_tav_event into v_standard_price;
600: --
601: If sel_type_E_tav_event%notfound then
602: --
603: Close sel_type_E_tav_event;
611: --
612: if p_price_basis = 'C' then
613: null;
614: else
615: p_standard_amount := v_standard_price;
616: end if;
617: p_unitary_amount := null;
618: --
619: If p_money_amount is null Then
618: --
619: If p_money_amount is null Then
620: --
621: p_money_amount :=
622: round(p_standard_amount*p_number_of_places*
623: (1 - p_discount_percentage/100)
624: ,p_currency_precision);
625: --
626: End if;
637: --
638: -- PRIVAT
639: -- Description:
640: --
641: -- Set the amounts standard_amount, money_amount and unitary_amount
642: -- and finance_line is of type ENROLLMENT. A booking deal does exist
643: -- and applied to CATEGORY.
644: --
645: Procedure set_type_E_cat_amounts
646: (
647: p_event_id in number
648: ,p_category in varchar2
649: ,p_price_basis in varchar2
650: ,p_standard_amount in out nocopy number
651: ,p_unitary_amount in out nocopy number
652: ,p_money_amount in out nocopy number
653: ,p_currency_code in varchar2
654: ,p_currency_precision in number
655: ,p_discount_percentage in number
656: ,p_number_of_places in number
657: ) is
658: --
659: v_standard_price number(11,2);
660: v_proc varchar2(72) := g_package||'set_type_E_cat_amounts';
661: --
662: cursor sel_type_E_cat_event is
663: select evt.standard_price
659: v_standard_price number(11,2);
660: v_proc varchar2(72) := g_package||'set_type_E_cat_amounts';
661: --
662: cursor sel_type_E_cat_event is
663: select evt.standard_price
664: from ota_events evt
665: , ota_act_cat_inclusions aci
666: where evt.event_id = p_event_id
667: and aci.activity_version_id = evt.activity_version_id
674: --
675: -- Take Event and Activity Version for searching
676: --
677: Open sel_type_E_cat_event;
678: Fetch sel_type_E_cat_event into v_standard_price;
679: --
680: If sel_type_E_cat_event%notfound then
681: --
682: Close sel_type_E_cat_event;
690: --
691: if p_price_basis = 'C' then
692: null;
693: else
694: p_standard_amount := v_standard_price;
695: end if;
696: p_unitary_amount := null;
697: --
698: If p_money_amount is null Then
697: --
698: If p_money_amount is null Then
699: --
700: p_money_amount :=
701: round(p_standard_amount*p_number_of_places*
702: (1 - p_discount_percentage/100)
703: ,p_currency_precision);
704: --
705: End if;
716: --
717: -- PRIVAT
718: -- Description:
719: --
720: -- Set the amounts standard_amount, money_amount and unitary_amount
721: -- and finance_line is of type ENROLLMENT. A booking deal does NOT exist.
722: --
723: Procedure set_no_deal_amounts
724: (
724: (
725: p_event_id in number
726: ,p_currency_code in varchar2
727: ,p_price_basis in varchar2
728: ,p_standard_amount in out nocopy number
729: ,p_unitary_amount in out nocopy number
730: ,p_money_amount in out nocopy number
731: ,p_number_of_places in number
732: ) is
730: ,p_money_amount in out nocopy number
731: ,p_number_of_places in number
732: ) is
733: --
734: v_standard_price number;
735: v_proc varchar2(72) := g_package||'set_no_deal_amounts';
736: --
737: cursor sel_event_no_deal is
738: select evt.standard_price
734: v_standard_price number;
735: v_proc varchar2(72) := g_package||'set_no_deal_amounts';
736: --
737: cursor sel_event_no_deal is
738: select evt.standard_price
739: from ota_events evt
740: where evt.event_id = p_event_id
741: and evt.currency_code = p_currency_code;
742: --
746: --
747: --
748: If p_event_id is not null then
749: Open sel_event_no_deal;
750: Fetch sel_event_no_deal into v_standard_price;
751: --
752: If sel_event_no_deal%notfound then
753: --
754: Close sel_event_no_deal;
762: --
763: if p_price_basis = 'C' then
764: null;
765: else
766: p_standard_amount := v_standard_price;
767: end if;
768: p_unitary_amount := null;
769: --
770: If p_money_amount is null Then
768: p_unitary_amount := null;
769: --
770: If p_money_amount is null Then
771: --
772: p_money_amount := p_standard_amount*p_number_of_places;
773: --
774: End if;
775: --
776: End if;
787: --
788: -- PUBLIC
789: -- Description:
790: --
791: -- Set the AMOUNTS standard_amount, money_amount and unitary_amount
792: -- depending on the finance_line type and the booking deal type.
793: --
794: Procedure set_all_amounts
795: (
802: ,p_booking_deal_id in number
803: ,p_resource_allocation_id in number
804: ,p_resource_booking_id in number
805: ,p_currency_code in varchar2
806: ,p_standard_amount in out nocopy number
807: ,p_money_amount in out nocopy number
808: ,p_unitary_amount in out nocopy number
809: ) is
810: --
849: --
850: -- * VENDOR PAYMENT
851: --
852: set_type_V_amounts( p_resource_booking_id
853: , p_standard_amount
854: , p_unitary_amount
855: , p_money_amount );
856: --
857: ElsIf p_finance_line_type = 'R' Then
858: --
859: -- * RESOURCE CHARGE
860: --
861: set_type_R_amounts( p_resource_allocation_id
862: , p_standard_amount
863: , p_unitary_amount
864: , p_money_amount );
865: --
866: ElsIf p_finance_line_type = 'P' Then
868: -- * PRE-PURCHASE
869: --
870: set_type_P_amounts( p_booking_deal_id
871: , v_currency_precision
872: , p_standard_amount
873: , p_unitary_amount
874: , p_money_amount );
875: --
876: ElsIf p_finance_line_type = 'E' Then
890: end if;
891: --
892: /*
893: Set the number of places to 1 if the Price Basis is 'Customer' because
894: the standard price represents the price for the entire booking (not per place)
895: --
896: Store the actual number of places (used to derive price from Customer based
897: price list)
898: */
915: , v_price_list_type
916: , v_single_unit_price );
917: --
918: /*
919: If the Price Basis is 'C' then the Standard Amount is used to calculate
920: the monetary and unitary amounts.
921:
922: However the SQL that is used to retrieve the Standard Price for Price Basis
923: of 'S' is still used to establish that the Event and Booking Deals are
918: /*
919: If the Price Basis is 'C' then the Standard Amount is used to calculate
920: the monetary and unitary amounts.
921:
922: However the SQL that is used to retrieve the Standard Price for Price Basis
923: of 'S' is still used to establish that the Event and Booking Deals are
924: compatible.
925: */
926: If v_book_deal_type = 'P' Then
931: , v_price_list_id
932: , v_event_id
933: , p_activity_version_id
934: , v_price_basis
935: , p_standard_amount
936: , p_unitary_amount
937: , p_money_amount
938: , v_single_unit_price
939: , p_currency_code
952: -- is for a price list, if the vendor supplier is entered on the
953: -- price list entry then the supplier of the event must match it.
954: -- The starting price for the discount comes from this price list
955: -- entry. When a discount is applied, the original value is placed in the
956: -- STANDARD_AMOUNT attribute.
957: --
958: If v_price_list_id is NOT null Then
959: --
960: set_type_E_tpe_amounts( v_price_list_type
961: , v_price_list_id
962: , v_event_id
963: , p_activity_version_id
964: , v_price_basis
965: , p_standard_amount
966: , p_unitary_amount
967: , p_money_amount
968: , v_single_unit_price
969: , p_currency_code
976: --
977: set_type_E_evt_amounts( v_event_id
978: , v_tbd_event_id
979: , v_price_basis
980: , p_standard_amount
981: , p_unitary_amount
982: , p_money_amount
983: , p_currency_code
984: , v_currency_precision
989: --
990: set_type_E_tav_amounts( v_event_id
991: , v_activity_version_id
992: , v_price_basis
993: , p_standard_amount
994: , p_unitary_amount
995: , p_money_amount
996: , p_currency_code
997: , v_currency_precision
1002: --
1003: set_type_E_cat_amounts( v_event_id
1004: , v_category
1005: , v_price_basis
1006: , p_standard_amount
1007: , p_unitary_amount
1008: , p_money_amount
1009: , p_currency_code
1010: , v_currency_precision
1021: --
1022: set_no_deal_amounts( v_event_id
1023: , p_currency_code
1024: , v_price_basis
1025: , p_standard_amount
1026: , p_unitary_amount
1027: , p_money_amount
1028: , v_number_of_places);
1029: --
1077: , l_transfer_status
1078: , p_rec_finance_line.comments
1079: , p_rec_finance_line.currency_code
1080: , p_rec_finance_line.money_amount
1081: , p_rec_finance_line.standard_amount
1082: , p_rec_finance_line.trans_information_category
1083: , p_rec_finance_line.trans_information1
1084: , p_rec_finance_line.trans_information10
1085: , p_rec_finance_line.trans_information11