[Home] [Help]
9751:
9752: /* Delete all the dependents for service line */
9753: oe_debug_pub.add('Item Type for delete: ' || l_line_rec.item_type_code);
9754:
9755: /* When a standard line is being deleted, check if it has any service */
9756: /* lines attached to it. If so, get the line_id of the service line and */
9757: /* use this to delete the dependents */
9758:
9759: -- 02/NOV Reverse Limits add ordered_quantity, price_request_code to select
9814: OR NVL(PHASE_CHANGE_FLAG, 'N') = 'Y');
9815: /* End Audit Trail */
9816:
9817:
9818: --added for notification framework to update global picture for standard line
9819: --check code release level first. Notification framework is at Pack H level
9820: oe_debug_pub.add('JPN: Delete all lines now');
9821: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
9822: /* Set the operation on the record so that globals are updated as well */
9828: p_line_rec =>l_new_line_rec,
9829: p_line_id =>l_line_rec.line_id,
9830: x_index => l_index,
9831: x_return_status => l_return_status);
9832: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.delete_row for deleting standard line is: ' || l_return_status);
9833: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9834: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
9835: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
9836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9876: END LOOP;
9877: END IF; /*code_release_level*/
9878: -- notification framework end
9879:
9880: -- For the Multiple service for Standard Line
9881: DELETE FROM OE_ORDER_LINES
9882: WHERE SERVICE_REFERENCE_LINE_ID = p_line_id
9883: AND SERVICE_REFERENCE_TYPE_CODE = 'ORDER'; -- bug 3056313
9884: /* AND NVL(ORG_ID,NVL(l_org_id,0))= NVL(l_org_id,0);*/
17195: l_option_number NUMBER;
17196: l_service_number NUMBER;
17197: l_dummy NUMBER;
17198:
17199: -- Fetches Service lines pertaining to Standard
17200: --and related line set records.
17201: --lchen rewrite cursor standard_line_number to fix performance bug 1869179
17202:
17203: CURSOR STANDARD_LINE_NUMBER IS
17197: l_dummy NUMBER;
17198:
17199: -- Fetches Service lines pertaining to Standard
17200: --and related line set records.
17201: --lchen rewrite cursor standard_line_number to fix performance bug 1869179
17202:
17203: CURSOR STANDARD_LINE_NUMBER IS
17204: select /*MOAC_SQL_CHANGES*/ a.line_id, a.header_id, a.line_number, a.shipment_number, a.option_number, a.service_number
17205: from oe_order_lines a
17199: -- Fetches Service lines pertaining to Standard
17200: --and related line set records.
17201: --lchen rewrite cursor standard_line_number to fix performance bug 1869179
17202:
17203: CURSOR STANDARD_LINE_NUMBER IS
17204: select /*MOAC_SQL_CHANGES*/ a.line_id, a.header_id, a.line_number, a.shipment_number, a.option_number, a.service_number
17205: from oe_order_lines a
17206: where a.service_reference_line_id= p_line_id
17207: UNION
17271: oe_debug_pub.add('AK line_iset_d ' || p_line_set_id);
17272: oe_debug_pub.add('AK line_number' || p_line_number);
17273: oe_debug_pub.add('AK item_type_code' || p_item_type_code);
17274:
17275: IF p_item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
17276:
17277: OPEN Standard_line_number;
17278: l_cursor_flag := 'S';
17279:
17273: oe_debug_pub.add('AK item_type_code' || p_item_type_code);
17274:
17275: IF p_item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
17276:
17277: OPEN Standard_line_number;
17278: l_cursor_flag := 'S';
17279:
17280: -- Update line number on the child service lines
17281: /*lchen rewrite the update statement to fix performance bug 1869179 */
17281: /*lchen rewrite the update statement to fix performance bug 1869179 */
17282: oe_debug_pub.add('l_cursor_flag= ' ||l_cursor_flag );
17283:
17284: LOOP
17285: FETCH standard_line_number
17286: INTO l_line_id,
17287: l_header_id,
17288: l_line_number,
17289: l_shipment_number,
17288: l_line_number,
17289: l_shipment_number,
17290: l_option_number,
17291: l_service_number;
17292: EXIT when standard_line_number%NOTFOUND;
17293:
17294: BEGIN
17295: SELECT line_id
17296: INTO l_dummy
17302: l_dummy := 0;
17303: END;
17304:
17305: oe_debug_pub.add('l_line_id= ' || l_line_id);
17306: oe_debug_pub.add('In the loop of standard_line_number, update child service line numbers');
17307:
17308: UPDATE oe_order_lines
17309: Set line_number = p_line_number,
17310: lock_control = lock_control + 1
17310: lock_control = lock_control + 1
17311: WHERE line_id=l_line_id;
17312:
17313: END LOOP;
17314: CLOSE Standard_line_number;
17315:
17316: OPEN Standard_line_number;
17317: IF SQL%FOUND THEN
17318: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
17312:
17313: END LOOP;
17314: CLOSE Standard_line_number;
17315:
17316: OPEN Standard_line_number;
17317: IF SQL%FOUND THEN
17318: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
17319:
17320: LOOP
17317: IF SQL%FOUND THEN
17318: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
17319:
17320: LOOP
17321: FETCH Standard_line_number
17322: INTO l_line_rec.line_id,
17323: l_line_rec.header_id,
17324: l_line_rec.line_number,
17325: l_line_rec.shipment_number,
17324: l_line_rec.line_number,
17325: l_line_rec.shipment_number,
17326: l_line_rec.option_number,
17327: l_line_rec.service_number;
17328: EXIT WHEN Standard_line_number%NOTFOUND;
17329:
17330: oe_debug_pub.add(' before calling wf_util');
17331: oe_debug_pub.add('line_rec.line_id=' || l_line_rec.line_id);
17332:
17334:
17335: END LOOP;
17336:
17337: END IF;
17338: CLOSE Standard_line_number;
17339:
17340: ELSIF p_item_type_code = OE_GLOBALS.G_ITEM_MODEL
17341: OR p_item_type_code = OE_GLOBALS.G_ITEM_KIT
17342: THEN
17453: EXCEPTION
17454:
17455: WHEN NO_DATA_FOUND THEN
17456: IF l_cursor_flag = 'S' THEN
17457: CLOSE Standard_line_number;
17458: ELSIF l_cursor_flag = 'M' THEN
17459: CLOSE Model_Line_Number;
17460: ELSIF l_cursor_flag = 'O' THEN
17461: CLOSE Service_line_number;
17462: END IF;
17463:
17464: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
17465:
17466: IF p_item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
17467: CLOSE Standard_line_number;
17468: ELSE
17469: CLOSE Model_Line_Number;
17470: END IF;
17463:
17464: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
17465:
17466: IF p_item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
17467: CLOSE Standard_line_number;
17468: ELSE
17469: CLOSE Model_Line_Number;
17470: END IF;
17471:
17480:
17481: WHEN OTHERS THEN
17482:
17483: IF l_cursor_flag = 'S' THEN
17484: CLOSE Standard_line_number;
17485: ELSIF l_cursor_flag = 'M' THEN
17486: CLOSE Model_Line_Number;
17487: ELSIF l_cursor_flag = 'O' THEN
17488: CLOSE Service_line_number;
17920:
17921: --------------------------------------------------------------------
17922: -- Line Number update logic.
17923: -- Update/Cascade linenumber changes to it children.
17924: -- If the line number is updated at Standard line then update all
17925: -- its children (Service).
17926: -- If the line number is updated at Model/Kit then update all its
17927: -- children and sub children(like options,classes,services,service
17928: -- attached to children).
17999: -- be updated when return is fulfilled!
18000: -- Changed to enable to accept CONFIG and SERVICE items for Pack -J onwards.
18001: IF ((OE_CODE_CONTROL.Get_Code_Release_Level >= '110510'
18002: AND p_x_line_rec.item_type_code <> 'INCLUDED')
18003: -- Blanket reference can only be specified for standard items
18004: -- and kit items
18005: OR (OE_CODE_CONTROL.Get_Code_Release_Level >= '110509'
18006: AND p_x_line_rec.item_type_code IN ('STANDARD','KIT')))
18007: AND (p_x_line_rec.blanket_number IS NOT NULL
18002: AND p_x_line_rec.item_type_code <> 'INCLUDED')
18003: -- Blanket reference can only be specified for standard items
18004: -- and kit items
18005: OR (OE_CODE_CONTROL.Get_Code_Release_Level >= '110509'
18006: AND p_x_line_rec.item_type_code IN ('STANDARD','KIT')))
18007: AND (p_x_line_rec.blanket_number IS NOT NULL
18008: OR p_old_line_rec.blanket_number IS NOT NULL)
18009: AND p_x_line_rec.line_category_code = 'ORDER'
18010: -- QUOTING change
18241: END IF;
18242:
18243: -- Validate line number for bug no 5493479 start
18244:
18245: IF (p_x_line_tbl(I).item_type_code = 'STANDARD'
18246: OR (p_x_line_tbl(I).top_model_line_id <> p_x_line_tbl(I).line_id
18247: AND p_x_line_tbl(I).item_type_code = 'MODEL'))
18248: AND OE_ORDER_IMPORT_MAIN_PVT.G_CONTEXT_ID IS NOT NULL
18249: THEN
18254: FROM oe_order_lines L
18255: WHERE L.line_number = p_x_line_tbl(I).line_number
18256: AND L.header_id = p_x_line_tbl(I).header_id
18257: AND L.line_id <> p_x_line_tbl(I).line_id
18258: AND ( L.item_type_code = 'STANDARD'
18259: OR ( L.top_model_line_id = L.line_id
18260: AND L.item_type_code = 'MODEL'));
18261:
18262: EXCEPTION
19472: getting cluttered and there are many CTO chg order
19473: related requests which we will have in one place.
19474: We need to notify CTO
19475: 1) for changes to ato model/options if config item exists.
19476: 2) for ato item if it is scheduled.(both item_type = standard and option)
19477: 3) in case of pto+ato, if new option is created and
19478: even 1 config item exist.
19479: ----------------------------------------------------------------------*/
19480: PROCEDURE Log_CTO_Requests
19538:
19539: l_ato_item_qty_change := FALSE;
19540:
19541: IF p_x_line_rec.ato_line_id = p_x_line_rec.line_id AND
19542: (p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD OR
19543: p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_OPTION) AND --##1820608
19544: p_old_line_rec.schedule_status_code is NOT NULL AND
19545: p_x_line_rec.operation <> OE_GLOBALS.G_OPR_CREATE
19546: THEN
19923: OE_Code_Control.Code_Release_Level >= '110510' THEN
19924:
19925: IF p_x_line_rec.ato_line_id = p_x_line_rec.line_id AND
19926: (p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL OR
19927: p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD OR
19928: p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_OPTION)THEN
19929: l_num := 1;
19930: END IF;
19931:
20771: -- (warehous field for 6678897)
20772:
20773: IF OE_GLOBALS.G_CHANGE_CFG_FLAG = 'Y' AND
20774: ((p_x_line_rec.ato_line_id is not null AND
20775: p_x_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_STANDARD) OR
20776: (nvl(p_x_line_rec.ship_model_complete_flag,'N')='Y')) AND
20777: p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE
20778: AND nvl(p_x_line_rec.split_action_code,'N') <> 'SPLIT' --6717302
20779: AND nvl(p_x_line_rec.split_by,'N') <> 'SYSTEM' --6717302