DBA Data[Home] [Help]

APPS.BOM_CONFIG_VALIDATION_PUB dependencies on OE_DEBUG_PUB

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Line 256: oe_debug_pub.add('LEAVING BOM_BASED_CONFIG_VALIDATION'

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

560: -- we close the line after cancellation, so no need to do this check.
561:
562: IF p_options_tbl(I).ordered_quantity = 0 THEN
563: IF l_debug_level > 0 THEN
564: oe_debug_pub.add('NO CHECK SINCE QTY = 0' ) ;
565: END IF;
566: ELSE
567:
568: SELECT /*+ INDEX(BE1 BOM_EXPLOSIONS_N1) */

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

695: x_return_status := l_return_status;
696:
697: Print_Time('Check_Class_Has_Options end time');
698: IF l_debug_level > 0 THEN
699: oe_debug_pub.add('LEAVING CHECK_CLASS_HAS_OPTIONS' , 1 ) ;
700: END IF;
701: EXCEPTION
702: WHEN OTHERS THEN
703: IF l_debug_level > 0 THEN

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

700: END IF;
701: EXCEPTION
702: WHEN OTHERS THEN
703: IF l_debug_level > 0 THEN
704: oe_debug_pub.add('CHECK_CLASS_HAS_OPTIONS EXCEPTION'|| SQLERRM , 1 ) ;
705: END IF;
706: RAISE;
707: END Check_Class_Has_Options;
708:

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

718: RETURN BOOLEAN
719: IS
720: I NUMBER;
721: --
722: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
723: --
724: BEGIN
725: IF l_debug_level > 0 THEN
726: oe_debug_pub.add('ENTERING CHECK_OPTION_EXIST' , 1 ) ;

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

722: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
723: --
724: BEGIN
725: IF l_debug_level > 0 THEN
726: oe_debug_pub.add('ENTERING CHECK_OPTION_EXIST' , 1 ) ;
727: END IF;
728:
729: I := p_options_tbl.FIRST;
730: WHILE I is not null

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

732: IF p_component_code = SUBSTR(p_options_tbl(I).component_code, 1,
733: INSTR(p_options_tbl(I).component_code, '-', -1) - 1)
734: THEN
735: IF l_debug_level > 0 THEN
736: oe_debug_pub.add('CHILD FOUND '|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 1 ) ;
737: END IF;
738: RETURN true;
739: END IF;
740:

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

741: I := p_options_tbl.NEXT(I);
742: END LOOP;
743:
744: IF l_debug_level > 0 THEN
745: oe_debug_pub.add('LEAVING CHECK_OPTION_EXIST WITH NO CHILD' , 1 ) ;
746: END IF;
747: RETURN false;
748: EXCEPTION
749: WHEN OTHERS THEN

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

747: RETURN false;
748: EXCEPTION
749: WHEN OTHERS THEN
750: IF l_debug_level > 0 THEN
751: oe_debug_pub.add('CHECK_OPTION_EXIST EXCEPTION'|| SQLERRM , 1 ) ;
752: END IF;
753: RAISE;
754: END Check_Option_Exist;
755:

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

795: AND bomexp.mutually_exclusive_options = 1 /* Exclusive */
796: ORDER BY bomexp.sort_order;
797:
798: --
799: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
800: --
801: BEGIN
802: IF l_debug_level > 0 THEN
803: oe_debug_pub.add('ENTERING CHECK_MUT_EXCL_OPTIONS' , 1 ) ;

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

799: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
800: --
801: BEGIN
802: IF l_debug_level > 0 THEN
803: oe_debug_pub.add('ENTERING CHECK_MUT_EXCL_OPTIONS' , 1 ) ;
804: END IF;
805: Print_Time('Check_Mut_Excl_Options start time');
806:
807: FOR bom_rec in MUTUALLY_EXCLUSIVE_OPTIONS

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

824: x_return_status := l_return_status;
825:
826: Print_Time('Check_Mut_Excl_Options end time');
827: IF l_debug_level > 0 THEN
828: oe_debug_pub.add('LEAVING CHECK_MUT_EXCL_OPTIONS' , 1 ) ;
829: END IF;
830: EXCEPTION
831: WHEN OTHERS THEN
832: IF l_debug_level > 0 THEN

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

829: END IF;
830: EXCEPTION
831: WHEN OTHERS THEN
832: IF l_debug_level > 0 THEN
833: oe_debug_pub.add('CHECK_MUT_EXCL_OPTIONS EXCEPTION'|| SQLERRM , 1 ) ;
834: END IF;
835: RAISE;
836: END Check_Mut_Excl_Options;
837:

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

866: l_count NUMBER;
867: I NUMBER;
868: l_component VARCHAR2(1000);
869: --
870: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
871: --
872: BEGIN
873: IF l_debug_level > 0 THEN
874: oe_debug_pub.add('ENTERING MUTUALLY_EXCLUSIVE_COMPS_EXIST' , 1 ) ;

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

870: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
871: --
872: BEGIN
873: IF l_debug_level > 0 THEN
874: oe_debug_pub.add('ENTERING MUTUALLY_EXCLUSIVE_COMPS_EXIST' , 1 ) ;
875: END IF;
876:
877: I := p_options_tbl.FIRST;
878:

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

887: p_options_tbl(I).ordered_quantity <> 0 -- if 0, either will be deleted or closed
888: THEN
889: l_count := l_count + 1;
890: IF l_debug_level > 0 THEN
891: oe_debug_pub.add( L_COUNT ||' OPTION PRESENT'|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 2 ) ;
892: END IF;
893: END IF;
894:
895: I := p_options_tbl.NEXT(I);

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

898: IF l_count >= 2 THEN
899: RETURN true;
900: ELSE
901: IF l_debug_level > 0 THEN
902: oe_debug_pub.add('NO MUTAUL EXCLUSION IN CLASS '|| P_COMPONENT_CODE , 1 ) ;
903: END IF;
904: RETURN false;
905: END IF;
906:

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

904: RETURN false;
905: END IF;
906:
907: IF l_debug_level > 0 THEN
908: oe_debug_pub.add('LEAVING MUTUALLY_EXCLUSIVE_COMPS_EXIST' , 1 ) ;
909: END IF;
910: EXCEPTION
911: WHEN OTHERS THEN
912: IF l_debug_level > 0 THEN

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

909: END IF;
910: EXCEPTION
911: WHEN OTHERS THEN
912: IF l_debug_level > 0 THEN
913: oe_debug_pub.add('MUTUALLY_EXCLUSIVE_COMPS_EXIST EXCEPTION'|| SQLERRM , 1 ) ;
914: END IF;
915: RAISE;
916: END Mutually_Exclusive_Comps_exist;
917:

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

982: )
983: ORDER BY BOMEXP.SORT_ORDER;
984: */
985: --
986: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
987: --
988: BEGIN
989: IF l_debug_level > 0 THEN
990: oe_debug_pub.add('ENTERING CHECK_MANDATORY_CLASSES' , 1 ) ;

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

986: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
987: --
988: BEGIN
989: IF l_debug_level > 0 THEN
990: oe_debug_pub.add('ENTERING CHECK_MANDATORY_CLASSES' , 1 ) ;
991: END IF;
992: Print_Time('Check_Mandatory_Classes start time');
993:
994: for bom_rec in MANDATORY_COMPONENTS

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

1011: x_return_status := l_return_status;
1012:
1013: Print_Time('Check_Mandatory_Classes end time');
1014: IF l_debug_level > 0 THEN
1015: oe_debug_pub.add('LEAVING CHECK_MANDATORY_CLASSES '|| L_RETURN_STATUS , 1 ) ;
1016: END IF;
1017: EXCEPTION
1018: WHEN OTHERS THEN
1019: IF l_debug_level > 0 THEN

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

1016: END IF;
1017: EXCEPTION
1018: WHEN OTHERS THEN
1019: IF l_debug_level > 0 THEN
1020: oe_debug_pub.add('CHECK_MANDATORY_CLASSES EXCEPTION'|| SQLERRM , 1 ) ;
1021: END IF;
1022: RAISE;
1023: END Check_Mandatory_Classes;
1024:

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

1055: J NUMBER;
1056: l_parent BOOLEAN;
1057: l_parent_component VARCHAR2(1000);
1058: --
1059: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1060: --
1061: BEGIN
1062:
1063: IF l_debug_level > 0 THEN

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

1060: --
1061: BEGIN
1062:
1063: IF l_debug_level > 0 THEN
1064: oe_debug_pub.add('ENTERING MANDATORY_COMPS_MISSING' , 1 ) ;
1065: END IF;
1066: IF l_debug_level > 0 THEN
1067: oe_debug_pub.add('COMPONENT IN ' || P_COMPONENT_CODE , 2 ) ;
1068: END IF;

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

