[Home] [Help]
17: x_list_price_conv_temp NUMBER;
18:
19: CURSOR inv_lines IS
20: select rowid, item_id,rate_date, gl_date, creation_date, source_organization_id
21: from po_requisitions_interface
22: where source_type_code = 'INVENTORY'
23: and unit_price is NULL
24: and item_id is not NULL
25: and source_organization_id is not null
56: END;
57:
58: If (x_list_price_conv_temp < 0) then
59:
60: update po_requisitions_interface
61: set unit_price = (select msi.list_price_per_unit
62: FROM mtl_system_items msi
63: WHERE msi.inventory_item_id = x_item_id
64: AND msi.organization_id = x_source_org_id)
65: where rowid = x_rowid;
66:
67: else
68:
69: update po_requisitions_interface
70: set unit_price = (select ( msi.list_price_per_unit * x_list_price_conv_temp)
71: FROM mtl_system_items msi
72: WHERE msi.inventory_item_id = x_item_id
73: AND msi.organization_id = x_source_org_id)
94:
95:
96: CURSOR vendor_lines IS
97: select rowid, item_id,unit_of_measure
98: from po_requisitions_interface
99: where source_type_code = 'VENDOR'
100: and unit_price is NULL
101: and request_id = x_request_id;
102:
129: WHEN OTHERS THEN
130: x_uom_conversion_temp := 1;
131: END;
132:
133: UPDATE po_requisitions_interface pri
134: --Bug# 1347733
135: --togeorge 12/05/2000
136: --List price is multiplied with uom conversion instead of dividing.
137: --This is done to avoid inaccurate value after conversion.
160: --Name: default_trx_reason_codes
161: --Pre-reqs:
162: -- None.
163: --Modifies:
164: -- PO_REQUISITIONS_INTERFACE
165: --Locks:
166: -- None.
167: --Function:
168: -- Defaults transaction reason codes based upon req line data in the interface
181: CURSOR l_null_pri_trx_csr IS
182: SELECT transaction_id
183: , destination_organization_id
184: , item_id
185: FROM po_requisitions_interface
186: WHERE request_id = p_request_id
187: AND transaction_reason_code IS NULL;
188:
189: l_return_status VARCHAR2(1);
262: -- Update the interface table with the derived transaction reasons.
263: -- Do not update those lines with a non-zero error code; those lines
264: -- failed defaulting, so the trx reason should be left NULL.
265: FORALL i IN l_transaction_id_tbl.FIRST..l_transaction_id_tbl.LAST
266: UPDATE po_requisitions_interface
267: SET transaction_reason_code = l_trx_reason_code_tbl(i)
268: WHERE transaction_id = l_transaction_id_tbl(i)
269: AND l_error_code_tbl(i) = 0;
270: END IF;
296: --Name: REQIMPORT_DEF_VALIDATE_SEC_QTY
297: --Pre-reqs:
298: -- None.
299: --Modifies:
300: -- PO_REQUISITIONS_INTERFACE
301: --Locks:
302: -- None.
303: --Function:
304: -- Validates (deviation), Derives Secondary Quantities in Req Import Tables for dual uom
353: pri.secondary_quantity,
354: pri.quantity,
355: pri.unit_of_measure,
356: pri.preferred_grade
357: From po_requisitions_interface pri
358: Where pri.request_id = p_request_id
359: FOR UPDATE OF pri.secondary_unit_of_measure;
360:
361: Cursor Cr_item_attr(p_inv_item_id IN NUMBER,p_organization_id IN NUMBER) IS
413: IF cr_rec.secondary_quantity <=0 THEN
414: l_rec.interface_type := 'REQIMPORT';
415: l_rec.interface_transaction_id := cr_rec.transaction_id;
416: l_rec.column_name := 'SECONDARY_QUANTITY';
417: l_rec.table_name := 'PO_REQUISITIONS_INTERFACE';
418: l_rec.error_message_name := 'INV_NO_CONVERSION_ERR';
419:
420: fnd_message.set_name('INV', l_rec.error_message_name);
421: l_rec.error_message := FND_MESSAGE.get;
432: IF (l_rtn_status <> FND_API.G_RET_STS_SUCCESS) THEN
433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
434: END IF;
435: ELSE
436: UPDATE po_requisitions_interface
437: SET secondary_quantity = cr_rec.secondary_quantity
438: WHERE rowid = cr_rec.rowid;
439: END IF;
440: l_progress := '030';
457:
458: l_rec.interface_type := 'REQIMPORT';
459: l_rec.interface_transaction_id := cr_rec.transaction_id;
460: l_rec.column_name := 'SECONDARY_QUANTITY';
461: l_rec.table_name := 'PO_REQUISITIONS_INTERFACE';
462: l_rec.error_message := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,p_encoded => 'F');
463:
464: l_progress := '050';
465:
479: END IF; /*NOT INV_CONVERT.within_deviation( */
480: END IF; /*cr_rec.secondary_quantity IS NULL*/
481: --Since item is not dual um controlled update all secondary attributes to NULL
482: /*ELSIF l_tracking_qty_ind = 'P' THEN
483: UPDATE po_requisitions_interface
484: SET secondary_quantity = NULL,
485: secondary_uom_code = NULL,
486: secondary_unit_of_measure = NULL
487: WHERE rowid = cr_rec.rowid; */
544:
545: l_rec.interface_type := 'REQIMPORT';
546: l_rec.interface_transaction_id := cr_rec.transaction_id;
547: l_rec.column_name := 'SECONDARY_QUANTITY';
548: l_rec.table_name := 'PO_REQUISITIONS_INTERFACE';
549: l_rec.error_message_name := 'PO_SRCE_ORG_OUT_OF_DEV';
550:
551: l_progress := '100';
552:
572: l_progress := '110';
573: ELSIF cr_rec.item_id IS NULL THEN
574: l_progress := '120';
575: --since its a one time item update all process attributes to NULL.
576: UPDATE po_requisitions_interface
577: SET secondary_quantity = NULL,
578: secondary_uom_code = NULL,
579: secondary_unit_of_measure = NULL,
580: preferred_grade = NULL