7: ,p_blanket_header_id NUMBER DEFAULT NULL)
8: RETURN BOOLEAN IS
9: l_dummy VARCHAR2(30);
10: --
11: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12: --
13: BEGIN
14:
15: if l_debug_level > 0 then
12: --
13: BEGIN
14:
15: if l_debug_level > 0 then
16: oe_debug_pub.add('Enter OEXQPBLB IS_BLANKET_PRICE_LIST');
17: end if;
18:
19:
20: SELECT 'VALID'
28:
29: EXCEPTION
30: WHEN NO_DATA_FOUND THEN
31: if l_debug_level > 0 then
32: oe_debug_pub.ADD('Not a blanket price list', 1);
33: end if;
34: RETURN FALSE;
35:
36: END IS_BLANKET_PRICE_LIST;
79: l_hdr_req_index NUMBER;
80: l_line_req_index_tbl OE_GLOBALS.Number_Tbl_Type;
81:
82: --
83: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
84: --
85: BEGIN
86:
87: if l_debug_level > 0 then
84: --
85: BEGIN
86:
87: if l_debug_level > 0 then
88: oe_debug_pub.add('Enter Create_Modifiers',1);
89: end if;
90:
91: x_return_status := FND_API.G_RET_STS_SUCCESS;
92:
131: l_qualifiers_tbl(1).active_flag := 'Y'; /* jhkuo */
132: l_qualifiers_tbl(1).list_type_code := 'DLT'; /* jhkuo */
133:
134: if l_debug_level > 0 then
135: oe_debug_pub.add('Modifier Name :'||l_modifier_list_rec.name);
136: oe_debug_pub.add('Modifier Currency :'||l_modifier_list_rec.currency_code);
137: end if;
138:
139: ELSIF l_request_rec.request_type = 'ADD_MODIFIER_LIST_LINE' THEN
132: l_qualifiers_tbl(1).list_type_code := 'DLT'; /* jhkuo */
133:
134: if l_debug_level > 0 then
135: oe_debug_pub.add('Modifier Name :'||l_modifier_list_rec.name);
136: oe_debug_pub.add('Modifier Currency :'||l_modifier_list_rec.currency_code);
137: end if;
138:
139: ELSIF l_request_rec.request_type = 'ADD_MODIFIER_LIST_LINE' THEN
140:
166:
167: WHILE I IS NOT NULL LOOP
168:
169: l_request_rec := oe_delayed_requests_pvt.g_delayed_requests(I);
170: oe_debug_pub.add('Req Type :'||l_request_rec.request_type);
171:
172: IF l_request_rec.request_type = 'ADD_MODIFIER_LIST_LINE' THEN
173:
174: -----------------------------------------------------------
179: AND (l_request_rec.param2 IS NULL OR l_request_rec.param2=FND_API.G_MISS_NUM)
180: THEN
181: IF l_debug_level > 0
182: THEN
183: oe_debug_pub.add('Skip for null values');
184: END IF;
185: oe_delayed_requests_pvt.g_delayed_requests.delete(I);
186: GOTO SKIP_LINE;
187: END IF;
234: l_line_id_tbl(J) := l_request_rec.entity_id;
235: l_line_req_index_tbl(J) := I;
236:
237: if l_debug_level > 0 then
238: oe_debug_pub.add('Operator :'||l_modifiers_tbl(J).arithmetic_operator);
239: oe_debug_pub.add('Operand :'||l_modifiers_tbl(J).operand);
240: oe_debug_pub.add('Prod Attr :'||l_pricing_attr_tbl(J).product_attribute);
241: oe_debug_pub.add('Prod Attr Val :'||l_pricing_attr_tbl(J).product_attr_value);
242: end if;
235: l_line_req_index_tbl(J) := I;
236:
237: if l_debug_level > 0 then
238: oe_debug_pub.add('Operator :'||l_modifiers_tbl(J).arithmetic_operator);
239: oe_debug_pub.add('Operand :'||l_modifiers_tbl(J).operand);
240: oe_debug_pub.add('Prod Attr :'||l_pricing_attr_tbl(J).product_attribute);
241: oe_debug_pub.add('Prod Attr Val :'||l_pricing_attr_tbl(J).product_attr_value);
242: end if;
243: J := J + 1;
236:
237: if l_debug_level > 0 then
238: oe_debug_pub.add('Operator :'||l_modifiers_tbl(J).arithmetic_operator);
239: oe_debug_pub.add('Operand :'||l_modifiers_tbl(J).operand);
240: oe_debug_pub.add('Prod Attr :'||l_pricing_attr_tbl(J).product_attribute);
241: oe_debug_pub.add('Prod Attr Val :'||l_pricing_attr_tbl(J).product_attr_value);
242: end if;
243: J := J + 1;
244:
237: if l_debug_level > 0 then
238: oe_debug_pub.add('Operator :'||l_modifiers_tbl(J).arithmetic_operator);
239: oe_debug_pub.add('Operand :'||l_modifiers_tbl(J).operand);
240: oe_debug_pub.add('Prod Attr :'||l_pricing_attr_tbl(J).product_attribute);
241: oe_debug_pub.add('Prod Attr Val :'||l_pricing_attr_tbl(J).product_attr_value);
242: end if;
243: J := J + 1;
244:
245: END IF;
304: l_qualifiers_tbl(J).qualifier_context := 'ORDER';
305: l_qualifiers_tbl(J).qualifier_precedence := 800;
306: l_qualifiers_tbl(J).qualifier_attribute := 'QUALIFIER_ATTRIBUTE6';
307: -- Blanket Line ID is the qualifier attribute value
308: oe_debug_pub.add('entity id :'||l_line_id_tbl(J));
309: l_qualifiers_tbl(J).qualifier_attr_value := l_line_id_tbl(J);
310: l_qualifiers_tbl(J).qualifier_grouping_no := 1;
311: l_qualifiers_tbl(J).operation := QP_GLOBALS.G_OPR_CREATE;
312: -- Copy list line ID from created modiifer lines table
313: l_qualifiers_tbl(J).list_header_id :=
314: l_x_modifiers_tbl(J).list_header_id;
315: l_qualifiers_tbl(J).list_line_id :=
316: l_x_modifiers_tbl(J).list_line_id;
317: oe_debug_pub.add('sending list header id on qual :'||
318: l_qualifiers_tbl(J).list_header_id);
319: oe_debug_pub.add('sending list line id on qual :'||
320: l_qualifiers_tbl(J).list_line_id);
321:
315: l_qualifiers_tbl(J).list_line_id :=
316: l_x_modifiers_tbl(J).list_line_id;
317: oe_debug_pub.add('sending list header id on qual :'||
318: l_qualifiers_tbl(J).list_header_id);
319: oe_debug_pub.add('sending list line id on qual :'||
320: l_qualifiers_tbl(J).list_line_id);
321:
322: J := l_x_modifiers_tbl.NEXT(J);
323:
353: -- Update modifier list header id on blanket header table
354: IF l_modifier_list_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
355:
356: if l_debug_level > 0 then
357: oe_debug_pub.add('blanket header id :'||l_blanket_header_id);
358: oe_debug_pub.add('set modifier list id :'||
359: l_x_modifier_list_rec.list_header_id);
360: end if;
361:
354: IF l_modifier_list_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
355:
356: if l_debug_level > 0 then
357: oe_debug_pub.add('blanket header id :'||l_blanket_header_id);
358: oe_debug_pub.add('set modifier list id :'||
359: l_x_modifier_list_rec.list_header_id);
360: end if;
361:
362: update oe_blanket_headers
381: I := l_line_id_tbl.FIRST;
382: WHILE I IS NOT NULL LOOP
383:
384: if l_debug_level > 0 then
385: oe_debug_pub.add('blanket line id :'||l_line_id_tbl(I));
386: oe_debug_pub.add('modifier list line id :'||l_x_modifiers_tbl(I).list_line_id);
387: end if;
388:
389: update oe_blanket_lines
382: WHILE I IS NOT NULL LOOP
383:
384: if l_debug_level > 0 then
385: oe_debug_pub.add('blanket line id :'||l_line_id_tbl(I));
386: oe_debug_pub.add('modifier list line id :'||l_x_modifiers_tbl(I).list_line_id);
387: end if;
388:
389: update oe_blanket_lines
390: set lock_control = lock_control + 1
406: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
407: oe_blanket_util.g_new_modifier_list := FALSE;
408:
409: if l_debug_level > 0 then
410: oe_debug_pub.add('Exit Create_Modifiers',1);
411: end if;
412: EXCEPTION
413: WHEN FND_API.G_EXC_ERROR THEN
414: x_return_status := fnd_api.g_ret_sts_error;
443: ppr_qualifiers_val_tbl QP_Qualifier_Rules_Pub.Qualifiers_Val_Tbl_Type;
444: ppr_pricing_attr_tbl QP_PRICE_LIST_PUB.Pricing_Attr_Tbl_Type;
445: ppr_pricing_attr_val_tbl QP_PRICE_LIST_PUB.Pricing_Attr_Val_Tbl_Type;
446: --
447: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
448: --
449: BEGIN
450:
451: if l_debug_level > 0 then
448: --
449: BEGIN
450:
451: if l_debug_level > 0 then
452: oe_debug_pub.add('Enter Deactivate_Price_List');
453: oe_debug_pub.add('p_list_header_id :'||p_list_header_id);
454: oe_debug_pub.add('p_list_line_id :'||p_list_line_id);
455: end if;
456:
449: BEGIN
450:
451: if l_debug_level > 0 then
452: oe_debug_pub.add('Enter Deactivate_Price_List');
453: oe_debug_pub.add('p_list_header_id :'||p_list_header_id);
454: oe_debug_pub.add('p_list_line_id :'||p_list_line_id);
455: end if;
456:
457: IF p_list_header_id IS NOT NULL THEN
450:
451: if l_debug_level > 0 then
452: oe_debug_pub.add('Enter Deactivate_Price_List');
453: oe_debug_pub.add('p_list_header_id :'||p_list_header_id);
454: oe_debug_pub.add('p_list_line_id :'||p_list_line_id);
455: end if;
456:
457: IF p_list_header_id IS NOT NULL THEN
458: gpr_price_list_rec.list_header_id := p_list_header_id;
486: , x_PRICING_ATTR_val_tbl => ppr_pricing_attr_val_tbl
487: );
488:
489: if l_debug_level > 0 then
490: oe_debug_pub.add('Exit Deactivate_Price_List');
491: end if;
492:
493: EXCEPTION
494: WHEN FND_API.G_EXC_ERROR THEN
515: l_return_status varchar2(30);
516: l_msg_count number := 0;
517: l_msg_data varchar2(2000);
518: --
519: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
520: --
521: l_modifier_list_rec QP_Modifiers_PUB.Modifier_List_Rec_Type;
522: l_modifiers_tbl QP_Modifiers_PUB.Modifiers_Tbl_Type;
523: l_x_modifier_list_rec QP_Modifiers_PUB.Modifier_List_Rec_Type;
531: l_control_rec QP_GLOBALS.Control_Rec_Type;
532: BEGIN
533:
534: if l_debug_level > 0 then
535: oe_debug_pub.add('Enter Deactivate_Modifier');
536: oe_debug_pub.add('p_list_header_id :'||p_list_header_id);
537: oe_debug_pub.add('p_list_line_id :'||p_list_line_id);
538: end if;
539:
532: BEGIN
533:
534: if l_debug_level > 0 then
535: oe_debug_pub.add('Enter Deactivate_Modifier');
536: oe_debug_pub.add('p_list_header_id :'||p_list_header_id);
537: oe_debug_pub.add('p_list_line_id :'||p_list_line_id);
538: end if;
539:
540: IF p_list_header_id IS NOT NULL THEN
533:
534: if l_debug_level > 0 then
535: oe_debug_pub.add('Enter Deactivate_Modifier');
536: oe_debug_pub.add('p_list_header_id :'||p_list_header_id);
537: oe_debug_pub.add('p_list_line_id :'||p_list_line_id);
538: end if;
539:
540: IF p_list_header_id IS NOT NULL THEN
541: l_modifier_list_rec.list_header_id := p_list_header_id;
581: raise fnd_api.g_exc_unexpected_error;
582: end if;
583:
584: if l_debug_level > 0 then
585: oe_debug_pub.add('Exit Deactivate_Modifier');
586: end if;
587:
588: EXCEPTION
589: WHEN FND_API.G_EXC_ERROR THEN
615: l_msg_count NUMBER;
616: l_msg_data VARCHAR2(2000);
617: l_exist_qp_list_line_id VARCHAR2(1) := 'Y';
618: --
619: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
620: --
621: BEGIN
622:
623: if l_debug_level > 0 then
620: --
621: BEGIN
622:
623: if l_debug_level > 0 then
624: oe_debug_pub.add('Enter Deactivate_Pricing');
625: oe_debug_pub.add('p_blanket_header_id :'||p_blanket_header_id);
626: oe_debug_pub.add('p_blanket_line_id :'||p_blanket_line_id);
627: end if;
628:
621: BEGIN
622:
623: if l_debug_level > 0 then
624: oe_debug_pub.add('Enter Deactivate_Pricing');
625: oe_debug_pub.add('p_blanket_header_id :'||p_blanket_header_id);
626: oe_debug_pub.add('p_blanket_line_id :'||p_blanket_line_id);
627: end if;
628:
629: x_return_status := fnd_api.g_ret_sts_success;
622:
623: if l_debug_level > 0 then
624: oe_debug_pub.add('Enter Deactivate_Pricing');
625: oe_debug_pub.add('p_blanket_header_id :'||p_blanket_header_id);
626: oe_debug_pub.add('p_blanket_line_id :'||p_blanket_line_id);
627: end if;
628:
629: x_return_status := fnd_api.g_ret_sts_success;
630:
698:
699: END IF;
700:
701: if l_debug_level > 0 then
702: oe_debug_pub.add('Exit Deactivate_Pricing');
703: end if;
704:
705: EXCEPTION
706: WHEN FND_API.G_EXC_ERROR THEN
723: ( p_blanket_number IN NUMBER
724: )RETURN NUMBER IS
725: l_blanket_header_id NUMBER;
726: --
727: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
728: --
729: BEGIN
730:
731: if l_debug_level > 0 then
728: --
729: BEGIN
730:
731: if l_debug_level > 0 then
732: oe_debug_pub.add('Enter Get_Blanket_Header_ID');
733: oe_debug_pub.add('Blanket num :'||p_blanket_number);
734: end if;
735:
736: IF p_blanket_number IS NOT NULL
729: BEGIN
730:
731: if l_debug_level > 0 then
732: oe_debug_pub.add('Enter Get_Blanket_Header_ID');
733: oe_debug_pub.add('Blanket num :'||p_blanket_number);
734: end if;
735:
736: IF p_blanket_number IS NOT NULL
737: AND p_blanket_number <> FND_API.G_MISS_NUM
743: and org_id = mo_global.get_current_org_id;
744: END IF;
745:
746: if l_debug_level > 0 then
747: oe_debug_pub.add('Return Get_Blanket_Header_ID :'||l_blanket_header_id);
748: end if;
749:
750: RETURN l_blanket_header_id;
751:
751:
752: EXCEPTION
753: WHEN NO_DATA_FOUND THEN
754: if l_debug_level > 0 then
755: oe_debug_pub.add('No data found in Get_Blanket_Header_ID');
756: end if;
757: RETURN NULL;
758: WHEN OTHERS THEN
759: IF l_debug_level > 0 THEN
756: end if;
757: RETURN NULL;
758: WHEN OTHERS THEN
759: IF l_debug_level > 0 THEN
760: oe_debug_pub.add('other error :'||SQLERRM ) ;
761: END IF;
762: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
763: THEN
764: OE_MSG_PUB.Add_Exc_Msg
774: , p_blanket_line_number IN NUMBER
775: )RETURN NUMBER IS
776: l_blanket_line_id NUMBER;
777: --
778: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
779: --
780: BEGIN
781:
782: if l_debug_level > 0 then
779: --
780: BEGIN
781:
782: if l_debug_level > 0 then
783: oe_debug_pub.add('Enter Get_Blanket_Line_ID');
784: oe_debug_pub.add('Blanket num :'||p_blanket_number);
785: oe_debug_pub.add('Blanket line num :'||p_blanket_line_number);
786: end if;
787:
780: BEGIN
781:
782: if l_debug_level > 0 then
783: oe_debug_pub.add('Enter Get_Blanket_Line_ID');
784: oe_debug_pub.add('Blanket num :'||p_blanket_number);
785: oe_debug_pub.add('Blanket line num :'||p_blanket_line_number);
786: end if;
787:
788: IF p_blanket_number IS NOT NULL
781:
782: if l_debug_level > 0 then
783: oe_debug_pub.add('Enter Get_Blanket_Line_ID');
784: oe_debug_pub.add('Blanket num :'||p_blanket_number);
785: oe_debug_pub.add('Blanket line num :'||p_blanket_line_number);
786: end if;
787:
788: IF p_blanket_number IS NOT NULL
789: AND p_blanket_line_number IS NOT NULL
795: and line_number = p_blanket_line_number;
796: END IF;
797:
798: if l_debug_level > 0 then
799: oe_debug_pub.add('Return Get_Blanket_Line_ID :'||l_blanket_line_id);
800: end if;
801:
802: RETURN l_blanket_line_id;
803:
803:
804: EXCEPTION
805: WHEN NO_DATA_FOUND THEN
806: if l_debug_level > 0 then
807: oe_debug_pub.add('No data found in Get_Blanket_Line_ID');
808: end if;
809: RETURN NULL;
810: WHEN OTHERS THEN
811: IF l_debug_level > 0 THEN
808: end if;
809: RETURN NULL;
810: WHEN OTHERS THEN
811: IF l_debug_level > 0 THEN
812: oe_debug_pub.add('other error :'||SQLERRM ) ;
813: END IF;
814: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
815: THEN
816: OE_MSG_PUB.Add_Exc_Msg
826: , p_blanket_line_number IN NUMBER
827: )RETURN NUMBER IS
828: l_list_line_id NUMBER;
829: --
830: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
831: --
832: BEGIN
833:
834: if l_debug_level > 0 then
831: --
832: BEGIN
833:
834: if l_debug_level > 0 then
835: oe_debug_pub.add('Enter Get_List_Line_ID');
836: oe_debug_pub.add('Blanket num :'||p_blanket_number);
837: oe_debug_pub.add('Blanket line num :'||p_blanket_line_number);
838: end if;
839:
832: BEGIN
833:
834: if l_debug_level > 0 then
835: oe_debug_pub.add('Enter Get_List_Line_ID');
836: oe_debug_pub.add('Blanket num :'||p_blanket_number);
837: oe_debug_pub.add('Blanket line num :'||p_blanket_line_number);
838: end if;
839:
840: IF p_blanket_number IS NOT NULL
833:
834: if l_debug_level > 0 then
835: oe_debug_pub.add('Enter Get_List_Line_ID');
836: oe_debug_pub.add('Blanket num :'||p_blanket_number);
837: oe_debug_pub.add('Blanket line num :'||p_blanket_line_number);
838: end if;
839:
840: IF p_blanket_number IS NOT NULL
841: AND p_blanket_line_number IS NOT NULL
847: and line_number = p_blanket_line_number;
848: END IF;
849:
850: if l_debug_level > 0 then
851: oe_debug_pub.add('RETURN_Line_ID :'||l_list_line_id);
852: end if;
853:
854: RETURN l_list_line_id;
855:
855:
856: EXCEPTION
857: WHEN NO_DATA_FOUND THEN
858: if l_debug_level > 0 then
859: oe_debug_pub.add('No data found in Get_List_Line_ID');
860: end if;
861: RETURN NULL;
862: WHEN OTHERS THEN
863: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
882: l_returned_amount NUMBER;
883: l_order_rel_amt NUMBER := 0;
884: l_blanket_header_id NUMBER;
885: --
886: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
887: --
888: BEGIN
889:
890: if l_debug_level > 0 then
887: --
888: BEGIN
889:
890: if l_debug_level > 0 then
891: oe_debug_pub.add('Enter Get_Blanket_Rel_Amt');
892: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
893: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
894: oe_debug_pub.add('Line ID :'||p_line_id);
895: oe_debug_pub.add('Header ID :'||p_header_id);
888: BEGIN
889:
890: if l_debug_level > 0 then
891: oe_debug_pub.add('Enter Get_Blanket_Rel_Amt');
892: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
893: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
894: oe_debug_pub.add('Line ID :'||p_line_id);
895: oe_debug_pub.add('Header ID :'||p_header_id);
896: end if;
889:
890: if l_debug_level > 0 then
891: oe_debug_pub.add('Enter Get_Blanket_Rel_Amt');
892: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
893: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
894: oe_debug_pub.add('Line ID :'||p_line_id);
895: oe_debug_pub.add('Header ID :'||p_header_id);
896: end if;
897:
890: if l_debug_level > 0 then
891: oe_debug_pub.add('Enter Get_Blanket_Rel_Amt');
892: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
893: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
894: oe_debug_pub.add('Line ID :'||p_line_id);
895: oe_debug_pub.add('Header ID :'||p_header_id);
896: end if;
897:
898: IF p_blanket_number IS NULL
891: oe_debug_pub.add('Enter Get_Blanket_Rel_Amt');
892: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
893: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
894: oe_debug_pub.add('Line ID :'||p_line_id);
895: oe_debug_pub.add('Header ID :'||p_header_id);
896: end if;
897:
898: IF p_blanket_number IS NULL
899: -- Bug 3350448 =>
915: from oe_blanket_headers_ext bhe, oe_blanket_headers_all bh
916: where bhe.order_number = p_blanket_number
917: and bhe.order_number = bh.order_number
918: and bh.org_id = mo_global.get_current_orG_id;
919: oe_debug_pub.add('current blkt rel amt :'||l_released_amount);
920: oe_debug_pub.add('current blkt ret amt :'||l_returned_amount);
921:
922: IF nvl(p_transaction_phase_code,'F') = 'F' THEN
923:
916: where bhe.order_number = p_blanket_number
917: and bhe.order_number = bh.order_number
918: and bh.org_id = mo_global.get_current_orG_id;
919: oe_debug_pub.add('current blkt rel amt :'||l_released_amount);
920: oe_debug_pub.add('current blkt ret amt :'||l_returned_amount);
921:
922: IF nvl(p_transaction_phase_code,'F') = 'F' THEN
923:
924: OE_Blkt_Release_Util.Populate_Old_Values
930:
931: IF OE_Blkt_Release_Util.g_blkt_hdr_tbl.EXISTS(l_blanket_header_id) THEN
932: l_order_rel_amt :=
933: OE_Blkt_Release_Util.g_bh_order_val_tbl(l_blanket_header_id).order_released_amount;
934: oe_debug_pub.add('order rel amt :'||l_order_rel_amt);
935: END IF;
936:
937: END IF;
938:
938:
939: l_rel_amt := l_released_amount - l_returned_amount - l_order_rel_amt;
940:
941: if l_debug_level > 0 then
942: oe_debug_pub.add('Blanket Rel Amt :'||l_rel_amt);
943: end if;
944:
945: RETURN l_rel_amt;
946:
969: l_returned_amount NUMBER;
970: l_order_rel_amt NUMBER := 0;
971: l_blanket_line_id NUMBER;
972: --
973: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
974: --
975: BEGIN
976:
977: if l_debug_level > 0 then
974: --
975: BEGIN
976:
977: if l_debug_level > 0 then
978: oe_debug_pub.add('Enter Get_Bl_Line_Rel_Amt');
979: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
980: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
981: oe_debug_pub.add('Line ID :'||p_line_id);
982: oe_debug_pub.add('Header ID :'||p_header_id);
975: BEGIN
976:
977: if l_debug_level > 0 then
978: oe_debug_pub.add('Enter Get_Bl_Line_Rel_Amt');
979: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
980: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
981: oe_debug_pub.add('Line ID :'||p_line_id);
982: oe_debug_pub.add('Header ID :'||p_header_id);
983: end if;
976:
977: if l_debug_level > 0 then
978: oe_debug_pub.add('Enter Get_Bl_Line_Rel_Amt');
979: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
980: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
981: oe_debug_pub.add('Line ID :'||p_line_id);
982: oe_debug_pub.add('Header ID :'||p_header_id);
983: end if;
984:
977: if l_debug_level > 0 then
978: oe_debug_pub.add('Enter Get_Bl_Line_Rel_Amt');
979: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
980: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
981: oe_debug_pub.add('Line ID :'||p_line_id);
982: oe_debug_pub.add('Header ID :'||p_header_id);
983: end if;
984:
985: IF p_blanket_number IS NULL
978: oe_debug_pub.add('Enter Get_Bl_Line_Rel_Amt');
979: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
980: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
981: oe_debug_pub.add('Line ID :'||p_line_id);
982: oe_debug_pub.add('Header ID :'||p_header_id);
983: end if;
984:
985: IF p_blanket_number IS NULL
986: OR p_blanket_line_number IS NULL
996: ,l_blanket_line_id
997: from oe_blanket_lines_ext
998: where order_number = p_blanket_number
999: and line_number = p_blanket_line_number;
1000: oe_debug_pub.add('current blkt rel amt :'||l_released_amount);
1001: oe_debug_pub.add('current blkt ret amt :'||l_returned_amount);
1002:
1003: IF nvl(p_transaction_phase_code,'F') = 'F' THEN
1004:
997: from oe_blanket_lines_ext
998: where order_number = p_blanket_number
999: and line_number = p_blanket_line_number;
1000: oe_debug_pub.add('current blkt rel amt :'||l_released_amount);
1001: oe_debug_pub.add('current blkt ret amt :'||l_returned_amount);
1002:
1003: IF nvl(p_transaction_phase_code,'F') = 'F' THEN
1004:
1005: OE_Blkt_Release_Util.Populate_Old_Values
1011:
1012: IF OE_Blkt_Release_Util.g_blkt_line_tbl.EXISTS(l_blanket_line_id) THEN
1013: l_order_rel_amt :=
1014: OE_Blkt_Release_Util.g_bl_order_val_tbl(l_blanket_line_id).order_released_amount;
1015: oe_debug_pub.add('order rel amt :'||l_order_rel_amt);
1016: END IF;
1017:
1018: END IF;
1019:
1019:
1020: l_rel_amt := l_released_amount - l_returned_amount - l_order_rel_amt;
1021:
1022: if l_debug_level > 0 then
1023: oe_debug_pub.add('BL Line Rel Amt :'||l_rel_amt);
1024: end if;
1025:
1026: RETURN l_rel_amt;
1027:
1049: l_returned_quantity NUMBER;
1050: l_order_rel_qty NUMBER := 0;
1051: l_blanket_line_id NUMBER;
1052: --
1053: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1054: --
1055: BEGIN
1056:
1057: if l_debug_level > 0 then
1054: --
1055: BEGIN
1056:
1057: if l_debug_level > 0 then
1058: oe_debug_pub.add('Enter Get_Bl_Line_Rel_Qty');
1059: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
1060: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
1061: oe_debug_pub.add('Line ID :'||p_line_id);
1062: oe_debug_pub.add('Header ID :'||p_header_id);
1055: BEGIN
1056:
1057: if l_debug_level > 0 then
1058: oe_debug_pub.add('Enter Get_Bl_Line_Rel_Qty');
1059: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
1060: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
1061: oe_debug_pub.add('Line ID :'||p_line_id);
1062: oe_debug_pub.add('Header ID :'||p_header_id);
1063: end if;
1056:
1057: if l_debug_level > 0 then
1058: oe_debug_pub.add('Enter Get_Bl_Line_Rel_Qty');
1059: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
1060: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
1061: oe_debug_pub.add('Line ID :'||p_line_id);
1062: oe_debug_pub.add('Header ID :'||p_header_id);
1063: end if;
1064:
1057: if l_debug_level > 0 then
1058: oe_debug_pub.add('Enter Get_Bl_Line_Rel_Qty');
1059: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
1060: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
1061: oe_debug_pub.add('Line ID :'||p_line_id);
1062: oe_debug_pub.add('Header ID :'||p_header_id);
1063: end if;
1064:
1065: IF p_blanket_number IS NULL
1058: oe_debug_pub.add('Enter Get_Bl_Line_Rel_Qty');
1059: oe_debug_pub.add('Blkt Num :'||p_blanket_number);
1060: oe_debug_pub.add('Blkt Line Num :'||p_blanket_line_number);
1061: oe_debug_pub.add('Line ID :'||p_line_id);
1062: oe_debug_pub.add('Header ID :'||p_header_id);
1063: end if;
1064:
1065: IF p_blanket_number IS NULL
1066: OR p_blanket_line_number IS NULL
1076: ,l_blanket_line_id
1077: from oe_blanket_lines_ext
1078: where order_number = p_blanket_number
1079: and line_number = p_blanket_line_number;
1080: oe_debug_pub.add('current blkt rel qty :'||l_released_quantity);
1081: oe_debug_pub.add('current blkt ret qty :'||l_returned_quantity);
1082:
1083: IF nvl(p_transaction_phase_code,'F') = 'F' THEN
1084:
1077: from oe_blanket_lines_ext
1078: where order_number = p_blanket_number
1079: and line_number = p_blanket_line_number;
1080: oe_debug_pub.add('current blkt rel qty :'||l_released_quantity);
1081: oe_debug_pub.add('current blkt ret qty :'||l_returned_quantity);
1082:
1083: IF nvl(p_transaction_phase_code,'F') = 'F' THEN
1084:
1085: OE_Blkt_Release_Util.Populate_Old_Values
1091:
1092: IF OE_Blkt_Release_Util.g_blkt_line_tbl.EXISTS(l_blanket_line_id) THEN
1093: l_order_rel_qty :=
1094: OE_Blkt_Release_Util.g_bl_order_val_tbl(l_blanket_line_id).order_released_quantity;
1095: oe_debug_pub.add('order rel qty :'||l_order_rel_qty);
1096: END IF;
1097:
1098: END IF;
1099:
1099:
1100: l_rel_qty := l_released_quantity - l_returned_quantity - l_order_rel_qty;
1101:
1102: if l_debug_level > 0 then
1103: oe_debug_pub.add('BL Line Rel Qty :'||l_rel_qty);
1104: end if;
1105:
1106: RETURN l_rel_qty;
1107:
1107:
1108: EXCEPTION
1109: WHEN OTHERS THEN
1110: IF l_debug_level > 0 THEN
1111: oe_debug_pub.add('other error :'||SQLERRM ) ;
1112: END IF;
1113: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1114: THEN
1115: OE_MSG_PUB.Add_Exc_Msg