eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.MTL_QP_PRICE dependencies on MTL_QP_PRICE

Line 1: PACKAGE BODY mtl_qp_price AS

1: PACKAGE BODY mtl_qp_price AS
2: /* $Header: INVVICAB.pls 120.5.12000000.1 2007/01/17 16:34:57 appldev ship $ */
3: g_pkg_name CONSTANT VARCHAR2(30) := 'MTL_QP_PRICE';
4:
5: TYPE pls_integer_type IS TABLE OF PLS_INTEGER

Line 3: g_pkg_name CONSTANT VARCHAR2(30) := 'MTL_QP_PRICE';

1: PACKAGE BODY mtl_qp_price AS
2: /* $Header: INVVICAB.pls 120.5.12000000.1 2007/01/17 16:34:57 appldev ship $ */
3: g_pkg_name CONSTANT VARCHAR2(30) := 'MTL_QP_PRICE';
4:
5: TYPE pls_integer_type IS TABLE OF PLS_INTEGER
6: INDEX BY BINARY_INTEGER;
7:

Line 158: print_debug('MTL_QP_PRICE.get_transfer_price: Selecting Line Identifier...');

154: l_pricing_event := p_pricing_event;
155:
156:
157: IF (l_debug = 1) THEN
158: print_debug('MTL_QP_PRICE.get_transfer_price: Selecting Line Identifier...');
159: print_debug('MTL_QP_PRICE.get_Transfer_price: p_transaction_id = ' || p_transaction_id);
160: print_debug('MTL_QP_PRICE.get_Transfer_price: p_order_line_id = ' || p_order_line_id);
161: print_debug('MTL_QP_PRICE.get_Transfer_price: p_inventory_item_id = ' || p_inventory_item_id);
162: print_debug('MTL_QP_PRICE.get_Transfer_price: p_uom_code = ' || p_uom_code);

Line 159: print_debug('MTL_QP_PRICE.get_Transfer_price: p_transaction_id = ' || p_transaction_id);

155:
156:
157: IF (l_debug = 1) THEN
158: print_debug('MTL_QP_PRICE.get_transfer_price: Selecting Line Identifier...');
159: print_debug('MTL_QP_PRICE.get_Transfer_price: p_transaction_id = ' || p_transaction_id);
160: print_debug('MTL_QP_PRICE.get_Transfer_price: p_order_line_id = ' || p_order_line_id);
161: print_debug('MTL_QP_PRICE.get_Transfer_price: p_inventory_item_id = ' || p_inventory_item_id);
162: print_debug('MTL_QP_PRICE.get_Transfer_price: p_uom_code = ' || p_uom_code);
163: print_debug('MTL_QP_PRICE.get_Transfer_price: p_cto_item_flag = ' || p_cto_item_flag);

Line 160: print_debug('MTL_QP_PRICE.get_Transfer_price: p_order_line_id = ' || p_order_line_id);

156:
157: IF (l_debug = 1) THEN
158: print_debug('MTL_QP_PRICE.get_transfer_price: Selecting Line Identifier...');
159: print_debug('MTL_QP_PRICE.get_Transfer_price: p_transaction_id = ' || p_transaction_id);
160: print_debug('MTL_QP_PRICE.get_Transfer_price: p_order_line_id = ' || p_order_line_id);
161: print_debug('MTL_QP_PRICE.get_Transfer_price: p_inventory_item_id = ' || p_inventory_item_id);
162: print_debug('MTL_QP_PRICE.get_Transfer_price: p_uom_code = ' || p_uom_code);
163: print_debug('MTL_QP_PRICE.get_Transfer_price: p_cto_item_flag = ' || p_cto_item_flag);
164: print_debug('MTL_QP_PRICE.get_Transfer_price: p_organization_id = ' || p_organization_id);

Line 161: print_debug('MTL_QP_PRICE.get_Transfer_price: p_inventory_item_id = ' || p_inventory_item_id);

157: IF (l_debug = 1) THEN
158: print_debug('MTL_QP_PRICE.get_transfer_price: Selecting Line Identifier...');
159: print_debug('MTL_QP_PRICE.get_Transfer_price: p_transaction_id = ' || p_transaction_id);
160: print_debug('MTL_QP_PRICE.get_Transfer_price: p_order_line_id = ' || p_order_line_id);
161: print_debug('MTL_QP_PRICE.get_Transfer_price: p_inventory_item_id = ' || p_inventory_item_id);
162: print_debug('MTL_QP_PRICE.get_Transfer_price: p_uom_code = ' || p_uom_code);
163: print_debug('MTL_QP_PRICE.get_Transfer_price: p_cto_item_flag = ' || p_cto_item_flag);
164: print_debug('MTL_QP_PRICE.get_Transfer_price: p_organization_id = ' || p_organization_id);
165: END IF;

Line 162: print_debug('MTL_QP_PRICE.get_Transfer_price: p_uom_code = ' || p_uom_code);

158: print_debug('MTL_QP_PRICE.get_transfer_price: Selecting Line Identifier...');
159: print_debug('MTL_QP_PRICE.get_Transfer_price: p_transaction_id = ' || p_transaction_id);
160: print_debug('MTL_QP_PRICE.get_Transfer_price: p_order_line_id = ' || p_order_line_id);
161: print_debug('MTL_QP_PRICE.get_Transfer_price: p_inventory_item_id = ' || p_inventory_item_id);
162: print_debug('MTL_QP_PRICE.get_Transfer_price: p_uom_code = ' || p_uom_code);
163: print_debug('MTL_QP_PRICE.get_Transfer_price: p_cto_item_flag = ' || p_cto_item_flag);
164: print_debug('MTL_QP_PRICE.get_Transfer_price: p_organization_id = ' || p_organization_id);
165: END IF;
166:

Line 163: print_debug('MTL_QP_PRICE.get_Transfer_price: p_cto_item_flag = ' || p_cto_item_flag);

159: print_debug('MTL_QP_PRICE.get_Transfer_price: p_transaction_id = ' || p_transaction_id);
160: print_debug('MTL_QP_PRICE.get_Transfer_price: p_order_line_id = ' || p_order_line_id);
161: print_debug('MTL_QP_PRICE.get_Transfer_price: p_inventory_item_id = ' || p_inventory_item_id);
162: print_debug('MTL_QP_PRICE.get_Transfer_price: p_uom_code = ' || p_uom_code);
163: print_debug('MTL_QP_PRICE.get_Transfer_price: p_cto_item_flag = ' || p_cto_item_flag);
164: print_debug('MTL_QP_PRICE.get_Transfer_price: p_organization_id = ' || p_organization_id);
165: END IF;
166:
167: --l_inventory_item_id := p_inventory_item_id;

Line 164: print_debug('MTL_QP_PRICE.get_Transfer_price: p_organization_id = ' || p_organization_id);

160: print_debug('MTL_QP_PRICE.get_Transfer_price: p_order_line_id = ' || p_order_line_id);
161: print_debug('MTL_QP_PRICE.get_Transfer_price: p_inventory_item_id = ' || p_inventory_item_id);
162: print_debug('MTL_QP_PRICE.get_Transfer_price: p_uom_code = ' || p_uom_code);
163: print_debug('MTL_QP_PRICE.get_Transfer_price: p_cto_item_flag = ' || p_cto_item_flag);
164: print_debug('MTL_QP_PRICE.get_Transfer_price: p_organization_id = ' || p_organization_id);
165: END IF;
166:
167: --l_inventory_item_id := p_inventory_item_id;
168: l_organization_id := p_organization_id;

Line 248: print_debug('MTL_QP_PRICE.get_transfer_price: Selecting Header Identifier...');

244: END IF;
245: -- END IF; /* OPM Bug 2865040 */ -- OPM INVCONV umoogala
246:
247: IF (l_debug = 1) THEN
248: print_debug('MTL_QP_PRICE.get_transfer_price: Selecting Header Identifier...');
249: END IF;
250:
251: SELECT header_id
252: INTO l_header_id

Line 257: print_debug('MTL_QP_PRICE.get_transfer_price: Selecting Primary UOM...');

253: FROM oe_order_lines_all
254: WHERE line_id = l_line_id;
255:
256: IF (l_debug = 1) THEN
257: print_debug('MTL_QP_PRICE.get_transfer_price: Selecting Primary UOM...');
258: END IF;
259:
260: SELECT primary_uom_code
261: , NVL(base_item_id, 0)

Line 269: print_debug('MTL_QP_PRICE.get_transfer_price: Building Global Structure...');

265: WHERE inventory_item_id = l_inventory_item_id
266: AND organization_id = l_organization_id;
267:
268: IF (l_debug = 1) THEN
269: print_debug('MTL_QP_PRICE.get_transfer_price: Building Global Structure...');
270: print_debug('l_base_item_id is ' || l_base_item_id);
271: print_debug('p_cto_item_flag is ' || p_cto_item_flag);
272: END IF;
273:

Line 346: Print_debug('MTL_QP_PRICE.get_transfer_price: Build Context for header...');

342: , px_line_index => l_line_index);
343:
344: /*
345: IF (l_debug = 1) THEN
346: Print_debug('MTL_QP_PRICE.get_transfer_price: Build Context for header...');
347: END IF;*/
348:
349: qp_attr_mapping_pub.build_contexts(p_request_type_code => l_request_type_code, p_pricing_type_code => 'H'
350: , p_line_index => inv_ic_order_pub.g_hdr.header_id);

Line 364: print_debug('MTL_QP_PRICE.get_transfer_price: Build Context for line...');

360: print_debug('Ship To=' || TO_CHAR(inv_ic_order_pub.g_line.ship_to_org_id));
361: END IF;
362:
363: IF (l_debug = 1) THEN
364: print_debug('MTL_QP_PRICE.get_transfer_price: Build Context for line...');
365: END IF;
366:
367: qp_attr_mapping_pub.build_contexts(
368: p_request_type_code => l_request_type_code

Line 375: print_debug('MTL_QP_PRICE.get_transfer_price: Populating Lines temp table...');

371: );
372:
373: IF l_line_index > 0 THEN
374: IF (l_debug = 1) THEN
375: print_debug('MTL_QP_PRICE.get_transfer_price: Populating Lines temp table...');
376: END IF;
377:
378: populate_temp_table(x_return_status);
379: END IF;

Line 382: print_debug('MTL_QP_PRICE.get_transfer_price: Initializing control record...');

378: populate_temp_table(x_return_status);
379: END IF;
380:
381: IF (l_debug = 1) THEN
382: print_debug('MTL_QP_PRICE.get_transfer_price: Initializing control record...');
383: END IF;
384:
385: l_control_rec.pricing_event := l_pricing_event;
386: l_control_rec.calculate_flag := qp_preq_grp.g_search_n_calculate;

Line 393: print_debug('MTL_QP_PRICE.get_transfer_price: Assigning value of org_id to l_control_rec...'||p_ship_ou_id);

389: l_control_rec.rounding_flag := 'Y';
390: -- Bug 3070474 (porting from bug 3027452) : added the following statement
391: l_control_rec.use_multi_currency := 'Y';
392:
393: print_debug('MTL_QP_PRICE.get_transfer_price: Assigning value of org_id to l_control_rec...'||p_ship_ou_id);
394: --MOAC Changes: Passing the Shipping Operating unit to QP API.
395: l_control_rec.org_id := p_ship_ou_id;
396: print_debug('MTL_QP_PRICE.get_transfer_price: After assigning the value of org_id to l_control_rec...'||l_control_rec.org_id);
397:

Line 396: print_debug('MTL_QP_PRICE.get_transfer_price: After assigning the value of org_id to l_control_rec...'||l_control_rec.org_id);

392:
393: print_debug('MTL_QP_PRICE.get_transfer_price: Assigning value of org_id to l_control_rec...'||p_ship_ou_id);
394: --MOAC Changes: Passing the Shipping Operating unit to QP API.
395: l_control_rec.org_id := p_ship_ou_id;
396: print_debug('MTL_QP_PRICE.get_transfer_price: After assigning the value of org_id to l_control_rec...'||l_control_rec.org_id);
397:
398: IF (l_debug = 1) THEN
399: print_debug('MTL_QP_PRICE.get_transfer_price: Calling QP:Price Request routine ...');
400: END IF;

Line 399: print_debug('MTL_QP_PRICE.get_transfer_price: Calling QP:Price Request routine ...');

395: l_control_rec.org_id := p_ship_ou_id;
396: print_debug('MTL_QP_PRICE.get_transfer_price: After assigning the value of org_id to l_control_rec...'||l_control_rec.org_id);
397:
398: IF (l_debug = 1) THEN
399: print_debug('MTL_QP_PRICE.get_transfer_price: Calling QP:Price Request routine ...');
400: END IF;
401:
402: qp_preq_pub.price_request(p_control_rec => l_control_rec, x_return_status => x_return_status
403: , x_return_status_text => l_return_status_text);

Line 407: print_debug('MTL_QP_PRICE.get_transfer_price: QP_PREQ_PUB.PRICE_REQUEST error ');

403: , x_return_status_text => l_return_status_text);
404:
405: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
406: IF (l_debug = 1) THEN
407: print_debug('MTL_QP_PRICE.get_transfer_price: QP_PREQ_PUB.PRICE_REQUEST error ');
408: print_debug('MTL_QP_PRICE.get_transfer_price: x_return_status_text=' || l_return_status_text);
409: END IF;
410:
411: fnd_message.set_name('INV', 'INV_UNHANDLED_ERR');

Line 408: print_debug('MTL_QP_PRICE.get_transfer_price: x_return_status_text=' || l_return_status_text);

404:
405: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
406: IF (l_debug = 1) THEN
407: print_debug('MTL_QP_PRICE.get_transfer_price: QP_PREQ_PUB.PRICE_REQUEST error ');
408: print_debug('MTL_QP_PRICE.get_transfer_price: x_return_status_text=' || l_return_status_text);
409: END IF;
410:
411: fnd_message.set_name('INV', 'INV_UNHANDLED_ERR');
412: fnd_message.set_token('ENTITY1', 'QP_PREQ_PUB.PRICE_REQUEST');

Line 418: print_debug('MTL_QP_PRICE.get_transfer_price: Populating QP results ...');

414: RAISE fnd_api.g_exc_error;
415: END IF;
416:
417: IF (l_debug = 1) THEN
418: print_debug('MTL_QP_PRICE.get_transfer_price: Populating QP results ...');
419: END IF;
420:
421: populate_results(l_line_index, x_return_status);
422: x_currency_code := g_currency_code_tbl(l_line_index);

Line 449: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP NO_DATA_FOUND ');

445: RETURN(l_tfrprice);
446: EXCEPTION
447: WHEN NO_DATA_FOUND THEN
448: IF (l_debug = 1) THEN
449: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP NO_DATA_FOUND ');
450: END IF;
451:
452: fnd_message.set_name('INV', 'INV_NO_DATA_EXISTS');
453: RETURN(g_unit_selling_price_tbl(l_line_index));

Line 456: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP G_EXC_ERROR ');

452: fnd_message.set_name('INV', 'INV_NO_DATA_EXISTS');
453: RETURN(g_unit_selling_price_tbl(l_line_index));
454: WHEN fnd_api.g_exc_error THEN
455: IF (l_debug = 1) THEN
456: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP G_EXC_ERROR ');
457: END IF;
458:
459: RETURN(g_unit_selling_price_tbl(l_line_index));
460: WHEN fnd_api.g_exc_unexpected_error THEN

Line 462: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP G_EXC_UNEXPECTED_ERROR ');

458:
459: RETURN(g_unit_selling_price_tbl(l_line_index));
460: WHEN fnd_api.g_exc_unexpected_error THEN
461: IF (l_debug = 1) THEN
462: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP G_EXC_UNEXPECTED_ERROR ');
463: END IF;
464:
465: RETURN(g_unit_selling_price_tbl(l_line_index));
466: WHEN OTHERS THEN

Line 468: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP UNEXP OTHERS - ' || SQLERRM);

464:
465: RETURN(g_unit_selling_price_tbl(l_line_index));
466: WHEN OTHERS THEN
467: IF (l_debug = 1) THEN
468: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP UNEXP OTHERS - ' || SQLERRM);
469: END IF;
470:
471: RETURN(g_unit_selling_price_tbl(l_line_index));
472: END get_transfer_price;

Line 481: print_debug('MTL_QP_PRICE.G_Hdr_Initialize: Populating G_HDR...');

477: x_return_status := fnd_api.g_ret_sts_success;
478:
479: -- Header population
480: IF (l_debug = 1) THEN
481: print_debug('MTL_QP_PRICE.G_Hdr_Initialize: Populating G_HDR...');
482: END IF;
483:
484: SELECT accounting_rule_id
485: , agreement_id

Line 769: print_debug('MTL_QP_PRICE.G_Hdr_Initialize: EXCEP NO_DATA_FOUND ');

765: WHEN NO_DATA_FOUND THEN
766: x_return_status := fnd_api.g_ret_sts_error;
767:
768: IF (l_debug = 1) THEN
769: print_debug('MTL_QP_PRICE.G_Hdr_Initialize: EXCEP NO_DATA_FOUND ');
770: END IF;
771:
772: fnd_message.set_name('INV', 'INV_NO_DATA_EXISTS');
773: RAISE NO_DATA_FOUND;

Line 778: print_debug('MTL_QP_PRICE.G_Hdr_Initialize: EXCEP UNEXP OTHERS - ' || SQLERRM);

774: WHEN OTHERS THEN
775: x_return_status := fnd_api.g_ret_sts_unexp_error;
776:
777: IF (l_debug = 1) THEN
778: print_debug('MTL_QP_PRICE.G_Hdr_Initialize: EXCEP UNEXP OTHERS - ' || SQLERRM);
779: END IF;
780:
781: RAISE fnd_api.g_exc_unexpected_error;
782: END g_hdr_initialize;

Line 1153: print_debug('MTL_QP_PRICE.G_Line_Initialize: Populating IC fields...');

1149: inv_ic_order_pub.g_line.split_action_code := fnd_api.g_miss_char;
1150:
1151: -- Intercompany fields population
1152: IF (l_debug = 1) THEN
1153: print_debug('MTL_QP_PRICE.G_Line_Initialize: Populating IC fields...');
1154: END IF;
1155:
1156: --
1157: -- OPM INVCONV umoogala Process Discrete Transfers Enh.

Line 1193: print_debug('MTL_QP_PRICE.G_Line_Initialize: IC fields NO_DATA_FOUND...');

1189: WHEN NO_DATA_FOUND THEN
1190: x_return_status := fnd_api.g_ret_sts_error;
1191:
1192: IF (l_debug = 1) THEN
1193: print_debug('MTL_QP_PRICE.G_Line_Initialize: IC fields NO_DATA_FOUND...');
1194: END IF;
1195: WHEN OTHERS THEN
1196: x_return_status := fnd_api.g_ret_sts_unexp_error;
1197:

Line 1199: print_debug('MTL_QP_PRICE.G_Line_Initialize: IC fields EXCEP UNEXP OTHERS - ' || SQLERRM);

1195: WHEN OTHERS THEN
1196: x_return_status := fnd_api.g_ret_sts_unexp_error;
1197:
1198: IF (l_debug = 1) THEN
1199: print_debug('MTL_QP_PRICE.G_Line_Initialize: IC fields EXCEP UNEXP OTHERS - ' || SQLERRM);
1200: END IF;
1201: END;
1202:
1203: inv_ic_order_pub.g_line.ic_selling_org_id := l_sell_org_id;

Line 1210: print_debug('MTL_QP_PRICE.G_Line_Initialize: Populating G_LINE...');

1206: END IF; -- OPM INVCONV umoogala (if p_request_type_code = 'IC')
1207:
1208: -- Line population
1209: IF (l_debug = 1) THEN
1210: print_debug('MTL_QP_PRICE.G_Line_Initialize: Populating G_LINE...');
1211: END IF;
1212:
1213: SELECT accounting_rule_id
1214: , actual_arrival_date

Line 1805: print_debug('MTL_QP_PRICE.G_Line_Initialize: InventoryItemId=' || TO_CHAR(inv_ic_order_pub.g_line.inventory_item_id));

1801:
1802: inv_ic_order_pub.g_line.calculate_price_flag := 'Y';
1803:
1804: IF (l_debug = 1) THEN
1805: print_debug('MTL_QP_PRICE.G_Line_Initialize: InventoryItemId=' || TO_CHAR(inv_ic_order_pub.g_line.inventory_item_id));
1806: END IF;
1807: EXCEPTION
1808: WHEN NO_DATA_FOUND THEN
1809: x_return_status := fnd_api.g_ret_sts_error;

Line 1812: print_debug('MTL_QP_PRICE.G_Line_Initialize: EXCEP NO_DATA_FOUND ');

1808: WHEN NO_DATA_FOUND THEN
1809: x_return_status := fnd_api.g_ret_sts_error;
1810:
1811: IF (l_debug = 1) THEN
1812: print_debug('MTL_QP_PRICE.G_Line_Initialize: EXCEP NO_DATA_FOUND ');
1813: END IF;
1814:
1815: fnd_message.set_name('INV', 'INV_NO_DATA_EXISTS');
1816: RAISE NO_DATA_FOUND;

Line 1821: print_debug('MTL_QP_PRICE.G_Line_Initialize: EXCEP UNEXP OTHERS - ' || SQLERRM);

1817: WHEN OTHERS THEN
1818: x_return_status := fnd_api.g_ret_sts_unexp_error;
1819:
1820: IF (l_debug = 1) THEN
1821: print_debug('MTL_QP_PRICE.G_Line_Initialize: EXCEP UNEXP OTHERS - ' || SQLERRM);
1822: END IF;
1823:
1824: RAISE fnd_api.g_exc_unexpected_error;
1825: END g_line_initialize;

Line 2002: print_debug('MTL_QP_PRICE.Populate_Temp_Table: Calling QP:Bulk insert routine...');

1998: END IF;
1999: END LOOP;
2000:
2001: IF (l_debug = 1) THEN
2002: print_debug('MTL_QP_PRICE.Populate_Temp_Table: Calling QP:Bulk insert routine...');
2003: END IF;
2004:
2005: qp_preq_grp.insert_lines2(
2006: p_line_index => g_line_index_tbl

Line 2045: print_debug('MTL_QP_PRICE.Populate_Temp_Table: QP_PREQ_GRP.INSERT_LINES2 error ');

2041: );
2042:
2043: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2044: IF (l_debug = 1) THEN
2045: print_debug('MTL_QP_PRICE.Populate_Temp_Table: QP_PREQ_GRP.INSERT_LINES2 error ');
2046: print_debug('MTL_QP_PRICE.Populate_Temp_Table: x_return_status_text=' || l_return_status_text);
2047: END IF;
2048:
2049: x_return_status := l_return_status;

Line 2046: print_debug('MTL_QP_PRICE.Populate_Temp_Table: x_return_status_text=' || l_return_status_text);

2042:
2043: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2044: IF (l_debug = 1) THEN
2045: print_debug('MTL_QP_PRICE.Populate_Temp_Table: QP_PREQ_GRP.INSERT_LINES2 error ');
2046: print_debug('MTL_QP_PRICE.Populate_Temp_Table: x_return_status_text=' || l_return_status_text);
2047: END IF;
2048:
2049: x_return_status := l_return_status;
2050: fnd_message.set_name('INV', 'INV_UNHANDLED_ERR');

Line 2061: print_debug('MTL_QP_PRICE.Populate_Temp_Table: No. of records inserted in QP_PREQ_LINES_TMP=' || TO_CHAR(i));

2057: INTO i
2058: FROM qp_preq_lines_tmp;
2059:
2060: IF (l_debug = 1) THEN
2061: print_debug('MTL_QP_PRICE.Populate_Temp_Table: No. of records inserted in QP_PREQ_LINES_TMP=' || TO_CHAR(i));
2062: END IF;
2063: EXCEPTION
2064: WHEN fnd_api.g_exc_error THEN
2065: RAISE fnd_api.g_exc_error;

Line 2070: print_debug('MTL_QP_PRICE.Populate_Temp_Table: EXCEP UNEXP OTHERS - ' || SQLERRM);

2066: WHEN OTHERS THEN
2067: x_return_status := fnd_api.g_ret_sts_unexp_error;
2068:
2069: IF (l_debug = 1) THEN
2070: print_debug('MTL_QP_PRICE.Populate_Temp_Table: EXCEP UNEXP OTHERS - ' || SQLERRM);
2071: END IF;
2072: END populate_temp_table;
2073:
2074: PROCEDURE populate_results(p_line_index NUMBER, x_return_status OUT NOCOPY VARCHAR2) IS

Line 2153: print_debug('MTL_QP_PRICE.Populate_Results: UNIT PRICE NOT POPULATED');

2149: IF g_line_type_code_tbl(i) = 'LINE' THEN
2150: x_return_status := fnd_api.g_ret_sts_error;
2151:
2152: IF (l_debug = 1) THEN
2153: print_debug('MTL_QP_PRICE.Populate_Results: UNIT PRICE NOT POPULATED');
2154: END IF;
2155: ELSE
2156: IF (l_debug = 1) THEN
2157: print_debug('MTL_QP_PRICE.Populate_Results: ' || g_line_type_code_tbl(i) || ' NO_DATA_FOUND');

Line 2157: print_debug('MTL_QP_PRICE.Populate_Results: ' || g_line_type_code_tbl(i) || ' NO_DATA_FOUND');

2153: print_debug('MTL_QP_PRICE.Populate_Results: UNIT PRICE NOT POPULATED');
2154: END IF;
2155: ELSE
2156: IF (l_debug = 1) THEN
2157: print_debug('MTL_QP_PRICE.Populate_Results: ' || g_line_type_code_tbl(i) || ' NO_DATA_FOUND');
2158: END IF;
2159: END IF;
2160: WHEN OTHERS THEN
2161: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 2164: print_debug('MTL_QP_PRICE.Populate_Results: ' || SQLERRM);

2160: WHEN OTHERS THEN
2161: x_return_status := fnd_api.g_ret_sts_unexp_error;
2162:
2163: IF (l_debug = 1) THEN
2164: print_debug('MTL_QP_PRICE.Populate_Results: ' || SQLERRM);
2165: END IF;
2166: END;
2167:
2168: IF g_line_type_code_tbl(i) = 'LINE' THEN

Line 2171: print_debug('MTL_QP_PRICE.Populate_Results: Unit_Price=' || g_unit_selling_price_tbl(i));

2167:
2168: IF g_line_type_code_tbl(i) = 'LINE' THEN
2169: IF g_pricing_status_code_tbl(i) = qp_preq_grp.g_status_updated THEN
2170: IF (l_debug = 1) THEN
2171: print_debug('MTL_QP_PRICE.Populate_Results: Unit_Price=' || g_unit_selling_price_tbl(i));
2172: END IF;
2173: ELSE
2174: x_return_status := fnd_api.g_ret_sts_error;
2175:

Line 2178: 'MTL_QP_PRICE.Populate_Results: Status_Code=' || g_pricing_status_code_tbl(i) || ' Status_Text='

2174: x_return_status := fnd_api.g_ret_sts_error;
2175:
2176: IF (l_debug = 1) THEN
2177: print_debug(
2178: 'MTL_QP_PRICE.Populate_Results: Status_Code=' || g_pricing_status_code_tbl(i) || ' Status_Text='
2179: || g_pricing_status_text_tbl(i)
2180: );
2181: END IF;
2182: END IF;

Line 2215: print_debug('MTL_QP_PRICE.Populate_Results: EXCEP UNEXP OTHERS - ' || SQLERRM);

2211: WHEN OTHERS THEN
2212: x_return_status := fnd_api.g_ret_sts_unexp_error;
2213:
2214: IF (l_debug = 1) THEN
2215: print_debug('MTL_QP_PRICE.Populate_Results: EXCEP UNEXP OTHERS - ' || SQLERRM);
2216: END IF;
2217:
2218: RAISE fnd_api.g_exc_unexpected_error;
2219: END populate_results;

Line 2396: print_debug('START MTL_QP_PRICE.Get_Transfer_Price_DS ');

2392: x_tfrpricecode := 1;
2393: x_msg_count := 0;
2394: x_msg_data := ' ';
2395: l_tfrprice := -1;
2396: print_debug('START MTL_QP_PRICE.Get_Transfer_Price_DS ');
2397: print_debug('Input Parameters are ');
2398: print_debug('p_transaction_id = ' || p_transaction_id);
2399: print_debug('p_sell_ou_id = ' || p_sell_ou_id || ' p_ship_ou_id = ' || p_ship_ou_id);
2400: print_debug('p_flow_type = ' || p_flow_type);

Line 2442: print_debug('MTL_QP_PRICE.get_transfer_price: Selecting Primary UOM...');

2438: AND rcv.unit_of_measure = um.unit_of_measure;
2439:
2440: IF (l_debug = 1) THEN
2441: print_debug('l_line_id = ' || l_line_id || ' l_header_id = ' || l_header_id);
2442: print_debug('MTL_QP_PRICE.get_transfer_price: Selecting Primary UOM...');
2443: END IF;
2444:
2445: SELECT primary_uom_code
2446: INTO l_primary_uom

Line 2452: print_debug('MTL_QP_PRICE.get_transfer_price: Building Global Structure...');

2448: WHERE inventory_item_id = l_inventory_item_id
2449: AND organization_id = l_organization_id;
2450:
2451: IF (l_debug = 1) THEN
2452: print_debug('MTL_QP_PRICE.get_transfer_price: Building Global Structure...');
2453: END IF;
2454:
2455: g_proc_hdr_initialize(l_header_id, p_incr_code, p_incrcurrency, x_return_status);
2456: print_debug('Calling G_PROC_Line_Initialize');

Line 2466: print_debug('MTL_QP_PRICE.get_transfer_price: Build Context for header...');

2462: copy_proc_header_to_request(p_header_rec => inv_ic_order_pub.g_proc_hdr, p_request_type_code => l_request_type_code
2463: , px_line_index => l_line_index);
2464:
2465: IF (l_debug = 1) THEN
2466: print_debug('MTL_QP_PRICE.get_transfer_price: Build Context for header...');
2467: END IF;
2468:
2469: qp_attr_mapping_pub.build_contexts(p_request_type_code => l_request_type_code, p_pricing_type_code => 'H'
2470: , p_line_index => inv_ic_order_pub.g_proc_hdr.po_header_id);

Line 2481: print_debug('MTL_QP_PRICE.get_transfer_price: Build Context for line...');

2477: );
2478: inv_ic_order_pub.g_proc_line.primary_uom := l_primary_uom;
2479:
2480: IF (l_debug = 1) THEN
2481: print_debug('MTL_QP_PRICE.get_transfer_price: Build Context for line...');
2482: END IF;
2483:
2484: qp_attr_mapping_pub.build_contexts(
2485: p_request_type_code => l_request_type_code

Line 2492: print_debug('MTL_QP_PRICE.get_transfer_price: Populating Lines temp table...');

2488: );
2489:
2490: IF l_line_index > 0 THEN
2491: IF (l_debug = 1) THEN
2492: print_debug('MTL_QP_PRICE.get_transfer_price: Populating Lines temp table...');
2493: END IF;
2494:
2495: populate_temp_table(x_return_status);
2496: END IF;

Line 2499: print_debug('MTL_QP_PRICE.get_transfer_price: Initializing control record...');

2495: populate_temp_table(x_return_status);
2496: END IF;
2497:
2498: IF (l_debug = 1) THEN
2499: print_debug('MTL_QP_PRICE.get_transfer_price: Initializing control record...');
2500: END IF;
2501:
2502: l_control_rec.pricing_event := l_pricing_event;
2503: l_control_rec.calculate_flag := qp_preq_grp.g_search_n_calculate;

Line 2510: print_debug('MTL_QP_PRICE.get_transfer_price: Assigning value of org_id to l_control_rec...'||p_ship_ou_id);

2506: l_control_rec.rounding_flag := 'Y';
2507: -- Bug 3070474 (Porting from Bug 3027452 ): added the following statement
2508: l_control_rec.use_multi_currency := 'Y';
2509:
2510: print_debug('MTL_QP_PRICE.get_transfer_price: Assigning value of org_id to l_control_rec...'||p_ship_ou_id);
2511: --MOAC Changes: Passing the Shipping Operating unit to QP API.
2512: l_control_rec.org_id := p_ship_ou_id;
2513: print_debug('MTL_QP_PRICE.get_transfer_price: After assigning the value of org_id to l_control_rec...'||l_control_rec.org_id);
2514:

Line 2513: print_debug('MTL_QP_PRICE.get_transfer_price: After assigning the value of org_id to l_control_rec...'||l_control_rec.org_id);

2509:
2510: print_debug('MTL_QP_PRICE.get_transfer_price: Assigning value of org_id to l_control_rec...'||p_ship_ou_id);
2511: --MOAC Changes: Passing the Shipping Operating unit to QP API.
2512: l_control_rec.org_id := p_ship_ou_id;
2513: print_debug('MTL_QP_PRICE.get_transfer_price: After assigning the value of org_id to l_control_rec...'||l_control_rec.org_id);
2514:
2515: IF (l_debug = 1) THEN
2516: print_debug('MTL_QP_PRICE.get_transfer_price: Calling QP:Price Request routine ...');
2517: END IF;

Line 2516: print_debug('MTL_QP_PRICE.get_transfer_price: Calling QP:Price Request routine ...');

2512: l_control_rec.org_id := p_ship_ou_id;
2513: print_debug('MTL_QP_PRICE.get_transfer_price: After assigning the value of org_id to l_control_rec...'||l_control_rec.org_id);
2514:
2515: IF (l_debug = 1) THEN
2516: print_debug('MTL_QP_PRICE.get_transfer_price: Calling QP:Price Request routine ...');
2517: END IF;
2518:
2519: qp_preq_pub.price_request(p_control_rec => l_control_rec, x_return_status => x_return_status
2520: , x_return_status_text => l_return_status_text);

Line 2524: print_debug('MTL_QP_PRICE.get_transfer_price: QP_PREQ_PUB.PRICE_REQUEST error ');

2520: , x_return_status_text => l_return_status_text);
2521:
2522: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
2523: IF (l_debug = 1) THEN
2524: print_debug('MTL_QP_PRICE.get_transfer_price: QP_PREQ_PUB.PRICE_REQUEST error ');
2525: print_debug('MTL_QP_PRICE.get_transfer_price: x_return_status_text=' || l_return_status_text);
2526: END IF;
2527:
2528: fnd_message.set_name('INV', 'INV_UNHANDLED_ERR');

Line 2525: print_debug('MTL_QP_PRICE.get_transfer_price: x_return_status_text=' || l_return_status_text);

2521:
2522: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
2523: IF (l_debug = 1) THEN
2524: print_debug('MTL_QP_PRICE.get_transfer_price: QP_PREQ_PUB.PRICE_REQUEST error ');
2525: print_debug('MTL_QP_PRICE.get_transfer_price: x_return_status_text=' || l_return_status_text);
2526: END IF;
2527:
2528: fnd_message.set_name('INV', 'INV_UNHANDLED_ERR');
2529: fnd_message.set_token('ENTITY1', 'QP_PREQ_PUB.PRICE_REQUEST');

Line 2535: print_debug('MTL_QP_PRICE.get_transfer_price: Populating QP results ...');

2531: RAISE fnd_api.g_exc_error;
2532: END IF;
2533:
2534: IF (l_debug = 1) THEN
2535: print_debug('MTL_QP_PRICE.get_transfer_price: Populating QP results ...');
2536: END IF;
2537:
2538: populate_results(l_line_index, x_return_status);
2539: x_currency_code := g_currency_code_tbl(l_line_index);

Line 2560: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP NO_DATA_FOUND ');

2556: END IF;
2557: EXCEPTION
2558: WHEN NO_DATA_FOUND THEN
2559: IF (l_debug = 1) THEN
2560: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP NO_DATA_FOUND ');
2561: print_debug('l_progress = ' || l_progress);
2562: END IF;
2563:
2564: fnd_message.set_name('INV', 'INV_NO_DATA_EXISTS');

Line 2569: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP G_EXC_ERROR ');

2565: x_currency_code := NULL;
2566: RETURN(g_unit_selling_price_tbl(l_line_index));
2567: WHEN fnd_api.g_exc_error THEN
2568: IF (l_debug = 1) THEN
2569: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP G_EXC_ERROR ');
2570: print_debug('l_progress = ' || l_progress);
2571: END IF;
2572:
2573: x_currency_code := NULL;

Line 2577: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP G_EXC_UNEXPECTED_ERROR ');

2573: x_currency_code := NULL;
2574: RETURN(g_unit_selling_price_tbl(l_line_index));
2575: WHEN fnd_api.g_exc_unexpected_error THEN
2576: IF (l_debug = 1) THEN
2577: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP G_EXC_UNEXPECTED_ERROR ');
2578: print_debug('l_progress = ' || l_progress);
2579: END IF;
2580:
2581: x_currency_code := NULL;

Line 2585: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP UNEXP OTHERS - ' || SQLERRM);

2581: x_currency_code := NULL;
2582: RETURN(g_unit_selling_price_tbl(l_line_index));
2583: WHEN OTHERS THEN
2584: IF (l_debug = 1) THEN
2585: print_debug('MTL_QP_PRICE.get_transfer_price: EXCEP UNEXP OTHERS - ' || SQLERRM);
2586: print_debug('l_progress = ' || l_progress);
2587: END IF;
2588:
2589: x_currency_code := NULL;

Line 2605: print_debug('MTL_QP_PRICE.G_Proc_Hdr_Initialize: Populating G_PROC_HDR... ');

2601: x_return_status := fnd_api.g_ret_sts_success;
2602:
2603: -- Header population
2604: IF (l_debug = 1) THEN
2605: print_debug('MTL_QP_PRICE.G_Proc_Hdr_Initialize: Populating G_PROC_HDR... ');
2606: END IF;
2607:
2608: SELECT po_header_id
2609: , agent_id

Line 2857: print_debug('MTL_QP_PRICE.G_Proc_Hdr_Initialize: EXCEP NO_DATA_FOUND ');

2853: WHEN NO_DATA_FOUND THEN
2854: x_return_status := fnd_api.g_ret_sts_error;
2855:
2856: IF (l_debug = 1) THEN
2857: print_debug('MTL_QP_PRICE.G_Proc_Hdr_Initialize: EXCEP NO_DATA_FOUND ');
2858: END IF;
2859:
2860: fnd_message.set_name('INV', 'INV_NO_DATA_EXISTS');
2861: RAISE NO_DATA_FOUND;

Line 2866: print_debug('MTL_QP_PRICE.G_Proc_Hdr_Initialize: EXCEP UNEXP OTHERS - ' || SQLERRM);

2862: WHEN OTHERS THEN
2863: x_return_status := fnd_api.g_ret_sts_unexp_error;
2864:
2865: IF (l_debug = 1) THEN
2866: print_debug('MTL_QP_PRICE.G_Proc_Hdr_Initialize: EXCEP UNEXP OTHERS - ' || SQLERRM);
2867: END IF;
2868:
2869: RAISE fnd_api.g_exc_unexpected_error;
2870: END g_proc_hdr_initialize;

Line 2888: print_debug('MTL_QP_PRICE.G_Proc_Line_Initialize: Populating IC fields...');

2884: x_return_status := fnd_api.g_ret_sts_success;
2885:
2886: -- Intercompany fields population
2887: IF (l_debug = 1) THEN
2888: print_debug('MTL_QP_PRICE.G_Proc_Line_Initialize: Populating IC fields...');
2889: print_debug('p_to_org_id = ' || p_to_org_id || ' p_from_org_id = ' || p_from_org_id);
2890: print_debug('p_line_id = ' || p_line_id || ' p_primary_uom = ' || p_primary_uom);
2891: print_debug('p_inventory_item_id = ' || p_inventory_item_id || ' p_cto_item_flag = ' || p_cto_item_flag);
2892: END IF;

Line 2928: print_debug('MTL_QP_PRICE.G_Proc_Line_Initialize: IC fields NO_DATA_FOUND...');

2924: WHEN NO_DATA_FOUND THEN
2925: x_return_status := fnd_api.g_ret_sts_error;
2926:
2927: IF (l_debug = 1) THEN
2928: print_debug('MTL_QP_PRICE.G_Proc_Line_Initialize: IC fields NO_DATA_FOUND...');
2929: END IF;
2930: WHEN OTHERS THEN
2931: x_return_status := fnd_api.g_ret_sts_unexp_error;
2932:

Line 2934: print_debug('MTL_QP_PRICE.G_Proc_Line_Initialize: IC fields EXCEP UNEXP OTHERS - ' || SQLERRM);

2930: WHEN OTHERS THEN
2931: x_return_status := fnd_api.g_ret_sts_unexp_error;
2932:
2933: IF (l_debug = 1) THEN
2934: print_debug('MTL_QP_PRICE.G_Proc_Line_Initialize: IC fields EXCEP UNEXP OTHERS - ' || SQLERRM);
2935: END IF;
2936: END;
2937:
2938: print_debug('after getting information from mtl_intercompany_parameters');

Line 3177: ('MTL_QP_PRICE.G_Proc_Line_Initialize: Done Populating G_LINE.inventory_Item_Id from inv_ic_order_pub.g_proc_line.item_id..');

3173:
3174: -- Line population
3175: IF (l_debug = 1) THEN
3176: print_debug
3177: ('MTL_QP_PRICE.G_Proc_Line_Initialize: Done Populating G_LINE.inventory_Item_Id from inv_ic_order_pub.g_proc_line.item_id..');
3178: print_debug('MTL_QP_PRICE.G_Proc_Line_Initialize: Done Populating G_PROC_LINE structure...');
3179: END IF;
3180: EXCEPTION
3181: WHEN NO_DATA_FOUND THEN

Line 3178: print_debug('MTL_QP_PRICE.G_Proc_Line_Initialize: Done Populating G_PROC_LINE structure...');

3174: -- Line population
3175: IF (l_debug = 1) THEN
3176: print_debug
3177: ('MTL_QP_PRICE.G_Proc_Line_Initialize: Done Populating G_LINE.inventory_Item_Id from inv_ic_order_pub.g_proc_line.item_id..');
3178: print_debug('MTL_QP_PRICE.G_Proc_Line_Initialize: Done Populating G_PROC_LINE structure...');
3179: END IF;
3180: EXCEPTION
3181: WHEN NO_DATA_FOUND THEN
3182: x_return_status := fnd_api.g_ret_sts_error;

Line 3185: print_debug('MTL_QP_PRICE.G_Proc_Line_Initialize: EXCEP NO_DATA_FOUND ');

3181: WHEN NO_DATA_FOUND THEN
3182: x_return_status := fnd_api.g_ret_sts_error;
3183:
3184: IF (l_debug = 1) THEN
3185: print_debug('MTL_QP_PRICE.G_Proc_Line_Initialize: EXCEP NO_DATA_FOUND ');
3186: END IF;
3187:
3188: fnd_message.set_name('INV', 'INV_NO_DATA_EXISTS');
3189: RAISE NO_DATA_FOUND;

Line 3194: print_debug('MTL_QP_PRICE.G_Proc_Line_Initialize: EXCEP UNEXP OTHERS - ' || SQLERRM);

3190: WHEN OTHERS THEN
3191: x_return_status := fnd_api.g_ret_sts_unexp_error;
3192:
3193: IF (l_debug = 1) THEN
3194: print_debug('MTL_QP_PRICE.G_Proc_Line_Initialize: EXCEP UNEXP OTHERS - ' || SQLERRM);
3195: END IF;
3196:
3197: RAISE fnd_api.g_exc_unexpected_error;
3198: END g_proc_line_initialize;

Line 3199: END mtl_qp_price;

3195: END IF;
3196:
3197: RAISE fnd_api.g_exc_unexpected_error;
3198: END g_proc_line_initialize;
3199: END mtl_qp_price;