7: /*-----------------------------------------------------------------
8: forward declarations
9: ------------------------------------------------------------------*/
10: PROCEDURE Query_Config
11: ( p_link_to_line_id IN NUMBER := FND_API.G_MISS_NUM
12: , p_top_model_line_id IN NUMBER := FND_API.G_MISS_NUM
13: , p_ato_line_id IN NUMBER := FND_API.G_MISS_NUM
14: , x_line_tbl OUT NOCOPY OE_ORDER_PUB.line_tbl_type);
15:
8: forward declarations
9: ------------------------------------------------------------------*/
10: PROCEDURE Query_Config
11: ( p_link_to_line_id IN NUMBER := FND_API.G_MISS_NUM
12: , p_top_model_line_id IN NUMBER := FND_API.G_MISS_NUM
13: , p_ato_line_id IN NUMBER := FND_API.G_MISS_NUM
14: , x_line_tbl OUT NOCOPY OE_ORDER_PUB.line_tbl_type);
15:
16: Procedure get_transaction_id(p_caller IN VARCHAR2);
9: ------------------------------------------------------------------*/
10: PROCEDURE Query_Config
11: ( p_link_to_line_id IN NUMBER := FND_API.G_MISS_NUM
12: , p_top_model_line_id IN NUMBER := FND_API.G_MISS_NUM
13: , p_ato_line_id IN NUMBER := FND_API.G_MISS_NUM
14: , x_line_tbl OUT NOCOPY OE_ORDER_PUB.line_tbl_type);
15:
16: Procedure get_transaction_id(p_caller IN VARCHAR2);
17:
122: l_line_rec OE_ORDER_PUB.Line_Rec_Type
123: := OE_ORDER_PUB.G_MISS_LINE_REC;
124: l_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
125: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
126: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
127: l_line_count NUMBER;
128: l_queried_quantity NUMBER;
129:
130: CURSOR children is
169: OE_Line_Util.Lock_Row( p_line_id => p_parent_line_id
170: ,p_x_line_rec => l_parent_line_rec
171: ,x_return_status => l_return_status);
172:
173: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
175: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
170: ,p_x_line_rec => l_parent_line_rec
171: ,x_return_status => l_return_status);
172:
173: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
175: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178:
171: ,x_return_status => l_return_status);
172:
173: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
175: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178:
179: IF l_item_type_code = OE_GLOBALS.G_ITEM_MODEL THEN
172:
173: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
175: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178:
179: IF l_item_type_code = OE_GLOBALS.G_ITEM_MODEL THEN
180: l_model_actual_ship_date := l_parent_line_rec.actual_shipment_date;
185: -- Query to get header_id and order_qty is removed
186: l_header_id := l_parent_line_rec.header_id;
187: l_queried_quantity := l_parent_line_rec.ordered_quantity;
188:
189: IF l_new_quantity <> FND_API.G_MISS_NUM THEN
190: IF l_debug_level > 0 THEN
191: OE_DEBUG_PUB.Add('New Quantity is not missing');
192: END IF;
193: l_new_quantity := l_queried_quantity;
308:
309:
310: -- 2. project and task.
311:
312: IF nvl(l_project_id, -1) <> FND_API.G_MISS_NUM THEN
313: l_line_tbl(I).project_id := l_project_id;
314: IF l_debug_level > 0 THEN
315: oe_debug_pub.add('PROJECT_ID CASCADED, L_LINE_TBL (I).LINE_ID: '
316: || L_PROJECT_ID , 2 );
316: || L_PROJECT_ID , 2 );
317: END IF;
318: END IF;
319:
320: IF nvl(l_task_id, -1) <> FND_API.G_MISS_NUM THEN
321: l_line_tbl(I).task_id := l_task_id;
322: IF l_debug_level > 0 THEN
323: oe_debug_pub.add('TASK_ID CASCADED FOR,L_LINE_TBL (I).LINE_ID: '
324: || L_TASK_ID , 2 );
327:
328:
329: -- 3. ship_tolerance_above and below
330:
331: IF nvl(l_ship_tolerance_above, -1) <> FND_API.G_MISS_NUM THEN
332: l_line_tbl(I).ship_tolerance_above := l_ship_tolerance_above;
333: END IF;
334:
335: IF nvl(l_ship_tolerance_below, -1) <> FND_API.G_MISS_NUM THEN
331: IF nvl(l_ship_tolerance_above, -1) <> FND_API.G_MISS_NUM THEN
332: l_line_tbl(I).ship_tolerance_above := l_ship_tolerance_above;
333: END IF;
334:
335: IF nvl(l_ship_tolerance_below, -1) <> FND_API.G_MISS_NUM THEN
336: l_line_tbl(I).ship_tolerance_below := l_ship_tolerance_below;
337: END IF;
338:
339:
338:
339:
340: -- 4. shipped_quantity and actual_shipment_date
341:
342: IF nvl(l_ship_quantity, -1) <> FND_API.G_MISS_NUM THEN
343: IF l_line_tbl(I).shipped_quantity is null THEN
344: l_line_tbl(I).shipped_quantity :=
345: (l_line_tbl(I).ordered_quantity / l_model_qty) * l_ship_quantity;
346: l_line_tbl(I).actual_shipment_date := l_model_actual_ship_date;
356:
357:
358: -- 5. ship_to_org_id and request_date
359:
360: IF nvl(l_ship_to_org_id, -1)<> FND_API.G_MISS_NUM THEN
361: l_line_tbl(I).ship_to_org_id := l_ship_to_org_id;
362: IF l_debug_level > 0 THEN
363: oe_debug_pub.add('SHIP TO CASCADED , LINE_ID: '
364: || L_SHIP_TO_ORG_ID , 2 );
364: || L_SHIP_TO_ORG_ID , 2 );
365: END IF;
366: END IF;
367:
368: IF nvl(l_request_date, sysdate) <> FND_API.G_MISS_DATE THEN
369: l_line_tbl(I).request_date := l_request_date;
370: IF l_debug_level > 0 THEN
371: oe_debug_pub.add('REQUEST_DATE CASCADED , REQUEST_DATE: '
372: || L_REQUEST_DATE , 2 );
374: END IF;
375:
376: -- 6. source_type_code for ato configurations.
377:
378: IF nvl(p_request_rec.param15, 'X')<> FND_API.G_MISS_CHAR THEN
379: l_line_tbl(I).source_type_code := p_request_rec.param15;
380: IF l_debug_level > 0 THEN
381: oe_debug_pub.add('SOURCE_TYPE CASCADED: '
382: || P_REQUEST_REC.PARAM15 , 2 );
386:
387: /* Added the following logic to fix the bug 2217336 */
388: -- 7. freight_terms_code for ato configurations.
389:
390: IF nvl(l_freight_terms_code, 'X')<> FND_API.G_MISS_CHAR THEN
391: l_line_tbl(I).freight_terms_code := l_freight_terms_code ;
392: IF l_debug_level > 0 THEN
393: oe_debug_pub.add('FREIGHT_TERMS_CODE CASCADED: '
394: || L_FREIGHT_TERMS_CODE , 2 );
396: END IF;
397:
398: -- 8. Promise date
399:
400: IF nvl(l_promise_date, sysdate) <> FND_API.G_MISS_DATE THEN
401: l_line_tbl(I).promise_date := l_promise_date;
402: IF l_debug_level > 0 THEN
403: oe_debug_pub.add('PROMISE DATE OCASCADED , PROMISE_DATE: '
404: || L_PROMISE_DATE , 2 );
460:
461: -- Call OE_Order_PVT.Process_order
462:
463: OE_ORDER_PVT.Lines
464: (p_validation_level => FND_API.G_VALID_LEVEL_NONE
465: ,p_control_rec => l_control_rec
466: ,p_x_line_tbl => l_line_tbl
467: ,p_x_old_line_tbl => l_old_line_tbl
468: ,x_return_status => l_return_status);
483: -- 4504362
484: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
485: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
486:
487: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
489: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
490: RAISE FND_API.G_EXC_ERROR;
491: END IF;
484: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
485: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
486:
487: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
489: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
490: RAISE FND_API.G_EXC_ERROR;
491: END IF;
492:
485: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
486:
487: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
489: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
490: RAISE FND_API.G_EXC_ERROR;
491: END IF;
492:
493: -- process_order call successful, and this was decrement to 0.
486:
487: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
489: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
490: RAISE FND_API.G_EXC_ERROR;
491: END IF;
492:
493: -- process_order call successful, and this was decrement to 0.
494: IF l_set_zero = 'Y' THEN
504: Unlock_Config(p_line_rec => l_parent_line_rec,
505: x_return_status => l_return_status);
506:
507: oe_debug_pub.add('After calling Unlock_Config for parent line ' || l_return_status , 3 );
508: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
505: x_return_status => l_return_status);
506:
507: oe_debug_pub.add('After calling Unlock_Config for parent line ' || l_return_status , 3 );
508: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513: END IF;
506:
507: oe_debug_pub.add('After calling Unlock_Config for parent line ' || l_return_status , 3 );
508: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513: END IF;
514: -- Instance Unlocking
507: oe_debug_pub.add('After calling Unlock_Config for parent line ' || l_return_status , 3 );
508: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513: END IF;
514: -- Instance Unlocking
515:
544: ,x_return_status => l_return_status
545: ,p_line_tbl => l_line_tbl
546: ,p_old_line_tbl => l_old_line_tbl);
547:
548: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
550: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
551: RAISE FND_API.G_EXC_ERROR;
552: END IF;
545: ,p_line_tbl => l_line_tbl
546: ,p_old_line_tbl => l_old_line_tbl);
547:
548: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
550: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
551: RAISE FND_API.G_EXC_ERROR;
552: END IF;
553: END IF;
546: ,p_old_line_tbl => l_old_line_tbl);
547:
548: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
550: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
551: RAISE FND_API.G_EXC_ERROR;
552: END IF;
553: END IF;
554:
547:
548: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
550: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
551: RAISE FND_API.G_EXC_ERROR;
552: END IF;
553: END IF;
554:
555: x_return_status := l_return_status;
626: := OE_ORDER_PUB.G_MISS_LINE_REC;
627: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
628: l_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
629:
630: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
631:
632: CURSOR configuration_line(p_header_id IN NUMBER,
633: p_top_model_line_id IN NUMBER,
634: p_ato_line_id IN NUMBER,
661: OE_LINE_UTIL.Lock_Row(p_line_id => p_request_rec.param1,
662: p_x_line_rec => l_changed_line_rec,
663: x_return_status => l_return_status);
664:
665: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
668: RAISE FND_API.G_EXC_ERROR;
669: END IF;
662: p_x_line_rec => l_changed_line_rec,
663: x_return_status => l_return_status);
664:
665: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
668: RAISE FND_API.G_EXC_ERROR;
669: END IF;
670:
663: x_return_status => l_return_status);
664:
665: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
668: RAISE FND_API.G_EXC_ERROR;
669: END IF;
670:
671: l_line_id := l_changed_line_rec.line_id;
664:
665: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
668: RAISE FND_API.G_EXC_ERROR;
669: END IF;
670:
671: l_line_id := l_changed_line_rec.line_id;
672: l_header_id := l_changed_line_rec.header_id;
754: || L_LINE_TBL.COUNT , 2 );
755: END IF;
756:
757: OE_ORDER_PVT.Lines
758: (p_validation_level => FND_API.G_VALID_LEVEL_NONE
759: ,p_control_rec => l_control_rec
760: ,p_x_line_tbl => l_line_tbl
761: ,p_x_old_line_tbl => l_old_line_tbl
762: ,x_return_status => l_return_status);
775:
776: -- ReSet recursion mode.
777: --OE_GLOBALS.G_RECURSION_MODE := 'N';
778:
779: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
781: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
782: RAISE FND_API.G_EXC_ERROR;
783: END IF;
776: -- ReSet recursion mode.
777: --OE_GLOBALS.G_RECURSION_MODE := 'N';
778:
779: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
781: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
782: RAISE FND_API.G_EXC_ERROR;
783: END IF;
784:
777: --OE_GLOBALS.G_RECURSION_MODE := 'N';
778:
779: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
781: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
782: RAISE FND_API.G_EXC_ERROR;
783: END IF;
784:
785: -- added for 2653505
778:
779: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
781: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
782: RAISE FND_API.G_EXC_ERROR;
783: END IF;
784:
785: -- added for 2653505
786: IF OE_CODE_CONTROL.get_code_release_level < '110508' THEN
790: ,x_return_status => l_return_status
791: ,p_line_tbl => l_line_tbl
792: ,p_old_line_tbl => l_old_line_tbl);
793:
794: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
796: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
791: ,p_line_tbl => l_line_tbl
792: ,p_old_line_tbl => l_old_line_tbl);
793:
794: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
796: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
799: END IF;
792: ,p_old_line_tbl => l_old_line_tbl);
793:
794: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
796: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
799: END IF;
800:
793:
794: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
796: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
799: END IF;
800:
801: -- Setting G_CASCADING_REQUEST_LOGGED to requery the lines in the form
826: := OE_ORDER_PUB.G_MISS_LINE_REC;
827: l_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
828: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
829:
830: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
831: l_msg_count NUMBER;
832: l_msg_data VARCHAR2(2000);
833:
834: l_line_num VARCHAR2(20);
845: OE_LINE_UTIL.Lock_Row(p_line_id => p_line_id
846: ,p_x_line_rec => l_line_rec
847: ,x_return_status => l_return_status);
848:
849: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
851: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
852: RAISE FND_API.G_EXC_ERROR;
853: END IF;
846: ,p_x_line_rec => l_line_rec
847: ,x_return_status => l_return_status);
848:
849: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
851: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
852: RAISE FND_API.G_EXC_ERROR;
853: END IF;
854:
847: ,x_return_status => l_return_status);
848:
849: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
851: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
852: RAISE FND_API.G_EXC_ERROR;
853: END IF;
854:
855: IF l_debug_level > 0 THEN
848:
849: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
851: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
852: RAISE FND_API.G_EXC_ERROR;
853: END IF;
854:
855: IF l_debug_level > 0 THEN
856: oe_debug_pub.add('ENTERING OE_CONGIG_UTIL.DELINK_CONFIG' , 1);
893: , p_mode => 'GET_STATUS'
894: , x_po_status_rec => l_po_status_rec
895: , x_return_status => l_return_status);
896:
897: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
898: l_autorization_status := l_po_status_rec.authorization_status(1);
899:
900: IF l_debug_level > 0 THEN
901: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
900: IF l_debug_level > 0 THEN
901: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
902: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
903: END IF;
904: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
907: RAISE FND_API.G_EXC_ERROR;
908: END IF;
901: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
902: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
903: END IF;
904: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
907: RAISE FND_API.G_EXC_ERROR;
908: END IF;
909:
902: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
903: END IF;
904: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
907: RAISE FND_API.G_EXC_ERROR;
908: END IF;
909:
910: END IF;
903: END IF;
904: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
907: RAISE FND_API.G_EXC_ERROR;
908: END IF;
909:
910: END IF;
911:
956: oe_debug_pub.add('L_RETURN_STATUS IS: ' || L_RETURN_STATUS , 2 );
957: END IF;
958:
959: OE_ORDER_PVT.Lines
960: (p_validation_level => FND_API.G_VALID_LEVEL_NONE
961: ,p_control_rec => l_control_rec
962: ,p_x_line_tbl => l_line_tbl
963: ,p_x_old_line_tbl => l_old_line_tbl
964: ,x_return_status => l_return_status);
964: ,x_return_status => l_return_status);
965:
966:
967: -- count and get
968: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
969: IF l_debug_level > 0 THEN
970: oe_debug_pub.add('STATUS:' || L_RETURN_STATUS , 3 );
971: END IF;
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
968: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
969: IF l_debug_level > 0 THEN
970: oe_debug_pub.add('STATUS:' || L_RETURN_STATUS , 3 );
971: END IF;
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
974: IF l_debug_level > 0 THEN
975: oe_debug_pub.add('STATUS:' || L_RETURN_STATUS , 3 );
976: END IF;
969: IF l_debug_level > 0 THEN
970: oe_debug_pub.add('STATUS:' || L_RETURN_STATUS , 3 );
971: END IF;
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
974: IF l_debug_level > 0 THEN
975: oe_debug_pub.add('STATUS:' || L_RETURN_STATUS , 3 );
976: END IF;
977: RAISE FND_API.G_EXC_ERROR;
973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
974: IF l_debug_level > 0 THEN
975: oe_debug_pub.add('STATUS:' || L_RETURN_STATUS , 3 );
976: END IF;
977: RAISE FND_API.G_EXC_ERROR;
978: END IF;
979:
980: -- Call Notify OC, required ****************************
981:
985: ,x_return_status => l_return_status
986: ,p_line_tbl => l_line_tbl
987: ,p_old_line_tbl => l_old_line_tbl);
988:
989: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
991: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
992: RAISE FND_API.G_EXC_ERROR;
993: END IF;
986: ,p_line_tbl => l_line_tbl
987: ,p_old_line_tbl => l_old_line_tbl);
988:
989: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
991: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
992: RAISE FND_API.G_EXC_ERROR;
993: END IF;
994:
987: ,p_old_line_tbl => l_old_line_tbl);
988:
989: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
991: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
992: RAISE FND_API.G_EXC_ERROR;
993: END IF;
994:
995: oe_msg_pub.count_and_get
988:
989: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
991: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
992: RAISE FND_API.G_EXC_ERROR;
993: END IF;
994:
995: oe_msg_pub.count_and_get
996: ( p_count => l_msg_count
996: ( p_count => l_msg_count
997: ,p_data => l_msg_data );
998:
999: -- if everything is OK.
1000: x_return_status := FND_API.G_RET_STS_SUCCESS;
1001:
1002: IF l_debug_level > 0 THEN
1003: oe_debug_pub.add('IN OE_CONFIG_UTI.DELINK , X_RETURN_STATUS'
1004: ||X_RETURN_STATUS , 2 );
1005: oe_debug_pub.add('EXITING OE_CONGIG_UTIL.DELINK_CONFIG' , 1);
1006: END IF;
1007:
1008: EXCEPTION
1009: WHEN FND_API.G_EXC_ERROR THEN
1010:
1011: x_return_status := FND_API.G_RET_STS_ERROR;
1012: -- Get message count and data
1013: oe_msg_pub.count_and_get
1007:
1008: EXCEPTION
1009: WHEN FND_API.G_EXC_ERROR THEN
1010:
1011: x_return_status := FND_API.G_RET_STS_ERROR;
1012: -- Get message count and data
1013: oe_msg_pub.count_and_get
1014: ( p_count => l_msg_count
1015: , p_data => l_msg_data
1014: ( p_count => l_msg_count
1015: , p_data => l_msg_data
1016: );
1017:
1018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1019:
1020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1021: -- Get message count and data
1022: oe_msg_pub.count_and_get
1016: );
1017:
1018: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1019:
1020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1021: -- Get message count and data
1022: oe_msg_pub.count_and_get
1023: ( p_count => l_msg_count
1024: , p_data => l_msg_data
1041: oe_msg_pub.count_and_get
1042: ( p_count => l_msg_count
1043: , p_data => l_msg_data
1044: );
1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046:
1047: END Delink_Config;
1048:
1049:
1056: FUNCTION Validate_Cfgs_In_Order(p_header_id IN NUMBER)
1057: RETURN VARCHAR2
1058: IS
1059: l_line_id number := null;
1060: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1061: l_valid_config VARCHAR2(10);
1062: l_complete_config VARCHAR2(10);
1063:
1064: -- Instance locking changes
1113: x_return_status => l_return_status);
1114:
1115: -- if the valid or complete flag is false, we error out.
1116:
1117: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1118: --get_transaction_id(p_caller => 'after call to validate_cfgs');
1119: RETURN l_return_status ;
1120: ELSE
1121: IF LOWER(l_valid_config) = 'false' OR
1122: LOWER(l_complete_config) = 'false' THEN
1123: IF l_debug_level > 0 THEN
1124: oe_debug_pub.add('RETURN_STATUS SUCCESS,BUT INVALID/INCOMPLETE',2);
1125: END IF;
1126: RETURN FND_API.G_RET_STS_ERROR;
1127: END IF;
1128: END IF;
1129:
1130: -- Instance locking
1174: p_source_line_ref1 => Null,
1175: p_source_line_ref2 => Null,
1176: p_source_line_ref3 => Null,
1177: p_commit => 'N',
1178: p_init_msg_list => FND_API.G_TRUE,
1179: p_validation_level => Null,
1180: x_locking_key => l_locking_key,
1181: x_return_status => l_return_status,
1182: x_msg_count => l_msg_count,
1188: IF l_msg_count > 0 THEN
1189: OE_MSG_PUB.Transfer_Msg_stack;
1190:
1191: END IF;
1192: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1193: RETURN l_return_status;
1194: END IF;
1195:
1196: END IF; -- Container
1220: FUNCTION Freeze_Inc_Items_for_Order(p_header_id IN NUMBER)
1221: RETURN VARCHAR2
1222: IS
1223: l_line_id NUMBER;
1224: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1225:
1226: CURSOR order_lines is
1227: SELECT line_id
1228: FROM oe_order_lines
1251: l_return_status := Oe_Config_Util.Process_included_items
1252: ( p_line_id => l_line_id
1253: ,p_freeze => TRUE);
1254:
1255: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1256: RETURN l_return_status ;
1257: END IF;
1258: END LOOP;
1259:
1398: l_booked_flag VARCHAR2(1) := 'N';
1399: l_model_qty NUMBER;
1400: l_msg_count NUMBER;
1401: l_msg_data VARCHAR2(2000);
1402: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1403: l_result_out VARCHAR2(30);
1404: l_options_tbl
1405: Oe_Process_Options_Pvt.Selected_Options_Tbl_Type;
1406: -- input xml message
1416: l_return_status_del VARCHAR2(1);
1417:
1418: -- cz_verify output
1419: l_any_insert NUMBER := 0;
1420: l_exists_flag VARCHAR2(1) := FND_API.G_TRUE;
1421: l_complete_flag VARCHAR2(1) := FND_API.G_TRUE;
1422: l_valid_flag VARCHAR2(1) := FND_API.G_TRUE;
1423: --
1424: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1417:
1418: -- cz_verify output
1419: l_any_insert NUMBER := 0;
1420: l_exists_flag VARCHAR2(1) := FND_API.G_TRUE;
1421: l_complete_flag VARCHAR2(1) := FND_API.G_TRUE;
1422: l_valid_flag VARCHAR2(1) := FND_API.G_TRUE;
1423: --
1424: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1425: --
1418: -- cz_verify output
1419: l_any_insert NUMBER := 0;
1420: l_exists_flag VARCHAR2(1) := FND_API.G_TRUE;
1421: l_complete_flag VARCHAR2(1) := FND_API.G_TRUE;
1422: l_valid_flag VARCHAR2(1) := FND_API.G_TRUE;
1423: --
1424: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1425: --
1426: BEGIN
1439: FROM OE_ORDER_LINES
1440: WHERE line_id = p_model_line_id;
1441: EXCEPTION
1442: WHEN OTHERS THEN
1443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1444: END;
1445:
1446: l_booked_flag := nvl(l_booked_flag, 'N');
1447: l_upgraded_flag := nvl(l_upgraded_flag, 'N');
1466: x_valid_config => l_valid_config,
1467: x_complete_config => l_complete_config,
1468: x_return_status => l_return_status);
1469:
1470: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1471: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_UPGARDE_ERROR');
1472: OE_Msg_Pub.Add;
1473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1474: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1469:
1470: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1471: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_UPGARDE_ERROR');
1472: OE_Msg_Pub.Add;
1473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1474: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1475: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_UPGARDE_ERROR');
1476: OE_Msg_Pub.Add;
1477: RAISE FND_API.G_EXC_ERROR;
1470: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1471: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_UPGARDE_ERROR');
1472: OE_Msg_Pub.Add;
1473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1474: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1475: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_UPGARDE_ERROR');
1476: OE_Msg_Pub.Add;
1477: RAISE FND_API.G_EXC_ERROR;
1478: END IF;
1473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1474: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1475: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_UPGARDE_ERROR');
1476: OE_Msg_Pub.Add;
1477: RAISE FND_API.G_EXC_ERROR;
1478: END IF;
1479:
1480: IF l_debug_level > 0 THEN
1481: oe_debug_pub.add('CONFIGURAION GOT UPGRADED' , 2 );
1572: oe_debug_pub.add (' Message Data :'|| l_msg_data,2);
1573: oe_debug_pub.add( 'AFTER CZ_CONFIG_API_PUB.verify_configuration', 0.5) ; -- Added debug for bug 13435459
1574: END IF;
1575:
1576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1579: RAISE FND_API.G_EXC_ERROR;
1580: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1573: oe_debug_pub.add( 'AFTER CZ_CONFIG_API_PUB.verify_configuration', 0.5) ; -- Added debug for bug 13435459
1574: END IF;
1575:
1576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1579: RAISE FND_API.G_EXC_ERROR;
1580: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1581:
1574: END IF;
1575:
1576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1579: RAISE FND_API.G_EXC_ERROR;
1580: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1581:
1582: IF l_exists_flag = FND_API.G_FALSE THEN
1575:
1576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1579: RAISE FND_API.G_EXC_ERROR;
1580: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1581:
1582: IF l_exists_flag = FND_API.G_FALSE THEN
1583: IF l_debug_level > 0 THEN
1576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1579: RAISE FND_API.G_EXC_ERROR;
1580: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1581:
1582: IF l_exists_flag = FND_API.G_FALSE THEN
1583: IF l_debug_level > 0 THEN
1584: oe_debug_pub.add('Configuration Does not Exist '|| l_msg_data,2);
1578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1579: RAISE FND_API.G_EXC_ERROR;
1580: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1581:
1582: IF l_exists_flag = FND_API.G_FALSE THEN
1583: IF l_debug_level > 0 THEN
1584: oe_debug_pub.add('Configuration Does not Exist '|| l_msg_data,2);
1585: END IF;
1586: RAISE FND_API.G_EXC_ERROR;
1582: IF l_exists_flag = FND_API.G_FALSE THEN
1583: IF l_debug_level > 0 THEN
1584: oe_debug_pub.add('Configuration Does not Exist '|| l_msg_data,2);
1585: END IF;
1586: RAISE FND_API.G_EXC_ERROR;
1587:
1588: ELSE
1589: IF l_debug_level > 0 THEN
1590: oe_debug_pub.add (' Configuration Exists ',2);
1589: IF l_debug_level > 0 THEN
1590: oe_debug_pub.add (' Configuration Exists ',2);
1591: END IF;
1592:
1593: IF l_valid_flag = FND_API.G_FALSE THEN
1594: l_valid_config := 'FALSE';
1595: ELSE
1596: l_valid_config := 'TRUE';
1597: END IF;
1595: ELSE
1596: l_valid_config := 'TRUE';
1597: END IF;
1598:
1599: IF l_complete_flag = FND_API.G_FALSE THEN
1600: l_complete_config := 'FALSE';
1601: ELSE
1602: IF l_debug_level > 0 THEN
1603: oe_debug_pub.add('Configuration Exists, valid and Complete ',2);
1652: ('AFTER CALLING SEND_INPUT_XML: '||L_RETURN_STATUS , 2 );
1653: END IF;
1654: --get_transaction_id(p_caller => 'after send_xml');
1655:
1656: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1658:
1659: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1660: RAISE FND_API.G_EXC_ERROR;
1653: END IF;
1654: --get_transaction_id(p_caller => 'after send_xml');
1655:
1656: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1658:
1659: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1660: RAISE FND_API.G_EXC_ERROR;
1661:
1655:
1656: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1658:
1659: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1660: RAISE FND_API.G_EXC_ERROR;
1661:
1662: END IF;
1663:
1656: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1658:
1659: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1660: RAISE FND_API.G_EXC_ERROR;
1661:
1662: END IF;
1663:
1664:
1685:
1686: x_valid_config := l_valid_config;
1687: x_complete_config := l_complete_config;
1688:
1689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1691: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1692: RAISE FND_API.G_EXC_ERROR;
1693: END IF;
1686: x_valid_config := l_valid_config;
1687: x_complete_config := l_complete_config;
1688:
1689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1691: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1692: RAISE FND_API.G_EXC_ERROR;
1693: END IF;
1694:
1687: x_complete_config := l_complete_config;
1688:
1689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1691: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1692: RAISE FND_API.G_EXC_ERROR;
1693: END IF;
1694:
1695: END IF; -- if skip batch val
1688:
1689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1691: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1692: RAISE FND_API.G_EXC_ERROR;
1693: END IF;
1694:
1695: END IF; -- if skip batch val
1696:
1730: x_msg_count => l_msg_count,
1731: x_msg_data => l_msg_data,
1732: x_return_status => l_return_status);
1733:
1734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1735: THEN
1736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1737: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1738: THEN
1732: x_return_status => l_return_status);
1733:
1734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1735: THEN
1736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1737: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1738: THEN
1739: RAISE FND_API.G_EXC_ERROR;
1740: END IF;
1733:
1734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1735: THEN
1736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1737: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1738: THEN
1739: RAISE FND_API.G_EXC_ERROR;
1740: END IF;
1741: END IF;
1735: THEN
1736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1737: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1738: THEN
1739: RAISE FND_API.G_EXC_ERROR;
1740: END IF;
1741: END IF;
1742:
1743:
1762: oe_debug_pub.add('AFTER CALL TO PROCESS_CONFIG: '
1763: ||L_RETURN_STATUS , 2 );
1764: END IF;
1765:
1766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1767: IF l_debug_level > 0 THEN
1768: oe_debug_pub.add('PROCESS CONFIG UNEXPECTED ERROR' , 2 );
1769: END IF;
1770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1767: IF l_debug_level > 0 THEN
1768: oe_debug_pub.add('PROCESS CONFIG UNEXPECTED ERROR' , 2 );
1769: END IF;
1770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1771:
1772: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1773: IF l_debug_level > 0 THEN
1774: oe_debug_pub.add('PROCESS CONFIG EXEC ERROR' , 2 );
1768: oe_debug_pub.add('PROCESS CONFIG UNEXPECTED ERROR' , 2 );
1769: END IF;
1770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1771:
1772: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1773: IF l_debug_level > 0 THEN
1774: oe_debug_pub.add('PROCESS CONFIG EXEC ERROR' , 2 );
1775: END IF;
1776: RAISE FND_API.G_EXC_ERROR;
1772: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1773: IF l_debug_level > 0 THEN
1774: oe_debug_pub.add('PROCESS CONFIG EXEC ERROR' , 2 );
1775: END IF;
1776: RAISE FND_API.G_EXC_ERROR;
1777:
1778: END IF;
1779:
1780: -- If you are here, things went off OK ! So return success
1820: l_change_flag VARCHAR2(1);
1821: l_item_type_code VARCHAR2(30);
1822: l_model_component VARCHAR2(1000);
1823: l_req_rec OE_Order_Pub.Request_Rec_Type;
1824: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1825: l_msg_count NUMBER;
1826: l_msg_data VARCHAR2(2000);
1827:
1828: --
1845: IF l_debug_level > 0 THEN
1846: OE_DEBUG_PUB.Add('Line is top container, hence not allowed',3);
1847: END IF;
1848:
1849: x_return_status := FND_API.G_RET_STS_ERROR;
1850: FND_MESSAGE.SET_NAME('ONT','ONT_TSO_NOT_IN_OPTIONS_WINDOW');
1851: OE_MSG_PUB.Add;
1852: RETURN;
1853: END IF;
1854:
1855: END IF;
1856:
1857:
1858: l_return_status := FND_API.G_RET_STS_SUCCESS;
1859:
1860: OE_Process_Options_Pvt.Get_Options_From_DB
1861: ( p_top_model_line_id => p_model_line_id
1862: ,p_get_model_line => TRUE
1982: l_ratio NUMBER;
1983: l_req_rec OE_Order_Pub.Request_Rec_Type;
1984: l_deleted_options_tbl OE_Order_PUB.request_tbl_type
1985: := p_deleted_options_tbl;
1986: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1987: l_qty NUMBER := 1;
1988: --
1989: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1990: --
2031: END IF;
2032: p_x_options_tbl(l_index).operation := OE_GLOBALS.G_OPR_DELETE;
2033:
2034: EXCEPTION
2035: WHEN FND_API.G_EXC_ERROR THEN
2036: IF l_debug_level > 0 THEN
2037: oe_debug_pub.add('COMPONENT NOT PRESENT' , 1);
2038: END IF;
2039: RAISE;
2123: IF p_model_component is NULL THEN
2124: IF l_debug_level > 0 THEN
2125: oe_debug_pub.add('MODEL COMPONENT IS NULL' , 1);
2126: END IF;
2127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2128: END IF;
2129:
2130: IF l_debug_level > 0 THEN
2131: oe_debug_pub.add('OPTION/CLASS/KIT IS DELETED' , 1);
2274: oe_debug_pub.add('OPERATION IS INSERT IN PROCEDURE DELETE_CHILDREN');
2275: oe_debug_pub.add('parent class : ' || p_parent_item);
2276: oe_debug_pub.add('child item : ' || p_x_options_tbl(I).ordered_item);
2277: END IF;
2278: RAISE FND_API.G_EXC_ERROR;
2279: END IF;
2280: END IF;
2281: I := p_x_options_tbl.NEXT(I);
2282: END LOOP;
2317: oe_debug_pub.add('ENTERING DELETE_PARENT' , 1);
2318: END IF;
2319:
2320: IF p_model_component is NULL THEN
2321: RAISE FND_API.G_EXC_ERROR;
2322: END IF;
2323:
2324:
2325: IF p_component_code = p_model_component THEN
2426: oe_debug_pub.add('ENTERING PROPOGATE_CHANGE_TO_PARENT' , 1);
2427: END IF;
2428:
2429: IF p_model_component is NULL THEN
2430: RAISE FND_API.G_EXC_ERROR;
2431: END IF;
2432:
2433:
2434: IF p_component_code = p_model_component THEN
2655: l_use_configurator BOOLEAN;
2656: l_configurator_was_used NUMBER;
2657: l_msg_count NUMBER;
2658: l_msg_data VARCHAR2(2000);
2659: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
2660: l_order_source_id NUMBER;
2661: l_orig_sys_document_ref VARCHAR2(50);
2662: l_orig_sys_line_ref VARCHAR2(50);
2663: l_orig_sys_shipment_ref VARCHAR2(50);
2675: END IF;
2676:
2677:
2678: -- No Copy Changes. Initialized return status to success
2679: x_return_status := FND_API.G_RET_STS_SUCCESS;
2680:
2681:
2682: --get_transaction_id(p_caller => 'inside validate_config');
2683:
2693: FROM OE_ORDER_LINES_ALL
2694: WHERE line_id = p_model_line_id;
2695: EXCEPTION
2696: WHEN OTHERS THEN
2697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2698: END;
2699:
2700: OE_Msg_Pub.Set_Msg_Context
2701: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
2784:
2785: IF l_configurator_was_used <> 0 AND l_use_configurator THEN
2786: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_USE_OPTIONS_WINDOW');
2787: OE_Msg_Pub.Add;
2788: x_return_status:= FND_API.G_RET_STS_ERROR;
2789: END IF;
2790:
2791: IF l_configurator_was_used <> 1 AND NOT (l_use_configurator) THEN
2792: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_USE_CONFIGURATOR');
2790:
2791: IF l_configurator_was_used <> 1 AND NOT (l_use_configurator) THEN
2792: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_USE_CONFIGURATOR');
2793: OE_Msg_Pub.Add;
2794: x_return_status:= FND_API.G_RET_STS_ERROR;
2795: END IF;
2796:
2797: --get_transaction_id(p_caller => ' leaving validate_config');
2798:
2807: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.VALIDATE_CONFIGURATION' , 1);
2808: END IF;
2809: EXCEPTION
2810:
2811: WHEN FND_API.G_EXC_ERROR THEN
2812: x_return_status := FND_API.G_RET_STS_ERROR;
2813: --get_transaction_id(p_caller => 'exc error in validate_config');
2814:
2815:
2808: END IF;
2809: EXCEPTION
2810:
2811: WHEN FND_API.G_EXC_ERROR THEN
2812: x_return_status := FND_API.G_RET_STS_ERROR;
2813: --get_transaction_id(p_caller => 'exc error in validate_config');
2814:
2815:
2816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2812: x_return_status := FND_API.G_RET_STS_ERROR;
2813: --get_transaction_id(p_caller => 'exc error in validate_config');
2814:
2815:
2816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2818: --get_transaction_id(p_caller => 'unxp error in validate_config');
2819:
2820:
2813: --get_transaction_id(p_caller => 'exc error in validate_config');
2814:
2815:
2816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2818: --get_transaction_id(p_caller => 'unxp error in validate_config');
2819:
2820:
2821: WHEN OTHERS THEN
2822: IF l_debug_level > 0 THEN
2823: oe_debug_pub.add('ERROR IN VALIDATE_CONFIGURATION : '
2824: || SUBSTR ( SQLERRM , 1 , 100 ) , 1);
2825: END IF;
2826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2827:
2828: END Validate_Configuration;
2829:
2830:
2889: l_rec_index BINARY_INTEGER;
2890: l_xml_hdr VARCHAR2(2000);
2891: l_long_xml LONG := NULL;
2892: l_return_status VARCHAR2(1) :=
2893: FND_API.G_RET_STS_SUCCESS;
2894: I NUMBER;
2895: --
2896: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2897: --
2929: WHEN NO_DATA_FOUND THEN
2930: l_send_model_flag := 'N';
2931:
2932: WHEN OTHERS THEN
2933: RAISE FND_API.G_EXC_ERROR;
2934: END;
2935:
2936:
2937: IF l_send_model_flag = 'Y' THEN
3160: IF l_validation_status <> 0 THEN
3161: IF l_debug_level > 0 THEN
3162: oe_debug_pub.add('DO NOT PROCESS RESULTS , ERROR ',1);
3163: END IF;
3164: RAISE FND_API.G_EXC_ERROR;
3165: END IF;
3166:
3167: IF (l_html_pieces.COUNT <= 0) THEN
3168: IF l_debug_level > 0 THEN
3167: IF (l_html_pieces.COUNT <= 0) THEN
3168: IF l_debug_level > 0 THEN
3169: oe_debug_pub.add('HTML_PIECES COUNT IS <= 0' , 2 );
3170: END IF;
3171: RAISE FND_API.G_EXC_ERROR;
3172: END IF;
3173:
3174:
3175: l_rec_index := l_html_pieces.FIRST;
3194: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.SEND_INPUT_XML' , 1);
3195: END IF;
3196:
3197: EXCEPTION
3198: WHEN FND_API.G_EXC_ERROR THEN
3199: --get_transaction_id
3200: --(p_caller => 'send_xml exc error, before call to SPC validate');
3201:
3202: x_return_status := FND_API.G_RET_STS_ERROR;
3198: WHEN FND_API.G_EXC_ERROR THEN
3199: --get_transaction_id
3200: --(p_caller => 'send_xml exc error, before call to SPC validate');
3201:
3202: x_return_status := FND_API.G_RET_STS_ERROR;
3203: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_VALIDATION_FAILURE');
3204: OE_Msg_Pub.Add;
3205:
3206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3202: x_return_status := FND_API.G_RET_STS_ERROR;
3203: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_VALIDATION_FAILURE');
3204: OE_Msg_Pub.Add;
3205:
3206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3207: --get_transaction_id
3208: --(p_caller => 'send_xml unxp, before call to SPC validate');
3209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3210: IF l_debug_level > 0 THEN
3205:
3206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3207: --get_transaction_id
3208: --(p_caller => 'send_xml unxp, before call to SPC validate');
3209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3210: IF l_debug_level > 0 THEN
3211: oe_debug_pub.add('AN UNEXP ERROR RAISED' , 1);
3212: END IF;
3213:
3220: WHEN OTHERS THEN
3221: --get_transaction_id
3222: --(p_caller=> 'send_xml others error, before call to SPC validate');
3223:
3224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3225:
3226: IF l_debug_level > 0 THEN
3227: oe_debug_pub.add
3228: ('SEND_INPUT_XML ERROR: ' || SUBSTR ( SQLERRM , 1 , 100 ) , 1);
3279: l_xml_hdr VARCHAR2(2000):=
3280: '
3281: l_dummy VARCHAR2(500) := NULL;
3282: l_return_status VARCHAR2(1)
3283: := FND_API.G_RET_STS_SUCCESS;
3284:
3285: l_config_effective_date DATE;
3286: l_old_behavior VARCHAR2(1);
3287: l_frozen_model_bill VARCHAR2(1);
3544: l_valid_config VARCHAR2(10);
3545: l_complete_config VARCHAR2(10);
3546: l_header_id NUMBER;
3547: l_return_status VARCHAR2(1) :=
3548: FND_API.G_RET_STS_SUCCESS;
3549: l_return_status_del VARCHAR2(1);
3550: l_msg VARCHAR2(2000);
3551: l_constraint VARCHAR2(16);
3552: l_flag VARCHAR2(1) := 'N';
3736: ( p_config_hdr_id => l_config_header_id
3737: ,p_config_rev_nbr => l_config_rev_nbr
3738: ,x_return_status => l_return_status_del);
3739:
3740: RAISE FND_API.G_EXC_ERROR;
3741: END IF;
3742:
3743:
3744: -- if everything ok, set return values
3753: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.PARSE_OUTPUT_XML' , 1);
3754: END IF;
3755:
3756: EXCEPTION
3757: WHEN FND_API.G_EXC_ERROR THEN
3758: x_return_status := FND_API.G_RET_STS_ERROR;
3759: IF l_debug_level > 0 THEN
3760: oe_debug_pub.add('SPC EXIT TAG IS ERROR' , 1);
3761: END IF;
3754: END IF;
3755:
3756: EXCEPTION
3757: WHEN FND_API.G_EXC_ERROR THEN
3758: x_return_status := FND_API.G_RET_STS_ERROR;
3759: IF l_debug_level > 0 THEN
3760: oe_debug_pub.add('SPC EXIT TAG IS ERROR' , 1);
3761: END IF;
3762:
3760: oe_debug_pub.add('SPC EXIT TAG IS ERROR' , 1);
3761: END IF;
3762:
3763: WHEN OTHERS THEN
3764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3765: IF l_debug_level > 0 THEN
3766: oe_debug_pub.add('PARSE_OUTPUT_XML ERROR: '
3767: || SUBSTR ( SQLERRM , 1 , 100 ) , 1);
3768: END IF;
3910: END IF;
3911:
3912: EXCEPTION
3913: WHEN OTHERS THEN
3914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3915: END;
3916:
3917:
3918: /*----------------------------------------------------------------------
3982: oe_msg_pub.add_text(p_message_text => x_msg_data);
3983:
3984: END IF;
3985:
3986: RAISE FND_API.G_EXC_ERROR;
3987: END IF;
3988:
3989:
3990: x_return_status := FND_API.G_RET_STS_SUCCESS;
3986: RAISE FND_API.G_EXC_ERROR;
3987: END IF;
3988:
3989:
3990: x_return_status := FND_API.G_RET_STS_SUCCESS;
3991: IF l_debug_level > 0 THEN
3992: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.EXPLODE' , 1);
3993: END IF;
3994:
3992: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.EXPLODE' , 1);
3993: END IF;
3994:
3995: EXCEPTION
3996: WHEN FND_API.G_EXC_ERROR THEN
3997: x_return_status := FND_API.G_RET_STS_ERROR;
3998: END Explode;
3999:
4000: /*----------------------------------------------------------------------
3993: END IF;
3994:
3995: EXCEPTION
3996: WHEN FND_API.G_EXC_ERROR THEN
3997: x_return_status := FND_API.G_RET_STS_ERROR;
3998: END Explode;
3999:
4000: /*----------------------------------------------------------------------
4001: Procedure Name : Query_Included_Item
4021: parent line.
4022: -----------------------------------------------------------------------*/
4023: PROCEDURE Query_Included_Items
4024: ( p_line_id IN NUMBER
4025: , p_header_id IN NUMBER := FND_API.G_MISS_NUM
4026: , p_top_model_line_id IN NUMBER := FND_API.G_MISS_NUM
4027: , p_send_cancel_lines IN VARCHAR2 := 'N'
4028: , p_source_type IN VARCHAR2 := ''
4029: , x_line_tbl OUT NOCOPY OE_ORDER_PUB.line_tbl_type)
4022: -----------------------------------------------------------------------*/
4023: PROCEDURE Query_Included_Items
4024: ( p_line_id IN NUMBER
4025: , p_header_id IN NUMBER := FND_API.G_MISS_NUM
4026: , p_top_model_line_id IN NUMBER := FND_API.G_MISS_NUM
4027: , p_send_cancel_lines IN VARCHAR2 := 'N'
4028: , p_source_type IN VARCHAR2 := ''
4029: , x_line_tbl OUT NOCOPY OE_ORDER_PUB.line_tbl_type)
4030: IS
4051: IF l_debug_level > 0 THEN
4052: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
4053: END IF;
4054:
4055: IF p_header_id = FND_API.G_MISS_NUM AND
4056: p_top_model_line_id = FND_API.G_MISS_NUM THEN
4057:
4058: BEGIN
4059: SELECT top_model_line_id ,header_id
4052: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
4053: END IF;
4054:
4055: IF p_header_id = FND_API.G_MISS_NUM AND
4056: p_top_model_line_id = FND_API.G_MISS_NUM THEN
4057:
4058: BEGIN
4059: SELECT top_model_line_id ,header_id
4060: INTO l_top_model_line_id,l_header_id
4104: END IF;
4105:
4106: EXCEPTION
4107: WHEN OTHERS THEN
4108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4109: END Query_Included_Items;
4110:
4111: -- forward declaration
4112:
4166: -----------------------------------------------------------------------*/
4167: FUNCTION Process_Included_Items
4168: (p_line_rec IN OE_ORDER_PUB.line_rec_type
4169: := OE_ORDER_PUB.G_MISS_LINE_REC,
4170: p_line_id IN NUMBER := FND_API.G_MISS_NUM,
4171: p_freeze IN BOOLEAN,
4172: p_process_requests IN BOOLEAN DEFAULT FALSE)
4173: RETURN VARCHAR2
4174: IS
4179: l_line_rec OE_ORDER_PUB.Line_Rec_Type;
4180: l_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
4181: l_line_tbl OE_Order_PUB.Line_Tbl_Type;
4182:
4183: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4184: l_msg_count NUMBER;
4185: l_msg_data VARCHAR2(2000);
4186:
4187: -- procedure variables
4293: Print_Time('Entering oe_config_util.process_included_items');
4294:
4295: l_parent_line_rec := p_line_rec;
4296:
4297: IF p_line_rec.line_id <> FND_API.G_MISS_NUM AND
4298: p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4299: IF l_debug_level > 0 THEN
4300: oe_debug_pub.add('DO NOT LOCK' , 3 );
4301: END IF;
4299: IF l_debug_level > 0 THEN
4300: oe_debug_pub.add('DO NOT LOCK' , 3 );
4301: END IF;
4302: ELSE
4303: IF p_line_id = FND_API.G_MISS_NUM THEN
4304: OE_LINE_UTIL.Lock_Row
4305: (p_line_id => p_line_rec.line_id
4306: ,p_x_line_rec => l_parent_line_rec
4307: ,x_return_status => l_return_status);
4397:
4398: IF l_freeze_macd_kit THEN
4399:
4400: l_explosion_date := sysdate;
4401: l_return_status := FND_API.G_RET_STS_SUCCESS;
4402: GOTO UPDATE_EXP_DATE;
4403:
4404: END IF;
4405: l_validation_org := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
4419: x_msg_data => l_msg_data,
4420: x_error_code => l_error_code,
4421: x_return_status => l_return_status);
4422:
4423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4426: RAISE FND_API.G_EXC_ERROR;
4427: END IF;
4420: x_error_code => l_error_code,
4421: x_return_status => l_return_status);
4422:
4423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4426: RAISE FND_API.G_EXC_ERROR;
4427: END IF;
4428:
4421: x_return_status => l_return_status);
4422:
4423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4426: RAISE FND_API.G_EXC_ERROR;
4427: END IF;
4428:
4429:
4422:
4423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4426: RAISE FND_API.G_EXC_ERROR;
4427: END IF;
4428:
4429:
4430: BEGIN
4449: IF l_debug_level > 0 THEN
4450: oe_debug_pub.add
4451: ('UNEXPECTED ERROR WHILE GETTING BILL SEQUENCE ID' , 3 );
4452: END IF;
4453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4454: END;
4455:
4456: BEGIN
4457: SELECT max(component_number)
4460: WHERE link_to_line_id = p_line_id
4461: AND top_model_line_id = l_parent_line_rec.top_model_line_id;
4462: EXCEPTION
4463: WHEN OTHERS THEN
4464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4465: END;
4466:
4467: l_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
4468:
4512: (p_parent_line_rec => l_parent_line_rec,
4513: p_x_child_line_rec => l_line_rec,
4514: x_return_status => l_return_status);
4515:
4516: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4518: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4519: RAISE FND_API.G_EXC_ERROR;
4520: END IF;
4513: p_x_child_line_rec => l_line_rec,
4514: x_return_status => l_return_status);
4515:
4516: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4518: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4519: RAISE FND_API.G_EXC_ERROR;
4520: END IF;
4521:
4514: x_return_status => l_return_status);
4515:
4516: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4518: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4519: RAISE FND_API.G_EXC_ERROR;
4520: END IF;
4521:
4522: l_default_child_line := FALSE;
4515:
4516: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4518: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4519: RAISE FND_API.G_EXC_ERROR;
4520: END IF;
4521:
4522: l_default_child_line := FALSE;
4523:
4536: WHEN NO_DATA_FOUND THEN
4537: IF l_debug_level > 0 THEN
4538: oe_debug_pub.add('CANCAT SEG FETCH ERROR' , 3 );
4539: END IF;
4540: RAISE FND_API.G_EXC_ERROR;
4541: END;
4542:
4543: IF l_debug_level > 0 THEN
4544: oe_debug_pub.add('ORD ITEM IS: ' || L_LINE_REC.ORDERED_ITEM , 5 );
4704: l_control_rec.check_security := FALSE;
4705: l_control_rec.change_attributes := FALSE;
4706:
4707: OE_ORDER_PVT.Lines
4708: (p_validation_level => FND_API.G_VALID_LEVEL_NONE
4709: ,p_control_rec => l_control_rec
4710: ,p_x_line_tbl => l_line_tbl
4711: ,p_x_old_line_tbl => l_old_line_tbl
4712: ,x_return_status => l_return_status);
4710: ,p_x_line_tbl => l_line_tbl
4711: ,p_x_old_line_tbl => l_old_line_tbl
4712: ,x_return_status => l_return_status);
4713:
4714: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4716: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4717: RAISE FND_API.G_EXC_ERROR;
4718: END IF;
4711: ,p_x_old_line_tbl => l_old_line_tbl
4712: ,x_return_status => l_return_status);
4713:
4714: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4716: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4717: RAISE FND_API.G_EXC_ERROR;
4718: END IF;
4719:
4712: ,x_return_status => l_return_status);
4713:
4714: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4716: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4717: RAISE FND_API.G_EXC_ERROR;
4718: END IF;
4719:
4720:
4713:
4714: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4716: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4717: RAISE FND_API.G_EXC_ERROR;
4718: END IF;
4719:
4720:
4721: Log_Included_Item_Requests
4730: ,p_line_tbl => l_line_tbl
4731: ,p_old_line_tbl => l_old_line_tbl);
4732:
4733:
4734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4736: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4737: RAISE FND_API.G_EXC_ERROR;
4738: END IF;
4731: ,p_old_line_tbl => l_old_line_tbl);
4732:
4733:
4734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4736: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4737: RAISE FND_API.G_EXC_ERROR;
4738: END IF;
4739:
4732:
4733:
4734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4736: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4737: RAISE FND_API.G_EXC_ERROR;
4738: END IF;
4739:
4740:
4733:
4734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4736: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4737: RAISE FND_API.G_EXC_ERROR;
4738: END IF;
4739:
4740:
4741: IF l_adjust_comp_no_flag = 'Y' THEN
4766: lock_control = lock_control + 1
4767: WHERE line_id = l_parent_line_rec.line_id;
4768: EXCEPTION
4769: WHEN OTHERS THEN
4770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4771: END;
4772: END IF;
4773:
4774:
4776:
4777: RETURN l_return_status;
4778:
4779: EXCEPTION
4780: WHEN FND_API.G_EXC_ERROR THEN
4781: -- bug 4683857
4782: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4783: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Process_Included_Items');
4784: END IF;
4781: -- bug 4683857
4782: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4783: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Process_Included_Items');
4784: END IF;
4785: RETURN FND_API.G_RET_STS_ERROR;
4786:
4787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4788: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4789: THEN
4783: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Process_Included_Items');
4784: END IF;
4785: RETURN FND_API.G_RET_STS_ERROR;
4786:
4787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4788: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4789: THEN
4790: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Process_Included_Items');
4791: END IF;
4788: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4789: THEN
4790: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Process_Included_Items');
4791: END IF;
4792: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4793: WHEN OTHERS THEN
4794: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4795: THEN
4796: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Process_Included_Items');
4794: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4795: THEN
4796: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'Process_Included_Items');
4797: END IF;
4798: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4799: END Process_Included_Items;
4800:
4801:
4802: /*----------------------------------------------------------------------
4841: WHERE line_id = l_line_id;
4842:
4843: END LOOP;
4844:
4845: x_return_status := FND_API.G_RET_STS_SUCCESS;
4846:
4847: IF l_debug_level > 0 THEN
4848: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_COMPONENT_NUMBER' , 1);
4849: END IF;
4849: END IF;
4850:
4851: EXCEPTION
4852: WHEN OTHERS THEN
4853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4854: END update_component_number;
4855:
4856: /*----------------------------------------------------------------------
4857: Procedure Name : Supply_Reserved
4898: Description :
4899: -----------------------------------------------------------------------*/
4900: FUNCTION Is_ATO_Model
4901: (p_line_id IN NUMBER
4902: := FND_API.G_MISS_NUM ,
4903: p_line_rec IN OE_Order_PUB.LINE_REC_TYPE
4904: := OE_ORDER_PUB.G_MISS_LINE_REC)
4905: RETURN BOOLEAN
4906: IS
4914: oe_debug_pub.add('ENTERING IS_ATO_MODEL FUNCTION ' , 1);
4915: END IF;
4916:
4917: -- if p_line_rec.line_id is missing, query row
4918: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
4919: -- if p_line_rec is not missing, use it as line_rec insted of querying.
4920:
4921: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
4922: IF p_line_id <> FND_API.G_MISS_NUM THEN
4917: -- if p_line_rec.line_id is missing, query row
4918: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
4919: -- if p_line_rec is not missing, use it as line_rec insted of querying.
4920:
4921: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
4922: IF p_line_id <> FND_API.G_MISS_NUM THEN
4923: OE_Line_Util.Query_Row(p_line_id => p_line_id
4924: ,x_line_rec => l_line_rec);
4925: ELSE
4918: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
4919: -- if p_line_rec is not missing, use it as line_rec insted of querying.
4920:
4921: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
4922: IF p_line_id <> FND_API.G_MISS_NUM THEN
4923: OE_Line_Util.Query_Row(p_line_id => p_line_id
4924: ,x_line_rec => l_line_rec);
4925: ELSE
4926: RAISE FND_API.G_EXC_ERROR;
4922: IF p_line_id <> FND_API.G_MISS_NUM THEN
4923: OE_Line_Util.Query_Row(p_line_id => p_line_id
4924: ,x_line_rec => l_line_rec);
4925: ELSE
4926: RAISE FND_API.G_EXC_ERROR;
4927: END IF;
4928: ELSE
4929: l_line_rec := p_line_rec;
4930: END IF;
4963: Description :
4964: -----------------------------------------------------------------------*/
4965: FUNCTION Is_PTO_Model
4966: (p_line_id IN NUMBER
4967: := FND_API.G_MISS_NUM ,
4968: p_line_rec IN OE_Order_PUB.LINE_REC_TYPE
4969: := OE_ORDER_PUB.G_MISS_LINE_REC)
4970: RETURN BOOLEAN
4971: IS
4980: oe_debug_pub.add('ENTERING IS_PTO_MODEL FUNCTION ' , 1);
4981: END IF;
4982:
4983: -- if p_line_rec.line_id is missing, query row
4984: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
4985: -- if p_line_rec is not missing, use it as line_rec insted of querying.
4986:
4987: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
4988: IF p_line_id <> FND_API.G_MISS_NUM THEN
4983: -- if p_line_rec.line_id is missing, query row
4984: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
4985: -- if p_line_rec is not missing, use it as line_rec insted of querying.
4986:
4987: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
4988: IF p_line_id <> FND_API.G_MISS_NUM THEN
4989: OE_Line_Util.Query_Row(p_line_id => p_line_id
4990: ,x_line_rec => l_line_rec);
4991: ELSE
4984: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
4985: -- if p_line_rec is not missing, use it as line_rec insted of querying.
4986:
4987: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
4988: IF p_line_id <> FND_API.G_MISS_NUM THEN
4989: OE_Line_Util.Query_Row(p_line_id => p_line_id
4990: ,x_line_rec => l_line_rec);
4991: ELSE
4992: RAISE FND_API.G_EXC_ERROR;
4988: IF p_line_id <> FND_API.G_MISS_NUM THEN
4989: OE_Line_Util.Query_Row(p_line_id => p_line_id
4990: ,x_line_rec => l_line_rec);
4991: ELSE
4992: RAISE FND_API.G_EXC_ERROR;
4993: END IF;
4994: ELSE
4995: l_line_rec := p_line_rec;
4996: END IF;
5028: -----------------------------------------------------------------------*/
5029:
5030: FUNCTION Is_Included_Option
5031: (p_line_id IN NUMBER
5032: := FND_API.G_MISS_NUM ,
5033: p_line_rec IN OE_Order_PUB.LINE_REC_TYPE
5034: := OE_ORDER_PUB.G_MISS_LINE_REC)
5035: RETURN BOOLEAN
5036: IS
5045: oe_debug_pub.add('ENTERING IS_INCLUDED_OPTION FUNCTION ' , 1);
5046: END IF;
5047:
5048: -- if p_line_rec.line_id is missing, query row
5049: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5050: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5051:
5052: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5053: IF p_line_id <> FND_API.G_MISS_NUM THEN
5048: -- if p_line_rec.line_id is missing, query row
5049: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5050: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5051:
5052: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5053: IF p_line_id <> FND_API.G_MISS_NUM THEN
5054: OE_Line_Util.Query_Row(p_line_id => p_line_id
5055: ,x_line_rec => l_line_rec);
5056: ELSE
5049: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5050: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5051:
5052: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5053: IF p_line_id <> FND_API.G_MISS_NUM THEN
5054: OE_Line_Util.Query_Row(p_line_id => p_line_id
5055: ,x_line_rec => l_line_rec);
5056: ELSE
5057: RAISE FND_API.G_EXC_ERROR;
5053: IF p_line_id <> FND_API.G_MISS_NUM THEN
5054: OE_Line_Util.Query_Row(p_line_id => p_line_id
5055: ,x_line_rec => l_line_rec);
5056: ELSE
5057: RAISE FND_API.G_EXC_ERROR;
5058: END IF;
5059: ELSE
5060: l_line_rec := p_line_rec;
5061: END IF;
5091: Description :
5092: -----------------------------------------------------------------------*/
5093: FUNCTION Is_Config_Item
5094: (p_line_id IN NUMBER
5095: := FND_API.G_MISS_NUM ,
5096: p_line_rec IN OE_Order_PUB.LINE_REC_TYPE
5097: := OE_ORDER_PUB.G_MISS_LINE_REC)
5098: RETURN BOOLEAN
5099: IS
5108: oe_debug_pub.add('ENTERING IS_CONFIG_ITEM FUNCTION ' , 1);
5109: END IF;
5110:
5111: -- if p_line_rec.line_id is missing, query row
5112: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5113: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5114:
5115: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5116: IF p_line_id <> FND_API.G_MISS_NUM THEN
5111: -- if p_line_rec.line_id is missing, query row
5112: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5113: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5114:
5115: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5116: IF p_line_id <> FND_API.G_MISS_NUM THEN
5117: OE_Line_Util.Query_Row(p_line_id => p_line_id
5118: ,x_line_rec => l_line_rec);
5119: ELSE
5112: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5113: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5114:
5115: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5116: IF p_line_id <> FND_API.G_MISS_NUM THEN
5117: OE_Line_Util.Query_Row(p_line_id => p_line_id
5118: ,x_line_rec => l_line_rec);
5119: ELSE
5120: RAISE FND_API.G_EXC_ERROR;
5116: IF p_line_id <> FND_API.G_MISS_NUM THEN
5117: OE_Line_Util.Query_Row(p_line_id => p_line_id
5118: ,x_line_rec => l_line_rec);
5119: ELSE
5120: RAISE FND_API.G_EXC_ERROR;
5121: END IF;
5122: ELSE
5123: l_line_rec := p_line_rec;
5124: END IF;
5154: Description :
5155: -----------------------------------------------------------------------*/
5156: FUNCTION Is_ATO_Option
5157: (p_line_id IN NUMBER
5158: := FND_API.G_MISS_NUM ,
5159: p_line_rec IN OE_Order_PUB.LINE_REC_TYPE
5160: := OE_ORDER_PUB.G_MISS_LINE_REC)
5161: RETURN BOOLEAN
5162: IS
5171: oe_debug_pub.add('ENTERING IS_ATO_OPTION FUNCTION ' , 1);
5172: END IF;
5173:
5174: -- if p_line_rec.line_id is missing, query row
5175: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5176: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5177:
5178: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5179: IF p_line_id <> FND_API.G_MISS_NUM THEN
5174: -- if p_line_rec.line_id is missing, query row
5175: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5176: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5177:
5178: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5179: IF p_line_id <> FND_API.G_MISS_NUM THEN
5180: OE_Line_Util.Query_Row(p_line_id => p_line_id
5181: ,x_line_rec => l_line_rec);
5182: ELSE
5175: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5176: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5177:
5178: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5179: IF p_line_id <> FND_API.G_MISS_NUM THEN
5180: OE_Line_Util.Query_Row(p_line_id => p_line_id
5181: ,x_line_rec => l_line_rec);
5182: ELSE
5183: RAISE FND_API.G_EXC_ERROR;
5179: IF p_line_id <> FND_API.G_MISS_NUM THEN
5180: OE_Line_Util.Query_Row(p_line_id => p_line_id
5181: ,x_line_rec => l_line_rec);
5182: ELSE
5183: RAISE FND_API.G_EXC_ERROR;
5184: END IF;
5185: ELSE
5186: l_line_rec := p_line_rec;
5187: END IF;
5221: Description :
5222: -----------------------------------------------------------------------*/
5223: FUNCTION Is_PTO_Option
5224: (p_line_id IN NUMBER
5225: := FND_API.G_MISS_NUM ,
5226: p_line_rec IN OE_Order_PUB.LINE_REC_TYPE
5227: := OE_ORDER_PUB.G_MISS_LINE_REC)
5228: RETURN BOOLEAN
5229: IS
5238: oe_debug_pub.add('ENTERING IS_PTO_OPTION FUNCTION ' , 1);
5239: END IF;
5240:
5241: -- if p_line_rec.line_id is missing, query row
5242: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5243: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5244:
5245: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5246: IF p_line_id <> FND_API.G_MISS_NUM THEN
5241: -- if p_line_rec.line_id is missing, query row
5242: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5243: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5244:
5245: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5246: IF p_line_id <> FND_API.G_MISS_NUM THEN
5247: OE_Line_Util.Query_Row(p_line_id => p_line_id
5248: ,x_line_rec => l_line_rec);
5249: ELSE
5242: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5243: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5244:
5245: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5246: IF p_line_id <> FND_API.G_MISS_NUM THEN
5247: OE_Line_Util.Query_Row(p_line_id => p_line_id
5248: ,x_line_rec => l_line_rec);
5249: ELSE
5250: RAISE FND_API.G_EXC_ERROR;
5246: IF p_line_id <> FND_API.G_MISS_NUM THEN
5247: OE_Line_Util.Query_Row(p_line_id => p_line_id
5248: ,x_line_rec => l_line_rec);
5249: ELSE
5250: RAISE FND_API.G_EXC_ERROR;
5251: END IF;
5252: ELSE
5253: l_line_rec := p_line_rec;
5254: END IF;
5284: Description :
5285: -----------------------------------------------------------------------*/
5286: FUNCTION Is_ATO_Class
5287: (p_line_id IN NUMBER
5288: := FND_API.G_MISS_NUM ,
5289: p_line_rec IN OE_Order_PUB.LINE_REC_TYPE
5290: := OE_ORDER_PUB.G_MISS_LINE_REC)
5291: RETURN BOOLEAN
5292: IS
5301: oe_debug_pub.add('ENTERING IS_ATO_CLASS FUNCTION ' , 1);
5302: END IF;
5303:
5304: -- if p_line_rec.line_id is missing, query row
5305: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5306: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5307:
5308: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5309: IF p_line_id <> FND_API.G_MISS_NUM THEN
5304: -- if p_line_rec.line_id is missing, query row
5305: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5306: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5307:
5308: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5309: IF p_line_id <> FND_API.G_MISS_NUM THEN
5310: OE_Line_Util.Query_Row(p_line_id => p_line_id
5311: ,x_line_rec => l_line_rec);
5312: ELSE
5305: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5306: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5307:
5308: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5309: IF p_line_id <> FND_API.G_MISS_NUM THEN
5310: OE_Line_Util.Query_Row(p_line_id => p_line_id
5311: ,x_line_rec => l_line_rec);
5312: ELSE
5313: RAISE FND_API.G_EXC_ERROR;
5309: IF p_line_id <> FND_API.G_MISS_NUM THEN
5310: OE_Line_Util.Query_Row(p_line_id => p_line_id
5311: ,x_line_rec => l_line_rec);
5312: ELSE
5313: RAISE FND_API.G_EXC_ERROR;
5314: END IF;
5315: ELSE
5316: l_line_rec := p_line_rec;
5317: END IF;
5350: Description :
5351: -----------------------------------------------------------------------*/
5352: FUNCTION Is_PTO_Class
5353: (p_line_id IN NUMBER
5354: := FND_API.G_MISS_NUM ,
5355: p_line_rec IN OE_Order_PUB.LINE_REC_TYPE
5356: := OE_ORDER_PUB.G_MISS_LINE_REC)
5357: RETURN BOOLEAN
5358: IS
5367: oe_debug_pub.add('ENTERING IS_PTO_CLASS FUNCTION ' , 1);
5368: END IF;
5369:
5370: -- if p_line_rec.line_id is missing, query row
5371: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5372: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5373:
5374: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5375: IF p_line_id <> FND_API.G_MISS_NUM THEN
5370: -- if p_line_rec.line_id is missing, query row
5371: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5372: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5373:
5374: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5375: IF p_line_id <> FND_API.G_MISS_NUM THEN
5376: OE_Line_Util.Query_Row(p_line_id => p_line_id
5377: ,x_line_rec => l_line_rec);
5378: ELSE
5371: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5372: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5373:
5374: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5375: IF p_line_id <> FND_API.G_MISS_NUM THEN
5376: OE_Line_Util.Query_Row(p_line_id => p_line_id
5377: ,x_line_rec => l_line_rec);
5378: ELSE
5379: RAISE FND_API.G_EXC_ERROR;
5375: IF p_line_id <> FND_API.G_MISS_NUM THEN
5376: OE_Line_Util.Query_Row(p_line_id => p_line_id
5377: ,x_line_rec => l_line_rec);
5378: ELSE
5379: RAISE FND_API.G_EXC_ERROR;
5380: END IF;
5381: ELSE
5382: l_line_rec := p_line_rec;
5383: END IF;
5414: Description :
5415: -----------------------------------------------------------------------*/
5416: FUNCTION Is_ATO_Subconfig
5417: (p_line_id IN NUMBER
5418: := FND_API.G_MISS_NUM ,
5419: p_line_rec IN OE_Order_PUB.LINE_REC_TYPE
5420: := OE_ORDER_PUB.G_MISS_LINE_REC)
5421: RETURN BOOLEAN
5422: IS
5431: oe_debug_pub.add('ENTERING IS_ATO_SUBCONFIG FUNCTION ' , 1);
5432: END IF;
5433:
5434: -- if p_line_rec.line_id is missing, query row
5435: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5436: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5437:
5438: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5439: IF p_line_id <> FND_API.G_MISS_NUM THEN
5434: -- if p_line_rec.line_id is missing, query row
5435: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5436: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5437:
5438: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5439: IF p_line_id <> FND_API.G_MISS_NUM THEN
5440: OE_Line_Util.Query_Row(p_line_id => p_line_id
5441: ,x_line_rec => l_line_rec);
5442: ELSE
5435: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5436: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5437:
5438: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5439: IF p_line_id <> FND_API.G_MISS_NUM THEN
5440: OE_Line_Util.Query_Row(p_line_id => p_line_id
5441: ,x_line_rec => l_line_rec);
5442: ELSE
5443: RAISE FND_API.G_EXC_ERROR;
5439: IF p_line_id <> FND_API.G_MISS_NUM THEN
5440: OE_Line_Util.Query_Row(p_line_id => p_line_id
5441: ,x_line_rec => l_line_rec);
5442: ELSE
5443: RAISE FND_API.G_EXC_ERROR;
5444: END IF;
5445: ELSE
5446: l_line_rec := p_line_rec;
5447: END IF;
5480: Description :
5481: -----------------------------------------------------------------------*/
5482: FUNCTION Is_Kit
5483: (p_line_id IN NUMBER
5484: := FND_API.G_MISS_NUM ,
5485: p_line_rec IN OE_Order_PUB.LINE_REC_TYPE
5486: := OE_ORDER_PUB.G_MISS_LINE_REC)
5487: RETURN BOOLEAN
5488: IS
5497: oe_debug_pub.add('ENTERING IS_KIT FUNCTION ' , 1);
5498: END IF;
5499:
5500: -- if p_line_rec.line_id is missing, query row
5501: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5502: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5503:
5504: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5505: IF p_line_id <> FND_API.G_MISS_NUM THEN
5500: -- if p_line_rec.line_id is missing, query row
5501: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5502: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5503:
5504: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5505: IF p_line_id <> FND_API.G_MISS_NUM THEN
5506: OE_Line_Util.Query_Row(p_line_id => p_line_id
5507: ,x_line_rec => l_line_rec);
5508: ELSE
5501: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5502: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5503:
5504: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5505: IF p_line_id <> FND_API.G_MISS_NUM THEN
5506: OE_Line_Util.Query_Row(p_line_id => p_line_id
5507: ,x_line_rec => l_line_rec);
5508: ELSE
5509: RAISE FND_API.G_EXC_ERROR;
5505: IF p_line_id <> FND_API.G_MISS_NUM THEN
5506: OE_Line_Util.Query_Row(p_line_id => p_line_id
5507: ,x_line_rec => l_line_rec);
5508: ELSE
5509: RAISE FND_API.G_EXC_ERROR;
5510: END IF;
5511: ELSE
5512: l_line_rec := p_line_rec;
5513: END IF;
5542: Description :
5543: -----------------------------------------------------------------------*/
5544: FUNCTION Is_Ato_Item
5545: (p_line_id IN NUMBER
5546: := FND_API.G_MISS_NUM ,
5547: p_line_rec IN OE_Order_PUB.LINE_REC_TYPE
5548: := OE_ORDER_PUB.G_MISS_LINE_REC)
5549: RETURN BOOLEAN
5550: IS
5559: oe_debug_pub.add('ENTERING IS_ATO_ITEM FUNCTION ' , 1);
5560: END IF;
5561:
5562: -- if p_line_rec.line_id is missing, query row
5563: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5564: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5565:
5566: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5567: IF p_line_id <> FND_API.G_MISS_NUM THEN
5562: -- if p_line_rec.line_id is missing, query row
5563: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5564: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5565:
5566: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5567: IF p_line_id <> FND_API.G_MISS_NUM THEN
5568: OE_Line_Util.Query_Row(p_line_id => p_line_id
5569: ,x_line_rec => l_line_rec);
5570: ELSE
5563: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5564: -- if p_line_rec is not missing, use it as line_rec insted of querying.
5565:
5566: IF p_line_rec.line_id = FND_API.G_MISS_NUM THEN
5567: IF p_line_id <> FND_API.G_MISS_NUM THEN
5568: OE_Line_Util.Query_Row(p_line_id => p_line_id
5569: ,x_line_rec => l_line_rec);
5570: ELSE
5571: RAISE FND_API.G_EXC_ERROR;
5567: IF p_line_id <> FND_API.G_MISS_NUM THEN
5568: OE_Line_Util.Query_Row(p_line_id => p_line_id
5569: ,x_line_rec => l_line_rec);
5570: ELSE
5571: RAISE FND_API.G_EXC_ERROR;
5572: END IF;
5573: ELSE
5574: l_line_rec := p_line_rec;
5575: END IF;
5611: in that configuration bu only ato options/included items of that line
5612: ---------------------------------------------------------------------*/
5613:
5614: PROCEDURE Query_Config
5615: ( p_link_to_line_id IN NUMBER := FND_API.G_MISS_NUM
5616: , p_top_model_line_id IN NUMBER := FND_API.G_MISS_NUM
5617: , p_ato_line_id IN NUMBER := FND_API.G_MISS_NUM
5618: , x_line_tbl OUT NOCOPY OE_ORDER_PUB.line_tbl_type)
5619: IS
5612: ---------------------------------------------------------------------*/
5613:
5614: PROCEDURE Query_Config
5615: ( p_link_to_line_id IN NUMBER := FND_API.G_MISS_NUM
5616: , p_top_model_line_id IN NUMBER := FND_API.G_MISS_NUM
5617: , p_ato_line_id IN NUMBER := FND_API.G_MISS_NUM
5618: , x_line_tbl OUT NOCOPY OE_ORDER_PUB.line_tbl_type)
5619: IS
5620: l_line_rec OE_Order_PUB.Line_Rec_Type
5613:
5614: PROCEDURE Query_Config
5615: ( p_link_to_line_id IN NUMBER := FND_API.G_MISS_NUM
5616: , p_top_model_line_id IN NUMBER := FND_API.G_MISS_NUM
5617: , p_ato_line_id IN NUMBER := FND_API.G_MISS_NUM
5618: , x_line_tbl OUT NOCOPY OE_ORDER_PUB.line_tbl_type)
5619: IS
5620: l_line_rec OE_Order_PUB.Line_Rec_Type
5621: := OE_Order_PUB.G_MISS_LINE_REC;
5647: l_top_model_line_id := p_top_model_line_id;
5648:
5649: BEGIN
5650: IF (p_link_to_line_id is not null and
5651: p_link_to_line_id <> FND_API.G_MISS_NUM) THEN
5652: ll_line_id := p_link_to_line_id;
5653: ELSIF (p_top_model_line_id is not null and
5654: p_top_model_line_id <> FND_API.G_MISS_NUM) THEN
5655: ll_line_id := p_top_model_line_id;
5650: IF (p_link_to_line_id is not null and
5651: p_link_to_line_id <> FND_API.G_MISS_NUM) THEN
5652: ll_line_id := p_link_to_line_id;
5653: ELSIF (p_top_model_line_id is not null and
5654: p_top_model_line_id <> FND_API.G_MISS_NUM) THEN
5655: ll_line_id := p_top_model_line_id;
5656: ELSIF (p_ato_line_id is not null and
5657: p_ato_line_id <> FND_API.G_MISS_NUM) THEN
5658: ll_line_id := p_ato_line_id;
5653: ELSIF (p_top_model_line_id is not null and
5654: p_top_model_line_id <> FND_API.G_MISS_NUM) THEN
5655: ll_line_id := p_top_model_line_id;
5656: ELSIF (p_ato_line_id is not null and
5657: p_ato_line_id <> FND_API.G_MISS_NUM) THEN
5658: ll_line_id := p_ato_line_id;
5659: ELSE
5660: ll_line_id := 0;
5661: END IF;
5669: WHEN OTHERS THEN
5670: l_header_id:=0;
5671: END;
5672:
5673: IF p_ato_line_id <> FND_API.G_MISS_NUM OR
5674: p_link_to_line_id <> FND_API.G_MISS_NUM THEN
5675: l_top_model_line_id := NULL;
5676: END IF;
5677:
5670: l_header_id:=0;
5671: END;
5672:
5673: IF p_ato_line_id <> FND_API.G_MISS_NUM OR
5674: p_link_to_line_id <> FND_API.G_MISS_NUM THEN
5675: l_top_model_line_id := NULL;
5676: END IF;
5677:
5678: IF l_debug_level > 0 THEN
5703: oe_debug_pub.add('NO_DATA_FOUND IN QUERY_CONFIG' , 1);
5704: END IF;
5705: RAISE NO_DATA_FOUND;
5706:
5707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5708: IF l_debug_level > 0 THEN
5709: oe_debug_pub.add('EXC_UNXP IN QUERY_CONFIG' , 1);
5710: END IF;
5711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5708: IF l_debug_level > 0 THEN
5709: oe_debug_pub.add('EXC_UNXP IN QUERY_CONFIG' , 1);
5710: END IF;
5711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5712:
5713: WHEN OTHERS THEN
5714:
5715: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5722: , 'Query_Config'
5723: );
5724: END IF;
5725:
5726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5727: END Query_Config;
5728:
5729:
5730: /*------------------------------------------------------------
5767: PROCEDURE Complete_Configuration
5768: (p_top_model_line_id IN NUMBER,
5769: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
5770: IS
5771: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5772: l_sort_order VARCHAR2(2000); -- 4336446
5773: l_uom_code VARCHAR2(3);
5774: l_model_seq_id NUMBER;
5775: l_model_comp_seq_id NUMBER;
5824: WHEN OTHERS THEN
5825: IF l_debug_level > 0 THEN
5826: oe_debug_pub.add('EXCEPTION IN SELECT' , 1);
5827: END IF;
5828: RAISE FND_API.G_EXC_ERROR;
5829: END;
5830:
5831:
5832: -- Explode the options in Bom_Explosions
5854: IF l_debug_level > 0 THEN
5855: oe_debug_pub.add('AFTER CALL TO EXPLODE: '|| L_RETURN_STATUS , 2 );
5856: END IF;
5857:
5858: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5860: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5861: RAISE FND_API.G_EXC_ERROR;
5862: END IF;
5855: oe_debug_pub.add('AFTER CALL TO EXPLODE: '|| L_RETURN_STATUS , 2 );
5856: END IF;
5857:
5858: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5860: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5861: RAISE FND_API.G_EXC_ERROR;
5862: END IF;
5863:
5856: END IF;
5857:
5858: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5860: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5861: RAISE FND_API.G_EXC_ERROR;
5862: END IF;
5863:
5864: IF l_model_seq_id is null THEN
5857:
5858: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5860: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5861: RAISE FND_API.G_EXC_ERROR;
5862: END IF;
5863:
5864: IF l_model_seq_id is null THEN
5865:
5878: WHEN NO_DATA_FOUND THEN
5879: IF l_debug_level > 0 THEN
5880: oe_debug_pub.add('COMPONENT_SEQUENCE_ID QUERY FAILED' , 1);
5881: END IF;
5882: RAISE FND_API.G_EXC_ERROR;
5883: END;
5884:
5885: END IF;
5886:
5941: oe_debug_pub.add('SELECT COMP_CODE FAILED , NO DATA FOUND ' , 1);
5942: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5943: END IF;
5944:
5945: x_return_status := FND_API.G_RET_STS_ERROR;
5946:
5947: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_ITEM_NOT_IN_BILL');
5948: FND_MESSAGE.Set_Token('COMPONENT', nvl(line_rec.ordered_item,line_rec.inventory_item_id));
5949: FND_MESSAGE.Set_Token('MODEL', nvl(l_model_ordered_item,l_top_item_id));
5955: oe_debug_pub.add('SELECT COMP_CODE FAILED , TOO_MANY ROWS ' , 1);
5956: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5957: END IF;
5958:
5959: x_return_status := FND_API.G_RET_STS_ERROR;
5960:
5961: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_AMBIGUITY');
5962: FND_MESSAGE.Set_Token('COMPONENT', nvl(line_rec.ordered_item,line_rec.inventory_item_id));
5963: FND_MESSAGE.Set_Token('MODEL', nvl(l_model_ordered_item,l_top_item_id));
5968: IF l_debug_level > 0 THEN
5969: oe_debug_pub.add('SELECT COMP_CODE FAILED , OTHERS ' , 1);
5970: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5971: END IF;
5972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5973: END;
5974:
5975: -- now update the oe table
5976: UPDATE oe_order_lines
5982: WHERE line_id = line_rec.line_id;
5983:
5984: END LOOP;
5985:
5986: x_return_status := FND_API.G_RET_STS_SUCCESS;
5987: IF l_debug_level > 0 THEN
5988: oe_debug_pub.add('LEAVING COMPLETE CONFIGURATION' , 1);
5989: END IF;
5990:
5992: WHEN OTHERS THEN
5993: IF l_debug_level > 0 THEN
5994: oe_debug_pub.add('AMBIGUITY IN BILL'|| SUBSTR ( SQLERRM , 1 , 150 ) , 1);
5995: END IF;
5996: x_return_status := FND_API.G_RET_STS_ERROR;
5997: END Complete_Configuration;
5998:
5999:
6000: /*----------------------------------------------------------------------
6033: l_quantity_reserved NUMBER;
6034: l_message_name VARCHAR2(30);
6035: l_error_message VARCHAR2(2000);
6036: l_result BOOLEAN;
6037: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6038: --
6039: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6040: --
6041: BEGIN
6051: WHEN OTHERS THEN
6052: IF l_debug_level > 0 THEN
6053: oe_debug_pub.add('OTHERS IN MATCH AND RESERVE' , 1);
6054: END IF;
6055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6056: END;
6057:
6058:
6059: IF CTO_MATCH_AND_RESERVE.match_inquiry
6110: WHEN NO_DATA_FOUND THEN
6111: IF l_debug_level > 0 THEN
6112: oe_debug_pub.add('NO DATA FOUND IN MATCH AND RESERVE' , 1);
6113: END IF;
6114: x_return_status := FND_API.G_RET_STS_ERROR;
6115:
6116: WHEN OTHERS THEN
6117: IF l_debug_level > 0 THEN
6118: oe_debug_pub.add('EXCEPTION IN MATCH AND RESERVE' , 1);
6116: WHEN OTHERS THEN
6117: IF l_debug_level > 0 THEN
6118: oe_debug_pub.add('EXCEPTION IN MATCH AND RESERVE' , 1);
6119: END IF;
6120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6121: END Match_and_Reserve;
6122:
6123:
6124: /*----------------------------------------------------------------------
6141: l_table_name VARCHAR2(30);
6142: l_cto_result NUMBER;
6143: l_result BOOLEAN;
6144: l_ordered_item VARCHAR2(2000);
6145: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6146:
6147: l_config_header_id NUMBER;
6148: l_config_line_id NUMBER;
6149: l_source_type VARCHAR2(10);
6171: WHEN OTHERS THEN
6172: IF l_debug_level > 0 THEN
6173: oe_debug_pub.add('DELINK BATCH ERROR' , 1);
6174: END IF;
6175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6176: END;
6177:
6178: IF (l_item_type_code = OE_GLOBALS.G_ITEM_MODEL OR
6179: l_item_type_code = OE_GLOBALS.G_ITEM_CLASS ) AND
6226: , p_mode => 'GET_STATUS'
6227: , x_po_status_rec => l_po_status_rec
6228: , x_return_status => l_return_status);
6229:
6230: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6231: l_autorization_status := l_po_status_rec.authorization_status(1);
6232:
6233: IF l_debug_level > 0 THEN
6234: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
6233: IF l_debug_level > 0 THEN
6234: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
6235: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
6236: END IF;
6237: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6239: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6240: RAISE FND_API.G_EXC_ERROR;
6241: END IF;
6234: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
6235: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
6236: END IF;
6237: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6239: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6240: RAISE FND_API.G_EXC_ERROR;
6241: END IF;
6242:
6235: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
6236: END IF;
6237: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6239: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6240: RAISE FND_API.G_EXC_ERROR;
6241: END IF;
6242:
6243: END IF;
6236: END IF;
6237: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6239: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6240: RAISE FND_API.G_EXC_ERROR;
6241: END IF;
6242:
6243: END IF;
6244:
6307: WHEN NO_DATA_FOUND THEN
6308: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_NO_ITEM_TO_DELINK');
6309: FND_MESSAGE.Set_Token('MODEL', nvl(l_ordered_item,l_inv_item_id));
6310: oe_msg_pub.add;
6311: x_return_status := FND_API.G_RET_STS_ERROR;
6312:
6313: WHEN OTHERS THEN
6314: IF l_debug_level > 0 THEN
6315: oe_debug_pub.add('EXCEPTION IN DELINK_CONFIG' , 1);
6313: WHEN OTHERS THEN
6314: IF l_debug_level > 0 THEN
6315: oe_debug_pub.add('EXCEPTION IN DELINK_CONFIG' , 1);
6316: END IF;
6317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6318: END Delink_Config_batch;
6319:
6320:
6321: /*----------------------------------------------------------------------
6418: l_result BOOLEAN;
6419: l_cto_result NUMBER(38) := 0;
6420: l_ordered_item VARCHAR2(2000);
6421: l_valid NUMBER;
6422: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6423:
6424: --
6425: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6426: --
6439: IF l_debug_level > 0 THEN
6440: oe_debug_pub.add('LINK CONFIG ERROR' , 2 );
6441: END IF;
6442: l_valid := 1;
6443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6444: END;
6445:
6446: IF (l_item_type_code = OE_GLOBALS.G_ITEM_MODEL OR
6447: l_item_type_code = OE_GLOBALS.G_ITEM_CLASS ) AND
6493: FND_MESSAGE.Set_Name('BOM', 'CTO_INVALID_LINK_ERROR');
6494: OE_Msg_Pub.add;
6495: END IF;
6496:
6497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6498: END Link_Config;
6499:
6500:
6501: /*----------------------------------------------------------------------
6524: ,last_update_login = FND_Global.Login_Id
6525: ,lock_control = lock_control + 1
6526: where line_id = p_line_id;
6527:
6528: x_return_status := FND_API.G_RET_STS_SUCCESS;
6529:
6530: IF l_debug_level > 0 THEN
6531: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_COMP_SEQ_ID' , 1);
6532: END IF;
6535: WHEN no_data_found THEN
6536: IF l_debug_level > 0 THEN
6537: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_COMP_SEQ_ID' , 1);
6538: END IF;
6539: x_return_status := FND_API.G_RET_STS_ERROR;
6540:
6541: WHEN others THEN
6542: IF l_debug_level > 0 THEN
6543: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_COMP_SEQ_ID' , 1);
6541: WHEN others THEN
6542: IF l_debug_level > 0 THEN
6543: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_COMP_SEQ_ID' , 1);
6544: END IF;
6545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6546: END Update_Comp_Seq_Id;
6547:
6548:
6549: /*----------------------------------------------------------------------
6572: ,last_update_login = FND_Global.Login_Id
6573: ,lock_control = lock_control + 1
6574: where ato_line_id = p_ato_line_id;
6575:
6576: x_return_status := FND_API.G_RET_STS_SUCCESS;
6577:
6578: IF l_debug_level > 0 THEN
6579: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6580: END IF;
6583: WHEN no_data_found THEN
6584: IF l_debug_level > 0 THEN
6585: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6586: END IF;
6587: x_return_status := FND_API.G_RET_STS_ERROR;
6588:
6589: WHEN others THEN
6590: IF l_debug_level > 0 THEN
6591: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6589: WHEN others THEN
6590: IF l_debug_level > 0 THEN
6591: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6592: END IF;
6593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6594: END Update_Visible_Demand_Flag;
6595:
6596:
6597: /*----------------------------------------------------------------------
6620: ,last_update_login = FND_Global.Login_Id
6621: ,lock_control = lock_control + 1
6622: where ato_line_id = p_ato_line_id;
6623:
6624: x_return_status := FND_API.G_RET_STS_SUCCESS;
6625:
6626: IF l_debug_level > 0 THEN
6627: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_MFG_COMP_SEQ_ID' , 1);
6628: END IF;
6631: WHEN no_data_found THEN
6632: IF l_debug_level > 0 THEN
6633: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_MFG_COMP_SEQ_ID' , 1);
6634: END IF;
6635: x_return_status := FND_API.G_RET_STS_ERROR;
6636:
6637: WHEN others THEN
6638: IF l_debug_level > 0 THEN
6639: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_MFG_COMP_SEQ_ID' , 1);
6637: WHEN others THEN
6638: IF l_debug_level > 0 THEN
6639: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_MFG_COMP_SEQ_ID' , 1);
6640: END IF;
6641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6642: END Update_Mfg_Comp_Seq_Id;
6643:
6644:
6645: /*----------------------------------------------------------------------
6668: ,last_update_login = FND_Global.Login_Id
6669: ,lock_control = lock_control + 1
6670: where ato_line_id = p_ato_line_id;
6671:
6672: x_return_status := FND_API.G_RET_STS_SUCCESS;
6673:
6674: IF l_debug_level > 0 THEN
6675: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_MODEL_GROUP_NUMBER' , 1);
6676: END IF;
6679: WHEN no_data_found THEN
6680: IF l_debug_level > 0 THEN
6681: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_MODEL_GROUP_NUMBER' , 1);
6682: END IF;
6683: x_return_status := FND_API.G_RET_STS_ERROR;
6684:
6685: WHEN others THEN
6686: IF l_debug_level > 0 THEN
6687: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_MODEL_GROUP_NUMBER' , 1);
6685: WHEN others THEN
6686: IF l_debug_level > 0 THEN
6687: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_MODEL_GROUP_NUMBER' , 1);
6688: END IF;
6689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6690: END Update_Model_Group_Number;
6691:
6692:
6693: /*----------------------------------------------------------------------
6722: ,last_update_login = FND_Global.Login_Id
6723: ,lock_control = lock_control + 1
6724: where ato_line_id = p_ato_line_id;
6725:
6726: x_return_status := FND_API.G_RET_STS_SUCCESS;
6727:
6728: IF l_debug_level > 0 THEN
6729: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_CTO_COLUMNS' , 1);
6730: END IF;
6733: WHEN no_data_found THEN
6734: IF l_debug_level > 0 THEN
6735: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_CTO_COLUMNS' , 1);
6736: END IF;
6737: x_return_status := FND_API.G_RET_STS_ERROR;
6738:
6739: WHEN others THEN
6740: IF l_debug_level > 0 THEN
6741: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_CTO_COLUMNS' , 1);
6739: WHEN others THEN
6740: IF l_debug_level > 0 THEN
6741: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_CTO_COLUMNS' , 1);
6742: END IF;
6743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6744: END Update_Cto_Columns;
6745:
6746:
6747: /*------------------------------------------------------------------
6762: ,p_decimal_tbl IN OE_Order_PUB.request_tbl_type
6763: := OE_Order_Pub.G_MISS_REQUEST_TBL
6764: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
6765: IS
6766: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6767: l_msg_count NUMBER;
6768: l_msg_data VARCHAR2(2000);
6769: l_cto_change_tbl CTO_CHANGE_ORDER_PK.CHANGE_TABLE_TYPE;
6770: l_ato_line_id NUMBER := p_ato_line_id;
6946: WHEN OTHERS THEN
6947: IF l_debug_level > 0 THEN
6948: oe_debug_pub.add('EXCEPTION NOTIFY_CTO'|| SQLERRM , 1);
6949: END IF;
6950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6951: END;
6952:
6953:
6954: /*------------------------------------------------------------------
7114: BEGIN
7115: IF l_debug_level > 0 THEN
7116: oe_debug_pub.add('ENTERING DEFAULT_CHILD_LINE' , 1);
7117: END IF;
7118: x_return_status := FND_API.G_RET_STS_SUCCESS;
7119:
7120: IF p_parent_line_rec.header_id is NULL OR
7121: p_parent_line_rec.top_model_line_id is NULL THEN
7122:
7126: FND_Message.Set_Name('ONT', 'OE_CONFIG_WRONG_MODEL_LINK');
7127: FND_MESSAGE.Set_TOKEN('ITEM', nvl(p_x_child_line_rec.ordered_item
7128: ,p_x_child_line_rec.inventory_item_id));
7129: OE_Msg_Pub.add();
7130: x_return_status := FND_API.G_RET_STS_ERROR;
7131: RAISE FND_API.G_EXC_ERROR;
7132: END IF;
7133:
7134: p_x_child_line_rec.shipment_number := p_parent_line_rec.shipment_number;
7127: FND_MESSAGE.Set_TOKEN('ITEM', nvl(p_x_child_line_rec.ordered_item
7128: ,p_x_child_line_rec.inventory_item_id));
7129: OE_Msg_Pub.add();
7130: x_return_status := FND_API.G_RET_STS_ERROR;
7131: RAISE FND_API.G_EXC_ERROR;
7132: END IF;
7133:
7134: p_x_child_line_rec.shipment_number := p_parent_line_rec.shipment_number;
7135: p_x_child_line_rec.line_number := p_parent_line_rec.line_number;
7155: --{ Start fix for bug 2652187
7156: ---commenting out for fix# 10364601 p_x_child_line_rec.customer_line_number := p_parent_line_rec.customer_line_number;
7157: -- End fix for bug 2652187 }
7158: ---START bug 10364601
7159: IF p_x_child_line_rec.customer_line_number <> FND_API.G_MISS_CHAR THEN
7160: p_x_child_line_rec.customer_line_number := Nvl(p_x_child_line_rec.customer_line_number,p_parent_line_rec.customer_line_number);
7161: ELSE
7162: --{ Start fix for bug 2652187
7163: p_x_child_line_rec.customer_line_number :=p_parent_line_rec.customer_line_number;
7205: p_x_child_line_rec.model_remnant_flag := p_parent_line_rec.model_remnant_flag;
7206:
7207: -- MACD ---------------------------------------------------------------
7208: IF p_x_child_line_rec.line_type_id IS NOT NULL OR
7209: p_x_child_line_rec.line_type_id <> FND_API.G_MISS_NUM THEN
7210:
7211: IF l_debug_level > 0 THEN
7212: OE_DEBUG_PUB.Add('LineTypeID:'||p_x_child_line_rec.line_type_id,3);
7213: OE_DEBUG_PUB.Add('Inventory Item ID (from Parent Line):'
7294: oe_debug_pub.add('COPYING DFF TO CHILD' , 1);
7295: END IF;
7296:
7297: IF p_x_child_line_rec.attribute1 is null OR
7298: p_x_child_line_rec.attribute1 = FND_API.G_MISS_CHAR THEN
7299: p_x_child_line_rec.attribute1 := p_parent_line_rec.attribute1;
7300: END IF;
7301:
7302: IF p_x_child_line_rec.attribute2 is null OR
7299: p_x_child_line_rec.attribute1 := p_parent_line_rec.attribute1;
7300: END IF;
7301:
7302: IF p_x_child_line_rec.attribute2 is null OR
7303: p_x_child_line_rec.attribute2 = FND_API.G_MISS_CHAR THEN
7304: p_x_child_line_rec.attribute2 := p_parent_line_rec.attribute2;
7305: END IF;
7306:
7307: IF p_x_child_line_rec.attribute3 is null OR
7304: p_x_child_line_rec.attribute2 := p_parent_line_rec.attribute2;
7305: END IF;
7306:
7307: IF p_x_child_line_rec.attribute3 is null OR
7308: p_x_child_line_rec.attribute3 = FND_API.G_MISS_CHAR THEN
7309: p_x_child_line_rec.attribute3 := p_parent_line_rec.attribute3;
7310: END IF;
7311:
7312: IF p_x_child_line_rec.attribute4 is null OR
7309: p_x_child_line_rec.attribute3 := p_parent_line_rec.attribute3;
7310: END IF;
7311:
7312: IF p_x_child_line_rec.attribute4 is null OR
7313: p_x_child_line_rec.attribute4 = FND_API.G_MISS_CHAR THEN
7314: p_x_child_line_rec.attribute4 := p_parent_line_rec.attribute4;
7315: END IF;
7316:
7317: IF p_x_child_line_rec.attribute5 is null OR
7314: p_x_child_line_rec.attribute4 := p_parent_line_rec.attribute4;
7315: END IF;
7316:
7317: IF p_x_child_line_rec.attribute5 is null OR
7318: p_x_child_line_rec.attribute5 = FND_API.G_MISS_CHAR THEN
7319: p_x_child_line_rec.attribute5 := p_parent_line_rec.attribute5;
7320: END IF;
7321:
7322: IF p_x_child_line_rec.attribute6 is null OR
7319: p_x_child_line_rec.attribute5 := p_parent_line_rec.attribute5;
7320: END IF;
7321:
7322: IF p_x_child_line_rec.attribute6 is null OR
7323: p_x_child_line_rec.attribute6 = FND_API.G_MISS_CHAR THEN
7324: p_x_child_line_rec.attribute6 := p_parent_line_rec.attribute6;
7325: END IF;
7326:
7327: IF p_x_child_line_rec.attribute7 is null OR
7324: p_x_child_line_rec.attribute6 := p_parent_line_rec.attribute6;
7325: END IF;
7326:
7327: IF p_x_child_line_rec.attribute7 is null OR
7328: p_x_child_line_rec.attribute7 = FND_API.G_MISS_CHAR THEN
7329: p_x_child_line_rec.attribute7 := p_parent_line_rec.attribute7;
7330: END IF;
7331:
7332: IF p_x_child_line_rec.attribute8 is null OR
7329: p_x_child_line_rec.attribute7 := p_parent_line_rec.attribute7;
7330: END IF;
7331:
7332: IF p_x_child_line_rec.attribute8 is null OR
7333: p_x_child_line_rec.attribute8 = FND_API.G_MISS_CHAR THEN
7334: p_x_child_line_rec.attribute8 := p_parent_line_rec.attribute8;
7335: END IF;
7336:
7337: IF p_x_child_line_rec.attribute9 is null OR
7334: p_x_child_line_rec.attribute8 := p_parent_line_rec.attribute8;
7335: END IF;
7336:
7337: IF p_x_child_line_rec.attribute9 is null OR
7338: p_x_child_line_rec.attribute9 = FND_API.G_MISS_CHAR THEN
7339: p_x_child_line_rec.attribute9 := p_parent_line_rec.attribute9;
7340: END IF;
7341:
7342: IF p_x_child_line_rec.attribute10 is null OR
7339: p_x_child_line_rec.attribute9 := p_parent_line_rec.attribute9;
7340: END IF;
7341:
7342: IF p_x_child_line_rec.attribute10 is null OR
7343: p_x_child_line_rec.attribute10 = FND_API.G_MISS_CHAR THEN
7344: p_x_child_line_rec.attribute10 := p_parent_line_rec.attribute10;
7345: END IF;
7346:
7347: IF p_x_child_line_rec.attribute11 is null OR
7344: p_x_child_line_rec.attribute10 := p_parent_line_rec.attribute10;
7345: END IF;
7346:
7347: IF p_x_child_line_rec.attribute11 is null OR
7348: p_x_child_line_rec.attribute11 = FND_API.G_MISS_CHAR THEN
7349: p_x_child_line_rec.attribute11 := p_parent_line_rec.attribute11;
7350: END IF;
7351:
7352: IF p_x_child_line_rec.attribute12 is null OR
7349: p_x_child_line_rec.attribute11 := p_parent_line_rec.attribute11;
7350: END IF;
7351:
7352: IF p_x_child_line_rec.attribute12 is null OR
7353: p_x_child_line_rec.attribute12 = FND_API.G_MISS_CHAR THEN
7354: p_x_child_line_rec.attribute12 := p_parent_line_rec.attribute12;
7355: END IF;
7356:
7357: IF p_x_child_line_rec.attribute13 is null OR
7354: p_x_child_line_rec.attribute12 := p_parent_line_rec.attribute12;
7355: END IF;
7356:
7357: IF p_x_child_line_rec.attribute13 is null OR
7358: p_x_child_line_rec.attribute13 = FND_API.G_MISS_CHAR THEN
7359: p_x_child_line_rec.attribute13 := p_parent_line_rec.attribute13;
7360: END IF;
7361:
7362: IF p_x_child_line_rec.attribute14 is null OR
7359: p_x_child_line_rec.attribute13 := p_parent_line_rec.attribute13;
7360: END IF;
7361:
7362: IF p_x_child_line_rec.attribute14 is null OR
7363: p_x_child_line_rec.attribute14 = FND_API.G_MISS_CHAR THEN
7364: p_x_child_line_rec.attribute14 := p_parent_line_rec.attribute14;
7365: END IF;
7366:
7367: IF p_x_child_line_rec.attribute15 is null OR
7364: p_x_child_line_rec.attribute14 := p_parent_line_rec.attribute14;
7365: END IF;
7366:
7367: IF p_x_child_line_rec.attribute15 is null OR
7368: p_x_child_line_rec.attribute15 = FND_API.G_MISS_CHAR THEN
7369: p_x_child_line_rec.attribute15 := p_parent_line_rec.attribute15;
7370: END IF;
7371:
7372: IF p_x_child_line_rec.attribute16 is null OR -- for bug 2184255
7369: p_x_child_line_rec.attribute15 := p_parent_line_rec.attribute15;
7370: END IF;
7371:
7372: IF p_x_child_line_rec.attribute16 is null OR -- for bug 2184255
7373: p_x_child_line_rec.attribute16 = FND_API.G_MISS_CHAR THEN
7374: p_x_child_line_rec.attribute16 := p_parent_line_rec.attribute16;
7375: END IF;
7376:
7377: IF p_x_child_line_rec.attribute17 is null OR
7374: p_x_child_line_rec.attribute16 := p_parent_line_rec.attribute16;
7375: END IF;
7376:
7377: IF p_x_child_line_rec.attribute17 is null OR
7378: p_x_child_line_rec.attribute17 = FND_API.G_MISS_CHAR THEN
7379: p_x_child_line_rec.attribute17 := p_parent_line_rec.attribute17;
7380: END IF;
7381:
7382: IF p_x_child_line_rec.attribute18 is null OR
7379: p_x_child_line_rec.attribute17 := p_parent_line_rec.attribute17;
7380: END IF;
7381:
7382: IF p_x_child_line_rec.attribute18 is null OR
7383: p_x_child_line_rec.attribute18 = FND_API.G_MISS_CHAR THEN
7384: p_x_child_line_rec.attribute18 := p_parent_line_rec.attribute18;
7385: END IF;
7386:
7387: IF p_x_child_line_rec.attribute19 is null OR
7384: p_x_child_line_rec.attribute18 := p_parent_line_rec.attribute18;
7385: END IF;
7386:
7387: IF p_x_child_line_rec.attribute19 is null OR
7388: p_x_child_line_rec.attribute19 = FND_API.G_MISS_CHAR THEN
7389: p_x_child_line_rec.attribute19 := p_parent_line_rec.attribute19;
7390: END IF;
7391:
7392: IF p_x_child_line_rec.attribute20 is null OR -- for bug 2184255
7389: p_x_child_line_rec.attribute19 := p_parent_line_rec.attribute19;
7390: END IF;
7391:
7392: IF p_x_child_line_rec.attribute20 is null OR -- for bug 2184255
7393: p_x_child_line_rec.attribute20 = FND_API.G_MISS_CHAR THEN
7394: p_x_child_line_rec.attribute20 := p_parent_line_rec.attribute20;
7395: END IF;
7396:
7397: IF p_x_child_line_rec.context is null OR
7394: p_x_child_line_rec.attribute20 := p_parent_line_rec.attribute20;
7395: END IF;
7396:
7397: IF p_x_child_line_rec.context is null OR
7398: p_x_child_line_rec.context = FND_API.G_MISS_CHAR THEN
7399: p_x_child_line_rec.context := p_parent_line_rec.context;
7400: END IF;
7401:
7402: IF p_x_child_line_rec.industry_attribute1 is null OR
7399: p_x_child_line_rec.context := p_parent_line_rec.context;
7400: END IF;
7401:
7402: IF p_x_child_line_rec.industry_attribute1 is null OR
7403: p_x_child_line_rec.industry_attribute1 = FND_API.G_MISS_CHAR THEN
7404: p_x_child_line_rec.industry_attribute1 := p_parent_line_rec.industry_attribute1;
7405: END IF;
7406:
7407: IF p_x_child_line_rec.industry_attribute2 is null OR
7404: p_x_child_line_rec.industry_attribute1 := p_parent_line_rec.industry_attribute1;
7405: END IF;
7406:
7407: IF p_x_child_line_rec.industry_attribute2 is null OR
7408: p_x_child_line_rec.industry_attribute2 = FND_API.G_MISS_CHAR THEN
7409: p_x_child_line_rec.industry_attribute2 := p_parent_line_rec.industry_attribute2;
7410: END IF;
7411:
7412: IF p_x_child_line_rec.industry_attribute3 is null OR
7409: p_x_child_line_rec.industry_attribute2 := p_parent_line_rec.industry_attribute2;
7410: END IF;
7411:
7412: IF p_x_child_line_rec.industry_attribute3 is null OR
7413: p_x_child_line_rec.industry_attribute3 = FND_API.G_MISS_CHAR THEN
7414: p_x_child_line_rec.industry_attribute3 := p_parent_line_rec.industry_attribute3;
7415: END IF;
7416:
7417: IF p_x_child_line_rec.industry_attribute4 is null OR
7414: p_x_child_line_rec.industry_attribute3 := p_parent_line_rec.industry_attribute3;
7415: END IF;
7416:
7417: IF p_x_child_line_rec.industry_attribute4 is null OR
7418: p_x_child_line_rec.industry_attribute4 = FND_API.G_MISS_CHAR THEN
7419: p_x_child_line_rec.industry_attribute4 := p_parent_line_rec.industry_attribute4;
7420: END IF;
7421:
7422: IF p_x_child_line_rec.industry_attribute5 is null OR
7419: p_x_child_line_rec.industry_attribute4 := p_parent_line_rec.industry_attribute4;
7420: END IF;
7421:
7422: IF p_x_child_line_rec.industry_attribute5 is null OR
7423: p_x_child_line_rec.industry_attribute5 = FND_API.G_MISS_CHAR THEN
7424: p_x_child_line_rec.industry_attribute5 := p_parent_line_rec.industry_attribute5;
7425: END IF;
7426:
7427: IF p_x_child_line_rec.industry_attribute6 is null OR
7424: p_x_child_line_rec.industry_attribute5 := p_parent_line_rec.industry_attribute5;
7425: END IF;
7426:
7427: IF p_x_child_line_rec.industry_attribute6 is null OR
7428: p_x_child_line_rec.industry_attribute6 = FND_API.G_MISS_CHAR THEN
7429: p_x_child_line_rec.industry_attribute6 := p_parent_line_rec.industry_attribute6;
7430: END IF;
7431:
7432: IF p_x_child_line_rec.industry_attribute7 is null OR
7429: p_x_child_line_rec.industry_attribute6 := p_parent_line_rec.industry_attribute6;
7430: END IF;
7431:
7432: IF p_x_child_line_rec.industry_attribute7 is null OR
7433: p_x_child_line_rec.industry_attribute7 = FND_API.G_MISS_CHAR THEN
7434: p_x_child_line_rec.industry_attribute7 := p_parent_line_rec.industry_attribute7;
7435: END IF;
7436:
7437: IF p_x_child_line_rec.industry_attribute8 is null OR
7434: p_x_child_line_rec.industry_attribute7 := p_parent_line_rec.industry_attribute7;
7435: END IF;
7436:
7437: IF p_x_child_line_rec.industry_attribute8 is null OR
7438: p_x_child_line_rec.industry_attribute8 = FND_API.G_MISS_CHAR THEN
7439: p_x_child_line_rec.industry_attribute8 := p_parent_line_rec.industry_attribute8;
7440: END IF;
7441:
7442: IF p_x_child_line_rec.industry_attribute9 is null OR
7439: p_x_child_line_rec.industry_attribute8 := p_parent_line_rec.industry_attribute8;
7440: END IF;
7441:
7442: IF p_x_child_line_rec.industry_attribute9 is null OR
7443: p_x_child_line_rec.industry_attribute9 = FND_API.G_MISS_CHAR THEN
7444: p_x_child_line_rec.industry_attribute9 := p_parent_line_rec.industry_attribute9;
7445: END IF;
7446:
7447: IF p_x_child_line_rec.industry_attribute10 is null OR
7444: p_x_child_line_rec.industry_attribute9 := p_parent_line_rec.industry_attribute9;
7445: END IF;
7446:
7447: IF p_x_child_line_rec.industry_attribute10 is null OR
7448: p_x_child_line_rec.industry_attribute10 = FND_API.G_MISS_CHAR THEN
7449: p_x_child_line_rec.industry_attribute10 := p_parent_line_rec.industry_attribute10;
7450: END IF;
7451:
7452: IF p_x_child_line_rec.industry_attribute11 is null OR
7449: p_x_child_line_rec.industry_attribute10 := p_parent_line_rec.industry_attribute10;
7450: END IF;
7451:
7452: IF p_x_child_line_rec.industry_attribute11 is null OR
7453: p_x_child_line_rec.industry_attribute11 = FND_API.G_MISS_CHAR THEN
7454: p_x_child_line_rec.industry_attribute11 := p_parent_line_rec.industry_attribute11;
7455: END IF;
7456:
7457: IF p_x_child_line_rec.industry_attribute12 is null OR
7454: p_x_child_line_rec.industry_attribute11 := p_parent_line_rec.industry_attribute11;
7455: END IF;
7456:
7457: IF p_x_child_line_rec.industry_attribute12 is null OR
7458: p_x_child_line_rec.industry_attribute12 = FND_API.G_MISS_CHAR THEN
7459: p_x_child_line_rec.industry_attribute12 := p_parent_line_rec.industry_attribute12;
7460: END IF;
7461:
7462: IF p_x_child_line_rec.industry_attribute13 is null OR
7459: p_x_child_line_rec.industry_attribute12 := p_parent_line_rec.industry_attribute12;
7460: END IF;
7461:
7462: IF p_x_child_line_rec.industry_attribute13 is null OR
7463: p_x_child_line_rec.industry_attribute13 = FND_API.G_MISS_CHAR THEN
7464: p_x_child_line_rec.industry_attribute13 := p_parent_line_rec.industry_attribute13;
7465: END IF;
7466:
7467: IF p_x_child_line_rec.industry_attribute14 is null OR
7464: p_x_child_line_rec.industry_attribute13 := p_parent_line_rec.industry_attribute13;
7465: END IF;
7466:
7467: IF p_x_child_line_rec.industry_attribute14 is null OR
7468: p_x_child_line_rec.industry_attribute14 = FND_API.G_MISS_CHAR THEN
7469: p_x_child_line_rec.industry_attribute14 := p_parent_line_rec.industry_attribute14;
7470: END IF;
7471:
7472: IF p_x_child_line_rec.industry_attribute15 is null OR
7469: p_x_child_line_rec.industry_attribute14 := p_parent_line_rec.industry_attribute14;
7470: END IF;
7471:
7472: IF p_x_child_line_rec.industry_attribute15 is null OR
7473: p_x_child_line_rec.industry_attribute15 = FND_API.G_MISS_CHAR THEN
7474: p_x_child_line_rec.industry_attribute15 := p_parent_line_rec.industry_attribute15;
7475: END IF;
7476:
7477: IF p_x_child_line_rec.industry_attribute16 is null OR
7474: p_x_child_line_rec.industry_attribute15 := p_parent_line_rec.industry_attribute15;
7475: END IF;
7476:
7477: IF p_x_child_line_rec.industry_attribute16 is null OR
7478: p_x_child_line_rec.industry_attribute16 = FND_API.G_MISS_CHAR THEN
7479: p_x_child_line_rec.industry_attribute16 := p_parent_line_rec.industry_attribute16;
7480: END IF;
7481: IF p_x_child_line_rec.industry_attribute17 is null OR
7482: p_x_child_line_rec.industry_attribute17 = FND_API.G_MISS_CHAR THEN
7478: p_x_child_line_rec.industry_attribute16 = FND_API.G_MISS_CHAR THEN
7479: p_x_child_line_rec.industry_attribute16 := p_parent_line_rec.industry_attribute16;
7480: END IF;
7481: IF p_x_child_line_rec.industry_attribute17 is null OR
7482: p_x_child_line_rec.industry_attribute17 = FND_API.G_MISS_CHAR THEN
7483: p_x_child_line_rec.industry_attribute17 := p_parent_line_rec.industry_attribute17;
7484: END IF;
7485:
7486: IF p_x_child_line_rec.industry_attribute18 is null OR
7483: p_x_child_line_rec.industry_attribute17 := p_parent_line_rec.industry_attribute17;
7484: END IF;
7485:
7486: IF p_x_child_line_rec.industry_attribute18 is null OR
7487: p_x_child_line_rec.industry_attribute18 = FND_API.G_MISS_CHAR THEN
7488: p_x_child_line_rec.industry_attribute18 := p_parent_line_rec.industry_attribute18;
7489: END IF;
7490:
7491: IF p_x_child_line_rec.industry_attribute19 is null OR
7488: p_x_child_line_rec.industry_attribute18 := p_parent_line_rec.industry_attribute18;
7489: END IF;
7490:
7491: IF p_x_child_line_rec.industry_attribute19 is null OR
7492: p_x_child_line_rec.industry_attribute19 = FND_API.G_MISS_CHAR THEN
7493: p_x_child_line_rec.industry_attribute19 := p_parent_line_rec.industry_attribute19;
7494: END IF;
7495:
7496: IF p_x_child_line_rec.industry_attribute20 is null OR
7493: p_x_child_line_rec.industry_attribute19 := p_parent_line_rec.industry_attribute19;
7494: END IF;
7495:
7496: IF p_x_child_line_rec.industry_attribute20 is null OR
7497: p_x_child_line_rec.industry_attribute20 = FND_API.G_MISS_CHAR THEN
7498: p_x_child_line_rec.industry_attribute20 := p_parent_line_rec.industry_attribute20;
7499: END IF;
7500:
7501: IF p_x_child_line_rec.industry_attribute21 is null OR
7498: p_x_child_line_rec.industry_attribute20 := p_parent_line_rec.industry_attribute20;
7499: END IF;
7500:
7501: IF p_x_child_line_rec.industry_attribute21 is null OR
7502: p_x_child_line_rec.industry_attribute21 = FND_API.G_MISS_CHAR THEN
7503: p_x_child_line_rec.industry_attribute21 := p_parent_line_rec.industry_attribute21;
7504: END IF;
7505:
7506: IF p_x_child_line_rec.industry_attribute22 is null OR
7503: p_x_child_line_rec.industry_attribute21 := p_parent_line_rec.industry_attribute21;
7504: END IF;
7505:
7506: IF p_x_child_line_rec.industry_attribute22 is null OR
7507: p_x_child_line_rec.industry_attribute22 = FND_API.G_MISS_CHAR THEN
7508: p_x_child_line_rec.industry_attribute22 := p_parent_line_rec.industry_attribute22;
7509: END IF;
7510:
7511: IF p_x_child_line_rec.industry_attribute23 is null OR
7508: p_x_child_line_rec.industry_attribute22 := p_parent_line_rec.industry_attribute22;
7509: END IF;
7510:
7511: IF p_x_child_line_rec.industry_attribute23 is null OR
7512: p_x_child_line_rec.industry_attribute23 = FND_API.G_MISS_CHAR THEN
7513: p_x_child_line_rec.industry_attribute23 := p_parent_line_rec.industry_attribute23;
7514: END IF;
7515:
7516: IF p_x_child_line_rec.industry_attribute24 is null OR
7513: p_x_child_line_rec.industry_attribute23 := p_parent_line_rec.industry_attribute23;
7514: END IF;
7515:
7516: IF p_x_child_line_rec.industry_attribute24 is null OR
7517: p_x_child_line_rec.industry_attribute24 = FND_API.G_MISS_CHAR THEN
7518: p_x_child_line_rec.industry_attribute24 := p_parent_line_rec.industry_attribute24;
7519: END IF;
7520:
7521: IF p_x_child_line_rec.industry_attribute25 is null OR
7518: p_x_child_line_rec.industry_attribute24 := p_parent_line_rec.industry_attribute24;
7519: END IF;
7520:
7521: IF p_x_child_line_rec.industry_attribute25 is null OR
7522: p_x_child_line_rec.industry_attribute25 = FND_API.G_MISS_CHAR THEN
7523: p_x_child_line_rec.industry_attribute25 := p_parent_line_rec.industry_attribute25;
7524: END IF;
7525:
7526: IF p_x_child_line_rec.industry_attribute26 is null OR
7523: p_x_child_line_rec.industry_attribute25 := p_parent_line_rec.industry_attribute25;
7524: END IF;
7525:
7526: IF p_x_child_line_rec.industry_attribute26 is null OR
7527: p_x_child_line_rec.industry_attribute26 = FND_API.G_MISS_CHAR THEN
7528: p_x_child_line_rec.industry_attribute26 := p_parent_line_rec.industry_attribute26;
7529: END IF;
7530: IF p_x_child_line_rec.industry_attribute27 is null OR
7531: p_x_child_line_rec.industry_attribute27 = FND_API.G_MISS_CHAR THEN
7527: p_x_child_line_rec.industry_attribute26 = FND_API.G_MISS_CHAR THEN
7528: p_x_child_line_rec.industry_attribute26 := p_parent_line_rec.industry_attribute26;
7529: END IF;
7530: IF p_x_child_line_rec.industry_attribute27 is null OR
7531: p_x_child_line_rec.industry_attribute27 = FND_API.G_MISS_CHAR THEN
7532: p_x_child_line_rec.industry_attribute27 := p_parent_line_rec.industry_attribute27;
7533: END IF;
7534:
7535: IF p_x_child_line_rec.industry_attribute28 is null OR
7532: p_x_child_line_rec.industry_attribute27 := p_parent_line_rec.industry_attribute27;
7533: END IF;
7534:
7535: IF p_x_child_line_rec.industry_attribute28 is null OR
7536: p_x_child_line_rec.industry_attribute28 = FND_API.G_MISS_CHAR THEN
7537: p_x_child_line_rec.industry_attribute28 := p_parent_line_rec.industry_attribute28;
7538: END IF;
7539:
7540: IF p_x_child_line_rec.industry_attribute29 is null OR
7537: p_x_child_line_rec.industry_attribute28 := p_parent_line_rec.industry_attribute28;
7538: END IF;
7539:
7540: IF p_x_child_line_rec.industry_attribute29 is null OR
7541: p_x_child_line_rec.industry_attribute29 = FND_API.G_MISS_CHAR THEN
7542: p_x_child_line_rec.industry_attribute29 := p_parent_line_rec.industry_attribute29;
7543: END IF;
7544:
7545: IF p_x_child_line_rec.industry_attribute30 is null OR
7542: p_x_child_line_rec.industry_attribute29 := p_parent_line_rec.industry_attribute29;
7543: END IF;
7544:
7545: IF p_x_child_line_rec.industry_attribute30 is null OR
7546: p_x_child_line_rec.industry_attribute30 = FND_API.G_MISS_CHAR THEN
7547: p_x_child_line_rec.industry_attribute30 := p_parent_line_rec.industry_attribute30;
7548: END IF;
7549:
7550: IF p_x_child_line_rec.industry_context is null OR
7547: p_x_child_line_rec.industry_attribute30 := p_parent_line_rec.industry_attribute30;
7548: END IF;
7549:
7550: IF p_x_child_line_rec.industry_context is null OR
7551: p_x_child_line_rec.industry_context = FND_API.G_MISS_CHAR THEN
7552: p_x_child_line_rec.industry_context := p_parent_line_rec.industry_context;
7553: END IF;
7554: -----Start bug 11871834 ,11923383
7555: IF p_x_child_line_rec.tp_attribute1 is null OR
7552: p_x_child_line_rec.industry_context := p_parent_line_rec.industry_context;
7553: END IF;
7554: -----Start bug 11871834 ,11923383
7555: IF p_x_child_line_rec.tp_attribute1 is null OR
7556: p_x_child_line_rec.tp_attribute1 = FND_API.G_MISS_CHAR THEN
7557: p_x_child_line_rec.tp_attribute1 := p_parent_line_rec.tp_attribute1;
7558: END IF;
7559:
7560: IF p_x_child_line_rec.tp_attribute2 is null OR
7557: p_x_child_line_rec.tp_attribute1 := p_parent_line_rec.tp_attribute1;
7558: END IF;
7559:
7560: IF p_x_child_line_rec.tp_attribute2 is null OR
7561: p_x_child_line_rec.tp_attribute2 = FND_API.G_MISS_CHAR THEN
7562: p_x_child_line_rec.tp_attribute2 := p_parent_line_rec.tp_attribute2;
7563: END IF;
7564:
7565: IF p_x_child_line_rec.tp_attribute3 is null OR
7562: p_x_child_line_rec.tp_attribute2 := p_parent_line_rec.tp_attribute2;
7563: END IF;
7564:
7565: IF p_x_child_line_rec.tp_attribute3 is null OR
7566: p_x_child_line_rec.tp_attribute3 = FND_API.G_MISS_CHAR THEN
7567: p_x_child_line_rec.tp_attribute3 := p_parent_line_rec.tp_attribute3;
7568: END IF;
7569:
7570: IF p_x_child_line_rec.tp_attribute4 is null OR
7567: p_x_child_line_rec.tp_attribute3 := p_parent_line_rec.tp_attribute3;
7568: END IF;
7569:
7570: IF p_x_child_line_rec.tp_attribute4 is null OR
7571: p_x_child_line_rec.tp_attribute4 = FND_API.G_MISS_CHAR THEN
7572: p_x_child_line_rec.tp_attribute4 := p_parent_line_rec.tp_attribute4;
7573: END IF;
7574:
7575: IF p_x_child_line_rec.tp_attribute5 is null OR
7572: p_x_child_line_rec.tp_attribute4 := p_parent_line_rec.tp_attribute4;
7573: END IF;
7574:
7575: IF p_x_child_line_rec.tp_attribute5 is null OR
7576: p_x_child_line_rec.tp_attribute5 = FND_API.G_MISS_CHAR THEN
7577: p_x_child_line_rec.tp_attribute5 := p_parent_line_rec.tp_attribute5;
7578: END IF;
7579:
7580: IF p_x_child_line_rec.tp_attribute6 is null OR
7577: p_x_child_line_rec.tp_attribute5 := p_parent_line_rec.tp_attribute5;
7578: END IF;
7579:
7580: IF p_x_child_line_rec.tp_attribute6 is null OR
7581: p_x_child_line_rec.tp_attribute6 = FND_API.G_MISS_CHAR THEN
7582: p_x_child_line_rec.tp_attribute6 := p_parent_line_rec.tp_attribute6;
7583: END IF;
7584:
7585: IF p_x_child_line_rec.tp_attribute7 is null OR
7582: p_x_child_line_rec.tp_attribute6 := p_parent_line_rec.tp_attribute6;
7583: END IF;
7584:
7585: IF p_x_child_line_rec.tp_attribute7 is null OR
7586: p_x_child_line_rec.tp_attribute7 = FND_API.G_MISS_CHAR THEN
7587: p_x_child_line_rec.tp_attribute7 := p_parent_line_rec.tp_attribute7;
7588: END IF;
7589:
7590: IF p_x_child_line_rec.tp_attribute8 is null OR
7587: p_x_child_line_rec.tp_attribute7 := p_parent_line_rec.tp_attribute7;
7588: END IF;
7589:
7590: IF p_x_child_line_rec.tp_attribute8 is null OR
7591: p_x_child_line_rec.tp_attribute8 = FND_API.G_MISS_CHAR THEN
7592: p_x_child_line_rec.tp_attribute8 := p_parent_line_rec.tp_attribute8;
7593: END IF;
7594:
7595: IF p_x_child_line_rec.tp_attribute9 is null OR
7592: p_x_child_line_rec.tp_attribute8 := p_parent_line_rec.tp_attribute8;
7593: END IF;
7594:
7595: IF p_x_child_line_rec.tp_attribute9 is null OR
7596: p_x_child_line_rec.tp_attribute9 = FND_API.G_MISS_CHAR THEN
7597: p_x_child_line_rec.tp_attribute9 :=p_parent_line_rec.tp_attribute9;
7598: END IF;
7599:
7600: IF p_x_child_line_rec.tp_attribute10 is null OR
7597: p_x_child_line_rec.tp_attribute9 :=p_parent_line_rec.tp_attribute9;
7598: END IF;
7599:
7600: IF p_x_child_line_rec.tp_attribute10 is null OR
7601: p_x_child_line_rec.tp_attribute10 = FND_API.G_MISS_CHAR THEN
7602: p_x_child_line_rec.tp_attribute10 := p_parent_line_rec.tp_attribute10;
7603: END IF;
7604:
7605: IF p_x_child_line_rec.tp_attribute11 is null OR
7602: p_x_child_line_rec.tp_attribute10 := p_parent_line_rec.tp_attribute10;
7603: END IF;
7604:
7605: IF p_x_child_line_rec.tp_attribute11 is null OR
7606: p_x_child_line_rec.tp_attribute11 = FND_API.G_MISS_CHAR THEN
7607: p_x_child_line_rec.tp_attribute11 := p_parent_line_rec.tp_attribute11;
7608: END IF;
7609:
7610: IF p_x_child_line_rec.tp_attribute12 is null OR
7607: p_x_child_line_rec.tp_attribute11 := p_parent_line_rec.tp_attribute11;
7608: END IF;
7609:
7610: IF p_x_child_line_rec.tp_attribute12 is null OR
7611: p_x_child_line_rec.tp_attribute12 = FND_API.G_MISS_CHAR THEN
7612: p_x_child_line_rec.tp_attribute12 := p_parent_line_rec.tp_attribute12;
7613: END IF;
7614:
7615: IF p_x_child_line_rec.tp_attribute13 is null OR
7612: p_x_child_line_rec.tp_attribute12 := p_parent_line_rec.tp_attribute12;
7613: END IF;
7614:
7615: IF p_x_child_line_rec.tp_attribute13 is null OR
7616: p_x_child_line_rec.tp_attribute13 = FND_API.G_MISS_CHAR THEN
7617: p_x_child_line_rec.tp_attribute13 := p_parent_line_rec.tp_attribute13;
7618: END IF;
7619:
7620: IF p_x_child_line_rec.tp_attribute14 is null OR
7617: p_x_child_line_rec.tp_attribute13 := p_parent_line_rec.tp_attribute13;
7618: END IF;
7619:
7620: IF p_x_child_line_rec.tp_attribute14 is null OR
7621: p_x_child_line_rec.tp_attribute14 = FND_API.G_MISS_CHAR THEN
7622: p_x_child_line_rec.tp_attribute14 := p_parent_line_rec.tp_attribute14;
7623: END IF;
7624:
7625: IF p_x_child_line_rec.tp_attribute15 is null OR
7622: p_x_child_line_rec.tp_attribute14 := p_parent_line_rec.tp_attribute14;
7623: END IF;
7624:
7625: IF p_x_child_line_rec.tp_attribute15 is null OR
7626: p_x_child_line_rec.tp_attribute15 = FND_API.G_MISS_CHAR THEN
7627: p_x_child_line_rec.tp_attribute15 := p_parent_line_rec.tp_attribute15;
7628: END IF;
7629:
7630: IF p_x_child_line_rec.tp_context is null OR
7627: p_x_child_line_rec.tp_attribute15 := p_parent_line_rec.tp_attribute15;
7628: END IF;
7629:
7630: IF p_x_child_line_rec.tp_context is null OR
7631: p_x_child_line_rec.tp_context = FND_API.G_MISS_CHAR THEN
7632: p_x_child_line_rec.tp_context := p_parent_line_rec.tp_context;
7633: END IF;
7634:
7635: ------End bug 11871834 ,11923383
7640:
7641:
7642: OE_Validate_Line.Validate_Flex
7643: ( p_x_line_rec => p_x_child_line_rec
7644: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7645: ,x_return_status => x_return_status);
7646:
7647: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN -- For bug 2869052
7648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7643: ( p_x_line_rec => p_x_child_line_rec
7644: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7645: ,x_return_status => x_return_status);
7646:
7647: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN -- For bug 2869052
7648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7649: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7650: RAISE FND_API.G_EXC_ERROR;
7651: END IF;
7644: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7645: ,x_return_status => x_return_status);
7646:
7647: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN -- For bug 2869052
7648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7649: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7650: RAISE FND_API.G_EXC_ERROR;
7651: END IF;
7652:
7645: ,x_return_status => x_return_status);
7646:
7647: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN -- For bug 2869052
7648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7649: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7650: RAISE FND_API.G_EXC_ERROR;
7651: END IF;
7652:
7653: ---------------- for direct save only ------------------------
7646:
7647: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN -- For bug 2869052
7648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7649: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7650: RAISE FND_API.G_EXC_ERROR;
7651: END IF;
7652:
7653: ---------------- for direct save only ------------------------
7654:
7699:
7700: IF p_parent_line_rec.ship_model_complete_flag = 'Y' OR
7701: p_parent_line_rec.ato_line_id = p_parent_line_rec.top_model_line_id OR
7702: (p_parent_line_rec.ship_set_id is NOT NULL AND
7703: p_parent_line_rec.ship_set_id <> FND_API.G_MISS_NUM) OR
7704: (p_parent_line_rec.arrival_set_id is NOT NULL AND
7705: p_parent_line_rec.arrival_set_id <> FND_API.G_MISS_NUM)
7706: THEN
7707: IF l_debug_level > 0 THEN
7701: p_parent_line_rec.ato_line_id = p_parent_line_rec.top_model_line_id OR
7702: (p_parent_line_rec.ship_set_id is NOT NULL AND
7703: p_parent_line_rec.ship_set_id <> FND_API.G_MISS_NUM) OR
7704: (p_parent_line_rec.arrival_set_id is NOT NULL AND
7705: p_parent_line_rec.arrival_set_id <> FND_API.G_MISS_NUM)
7706: THEN
7707: IF l_debug_level > 0 THEN
7708: oe_debug_pub.add('**PARENT IS ATO OR SMC PTO OR IN SET' , 1);
7709: END IF;
7763: IF l_debug_level > 0 THEN
7764: oe_debug_pub.add('**PARENT IS NON SMC PTO ' , 1);
7765: END IF;
7766:
7767: IF p_x_child_line_rec.ship_to_org_id = FND_API.G_MISS_NUM OR
7768: p_x_child_line_rec.ship_to_org_id IS NULL THEN
7769: p_x_child_line_rec.ship_to_org_id
7770: := p_parent_line_rec.ship_to_org_id;
7771: END IF;
7769: p_x_child_line_rec.ship_to_org_id
7770: := p_parent_line_rec.ship_to_org_id;
7771: END IF;
7772:
7773: IF p_x_child_line_rec.request_date = FND_API.G_MISS_DATE OR
7774: p_x_child_line_rec.request_date IS NULL THEN
7775: p_x_child_line_rec.request_date
7776: := p_parent_line_rec.request_date;
7777: END IF;
7775: p_x_child_line_rec.request_date
7776: := p_parent_line_rec.request_date;
7777: END IF;
7778:
7779: IF p_x_child_line_rec.invoice_to_org_id = FND_API.G_MISS_NUM OR
7780: p_x_child_line_rec.invoice_to_org_id IS NULL THEN
7781: p_x_child_line_rec.invoice_to_org_id
7782: := p_parent_line_rec.invoice_to_org_id;
7783: END IF;
7782: := p_parent_line_rec.invoice_to_org_id;
7783: END IF;
7784:
7785: /*Start bug7041018,7175458*/
7786: IF p_x_child_line_rec.intermed_ship_to_org_id = FND_API.G_MISS_NUM OR
7787: p_x_child_line_rec.intermed_ship_to_org_id IS NULL THEN
7788: p_x_child_line_rec.intermed_ship_to_org_id
7789: := p_parent_line_rec.intermed_ship_to_org_id;
7790: END IF;
7788: p_x_child_line_rec.intermed_ship_to_org_id
7789: := p_parent_line_rec.intermed_ship_to_org_id;
7790: END IF;
7791:
7792: IF p_x_child_line_rec.ship_to_contact_id = FND_API.G_MISS_NUM OR
7793: p_x_child_line_rec.ship_to_contact_id IS NULL THEN
7794: p_x_child_line_rec.ship_to_contact_id
7795: := p_parent_line_rec.ship_to_contact_id;
7796: END IF;
7877: -- put logic here
7878: --END IF;
7879:
7880:
7881: x_return_status := FND_API.G_RET_STS_SUCCESS;
7882: IF l_debug_level > 0 THEN
7883: oe_debug_pub.add('LEAVING DEFAULT_CHILD_LINE' , 1);
7884: END IF;
7885:
7884: END IF;
7885:
7886: EXCEPTION
7887:
7888: WHEN FND_API.G_EXC_ERROR THEN
7889: IF l_debug_level > 0 THEN
7890: oe_debug_pub.add('DEFAULT_CHILD_LINE, exc error '|| SQLERRM , 1);
7891: END IF;
7892: x_return_status := FND_API.G_RET_STS_ERROR;
7888: WHEN FND_API.G_EXC_ERROR THEN
7889: IF l_debug_level > 0 THEN
7890: oe_debug_pub.add('DEFAULT_CHILD_LINE, exc error '|| SQLERRM , 1);
7891: END IF;
7892: x_return_status := FND_API.G_RET_STS_ERROR;
7893:
7894: WHEN OTHERS THEN
7895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7896: IF l_debug_level > 0 THEN
7891: END IF;
7892: x_return_status := FND_API.G_RET_STS_ERROR;
7893:
7894: WHEN OTHERS THEN
7895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7896: IF l_debug_level > 0 THEN
7897: oe_debug_pub.add('others in DEFAULT_CHILD_LINE '|| SQLERRM , 1);
7898: END IF;
7899:
8333: p_line_id is not NULL THEN
8334: IF l_debug_level > 0 THEN
8335: oe_debug_pub.add('WRONG PARAMTERS' , 1);
8336: END IF;
8337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8338: END IF;
8339:
8340: x_return_status := FND_API.G_RET_STS_SUCCESS;
8341: x_wb_item_type := null;
8336: END IF;
8337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8338: END IF;
8339:
8340: x_return_status := FND_API.G_RET_STS_SUCCESS;
8341: x_wb_item_type := null;
8342:
8343: SELECT count(*)
8344: INTO l_count
8369: ELSE
8370: IF l_debug_level > 0 THEN
8371: oe_debug_pub.add('NO ELIGIBLE LINES ' , 1);
8372: END IF;
8373: x_return_status := FND_API.G_RET_STS_ERROR;
8374: RETURN;
8375: END IF;
8376:
8377: IF p_header_id is not null AND
8435: WHEN OTHERS THEN
8436: IF l_debug_level > 0 THEN
8437: oe_debug_pub.add('ERROR IN LAUNCH_SUPPLY_WORKBENCH'|| SQLERRM , 1);
8438: END IF;
8439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8440: END Launch_Supply_Workbench;
8441:
8442: /* -----------------------------------------------------------
8443: PROCEDURE Message_From_Cz
8665: IF l_debug_level > 0 THEN
8666: OE_Debug_Pub.Add('something wrong in i/p'|| p_model_line_id, 3);
8667: END IF;
8668:
8669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8670:
8671: END IF; -- if model rec was sent in
8672:
8673:
8819: l_part_of_container VARCHAR2(1);
8820: l_locking_key NUMBER;
8821: l_msg_count NUMBER;
8822: l_msg_data VARCHAR2(4000);
8823: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8824: l_order_number NUMBER;
8825:
8826: --
8827: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8861: p_source_line_ref1 => Null,
8862: p_source_line_ref2 => Null,
8863: p_source_line_ref3 => Null,
8864: p_commit => 'N',
8865: p_init_msg_list => FND_API.G_TRUE,
8866: p_validation_level => Null,
8867: p_locking_key => Null,
8868: x_return_status => x_return_status,
8869: x_msg_count => l_msg_count,
8892: WHEN OTHERS THEN
8893: IF l_debug_level > 0 THEN
8894: oe_debug_pub.add('ERROR IN OE_CONFIG_UTIL.Unlock_Config'|| SQLERRM , 1);
8895: END IF;
8896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8897: END Unlock_Config;
8898:
8899: -- Added for DOO Pre Exploded Kit ER 9339742
8900: PROCEDURE Process_Pre_Exploded_Kits
8905: -- get this field from DOO so as to set the pre_exploded_flag value.
8906: , x_return_status OUT NOCOPY VARCHAR2
8907: ) IS
8908: --
8909: l_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
8910: l_cursor_query VARCHAR2(4000);
8911: l_parent_line_rec OE_Order_PUB.Line_Rec_Type;
8912: l_included_item_tbl OE_Order_PUB.Line_Tbl_Type;
8913: l_included_item_rec OE_Order_PUB.Line_Rec_Type;
9076: if l_debug_level > 0 then
9077: oe_debug_pub.add(' Return Status from BOM Explosion API is : '||l_return_status,1);
9078: end if;
9079:
9080: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9083: RAISE FND_API.G_EXC_ERROR;
9084: END IF;
9077: oe_debug_pub.add(' Return Status from BOM Explosion API is : '||l_return_status,1);
9078: end if;
9079:
9080: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9083: RAISE FND_API.G_EXC_ERROR;
9084: END IF;
9085:
9078: end if;
9079:
9080: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9083: RAISE FND_API.G_EXC_ERROR;
9084: END IF;
9085:
9086: OPEN C_Bill_Seq_id ( l_parent_line_rec.top_model_line_id,
9079:
9080: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9083: RAISE FND_API.G_EXC_ERROR;
9084: END IF;
9085:
9086: OPEN C_Bill_Seq_id ( l_parent_line_rec.top_model_line_id,
9087: l_parent_line_rec.header_id,
9156: IF l_included_item_tbl.COUNT <> l_Bom_Explosion_Tbl.COUNT THEN
9157: if l_debug_level > 0 then
9158: oe_debug_pub.add(' The count of Included Items are not same',5);
9159: end if;
9160: l_return_status := FND_API.G_RET_STS_ERROR;
9161: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_BOM');
9162: oe_msg_pub.add;
9163: RAISE FND_API.G_EXC_ERROR;
9164: END IF;
9159: end if;
9160: l_return_status := FND_API.G_RET_STS_ERROR;
9161: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_BOM');
9162: oe_msg_pub.add;
9163: RAISE FND_API.G_EXC_ERROR;
9164: END IF;
9165:
9166: IF l_Bom_Explosion_Tbl.COUNT > 0 THEN
9167: FOR j IN l_Bom_Explosion_Tbl.FIRST .. l_Bom_Explosion_Tbl.LAST LOOP
9193: if l_debug_level > 0 then
9194: oe_debug_pub.add(' Quantity is NOT in ratio',1);
9195: end if;
9196: l_validation_status := FALSE;
9197: l_return_status := FND_API.G_RET_STS_ERROR;
9198: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_QTY_RATIO');
9199: oe_msg_pub.add;
9200: END IF;
9201:
9210: if l_debug_level > 0 then
9211: oe_debug_pub.add(' Quantity UOM is NOT matching : '||l_Bom_Explosion_Tbl(j).primary_uom_code,5);
9212: end if;
9213: l_validation_status := FALSE;
9214: l_return_status := FND_API.G_RET_STS_ERROR;
9215: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_UOM');
9216: oe_msg_pub.add;
9217: END IF;
9218:
9239: IF l_included_item_tbl(i).component_code <> (l_Bom_Explosion_Tbl(j).OM_Parent_Inventory_Item_id||'-'||l_included_item_tbl(i).inventory_item_id) THEN
9240: if l_debug_level > 0 then
9241: oe_debug_pub.add(' Invalid Association between the Included Item and its immediate parent',1);
9242: end if;
9243: l_return_status := FND_API.G_RET_STS_ERROR;
9244: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_BOM');
9245: oe_msg_pub.add;
9246: RAISE FND_API.G_EXC_ERROR;
9247: END IF;
9242: end if;
9243: l_return_status := FND_API.G_RET_STS_ERROR;
9244: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_BOM');
9245: oe_msg_pub.add;
9246: RAISE FND_API.G_EXC_ERROR;
9247: END IF;
9248:
9249: -- Since there is a valid match found and updated
9250: -- on the OM order line, Exit the child Loop
9259: if l_debug_level > 0 then
9260: oe_debug_pub.add(' Inventory Item Mismatch : '||l_Bom_Explosion_Tbl(j).component_item_id,1);
9261: end if;
9262: l_validation_status := FALSE;
9263: l_return_status := FND_API.G_RET_STS_ERROR;
9264: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_ITEM');
9265: oe_msg_pub.add;
9266: END IF;
9267:
9268: IF NOT(l_validation_status) THEN
9269: if l_debug_level > 0 then
9270: oe_debug_pub.add(' BOM Validation Failure',1);
9271: end if;
9272: l_return_status := FND_API.G_RET_STS_ERROR;
9273: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_BOM');
9274: oe_msg_pub.add;
9275: RAISE FND_API.G_EXC_ERROR;
9276: END IF;
9271: end if;
9272: l_return_status := FND_API.G_RET_STS_ERROR;
9273: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_BOM');
9274: oe_msg_pub.add;
9275: RAISE FND_API.G_EXC_ERROR;
9276: END IF;
9277:
9278: ELSE
9279: if l_debug_level > 0 then
9316: oe_debug_pub.add(' Exiting OE_Config_Util.Process_Pre_Exploded_Kits',1);
9317: end if;
9318:
9319: EXCEPTION
9320: WHEN FND_API.G_EXC_ERROR THEN
9321: x_return_status := FND_API.G_RET_STS_ERROR;
9322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9324: WHEN OTHERS THEN
9317: end if;
9318:
9319: EXCEPTION
9320: WHEN FND_API.G_EXC_ERROR THEN
9321: x_return_status := FND_API.G_RET_STS_ERROR;
9322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9324: WHEN OTHERS THEN
9325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9318:
9319: EXCEPTION
9320: WHEN FND_API.G_EXC_ERROR THEN
9321: x_return_status := FND_API.G_RET_STS_ERROR;
9322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9324: WHEN OTHERS THEN
9325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9326: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9319: EXCEPTION
9320: WHEN FND_API.G_EXC_ERROR THEN
9321: x_return_status := FND_API.G_RET_STS_ERROR;
9322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9324: WHEN OTHERS THEN
9325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9326: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9327: OE_MSG_PUB.Add_Exc_Msg
9321: x_return_status := FND_API.G_RET_STS_ERROR;
9322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9324: WHEN OTHERS THEN
9325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9326: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9327: OE_MSG_PUB.Add_Exc_Msg
9328: ( G_PKG_NAME
9329: , 'Process_Pre_Exploded_Kits'