1063: IF l_debug_level > 0 THEN
1064: oe_debug_pub.add('ENTERING MANDATORY_COMPS_MISSING' , 1 ) ;
1065: END IF;
1066: IF l_debug_level > 0 THEN
1067: oe_debug_pub.add('COMPONENT IN ' || P_COMPONENT_CODE , 2 ) ;
1068: END IF;
1069:
1070: -- Check for mandatory component parent existance in the table.
1071: -- Look for options only if the parent of the passed component is

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

1085: --Make sure that the option class itself is present
1086: --The parent may be present due to selection of some other child
1087: --as well
1088: IF l_debug_level > 0 THEN
1089: oe_debug_pub.add('ORDQTY:'||p_options_tbl(J).ordered_quantity);
1090: END IF;
1091:
1092: --IF p_options_tbl(J).component_code = p_component_code AND
1093: IF p_options_tbl(J).component_code = l_parent_component AND --fp: 3618150

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

1094: p_options_tbl(J).ordered_quantity <> 0
1095: THEN
1096: l_parent := true;
1097: IF l_debug_level > 0 THEN
1098: oe_debug_pub.add('PARENT FOUND ' || L_PARENT_COMPONENT , 2 ) ;
1099: END IF;
1100: END IF;
1101:
1102: J := p_options_tbl.NEXT(J);

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

1117: IF l_component = p_component_code AND
1118: p_options_tbl(I).ordered_quantity <> 0
1119: THEN
1120: IF l_debug_level > 0 THEN
1121: oe_debug_pub.add('MANDATORY OPTION PRESENT'|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 2 ) ;
1122: END IF;
1123: l_found := true;
1124: END IF;
1125:

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

1129: IF l_found THEN
1130: RETURN false;
1131: ELSE
1132: IF l_debug_level > 0 THEN
1133: oe_debug_pub.add('MANDATORY COMP MISSING IN CLASS '|| L_COMPONENT , 1 ) ;
1134: END IF;
1135: RETURN true;
1136: END IF;
1137:

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

1141:
1142: END IF;
1143:
1144: IF l_debug_level > 0 THEN
1145: oe_debug_pub.add('LEAVING MANDATORY_COMPS_MISSING' , 1 ) ;
1146: END IF;
1147: EXCEPTION
1148: WHEN OTHERS THEN
1149: IF l_debug_level > 0 THEN

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

1146: END IF;
1147: EXCEPTION
1148: WHEN OTHERS THEN
1149: IF l_debug_level > 0 THEN
1150: oe_debug_pub.add('MANDATORY_COMPS_MISSING EXCEPTION'|| SQLERRM , 1 ) ;
1151: END IF;
1152: RAISE;
1153: END Mandatory_Comps_Missing;
1154:

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

1161: PROCEDURE Print_Time(p_msg IN VARCHAR2)
1162: IS
1163: l_time VARCHAR2(100);
1164: --
1165: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1166: --
1167: BEGIN
1168: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
1169: 'DD-MON-YY HH24:MI:SS');

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

1167: BEGIN
1168: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
1169: 'DD-MON-YY HH24:MI:SS');
1170: IF l_debug_level > 0 THEN
1171: oe_debug_pub.add( P_MSG || ': '|| L_TIME , 1 ) ;
1172: END IF;
1173: END Print_Time;
1174:
1175:

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

1182: (p_valid_config IN VARCHAR2 := NULL
1183: ,p_complete_config IN VARCHAR2 := NULL)
1184: IS
1185: --
1186: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1187: --
1188: BEGIN
1189: IF nvl(p_valid_config, 'TRUE') = 'FALSE' THEN
1190: IF l_debug_level > 0 THEN

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

1187: --
1188: BEGIN
1189: IF nvl(p_valid_config, 'TRUE') = 'FALSE' THEN
1190: IF l_debug_level > 0 THEN
1191: oe_debug_pub.add('SETTING VALID_CONFIG TO FALSE' , 1 ) ;
1192: END IF;
1193: G_VALID_CONFIG := 'FALSE';
1194: END IF;
1195:

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

1194: END IF;
1195:
1196: IF nvl(p_complete_config, 'TRUE') = 'FALSE' THEN
1197: IF l_debug_level > 0 THEN
1198: oe_debug_pub.add('SETTING COMPLETE_CONFIG TO FALSE' , 1 ) ;
1199: END IF;
1200: G_VALID_CONFIG := 'FALSE';
1201: END IF;
1202: END Handle_Ret_Status;

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

1223: l_line_number NUMBER;
1224: l_shipment_number NUMBER;
1225: l_option_number NUMBER;
1226: --
1227: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1228: --
1229: BEGIN
1230: IF l_debug_level > 0 THEN
1231: oe_debug_pub.add('ENTERING GET_PARENT_QUANTITY' , 1 ) ;

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

1227: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1228: --
1229: BEGIN
1230: IF l_debug_level > 0 THEN
1231: oe_debug_pub.add('ENTERING GET_PARENT_QUANTITY' , 1 ) ;
1232: END IF;
1233: IF l_debug_level > 0 THEN
1234: oe_debug_pub.add('FIND PARENT QTY FOR: '|| P_COMPONENT_CODE , 1 ) ;
1235: END IF;

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

1230: IF l_debug_level > 0 THEN
1231: oe_debug_pub.add('ENTERING GET_PARENT_QUANTITY' , 1 ) ;
1232: END IF;
1233: IF l_debug_level > 0 THEN
1234: oe_debug_pub.add('FIND PARENT QTY FOR: '|| P_COMPONENT_CODE , 1 ) ;
1235: END IF;
1236:
1237: I := p_options_tbl.FIRST;
1238: WHILE I is not null

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

1240: IF p_options_tbl(I).component_code = SUBSTR(p_component_code, 1,
1241: INSTR(p_component_code, '-', -1) - 1)
1242: THEN
1243: IF l_debug_level > 0 THEN
1244: oe_debug_pub.add('PARENT FOUND '|| P_OPTIONS_TBL ( I ) .COMPONENT_CODE , 1 ) ;
1245: END IF;
1246: RETURN p_options_tbl(I).ordered_quantity;
1247: END IF;
1248:

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

1249: I := p_options_tbl.NEXT(I);
1250: END LOOP;
1251:
1252: IF l_debug_level > 0 THEN
1253: oe_debug_pub.add('NO PARENT FOR ' || P_COMPONENT_CODE , 1 ) ;
1254: END IF;
1255: RAISE FND_API.G_EXC_ERROR;
1256:
1257: EXCEPTION

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

1256:
1257: EXCEPTION
1258: WHEN FND_API.G_EXC_ERROR THEN
1259: IF l_debug_level > 0 THEN
1260: oe_debug_pub.add('PARENT NOT FOUND , MAY BE CANCELED' , 1 ) ;
1261: END IF;
1262:
1263: BEGIN
1264:

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

1272: AND component_code = SUBSTR(p_component_code, 1,
1273: INSTR(p_component_code, '-', -1) - 1));
1274:
1275: IF l_debug_level > 0 THEN
1276: oe_debug_pub.add('OPEN_FLAG , QTY: '|| L_OPEN_FLAG || L_ORDERED_QUANTITY , 3 ) ;
1277: END IF;
1278:
1279: IF l_open_flag = 'N' THEN
1280: IF l_debug_level > 0 THEN

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

1277: END IF;
1278:
1279: IF l_open_flag = 'N' THEN
1280: IF l_debug_level > 0 THEN
1281: oe_debug_pub.add('PARENT WAS CANCELLED' , 3 ) ;
1282: END IF;
1283: RETURN l_ordered_quantity;
1284: END IF;
1285: EXCEPTION

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

1284: END IF;
1285: EXCEPTION
1286: WHEN NO_DATA_FOUND THEN
1287: IF l_debug_level > 0 THEN
1288: oe_debug_pub.add('NO PARENT' , 3 ) ;
1289: END IF;
1290:
1291: SELECT ordered_item, line_number, shipment_number, option_number
1292: INTO l_ordered_item, l_line_number, l_shipment_number, l_option_number

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

1303: END;
1304:
1305: WHEN OTHERS THEN
1306: IF l_debug_level > 0 THEN
1307: oe_debug_pub.add('GET_PARENT_QUANTITY EXCEPTION'|| SQLERRM , 1 ) ;
1308: END IF;
1309: RAISE;
1310: END Get_Parent_Quantity;
1311: