[Home] [Help]
120: |Jul 29 2004 Kaza
121: | Forward ported ct bugs 3590305 and 3599860.Significant changes
122: | to auto_create_purchase_req_cr. Please refer to the bug texts
123: | for details. In short, take a snapshot of eligible order lines
124: | from oe_order_lines_all into bom_cto_order_lines_temp. Loop
125: | thru the temp 1000 records at a time, lock each line
126: | individually, process and commit.
127: |
128: |Oct 26,2004 Kkonada
472: +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
473:
474: cursor eligible_lines_cur is
475: select line_id
476: from bom_cto_order_lines_temp
477: where status = 1
478: order by org_id;
479:
480: cursor oe_lines_cur (p_cursor_line_id number) is
589:
590: savepoint begin_line;
591:
592: IF PG_DEBUG <> 0 THEN
593: oe_debug_pub.add('auto_create_pur_req_cr: going to load eligible lines into bom_cto_order_lines_temp ' ,1);
594: END IF;
595:
596: -- load eligible lines into bcolt
597: load_lines_into_bcolt(p_sales_order_line_id,
1030:
1031: close oe_lines_cur; -- Done processing the line. We will reopen cursor with new line_id.
1032:
1033: begin
1034: update bom_cto_order_lines_temp
1035: set status = 2 -- set status to completed
1036: where line_id = line_id_tab(tab_index)
1037: and status = 1;
1038: exception
4784: -- rkaza. ireq project. 05/06/2005.
4785: -- Do not select lines that are in INTERNAL_REQ_REQUESTED status.
4786: -- Added it to the where clause along with PO_REQ_REQUESTED clause
4787: drive_mark := 0;
4788: sql_stmt := 'INSERT INTO bom_cto_order_lines_temp (line_id, org_id, status, inventory_item_id)'||
4789: 'select oel.line_id, oel.org_id, 1, 0 '||
4790: 'from oe_order_lines_all oel,'||
4791: ' mtl_system_items msi,'||
4792: ' wf_item_activity_statuses was,'||
4991: BEGIN
4992:
4993: x_return_status := FND_API.G_RET_STS_SUCCESS ;
4994:
4995: update bom_cto_order_lines_temp
4996: set status = p_status
4997: where line_id = p_line_id;
4998:
4999: EXCEPTION