DBA Data[Home] [Help]

APPS.OE_CHARGE_PVT dependencies on OE_DEBUG_PUB

Line 53: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;

49: l_hdr_charge_amount NUMBER := 0.0;
50: l_line_charge_amount NUMBER := 0.0;
51: Is_fmt BOOLEAN;
52: --
53: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
54: --
55: BEGIN
56: x_return_status := FND_API.G_RET_STS_SUCCESS;
57:

Line 241: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;

237: l_api_name CONSTANT VARCHAR2(30):= 'Get_Cost_Amount';
238: l_line_rec OE_Order_PUB.Line_Rec_Type;
239: l_cost_amount NUMBER := 0.0;
240: --
241: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
242: --
243: BEGIN
244:
245: IF l_debug_level > 0 THEN

Line 246: oe_debug_pub.add( 'CHARGES:INSIDE GET COST AMOUNT FOR' || P_COST_TYPE_CODE , 1 ) ;

242: --
243: BEGIN
244:
245: IF l_debug_level > 0 THEN
246: oe_debug_pub.add( 'CHARGES:INSIDE GET COST AMOUNT FOR' || P_COST_TYPE_CODE , 1 ) ;
247: END IF;
248:
249: -- Get the Line record from the Global Record
250: l_line_rec := OE_ORDER_PUB.G_LINE;

Line 257: oe_debug_pub.add( 'L_LINE_REC.LINE_ID IS NULL OR L_LINE_REC.LINE_ID IS FND_API.G_MISS_NUM' ) ;

253:
254: IF l_line_rec.line_id is NULL OR l_line_rec.line_id = FND_API.G_MISS_NUM
255: THEN
256: IF l_debug_level > 0 THEN
257: oe_debug_pub.add( 'L_LINE_REC.LINE_ID IS NULL OR L_LINE_REC.LINE_ID IS FND_API.G_MISS_NUM' ) ;
258: END IF;
259: IF l_debug_level > 0 THEN
260: oe_debug_pub.add( 'EXITING CHARGES' ) ;
261: END IF;

Line 260: oe_debug_pub.add( 'EXITING CHARGES' ) ;

256: IF l_debug_level > 0 THEN
257: oe_debug_pub.add( 'L_LINE_REC.LINE_ID IS NULL OR L_LINE_REC.LINE_ID IS FND_API.G_MISS_NUM' ) ;
258: END IF;
259: IF l_debug_level > 0 THEN
260: oe_debug_pub.add( 'EXITING CHARGES' ) ;
261: END IF;
262: RETURN NULL;
263: END IF;
264:

Line 269: oe_debug_pub.add( 'P_COST_TYPE_CODE IS NULL OR P_COST_TYPE_CODE IS FND_API.G_MISS_CHAR' ) ;

265: -- Check for values of cost_type_code
266:
267: IF p_cost_type_code is NULL OR p_cost_type_code = FND_API.G_MISS_CHAR THEN
268: IF l_debug_level > 0 THEN
269: oe_debug_pub.add( 'P_COST_TYPE_CODE IS NULL OR P_COST_TYPE_CODE IS FND_API.G_MISS_CHAR' ) ;
270: END IF;
271: IF l_debug_level > 0 THEN
272: oe_debug_pub.add( 'EXITING CHARGES' ) ;
273: END IF;

Line 272: oe_debug_pub.add( 'EXITING CHARGES' ) ;

268: IF l_debug_level > 0 THEN
269: oe_debug_pub.add( 'P_COST_TYPE_CODE IS NULL OR P_COST_TYPE_CODE IS FND_API.G_MISS_CHAR' ) ;
270: END IF;
271: IF l_debug_level > 0 THEN
272: oe_debug_pub.add( 'EXITING CHARGES' ) ;
273: END IF;
274: RETURN NULL;
275: END IF;
276:

Line 283: oe_debug_pub.add( 'L_LINE_REC.PRICING_QUANTITY = FND_API.G_MISS_NUM OR _LINE_REC.PRICING_QUANTITY <= 0' ) ;

279: IF l_line_rec.pricing_quantity IS NULL OR
280: l_line_rec.pricing_quantity = FND_API.G_MISS_NUM OR
281: l_line_rec.pricing_quantity <= 0 THEN
282: IF l_debug_level > 0 THEN
283: oe_debug_pub.add( 'L_LINE_REC.PRICING_QUANTITY = FND_API.G_MISS_NUM OR _LINE_REC.PRICING_QUANTITY <= 0' ) ;
284: END IF;
285: IF l_debug_level > 0 THEN
286: oe_debug_pub.add( 'EXITING CHARGES' ) ;
287: END IF;

Line 286: oe_debug_pub.add( 'EXITING CHARGES' ) ;

282: IF l_debug_level > 0 THEN
283: oe_debug_pub.add( 'L_LINE_REC.PRICING_QUANTITY = FND_API.G_MISS_NUM OR _LINE_REC.PRICING_QUANTITY <= 0' ) ;
284: END IF;
285: IF l_debug_level > 0 THEN
286: oe_debug_pub.add( 'EXITING CHARGES' ) ;
287: END IF;
288: RETURN NULL;
289: END IF;
290:

Line 299: oe_debug_pub.add( 'LINE IS SHIPPABLE AND IS SHIPPED' ) ;

295:
296: -- Cost records are stored in OE_PRICE_ADJUSTMENTS table with
297: -- list_line_type_code = 'COST'
298: IF l_debug_level > 0 THEN
299: oe_debug_pub.add( 'LINE IS SHIPPABLE AND IS SHIPPED' ) ;
300: END IF;
301: SELECT SUM(ADJUSTED_AMOUNT)
302: INTO l_cost_amount
303: FROM OE_PRICE_ADJUSTMENTS_V

Line 309: oe_debug_pub.add( 'AFTER GETTING COST AMOUNT ' || TO_CHAR ( L_COST_AMOUNT ) , 1 ) ;

305: AND LIST_LINE_TYPE_CODE = 'COST'
306: AND CHARGE_TYPE_CODE = p_cost_type_code;
307:
308: IF l_debug_level > 0 THEN
309: oe_debug_pub.add( 'AFTER GETTING COST AMOUNT ' || TO_CHAR ( L_COST_AMOUNT ) , 1 ) ;
310: END IF;
311:
312: RETURN FND_NUMBER.NUMBER_TO_CANONICAL(l_cost_amount);
313: ELSE

Line 315: oe_debug_pub.add( 'LINE NOT SHIPPABLE OR IS NOT SHIPPED' ) ;

311:
312: RETURN FND_NUMBER.NUMBER_TO_CANONICAL(l_cost_amount);
313: ELSE
314: IF l_debug_level > 0 THEN
315: oe_debug_pub.add( 'LINE NOT SHIPPABLE OR IS NOT SHIPPED' ) ;
316: END IF;
317: RETURN NULL;
318: END IF;
319: IF l_debug_level > 0 THEN

Line 320: oe_debug_pub.add( 'LEAVING CHARGES' ) ;

316: END IF;
317: RETURN NULL;
318: END IF;
319: IF l_debug_level > 0 THEN
320: oe_debug_pub.add( 'LEAVING CHARGES' ) ;
321: END IF;
322: EXCEPTION
323:
324: WHEN NO_DATA_FOUND THEN

Line 326: oe_debug_pub.add( 'NO COST INFORMATION FOUND IN OE_PRICE_ADJUSTMENTS' ) ;

322: EXCEPTION
323:
324: WHEN NO_DATA_FOUND THEN
325: IF l_debug_level > 0 THEN
326: oe_debug_pub.add( 'NO COST INFORMATION FOUND IN OE_PRICE_ADJUSTMENTS' ) ;
327: END IF;
328: RETURN NULL;
329:
330: WHEN OTHERS THEN

Line 340: oe_debug_pub.add( 'UNEXCPETED ERRORS:'||SQLERRM ) ;

336: , 'Get_Cost_Amount'
337: );
338: END IF;
339: IF l_debug_level > 0 THEN
340: oe_debug_pub.add( 'UNEXCPETED ERRORS:'||SQLERRM ) ;
341: END IF;
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343: END Get_Cost_Amount;
344:

Line 381: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;

377: FROM OE_PRICE_ADJUSTMENTS_V
378: WHERE LINE_ID = p_line_id
379: AND LIST_LINE_TYPE_CODE = 'COST';
380: --
381: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
382: --
383: BEGIN
384:
385: IF l_debug_level > 0 THEN

Line 386: oe_debug_pub.add( 'INSIDE GET COST TYPE' , 1 ) ;

382: --
383: BEGIN
384:
385: IF l_debug_level > 0 THEN
386: oe_debug_pub.add( 'INSIDE GET COST TYPE' , 1 ) ;
387: END IF;
388: -- Get the Line record from the Global Record
389: l_line_rec := OE_ORDER_PUB.G_LINE;
390:

Line 413: oe_debug_pub.add( 'COST TYPES ARE'|| L_COST_TBL ( L_COUNT ) , 3 ) ;

409: IF l_cost_tbl.COUNT > 0 THEN
410: l_count := l_cost_tbl.FIRST;
411: WHILE l_count IS NOT NULL LOOP
412: IF l_debug_level > 0 THEN
413: oe_debug_pub.add( 'COST TYPES ARE'|| L_COST_TBL ( L_COUNT ) , 3 ) ;
414: END IF;
415: l_count := l_cost_tbl.NEXT(l_count);
416: END LOOP;
417: END IF;

Line 421: oe_debug_pub.add( 'AFTER GETTING COST TYPE SUCCESSFULLY' , 1 ) ;

417: END IF;
418:
419: END IF;
420: IF l_debug_level > 0 THEN
421: oe_debug_pub.add( 'AFTER GETTING COST TYPE SUCCESSFULLY' , 1 ) ;
422: END IF;
423:
424: RETURN l_cost_tbl;
425:

Line 466: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;

462: l_api_name CONSTANT VARCHAR2(30):= 'Get_Shipped_Status';
463: l_result VARCHAR2(1) := 'N';
464: l_line_rec OE_Order_PUB.Line_Rec_Type;
465: --
466: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
467: --
468: BEGIN
469:
470: -- Get the Line record from the Global Record

Line 509: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;

505: l_charge_index NUMBER := 0;
506: l_tmp_index NUMBER := 0;
507: l_att_index NUMBER := 0;
508: --
509: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
510: --
511: BEGIN
512: l_line_index := p_line_tbl.FIRST;
513: WHILE l_line_index IS NOT NULL LOOP

