[Home] [Help]
1252: x_result out NOCOPY boolean,
1253: X_Msg_Count out NOCOPY number,
1254: X_Msg_Data out NOCOPY varchar2) as
1255:
1256: l_reservation_id mtl_reservations.reservation_id%type;
1257:
1258: BEGIN
1259:
1260: IF PG_DEBUG <> 0 THEN
1273:
1274: SELECT reservation_id
1275: INTO l_reservation_id
1276: FROM
1277: mtl_reservations mr,
1278: oe_order_lines_all oel,
1279: oe_order_headers_all oeh,
1280: oe_transaction_types_all ota,
1281: oe_transaction_types_tl otl,
1440: -- Introdcued this to get a unique user name
1441: -- based on the Buyer on the PO
1442: CURSOR get_buyer_from_po(config_line_id IN NUMBER) IS
1443: select u.user_name
1444: from mtl_reservations mr,
1445: po_headers_all poh,
1446: oe_order_lines_all oel,
1447: fnd_user u
1448: where oel.line_id = config_line_id and
1457: -- Introdcued this to get a unique user name
1458: -- based on the Buyer on the PO req line
1459: CURSOR get_buyer_from_po_req_line(config_line_id IN NUMBER) IS
1460: select u.user_name
1461: from mtl_reservations mr,
1462: po_requisition_headers_all porh,
1463: po_requisition_lines_all porl,
1464: oe_order_lines_all oel,
1465: fnd_user u
1492: CURSOR supply_cur(p_line_id IN NUMBER) IS
1493: SELECT mlk2.meaning supply_type,
1494: we.wip_entity_name job_number,
1495: NULL line_number
1496: FROM mtl_reservations mr,
1497: wip_discrete_jobs wdj,
1498: wip_entities we,
1499: mfg_lookups mlk,
1500: mfg_lookups mlk2,
1531: UNION
1532: SELECT mlk2.meaning supply_type,
1533: poh.segment1 job_number,
1534: pol.line_num line_number
1535: FROM mtl_reservations mr,
1536: po_headers_all poh,
1537: po_lines_all pol,
1538: po_line_locations_all poll,
1539: oe_order_lines_all oel,
1553: UNION
1554: SELECT mlk2.meaning Supply_type,
1555: porh.segment1 job_number,
1556: porl.line_num line_number
1557: FROM mtl_reservations mr,
1558: po_requisition_headers_all porh,
1559: po_requisition_lines_all porl,
1560: oe_order_lines_all oel,
1561: mtl_units_of_measure uom,
1612: UNION
1613: SELECT mlk2.meaning supply_type,
1614: asn_headers.shipment_num job_number,
1615: NULL line_number
1616: FROM mtl_reservations mr,
1617: oe_order_lines_all oel,
1618: mtl_units_of_measure uom,
1619: mfg_lookups mlk2,
1620: rcv_shipment_lines ASN_LINES,
2904: --OPM
2905: l_supply_qty2 number := 0;
2906: k number;
2907:
2908: l_prim_uom_code mtl_reservations.primary_uom_code%TYPE;
2909:
2910:
2911: Begin
2912:
3170: -- sum of reservations - flow quanity.
3171:
3172: --modified the code for secondary quantity change for OPM.
3173: --decision was made to use same API inorder minimize the db hit
3174: --on mtl_reservations table when the primary and sec qty change in
3175: --a single session
3176:
3177: lStmtNumber := 40;
3178:
3284:
3285: -- Cursor to get a unique user name based on the Buyer on the PO
3286: CURSOR get_buyer_from_po(config_line_id IN NUMBER) IS
3287: select u.user_name
3288: from mtl_reservations mr,
3289: po_headers_all poh,
3290: oe_order_lines_all oel,
3291: fnd_user u
3292: where oel.line_id = config_line_id and
3299:
3300: -- To get a unique user name based on the Buyer on the PO req line
3301: CURSOR get_buyer_from_po_req_line(config_line_id IN NUMBER) IS
3302: select u.user_name
3303: from mtl_reservations mr,
3304: po_requisition_headers_all porh,
3305: po_requisition_lines_all porl,
3306: oe_order_lines_all oel,
3307: fnd_user u
3401:
3402: WHEN OTHERS THEN
3403: xErrorMessage := 'ERROR: Failed in GET_USER_NAME ';
3404: --xMessageName := 'CTO_DELINK_ITEM_ERROR';
3405: --xTableName := 'MTL_RESERVATIONS';
3406: return Null;
3407:
3408: END GET_USER_NAME;
3409: