[Home] [Help]
516: l_line_tbl := p_line_table;
517:
518: IF (p_process_type = 'REQUISITION') THEN
519: FOR I in 1..l_line_tbl.count LOOP
520: update po_requisition_lines
521: set quantity_cancelled = l_line_Tbl(I).quantity,
522: cancel_flag = 'Y',
523: cancel_reason = l_line_tbl(I).change_reason,
524: cancel_date = sysdate
752: ELSE
753: -- cancel the internal requisitions lines and header for the above order lines and header
754:
755: FOR I in 1..lx_oe_line_tbl.count LOOP
756: update po_requisition_lines
757: set quantity_cancelled = lx_oe_line_Tbl(I).cancelled_quantity,
758: cancel_flag = 'Y',
759: cancel_reason = lx_oe_line_tbl(I).change_reason,
760: cancel_date = sysdate
1063: FROM sys.dual;
1064:
1065: -- Get unique requisition_line_id
1066: CURSOR req_line_id_cur IS
1067: SELECT po_requisition_lines_s.nextval
1068: FROM sys.dual;
1069:
1070: -- Cursor to get unique Distribution_id
1071: CURSOR dist_line_id_cur IS
1918: l_oe_header_rec.price_list_id := l_price_list_id;
1919: END IF;
1920: */
1921:
1922: -- get all the values required to insert into po_requisition_lines table
1923:
1924: -- line_type_id for Requisition
1925: OPEN line_type_cur;
1926: FETCH line_type_cur INTO l_line_type_rec;
1978:
1979: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1980: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1981: 'csp.plsql.csp_parts_order.process_order',
1982: 'Inserting data into PO_REQUISITION_LINES...');
1983: end if;
1984:
1985: -- insert into po_requisition_lines table
1986: INSERT INTO PO_REQUISITION_LINES(
1981: 'csp.plsql.csp_parts_order.process_order',
1982: 'Inserting data into PO_REQUISITION_LINES...');
1983: end if;
1984:
1985: -- insert into po_requisition_lines table
1986: INSERT INTO PO_REQUISITION_LINES(
1987: org_id,
1988: requisition_line_id,
1989: requisition_header_id,
1982: 'Inserting data into PO_REQUISITION_LINES...');
1983: end if;
1984:
1985: -- insert into po_requisition_lines table
1986: INSERT INTO PO_REQUISITION_LINES(
1987: org_id,
1988: requisition_line_id,
1989: requisition_header_id,
1990: line_num,
2369: END IF;
2370:
2371: -- update requisition line table with new quantity
2372: -- quantity is the only change allowed
2373: update po_requisition_lines
2374: set quantity = l_line_tbl(I).ordered_quantity
2375: where requisition_line_id = l_line_Tbl(I).requisition_line_id;
2376:
2377: -- update req distributions with new quantity
2458: DELETE FROM mtl_supply ms1
2459: WHERE ms1.supply_source_id IN
2460: (
2461: SELECT pl.requisition_line_id
2462: FROM po_requisition_lines pl
2463: WHERE pl.requisition_header_id = l_header_rec.requisition_header_id
2464: AND NVL(pl.modified_by_agent_flag, 'N') <> 'Y'
2465: AND NVL(pl.closed_code, 'OPEN') = 'OPEN'
2466: AND NVL(pl.cancel_flag, 'N') = 'N'
2520: prl.source_subinventory,
2521: prl.destination_organization_id,
2522: prl.destination_subinventory,
2523: 'Y'
2524: FROM po_requisition_lines prl
2525: WHERE prl.requisition_header_id = l_header_rec.requisition_header_id
2526: AND nvl(prl.modified_by_agent_flag,'N') <> 'Y'
2527: AND nvl(prl.CLOSED_CODE,'OPEN') = 'OPEN'
2528: AND nvl(prl.CANCEL_FLAG, 'N') = 'N'
2725: -- quantity is the only change allowed
2726: FOR i in 1..lx_oe_line_tbl.count LOOP
2727: IF (lx_oe_line_tbl(I).ordered_quantity IS NOT NULL OR
2728: lx_oe_line_tbl(I).ordered_quantity <> FND_API.G_MISS_NUM) THEN
2729: update po_requisition_lines
2730: set quantity = lx_oe_line_tbl(I).ordered_quantity
2731: where requisition_line_id = lx_oe_line_Tbl(I).source_document_line_id;
2732:
2733:
2890: FROM sys.dual;
2891:
2892: -- Get unique requisition_line_id
2893: CURSOR req_line_id_cur IS
2894: SELECT po_requisition_lines_s.nextval
2895: FROM sys.dual;
2896:
2897: -- Get preparer_id
2898: CURSOR employee_id_cur IS