Line 516: oe_debug_pub.add( 'THE LINE RECORD IS ' || TO_CHAR ( L_LINE_INDEX ) ) ;

512: l_line_index := p_line_tbl.FIRST;
513: WHILE l_line_index IS NOT NULL LOOP
514:
515: IF l_debug_level > 0 THEN
516: oe_debug_pub.add( 'THE LINE RECORD IS ' || TO_CHAR ( L_LINE_INDEX ) ) ;
517: END IF;
518: l_charge_index := l_Line_Adj_Tbl.FIRST;
519: IF l_debug_level > 0 THEN
520: oe_debug_pub.add( 'THE ADJ LINE RECORD IS ' || TO_CHAR ( L_CHARGE_INDEX ) ) ;

Line 520: oe_debug_pub.add( 'THE ADJ LINE RECORD IS ' || TO_CHAR ( L_CHARGE_INDEX ) ) ;

516: oe_debug_pub.add( 'THE LINE RECORD IS ' || TO_CHAR ( L_LINE_INDEX ) ) ;
517: END IF;
518: l_charge_index := l_Line_Adj_Tbl.FIRST;
519: IF l_debug_level > 0 THEN
520: oe_debug_pub.add( 'THE ADJ LINE RECORD IS ' || TO_CHAR ( L_CHARGE_INDEX ) ) ;
521: END IF;
522:
523: WHILE l_charge_index IS NOT NULL LOOP
524:

