[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)
98: --Bug#11668528
99: CURSOR vendor_lines IS
100: select rowid, item_id,unit_of_measure,
101: DESTINATION_ORGANIZATION_ID,line_type_id --Bug#11668528
102: from po_requisitions_interface
103: where source_type_code = 'VENDOR'
104: and unit_price is NULL
105: and request_id = x_request_id;
106:
164: X_LIST_PRICE := NULL;
165: END;
166: END IF;
167: -->Bug# 1347733 End
168: UPDATE po_requisitions_interface pri
169: --Bug# 1347733
170: --togeorge 12/05/2000
171: --List price is multiplied with uom conversion instead of dividing.
172: --This is done to avoid inaccurate value after conversion.
197: --Name: default_trx_reason_codes
198: --Pre-reqs:
199: -- None.
200: --Modifies:
201: -- PO_REQUISITIONS_INTERFACE
202: --Locks:
203: -- None.
204: --Function:
205: -- Defaults transaction reason codes based upon req line data in the interface
218: CURSOR l_null_pri_trx_csr IS
219: SELECT transaction_id
220: , destination_organization_id
221: , item_id
222: FROM po_requisitions_interface
223: WHERE request_id = p_request_id
224: AND transaction_reason_code IS NULL;
225:
226: l_return_status VARCHAR2(1);
299: -- Update the interface table with the derived transaction reasons.
300: -- Do not update those lines with a non-zero error code; those lines
301: -- failed defaulting, so the trx reason should be left NULL.
302: FORALL i IN l_transaction_id_tbl.FIRST..l_transaction_id_tbl.LAST
303: UPDATE po_requisitions_interface
304: SET transaction_reason_code = l_trx_reason_code_tbl(i)
305: WHERE transaction_id = l_transaction_id_tbl(i)
306: AND l_error_code_tbl(i) = 0;
307: END IF;
333: --Name: REQIMPORT_DEF_VALIDATE_SEC_QTY
334: --Pre-reqs:
335: -- None.
336: --Modifies:
337: -- PO_REQUISITIONS_INTERFACE
338: --Locks:
339: -- None.
340: --Function:
341: -- Validates (deviation), Derives Secondary Quantities in Req Import Tables for dual uom
390: pri.secondary_quantity,
391: pri.quantity,
392: pri.unit_of_measure,
393: pri.preferred_grade
394: From po_requisitions_interface pri
395: Where pri.request_id = p_request_id
396: FOR UPDATE OF pri.secondary_unit_of_measure;
397:
398: Cursor Cr_item_attr(p_inv_item_id IN NUMBER,p_organization_id IN NUMBER) IS
450: IF cr_rec.secondary_quantity <=0 THEN
451: l_rec.interface_type := 'REQIMPORT';
452: l_rec.interface_transaction_id := cr_rec.transaction_id;
453: l_rec.column_name := 'SECONDARY_QUANTITY';
454: l_rec.table_name := 'PO_REQUISITIONS_INTERFACE';
455: l_rec.error_message_name := 'INV_NO_CONVERSION_ERR';
456:
457: fnd_message.set_name('INV', l_rec.error_message_name);
458: l_rec.error_message := FND_MESSAGE.get;
469: IF (l_rtn_status <> FND_API.G_RET_STS_SUCCESS) THEN
470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
471: END IF;
472: ELSE
473: UPDATE po_requisitions_interface
474: SET secondary_quantity = cr_rec.secondary_quantity
475: WHERE rowid = cr_rec.rowid;
476: END IF;
477: l_progress := '030';
494:
495: l_rec.interface_type := 'REQIMPORT';
496: l_rec.interface_transaction_id := cr_rec.transaction_id;
497: l_rec.column_name := 'SECONDARY_QUANTITY';
498: l_rec.table_name := 'PO_REQUISITIONS_INTERFACE';
499: l_rec.error_message := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,p_encoded => 'F');
500:
501: l_progress := '050';
502:
516: END IF; /*NOT INV_CONVERT.within_deviation( */
517: END IF; /*cr_rec.secondary_quantity IS NULL*/
518: --Since item is not dual um controlled update all secondary attributes to NULL
519: /*ELSIF l_tracking_qty_ind = 'P' THEN
520: UPDATE po_requisitions_interface
521: SET secondary_quantity = NULL,
522: secondary_uom_code = NULL,
523: secondary_unit_of_measure = NULL
524: WHERE rowid = cr_rec.rowid; */
581:
582: l_rec.interface_type := 'REQIMPORT';
583: l_rec.interface_transaction_id := cr_rec.transaction_id;
584: l_rec.column_name := 'SECONDARY_QUANTITY';
585: l_rec.table_name := 'PO_REQUISITIONS_INTERFACE';
586: l_rec.error_message_name := 'PO_SRCE_ORG_OUT_OF_DEV';
587:
588: l_progress := '100';
589:
609: l_progress := '110';
610: ELSIF cr_rec.item_id IS NULL THEN
611: l_progress := '120';
612: --since its a one time item update all process attributes to NULL.
613: UPDATE po_requisitions_interface
614: SET secondary_quantity = NULL,
615: secondary_uom_code = NULL,
616: secondary_unit_of_measure = NULL,
617: preferred_grade = NULL