[Home] [Help]
11018:
11019: /* Delete all the dependents for service line */
11020: oe_debug_pub.add('Item Type for delete: ' || l_line_rec.item_type_code);
11021:
11022: /* When a standard line is being deleted, check if it has any service */
11023: /* lines attached to it. If so, get the line_id of the service line and */
11024: /* use this to delete the dependents */
11025:
11026: -- 02/NOV Reverse Limits add ordered_quantity, price_request_code to select
11081: OR NVL(PHASE_CHANGE_FLAG, 'N') = 'Y');
11082: /* End Audit Trail */
11083:
11084:
11085: --added for notification framework to update global picture for standard line
11086: --check code release level first. Notification framework is at Pack H level
11087: oe_debug_pub.add('JPN: Delete all lines now');
11088: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
11089: /* Set the operation on the record so that globals are updated as well */
11095: p_line_rec =>l_new_line_rec,
11096: p_line_id =>l_line_rec.line_id,
11097: x_index => l_index,
11098: x_return_status => l_return_status);
11099: OE_DEBUG_PUB.ADD('Update_Global Return Status from OE_LINE_UTIL.delete_row for deleting standard line is: ' || l_return_status);
11100: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11101: OE_DEBUG_PUB.ADD('EVENT NOTIFY - Unexpected Error');
11102: OE_DEBUG_PUB.ADD('Exiting OE_LINE_UTIL.DELETE_ROW', 1);
11103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11143: END LOOP;
11144: END IF; /*code_release_level*/
11145: -- notification framework end
11146:
11147: -- For the Multiple service for Standard Line
11148: DELETE FROM OE_ORDER_LINES
11149: WHERE SERVICE_REFERENCE_LINE_ID = p_line_id
11150: AND SERVICE_REFERENCE_TYPE_CODE = 'ORDER'; -- bug 3056313
11151: /* AND NVL(ORG_ID,NVL(l_org_id,0))= NVL(l_org_id,0);*/
18900: l_option_number NUMBER;
18901: l_service_number NUMBER;
18902: l_dummy NUMBER;
18903:
18904: -- Fetches Service lines pertaining to Standard
18905: --and related line set records.
18906: --lchen rewrite cursor standard_line_number to fix performance bug 1869179
18907:
18908: CURSOR STANDARD_LINE_NUMBER IS
18902: l_dummy NUMBER;
18903:
18904: -- Fetches Service lines pertaining to Standard
18905: --and related line set records.
18906: --lchen rewrite cursor standard_line_number to fix performance bug 1869179
18907:
18908: CURSOR STANDARD_LINE_NUMBER IS
18909: select /*MOAC_SQL_CHANGES*/ a.line_id, a.header_id, a.line_number, a.shipment_number, a.option_number, a.service_number
18910: from oe_order_lines a
18904: -- Fetches Service lines pertaining to Standard
18905: --and related line set records.
18906: --lchen rewrite cursor standard_line_number to fix performance bug 1869179
18907:
18908: CURSOR STANDARD_LINE_NUMBER IS
18909: select /*MOAC_SQL_CHANGES*/ a.line_id, a.header_id, a.line_number, a.shipment_number, a.option_number, a.service_number
18910: from oe_order_lines a
18911: where a.service_reference_line_id= p_line_id
18912: UNION
18976: oe_debug_pub.add('AK line_iset_d ' || p_line_set_id);
18977: oe_debug_pub.add('AK line_number' || p_line_number);
18978: oe_debug_pub.add('AK item_type_code' || p_item_type_code);
18979:
18980: IF p_item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
18981:
18982: OPEN Standard_line_number;
18983: l_cursor_flag := 'S';
18984:
18978: oe_debug_pub.add('AK item_type_code' || p_item_type_code);
18979:
18980: IF p_item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
18981:
18982: OPEN Standard_line_number;
18983: l_cursor_flag := 'S';
18984:
18985: -- Update line number on the child service lines
18986: /*lchen rewrite the update statement to fix performance bug 1869179 */
18986: /*lchen rewrite the update statement to fix performance bug 1869179 */
18987: oe_debug_pub.add('l_cursor_flag= ' ||l_cursor_flag );
18988:
18989: LOOP
18990: FETCH standard_line_number
18991: INTO l_line_id,
18992: l_header_id,
18993: l_line_number,
18994: l_shipment_number,
18993: l_line_number,
18994: l_shipment_number,
18995: l_option_number,
18996: l_service_number;
18997: EXIT when standard_line_number%NOTFOUND;
18998:
18999: BEGIN
19000: SELECT line_id
19001: INTO l_dummy
19007: l_dummy := 0;
19008: END;
19009:
19010: oe_debug_pub.add('l_line_id= ' || l_line_id);
19011: oe_debug_pub.add('In the loop of standard_line_number, update child service line numbers');
19012:
19013: UPDATE oe_order_lines
19014: Set line_number = p_line_number,
19015: lock_control = lock_control + 1
19015: lock_control = lock_control + 1
19016: WHERE line_id=l_line_id;
19017:
19018: END LOOP;
19019: CLOSE Standard_line_number;
19020:
19021: OPEN Standard_line_number;
19022: IF SQL%FOUND THEN
19023: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
19017:
19018: END LOOP;
19019: CLOSE Standard_line_number;
19020:
19021: OPEN Standard_line_number;
19022: IF SQL%FOUND THEN
19023: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
19024:
19025: LOOP
19022: IF SQL%FOUND THEN
19023: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
19024:
19025: LOOP
19026: FETCH Standard_line_number
19027: INTO l_line_rec.line_id,
19028: l_line_rec.header_id,
19029: l_line_rec.line_number,
19030: l_line_rec.shipment_number,
19029: l_line_rec.line_number,
19030: l_line_rec.shipment_number,
19031: l_line_rec.option_number,
19032: l_line_rec.service_number;
19033: EXIT WHEN Standard_line_number%NOTFOUND;
19034:
19035: oe_debug_pub.add(' before calling wf_util');
19036: oe_debug_pub.add('line_rec.line_id=' || l_line_rec.line_id);
19037:
19039:
19040: END LOOP;
19041:
19042: END IF;
19043: CLOSE Standard_line_number;
19044:
19045: ELSIF p_item_type_code = OE_GLOBALS.G_ITEM_MODEL
19046: OR p_item_type_code = OE_GLOBALS.G_ITEM_KIT
19047: THEN
19158: EXCEPTION
19159:
19160: WHEN NO_DATA_FOUND THEN
19161: IF l_cursor_flag = 'S' THEN
19162: CLOSE Standard_line_number;
19163: ELSIF l_cursor_flag = 'M' THEN
19164: CLOSE Model_Line_Number;
19165: ELSIF l_cursor_flag = 'O' THEN
19166: CLOSE Service_line_number;
19167: END IF;
19168:
19169: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
19170:
19171: IF p_item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
19172: CLOSE Standard_line_number;
19173: ELSE
19174: CLOSE Model_Line_Number;
19175: END IF;
19168:
19169: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
19170:
19171: IF p_item_type_code = OE_GLOBALS.G_ITEM_STANDARD THEN
19172: CLOSE Standard_line_number;
19173: ELSE
19174: CLOSE Model_Line_Number;
19175: END IF;
19176:
19185:
19186: WHEN OTHERS THEN
19187:
19188: IF l_cursor_flag = 'S' THEN
19189: CLOSE Standard_line_number;
19190: ELSIF l_cursor_flag = 'M' THEN
19191: CLOSE Model_Line_Number;
19192: ELSIF l_cursor_flag = 'O' THEN
19193: CLOSE Service_line_number;
19364: /* Note: Here we are checking on the global G_Incoming_From_DOO and not the
19365: Pre_Exploded_Flag attribute because user can change a DOO created Sales Order in
19366: EBS OM Sales order pad or by directly calling the Process Order api without
19367: settting the above global. Since the trade off is: we should allow the user to
19368: successfully update the order, and the validation should be standard. The
19369: validation should NOT be of Pre Exploded Kit functionality. Hence, the below
19370: delayed request OE_GLOBALS.G_PRE_EXPLODED_KIT should get logged only if the above
19371: global is TRUE. It should be irrespective of the Pre_Exploded_Flag attribute value. */
19372:
19722:
19723: --------------------------------------------------------------------
19724: -- Line Number update logic.
19725: -- Update/Cascade linenumber changes to it children.
19726: -- If the line number is updated at Standard line then update all
19727: -- its children (Service).
19728: -- If the line number is updated at Model/Kit then update all its
19729: -- children and sub children(like options,classes,services,service
19730: -- attached to children).
19801: -- be updated when return is fulfilled!
19802: -- Changed to enable to accept CONFIG and SERVICE items for Pack -J onwards.
19803: IF ((OE_CODE_CONTROL.Get_Code_Release_Level >= '110510'
19804: AND p_x_line_rec.item_type_code <> 'INCLUDED')
19805: -- Blanket reference can only be specified for standard items
19806: -- and kit items
19807: OR (OE_CODE_CONTROL.Get_Code_Release_Level >= '110509'
19808: AND p_x_line_rec.item_type_code IN ('STANDARD','KIT')))
19809: AND (p_x_line_rec.blanket_number IS NOT NULL
19804: AND p_x_line_rec.item_type_code <> 'INCLUDED')
19805: -- Blanket reference can only be specified for standard items
19806: -- and kit items
19807: OR (OE_CODE_CONTROL.Get_Code_Release_Level >= '110509'
19808: AND p_x_line_rec.item_type_code IN ('STANDARD','KIT')))
19809: AND (p_x_line_rec.blanket_number IS NOT NULL
19810: OR p_old_line_rec.blanket_number IS NOT NULL)
19811: AND p_x_line_rec.line_category_code = 'ORDER'
19812: -- QUOTING change
20044: END IF;
20045: END IF; --Added for bug 14298755
20046: -- Validate line number for bug no 5493479 start
20047:
20048: IF (p_x_line_tbl(I).item_type_code = 'STANDARD'
20049: --below line commented to handle bugs 14298755 ,6186920
20050: --OR (p_x_line_tbl(I).top_model_line_id <> p_x_line_tbl(I).line_id
20051: OR (p_x_line_tbl(I).top_model_line_id = p_x_line_tbl(I).line_id --Added for bugs 14298755 ,6186920
20052: AND p_x_line_tbl(I).item_type_code = 'MODEL'))
20060: FROM oe_order_lines L
20061: WHERE L.line_number = p_x_line_tbl(I).line_number
20062: AND L.header_id = p_x_line_tbl(I).header_id
20063: AND L.line_id <> p_x_line_tbl(I).line_id
20064: AND ( L.item_type_code = 'STANDARD'
20065: OR ( L.top_model_line_id = L.line_id
20066: AND L.item_type_code = 'MODEL'));
20067:
20068: EXCEPTION
20084: WHERE L.line_number = p_x_line_tbl(I).line_number
20085: AND L.header_id = p_x_line_tbl(I).header_id
20086: AND L.line_id <> p_x_line_tbl(I).line_id
20087: AND nvl(L.line_set_id,-9999) <>nvl( p_x_line_tbl(I).line_set_id,-9999) -- bug 10414075
20088: AND ( L.item_type_code = 'STANDARD'
20089: OR ( L.top_model_line_id = L.line_id
20090: AND L.item_type_code = 'MODEL'));
20091:
20092: EXCEPTION
21349: getting cluttered and there are many CTO chg order
21350: related requests which we will have in one place.
21351: We need to notify CTO
21352: 1) for changes to ato model/options if config item exists.
21353: 2) for ato item if it is scheduled.(both item_type = standard and option)
21354: 3) in case of pto+ato, if new option is created and
21355: even 1 config item exist.
21356: ----------------------------------------------------------------------*/
21357: PROCEDURE Log_CTO_Requests
21415:
21416: l_ato_item_qty_change := FALSE;
21417:
21418: IF p_x_line_rec.ato_line_id = p_x_line_rec.line_id AND
21419: (p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD OR
21420: p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_OPTION OR --##1820608
21421: p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_INCLUDED) AND --9775352
21422: p_old_line_rec.schedule_status_code is NOT NULL AND
21423: p_x_line_rec.operation <> OE_GLOBALS.G_OPR_CREATE
21801: OE_Code_Control.Code_Release_Level >= '110510' THEN
21802:
21803: IF p_x_line_rec.ato_line_id = p_x_line_rec.line_id AND
21804: (p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_MODEL OR
21805: p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD OR
21806: p_x_line_rec.item_type_code = OE_GLOBALS.G_ITEM_OPTION)THEN
21807: l_num := 1;
21808: END IF;
21809:
22651: -- (warehous field for 6678897)
22652:
22653: IF OE_GLOBALS.G_CHANGE_CFG_FLAG = 'Y' AND
22654: ((p_x_line_rec.ato_line_id is not null AND
22655: p_x_line_rec.item_type_code <> OE_GLOBALS.G_ITEM_STANDARD) OR
22656: (nvl(p_x_line_rec.ship_model_complete_flag,'N')='Y')) AND
22657: p_x_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE
22658: AND nvl(p_x_line_rec.split_action_code,'N') <> 'SPLIT' --6717302
22659: AND nvl(p_x_line_rec.split_by,'N') <> 'SYSTEM' --6717302