Line 526: oe_debug_pub.add( 'THE ALL CHARGE TYPE IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .CHARGE_TYPE_CODE ) ;

522:
523: WHILE l_charge_index IS NOT NULL LOOP
524:
525: IF l_debug_level > 0 THEN
526: oe_debug_pub.add( 'THE ALL CHARGE TYPE IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .CHARGE_TYPE_CODE ) ;
527: END IF;
528: IF l_debug_level > 0 THEN
529: oe_debug_pub.add( 'THE ALL OPERATION IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .OPERATION ) ;
530: END IF;

Line 529: oe_debug_pub.add( 'THE ALL OPERATION IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .OPERATION ) ;

525: IF l_debug_level > 0 THEN
526: oe_debug_pub.add( 'THE ALL CHARGE TYPE IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .CHARGE_TYPE_CODE ) ;
527: END IF;
528: IF l_debug_level > 0 THEN
529: oe_debug_pub.add( 'THE ALL OPERATION IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .OPERATION ) ;
530: END IF;
531: IF l_debug_level > 0 THEN
532: oe_debug_pub.add( 'THE ALL ADJUSTED_AMOUNT IS ' ||TO_CHAR ( L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .ADJUSTED_AMOUNT ) ) ;
533: END IF;

Line 532: oe_debug_pub.add( 'THE ALL ADJUSTED_AMOUNT IS ' ||TO_CHAR ( L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .ADJUSTED_AMOUNT ) ) ;

528: IF l_debug_level > 0 THEN
529: oe_debug_pub.add( 'THE ALL OPERATION IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .OPERATION ) ;
530: END IF;
531: IF l_debug_level > 0 THEN
532: oe_debug_pub.add( 'THE ALL ADJUSTED_AMOUNT IS ' ||TO_CHAR ( L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .ADJUSTED_AMOUNT ) ) ;
533: END IF;
534: IF l_debug_level > 0 THEN
535: oe_debug_pub.add( 'THE ALL APPLIED_FLAG IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .APPLIED_FLAG ) ;
536: END IF;

Line 535: oe_debug_pub.add( 'THE ALL APPLIED_FLAG IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .APPLIED_FLAG ) ;

531: IF l_debug_level > 0 THEN
532: oe_debug_pub.add( 'THE ALL ADJUSTED_AMOUNT IS ' ||TO_CHAR ( L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .ADJUSTED_AMOUNT ) ) ;
533: END IF;
534: IF l_debug_level > 0 THEN
535: oe_debug_pub.add( 'THE ALL APPLIED_FLAG IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .APPLIED_FLAG ) ;
536: END IF;
537: IF l_line_adj_tbl(l_charge_index).list_line_type_code = 'FREIGHT_CHARGE'
538: AND NVL(l_line_adj_tbl(l_charge_index).applied_flag,'N') = 'Y'
539: AND l_line_adj_tbl(l_charge_index).operation IN

Line 546: oe_debug_pub.add( 'THE SELECTED CHARGE TYPE IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .CHARGE_TYPE_CODE ) ;

542: p_line_tbl(l_line_index).line_id
543: THEN
544:
545: IF l_debug_level > 0 THEN
546: oe_debug_pub.add( 'THE SELECTED CHARGE TYPE IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .CHARGE_TYPE_CODE ) ;
547: END IF;
548: IF l_debug_level > 0 THEN
549: oe_debug_pub.add( 'THE SELECTED OPERATION IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .OPERATION ) ;
550: END IF;

Line 549: oe_debug_pub.add( 'THE SELECTED OPERATION IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .OPERATION ) ;

545: IF l_debug_level > 0 THEN
546: oe_debug_pub.add( 'THE SELECTED CHARGE TYPE IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .CHARGE_TYPE_CODE ) ;
547: END IF;
548: IF l_debug_level > 0 THEN
549: oe_debug_pub.add( 'THE SELECTED OPERATION IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .OPERATION ) ;
550: END IF;
551: IF l_debug_level > 0 THEN
552: oe_debug_pub.add( 'THE SELECTED ADJUSTED_AMOUNT IS ' ||TO_CHAR ( L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .ADJUSTED_AMOUNT ) ) ;
553: END IF;

Line 552: oe_debug_pub.add( 'THE SELECTED ADJUSTED_AMOUNT IS ' ||TO_CHAR ( L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .ADJUSTED_AMOUNT ) ) ;

548: IF l_debug_level > 0 THEN
549: oe_debug_pub.add( 'THE SELECTED OPERATION IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .OPERATION ) ;
550: END IF;
551: IF l_debug_level > 0 THEN
552: oe_debug_pub.add( 'THE SELECTED ADJUSTED_AMOUNT IS ' ||TO_CHAR ( L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .ADJUSTED_AMOUNT ) ) ;
553: END IF;
554: l_tmp_index := l_line_adj_tbl.FIRST;
555: WHILE l_tmp_index IS NOT NULL LOOP
556:

Line 570: oe_debug_pub.add( 'THE MATCHING CHARGE TYPE IS ' || L_LINE_ADJ_TBL ( L_TMP_INDEX ) .CHARGE_TYPE_CODE ) ;

566: NVL(l_line_adj_tbl(l_tmp_index).charge_subtype_code,'SUB')
567: THEN
568:
569: IF l_debug_level > 0 THEN
570: oe_debug_pub.add( 'THE MATCHING CHARGE TYPE IS ' || L_LINE_ADJ_TBL ( L_TMP_INDEX ) .CHARGE_TYPE_CODE ) ;
571: END IF;
572: IF l_debug_level > 0 THEN
573: oe_debug_pub.add( 'THE MATCHING OPERATION IS ' || L_LINE_ADJ_TBL ( L_TMP_INDEX ) .OPERATION ) ;
574: END IF;

Line 573: oe_debug_pub.add( 'THE MATCHING OPERATION IS ' || L_LINE_ADJ_TBL ( L_TMP_INDEX ) .OPERATION ) ;

569: IF l_debug_level > 0 THEN
570: oe_debug_pub.add( 'THE MATCHING CHARGE TYPE IS ' || L_LINE_ADJ_TBL ( L_TMP_INDEX ) .CHARGE_TYPE_CODE ) ;
571: END IF;
572: IF l_debug_level > 0 THEN
573: oe_debug_pub.add( 'THE MATCHING OPERATION IS ' || L_LINE_ADJ_TBL ( L_TMP_INDEX ) .OPERATION ) ;
574: END IF;
575: IF l_debug_level > 0 THEN
576: oe_debug_pub.add( 'THE MATCHING ADJUSTED_AMOUNT IS ' ||TO_CHAR ( L_LINE_ADJ_TBL ( L_TMP_INDEX ) .ADJUSTED_AMOUNT ) ) ;
577: END IF;

Line 576: oe_debug_pub.add( 'THE MATCHING ADJUSTED_AMOUNT IS ' ||TO_CHAR ( L_LINE_ADJ_TBL ( L_TMP_INDEX ) .ADJUSTED_AMOUNT ) ) ;

572: IF l_debug_level > 0 THEN
573: oe_debug_pub.add( 'THE MATCHING OPERATION IS ' || L_LINE_ADJ_TBL ( L_TMP_INDEX ) .OPERATION ) ;
574: END IF;
575: IF l_debug_level > 0 THEN
576: oe_debug_pub.add( 'THE MATCHING ADJUSTED_AMOUNT IS ' ||TO_CHAR ( L_LINE_ADJ_TBL ( L_TMP_INDEX ) .ADJUSTED_AMOUNT ) ) ;
577: END IF;
578: IF l_line_adj_tbl(l_tmp_index).adjusted_amount >=
579: l_line_adj_tbl(l_charge_index).adjusted_amount
580: THEN

Line 585: oe_debug_pub.add( 'THE SELECTED OPERATION IS SET TO DELETE' ) ;

581: IF l_line_adj_tbl(l_charge_index).operation =
582: OE_GLOBALS.G_OPR_UPDATE
583: THEN
584: IF l_debug_level > 0 THEN
585: oe_debug_pub.add( 'THE SELECTED OPERATION IS SET TO DELETE' ) ;
586: END IF;
587: l_line_adj_tbl(l_charge_index).operation :=
588: OE_GLOBALS.G_OPR_DELETE;
589: ELSE

Line 591: oe_debug_pub.add( 'THE SELECTED OPERATION IS SET TO NONE' ) ;

587: l_line_adj_tbl(l_charge_index).operation :=
588: OE_GLOBALS.G_OPR_DELETE;
589: ELSE
590: IF l_debug_level > 0 THEN
591: oe_debug_pub.add( 'THE SELECTED OPERATION IS SET TO NONE' ) ;
592: END IF;
593: l_line_adj_tbl(l_charge_index).operation :=
594: OE_GLOBALS.G_OPR_NONE;
595: END IF;

Line 637: oe_debug_pub.add( 'THE DELETING CHARGE TYPE IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .CHARGE_TYPE_CODE ) ;

633: END IF;
634: IF l_line_adj_tbl(l_charge_index).operation = OE_GLOBALS.G_OPR_NONE
635: THEN
636: IF l_debug_level > 0 THEN
637: oe_debug_pub.add( 'THE DELETING CHARGE TYPE IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .CHARGE_TYPE_CODE ) ;
638: END IF;
639: IF l_debug_level > 0 THEN
640: oe_debug_pub.add( 'THE DELETING OPERATION IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .OPERATION ) ;
641: END IF;

Line 640: oe_debug_pub.add( 'THE DELETING OPERATION IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .OPERATION ) ;

636: IF l_debug_level > 0 THEN
637: oe_debug_pub.add( 'THE DELETING CHARGE TYPE IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .CHARGE_TYPE_CODE ) ;
638: END IF;
639: IF l_debug_level > 0 THEN
640: oe_debug_pub.add( 'THE DELETING OPERATION IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .OPERATION ) ;
641: END IF;
642: IF l_debug_level > 0 THEN
643: oe_debug_pub.add( 'THE DELETING ADJUSTED_AMOUNT IS ' ||TO_CHAR ( L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .ADJUSTED_AMOUNT ) ) ;
644: END IF;

Line 643: oe_debug_pub.add( 'THE DELETING ADJUSTED_AMOUNT IS ' ||TO_CHAR ( L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .ADJUSTED_AMOUNT ) ) ;

639: IF l_debug_level > 0 THEN
640: oe_debug_pub.add( 'THE DELETING OPERATION IS ' || L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .OPERATION ) ;
641: END IF;
642: IF l_debug_level > 0 THEN
643: oe_debug_pub.add( 'THE DELETING ADJUSTED_AMOUNT IS ' ||TO_CHAR ( L_LINE_ADJ_TBL ( L_CHARGE_INDEX ) .ADJUSTED_AMOUNT ) ) ;
644: END IF;
645: l_line_adj_tbl.delete(l_charge_index);
646: END IF;
647:

Line 678: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;

674: l_charge_index NUMBER := 0;
675: l_tmp_index NUMBER := 0;
676: l_att_index NUMBER := 0;
677: --
678: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
679: --
680: BEGIN
681: l_Header_id := p_Header_rec.header_id;
682:

Line 790: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;

786: l_Header_Adj_Tbl OE_Order_PUB.Header_Adj_Tbl_Type;
787: l_duplicate_flag VARCHAR2(1) := 'N';
788: l_count NUMBER;
789: --
790: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
791: --
792: BEGIN
793: IF p_header_id IS NULL OR p_header_id = FND_API.G_MISS_NUM THEN
794:

Line 906: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;

902: l_line_rec OE_Order_PUB.Line_Rec_Type;
903: l_uom_code VARCHAR2(3);
904: l_uom_rate NUMBER;
905: --
906: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
907: --
908: BEGIN
909:
910: IF p_uom_class NOT IN ('Weight','Volume')

Line 913: oe_debug_pub.add( 'INVALIDE PARAMETER' || P_UOM_CLASS ) ;

909:
910: IF p_uom_class NOT IN ('Weight','Volume')
911: THEN
912: IF l_debug_level > 0 THEN
913: oe_debug_pub.add( 'INVALIDE PARAMETER' || P_UOM_CLASS ) ;
914: END IF;
915: RETURN NULL;
916: END IF;
917:

Line 929: oe_debug_pub.add( 'NO VALUE SET IN THE PROFILE OPTIONS.' ) ;

925: END IF;
926:
927: IF l_uom_code IS NULL THEN
928: IF l_debug_level > 0 THEN
929: oe_debug_pub.add( 'NO VALUE SET IN THE PROFILE OPTIONS.' ) ;
930: END IF;
931: RETURN NULL;
932: END IF;
933: INV_CONVERT.INV_UM_CONVERSION(l_line_rec.order_quantity_uom,

Line 941: oe_debug_pub.add( 'NO CONVERSION INFORMATION IS AVAILABLE FOR CONVERTING FROM ' || L_LINE_REC.ORDER_QUANTITY_UOM || ' TO ' || L_UOM_CODE ) ;

937: IF l_uom_rate > 0 THEN
938: RETURN FND_NUMBER.NUMBER_TO_CANONICAL(TRUNC(l_uom_rate * l_line_rec.ordered_quantity, 2));
939: ELSE
940: IF l_debug_level > 0 THEN
941: oe_debug_pub.add( 'NO CONVERSION INFORMATION IS AVAILABLE FOR CONVERTING FROM ' || L_LINE_REC.ORDER_QUANTITY_UOM || ' TO ' || L_UOM_CODE ) ;
942: END IF;
943: RETURN NULL;
944: END IF;
945: END Get_Line_Weight_Or_Volume;

Line 1049: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;

1045: l_list_line_info list_line_info1%rowtype;
1046: l_pricing_attribute_info pricing_attribute_info%rowtype;
1047:
1048: --
1049: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1050: --
1051: Begin
1052: --MOAC Changes
1053: --dbms_application_info.set_client_info(p_org_id);

Line 1062: oe_debug_pub.add( 'PLEASE ENTER PROVIDE MODIFIER HEADER NAME OR LIST LINE ID' ) ;

1058: l_cost_type_code := 'FREIGHT';
1059:
1060: If p_list_line_id is null and p_header_name is null Then
1061: IF l_debug_level > 0 THEN
1062: oe_debug_pub.add( 'PLEASE ENTER PROVIDE MODIFIER HEADER NAME OR LIST LINE ID' ) ;
1063: END IF;
1064: Return;
1065: End If;
1066:

Line 1069: oe_debug_pub.add( 'PLEASE ENTER EITHER HEADER NAME OR LIST LINE ID. NOT BOTH' ) ;

1065: End If;
1066:
1067: If p_list_line_id is not null and p_header_name is not null Then
1068: IF l_debug_level > 0 THEN
1069: oe_debug_pub.add( 'PLEASE ENTER EITHER HEADER NAME OR LIST LINE ID. NOT BOTH' ) ;
1070: END IF;
1071: Return;
1072: End If;
1073:

Line 1081: oe_debug_pub.add( SQLERRM ) ;

1077: Fetch list_line_info2 into l_list_line_info;
1078:
1079: Exception When Others Then
1080: IF l_debug_level > 0 THEN
1081: oe_debug_pub.add( SQLERRM ) ;
1082: END IF;
1083: End;
1084: Close list_line_info2;
1085: Elsif p_header_name is not null Then

Line 1092: oe_debug_pub.add( 'THIS HEADER HAS MULTIPLE MODIFIERS , PLEASE SPECIFY ONE BY JUST PASSING LIST LINE ID' ) ;

1088: Fetch list_line_info1 into l_list_line_info;
1089:
1090: If list_line_info1%ROWCOUNT > 1 Then
1091: IF l_debug_level > 0 THEN
1092: oe_debug_pub.add( 'THIS HEADER HAS MULTIPLE MODIFIERS , PLEASE SPECIFY ONE BY JUST PASSING LIST LINE ID' ) ;
1093: END IF;
1094: close list_line_info1;
1095: Return;
1096: End If;

Line 1100: oe_debug_pub.add( SQLERRM ) ;

1096: End If;
1097:
1098: Exception When Others Then
1099: IF l_debug_level > 0 THEN
1100: oe_debug_pub.add( SQLERRM ) ;
1101: END IF;
1102: End;
1103: close list_line_info1;
1104: End If;

Line 1109: oe_debug_pub.add( 'CHECKING FOR PRICING BUG' ) ;

1105:
1106: --check if there is data qp_list_header_phases
1107: --if not this is a pricing bug
1108: IF l_debug_level > 0 THEN
1109: oe_debug_pub.add( 'CHECKING FOR PRICING BUG' ) ;
1110: END IF;
1111: Begin
1112: Select list_header_id,
1113: pricing_phase_id

Line 1128: oe_debug_pub.add( ' ORACLE PRICING BUGS.' ) ;

1124: and nvl(list_line_id,-1) = l_list_line_id
1125: and rownum = 1;
1126:
1127: IF l_debug_level > 0 THEN
1128: oe_debug_pub.add( ' ORACLE PRICING BUGS.' ) ;
1129: END IF;
1130: IF l_debug_level > 0 THEN
1131: oe_debug_pub.add( ' PLEASE APPLY PRICING PATCH 1806021 IF THIS IS AN UPGRADE' ) ;
1132: END IF;

Line 1131: oe_debug_pub.add( ' PLEASE APPLY PRICING PATCH 1806021 IF THIS IS AN UPGRADE' ) ;

1127: IF l_debug_level > 0 THEN
1128: oe_debug_pub.add( ' ORACLE PRICING BUGS.' ) ;
1129: END IF;
1130: IF l_debug_level > 0 THEN
1131: oe_debug_pub.add( ' PLEASE APPLY PRICING PATCH 1806021 IF THIS IS AN UPGRADE' ) ;
1132: END IF;
1133: IF l_debug_level > 0 THEN
1134: oe_debug_pub.add( ' OTHERWISE APPLY 1797603' ) ;
1135: END IF;

Line 1134: oe_debug_pub.add( ' OTHERWISE APPLY 1797603' ) ;

1130: IF l_debug_level > 0 THEN
1131: oe_debug_pub.add( ' PLEASE APPLY PRICING PATCH 1806021 IF THIS IS AN UPGRADE' ) ;
1132: END IF;
1133: IF l_debug_level > 0 THEN
1134: oe_debug_pub.add( ' OTHERWISE APPLY 1797603' ) ;
1135: END IF;
1136:
1137: Exception When no_data_found then null;
1138: End;

Line 1143: oe_debug_pub.add( SQLERRM ) ;

1139: when too_many_rows Then
1140: Null;
1141: when others Then
1142: IF l_debug_level > 0 THEN
1143: oe_debug_pub.add( SQLERRM ) ;
1144: END IF;
1145: End;
1146:
1147: --check if the freeze_override_flag set to Y

Line 1158: oe_debug_pub.add( ' FREEZE OVERRIDE FLAG FOR SHIP EVENT AND PHASE ID '||L_LIST_LINE_INFO.PRICING_PHASE_ID ||'IS ''N'' OR NULLL' ) ;

1154: and a.pricing_phase_id =l_list_line_info.pricing_phase_id;
1155:
1156: If l_freeze_override_flag Is Null or l_freeze_override_flag = 'N' Then
1157: IF l_debug_level > 0 THEN
1158: oe_debug_pub.add( ' FREEZE OVERRIDE FLAG FOR SHIP EVENT AND PHASE ID '||L_LIST_LINE_INFO.PRICING_PHASE_ID ||'IS ''N'' OR NULLL' ) ;
1159: END IF;
1160: IF l_debug_level > 0 THEN
1161: oe_debug_pub.add( ' PLEASE CONTACT ORACLE PRICING TO FIX THIS PROBLEM' ) ;
1162: END IF;

Line 1161: oe_debug_pub.add( ' PLEASE CONTACT ORACLE PRICING TO FIX THIS PROBLEM' ) ;

1157: IF l_debug_level > 0 THEN
1158: oe_debug_pub.add( ' FREEZE OVERRIDE FLAG FOR SHIP EVENT AND PHASE ID '||L_LIST_LINE_INFO.PRICING_PHASE_ID ||'IS ''N'' OR NULLL' ) ;
1159: END IF;
1160: IF l_debug_level > 0 THEN
1161: oe_debug_pub.add( ' PLEASE CONTACT ORACLE PRICING TO FIX THIS PROBLEM' ) ;
1162: END IF;
1163: End If;
1164:
1165: Exception when others then

Line 1167: oe_debug_pub.add( SQLERRM||':EVENT PHASES CHECK' ) ;

1163: End If;
1164:
1165: Exception when others then
1166: IF l_debug_level > 0 THEN
1167: oe_debug_pub.add( SQLERRM||':EVENT PHASES CHECK' ) ;
1168: END IF;
1169: End;
1170:
1171: --query line and header record

Line 1177: oe_debug_pub.add( 'INVALID LINE ID OR INCORRECT ORG_ID' ) ;

1173: oe_line_util.query_row(p_line_id,l_line_rec);
1174:
1175: If l_line_rec.line_id is null Then
1176: IF l_debug_level > 0 THEN
1177: oe_debug_pub.add( 'INVALID LINE ID OR INCORRECT ORG_ID' ) ;
1178: END IF;
1179: Return;
1180: End If;
1181:

Line 1193: oe_debug_pub.add( 'QP ATTRIBUTE MAPPING:'||SQLERRM ) ;

1189: x_qual_contexts_result_tbl => l_qualifier_Contexts_Tbl);
1190:
1191: Exception when others then
1192: IF l_debug_level > 0 THEN
1193: oe_debug_pub.add( 'QP ATTRIBUTE MAPPING:'||SQLERRM ) ;
1194: END IF;
1195: End;
1196: OE_Order_Pub.G_Line := NULL;
1197:

Line 1202: oe_debug_pub.add( 'CHECK IF ATTRIBUTE MAPPING SOURCES:'||I.PRICING_ATTRIBUTE_CONTEXT||' , '||I.PRICING_ATTRIBUTE||' , '||I.PRICING_ATTR_VALUE_FROM ) ;

1198: --Test if attribute mapping sorces required pricing attributes
1199: For i in pricing_attribute_info Loop
1200: l_found:=false;
1201: IF l_debug_level > 0 THEN
1202: oe_debug_pub.add( 'CHECK IF ATTRIBUTE MAPPING SOURCES:'||I.PRICING_ATTRIBUTE_CONTEXT||' , '||I.PRICING_ATTRIBUTE||' , '||I.PRICING_ATTR_VALUE_FROM ) ;
1203: END IF;
1204:
1205: j := l_pricing_contexts_tbl.first;
1206: While j is not null Loop

Line 1210: oe_debug_pub.add( ' THIS ATTRIBUTE IS SOURCED WITH VALUE:'||L_PRICING_CONTEXTS_TBL ( J ) .ATTRIBUTE_VALUE ) ;

1206: While j is not null Loop
1207: if i.pricing_attribute_context = l_pricing_contexts_tbl(j).context_name
1208: and i.pricing_attribute = l_pricing_contexts_tbl(j).attribute_name Then
1209: IF l_debug_level > 0 THEN
1210: oe_debug_pub.add( ' THIS ATTRIBUTE IS SOURCED WITH VALUE:'||L_PRICING_CONTEXTS_TBL ( J ) .ATTRIBUTE_VALUE ) ;
1211: END IF;
1212: l_found := True;
1213: exit;
1214: End If;

Line 1220: oe_debug_pub.add( ' THIS ATTRIBUTE DID NOT GET SOURCED. THE CAUSED COULD BE:' ) ;

1216: End Loop;
1217:
1218: If not l_found Then
1219: IF l_debug_level > 0 THEN
1220: oe_debug_pub.add( ' THIS ATTRIBUTE DID NOT GET SOURCED. THE CAUSED COULD BE:' ) ;
1221: END IF;
1222: IF l_debug_level > 0 THEN
1223: oe_debug_pub.add( ' 1. YOU HAVE NOT RUN QP BUILD SOURCING CONCURENT PROGRAM' ) ;
1224: END IF;

Line 1223: oe_debug_pub.add( ' 1. YOU HAVE NOT RUN QP BUILD SOURCING CONCURENT PROGRAM' ) ;

1219: IF l_debug_level > 0 THEN
1220: oe_debug_pub.add( ' THIS ATTRIBUTE DID NOT GET SOURCED. THE CAUSED COULD BE:' ) ;
1221: END IF;
1222: IF l_debug_level > 0 THEN
1223: oe_debug_pub.add( ' 1. YOU HAVE NOT RUN QP BUILD SOURCING CONCURENT PROGRAM' ) ;
1224: END IF;
1225: IF l_debug_level > 0 THEN
1226: oe_debug_pub.add( ' 2. THE COST RECORD WAS NOT PASSED TO OM' ) ;
1227: END IF;

Line 1226: oe_debug_pub.add( ' 2. THE COST RECORD WAS NOT PASSED TO OM' ) ;

1222: IF l_debug_level > 0 THEN
1223: oe_debug_pub.add( ' 1. YOU HAVE NOT RUN QP BUILD SOURCING CONCURENT PROGRAM' ) ;
1224: END IF;
1225: IF l_debug_level > 0 THEN
1226: oe_debug_pub.add( ' 2. THE COST RECORD WAS NOT PASSED TO OM' ) ;
1227: END IF;
1228: End If;
1229:
1230: End Loop;

Line 1235: oe_debug_pub.add( 'CHECKING IF THE LINE IS SHIPPABLE' ) ;

1231:
1232:
1233: --check if this is a shippable line
1234: IF l_debug_level > 0 THEN
1235: oe_debug_pub.add( 'CHECKING IF THE LINE IS SHIPPABLE' ) ;
1236: END IF;
1237: If l_line_rec.shippable_flag = 'N' or l_line_rec.shipped_quantity <= 0 Then
1238: IF l_debug_level > 0 THEN
1239: oe_debug_pub.add( ' EITHER THIS LINE IS NOT SHIPPABLE OR HAS NOT BEEN SHIP CONFIRMED' ) ;

Line 1239: oe_debug_pub.add( ' EITHER THIS LINE IS NOT SHIPPABLE OR HAS NOT BEEN SHIP CONFIRMED' ) ;

1235: oe_debug_pub.add( 'CHECKING IF THE LINE IS SHIPPABLE' ) ;
1236: END IF;
1237: If l_line_rec.shippable_flag = 'N' or l_line_rec.shipped_quantity <= 0 Then
1238: IF l_debug_level > 0 THEN
1239: oe_debug_pub.add( ' EITHER THIS LINE IS NOT SHIPPABLE OR HAS NOT BEEN SHIP CONFIRMED' ) ;
1240: END IF;
1241: End If;
1242:
1243:

Line 1246: oe_debug_pub.add( 'CHECKING IF FREIGHT COST HAS BEEN PASSED TO OM' ) ;

1242:
1243:
1244: --check if cost record have been inserted into OM
1245: IF l_debug_level > 0 THEN
1246: oe_debug_pub.add( 'CHECKING IF FREIGHT COST HAS BEEN PASSED TO OM' ) ;
1247: END IF;
1248:
1249: -- Cost records are stored in OE_PRICE_ADJUSTMENTS table with
1250: -- list_line_type_code = 'COST'

Line 1259: oe_debug_pub.add( ' COST RECORD INSERTED WITH VALUE:'||L_COST_AMOUNT ) ;

1255: WHERE LINE_ID = l_line_rec.line_id
1256: AND LIST_LINE_TYPE_CODE = 'COST'
1257: AND CHARGE_TYPE_CODE = l_cost_type_code;
1258: IF l_debug_level > 0 THEN
1259: oe_debug_pub.add( ' COST RECORD INSERTED WITH VALUE:'||L_COST_AMOUNT ) ;
1260: END IF;
1261: Exception
1262: When No_Data_Found Then
1263: IF l_debug_level > 0 THEN

Line 1264: oe_debug_pub.add( ' FREIGHT COST RECORD IS NOT PASSED BY SHIPPING OR YOU HAVE NOT ENTERED THE FREIGHT COST' ) ;

1260: END IF;
1261: Exception
1262: When No_Data_Found Then
1263: IF l_debug_level > 0 THEN
1264: oe_debug_pub.add( ' FREIGHT COST RECORD IS NOT PASSED BY SHIPPING OR YOU HAVE NOT ENTERED THE FREIGHT COST' ) ;
1265: END IF;
1266: End;
1267:
1268: For i in Other_Cost Loop

Line 1270: oe_debug_pub.add( ' PASSED CHARGE COST TYPE IN OM:'||I.CHARGE_TYPE_CODE ) ;

1266: End;
1267:
1268: For i in Other_Cost Loop
1269: IF l_debug_level > 0 THEN
1270: oe_debug_pub.add( ' PASSED CHARGE COST TYPE IN OM:'||I.CHARGE_TYPE_CODE ) ;
1271: END IF;
1272: IF l_debug_level > 0 THEN
1273: oe_debug_pub.add( ' COST AMOUNT:'||I.ADJUSTED_AMOUNT ) ;
1274: END IF;

Line 1273: oe_debug_pub.add( ' COST AMOUNT:'||I.ADJUSTED_AMOUNT ) ;

1269: IF l_debug_level > 0 THEN
1270: oe_debug_pub.add( ' PASSED CHARGE COST TYPE IN OM:'||I.CHARGE_TYPE_CODE ) ;
1271: END IF;
1272: IF l_debug_level > 0 THEN
1273: oe_debug_pub.add( ' COST AMOUNT:'||I.ADJUSTED_AMOUNT ) ;
1274: END IF;
1275: End Loop;
1276:
1277: End;

Line 1300: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;

1296: l_hdr_charge_amount NUMBER := 0.0;
1297: l_line_charge_amount NUMBER := 0.0;
1298: Is_fmt BOOLEAN;
1299: --
1300: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1301: --
1302: BEGIN
1303: x_return_status := FND_API.G_RET_STS_SUCCESS;
1304: