[Home] [Help]
539: end if;
540:
541: IF (p_process_type = 'REQUISITION') THEN
542: FOR I in 1..l_line_tbl.count LOOP
543: update po_requisition_lines
544: set quantity_cancelled = l_line_Tbl(I).quantity,
545: cancel_flag = 'Y',
546: cancel_reason = l_line_tbl(I).change_reason,
547: cancel_date = sysdate
831: ELSE
832: -- cancel the internal requisitions lines and header for the above order lines and header
833:
834: FOR I in 1..lx_oe_line_tbl.count LOOP
835: update po_requisition_lines_all
836: set quantity_cancelled = lx_oe_line_Tbl(I).cancelled_quantity,
837: cancel_flag = 'Y',
838: cancel_reason = lx_oe_line_tbl(I).change_reason,
839: cancel_date = sysdate
1185: FROM sys.dual;
1186:
1187: -- Get unique requisition_line_id
1188: CURSOR req_line_id_cur IS
1189: SELECT po_requisition_lines_s.nextval
1190: FROM sys.dual;
1191:
1192: -- Cursor to get unique Distribution_id
1193: CURSOR dist_line_id_cur IS
3073: l_oe_header_rec.price_list_id := l_price_list_id;
3074: END IF;
3075: */
3076:
3077: -- get all the values required to insert into po_requisition_lines table
3078:
3079: -- line_type_id for Requisition
3080: OPEN line_type_cur;
3081: FETCH line_type_cur INTO l_line_type_rec;
3162:
3163: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3164: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3165: 'csp.plsql.csp_parts_order.process_order',
3166: 'Inserting data into PO_REQUISITION_LINES...');
3167: end if;
3168:
3169: -- insert into po_requisition_lines table
3170: INSERT INTO PO_REQUISITION_LINES(
3165: 'csp.plsql.csp_parts_order.process_order',
3166: 'Inserting data into PO_REQUISITION_LINES...');
3167: end if;
3168:
3169: -- insert into po_requisition_lines table
3170: INSERT INTO PO_REQUISITION_LINES(
3171: org_id,
3172: requisition_line_id,
3173: requisition_header_id,
3166: 'Inserting data into PO_REQUISITION_LINES...');
3167: end if;
3168:
3169: -- insert into po_requisition_lines table
3170: INSERT INTO PO_REQUISITION_LINES(
3171: org_id,
3172: requisition_line_id,
3173: requisition_header_id,
3174: line_num,
3634: END IF;
3635:
3636: -- update requisition line table with new quantity
3637: -- quantity is the only change allowed
3638: update po_requisition_lines
3639: set quantity = l_line_tbl(I).ordered_quantity
3640: where requisition_line_id = l_line_Tbl(I).requisition_line_id;
3641:
3642: -- update req distributions with new quantity
3723: DELETE FROM mtl_supply ms1
3724: WHERE ms1.supply_source_id IN
3725: (
3726: SELECT pl.requisition_line_id
3727: FROM po_requisition_lines pl
3728: WHERE pl.requisition_header_id = l_header_rec.requisition_header_id
3729: AND NVL(pl.modified_by_agent_flag, 'N') <> 'Y'
3730: AND NVL(pl.closed_code, 'OPEN') = 'OPEN'
3731: AND NVL(pl.cancel_flag, 'N') = 'N'
3785: prl.source_subinventory,
3786: prl.destination_organization_id,
3787: prl.destination_subinventory,
3788: 'Y'
3789: FROM po_requisition_lines prl
3790: WHERE prl.requisition_header_id = l_header_rec.requisition_header_id
3791: AND nvl(prl.modified_by_agent_flag,'N') <> 'Y'
3792: AND nvl(prl.CLOSED_CODE,'OPEN') = 'OPEN'
3793: AND nvl(prl.CANCEL_FLAG, 'N') = 'N'
4189: -- quantity is the only change allowed
4190: FOR i in 1..lx_oe_line_tbl.count LOOP
4191: IF (lx_oe_line_tbl(I).ordered_quantity IS NOT NULL OR
4192: lx_oe_line_tbl(I).ordered_quantity <> FND_API.G_MISS_NUM) THEN
4193: update po_requisition_lines
4194: set quantity = lx_oe_line_tbl(I).ordered_quantity
4195: where requisition_line_id = lx_oe_line_Tbl(I).source_document_line_id;
4196:
4197:
4382: FROM sys.dual;
4383:
4384: -- Get unique requisition_line_id
4385: CURSOR req_line_id_cur IS
4386: SELECT po_requisition_lines_s.nextval
4387: FROM sys.dual;
4388:
4389: -- Get preparer_id
4390: CURSOR employee_id_cur IS