DBA Data[Home] [Help]

APPS.OE_CONFIG_VALIDATION_PVT dependencies on OE_DEBUG_PUB

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

132: l_complete_config VARCHAR2(10);
133: l_old_behavior VARCHAR2(1);
134: l_frozen_model_bill VARCHAR2(1);
135: --
136: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
137: --
138: BEGIN
139:
140: IF l_debug_level > 0 THEN

Line 141: oe_debug_pub.add('ENTERING BOM_BASED_CONFIG_VALIDATION' , 1 ) ;

137: --
138: BEGIN
139:
140: IF l_debug_level > 0 THEN
141: oe_debug_pub.add('ENTERING BOM_BASED_CONFIG_VALIDATION' , 1 ) ;
142: END IF;
143: Print_Time('Bom_Based_Config_Validation start time');
144:
145: G_VALID_CONFIG := 'TRUE';

Line 157: oe_debug_pub.add('SELECT FAILED '|| SQLERRM , 1 ) ;

153: WHERE line_id = p_top_model_line_id;
154: EXCEPTION
155: WHEN OTHERS THEN
156: IF l_debug_level > 0 THEN
157: oe_debug_pub.add('SELECT FAILED '|| SQLERRM , 1 ) ;
158: END IF;
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END;
161:

Line 171: oe_debug_pub.add('CALLING CHECK_RATIO_AND_PARENT' , 1 ) ;

167: ,x_frozen_model_bill => l_frozen_model_bill);
168:
169:
170: IF l_debug_level > 0 THEN
171: oe_debug_pub.add('CALLING CHECK_RATIO_AND_PARENT' , 1 ) ;
172: END IF;
173:
174: Check_Ratio_And_Parent
175: ( p_options_tbl => p_options_tbl

Line 184: oe_debug_pub.add('CALLING CHECK_MIN_MAX' , 1 ) ;

180: Handle_Ret_Status(p_valid_config => l_valid_config);
181: END IF;
182:
183: IF l_debug_level > 0 THEN
184: oe_debug_pub.add('CALLING CHECK_MIN_MAX' , 1 ) ;
185: END IF;
186:
187: Check_Min_Max
188: ( p_top_bill_sequence_id => l_top_bill_sequence_id

Line 201: oe_debug_pub.add('CALLING CHECK_CLASS_HAS_OPTIONS' , 1 ) ;

197: END IF;
198:
199:
200: IF l_debug_level > 0 THEN
201: oe_debug_pub.add('CALLING CHECK_CLASS_HAS_OPTIONS' , 1 ) ;
202: END IF;
203:
204: Check_Class_Has_Options
205: ( p_options_tbl => p_options_tbl

Line 214: oe_debug_pub.add('CALLING CHECK_MUT_EXCL_OPTIONS' , 1 ) ;

210: Handle_Ret_Status(p_complete_config => l_complete_config);
211: END IF;
212:
213: IF l_debug_level > 0 THEN
214: oe_debug_pub.add('CALLING CHECK_MUT_EXCL_OPTIONS' , 1 ) ;
215: END IF;
216:
217: Check_Mut_Excl_Options
218: ( p_top_bill_sequence_id => l_top_bill_sequence_id

Line 230: oe_debug_pub.add('CALLIN CHECK_MANDATORY_CLASSES' , 1 ) ;

226: END IF;
227:
228:
229: IF l_debug_level > 0 THEN
230: oe_debug_pub.add('CALLIN CHECK_MANDATORY_CLASSES' , 1 ) ;
231: END IF;
232:
233: Check_Mandatory_Classes
234: ( p_top_bill_sequence_id => l_top_bill_sequence_id

Line 258: oe_debug_pub.add('LEAVING BOM_BASED_CONFIG_VALIDATION'

254: END IF;
255:
256: Print_Time('Bom_Based_Config_Validation end time');
257: IF l_debug_level > 0 THEN
258: oe_debug_pub.add('LEAVING BOM_BASED_CONFIG_VALIDATION'
259: || X_RETURN_STATUS , 1 ) ;
260: END IF;
261: EXCEPTION
262: WHEN OTHERS THEN

Line 264: oe_debug_pub.add('BOM_BASED_CONFIG_VALIDATION EXCEPTION'|| SQLERRM,1);

260: END IF;
261: EXCEPTION
262: WHEN OTHERS THEN
263: IF l_debug_level > 0 THEN
264: oe_debug_pub.add('BOM_BASED_CONFIG_VALIDATION EXCEPTION'|| SQLERRM,1);
265: END IF;
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267: RAISE;
268: END Bom_Based_Config_Validation;

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

298: l_parent_exists BOOLEAN := FALSE;
299: l_ordered_item VARCHAR2(2000);
300: l_item_type_code VARCHAR2(30);
301: --
302: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
303: --
304: BEGIN
305: IF l_debug_level > 0 THEN
306: oe_debug_pub.add('ENTERING CHECK_RATIO_AND_PARENT' , 1 ) ;

Line 306: oe_debug_pub.add('ENTERING CHECK_RATIO_AND_PARENT' , 1 ) ;

302: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
303: --
304: BEGIN
305: IF l_debug_level > 0 THEN
306: oe_debug_pub.add('ENTERING CHECK_RATIO_AND_PARENT' , 1 ) ;
307: END IF;
308: Print_Time('Check_Ratio_And_Parent start time');
309:
310: SELECT ordered_quantity

Line 324: oe_debug_pub.add('QTY IS 0 , DONT CHECK'|| L_PARENT_QTY , 2 ) ;

320:
321: /****************** commneted during OM pack J project
322: IF p_options_tbl(I).ordered_quantity = 0 THEN
323: IF l_debug_level > 0 THEN
324: oe_debug_pub.add('QTY IS 0 , DONT CHECK'|| L_PARENT_QTY , 2 ) ;
325: END IF;
326:
327: ELSE
328: IF TRUNC(p_options_tbl(I).ordered_quantity/l_parent_qty) <>

Line 332: oe_debug_pub.add('DECIMAL RATIO '||P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 1 ) ;

328: IF TRUNC(p_options_tbl(I).ordered_quantity/l_parent_qty) <>
329: (p_options_tbl(I).ordered_quantity/l_parent_qty)
330: THEN
331: IF l_debug_level > 0 THEN
332: oe_debug_pub.add('DECIMAL RATIO '||P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 1 ) ;
333: END IF;
334:
335: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_DECIMAL_RATIO');
336:

Line 368: oe_debug_pub.add('NOW CHECKING IF PARENT PRESENT' , 1 ) ;

364:
365: *********************************************************/
366:
367: IF l_debug_level > 0 THEN
368: oe_debug_pub.add('NOW CHECKING IF PARENT PRESENT' , 1 ) ;
369: END IF;
370: l_parent_exists := Check_Parent_Exists
371: ( p_component_code => p_options_tbl(I).component_code
372: ,p_index => I

Line 378: oe_debug_pub.add('MAJOR ERROR , CAN NOT GO FURTHER' , 2 ) ;

374: ,p_options_tbl => p_options_tbl);
375:
376: IF NOT l_parent_exists THEN
377: IF l_debug_level > 0 THEN
378: oe_debug_pub.add('MAJOR ERROR , CAN NOT GO FURTHER' , 2 ) ;
379: END IF;
380: RAISE FND_API.G_EXC_ERROR;
381: END IF;
382:

Line 392: oe_debug_pub.add('LEAVING CHECK_RATIO_AND_PARENT' , 1 ) ;

388: x_return_status := l_return_status;
389:
390: Print_Time('Check_Ratio_And_Parent end time');
391: IF l_debug_level > 0 THEN
392: oe_debug_pub.add('LEAVING CHECK_RATIO_AND_PARENT' , 1 ) ;
393: END IF;
394:
395: EXCEPTION
396: WHEN OTHERS THEN

Line 398: oe_debug_pub.add('CHECK_RATIO_AND_PARENT EXCEPTION'|| SQLERRM , 1 ) ;

394:
395: EXCEPTION
396: WHEN OTHERS THEN
397: IF l_debug_level > 0 THEN
398: oe_debug_pub.add('CHECK_RATIO_AND_PARENT EXCEPTION'|| SQLERRM , 1 ) ;
399: END IF;
400: RAISE;
401: END Check_Ratio_And_Parent;
402:

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

420: l_line_number NUMBER;
421: l_shipment_number NUMBER;
422: l_option_number NUMBER;
423: --
424: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
425: --
426: BEGIN
427:
428: IF l_debug_level > 0 THEN

Line 429: oe_debug_pub.add('ENTERING CHECK_PARENT_EXISTS'|| P_COMPONENT_CODE , 1 ) ;

425: --
426: BEGIN
427:
428: IF l_debug_level > 0 THEN
429: oe_debug_pub.add('ENTERING CHECK_PARENT_EXISTS'|| P_COMPONENT_CODE , 1 ) ;
430: END IF;
431: Print_Time('Check_Parent_Exists start time');
432:
433: I := p_options_tbl.FIRST;

Line 440: oe_debug_pub.add('PARENT FOUND '|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 1 ) ;

436: IF p_options_tbl(I).component_code = SUBSTR(p_component_code, 1,
437: INSTR(p_component_code, '-', -1) - 1)
438: THEN
439: IF l_debug_level > 0 THEN
440: oe_debug_pub.add('PARENT FOUND '|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 1 ) ;
441: END IF;
442: RETURN TRUE;
443: END IF;
444:

Line 449: oe_debug_pub.add('PARENT NOT FOUND , MAY BE CANCELED' , 1 ) ;

445: I := p_options_tbl.NEXT(I);
446: END LOOP;
447:
448: IF l_debug_level > 0 THEN
449: oe_debug_pub.add('PARENT NOT FOUND , MAY BE CANCELED' , 1 ) ;
450: END IF;
451:
452: BEGIN
453:

Line 466: oe_debug_pub.add('OPEN_FLAG , QTY: '|| L_OPEN_FLAG , 3 ) ;

462: AND component_code = SUBSTR(p_component_code, 1,
463: INSTR(p_component_code, '-', -1) - 1));
464:
465: IF l_debug_level > 0 THEN
466: oe_debug_pub.add('OPEN_FLAG , QTY: '|| L_OPEN_FLAG , 3 ) ;
467: END IF;
468:
469: IF l_open_flag = 'N' THEN
470: IF l_debug_level > 0 THEN

Line 471: oe_debug_pub.add('PARENT WAS CANCELLED' , 3 ) ;

467: END IF;
468:
469: IF l_open_flag = 'N' THEN
470: IF l_debug_level > 0 THEN
471: oe_debug_pub.add('PARENT WAS CANCELLED' , 3 ) ;
472: END IF;
473: RETURN TRUE;
474: END IF;
475:

Line 479: oe_debug_pub.add('NO PARENT' , 3 ) ;

475:
476: EXCEPTION
477: WHEN NO_DATA_FOUND THEN
478: IF l_debug_level > 0 THEN
479: oe_debug_pub.add('NO PARENT' , 3 ) ;
480: END IF;
481:
482: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_NO_PARENT');
483: FND_MESSAGE.Set_TOKEN('ITEM', p_options_tbl(p_index).ordered_item);

Line 500: oe_debug_pub.add('NOT YET CREATED' , 3 ) ;

496: l_line := null;
497: END;
498:
499: IF l_debug_level > 0 THEN
500: oe_debug_pub.add('NOT YET CREATED' , 3 ) ;
501: END IF;
502:
503: FND_MESSAGE.Set_TOKEN('LINE', l_line);
504: OE_MSG_PUB.Add;

Line 514: oe_debug_pub.add('CHECK_PARENT_EXISTS EXCEPTION'|| SQLERRM , 1 ) ;

510:
511: EXCEPTION
512: WHEN OTHERS THEN
513: IF l_debug_level > 0 THEN
514: oe_debug_pub.add('CHECK_PARENT_EXISTS EXCEPTION'|| SQLERRM , 1 ) ;
515: END IF;
516: RETURN FALSE;
517: END Check_Parent_Exists;
518:

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

541: l_min_allowed_qty NUMBER;
542: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
543: l_valid_config VARCHAR2(10) := 'TRUE';
544: --
545: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
546: --
547: BEGIN
548: IF l_debug_level > 0 THEN
549: oe_debug_pub.add('ENTERING CHECK_MIN_MAX' , 1 ) ;

Line 549: oe_debug_pub.add('ENTERING CHECK_MIN_MAX' , 1 ) ;

545: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
546: --
547: BEGIN
548: IF l_debug_level > 0 THEN
549: oe_debug_pub.add('ENTERING CHECK_MIN_MAX' , 1 ) ;
550: END IF;
551: Print_Time('Check_Min_Max start time');
552:
553: I := p_options_tbl.FIRST;

Line 559: oe_debug_pub.add('CHECKING MIN MAK FOR: '|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 1 ) ;

555: WHILE I is not NULL
556:
557: LOOP
558: IF l_debug_level > 0 THEN
559: oe_debug_pub.add('CHECKING MIN MAK FOR: '|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 1 ) ;
560: END IF;
561: -- if the qty is 0, we delete the line before cancellation
562: -- we close the line after cancellation, so no need to do this check.
563:

Line 566: oe_debug_pub.add('NO CHECK SINCE QTY = 0' ) ;

562: -- we close the line after cancellation, so no need to do this check.
563:
564: IF p_options_tbl(I).ordered_quantity = 0 THEN
565: IF l_debug_level > 0 THEN
566: oe_debug_pub.add('NO CHECK SINCE QTY = 0' ) ;
567: END IF;
568: ELSE
569:
570: SELECT nvl(be1.high_quantity,0), nvl(be1.low_quantity,0)

Line 591: oe_debug_pub.add('ORDERED QTY OUT OF RANGE' || P_OPTIONS_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;

587: trunc(p_options_tbl(I).ordered_quantity/p_model_qty,9) > l_max_allowed_qty
588: THEN
589:
590: IF l_debug_level > 0 THEN
591: oe_debug_pub.add('ORDERED QTY OUT OF RANGE' || P_OPTIONS_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
592: END IF;
593: IF l_debug_level > 0 THEN
594: oe_debug_pub.add('MIN: '||L_MIN_ALLOWED_QTY || 'MAX: '||L_MAX_ALLOWED_QTY , 1 ) ;
595: END IF;

Line 594: oe_debug_pub.add('MIN: '||L_MIN_ALLOWED_QTY || 'MAX: '||L_MAX_ALLOWED_QTY , 1 ) ;

590: IF l_debug_level > 0 THEN
591: oe_debug_pub.add('ORDERED QTY OUT OF RANGE' || P_OPTIONS_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
592: END IF;
593: IF l_debug_level > 0 THEN
594: oe_debug_pub.add('MIN: '||L_MIN_ALLOWED_QTY || 'MAX: '||L_MAX_ALLOWED_QTY , 1 ) ;
595: END IF;
596: IF l_debug_level > 0 THEN
597: oe_debug_pub.add('ITEM'|| P_OPTIONS_TBL ( I ) .ORDERED_ITEM , 1 ) ;
598: END IF;

Line 597: oe_debug_pub.add('ITEM'|| P_OPTIONS_TBL ( I ) .ORDERED_ITEM , 1 ) ;

593: IF l_debug_level > 0 THEN
594: oe_debug_pub.add('MIN: '||L_MIN_ALLOWED_QTY || 'MAX: '||L_MAX_ALLOWED_QTY , 1 ) ;
595: END IF;
596: IF l_debug_level > 0 THEN
597: oe_debug_pub.add('ITEM'|| P_OPTIONS_TBL ( I ) .ORDERED_ITEM , 1 ) ;
598: END IF;
599:
600: FND_MESSAGE.Set_Name('ONT', 'OE_VAL_CONFIG_QTY_OUT_OF_RANGE');
601: FND_MESSAGE.Set_Token('ITEM', p_options_tbl(I).ordered_item);

Line 611: oe_debug_pub.add('MIN MAX RANGE NOT SET' , 1 ) ;

607: END IF;
608:
609: ELSE
610: IF l_debug_level > 0 THEN
611: oe_debug_pub.add('MIN MAX RANGE NOT SET' , 1 ) ;
612: END IF;
613: END IF; -- if there is min max setting
614:
615: END IF; -- if the qty was 0

Line 625: oe_debug_pub.add('LEAVING CHECK_MIN_MAX' , 1 ) ;

621: x_return_status := l_return_status;
622:
623: Print_Time('Check_Min_Max end time');
624: IF l_debug_level > 0 THEN
625: oe_debug_pub.add('LEAVING CHECK_MIN_MAX' , 1 ) ;
626: END IF;
627:
628: EXCEPTION
629: WHEN OTHERS THEN

Line 631: oe_debug_pub.add('CHECK_MIN_MAX EXCEPTION'|| SQLERRM , 1 ) ;

627:
628: EXCEPTION
629: WHEN OTHERS THEN
630: IF l_debug_level > 0 THEN
631: oe_debug_pub.add('CHECK_MIN_MAX EXCEPTION'|| SQLERRM , 1 ) ;
632: END IF;
633: RAISE;
634: END Check_Min_Max;
635:

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

650: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
651: l_complete_config VARCHAR2(10) := 'TRUE';
652: l_inventory_item_id NUMBER;
653: --
654: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
655: --
656: BEGIN
657: IF l_debug_level > 0 THEN
658: oe_debug_pub.add('ENTERING CHECK_CLASS_HAS_OPTIONS' , 1 ) ;

Line 658: oe_debug_pub.add('ENTERING CHECK_CLASS_HAS_OPTIONS' , 1 ) ;

654: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
655: --
656: BEGIN
657: IF l_debug_level > 0 THEN
658: oe_debug_pub.add('ENTERING CHECK_CLASS_HAS_OPTIONS' , 1 ) ;
659: END IF;
660: Print_Time('Check_Class_Has_Options start time');
661:
662: I := p_options_tbl.FIRST ;

Line 667: oe_debug_pub.add('BOM_ITEM_TYPE: '|| P_OPTIONS_TBL ( I ) .BOM_ITEM_TYPE , 1 ) ;

663:
664: WHILE I is not null
665: LOOP
666: IF l_debug_level > 0 THEN
667: oe_debug_pub.add('BOM_ITEM_TYPE: '|| P_OPTIONS_TBL ( I ) .BOM_ITEM_TYPE , 1 ) ;
668: END IF;
669: -- model line has null, so will not go in.
670: IF p_options_tbl(I).bom_item_type = 2 THEN
671:

Line 674: oe_debug_pub.add('NO NEED TO CHECK , EITHER DELETE OR CLOSE' , 1 ) ;

670: IF p_options_tbl(I).bom_item_type = 2 THEN
671:
672: IF p_options_tbl(I).ordered_quantity = 0 THEN
673: IF l_debug_level > 0 THEN
674: oe_debug_pub.add('NO NEED TO CHECK , EITHER DELETE OR CLOSE' , 1 ) ;
675: END IF;
676:
677: ELSE
678:

Line 710: oe_debug_pub.add('LEAVING CHECK_CLASS_HAS_OPTIONS' , 1 ) ;

706: x_return_status := l_return_status;
707:
708: Print_Time('Check_Class_Has_Options end time');
709: IF l_debug_level > 0 THEN
710: oe_debug_pub.add('LEAVING CHECK_CLASS_HAS_OPTIONS' , 1 ) ;
711: END IF;
712: EXCEPTION
713: WHEN OTHERS THEN
714: IF l_debug_level > 0 THEN

Line 715: oe_debug_pub.add('CHECK_CLASS_HAS_OPTIONS EXCEPTION'|| SQLERRM , 1 ) ;

711: END IF;
712: EXCEPTION
713: WHEN OTHERS THEN
714: IF l_debug_level > 0 THEN
715: oe_debug_pub.add('CHECK_CLASS_HAS_OPTIONS EXCEPTION'|| SQLERRM , 1 ) ;
716: END IF;
717: RAISE;
718: END Check_Class_Has_Options;
719:

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

729: RETURN BOOLEAN
730: IS
731: I NUMBER;
732: --
733: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
734: --
735: BEGIN
736: IF l_debug_level > 0 THEN
737: oe_debug_pub.add('ENTERING CHECK_OPTION_EXIST' , 1 ) ;

Line 737: oe_debug_pub.add('ENTERING CHECK_OPTION_EXIST' , 1 ) ;

733: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
734: --
735: BEGIN
736: IF l_debug_level > 0 THEN
737: oe_debug_pub.add('ENTERING CHECK_OPTION_EXIST' , 1 ) ;
738: END IF;
739:
740: I := p_options_tbl.FIRST;
741: WHILE I is not null

Line 747: oe_debug_pub.add('CHILD FOUND '|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 1 ) ;

743: IF p_component_code = SUBSTR(p_options_tbl(I).component_code, 1,
744: INSTR(p_options_tbl(I).component_code, '-', -1) - 1)
745: THEN
746: IF l_debug_level > 0 THEN
747: oe_debug_pub.add('CHILD FOUND '|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 1 ) ;
748: END IF;
749: RETURN true;
750: END IF;
751:

Line 756: oe_debug_pub.add('LEAVING CHECK_OPTION_EXIST WITH NO CHILD' , 1 ) ;

752: I := p_options_tbl.NEXT(I);
753: END LOOP;
754:
755: IF l_debug_level > 0 THEN
756: oe_debug_pub.add('LEAVING CHECK_OPTION_EXIST WITH NO CHILD' , 1 ) ;
757: END IF;
758: RETURN false;
759: EXCEPTION
760: WHEN OTHERS THEN

Line 762: oe_debug_pub.add('CHECK_OPTION_EXIST EXCEPTION'|| SQLERRM , 1 ) ;

758: RETURN false;
759: EXCEPTION
760: WHEN OTHERS THEN
761: IF l_debug_level > 0 THEN
762: oe_debug_pub.add('CHECK_OPTION_EXIST EXCEPTION'|| SQLERRM , 1 ) ;
763: END IF;
764: RAISE;
765: END Check_Option_Exist;
766:

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

805: AND bomexp.mutually_exclusive_options = 1 /* Exclusive */
806: ORDER BY bomexp.sort_order;
807:
808: --
809: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
810: --
811: BEGIN
812: IF l_debug_level > 0 THEN
813: oe_debug_pub.add('ENTERING CHECK_MUT_EXCL_OPTIONS' , 1 ) ;

Line 813: oe_debug_pub.add('ENTERING CHECK_MUT_EXCL_OPTIONS' , 1 ) ;

809: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
810: --
811: BEGIN
812: IF l_debug_level > 0 THEN
813: oe_debug_pub.add('ENTERING CHECK_MUT_EXCL_OPTIONS' , 1 ) ;
814: END IF;
815: Print_Time('Check_Mut_Excl_Options start time');
816:
817: FOR bom_rec in MUTUALLY_EXCLUSIVE_OPTIONS

Line 838: oe_debug_pub.add('LEAVING CHECK_MUT_EXCL_OPTIONS' , 1 ) ;

834: x_return_status := l_return_status;
835:
836: Print_Time('Check_Mut_Excl_Options end time');
837: IF l_debug_level > 0 THEN
838: oe_debug_pub.add('LEAVING CHECK_MUT_EXCL_OPTIONS' , 1 ) ;
839: END IF;
840: EXCEPTION
841: WHEN OTHERS THEN
842: IF l_debug_level > 0 THEN

Line 843: oe_debug_pub.add('CHECK_MUT_EXCL_OPTIONS EXCEPTION'|| SQLERRM , 1 ) ;

839: END IF;
840: EXCEPTION
841: WHEN OTHERS THEN
842: IF l_debug_level > 0 THEN
843: oe_debug_pub.add('CHECK_MUT_EXCL_OPTIONS EXCEPTION'|| SQLERRM , 1 ) ;
844: END IF;
845: RAISE;
846: END Check_Mut_Excl_Options;
847:

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

876: l_count NUMBER;
877: I NUMBER;
878: l_component VARCHAR2(1000);
879: --
880: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
881: --
882: BEGIN
883: IF l_debug_level > 0 THEN
884: oe_debug_pub.add('ENTERING MUTUALLY_EXCLUSIVE_COMPS_EXIST' , 1 ) ;

Line 884: oe_debug_pub.add('ENTERING MUTUALLY_EXCLUSIVE_COMPS_EXIST' , 1 ) ;

880: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
881: --
882: BEGIN
883: IF l_debug_level > 0 THEN
884: oe_debug_pub.add('ENTERING MUTUALLY_EXCLUSIVE_COMPS_EXIST' , 1 ) ;
885: END IF;
886:
887: I := p_options_tbl.FIRST;
888:

Line 901: oe_debug_pub.add( L_COUNT ||' OPTION PRESENT'|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 2 ) ;

897: p_options_tbl(I).ordered_quantity <> 0 -- if 0, either will be deleted or closed
898: THEN
899: l_count := l_count + 1;
900: IF l_debug_level > 0 THEN
901: oe_debug_pub.add( L_COUNT ||' OPTION PRESENT'|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 2 ) ;
902: END IF;
903: END IF;
904:
905: I := p_options_tbl.NEXT(I);

Line 912: oe_debug_pub.add('NO MUTAUL EXCLUSION IN CLASS '|| P_COMPONENT_CODE , 1 ) ;

908: IF l_count >= 2 THEN
909: RETURN true;
910: ELSE
911: IF l_debug_level > 0 THEN
912: oe_debug_pub.add('NO MUTAUL EXCLUSION IN CLASS '|| P_COMPONENT_CODE , 1 ) ;
913: END IF;
914: RETURN false;
915: END IF;
916:

Line 918: oe_debug_pub.add('LEAVING MUTUALLY_EXCLUSIVE_COMPS_EXIST' , 1 ) ;

914: RETURN false;
915: END IF;
916:
917: IF l_debug_level > 0 THEN
918: oe_debug_pub.add('LEAVING MUTUALLY_EXCLUSIVE_COMPS_EXIST' , 1 ) ;
919: END IF;
920: EXCEPTION
921: WHEN OTHERS THEN
922: IF l_debug_level > 0 THEN

Line 923: oe_debug_pub.add('MUTUALLY_EXCLUSIVE_COMPS_EXIST EXCEPTION'|| SQLERRM , 1 ) ;

919: END IF;
920: EXCEPTION
921: WHEN OTHERS THEN
922: IF l_debug_level > 0 THEN
923: oe_debug_pub.add('MUTUALLY_EXCLUSIVE_COMPS_EXIST EXCEPTION'|| SQLERRM , 1 ) ;
924: END IF;
925: RAISE;
926: END Mutually_Exclusive_Comps_exist;
927:

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

991: )
992: ORDER BY BOMEXP.SORT_ORDER;
993: */
994: --
995: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
996: --
997: BEGIN
998: IF l_debug_level > 0 THEN
999: oe_debug_pub.add('ENTERING CHECK_MANDATORY_CLASSES' , 1 ) ;

Line 999: oe_debug_pub.add('ENTERING CHECK_MANDATORY_CLASSES' , 1 ) ;

995: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
996: --
997: BEGIN
998: IF l_debug_level > 0 THEN
999: oe_debug_pub.add('ENTERING CHECK_MANDATORY_CLASSES' , 1 ) ;
1000: END IF;
1001: Print_Time('Check_Mandatory_Classes start time');
1002:
1003: for bom_rec in MANDATORY_COMPONENTS

Line 1024: oe_debug_pub.add('LEAVING CHECK_MANDATORY_CLASSES '|| L_RETURN_STATUS , 1 ) ;

1020: x_return_status := l_return_status;
1021:
1022: Print_Time('Check_Mandatory_Classes end time');
1023: IF l_debug_level > 0 THEN
1024: oe_debug_pub.add('LEAVING CHECK_MANDATORY_CLASSES '|| L_RETURN_STATUS , 1 ) ;
1025: END IF;
1026: EXCEPTION
1027: WHEN OTHERS THEN
1028: IF l_debug_level > 0 THEN

Line 1029: oe_debug_pub.add('CHECK_MANDATORY_CLASSES EXCEPTION'|| SQLERRM , 1 ) ;

1025: END IF;
1026: EXCEPTION
1027: WHEN OTHERS THEN
1028: IF l_debug_level > 0 THEN
1029: oe_debug_pub.add('CHECK_MANDATORY_CLASSES EXCEPTION'|| SQLERRM , 1 ) ;
1030: END IF;
1031: RAISE;
1032: END Check_Mandatory_Classes;
1033:

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

1064: J NUMBER;
1065: l_parent BOOLEAN;
1066: l_parent_component VARCHAR2(1000);
1067: --
1068: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1069: --
1070: BEGIN
1071:
1072: IF l_debug_level > 0 THEN

Line 1073: oe_debug_pub.add('ENTERING MANDATORY_COMPS_MISSING' , 1 ) ;

1069: --
1070: BEGIN
1071:
1072: IF l_debug_level > 0 THEN
1073: oe_debug_pub.add('ENTERING MANDATORY_COMPS_MISSING' , 1 ) ;
1074: END IF;
1075: IF l_debug_level > 0 THEN
1076: oe_debug_pub.add('COMPONENT IN ' || P_COMPONENT_CODE , 2 ) ;
1077: END IF;

Line 1076: oe_debug_pub.add('COMPONENT IN ' || P_COMPONENT_CODE , 2 ) ;

1072: IF l_debug_level > 0 THEN
1073: oe_debug_pub.add('ENTERING MANDATORY_COMPS_MISSING' , 1 ) ;
1074: END IF;
1075: IF l_debug_level > 0 THEN
1076: oe_debug_pub.add('COMPONENT IN ' || P_COMPONENT_CODE , 2 ) ;
1077: END IF;
1078:
1079: -- Check for mandatory component parent existance in the table.
1080: -- Look for options only if the parent of the passed component is

Line 1098: oe_debug_pub.add('ORDQTY:'||p_options_tbl(J).ordered_quantity);

1094: --Make sure that the option class itself is present
1095: --The parent may be present due to selection of some other child
1096: --as well
1097: IF l_debug_level > 0 THEN
1098: oe_debug_pub.add('ORDQTY:'||p_options_tbl(J).ordered_quantity);
1099: END IF;
1100:
1101: --IF p_options_tbl(J).component_code = p_component_code AND
1102: IF p_options_tbl(J).component_code = l_parent_component AND --fp: 3618150

Line 1107: oe_debug_pub.add('PARENT FOUND ' || L_PARENT_COMPONENT , 2 ) ;

1103: p_options_tbl(J).ordered_quantity <> 0
1104: THEN
1105: l_parent := true;
1106: IF l_debug_level > 0 THEN
1107: oe_debug_pub.add('PARENT FOUND ' || L_PARENT_COMPONENT , 2 ) ;
1108: END IF;
1109: END IF;
1110:
1111: J := p_options_tbl.NEXT(J);

Line 1130: oe_debug_pub.add('MANDATORY OPTION PRESENT'|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 2 ) ;

1126: IF l_component = p_component_code AND
1127: p_options_tbl(I).ordered_quantity <> 0
1128: THEN
1129: IF l_debug_level > 0 THEN
1130: oe_debug_pub.add('MANDATORY OPTION PRESENT'|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 2 ) ;
1131: END IF;
1132: l_found := true;
1133: END IF;
1134:

Line 1142: oe_debug_pub.add('MANDATORY COMP MISSING IN CLASS '|| L_COMPONENT , 1 ) ;

1138: IF l_found THEN
1139: RETURN false;
1140: ELSE
1141: IF l_debug_level > 0 THEN
1142: oe_debug_pub.add('MANDATORY COMP MISSING IN CLASS '|| L_COMPONENT , 1 ) ;
1143: END IF;
1144: RETURN true;
1145: END IF;
1146:

Line 1154: oe_debug_pub.add('LEAVING MANDATORY_COMPS_MISSING' , 1 ) ;

1150:
1151: END IF;
1152:
1153: IF l_debug_level > 0 THEN
1154: oe_debug_pub.add('LEAVING MANDATORY_COMPS_MISSING' , 1 ) ;
1155: END IF;
1156: EXCEPTION
1157: WHEN OTHERS THEN
1158: IF l_debug_level > 0 THEN

Line 1159: oe_debug_pub.add('MANDATORY_COMPS_MISSING EXCEPTION'|| SQLERRM , 1 ) ;

1155: END IF;
1156: EXCEPTION
1157: WHEN OTHERS THEN
1158: IF l_debug_level > 0 THEN
1159: oe_debug_pub.add('MANDATORY_COMPS_MISSING EXCEPTION'|| SQLERRM , 1 ) ;
1160: END IF;
1161: RAISE;
1162: END Mandatory_Comps_Missing;
1163:

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

1170: PROCEDURE Print_Time(p_msg IN VARCHAR2)
1171: IS
1172: l_time VARCHAR2(100);
1173: --
1174: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1175: --
1176: BEGIN
1177: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
1178: 'DD-MON-YY HH24:MI:SS');

Line 1180: oe_debug_pub.add( P_MSG || ': '|| L_TIME , 1 ) ;

1176: BEGIN
1177: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
1178: 'DD-MON-YY HH24:MI:SS');
1179: IF l_debug_level > 0 THEN
1180: oe_debug_pub.add( P_MSG || ': '|| L_TIME , 1 ) ;
1181: END IF;
1182: END Print_Time;
1183:
1184:

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

1191: (p_valid_config IN VARCHAR2 := NULL
1192: ,p_complete_config IN VARCHAR2 := NULL)
1193: IS
1194: --
1195: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1196: --
1197: BEGIN
1198: IF nvl(p_valid_config, 'TRUE') = 'FALSE' THEN
1199: IF l_debug_level > 0 THEN

Line 1200: oe_debug_pub.add('SETTING VALID_CONFIG TO FALSE' , 1 ) ;

1196: --
1197: BEGIN
1198: IF nvl(p_valid_config, 'TRUE') = 'FALSE' THEN
1199: IF l_debug_level > 0 THEN
1200: oe_debug_pub.add('SETTING VALID_CONFIG TO FALSE' , 1 ) ;
1201: END IF;
1202: G_VALID_CONFIG := 'FALSE';
1203: END IF;
1204:

Line 1207: oe_debug_pub.add('SETTING COMPLETE_CONFIG TO FALSE' , 1 ) ;

1203: END IF;
1204:
1205: IF nvl(p_complete_config, 'TRUE') = 'FALSE' THEN
1206: IF l_debug_level > 0 THEN
1207: oe_debug_pub.add('SETTING COMPLETE_CONFIG TO FALSE' , 1 ) ;
1208: END IF;
1209: G_VALID_CONFIG := 'FALSE';
1210: END IF;
1211: END Handle_Ret_Status;

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

1232: l_line_number NUMBER;
1233: l_shipment_number NUMBER;
1234: l_option_number NUMBER;
1235: --
1236: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1237: --
1238: BEGIN
1239: IF l_debug_level > 0 THEN
1240: oe_debug_pub.add('ENTERING GET_PARENT_QUANTITY' , 1 ) ;

Line 1240: oe_debug_pub.add('ENTERING GET_PARENT_QUANTITY' , 1 ) ;

1236: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1237: --
1238: BEGIN
1239: IF l_debug_level > 0 THEN
1240: oe_debug_pub.add('ENTERING GET_PARENT_QUANTITY' , 1 ) ;
1241: END IF;
1242: IF l_debug_level > 0 THEN
1243: oe_debug_pub.add('FIND PARENT QTY FOR: '|| P_COMPONENT_CODE , 1 ) ;
1244: END IF;

Line 1243: oe_debug_pub.add('FIND PARENT QTY FOR: '|| P_COMPONENT_CODE , 1 ) ;

1239: IF l_debug_level > 0 THEN
1240: oe_debug_pub.add('ENTERING GET_PARENT_QUANTITY' , 1 ) ;
1241: END IF;
1242: IF l_debug_level > 0 THEN
1243: oe_debug_pub.add('FIND PARENT QTY FOR: '|| P_COMPONENT_CODE , 1 ) ;
1244: END IF;
1245:
1246: I := p_options_tbl.FIRST;
1247: WHILE I is not null

Line 1253: oe_debug_pub.add('PARENT FOUND '|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 1 ) ;

1249: IF p_options_tbl(I).component_code = SUBSTR(p_component_code, 1,
1250: INSTR(p_component_code, '-', -1) - 1)
1251: THEN
1252: IF l_debug_level > 0 THEN
1253: oe_debug_pub.add('PARENT FOUND '|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 1 ) ;
1254: END IF;
1255: RETURN p_options_tbl(I).ordered_quantity;
1256: END IF;
1257:

Line 1262: oe_debug_pub.add('NO PARENT FOR ' || P_COMPONENT_CODE , 1 ) ;

1258: I := p_options_tbl.NEXT(I);
1259: END LOOP;
1260:
1261: IF l_debug_level > 0 THEN
1262: oe_debug_pub.add('NO PARENT FOR ' || P_COMPONENT_CODE , 1 ) ;
1263: END IF;
1264: RAISE FND_API.G_EXC_ERROR;
1265:
1266: EXCEPTION

Line 1269: oe_debug_pub.add('PARENT NOT FOUND , MAY BE CANCELED' , 1 ) ;

1265:
1266: EXCEPTION
1267: WHEN FND_API.G_EXC_ERROR THEN
1268: IF l_debug_level > 0 THEN
1269: oe_debug_pub.add('PARENT NOT FOUND , MAY BE CANCELED' , 1 ) ;
1270: END IF;
1271:
1272: BEGIN
1273:

Line 1285: oe_debug_pub.add('OPEN_FLAG , QTY: '|| L_OPEN_FLAG || L_ORDERED_QUANTITY , 3 ) ;

1281: AND component_code = SUBSTR(p_component_code, 1,
1282: INSTR(p_component_code, '-', -1) - 1));
1283:
1284: IF l_debug_level > 0 THEN
1285: oe_debug_pub.add('OPEN_FLAG , QTY: '|| L_OPEN_FLAG || L_ORDERED_QUANTITY , 3 ) ;
1286: END IF;
1287:
1288: IF l_open_flag = 'N' THEN
1289: IF l_debug_level > 0 THEN

Line 1290: oe_debug_pub.add('PARENT WAS CANCELLED' , 3 ) ;

1286: END IF;
1287:
1288: IF l_open_flag = 'N' THEN
1289: IF l_debug_level > 0 THEN
1290: oe_debug_pub.add('PARENT WAS CANCELLED' , 3 ) ;
1291: END IF;
1292: RETURN l_ordered_quantity;
1293: END IF;
1294: EXCEPTION

Line 1297: oe_debug_pub.add('NO PARENT' , 3 ) ;

1293: END IF;
1294: EXCEPTION
1295: WHEN NO_DATA_FOUND THEN
1296: IF l_debug_level > 0 THEN
1297: oe_debug_pub.add('NO PARENT' , 3 ) ;
1298: END IF;
1299:
1300: SELECT ordered_item, line_number, shipment_number, option_number
1301: INTO l_ordered_item, l_line_number, l_shipment_number, l_option_number

Line 1316: oe_debug_pub.add('GET_PARENT_QUANTITY EXCEPTION'|| SQLERRM , 1 ) ;

1312: END;
1313:
1314: WHEN OTHERS THEN
1315: IF l_debug_level > 0 THEN
1316: oe_debug_pub.add('GET_PARENT_QUANTITY EXCEPTION'|| SQLERRM , 1 ) ;
1317: END IF;
1318: RAISE;
1319: END Get_Parent_Quantity;
1320: