[Home] [Help]
39: AND msi.organization_id = p_order_line_rec.om_vld_org_id
40: AND nvl(msi.comms_nl_trackable_flag, 'N') = 'Y'
41: AND nvl(msi.shippable_item_flag, 'N') = 'Y';
42:
43: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
44: l_error_message varchar2(2000);
45: l_already_interfaced varchar2(1);
46: l_bypass varchar2(1);
47:
52: BEGIN
53:
54: api_log('process_ato_options');
55:
56: x_return_status := fnd_api.g_ret_sts_success;
57:
58: IF nvl(p_order_line_rec.ato_line_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
59: THEN
60:
54: api_log('process_ato_options');
55:
56: x_return_status := fnd_api.g_ret_sts_success;
57:
58: IF nvl(p_order_line_rec.ato_line_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
59: THEN
60:
61: l_bypass := nvl(fnd_profile.value('CSE_BYPASS_EVENT_QUEUE'), 'N');
62:
85: p_transaction_id => ato_option_rec.line_id,
86: x_trx_return_status => l_return_status,
87: x_trx_error_rec => l_error_rec);
88:
89: IF l_return_status <> fnd_api.g_ret_sts_success THEN
90: csi_inv_trxs_pkg.log_csi_error(l_error_rec);
91: l_return_status := fnd_api.g_ret_sts_success;
92: END IF;
93:
87: x_trx_error_rec => l_error_rec);
88:
89: IF l_return_status <> fnd_api.g_ret_sts_success THEN
90: csi_inv_trxs_pkg.log_csi_error(l_error_rec);
91: l_return_status := fnd_api.g_ret_sts_success;
92: END IF;
93:
94: END IF;
95:
100: END LOOP;
101: END IF;
102:
103: EXCEPTION
104: WHEN fnd_api.g_exc_error THEN
105: x_return_status := fnd_api.g_ret_sts_error;
106: END process_ato_options;
107:
108: PROCEDURE create_dflt_td_from_ship(
101: END IF;
102:
103: EXCEPTION
104: WHEN fnd_api.g_exc_error THEN
105: x_return_status := fnd_api.g_ret_sts_error;
106: END process_ato_options;
107:
108: PROCEDURE create_dflt_td_from_ship(
109: p_serial_code IN number,
125: l_c_t_ea_tbl csi_t_datastructures_grp.txn_ext_attrib_vals_tbl;
126: l_c_t_sys_tbl csi_t_datastructures_grp.txn_systems_tbl;
127: l_c_t_iir_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
128:
129: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
130:
131: l_msg_count number;
132: l_msg_data varchar2(2000);
133: l_instance_party_id number;
140: l_satisfied boolean := FALSE;
141:
142: BEGIN
143:
144: x_return_status := fnd_api.g_ret_sts_success;
145:
146: api_log('create_dflt_td_from_ship');
147:
148: l_ship_tbl := px_order_shipment_tbl;
156: l_c_t_sys_tbl.delete;
157: l_c_t_iir_tbl.delete;
158:
159: -- assign values for the columns in Txn_line_rec
160: l_c_tl_rec.transaction_line_id := fnd_api.g_miss_num;
161: l_c_tl_rec.source_transaction_id := p_order_line_rec.order_line_id;
162: l_c_tl_rec.source_transaction_type_id := g_txn_type_id;
163: l_c_tl_rec.source_transaction_table := 'WSH_DELIVERY_DETAILS';
164: l_c_tl_rec.processing_status := 'IN_PROCESS';
185: l_end_loop := l_ship_tbl(s_ind).shipped_quantity;
186: l_quantity := 1;
187: ELSE
188:
189: IF nvl(p_order_line_rec.link_to_line_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
190:
191: -- create tld records with respect to the parent/child ratio
192: SELECT ordered_quantity
193: INTO l_parent_ord_qty
217: WHERE instance_party_id = l_instance_party_id
218: AND relationship_type_code = 'OWNER';
219: EXCEPTION
220: WHEN no_data_found THEN
221: l_ip_account_id := fnd_api.g_miss_num;
222: END;
223:
224: l_satisfied := FALSE;
225:
227: LOOP
228:
229: IF p_serial_code = 1 AND NOT(p_trackable_parent)
230: AND
231: nvl(p_order_line_rec.link_to_line_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
232: THEN
233: l_total_qty := l_total_qty + l_quantity;
234:
235: IF l_total_qty = l_ship_tbl(s_ind).shipped_quantity THEN
249: l_c_tld_tbl(l_c_ind).sub_type_id := g_dflt_sub_type_id ;
250: l_c_tld_tbl(l_c_ind).inventory_item_id := l_ship_tbl(s_ind).inventory_item_id;
251: l_c_tld_tbl(l_c_ind).inv_organization_id := l_ship_tbl(s_ind).organization_id;
252: l_c_tld_tbl(l_c_ind).inventory_revision := l_ship_tbl(s_ind).revision;
253: l_c_tld_tbl(l_c_ind).item_condition_id := fnd_api.g_miss_num;
254: l_c_tld_tbl(l_c_ind).instance_type_code := fnd_api.g_miss_char;
255: l_c_tld_tbl(l_c_ind).unit_of_measure := l_ship_tbl(s_ind).transaction_uom;
256: l_c_tld_tbl(l_c_ind).serial_number := l_ship_tbl(s_ind).serial_number;
257: l_c_tld_tbl(l_c_ind).quantity := l_quantity;
250: l_c_tld_tbl(l_c_ind).inventory_item_id := l_ship_tbl(s_ind).inventory_item_id;
251: l_c_tld_tbl(l_c_ind).inv_organization_id := l_ship_tbl(s_ind).organization_id;
252: l_c_tld_tbl(l_c_ind).inventory_revision := l_ship_tbl(s_ind).revision;
253: l_c_tld_tbl(l_c_ind).item_condition_id := fnd_api.g_miss_num;
254: l_c_tld_tbl(l_c_ind).instance_type_code := fnd_api.g_miss_char;
255: l_c_tld_tbl(l_c_ind).unit_of_measure := l_ship_tbl(s_ind).transaction_uom;
256: l_c_tld_tbl(l_c_ind).serial_number := l_ship_tbl(s_ind).serial_number;
257: l_c_tld_tbl(l_c_ind).quantity := l_quantity;
258: l_c_tld_tbl(l_c_ind).lot_number := l_ship_tbl(s_ind).lot_number;
292: l_c_t_pty_acct_tbl(l_c_ind).object_version_number := 1;
293: l_c_t_pty_acct_tbl(l_c_ind).txn_party_details_index := l_c_ind;
294:
295: -- assign org assignment values
296: IF nvl(l_ship_tbl(s_ind).sold_from_org_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
297: THEN
298:
299: l_c_t_oa_tbl(l_c_ind).txn_operating_unit_id := fnd_api.g_miss_num;
300: l_c_t_oa_tbl(l_c_ind).txn_line_detail_id := fnd_api.g_miss_num;
295: -- assign org assignment values
296: IF nvl(l_ship_tbl(s_ind).sold_from_org_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
297: THEN
298:
299: l_c_t_oa_tbl(l_c_ind).txn_operating_unit_id := fnd_api.g_miss_num;
300: l_c_t_oa_tbl(l_c_ind).txn_line_detail_id := fnd_api.g_miss_num;
301: l_c_t_oa_tbl(l_c_ind).instance_ou_id := fnd_api.g_miss_num;
302: l_c_t_oa_tbl(l_c_ind).operating_unit_id := l_ship_tbl(s_ind).sold_from_org_id;
303: l_c_t_oa_tbl(l_c_ind).relationship_type_code := 'SOLD_FROM';
296: IF nvl(l_ship_tbl(s_ind).sold_from_org_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
297: THEN
298:
299: l_c_t_oa_tbl(l_c_ind).txn_operating_unit_id := fnd_api.g_miss_num;
300: l_c_t_oa_tbl(l_c_ind).txn_line_detail_id := fnd_api.g_miss_num;
301: l_c_t_oa_tbl(l_c_ind).instance_ou_id := fnd_api.g_miss_num;
302: l_c_t_oa_tbl(l_c_ind).operating_unit_id := l_ship_tbl(s_ind).sold_from_org_id;
303: l_c_t_oa_tbl(l_c_ind).relationship_type_code := 'SOLD_FROM';
304: l_c_t_oa_tbl(l_c_ind).active_start_date := sysdate;
297: THEN
298:
299: l_c_t_oa_tbl(l_c_ind).txn_operating_unit_id := fnd_api.g_miss_num;
300: l_c_t_oa_tbl(l_c_ind).txn_line_detail_id := fnd_api.g_miss_num;
301: l_c_t_oa_tbl(l_c_ind).instance_ou_id := fnd_api.g_miss_num;
302: l_c_t_oa_tbl(l_c_ind).operating_unit_id := l_ship_tbl(s_ind).sold_from_org_id;
303: l_c_t_oa_tbl(l_c_ind).relationship_type_code := 'SOLD_FROM';
304: l_c_t_oa_tbl(l_c_ind).active_start_date := sysdate;
305: l_c_t_oa_tbl(l_c_ind).preserve_detail_flag := 'Y';
328: debug(' l_c_t_sys_tbl.count :'||l_c_t_sys_tbl.count);
329:
330: csi_t_txn_details_grp.create_transaction_dtls(
331: p_api_version => 1.0,
332: p_commit => fnd_api.g_false,
333: p_init_msg_list => fnd_api.g_true,
334: p_validation_level => fnd_api.g_valid_level_none,
335: px_txn_line_rec => l_c_tl_rec,
336: px_txn_line_detail_tbl => l_c_tld_tbl,
329:
330: csi_t_txn_details_grp.create_transaction_dtls(
331: p_api_version => 1.0,
332: p_commit => fnd_api.g_false,
333: p_init_msg_list => fnd_api.g_true,
334: p_validation_level => fnd_api.g_valid_level_none,
335: px_txn_line_rec => l_c_tl_rec,
336: px_txn_line_detail_tbl => l_c_tld_tbl,
337: px_txn_party_detail_tbl => l_c_t_pty_tbl,
330: csi_t_txn_details_grp.create_transaction_dtls(
331: p_api_version => 1.0,
332: p_commit => fnd_api.g_false,
333: p_init_msg_list => fnd_api.g_true,
334: p_validation_level => fnd_api.g_valid_level_none,
335: px_txn_line_rec => l_c_tl_rec,
336: px_txn_line_detail_tbl => l_c_tld_tbl,
337: px_txn_party_detail_tbl => l_c_t_pty_tbl,
338: px_txn_pty_acct_detail_tbl => l_c_t_pty_acct_tbl,
343: x_return_status => l_return_status,
344: x_msg_count => l_msg_count,
345: x_msg_data => l_msg_data);
346:
347: IF l_return_status <> fnd_api.g_ret_sts_success THEN
348: RAISE fnd_api.g_exc_error;
349: END IF;
350:
351: x_transaction_line_id := l_c_tl_rec.transaction_line_id;
344: x_msg_count => l_msg_count,
345: x_msg_data => l_msg_data);
346:
347: IF l_return_status <> fnd_api.g_ret_sts_success THEN
348: RAISE fnd_api.g_exc_error;
349: END IF;
350:
351: x_transaction_line_id := l_c_tl_rec.transaction_line_id;
352:
352:
353: END IF;
354:
355: EXCEPTION
356: WHEN fnd_api.g_exc_error THEN
357: x_return_status := fnd_api.g_ret_sts_error;
358: END create_dflt_td_from_ship;
359:
360:
353: END IF;
354:
355: EXCEPTION
356: WHEN fnd_api.g_exc_error THEN
357: x_return_status := fnd_api.g_ret_sts_error;
358: END create_dflt_td_from_ship;
359:
360:
361: /* sync tld quantities with sales order quantity */
377: l_c_teav_tbl csi_t_datastructures_grp.txn_ext_attrib_vals_tbl;
378: l_c_ts_tbl csi_t_datastructures_grp.txn_systems_tbl;
379: l_c_tiir_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
380:
381: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
382: l_msg_count number;
383: l_msg_data varchar2(2000);
384:
385: BEGIN
383: l_msg_data varchar2(2000);
384:
385: BEGIN
386:
387: x_return_status := fnd_api.g_ret_sts_success;
388:
389: BEGIN
390:
391: SELECT transaction_line_id
409: l_c_tld_rec.source_transaction_flag := 'Y';
410: l_c_tld_rec.instance_exists_flag := 'N';
411: l_c_tld_rec.sub_type_id := g_dflt_sub_type_id;
412: l_c_tld_rec.transaction_line_id := l_transaction_line_id;
413: l_c_tld_rec.txn_line_detail_id := fnd_api.g_miss_num;
414: l_c_tld_rec.inventory_item_id := p_order_line_rec.inv_item_id;
415: l_c_tld_rec.inv_organization_id := p_order_line_rec.inv_org_id;
416: l_c_tld_rec.quantity := l_diff_quantity;
417: l_c_tld_rec.unit_of_measure := p_order_line_rec.order_quantity_uom;
426: WHERE sub_type_id = l_c_tld_rec.sub_type_id;
427:
428: IF l_src_change_owner = 'Y' AND l_src_change_owner_to_code = 'E' THEN
429:
430: l_c_tpd_tbl(1).txn_party_detail_id := fnd_api.g_miss_num;
431:
432: SELECT party_id
433: INTO l_c_tpd_tbl(1).party_source_id
434: FROM hz_cust_accounts
441: l_c_tpd_tbl(1).object_version_number := 1;
442: l_c_tpd_tbl(1).txn_line_details_index := 1;
443:
444:
445: l_c_tpad_tbl(1).txn_account_detail_id := fnd_api.g_miss_num;
446: l_c_tpad_tbl(1).account_id := p_order_line_rec.customer_id;
447: l_c_tpad_tbl(1).relationship_type_code := 'OWNER';
448: l_c_tpad_tbl(1).active_start_date := sysdate;
449: l_c_tpad_tbl(1).object_version_number := 1;
453:
454: -- call api to create the transaction line details
455: csi_t_txn_line_dtls_pvt.create_txn_line_dtls(
456: p_api_version => 1.0 ,
457: p_commit => fnd_api.g_false,
458: p_init_msg_list => fnd_api.g_true,
459: p_validation_level => fnd_api.g_valid_level_none,
460: p_txn_line_dtl_index => 1,
461: p_txn_line_dtl_rec => l_c_tld_rec,
454: -- call api to create the transaction line details
455: csi_t_txn_line_dtls_pvt.create_txn_line_dtls(
456: p_api_version => 1.0 ,
457: p_commit => fnd_api.g_false,
458: p_init_msg_list => fnd_api.g_true,
459: p_validation_level => fnd_api.g_valid_level_none,
460: p_txn_line_dtl_index => 1,
461: p_txn_line_dtl_rec => l_c_tld_rec,
462: px_txn_party_dtl_tbl => l_c_tpd_tbl,
455: csi_t_txn_line_dtls_pvt.create_txn_line_dtls(
456: p_api_version => 1.0 ,
457: p_commit => fnd_api.g_false,
458: p_init_msg_list => fnd_api.g_true,
459: p_validation_level => fnd_api.g_valid_level_none,
460: p_txn_line_dtl_index => 1,
461: p_txn_line_dtl_rec => l_c_tld_rec,
462: px_txn_party_dtl_tbl => l_c_tpd_tbl,
463: px_txn_pty_acct_detail_tbl => l_c_tpad_tbl,
467: x_return_status => l_return_status,
468: x_msg_count => l_msg_count,
469: x_msg_data => l_msg_data);
470:
471: IF l_return_status <> fnd_api.g_ret_sts_success THEN
472: RAISE fnd_api.g_exc_error;
473: END IF;
474:
475: END IF;
468: x_msg_count => l_msg_count,
469: x_msg_data => l_msg_data);
470:
471: IF l_return_status <> fnd_api.g_ret_sts_success THEN
472: RAISE fnd_api.g_exc_error;
473: END IF;
474:
475: END IF;
476:
479: null;
480: END;
481:
482: EXCEPTION
483: WHEN fnd_api.g_exc_error THEN
484: x_return_status := fnd_api.g_ret_sts_error;
485: END sync_tld_and_order;
486:
487: /*--------------------------------------------------------------------*/
480: END;
481:
482: EXCEPTION
483: WHEN fnd_api.g_exc_error THEN
484: x_return_status := fnd_api.g_ret_sts_error;
485: END sync_tld_and_order;
486:
487: /*--------------------------------------------------------------------*/
488: /* This is the main procedure to interface the order and installation */
540: x_txn_ii_rltns_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
541: x_model_inst_tbl model_inst_tbl;
542:
543: l_item_control_rec csi_order_ship_pub.item_control_rec;
544: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
545: l_msg_count number;
546: l_msg_data varchar2(2000);
547: l_temp_txn_ii_rltns_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
548: l_t_ii_indx NUMBER := 0;
547: l_temp_txn_ii_rltns_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
548: l_t_ii_indx NUMBER := 0;
549:
550: l_error_rec csi_datastructures_pub.transaction_error_rec;
551: l_parent_line_qty NUMBER := fnd_api.g_miss_num;
552: l_literal1 VARCHAR2(30) ;
553: l_literal2 VARCHAR2(30) ;
554: l_source_header_rec csi_interface_pkg.source_header_rec;
555: l_source_line_rec csi_interface_pkg.source_line_rec;
564: /* Standard Start of API savepoint */
565: savepoint order_shipment;
566:
567: /* Initialize API return status to success */
568: x_return_status := fnd_api.g_ret_sts_success;
569: l_error_rec := px_trx_error_rec;
570:
571: csi_t_gen_utility_pvt.build_file_name (
572: p_file_segment1 => 'csisoshp',
587: csi_utl_pkg.get_int_party(
588: x_int_party_id => l_internal_party_id,
589: x_return_status => l_return_status);
590:
591: IF l_return_status <> fnd_api.g_ret_sts_success THEN
592: raise fnd_api.g_exc_error;
593: END IF;
594:
595: -- Get the order line details
588: x_int_party_id => l_internal_party_id,
589: x_return_status => l_return_status);
590:
591: IF l_return_status <> fnd_api.g_ret_sts_success THEN
592: raise fnd_api.g_exc_error;
593: END IF;
594:
595: -- Get the order line details
596: csi_utl_pkg.get_order_line_dtls(
597: p_mtl_transaction_id => p_mtl_transaction_id,
598: x_order_line_rec => l_order_line_rec,
599: x_return_status => l_return_status);
600:
601: IF l_return_status <> fnd_api.g_ret_sts_success THEN
602: raise fnd_api.g_exc_error;
603: END IF;
604:
605: --Code start for bug 5194812--
598: x_order_line_rec => l_order_line_rec,
599: x_return_status => l_return_status);
600:
601: IF l_return_status <> fnd_api.g_ret_sts_success THEN
602: raise fnd_api.g_exc_error;
603: END IF;
604:
605: --Code start for bug 5194812--
606: l_om_session_key.session_hdr_id := l_order_line_rec.config_header_id;
632: p_mtl_txn_id => p_mtl_transaction_id,
633: x_item_control_rec => l_item_control_rec,
634: x_return_status => l_return_status);
635:
636: IF l_return_status <> fnd_api.g_ret_sts_success THEN
637: RAISE fnd_api.g_exc_error;
638: END IF;
639:
640: -- assign the values to l_order_line_rec
633: x_item_control_rec => l_item_control_rec,
634: x_return_status => l_return_status);
635:
636: IF l_return_status <> fnd_api.g_ret_sts_success THEN
637: RAISE fnd_api.g_exc_error;
638: END IF;
639:
640: -- assign the values to l_order_line_rec
641: l_order_line_rec.inv_mtl_transaction_id := p_mtl_transaction_id;
656: l_error_rec.src_location_ctrl_code := l_item_control_rec.locator_control_code;
657: l_error_rec.src_rev_qty_ctrl_code := l_item_control_rec.revision_control_code;
658: l_error_rec.comms_nl_trackable_flag := l_item_control_rec.ib_trackable_flag;
659:
660: IF NVL(l_order_line_rec.link_to_line_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
661:
662: csi_utl_pkg.get_link_to_line_id (
663: x_link_to_line_id => l_order_line_rec.link_to_line_id,
664: x_return_status => l_return_status );
662: csi_utl_pkg.get_link_to_line_id (
663: x_link_to_line_id => l_order_line_rec.link_to_line_id,
664: x_return_status => l_return_status );
665:
666: IF l_return_status <> fnd_api.g_ret_sts_success THEN
667: raise fnd_api.g_exc_error;
668: END IF;
669:
670: END IF;
663: x_link_to_line_id => l_order_line_rec.link_to_line_id,
664: x_return_status => l_return_status );
665:
666: IF l_return_status <> fnd_api.g_ret_sts_success THEN
667: raise fnd_api.g_exc_error;
668: END IF;
669:
670: END IF;
671:
674: p_order_line_rec => l_order_line_rec,
675: x_trackable_line_tbl => l_trk_oe_line_tbl,
676: x_return_status => l_return_status);
677:
678: IF l_return_status <> fnd_api.g_ret_sts_success THEN
679: RAISE fnd_api.g_exc_error;
680: END IF;
681:
682: IF l_trk_oe_line_tbl.COUNT > 0 THEN
675: x_trackable_line_tbl => l_trk_oe_line_tbl,
676: x_return_status => l_return_status);
677:
678: IF l_return_status <> fnd_api.g_ret_sts_success THEN
679: RAISE fnd_api.g_exc_error;
680: END IF;
681:
682: IF l_trk_oe_line_tbl.COUNT > 0 THEN
683: l_trackable_parent := TRUE;
688: p_transaction_type_id => g_txn_type_id,
689: x_sub_type_id => g_dflt_sub_type_id,
690: x_return_status => l_return_status);
691:
692: IF l_return_status <> fnd_api.g_ret_sts_success THEN
693: raise fnd_api.g_exc_error;
694: END IF;
695:
696: csi_utl_pkg.get_sub_type_rec(
689: x_sub_type_id => g_dflt_sub_type_id,
690: x_return_status => l_return_status);
691:
692: IF l_return_status <> fnd_api.g_ret_sts_success THEN
693: raise fnd_api.g_exc_error;
694: END IF;
695:
696: csi_utl_pkg.get_sub_type_rec(
697: p_sub_type_id => g_dflt_sub_type_id,
698: p_trx_type_id => g_txn_type_id,
699: x_trx_sub_type_rec => x_trx_sub_type_rec,
700: x_return_status => l_return_status) ;
701:
702: IF l_return_status <> fnd_api.g_ret_sts_success THEN
703: raise fnd_api.g_exc_error;
704: END IF;
705:
706: debug(' transaction_type_id: '||x_trx_sub_type_rec.trx_type_id );
699: x_trx_sub_type_rec => x_trx_sub_type_rec,
700: x_return_status => l_return_status) ;
701:
702: IF l_return_status <> fnd_api.g_ret_sts_success THEN
703: raise fnd_api.g_exc_error;
704: END IF;
705:
706: debug(' transaction_type_id: '||x_trx_sub_type_rec.trx_type_id );
707: debug(' default sub_type_id: '||x_trx_sub_type_rec.sub_type_id );
722: sync_tld_and_order(
723: p_order_line_rec => l_order_line_rec,
724: x_return_status => l_return_status);
725:
726: IF l_return_status <> fnd_api.g_ret_sts_success THEN
727: RAISE fnd_api.g_exc_error;
728: END IF;
729:
730: /*------------------------------------------------*/
723: p_order_line_rec => l_order_line_rec,
724: x_return_status => l_return_status);
725:
726: IF l_return_status <> fnd_api.g_ret_sts_success THEN
727: RAISE fnd_api.g_exc_error;
728: END IF;
729:
730: /*------------------------------------------------*/
731: /* If the order line has a parent then create txn */
731: /* If the order line has a parent then create txn */
732: /* line dtls in the parent/child order qty ratio */
733: /* -----------------------------------------------*/
734:
735: IF NVL(l_order_line_rec.link_to_line_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
736:
737: debug('This is a child order line. Check model and cascade installation details.');
738:
739: csi_utl_pkg.get_qty_ratio(
743: p_link_to_line_id => l_order_line_rec.link_to_line_id,
744: x_qty_ratio => l_qty_ratio ,
745: x_return_status => l_return_status );
746:
747: IF x_return_status <> fnd_api.g_ret_sts_success THEN
748: raise fnd_api.g_exc_error;
749: END IF;
750:
751: csi_utl_pkg.cascade_txn_dtls(
744: x_qty_ratio => l_qty_ratio ,
745: x_return_status => l_return_status );
746:
747: IF x_return_status <> fnd_api.g_ret_sts_success THEN
748: raise fnd_api.g_exc_error;
749: END IF;
750:
751: csi_utl_pkg.cascade_txn_dtls(
752: p_source_trx_id => l_order_line_rec.order_line_id,
753: p_source_trx_table => 'OE_ORDER_LINES_ALL',
754: p_ratio => l_qty_ratio,
755: x_return_status => x_return_status);
756:
757: IF x_return_status <> fnd_api.g_ret_sts_success THEN
758: raise fnd_api.g_exc_error;
759: END IF;
760:
761: END IF;
754: p_ratio => l_qty_ratio,
755: x_return_status => x_return_status);
756:
757: IF x_return_status <> fnd_api.g_ret_sts_success THEN
758: raise fnd_api.g_exc_error;
759: END IF;
760:
761: END IF;
762:
786: fnd_message.set_name('CSI','CSI_INT_TRX_LINE_MISSING');
787: fnd_message.set_token('SOURCE_TRANSACTION_ID', l_copy_txn_line_rec.SOURCE_TRANSACTION_ID);
788: fnd_message.set_token('SOURCE_TRANSACTION_TABLE',l_copy_txn_line_rec.SOURCE_TRANSACTION_TABLE);
789: fnd_msg_pub.add;
790: raise fnd_api.g_exc_error;
791: END;
792:
793: ELSE
794:
809: ---Added (End) for m-to-m enhancements
810:
811: csi_t_txn_details_pvt.copy_transaction_dtls(
812: p_api_version => 1.0,
813: p_commit => fnd_api.g_false,
814: p_init_msg_list => fnd_api.g_true,
815: p_validation_level => fnd_api.g_valid_level_none,
816: p_src_txn_line_rec => l_src_txn_line_rec,
817: px_new_txn_line_rec => l_new_txn_line_rec,
810:
811: csi_t_txn_details_pvt.copy_transaction_dtls(
812: p_api_version => 1.0,
813: p_commit => fnd_api.g_false,
814: p_init_msg_list => fnd_api.g_true,
815: p_validation_level => fnd_api.g_valid_level_none,
816: p_src_txn_line_rec => l_src_txn_line_rec,
817: px_new_txn_line_rec => l_new_txn_line_rec,
818: p_copy_parties_flag => fnd_api.g_true,
811: csi_t_txn_details_pvt.copy_transaction_dtls(
812: p_api_version => 1.0,
813: p_commit => fnd_api.g_false,
814: p_init_msg_list => fnd_api.g_true,
815: p_validation_level => fnd_api.g_valid_level_none,
816: p_src_txn_line_rec => l_src_txn_line_rec,
817: px_new_txn_line_rec => l_new_txn_line_rec,
818: p_copy_parties_flag => fnd_api.g_true,
819: p_copy_pty_accts_flag => fnd_api.g_true,
814: p_init_msg_list => fnd_api.g_true,
815: p_validation_level => fnd_api.g_valid_level_none,
816: p_src_txn_line_rec => l_src_txn_line_rec,
817: px_new_txn_line_rec => l_new_txn_line_rec,
818: p_copy_parties_flag => fnd_api.g_true,
819: p_copy_pty_accts_flag => fnd_api.g_true,
820: p_copy_ii_rltns_flag => fnd_api.g_true,
821: p_copy_org_assgn_flag => fnd_api.g_true,
822: p_copy_ext_attribs_flag => fnd_api.g_true,
815: p_validation_level => fnd_api.g_valid_level_none,
816: p_src_txn_line_rec => l_src_txn_line_rec,
817: px_new_txn_line_rec => l_new_txn_line_rec,
818: p_copy_parties_flag => fnd_api.g_true,
819: p_copy_pty_accts_flag => fnd_api.g_true,
820: p_copy_ii_rltns_flag => fnd_api.g_true,
821: p_copy_org_assgn_flag => fnd_api.g_true,
822: p_copy_ext_attribs_flag => fnd_api.g_true,
823: p_copy_txn_systems_flag => fnd_api.g_true,
816: p_src_txn_line_rec => l_src_txn_line_rec,
817: px_new_txn_line_rec => l_new_txn_line_rec,
818: p_copy_parties_flag => fnd_api.g_true,
819: p_copy_pty_accts_flag => fnd_api.g_true,
820: p_copy_ii_rltns_flag => fnd_api.g_true,
821: p_copy_org_assgn_flag => fnd_api.g_true,
822: p_copy_ext_attribs_flag => fnd_api.g_true,
823: p_copy_txn_systems_flag => fnd_api.g_true,
824: x_return_status => x_return_status,
817: px_new_txn_line_rec => l_new_txn_line_rec,
818: p_copy_parties_flag => fnd_api.g_true,
819: p_copy_pty_accts_flag => fnd_api.g_true,
820: p_copy_ii_rltns_flag => fnd_api.g_true,
821: p_copy_org_assgn_flag => fnd_api.g_true,
822: p_copy_ext_attribs_flag => fnd_api.g_true,
823: p_copy_txn_systems_flag => fnd_api.g_true,
824: x_return_status => x_return_status,
825: x_msg_count => x_msg_count,
818: p_copy_parties_flag => fnd_api.g_true,
819: p_copy_pty_accts_flag => fnd_api.g_true,
820: p_copy_ii_rltns_flag => fnd_api.g_true,
821: p_copy_org_assgn_flag => fnd_api.g_true,
822: p_copy_ext_attribs_flag => fnd_api.g_true,
823: p_copy_txn_systems_flag => fnd_api.g_true,
824: x_return_status => x_return_status,
825: x_msg_count => x_msg_count,
826: x_msg_data => x_msg_data);
819: p_copy_pty_accts_flag => fnd_api.g_true,
820: p_copy_ii_rltns_flag => fnd_api.g_true,
821: p_copy_org_assgn_flag => fnd_api.g_true,
822: p_copy_ext_attribs_flag => fnd_api.g_true,
823: p_copy_txn_systems_flag => fnd_api.g_true,
824: x_return_status => x_return_status,
825: x_msg_count => x_msg_count,
826: x_msg_data => x_msg_data);
827:
824: x_return_status => x_return_status,
825: x_msg_count => x_msg_count,
826: x_msg_data => x_msg_data);
827:
828: IF x_return_status <> fnd_api.g_ret_sts_success THEN
829: g_api_name := 'csi_t_txn_details_pvt.copy_transaction_dtls';
830: raise fnd_api.g_exc_error;
831: END IF;
832:
826: x_msg_data => x_msg_data);
827:
828: IF x_return_status <> fnd_api.g_ret_sts_success THEN
829: g_api_name := 'csi_t_txn_details_pvt.copy_transaction_dtls';
830: raise fnd_api.g_exc_error;
831: END IF;
832:
833: l_trx_line_id := l_new_txn_line_rec.transaction_line_id;
834:
843: p_source_trx_id => l_order_line_rec.order_line_id,
844: p_source_trx_table => 'WSH_DELIVERY_DETAILS',
845: x_return_status => x_return_status );
846:
847: IF x_return_status <> fnd_api.g_ret_sts_success THEN
848: raise fnd_api.g_exc_error;
849: END IF;
850:
851: END IF;
844: p_source_trx_table => 'WSH_DELIVERY_DETAILS',
845: x_return_status => x_return_status );
846:
847: IF x_return_status <> fnd_api.g_ret_sts_success THEN
848: raise fnd_api.g_exc_error;
849: END IF;
850:
851: END IF;
852: ---Added (End) for m-to-m enhancements
862: /* will cascade the txn_line_details to option/ config lines */
863: /* from the txn line details entered for the top model */
864: /*----------------------------------------------------------------*/
865:
866: IF NVL(l_order_line_rec.top_model_line_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
867:
868: debug('component of a pto/ato model. cascade installation details from top model.');
869:
870: csi_t_utilities_pvt.cascade_model(
870: csi_t_utilities_pvt.cascade_model(
871: p_model_line_id => l_order_line_rec.top_model_line_id,
872: x_return_status => l_return_status );
873:
874: IF l_return_status <> fnd_api.g_ret_sts_success THEN
875: raise fnd_api.g_exc_error;
876: END IF;
877:
878: l_txn_line_rec.source_transaction_id := l_order_line_rec.order_line_id;
871: p_model_line_id => l_order_line_rec.top_model_line_id,
872: x_return_status => l_return_status );
873:
874: IF l_return_status <> fnd_api.g_ret_sts_success THEN
875: raise fnd_api.g_exc_error;
876: END IF;
877:
878: l_txn_line_rec.source_transaction_id := l_order_line_rec.order_line_id;
879: l_txn_line_rec.source_transaction_table := 'OE_ORDER_LINES_ALL';
892: /* If the order line has a parent then create txn */
893: /* line dtls in the parent/child order qty ratio */
894: /* -----------------------------------------------*/
895:
896: IF NVL(l_order_line_rec.link_to_line_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
897:
898: csi_utl_pkg.get_qty_ratio(
899: p_order_line_qty => l_order_line_rec.ordered_quantity,
900: p_order_item_id => l_order_line_rec.inv_item_id,
902: p_link_to_line_id => l_order_line_rec.link_to_line_id,
903: x_qty_ratio => l_qty_ratio ,
904: x_return_status => l_return_status );
905:
906: IF l_return_status <> fnd_api.g_ret_sts_success THEN
907: raise fnd_api.g_exc_error;
908: END IF;
909:
910: csi_utl_pkg.cascade_txn_dtls(
903: x_qty_ratio => l_qty_ratio ,
904: x_return_status => l_return_status );
905:
906: IF l_return_status <> fnd_api.g_ret_sts_success THEN
907: raise fnd_api.g_exc_error;
908: END IF;
909:
910: csi_utl_pkg.cascade_txn_dtls(
911: p_source_trx_id => l_order_line_rec.order_line_id,
912: p_source_trx_table => 'OE_ORDER_LINES_ALL',
913: p_ratio => l_qty_ratio ,
914: x_return_status => l_return_status );
915:
916: IF l_return_status <> fnd_api.g_ret_sts_success THEN
917: raise fnd_api.g_exc_error;
918: END IF;
919:
920: END IF;--link_to_line_id <>fnd_api.g_miss_num
913: p_ratio => l_qty_ratio ,
914: x_return_status => l_return_status );
915:
916: IF l_return_status <> fnd_api.g_ret_sts_success THEN
917: raise fnd_api.g_exc_error;
918: END IF;
919:
920: END IF;--link_to_line_id <>fnd_api.g_miss_num
921:
916: IF l_return_status <> fnd_api.g_ret_sts_success THEN
917: raise fnd_api.g_exc_error;
918: END IF;
919:
920: END IF;--link_to_line_id <>fnd_api.g_miss_num
921:
922: /* assign the parameter for txn_line_rec */
923: l_copy_txn_line_rec.SOURCE_TRANSACTION_ID := l_order_line_rec.order_line_id;
924: l_copy_txn_line_rec.SOURCE_TRANSACTION_TABLE := 'WSH_DELIVERY_DETAILS';
944: l_copy_txn_line_rec.SOURCE_TRANSACTION_ID);
945: fnd_message.set_token('SOURCE_TRANSACTION_TABLE',
946: l_copy_txn_line_rec.SOURCE_TRANSACTION_TABLE);
947: fnd_msg_pub.add;
948: raise fnd_api.g_exc_error;
949: END;
950: ELSE
951:
952: debug(' No it is not. Copying installation details as WSH_DELIVERY_DETAILS.');
961: l_new_txn_line_rec.source_transaction_type_id := g_txn_type_id;
962:
963: csi_t_txn_details_pvt.copy_transaction_dtls(
964: p_api_version => 1.0,
965: p_commit => fnd_api.g_false,
966: p_init_msg_list => fnd_api.g_true,
967: p_validation_level => fnd_api.g_valid_level_none,
968: p_src_txn_line_rec => l_src_txn_line_rec,
969: px_new_txn_line_rec => l_new_txn_line_rec,
962:
963: csi_t_txn_details_pvt.copy_transaction_dtls(
964: p_api_version => 1.0,
965: p_commit => fnd_api.g_false,
966: p_init_msg_list => fnd_api.g_true,
967: p_validation_level => fnd_api.g_valid_level_none,
968: p_src_txn_line_rec => l_src_txn_line_rec,
969: px_new_txn_line_rec => l_new_txn_line_rec,
970: p_copy_parties_flag => fnd_api.g_true,
963: csi_t_txn_details_pvt.copy_transaction_dtls(
964: p_api_version => 1.0,
965: p_commit => fnd_api.g_false,
966: p_init_msg_list => fnd_api.g_true,
967: p_validation_level => fnd_api.g_valid_level_none,
968: p_src_txn_line_rec => l_src_txn_line_rec,
969: px_new_txn_line_rec => l_new_txn_line_rec,
970: p_copy_parties_flag => fnd_api.g_true,
971: p_copy_pty_accts_flag => fnd_api.g_true,
966: p_init_msg_list => fnd_api.g_true,
967: p_validation_level => fnd_api.g_valid_level_none,
968: p_src_txn_line_rec => l_src_txn_line_rec,
969: px_new_txn_line_rec => l_new_txn_line_rec,
970: p_copy_parties_flag => fnd_api.g_true,
971: p_copy_pty_accts_flag => fnd_api.g_true,
972: p_copy_ii_rltns_flag => fnd_api.g_true,
973: p_copy_org_assgn_flag => fnd_api.g_true,
974: p_copy_ext_attribs_flag => fnd_api.g_true,
967: p_validation_level => fnd_api.g_valid_level_none,
968: p_src_txn_line_rec => l_src_txn_line_rec,
969: px_new_txn_line_rec => l_new_txn_line_rec,
970: p_copy_parties_flag => fnd_api.g_true,
971: p_copy_pty_accts_flag => fnd_api.g_true,
972: p_copy_ii_rltns_flag => fnd_api.g_true,
973: p_copy_org_assgn_flag => fnd_api.g_true,
974: p_copy_ext_attribs_flag => fnd_api.g_true,
975: p_copy_txn_systems_flag => fnd_api.g_true,
968: p_src_txn_line_rec => l_src_txn_line_rec,
969: px_new_txn_line_rec => l_new_txn_line_rec,
970: p_copy_parties_flag => fnd_api.g_true,
971: p_copy_pty_accts_flag => fnd_api.g_true,
972: p_copy_ii_rltns_flag => fnd_api.g_true,
973: p_copy_org_assgn_flag => fnd_api.g_true,
974: p_copy_ext_attribs_flag => fnd_api.g_true,
975: p_copy_txn_systems_flag => fnd_api.g_true,
976: x_return_status => l_return_status,
969: px_new_txn_line_rec => l_new_txn_line_rec,
970: p_copy_parties_flag => fnd_api.g_true,
971: p_copy_pty_accts_flag => fnd_api.g_true,
972: p_copy_ii_rltns_flag => fnd_api.g_true,
973: p_copy_org_assgn_flag => fnd_api.g_true,
974: p_copy_ext_attribs_flag => fnd_api.g_true,
975: p_copy_txn_systems_flag => fnd_api.g_true,
976: x_return_status => l_return_status,
977: x_msg_count => l_msg_count,
970: p_copy_parties_flag => fnd_api.g_true,
971: p_copy_pty_accts_flag => fnd_api.g_true,
972: p_copy_ii_rltns_flag => fnd_api.g_true,
973: p_copy_org_assgn_flag => fnd_api.g_true,
974: p_copy_ext_attribs_flag => fnd_api.g_true,
975: p_copy_txn_systems_flag => fnd_api.g_true,
976: x_return_status => l_return_status,
977: x_msg_count => l_msg_count,
978: x_msg_data => l_msg_data);
971: p_copy_pty_accts_flag => fnd_api.g_true,
972: p_copy_ii_rltns_flag => fnd_api.g_true,
973: p_copy_org_assgn_flag => fnd_api.g_true,
974: p_copy_ext_attribs_flag => fnd_api.g_true,
975: p_copy_txn_systems_flag => fnd_api.g_true,
976: x_return_status => l_return_status,
977: x_msg_count => l_msg_count,
978: x_msg_data => l_msg_data);
979:
976: x_return_status => l_return_status,
977: x_msg_count => l_msg_count,
978: x_msg_data => l_msg_data);
979:
980: IF l_return_status <> fnd_api.g_ret_sts_success THEN
981: g_api_name := 'csi_t_txn_details_pvt.copy_transaction_dtls';
982: raise fnd_api.g_exc_error;
983: END IF;
984:
978: x_msg_data => l_msg_data);
979:
980: IF l_return_status <> fnd_api.g_ret_sts_success THEN
981: g_api_name := 'csi_t_txn_details_pvt.copy_transaction_dtls';
982: raise fnd_api.g_exc_error;
983: END IF;
984:
985: l_trx_line_id := l_new_txn_line_rec.transaction_line_id;
986:
995: p_source_trx_id => l_order_line_rec.order_line_id,
996: p_source_trx_table => 'WSH_DELIVERY_DETAILS',
997: x_return_status => l_return_status );
998:
999: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1000: raise fnd_api.g_exc_error;
1001: END IF;
1002: END IF;
1003: ---Added (End) for m-to-m enhancements
996: p_source_trx_table => 'WSH_DELIVERY_DETAILS',
997: x_return_status => l_return_status );
998:
999: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1000: raise fnd_api.g_exc_error;
1001: END IF;
1002: END IF;
1003: ---Added (End) for m-to-m enhancements
1004: /* Copied the above code from IF condition above as part of fix for bug 3555078 */
1018: l_order_line_rec.header_id,
1019: l_split_ord_line_id,
1020: l_return_status);
1021:
1022: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1023: raise fnd_api.g_exc_error;
1024: END IF;
1025:
1026: IF l_split_ord_line_id is not null THEN
1019: l_split_ord_line_id,
1020: l_return_status);
1021:
1022: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1023: raise fnd_api.g_exc_error;
1024: END IF;
1025:
1026: IF l_split_ord_line_id is not null THEN
1027:
1053: --Parameters for the destination trx rec
1054: l_new_txn_line_rec.source_transaction_id := l_split_ord_line_id;
1055: l_new_txn_line_rec.source_transaction_table := 'OE_ORDER_LINES_ALL';
1056: l_new_txn_line_rec.source_transaction_type_id := g_txn_type_id;
1057: l_new_txn_line_rec.transaction_line_id := fnd_api.g_miss_num;
1058:
1059: debug(' No. So copying installation details for the split order line.' );
1060:
1061: csi_t_txn_details_pvt.copy_transaction_dtls(
1059: debug(' No. So copying installation details for the split order line.' );
1060:
1061: csi_t_txn_details_pvt.copy_transaction_dtls(
1062: p_api_version => 1.0,
1063: p_commit => fnd_api.g_false,
1064: p_init_msg_list => fnd_api.g_true,
1065: p_validation_level => fnd_api.g_valid_level_none,
1066: p_src_txn_line_rec => l_src_txn_line_rec,
1067: px_new_txn_line_rec => l_new_txn_line_rec,
1060:
1061: csi_t_txn_details_pvt.copy_transaction_dtls(
1062: p_api_version => 1.0,
1063: p_commit => fnd_api.g_false,
1064: p_init_msg_list => fnd_api.g_true,
1065: p_validation_level => fnd_api.g_valid_level_none,
1066: p_src_txn_line_rec => l_src_txn_line_rec,
1067: px_new_txn_line_rec => l_new_txn_line_rec,
1068: p_copy_parties_flag => fnd_api.g_true,
1061: csi_t_txn_details_pvt.copy_transaction_dtls(
1062: p_api_version => 1.0,
1063: p_commit => fnd_api.g_false,
1064: p_init_msg_list => fnd_api.g_true,
1065: p_validation_level => fnd_api.g_valid_level_none,
1066: p_src_txn_line_rec => l_src_txn_line_rec,
1067: px_new_txn_line_rec => l_new_txn_line_rec,
1068: p_copy_parties_flag => fnd_api.g_true,
1069: p_copy_pty_accts_flag => fnd_api.g_true,
1064: p_init_msg_list => fnd_api.g_true,
1065: p_validation_level => fnd_api.g_valid_level_none,
1066: p_src_txn_line_rec => l_src_txn_line_rec,
1067: px_new_txn_line_rec => l_new_txn_line_rec,
1068: p_copy_parties_flag => fnd_api.g_true,
1069: p_copy_pty_accts_flag => fnd_api.g_true,
1070: p_copy_ii_rltns_flag => fnd_api.g_true,
1071: p_copy_org_assgn_flag => fnd_api.g_true,
1072: p_copy_ext_attribs_flag => fnd_api.g_true,
1065: p_validation_level => fnd_api.g_valid_level_none,
1066: p_src_txn_line_rec => l_src_txn_line_rec,
1067: px_new_txn_line_rec => l_new_txn_line_rec,
1068: p_copy_parties_flag => fnd_api.g_true,
1069: p_copy_pty_accts_flag => fnd_api.g_true,
1070: p_copy_ii_rltns_flag => fnd_api.g_true,
1071: p_copy_org_assgn_flag => fnd_api.g_true,
1072: p_copy_ext_attribs_flag => fnd_api.g_true,
1073: p_copy_txn_systems_flag => fnd_api.g_true,
1066: p_src_txn_line_rec => l_src_txn_line_rec,
1067: px_new_txn_line_rec => l_new_txn_line_rec,
1068: p_copy_parties_flag => fnd_api.g_true,
1069: p_copy_pty_accts_flag => fnd_api.g_true,
1070: p_copy_ii_rltns_flag => fnd_api.g_true,
1071: p_copy_org_assgn_flag => fnd_api.g_true,
1072: p_copy_ext_attribs_flag => fnd_api.g_true,
1073: p_copy_txn_systems_flag => fnd_api.g_true,
1074: x_return_status => l_return_status,
1067: px_new_txn_line_rec => l_new_txn_line_rec,
1068: p_copy_parties_flag => fnd_api.g_true,
1069: p_copy_pty_accts_flag => fnd_api.g_true,
1070: p_copy_ii_rltns_flag => fnd_api.g_true,
1071: p_copy_org_assgn_flag => fnd_api.g_true,
1072: p_copy_ext_attribs_flag => fnd_api.g_true,
1073: p_copy_txn_systems_flag => fnd_api.g_true,
1074: x_return_status => l_return_status,
1075: x_msg_count => l_msg_count,
1068: p_copy_parties_flag => fnd_api.g_true,
1069: p_copy_pty_accts_flag => fnd_api.g_true,
1070: p_copy_ii_rltns_flag => fnd_api.g_true,
1071: p_copy_org_assgn_flag => fnd_api.g_true,
1072: p_copy_ext_attribs_flag => fnd_api.g_true,
1073: p_copy_txn_systems_flag => fnd_api.g_true,
1074: x_return_status => l_return_status,
1075: x_msg_count => l_msg_count,
1076: x_msg_data => l_msg_data);
1069: p_copy_pty_accts_flag => fnd_api.g_true,
1070: p_copy_ii_rltns_flag => fnd_api.g_true,
1071: p_copy_org_assgn_flag => fnd_api.g_true,
1072: p_copy_ext_attribs_flag => fnd_api.g_true,
1073: p_copy_txn_systems_flag => fnd_api.g_true,
1074: x_return_status => l_return_status,
1075: x_msg_count => l_msg_count,
1076: x_msg_data => l_msg_data);
1077:
1074: x_return_status => l_return_status,
1075: x_msg_count => l_msg_count,
1076: x_msg_data => l_msg_data);
1077:
1078: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1079: g_api_name := 'csi_t_txn_details_pvt.copy_transaction_dtls';
1080: raise fnd_api.g_exc_error;
1081: END IF;
1082:
1076: x_msg_data => l_msg_data);
1077:
1078: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1079: g_api_name := 'csi_t_txn_details_pvt.copy_transaction_dtls';
1080: raise fnd_api.g_exc_error;
1081: END IF;
1082:
1083: END IF; -- installation details check
1084: ELSE
1102:
1103: /* Create csi transaction and use this trx_rec for all ib transactions */
1104: csi_transactions_pvt.create_transaction(
1105: p_api_version => 1.0,
1106: p_commit => fnd_api.g_false,
1107: p_init_msg_list => fnd_api.g_true,
1108: p_validation_level => fnd_api.g_valid_level_full,
1109: p_success_if_exists_flag => 'Y',
1110: p_transaction_rec => l_trx_rec,
1103: /* Create csi transaction and use this trx_rec for all ib transactions */
1104: csi_transactions_pvt.create_transaction(
1105: p_api_version => 1.0,
1106: p_commit => fnd_api.g_false,
1107: p_init_msg_list => fnd_api.g_true,
1108: p_validation_level => fnd_api.g_valid_level_full,
1109: p_success_if_exists_flag => 'Y',
1110: p_transaction_rec => l_trx_rec,
1111: x_return_status => l_return_status,
1104: csi_transactions_pvt.create_transaction(
1105: p_api_version => 1.0,
1106: p_commit => fnd_api.g_false,
1107: p_init_msg_list => fnd_api.g_true,
1108: p_validation_level => fnd_api.g_valid_level_full,
1109: p_success_if_exists_flag => 'Y',
1110: p_transaction_rec => l_trx_rec,
1111: x_return_status => l_return_status,
1112: x_msg_count => l_msg_count,
1111: x_return_status => l_return_status,
1112: x_msg_count => l_msg_count,
1113: x_msg_data => l_msg_data);
1114:
1115: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1116: g_api_name := 'csi_transactions_pvt.create_transaction';
1117: raise fnd_api.g_exc_error;
1118: END IF;
1119:
1113: x_msg_data => l_msg_data);
1114:
1115: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1116: g_api_name := 'csi_transactions_pvt.create_transaction';
1117: raise fnd_api.g_exc_error;
1118: END IF;
1119:
1120: debug('csi transaction_id :'||l_trx_rec.transaction_id);
1121:
1135: x_order_shipment_tbl => x_order_shipment_tbl,
1136: px_error_rec => l_error_rec,
1137: x_return_status => l_return_status);
1138:
1139: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1140: raise fnd_api.g_exc_error;
1141: END IF;
1142:
1143: /* switch the non source transaction details to the IN_PROCESS status */
1136: px_error_rec => l_error_rec,
1137: x_return_status => l_return_status);
1138:
1139: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1140: raise fnd_api.g_exc_error;
1141: END IF;
1142:
1143: /* switch the non source transaction details to the IN_PROCESS status */
1144: --Assign the literals.. bug 4311676
1164: debug('Installation details for the final process - Update Install Base.' );
1165:
1166: csi_t_txn_details_grp.get_transaction_details (
1167: p_api_version => 1.0,
1168: p_commit => fnd_api.g_false,
1169: p_init_msg_list => fnd_api.g_true,
1170: p_validation_level => fnd_api.g_valid_level_full,
1171: p_txn_line_query_rec => l_txn_line_query_rec,
1172: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
1165:
1166: csi_t_txn_details_grp.get_transaction_details (
1167: p_api_version => 1.0,
1168: p_commit => fnd_api.g_false,
1169: p_init_msg_list => fnd_api.g_true,
1170: p_validation_level => fnd_api.g_valid_level_full,
1171: p_txn_line_query_rec => l_txn_line_query_rec,
1172: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
1173: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
1166: csi_t_txn_details_grp.get_transaction_details (
1167: p_api_version => 1.0,
1168: p_commit => fnd_api.g_false,
1169: p_init_msg_list => fnd_api.g_true,
1170: p_validation_level => fnd_api.g_valid_level_full,
1171: p_txn_line_query_rec => l_txn_line_query_rec,
1172: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
1173: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
1174: p_get_parties_flag => fnd_api.g_true,
1170: p_validation_level => fnd_api.g_valid_level_full,
1171: p_txn_line_query_rec => l_txn_line_query_rec,
1172: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
1173: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
1174: p_get_parties_flag => fnd_api.g_true,
1175: x_txn_party_detail_tbl => l_txn_party_detail_tbl,
1176: p_get_pty_accts_flag => fnd_api.g_true,
1177: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_dtl_tbl,
1178: ---Added (Start) for m-to-m enhancements
1172: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
1173: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
1174: p_get_parties_flag => fnd_api.g_true,
1175: x_txn_party_detail_tbl => l_txn_party_detail_tbl,
1176: p_get_pty_accts_flag => fnd_api.g_true,
1177: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_dtl_tbl,
1178: ---Added (Start) for m-to-m enhancements
1179: -- Let us not get relations here.
1180: -- get_ii_relations_tbl will get the relations at later stage
1177: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_dtl_tbl,
1178: ---Added (Start) for m-to-m enhancements
1179: -- Let us not get relations here.
1180: -- get_ii_relations_tbl will get the relations at later stage
1181: p_get_ii_rltns_flag => fnd_api.g_false,
1182: ---Added (End) for m-to-m enhancements
1183: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
1184: p_get_org_assgns_flag => fnd_api.g_true,
1185: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
1180: -- get_ii_relations_tbl will get the relations at later stage
1181: p_get_ii_rltns_flag => fnd_api.g_false,
1182: ---Added (End) for m-to-m enhancements
1183: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
1184: p_get_org_assgns_flag => fnd_api.g_true,
1185: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
1186: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1187: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
1188: p_get_csi_attribs_flag => fnd_api.g_false,
1182: ---Added (End) for m-to-m enhancements
1183: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
1184: p_get_org_assgns_flag => fnd_api.g_true,
1185: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
1186: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1187: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
1188: p_get_csi_attribs_flag => fnd_api.g_false,
1189: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
1190: p_get_csi_iea_values_flag => fnd_api.g_false,
1184: p_get_org_assgns_flag => fnd_api.g_true,
1185: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
1186: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1187: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
1188: p_get_csi_attribs_flag => fnd_api.g_false,
1189: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
1190: p_get_csi_iea_values_flag => fnd_api.g_false,
1191: x_csi_iea_values_tbl => l_csi_iea_values_tbl,
1192: p_get_txn_systems_flag => fnd_api.g_true,
1186: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1187: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
1188: p_get_csi_attribs_flag => fnd_api.g_false,
1189: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
1190: p_get_csi_iea_values_flag => fnd_api.g_false,
1191: x_csi_iea_values_tbl => l_csi_iea_values_tbl,
1192: p_get_txn_systems_flag => fnd_api.g_true,
1193: x_txn_systems_tbl => l_txn_systems_tbl,
1194: x_return_status => l_return_status,
1188: p_get_csi_attribs_flag => fnd_api.g_false,
1189: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
1190: p_get_csi_iea_values_flag => fnd_api.g_false,
1191: x_csi_iea_values_tbl => l_csi_iea_values_tbl,
1192: p_get_txn_systems_flag => fnd_api.g_true,
1193: x_txn_systems_tbl => l_txn_systems_tbl,
1194: x_return_status => l_return_status,
1195: x_msg_count => l_msg_count,
1196: x_msg_data => l_msg_data);
1194: x_return_status => l_return_status,
1195: x_msg_count => l_msg_count,
1196: x_msg_data => l_msg_data);
1197:
1198: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1199: g_api_name := 'csi_t_txn_details_grp.get_transaction_details';
1200: raise fnd_api.g_exc_error;
1201: END IF;
1202:
1196: x_msg_data => l_msg_data);
1197:
1198: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1199: g_api_name := 'csi_t_txn_details_grp.get_transaction_details';
1200: raise fnd_api.g_exc_error;
1201: END IF;
1202:
1203: debug(' txn_line_detail_tbl.count :'|| l_txn_line_detail_tbl.count );
1204: debug(' txn_party_detail_tbl.count :'|| l_txn_party_detail_tbl.count );
1217: p_line_id => l_order_line_rec.order_line_id,
1218: x_pricing_attb_tbl => x_pricing_attb_tbl,
1219: x_return_status => x_return_status );
1220:
1221: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1222: raise fnd_api.g_exc_error;
1223: END IF;
1224:
1225: debug(' pricing_attb_tbl.count :'||x_pricing_attb_tbl.count ) ;
1218: x_pricing_attb_tbl => x_pricing_attb_tbl,
1219: x_return_status => x_return_status );
1220:
1221: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1222: raise fnd_api.g_exc_error;
1223: END IF;
1224:
1225: debug(' pricing_attb_tbl.count :'||x_pricing_attb_tbl.count ) ;
1226:
1228: l_conv_to_prim_uom_req := 'Y';
1229: IF l_txn_line_detail_tbl.count > 0 THEN
1230: FOR u in l_txn_line_detail_tbl.FIRST..l_txn_line_detail_tbl.LAST
1231: LOOP
1232: IF NVL(l_txn_line_detail_tbl(u).serial_number,fnd_api.g_miss_char) <> fnd_api.g_miss_char AND
1233: NVL(l_txn_line_detail_tbl(u).quantity,fnd_api.g_miss_num) = 1 THEN
1234: l_conv_to_prim_uom_req := 'N'; -- No UOM Conversion Required
1235: Exit;
1236: END IF;
1229: IF l_txn_line_detail_tbl.count > 0 THEN
1230: FOR u in l_txn_line_detail_tbl.FIRST..l_txn_line_detail_tbl.LAST
1231: LOOP
1232: IF NVL(l_txn_line_detail_tbl(u).serial_number,fnd_api.g_miss_char) <> fnd_api.g_miss_char AND
1233: NVL(l_txn_line_detail_tbl(u).quantity,fnd_api.g_miss_num) = 1 THEN
1234: l_conv_to_prim_uom_req := 'N'; -- No UOM Conversion Required
1235: Exit;
1236: END IF;
1237: END LOOP;
1245: p_uom => l_order_line_rec.order_quantity_uom,
1246: x_txn_line_dtl_tbl => l_txn_line_detail_tbl,
1247: x_return_status => x_return_status);
1248:
1249: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1250: raise fnd_api.g_exc_error;
1251: END IF;
1252: END IF;
1253:
1246: x_txn_line_dtl_tbl => l_txn_line_detail_tbl,
1247: x_return_status => x_return_status);
1248:
1249: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1250: raise fnd_api.g_exc_error;
1251: END IF;
1252: END IF;
1253:
1254: --
1256: -- If this is a MACD order line then we need to merge the Transaction details written by CZ and WSH
1257: -- For this, we call CSI_INTERFACE_PKG.Get_CZ_Relations.
1258: -- macd_order_line flag is set by Build_Shtd_Table routine.
1259: --
1260: IF l_order_line_rec.macd_order_line = FND_API.G_TRUE THEN
1261: l_source_line_rec.source_line_id := l_order_line_rec.order_line_id;
1262: --
1263: Csi_Interface_Pkg.Get_CZ_Relations
1264: ( p_source_header_rec => l_source_header_rec,
1268: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
1269: x_txn_eav_tbl => l_txn_ext_attrib_vals_tbl,
1270: x_return_status => x_return_status
1271: );
1272: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1273: raise fnd_api.g_exc_error;
1274: END IF;
1275: END IF;
1276: --
1269: x_txn_eav_tbl => l_txn_ext_attrib_vals_tbl,
1270: x_return_status => x_return_status
1271: );
1272: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1273: raise fnd_api.g_exc_error;
1274: END IF;
1275: END IF;
1276: --
1277: --
1288: /*--------------------------------------------------------*/
1289:
1290: update_install_base(
1291: p_api_version => 1.0,
1292: p_commit => fnd_api.g_false,
1293: p_init_msg_list => fnd_api.g_true,
1294: p_validation_level => fnd_api.g_valid_level_full,
1295: p_txn_line_rec => l_transaction_line_rec,
1296: p_txn_line_detail_tbl => l_txn_line_detail_tbl,
1289:
1290: update_install_base(
1291: p_api_version => 1.0,
1292: p_commit => fnd_api.g_false,
1293: p_init_msg_list => fnd_api.g_true,
1294: p_validation_level => fnd_api.g_valid_level_full,
1295: p_txn_line_rec => l_transaction_line_rec,
1296: p_txn_line_detail_tbl => l_txn_line_detail_tbl,
1297: p_txn_party_detail_tbl => l_txn_party_detail_tbl,
1290: update_install_base(
1291: p_api_version => 1.0,
1292: p_commit => fnd_api.g_false,
1293: p_init_msg_list => fnd_api.g_true,
1294: p_validation_level => fnd_api.g_valid_level_full,
1295: p_txn_line_rec => l_transaction_line_rec,
1296: p_txn_line_detail_tbl => l_txn_line_detail_tbl,
1297: p_txn_party_detail_tbl => l_txn_party_detail_tbl,
1298: p_txn_pty_acct_dtl_tbl => l_txn_pty_acct_dtl_tbl,
1309: x_return_status => x_return_status,
1310: x_msg_count => x_msg_count,
1311: x_msg_data => x_msg_data);
1312:
1313: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1314: raise fnd_api.g_exc_error;
1315: END IF;
1316:
1317: debug('end: csi_order_ship_pub.order_shipment. status: successful');
1310: x_msg_count => x_msg_count,
1311: x_msg_data => x_msg_data);
1312:
1313: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1314: raise fnd_api.g_exc_error;
1315: END IF;
1316:
1317: debug('end: csi_order_ship_pub.order_shipment. status: successful');
1318: debug(' timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1317: debug('end: csi_order_ship_pub.order_shipment. status: successful');
1318: debug(' timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1319:
1320: EXCEPTION
1321: WHEN fnd_api.g_exc_error THEN
1322: rollback to order_shipment;
1323: x_return_status := fnd_api.g_ret_sts_error;
1324: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
1325: px_trx_error_rec := l_error_rec;
1319:
1320: EXCEPTION
1321: WHEN fnd_api.g_exc_error THEN
1322: rollback to order_shipment;
1323: x_return_status := fnd_api.g_ret_sts_error;
1324: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
1325: px_trx_error_rec := l_error_rec;
1326: debug('Error(E) :'||l_error_rec.error_text);
1327: WHEN fnd_api.g_exc_unexpected_error THEN
1323: x_return_status := fnd_api.g_ret_sts_error;
1324: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
1325: px_trx_error_rec := l_error_rec;
1326: debug('Error(E) :'||l_error_rec.error_text);
1327: WHEN fnd_api.g_exc_unexpected_error THEN
1328: rollback to order_shipment;
1329: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1330: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
1331: px_trx_error_rec := l_error_rec;
1325: px_trx_error_rec := l_error_rec;
1326: debug('Error(E) :'||l_error_rec.error_text);
1327: WHEN fnd_api.g_exc_unexpected_error THEN
1328: rollback to order_shipment;
1329: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1330: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
1331: px_trx_error_rec := l_error_rec;
1332: debug('Error(U) :'||l_error_rec.error_text);
1333: WHEN others THEN
1331: px_trx_error_rec := l_error_rec;
1332: debug('Error(U) :'||l_error_rec.error_text);
1333: WHEN others THEN
1334: rollback to order_shipment;
1335: x_return_status := fnd_api.g_ret_sts_unexp_error;
1336: l_error_rec.error_text := substr(sqlerrm, 1, 540);
1337: px_trx_error_rec := l_error_rec;
1338: debug('Error(O) :'||l_error_rec.error_text);
1339: END order_shipment;
1339: END order_shipment;
1340:
1341: PROCEDURE process_non_source(
1342: p_txn_line_detail_rec IN csi_t_datastructures_grp.txn_line_detail_rec,
1343: p_call_contracts IN varchar2 := fnd_api.g_true,
1344: p_trx_rec IN csi_datastructures_pub.transaction_rec,
1345: x_return_status OUT NOCOPY varchar2)
1346: IS
1347:
1362: l_active_end_date date;
1363: l_exp_instance_id_lst csi_datastructures_pub.id_tbl;
1364: l_exp_instance_rec csi_datastructures_pub.instance_rec;
1365:
1366: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1367: l_msg_count number;
1368: l_msg_data varchar2(2000);
1369:
1370: -- Added this parameter as part of fix for Bug 3145503.
1403: BEGIN
1404:
1405: api_log('process_non_source');
1406:
1407: x_return_status := fnd_api.g_ret_sts_success;
1408: l_trx_rec := p_trx_rec;
1409:
1410: l_comp_of_tld := FALSE;
1411:
1447: -- added this IF as part of fix for bug 3145503.
1448: IF l_location_code <> 'INVENTORY'
1449: THEN
1450: l_ns_instance_rec.active_end_date :=
1451: nvl(p_txn_line_detail_rec.active_end_date,fnd_api.g_miss_date);
1452: l_ns_instance_rec.return_by_date := p_txn_line_detail_rec.return_by_date;
1453: END IF;
1454:
1455: l_ns_instance_rec.call_contracts := p_call_contracts;
1490: l_upd_ns_inst := 'N';
1491: ELSE
1492: -- End code for Bug 3145503.
1493: debug(' Instance Status is defined as TERMINABLE.');
1494: IF nvl(l_ns_instance_rec.active_end_date, fnd_api.g_miss_date) = fnd_api.g_miss_date
1495: THEN
1496: --bug 4026148
1497: --l_ns_instance_rec.active_end_date := sysdate;
1498: l_ns_instance_rec.active_end_date := l_trx_rec.source_transaction_date;
1508: --order information. not sure why it wasn't done ... shegde. bug 3692473
1509: --code modification start for 3681856--
1510: IF (l_active_end_date is NOT NULL) AND (l_active_end_date <= sysdate)
1511: THEN -- we will expire the instance back. Contracts shouldn't be called while unexpiring
1512: l_ns_instance_rec.call_contracts := fnd_api.g_false;
1513: END IF;
1514: --code modification end for 3681856--
1515:
1516: csi_t_gen_utility_pvt.dump_api_info(
1522:
1523: /* non source status update call. */
1524: csi_item_instance_pub.update_item_instance(
1525: p_api_version => 1.0,
1526: p_commit => fnd_api.g_false,
1527: p_init_msg_list => fnd_api.g_true,
1528: p_validation_level => fnd_api.g_valid_level_full,
1529: p_instance_rec => l_ns_instance_rec,
1530: p_ext_attrib_values_tbl => l_ns_ext_attrib_val_tbl,
1523: /* non source status update call. */
1524: csi_item_instance_pub.update_item_instance(
1525: p_api_version => 1.0,
1526: p_commit => fnd_api.g_false,
1527: p_init_msg_list => fnd_api.g_true,
1528: p_validation_level => fnd_api.g_valid_level_full,
1529: p_instance_rec => l_ns_instance_rec,
1530: p_ext_attrib_values_tbl => l_ns_ext_attrib_val_tbl,
1531: p_party_tbl => l_ns_party_tbl,
1524: csi_item_instance_pub.update_item_instance(
1525: p_api_version => 1.0,
1526: p_commit => fnd_api.g_false,
1527: p_init_msg_list => fnd_api.g_true,
1528: p_validation_level => fnd_api.g_valid_level_full,
1529: p_instance_rec => l_ns_instance_rec,
1530: p_ext_attrib_values_tbl => l_ns_ext_attrib_val_tbl,
1531: p_party_tbl => l_ns_party_tbl,
1532: p_account_tbl => l_ns_party_acct_tbl,
1538: x_return_status => l_return_status,
1539: x_msg_count => l_msg_count,
1540: x_msg_data => l_msg_data );
1541:
1542: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1543: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1544: RAISE fnd_api.g_exc_error;
1545: END IF;
1546:
1539: x_msg_count => l_msg_count,
1540: x_msg_data => l_msg_data );
1541:
1542: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1543: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1544: RAISE fnd_api.g_exc_error;
1545: END IF;
1546:
1547: IF (l_active_end_date is NOT NULL) AND (l_active_end_date <= sysdate)
1540: x_msg_data => l_msg_data );
1541:
1542: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1543: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1544: RAISE fnd_api.g_exc_error;
1545: END IF;
1546:
1547: IF (l_active_end_date is NOT NULL) AND (l_active_end_date <= sysdate)
1548: THEN
1556: l_exp_instance_rec.instance_id := p_txn_line_detail_rec.instance_id;
1557:
1558: --code modification start for 3681856--
1559: --l_exp_instance_rec.call_contracts := p_call_contracts;
1560: l_exp_instance_rec.call_contracts := fnd_api.g_false;
1561: --code modification end for 3681856--
1562:
1563: l_trx_rec.transaction_id := fnd_api.g_miss_num;
1564:
1559: --l_exp_instance_rec.call_contracts := p_call_contracts;
1560: l_exp_instance_rec.call_contracts := fnd_api.g_false;
1561: --code modification end for 3681856--
1562:
1563: l_trx_rec.transaction_id := fnd_api.g_miss_num;
1564:
1565: csi_t_gen_utility_pvt.dump_api_info(
1566: p_api_name => 'expire_item_instance',
1567: p_pkg_name => 'csi_item_instance_pub');
1567: p_pkg_name => 'csi_item_instance_pub');
1568:
1569: csi_item_instance_pub.expire_item_instance(
1570: p_api_version => 1.0,
1571: p_commit => fnd_api.g_false,
1572: p_init_msg_list => fnd_api.g_true,
1573: p_validation_level => fnd_api.g_valid_level_full,
1574: p_instance_rec => l_exp_instance_rec,
1575: p_expire_children => fnd_api.g_true,
1568:
1569: csi_item_instance_pub.expire_item_instance(
1570: p_api_version => 1.0,
1571: p_commit => fnd_api.g_false,
1572: p_init_msg_list => fnd_api.g_true,
1573: p_validation_level => fnd_api.g_valid_level_full,
1574: p_instance_rec => l_exp_instance_rec,
1575: p_expire_children => fnd_api.g_true,
1576: p_txn_rec => l_trx_rec,
1569: csi_item_instance_pub.expire_item_instance(
1570: p_api_version => 1.0,
1571: p_commit => fnd_api.g_false,
1572: p_init_msg_list => fnd_api.g_true,
1573: p_validation_level => fnd_api.g_valid_level_full,
1574: p_instance_rec => l_exp_instance_rec,
1575: p_expire_children => fnd_api.g_true,
1576: p_txn_rec => l_trx_rec,
1577: x_instance_id_lst => l_exp_instance_id_lst,
1571: p_commit => fnd_api.g_false,
1572: p_init_msg_list => fnd_api.g_true,
1573: p_validation_level => fnd_api.g_valid_level_full,
1574: p_instance_rec => l_exp_instance_rec,
1575: p_expire_children => fnd_api.g_true,
1576: p_txn_rec => l_trx_rec,
1577: x_instance_id_lst => l_exp_instance_id_lst,
1578: x_return_status => l_return_status,
1579: x_msg_count => l_msg_count,
1578: x_return_status => l_return_status,
1579: x_msg_count => l_msg_count,
1580: x_msg_data => l_msg_data);
1581:
1582: IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
1583: g_api_name := 'csi_item_instance_pub.expire_item_instance';
1584: raise fnd_api.g_exc_error;
1585: END IF;
1586: END IF;
1580: x_msg_data => l_msg_data);
1581:
1582: IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
1583: g_api_name := 'csi_item_instance_pub.expire_item_instance';
1584: raise fnd_api.g_exc_error;
1585: END IF;
1586: END IF;
1587:
1588: l_trx_rec.source_group_ref_id := l_ns_instance_rec.instance_id;
1594: WHERE transaction_id = l_trx_rec.transaction_id;
1595:
1596: csi_transactions_pvt.update_transactions(
1597: p_api_version => 1.0,
1598: p_init_msg_list => fnd_api.g_false,
1599: p_commit => fnd_api.g_false,
1600: p_validation_level => fnd_api.g_valid_level_full,
1601: p_transaction_rec => l_trx_rec,
1602: x_return_status => l_return_status,
1595:
1596: csi_transactions_pvt.update_transactions(
1597: p_api_version => 1.0,
1598: p_init_msg_list => fnd_api.g_false,
1599: p_commit => fnd_api.g_false,
1600: p_validation_level => fnd_api.g_valid_level_full,
1601: p_transaction_rec => l_trx_rec,
1602: x_return_status => l_return_status,
1603: x_msg_count => l_msg_count,
1596: csi_transactions_pvt.update_transactions(
1597: p_api_version => 1.0,
1598: p_init_msg_list => fnd_api.g_false,
1599: p_commit => fnd_api.g_false,
1600: p_validation_level => fnd_api.g_valid_level_full,
1601: p_transaction_rec => l_trx_rec,
1602: x_return_status => l_return_status,
1603: x_msg_count => l_msg_count,
1604: x_msg_data => l_msg_data);
1614:
1615: EXCEPTION
1616: WHEN skip_non_source THEN
1617: debug(' skip non source processing :'||l_skip_reason);
1618: x_return_status := fnd_api.g_ret_sts_success;
1619: WHEN fnd_api.g_exc_error THEN
1620: x_return_status := fnd_api.g_ret_sts_error;
1621: END process_non_source;
1622:
1615: EXCEPTION
1616: WHEN skip_non_source THEN
1617: debug(' skip non source processing :'||l_skip_reason);
1618: x_return_status := fnd_api.g_ret_sts_success;
1619: WHEN fnd_api.g_exc_error THEN
1620: x_return_status := fnd_api.g_ret_sts_error;
1621: END process_non_source;
1622:
1623: /* ********************************************************************** */
1616: WHEN skip_non_source THEN
1617: debug(' skip non source processing :'||l_skip_reason);
1618: x_return_status := fnd_api.g_ret_sts_success;
1619: WHEN fnd_api.g_exc_error THEN
1620: x_return_status := fnd_api.g_ret_sts_error;
1621: END process_non_source;
1622:
1623: /* ********************************************************************** */
1624: /* Procedure name: get_order_shipment_rec */
1673: l_party_id NUMBER;
1674: l_uom_rate NUMBER;
1675: l_shipped_qty NUMBER;
1676: l_count NUMBER := 0;
1677: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1678: l_active_instances_only varchar2(1);
1679:
1680: -- Included Transaction rec as part of fix for Bug 2767338
1681: CURSOR mmt_cur(p_trx_id IN NUMBER) IS
1805: l_partner_owner_acct_id NUMBER;
1806:
1807: BEGIN
1808:
1809: x_return_status := fnd_api.g_ret_sts_success;
1810:
1811: -- Included Transaction rec as part of fix for Bug 2767338
1812: l_trx_rec := p_transaction_rec;
1813:
1829: THEN
1830: IF l_partner_rec.END_CUSTOMER_ID is null Then
1831: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1832: fnd_msg_pub.add;
1833: raise fnd_api.g_exc_error;
1834: ELSE
1835: mmt_rec.ib_owner := l_partner_rec.ib_owner;
1836: mmt_rec.end_customer_id := l_partner_rec.end_customer_id;
1837: END IF;
1837: END IF;
1838: ELSIF l_partner_rec.IB_OWNER = 'INSTALL_BASE'
1839: THEN
1840: mmt_rec.ib_owner := l_partner_rec.ib_owner;
1841: mmt_rec.end_customer_id := fnd_api.g_miss_num;
1842: ELSE
1843: mmt_rec.end_customer_id := mmt_rec.sold_to_org_id;
1844: END IF;
1845:
1851: IF l_partner_rec.end_customer_site_use_id is null
1852: THEN
1853: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1854: fnd_msg_pub.add;
1855: raise fnd_api.g_exc_error;
1856: ELSE
1857: mmt_rec.ib_install_loc_id := l_partner_rec.end_customer_site_use_id;
1858: END IF;
1859: ELSIF mmt_rec.ib_install_loc = 'SHIP_TO'
1861: IF mmt_rec.ship_to_org_id is null
1862: THEN
1863: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1864: fnd_msg_pub.add;
1865: raise fnd_api.g_exc_error;
1866: ELSE
1867: mmt_rec.ib_install_loc_id := mmt_rec.ship_to_org_id;
1868: END IF;
1869: ELSIF mmt_rec.ib_install_loc = 'SOLD_TO'
1871: IF l_partner_rec.SOLD_TO_SITE_USE_ID is null -- 3412544 mmt_rec.sold_to_org_id is null
1872: THEN
1873: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1874: fnd_msg_pub.add;
1875: raise fnd_api.g_exc_error;
1876: ELSE
1877: mmt_rec.ib_install_loc_id := l_partner_rec.SOLD_TO_SITE_USE_ID; -- 3412544 mmt_rec.sold_to_org_id;
1878: END IF;
1879: ELSIF mmt_rec.ib_install_loc = 'DELIVER_TO'
1881: IF mmt_rec.deliver_to_org_id is null
1882: THEN
1883: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1884: fnd_msg_pub.add;
1885: raise fnd_api.g_exc_error;
1886: ELSE
1887: mmt_rec.ib_install_loc_id := mmt_rec.deliver_to_org_id;
1888: END IF;
1889: ELSIF mmt_rec.ib_install_loc = 'BILL_TO'
1891: IF mmt_rec.invoice_to_org_id is null
1892: THEN
1893: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1894: fnd_msg_pub.add;
1895: raise fnd_api.g_exc_error;
1896: ELSE
1897: mmt_rec.ib_install_loc_id := mmt_rec.invoice_to_org_id;
1898: END IF;
1899: ELSIF mmt_rec.ib_install_loc = 'INSTALL_BASE'
1897: mmt_rec.ib_install_loc_id := mmt_rec.invoice_to_org_id;
1898: END IF;
1899: ELSIF mmt_rec.ib_install_loc = 'INSTALL_BASE'
1900: THEN
1901: mmt_rec.ib_install_loc_id := fnd_api.g_miss_num;
1902: END IF;
1903: ELSE
1904: mmt_rec.ib_install_loc_id := mmt_rec.ship_to_org_id;
1905: END IF;
1912: IF l_partner_rec.end_customer_site_use_id is null
1913: THEN
1914: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1915: fnd_msg_pub.add;
1916: raise fnd_api.g_exc_error;
1917: ELSE
1918: mmt_rec.ib_current_loc_id := l_partner_rec.end_customer_site_use_id;
1919: END IF;
1920: ELSIF mmt_rec.ib_current_loc = 'SHIP_TO'
1922: IF mmt_rec.ship_to_org_id is null
1923: THEN
1924: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1925: fnd_msg_pub.add;
1926: raise fnd_api.g_exc_error;
1927: ELSE
1928: mmt_rec.ib_current_loc_id := mmt_rec.ship_to_org_id;
1929: END IF;
1930: ELSIF mmt_rec.ib_current_loc = 'SOLD_TO'
1932: IF l_partner_rec.SOLD_TO_SITE_USE_ID is null -- 3412544 mmt_rec.sold_to_org_id is null
1933: THEN
1934: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1935: fnd_msg_pub.add;
1936: raise fnd_api.g_exc_error;
1937: ELSE
1938: mmt_rec.ib_current_loc_id := l_partner_rec.SOLD_TO_SITE_USE_ID; -- 3412544 mmt_rec.sold_to_org_id;
1939: END IF;
1940: ELSIF mmt_rec.ib_current_loc = 'DELIVER_TO'
1942: IF mmt_rec.deliver_to_org_id is null
1943: THEN
1944: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1945: fnd_msg_pub.add;
1946: raise fnd_api.g_exc_error;
1947: ELSE
1948: mmt_rec.ib_current_loc_id := mmt_rec.deliver_to_org_id;
1949: END IF;
1950: ELSIF mmt_rec.ib_current_loc = 'BILL_TO'
1952: IF mmt_rec.invoice_to_org_id is null
1953: THEN
1954: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1955: fnd_msg_pub.add;
1956: raise fnd_api.g_exc_error;
1957: ELSE
1958: mmt_rec.ib_current_loc_id := mmt_rec.invoice_to_org_id;
1959: END IF;
1960: ELSIF mmt_rec.ib_current_loc = 'INSTALL_BASE'
1958: mmt_rec.ib_current_loc_id := mmt_rec.invoice_to_org_id;
1959: END IF;
1960: ELSIF mmt_rec.ib_current_loc = 'INSTALL_BASE'
1961: THEN
1962: mmt_rec.ib_current_loc_id := fnd_api.g_miss_num;
1963: END IF;
1964: ELSE
1965: mmt_rec.ib_current_loc_id := mmt_rec.ship_to_org_id;
1966: END IF;
1972: p_cust_acct_id => mmt_rec.end_customer_id, --mmt_rec.sold_to_org_id,
1973: x_party_id => l_party_id,
1974: x_return_status => l_return_status);
1975:
1976: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1977: raise fnd_api.g_exc_error;
1978: END IF;
1979:
1980: IF l_party_id = -1 THEN
1973: x_party_id => l_party_id,
1974: x_return_status => l_return_status);
1975:
1976: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1977: raise fnd_api.g_exc_error;
1978: END IF;
1979:
1980: IF l_party_id = -1 THEN
1981: raise fnd_api.g_exc_error;
1977: raise fnd_api.g_exc_error;
1978: END IF;
1979:
1980: IF l_party_id = -1 THEN
1981: raise fnd_api.g_exc_error;
1982: END IF;
1983:
1984: /* Convert the shipped qty to UOM in OM */
1985: inv_convert.inv_um_conversion (
1991: debug('UOM Conv Factor :'||l_uom_rate);
1992:
1993: IF l_uom_rate = -99999 THEN
1994: debug('inv_convert.inv_um_conversion failed ');
1995: raise fnd_api.g_exc_error;
1996: END IF;
1997:
1998: l_shipped_qty := (l_uom_rate * mmt_rec.shipped_quantity);
1999:
2039: -- To achieve this p_active_instances_only should have a value of false.
2040:
2041: IF mmt_rec.reservable_type = 2
2042: THEN
2043: l_active_instances_only := fnd_api.g_false;
2044: ELSE
2045: l_active_instances_only := fnd_api.g_true;
2046: END IF;
2047:
2041: IF mmt_rec.reservable_type = 2
2042: THEN
2043: l_active_instances_only := fnd_api.g_false;
2044: ELSE
2045: l_active_instances_only := fnd_api.g_true;
2046: END IF;
2047:
2048: csi_item_instance_pub.get_item_instances(
2049: p_api_version => 1.0,
2046: END IF;
2047:
2048: csi_item_instance_pub.get_item_instances(
2049: p_api_version => 1.0,
2050: p_commit => fnd_api.g_false,
2051: p_init_msg_list => fnd_api.g_true,
2052: p_validation_level => fnd_api.g_valid_level_full,
2053: p_instance_query_rec => l_inst_query_rec,
2054: p_party_query_rec => l_party_query_rec,
2047:
2048: csi_item_instance_pub.get_item_instances(
2049: p_api_version => 1.0,
2050: p_commit => fnd_api.g_false,
2051: p_init_msg_list => fnd_api.g_true,
2052: p_validation_level => fnd_api.g_valid_level_full,
2053: p_instance_query_rec => l_inst_query_rec,
2054: p_party_query_rec => l_party_query_rec,
2055: p_account_query_rec => l_pty_acct_query_rec,
2048: csi_item_instance_pub.get_item_instances(
2049: p_api_version => 1.0,
2050: p_commit => fnd_api.g_false,
2051: p_init_msg_list => fnd_api.g_true,
2052: p_validation_level => fnd_api.g_valid_level_full,
2053: p_instance_query_rec => l_inst_query_rec,
2054: p_party_query_rec => l_party_query_rec,
2055: p_account_query_rec => l_pty_acct_query_rec,
2056: p_transaction_id => null,
2053: p_instance_query_rec => l_inst_query_rec,
2054: p_party_query_rec => l_party_query_rec,
2055: p_account_query_rec => l_pty_acct_query_rec,
2056: p_transaction_id => null,
2057: p_resolve_id_columns => fnd_api.g_false,
2058: p_active_instance_only => l_active_instances_only,-- fnd_api.g_false, --fnd_api.g_true,
2059: x_instance_header_tbl => l_instance_header_tbl,
2060: x_return_status => x_return_status,
2061: x_msg_count => x_msg_count,
2054: p_party_query_rec => l_party_query_rec,
2055: p_account_query_rec => l_pty_acct_query_rec,
2056: p_transaction_id => null,
2057: p_resolve_id_columns => fnd_api.g_false,
2058: p_active_instance_only => l_active_instances_only,-- fnd_api.g_false, --fnd_api.g_true,
2059: x_instance_header_tbl => l_instance_header_tbl,
2060: x_return_status => x_return_status,
2061: x_msg_count => x_msg_count,
2062: x_msg_data => x_msg_data);
2060: x_return_status => x_return_status,
2061: x_msg_count => x_msg_count,
2062: x_msg_data => x_msg_data);
2063:
2064: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2065: raise fnd_api.g_exc_error;
2066: END IF;
2067:
2068: debug('Instance(s) Count :'||l_instance_header_tbl.count);
2061: x_msg_count => x_msg_count,
2062: x_msg_data => x_msg_data);
2063:
2064: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2065: raise fnd_api.g_exc_error;
2066: END IF;
2067:
2068: debug('Instance(s) Count :'||l_instance_header_tbl.count);
2069:
2103: l_cre_instance_rec.source_code := 'SIEBEL';
2104: END IF;
2105: -- End Add Code for Siebel Genesis Project
2106:
2107: IF nvl(l_inst_query_rec.serial_number,fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
2108: l_cre_instance_rec.mfg_serial_number_flag := 'N';
2109: ELSE
2110: l_cre_instance_rec.mfg_serial_number_flag := 'Y';
2111: END IF;
2126:
2127: debug('Creating an instance with quantity 1 for Non-Reservable Item');
2128: csi_item_instance_pub.create_item_instance(
2129: p_api_version => 1.0,
2130: p_commit => fnd_api.g_false,
2131: p_init_msg_list => fnd_api.g_true,
2132: p_validation_level => fnd_api.g_valid_level_full,
2133: p_instance_rec => l_cre_instance_rec,
2134: p_ext_attrib_values_tbl => l_cre_ext_attrib_val_tbl,
2127: debug('Creating an instance with quantity 1 for Non-Reservable Item');
2128: csi_item_instance_pub.create_item_instance(
2129: p_api_version => 1.0,
2130: p_commit => fnd_api.g_false,
2131: p_init_msg_list => fnd_api.g_true,
2132: p_validation_level => fnd_api.g_valid_level_full,
2133: p_instance_rec => l_cre_instance_rec,
2134: p_ext_attrib_values_tbl => l_cre_ext_attrib_val_tbl,
2135: p_party_tbl => l_cre_party_tbl,
2128: csi_item_instance_pub.create_item_instance(
2129: p_api_version => 1.0,
2130: p_commit => fnd_api.g_false,
2131: p_init_msg_list => fnd_api.g_true,
2132: p_validation_level => fnd_api.g_valid_level_full,
2133: p_instance_rec => l_cre_instance_rec,
2134: p_ext_attrib_values_tbl => l_cre_ext_attrib_val_tbl,
2135: p_party_tbl => l_cre_party_tbl,
2136: p_account_tbl => l_cre_party_acct_tbl,
2142: x_msg_count => x_msg_count,
2143: x_msg_data => x_msg_data );
2144:
2145: -- For Bug 4057183
2146: -- IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2147: IF NOT(x_return_status in (fnd_api.g_ret_sts_success,'W')) THEN
2148: g_api_name := 'csi_item_instance_pub.create_item_instance';
2149: raise fnd_api.g_exc_error;
2150: END IF;
2143: x_msg_data => x_msg_data );
2144:
2145: -- For Bug 4057183
2146: -- IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2147: IF NOT(x_return_status in (fnd_api.g_ret_sts_success,'W')) THEN
2148: g_api_name := 'csi_item_instance_pub.create_item_instance';
2149: raise fnd_api.g_exc_error;
2150: END IF;
2151:
2145: -- For Bug 4057183
2146: -- IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2147: IF NOT(x_return_status in (fnd_api.g_ret_sts_success,'W')) THEN
2148: g_api_name := 'csi_item_instance_pub.create_item_instance';
2149: raise fnd_api.g_exc_error;
2150: END IF;
2151:
2152: l_zero_instance_rec.instance_id := l_cre_instance_rec.instance_id;
2153: l_zero_instance_rec.quantity := 0;
2167: p_api_name => 'update_item_instance');
2168:
2169: csi_item_instance_pub.update_item_instance(
2170: p_api_version => 1.0,
2171: p_commit => fnd_api.g_false,
2172: p_init_msg_list => fnd_api.g_true,
2173: p_validation_level => fnd_api.g_valid_level_full,
2174: p_instance_rec => l_zero_instance_rec,
2175: p_party_tbl => l_zero_parties_tbl,
2168:
2169: csi_item_instance_pub.update_item_instance(
2170: p_api_version => 1.0,
2171: p_commit => fnd_api.g_false,
2172: p_init_msg_list => fnd_api.g_true,
2173: p_validation_level => fnd_api.g_valid_level_full,
2174: p_instance_rec => l_zero_instance_rec,
2175: p_party_tbl => l_zero_parties_tbl,
2176: p_account_tbl => l_zero_pty_accts_tbl,
2169: csi_item_instance_pub.update_item_instance(
2170: p_api_version => 1.0,
2171: p_commit => fnd_api.g_false,
2172: p_init_msg_list => fnd_api.g_true,
2173: p_validation_level => fnd_api.g_valid_level_full,
2174: p_instance_rec => l_zero_instance_rec,
2175: p_party_tbl => l_zero_parties_tbl,
2176: p_account_tbl => l_zero_pty_accts_tbl,
2177: p_org_assignments_tbl => l_zero_org_units_tbl,
2184: x_msg_count => x_msg_count,
2185: x_msg_data => x_msg_data);
2186:
2187: -- For Bug 4057183
2188: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2189: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2190: RAISE fnd_api.g_exc_error;
2191: END IF;
2192:
2185: x_msg_data => x_msg_data);
2186:
2187: -- For Bug 4057183
2188: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2189: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2190: RAISE fnd_api.g_exc_error;
2191: END IF;
2192:
2193: debug('Instance ('||l_zero_instance_rec.instance_id||') created and updated with zero quantity successfully.');
2186:
2187: -- For Bug 4057183
2188: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2189: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2190: RAISE fnd_api.g_exc_error;
2191: END IF;
2192:
2193: debug('Instance ('||l_zero_instance_rec.instance_id||') created and updated with zero quantity successfully.');
2194: l_instance_header_tbl(1).instance_id := l_zero_instance_rec.instance_id;
2204:
2205: ELSE
2206: fnd_message.SET_NAME('CSI','CSI_INT_NO_INST_FOUND');
2207: fnd_msg_pub.add;
2208: raise fnd_api.g_exc_error;
2209: END IF;
2210: END IF;
2211: -- Bug 2767338
2212: -- End Fix for negative quantity option set at Org Level
2213:
2214: IF l_instance_header_tbl.count > 1 THEN
2215: fnd_message.SET_NAME('CSI','CSI_INT_MANY_INST_FOUND');
2216: fnd_msg_pub.add;
2217: raise fnd_api.g_exc_error;
2218: END IF;
2219:
2220: debug('Unique inventory instance found.....!');
2221: px_error_rec.instance_id := l_instance_header_tbl(1).instance_id;
2287: -- End Add Code for Siebel Genesis Project
2288: END LOOP;
2289:
2290: EXCEPTION
2291: WHEN fnd_api.g_exc_error THEN
2292: x_return_status := fnd_api.g_ret_sts_error;
2293: WHEN fnd_api.g_exc_unexpected_error THEN
2294: x_return_status := fnd_api.g_ret_sts_unexp_error;
2295: END get_order_shipment_rec;
2288: END LOOP;
2289:
2290: EXCEPTION
2291: WHEN fnd_api.g_exc_error THEN
2292: x_return_status := fnd_api.g_ret_sts_error;
2293: WHEN fnd_api.g_exc_unexpected_error THEN
2294: x_return_status := fnd_api.g_ret_sts_unexp_error;
2295: END get_order_shipment_rec;
2296:
2289:
2290: EXCEPTION
2291: WHEN fnd_api.g_exc_error THEN
2292: x_return_status := fnd_api.g_ret_sts_error;
2293: WHEN fnd_api.g_exc_unexpected_error THEN
2294: x_return_status := fnd_api.g_ret_sts_unexp_error;
2295: END get_order_shipment_rec;
2296:
2297: /* To build the matched txn line details if entered for order line . */
2290: EXCEPTION
2291: WHEN fnd_api.g_exc_error THEN
2292: x_return_status := fnd_api.g_ret_sts_error;
2293: WHEN fnd_api.g_exc_unexpected_error THEN
2294: x_return_status := fnd_api.g_ret_sts_unexp_error;
2295: END get_order_shipment_rec;
2296:
2297: /* To build the matched txn line details if entered for order line . */
2298: /* If txn line details does not exist then it creates one from the */
2339: x_model_inst_tbl model_inst_tbl;
2340: l_qty_ratio number;
2341: l_model_exist boolean := FALSE;
2342:
2343: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2344: l_msg_count number;
2345: l_msg_data varchar2(2000);
2346:
2347: -- Included Transaction rec as part of fix for Bug 2767338
2350: ---Added (Start) for m-to-m enhancements
2351: l_temp_txn_ii_rltns_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
2352: ---Added (End) for m-to-m enhancements
2353:
2354: l_parent_line_qty NUMBER := fnd_api.g_miss_num;
2355: --
2356: -- srramakr Added for TSO With Equipment
2357: l_om_session_key csi_utility_grp.config_session_key;
2358: l_macd_processing BOOLEAN := FALSE;
2358: l_macd_processing BOOLEAN := FALSE;
2359:
2360: BEGIN
2361:
2362: x_return_status := fnd_api.g_ret_sts_success;
2363: -- Included Transaction rec as part of fix for Bug 2767338
2364: l_trx_rec := p_transaction_rec;
2365:
2366: api_log('build_shtd_table');
2375: x_order_shipment_tbl => x_order_shipment_tbl,
2376: px_error_rec => px_error_rec,
2377: x_return_status => l_return_status );
2378:
2379: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2380: raise fnd_api.g_exc_error;
2381: END IF;
2382:
2383: debug(' order_shipment_tbl.count :'||x_order_shipment_tbl.count);
2376: px_error_rec => px_error_rec,
2377: x_return_status => l_return_status );
2378:
2379: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2380: raise fnd_api.g_exc_error;
2381: END IF;
2382:
2383: debug(' order_shipment_tbl.count :'||x_order_shipment_tbl.count);
2384:
2382:
2383: debug(' order_shipment_tbl.count :'||x_order_shipment_tbl.count);
2384:
2385: /* Get the instances for the option class/model line_id (ATO/PTO) */
2386: IF NVL(p_order_line_rec.link_to_line_id ,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
2387:
2388: x_model_inst_tbl.delete;
2389: --
2390: -- srramakr Added for TSO with Equipment
2396: ( p_config_session_key => l_om_session_key,
2397: x_return_status => l_return_status
2398: );
2399: --
2400: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2401: RAISE fnd_api.g_exc_error;
2402: END IF;
2403: --
2404: IF NOT l_macd_processing THEN
2397: x_return_status => l_return_status
2398: );
2399: --
2400: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2401: RAISE fnd_api.g_exc_error;
2402: END IF;
2403: --
2404: IF NOT l_macd_processing THEN
2405: csi_utl_pkg.get_model_inst_lst(
2406: p_parent_line_id => p_order_line_rec.link_to_line_id,
2407: x_model_inst_tbl => x_model_inst_tbl,
2408: x_return_status => l_return_status);
2409:
2410: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2411: raise fnd_api.g_exc_error;
2412: END IF;
2413: ELSE -- MACD Order Line
2414: p_order_line_rec.macd_order_line := FND_API.G_TRUE;
2407: x_model_inst_tbl => x_model_inst_tbl,
2408: x_return_status => l_return_status);
2409:
2410: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2411: raise fnd_api.g_exc_error;
2412: END IF;
2413: ELSE -- MACD Order Line
2414: p_order_line_rec.macd_order_line := FND_API.G_TRUE;
2415: END IF; -- MACD Processing check
2410: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2411: raise fnd_api.g_exc_error;
2412: END IF;
2413: ELSE -- MACD Order Line
2414: p_order_line_rec.macd_order_line := FND_API.G_TRUE;
2415: END IF; -- MACD Processing check
2416: -- srramakr End of TSO with Equipment
2417: --
2418: debug(' model_inst_tbl.count :'||x_model_inst_tbl.count);
2447: px_order_shipment_tbl => x_order_shipment_tbl,
2448: x_transaction_line_id => x_trx_line_id,
2449: x_return_status => l_return_status);
2450:
2451: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2452: raise fnd_api.g_exc_error;
2453: END IF;
2454:
2455: ELSIF p_order_line_rec.item_type_code = 'OPTION' THEN
2448: x_transaction_line_id => x_trx_line_id,
2449: x_return_status => l_return_status);
2450:
2451: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2452: raise fnd_api.g_exc_error;
2453: END IF;
2454:
2455: ELSIF p_order_line_rec.item_type_code = 'OPTION' THEN
2456:
2463: x_model_inst_tbl => x_model_inst_tbl,
2464: x_trx_line_id => x_trx_line_id,
2465: x_return_status => l_return_status);
2466:
2467: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2468: raise fnd_api.g_exc_error;
2469: END IF;
2470:
2471: ELSE
2464: x_trx_line_id => x_trx_line_id,
2465: x_return_status => l_return_status);
2466:
2467: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2468: raise fnd_api.g_exc_error;
2469: END IF;
2470:
2471: ELSE
2472:
2481: x_model_inst_tbl => x_model_inst_tbl,
2482: x_trx_line_id => x_trx_line_id,
2483: x_return_status => l_return_status );
2484:
2485: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2486: raise fnd_api.g_exc_error;
2487: END IF;
2488:
2489: ELSE -- create transaction details
2482: x_trx_line_id => x_trx_line_id,
2483: x_return_status => l_return_status );
2484:
2485: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2486: raise fnd_api.g_exc_error;
2487: END IF;
2488:
2489: ELSE -- create transaction details
2490:
2495: px_order_shipment_tbl => x_order_shipment_tbl,
2496: x_transaction_line_id => x_trx_line_id,
2497: x_return_status => l_return_status);
2498:
2499: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2500: raise fnd_api.g_exc_error;
2501: END IF;
2502:
2503: END IF;
2496: x_transaction_line_id => x_trx_line_id,
2497: x_return_status => l_return_status);
2498:
2499: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2500: raise fnd_api.g_exc_error;
2501: END IF;
2502:
2503: END IF;
2504:
2521: debug('Getting installation details for matching with material transaction info.' );
2522:
2523: csi_t_txn_details_grp.get_transaction_details(
2524: p_api_version => 1.0,
2525: p_commit => fnd_api.g_false,
2526: p_init_msg_list => fnd_api.g_true,
2527: p_validation_level => fnd_api.g_valid_level_full,
2528: p_txn_line_query_rec => l_txn_line_query_rec,
2529: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
2522:
2523: csi_t_txn_details_grp.get_transaction_details(
2524: p_api_version => 1.0,
2525: p_commit => fnd_api.g_false,
2526: p_init_msg_list => fnd_api.g_true,
2527: p_validation_level => fnd_api.g_valid_level_full,
2528: p_txn_line_query_rec => l_txn_line_query_rec,
2529: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
2530: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
2523: csi_t_txn_details_grp.get_transaction_details(
2524: p_api_version => 1.0,
2525: p_commit => fnd_api.g_false,
2526: p_init_msg_list => fnd_api.g_true,
2527: p_validation_level => fnd_api.g_valid_level_full,
2528: p_txn_line_query_rec => l_txn_line_query_rec,
2529: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
2530: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
2531: p_get_parties_flag => fnd_api.g_false,
2527: p_validation_level => fnd_api.g_valid_level_full,
2528: p_txn_line_query_rec => l_txn_line_query_rec,
2529: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
2530: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
2531: p_get_parties_flag => fnd_api.g_false,
2532: x_txn_party_detail_tbl => l_txn_party_detail_tbl,
2533: p_get_pty_accts_flag => fnd_api.g_false,
2534: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl,
2535: p_get_ii_rltns_flag => fnd_api.g_true,
2529: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
2530: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
2531: p_get_parties_flag => fnd_api.g_false,
2532: x_txn_party_detail_tbl => l_txn_party_detail_tbl,
2533: p_get_pty_accts_flag => fnd_api.g_false,
2534: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl,
2535: p_get_ii_rltns_flag => fnd_api.g_true,
2536: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2537: p_get_org_assgns_flag => fnd_api.g_false,
2531: p_get_parties_flag => fnd_api.g_false,
2532: x_txn_party_detail_tbl => l_txn_party_detail_tbl,
2533: p_get_pty_accts_flag => fnd_api.g_false,
2534: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl,
2535: p_get_ii_rltns_flag => fnd_api.g_true,
2536: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2537: p_get_org_assgns_flag => fnd_api.g_false,
2538: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
2539: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2533: p_get_pty_accts_flag => fnd_api.g_false,
2534: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl,
2535: p_get_ii_rltns_flag => fnd_api.g_true,
2536: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2537: p_get_org_assgns_flag => fnd_api.g_false,
2538: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
2539: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2540: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
2541: p_get_csi_attribs_flag => fnd_api.g_false,
2535: p_get_ii_rltns_flag => fnd_api.g_true,
2536: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2537: p_get_org_assgns_flag => fnd_api.g_false,
2538: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
2539: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2540: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
2541: p_get_csi_attribs_flag => fnd_api.g_false,
2542: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
2543: p_get_csi_iea_values_flag => fnd_api.g_false,
2537: p_get_org_assgns_flag => fnd_api.g_false,
2538: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
2539: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2540: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
2541: p_get_csi_attribs_flag => fnd_api.g_false,
2542: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
2543: p_get_csi_iea_values_flag => fnd_api.g_false,
2544: x_csi_iea_values_tbl => l_extend_attrib_values_tbl,
2545: p_get_txn_systems_flag => fnd_api.g_false,
2539: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2540: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
2541: p_get_csi_attribs_flag => fnd_api.g_false,
2542: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
2543: p_get_csi_iea_values_flag => fnd_api.g_false,
2544: x_csi_iea_values_tbl => l_extend_attrib_values_tbl,
2545: p_get_txn_systems_flag => fnd_api.g_false,
2546: x_txn_systems_tbl => l_txn_systems_tbl,
2547: x_return_status => l_return_status,
2541: p_get_csi_attribs_flag => fnd_api.g_false,
2542: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
2543: p_get_csi_iea_values_flag => fnd_api.g_false,
2544: x_csi_iea_values_tbl => l_extend_attrib_values_tbl,
2545: p_get_txn_systems_flag => fnd_api.g_false,
2546: x_txn_systems_tbl => l_txn_systems_tbl,
2547: x_return_status => l_return_status,
2548: x_msg_count => l_msg_count,
2549: x_msg_data => l_msg_data);
2547: x_return_status => l_return_status,
2548: x_msg_count => l_msg_count,
2549: x_msg_data => l_msg_data);
2550:
2551: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2552: raise fnd_api.g_exc_error;
2553: END IF;
2554:
2555: debug(' txn_line_detail_tbl.count :'||l_txn_line_detail_tbl.count );
2548: x_msg_count => l_msg_count,
2549: x_msg_data => l_msg_data);
2550:
2551: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2552: raise fnd_api.g_exc_error;
2553: END IF;
2554:
2555: debug(' txn_line_detail_tbl.count :'||l_txn_line_detail_tbl.count );
2556: debug(' txn_ii_rltns_tbl.count :'||l_txn_ii_rltns_tbl.count );
2564: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2565: x_order_shipment_tbl => x_order_shipment_tbl,
2566: x_return_status => l_return_status );
2567:
2568: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2569: raise fnd_api.g_exc_error;
2570: END IF;
2571:
2572: --Added (Start) for m-to-m enhancements
2565: x_order_shipment_tbl => x_order_shipment_tbl,
2566: x_return_status => l_return_status );
2567:
2568: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2569: raise fnd_api.g_exc_error;
2570: END IF;
2571:
2572: --Added (Start) for m-to-m enhancements
2573: --05/20 For each TLD in ,l_txn_line_detail_tbl
2577: l_txn_line_detail_tbl,
2578: l_temp_txn_ii_rltns_tbl,
2579: l_return_status);
2580:
2581: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2582: raise fnd_api.g_exc_error;
2583: END IF;
2584:
2585: --Create these relations in csi_t_ii_relationships table
2578: l_temp_txn_ii_rltns_tbl,
2579: l_return_status);
2580:
2581: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2582: raise fnd_api.g_exc_error;
2583: END IF;
2584:
2585: --Create these relations in csi_t_ii_relationships table
2586:
2586:
2587: IF l_temp_txn_ii_rltns_tbl.count > 0 THEN
2588: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2589: p_api_version => 1.0,
2590: p_commit => fnd_api.g_false,
2591: p_init_msg_list => fnd_api.g_true,
2592: p_validation_level => fnd_api.g_valid_level_full,
2593: px_txn_ii_rltns_tbl => l_temp_txn_ii_rltns_tbl,
2594: x_return_status => l_return_status,
2587: IF l_temp_txn_ii_rltns_tbl.count > 0 THEN
2588: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2589: p_api_version => 1.0,
2590: p_commit => fnd_api.g_false,
2591: p_init_msg_list => fnd_api.g_true,
2592: p_validation_level => fnd_api.g_valid_level_full,
2593: px_txn_ii_rltns_tbl => l_temp_txn_ii_rltns_tbl,
2594: x_return_status => l_return_status,
2595: x_msg_count => x_msg_count,
2588: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2589: p_api_version => 1.0,
2590: p_commit => fnd_api.g_false,
2591: p_init_msg_list => fnd_api.g_true,
2592: p_validation_level => fnd_api.g_valid_level_full,
2593: px_txn_ii_rltns_tbl => l_temp_txn_ii_rltns_tbl,
2594: x_return_status => l_return_status,
2595: x_msg_count => x_msg_count,
2596: x_msg_data => x_msg_data);
2594: x_return_status => l_return_status,
2595: x_msg_count => x_msg_count,
2596: x_msg_data => x_msg_data);
2597:
2598: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2599: raise fnd_api.g_exc_error;
2600: END IF;
2601: END IF ; ---l_temp_txn_ii_rltns_tbl.count>0
2602: --added (end) for m-to-m enhancements
2595: x_msg_count => x_msg_count,
2596: x_msg_data => x_msg_data);
2597:
2598: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2599: raise fnd_api.g_exc_error;
2600: END IF;
2601: END IF ; ---l_temp_txn_ii_rltns_tbl.count>0
2602: --added (end) for m-to-m enhancements
2603: ELSE
2611: px_order_shipment_tbl => x_order_shipment_tbl,
2612: x_transaction_line_id => x_trx_line_id,
2613: x_return_status => l_return_status);
2614:
2615: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2616: raise fnd_api.g_exc_error;
2617: END IF;
2618:
2619: ELSIF p_order_line_rec.item_type_code = 'OPTION' THEN
2612: x_transaction_line_id => x_trx_line_id,
2613: x_return_status => l_return_status);
2614:
2615: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2616: raise fnd_api.g_exc_error;
2617: END IF;
2618:
2619: ELSIF p_order_line_rec.item_type_code = 'OPTION' THEN
2620:
2627: x_model_inst_tbl => x_model_inst_tbl,
2628: x_trx_line_id => x_trx_line_id,
2629: x_return_status => l_return_status);
2630:
2631: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2632: raise fnd_api.g_exc_error;
2633: END IF;
2634:
2635: ELSE
2628: x_trx_line_id => x_trx_line_id,
2629: x_return_status => l_return_status);
2630:
2631: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2632: raise fnd_api.g_exc_error;
2633: END IF;
2634:
2635: ELSE
2636:
2641: px_order_shipment_tbl => x_order_shipment_tbl,
2642: x_transaction_line_id => x_trx_line_id,
2643: x_return_status => l_return_status);
2644:
2645: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2646: raise fnd_api.g_exc_error;
2647: END IF;
2648:
2649: END IF;
2642: x_transaction_line_id => x_trx_line_id,
2643: x_return_status => l_return_status);
2644:
2645: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2646: raise fnd_api.g_exc_error;
2647: END IF;
2648:
2649: END IF;
2650: END IF;
2667: debug('Getting only matched txn line dtls ' );
2668:
2669: csi_t_txn_details_grp.get_transaction_details(
2670: p_api_version => 1.0
2671: ,p_commit => fnd_api.g_false
2672: ,p_init_msg_list => fnd_api.g_true
2673: ,p_validation_level => fnd_api.g_valid_level_full
2674: ,p_txn_line_query_rec => l_txn_line_query_rec
2675: ,p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec
2668:
2669: csi_t_txn_details_grp.get_transaction_details(
2670: p_api_version => 1.0
2671: ,p_commit => fnd_api.g_false
2672: ,p_init_msg_list => fnd_api.g_true
2673: ,p_validation_level => fnd_api.g_valid_level_full
2674: ,p_txn_line_query_rec => l_txn_line_query_rec
2675: ,p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec
2676: ,x_txn_line_detail_tbl => l_txn_line_detail_tbl
2669: csi_t_txn_details_grp.get_transaction_details(
2670: p_api_version => 1.0
2671: ,p_commit => fnd_api.g_false
2672: ,p_init_msg_list => fnd_api.g_true
2673: ,p_validation_level => fnd_api.g_valid_level_full
2674: ,p_txn_line_query_rec => l_txn_line_query_rec
2675: ,p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec
2676: ,x_txn_line_detail_tbl => l_txn_line_detail_tbl
2677: ,p_get_parties_flag => fnd_api.g_false
2673: ,p_validation_level => fnd_api.g_valid_level_full
2674: ,p_txn_line_query_rec => l_txn_line_query_rec
2675: ,p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec
2676: ,x_txn_line_detail_tbl => l_txn_line_detail_tbl
2677: ,p_get_parties_flag => fnd_api.g_false
2678: ,x_txn_party_detail_tbl => l_txn_party_detail_tbl
2679: ,p_get_pty_accts_flag => fnd_api.g_false
2680: ,x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl
2681: ---Added (Start) for m-to-m enhancements
2675: ,p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec
2676: ,x_txn_line_detail_tbl => l_txn_line_detail_tbl
2677: ,p_get_parties_flag => fnd_api.g_false
2678: ,x_txn_party_detail_tbl => l_txn_party_detail_tbl
2679: ,p_get_pty_accts_flag => fnd_api.g_false
2680: ,x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl
2681: ---Added (Start) for m-to-m enhancements
2682: -- Now get the relations
2683: ,p_get_ii_rltns_flag => fnd_api.g_true
2679: ,p_get_pty_accts_flag => fnd_api.g_false
2680: ,x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl
2681: ---Added (Start) for m-to-m enhancements
2682: -- Now get the relations
2683: ,p_get_ii_rltns_flag => fnd_api.g_true
2684: ---Added (End) for m-to-m enhancements
2685: ,x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl
2686: ,p_get_org_assgns_flag => fnd_api.g_false
2687: ,x_txn_org_assgn_tbl => l_txn_org_assgn_tbl
2682: -- Now get the relations
2683: ,p_get_ii_rltns_flag => fnd_api.g_true
2684: ---Added (End) for m-to-m enhancements
2685: ,x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl
2686: ,p_get_org_assgns_flag => fnd_api.g_false
2687: ,x_txn_org_assgn_tbl => l_txn_org_assgn_tbl
2688: ,p_get_ext_attrib_vals_flag => fnd_api.g_false
2689: ,x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl
2690: ,p_get_csi_attribs_flag => fnd_api.g_false
2684: ---Added (End) for m-to-m enhancements
2685: ,x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl
2686: ,p_get_org_assgns_flag => fnd_api.g_false
2687: ,x_txn_org_assgn_tbl => l_txn_org_assgn_tbl
2688: ,p_get_ext_attrib_vals_flag => fnd_api.g_false
2689: ,x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl
2690: ,p_get_csi_attribs_flag => fnd_api.g_false
2691: ,x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl
2692: ,p_get_csi_iea_values_flag => fnd_api.g_false
2686: ,p_get_org_assgns_flag => fnd_api.g_false
2687: ,x_txn_org_assgn_tbl => l_txn_org_assgn_tbl
2688: ,p_get_ext_attrib_vals_flag => fnd_api.g_false
2689: ,x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl
2690: ,p_get_csi_attribs_flag => fnd_api.g_false
2691: ,x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl
2692: ,p_get_csi_iea_values_flag => fnd_api.g_false
2693: ,x_csi_iea_values_tbl => l_extend_attrib_values_tbl
2694: ,p_get_txn_systems_flag => fnd_api.g_false
2688: ,p_get_ext_attrib_vals_flag => fnd_api.g_false
2689: ,x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl
2690: ,p_get_csi_attribs_flag => fnd_api.g_false
2691: ,x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl
2692: ,p_get_csi_iea_values_flag => fnd_api.g_false
2693: ,x_csi_iea_values_tbl => l_extend_attrib_values_tbl
2694: ,p_get_txn_systems_flag => fnd_api.g_false
2695: ,x_txn_systems_tbl => l_txn_systems_tbl
2696: ,x_return_status => x_return_status
2690: ,p_get_csi_attribs_flag => fnd_api.g_false
2691: ,x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl
2692: ,p_get_csi_iea_values_flag => fnd_api.g_false
2693: ,x_csi_iea_values_tbl => l_extend_attrib_values_tbl
2694: ,p_get_txn_systems_flag => fnd_api.g_false
2695: ,x_txn_systems_tbl => l_txn_systems_tbl
2696: ,x_return_status => x_return_status
2697: ,x_msg_count => x_msg_count
2698: ,x_msg_data => x_msg_data );
2696: ,x_return_status => x_return_status
2697: ,x_msg_count => x_msg_count
2698: ,x_msg_data => x_msg_data );
2699:
2700: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2701: raise fnd_api.g_exc_error;
2702: END IF;
2703:
2704: debug('l_txn_line_detail_tbl.count ='||l_txn_line_detail_tbl.count );
2697: ,x_msg_count => x_msg_count
2698: ,x_msg_data => x_msg_data );
2699:
2700: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2701: raise fnd_api.g_exc_error;
2702: END IF;
2703:
2704: debug('l_txn_line_detail_tbl.count ='||l_txn_line_detail_tbl.count );
2705:
2710: p_model_remnant_flag => p_order_line_rec.model_remnant_flag, --added for bug5096435
2711: x_qty_ratio => l_qty_ratio ,
2712: x_return_status => l_return_status );
2713:
2714: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2715: raise fnd_api.g_exc_error;
2716: END IF;
2717:
2718: debug('l_qty_ratio = '||l_qty_ratio );
2711: x_qty_ratio => l_qty_ratio ,
2712: x_return_status => l_return_status );
2713:
2714: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2715: raise fnd_api.g_exc_error;
2716: END IF;
2717:
2718: debug('l_qty_ratio = '||l_qty_ratio );
2719:
2731: x_txn_line_dtl_tbl => l_txn_line_detail_tbl,
2732: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2733: x_return_status => x_return_status );
2734:
2735: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2736: raise fnd_api.g_exc_error;
2737: END IF;
2738:
2739: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2732: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2733: x_return_status => x_return_status );
2734:
2735: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2736: raise fnd_api.g_exc_error;
2737: END IF;
2738:
2739: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2740: p_api_version => 1.0,
2737: END IF;
2738:
2739: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2740: p_api_version => 1.0,
2741: p_commit => fnd_api.g_false,
2742: p_init_msg_list => fnd_api.g_true,
2743: p_validation_level => fnd_api.g_valid_level_full,
2744: px_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2745: x_return_status => x_return_status,
2738:
2739: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2740: p_api_version => 1.0,
2741: p_commit => fnd_api.g_false,
2742: p_init_msg_list => fnd_api.g_true,
2743: p_validation_level => fnd_api.g_valid_level_full,
2744: px_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2745: x_return_status => x_return_status,
2746: x_msg_count => x_msg_count,
2739: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2740: p_api_version => 1.0,
2741: p_commit => fnd_api.g_false,
2742: p_init_msg_list => fnd_api.g_true,
2743: p_validation_level => fnd_api.g_valid_level_full,
2744: px_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2745: x_return_status => x_return_status,
2746: x_msg_count => x_msg_count,
2747: x_msg_data => x_msg_data);
2745: x_return_status => x_return_status,
2746: x_msg_count => x_msg_count,
2747: x_msg_data => x_msg_data);
2748:
2749: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2750: g_api_name := 'csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls';
2751: raise fnd_api.g_exc_error;
2752: END IF;
2753:
2747: x_msg_data => x_msg_data);
2748:
2749: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2750: g_api_name := 'csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls';
2751: raise fnd_api.g_exc_error;
2752: END IF;
2753:
2754: END IF;
2755:
2772: p_model_txn_line_rec => l_txn_line_rec,
2773: px_csi_txn_rec => l_trx_rec,
2774: x_return_status => l_return_status);
2775:
2776: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2777: RAISE fnd_api.g_exc_error;
2778: END IF;
2779:
2780: END IF;
2773: px_csi_txn_rec => l_trx_rec,
2774: x_return_status => l_return_status);
2775:
2776: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2777: RAISE fnd_api.g_exc_error;
2778: END IF;
2779:
2780: END IF;
2781: EXCEPTION
2778: END IF;
2779:
2780: END IF;
2781: EXCEPTION
2782: WHEN FND_API.G_EXC_ERROR THEN
2783: x_return_status := FND_API.G_RET_STS_ERROR ;
2784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2786: END build_shtd_table;
2779:
2780: END IF;
2781: EXCEPTION
2782: WHEN FND_API.G_EXC_ERROR THEN
2783: x_return_status := FND_API.G_RET_STS_ERROR ;
2784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2786: END build_shtd_table;
2787:
2780: END IF;
2781: EXCEPTION
2782: WHEN FND_API.G_EXC_ERROR THEN
2783: x_return_status := FND_API.G_RET_STS_ERROR ;
2784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2786: END build_shtd_table;
2787:
2788:
2781: EXCEPTION
2782: WHEN FND_API.G_EXC_ERROR THEN
2783: x_return_status := FND_API.G_RET_STS_ERROR ;
2784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2786: END build_shtd_table;
2787:
2788:
2789: PROCEDURE check_return_processing(
2789: PROCEDURE check_return_processing(
2790: px_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
2791: x_return_status OUT NOCOPY varchar2)
2792: IS
2793: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2794: l_instance_usage_code varchar2(30) := 'NULL';
2795: BEGIN
2796:
2797: x_return_status := fnd_api.g_ret_sts_success;
2793: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2794: l_instance_usage_code varchar2(30) := 'NULL';
2795: BEGIN
2796:
2797: x_return_status := fnd_api.g_ret_sts_success;
2798:
2799: api_log('check_return_processing');
2800:
2801: IF px_txn_line_detail_tbl.COUNT > 0 THEN
2802: FOR l_ind IN px_txn_line_detail_tbl.FIRST .. px_txn_line_detail_tbl.LAST
2803: LOOP
2804: IF px_txn_line_detail_tbl(l_ind).source_transaction_flag = 'Y'
2805: AND
2806: nvl(px_txn_line_detail_tbl(l_ind).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
2807: THEN
2808:
2809: debug(' referred instance id :'||px_txn_line_detail_tbl(l_ind).instance_id);
2810:
2828: END IF;
2829: END LOOP;
2830: END IF;
2831: EXCEPTION
2832: WHEN fnd_api.g_exc_error THEN
2833: x_return_status := fnd_api.g_ret_sts_error;
2834: WHEN fnd_api.g_exc_unexpected_error THEN
2835: x_return_status := fnd_api.g_ret_sts_unexp_error;
2836: END check_return_processing;
2829: END LOOP;
2830: END IF;
2831: EXCEPTION
2832: WHEN fnd_api.g_exc_error THEN
2833: x_return_status := fnd_api.g_ret_sts_error;
2834: WHEN fnd_api.g_exc_unexpected_error THEN
2835: x_return_status := fnd_api.g_ret_sts_unexp_error;
2836: END check_return_processing;
2837:
2830: END IF;
2831: EXCEPTION
2832: WHEN fnd_api.g_exc_error THEN
2833: x_return_status := fnd_api.g_ret_sts_error;
2834: WHEN fnd_api.g_exc_unexpected_error THEN
2835: x_return_status := fnd_api.g_ret_sts_unexp_error;
2836: END check_return_processing;
2837:
2838: /*---------------------------------------------------------------*/
2831: EXCEPTION
2832: WHEN fnd_api.g_exc_error THEN
2833: x_return_status := fnd_api.g_ret_sts_error;
2834: WHEN fnd_api.g_exc_unexpected_error THEN
2835: x_return_status := fnd_api.g_ret_sts_unexp_error;
2836: END check_return_processing;
2837:
2838: /*---------------------------------------------------------------*/
2839: /* Procedure does matching of txn line details with the shipment */
2845: x_txn_ii_rltns_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_ii_rltns_tbl,
2846: x_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
2847: x_return_status OUT NOCOPY varchar2)
2848: IS
2849: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2850: BEGIN
2851:
2852: /* Initialize API return status to success */
2853: x_return_status := fnd_api.g_ret_sts_success;
2849: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2850: BEGIN
2851:
2852: /* Initialize API return status to success */
2853: x_return_status := fnd_api.g_ret_sts_success;
2854:
2855: api_log('construct_for_txn_exists');
2856:
2857: /* brmanesh - hooking this procedure to check if the instance referenced is a
2862: check_return_processing(
2863: px_txn_line_detail_tbl => x_txn_line_detail_tbl,
2864: x_return_status => l_return_status);
2865:
2866: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2867: RAISE fnd_api.g_exc_error;
2868: END IF;
2869:
2870: match_txn_with_ship(
2863: px_txn_line_detail_tbl => x_txn_line_detail_tbl,
2864: x_return_status => l_return_status);
2865:
2866: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2867: RAISE fnd_api.g_exc_error;
2868: END IF;
2869:
2870: match_txn_with_ship(
2871: p_serial_code => p_order_line_rec.serial_code,
2872: x_txn_line_detail_tbl => x_txn_line_detail_tbl,
2873: x_order_shipment_tbl => x_order_shipment_tbl,
2874: x_return_status => l_return_status );
2875:
2876: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2877: raise fnd_api.g_exc_error;
2878: END IF;
2879:
2880: process_txn_dtl(
2873: x_order_shipment_tbl => x_order_shipment_tbl,
2874: x_return_status => l_return_status );
2875:
2876: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2877: raise fnd_api.g_exc_error;
2878: END IF;
2879:
2880: process_txn_dtl(
2881: p_serial_code => p_order_line_rec.serial_code,
2885: x_txn_ii_rltns_tbl => x_txn_ii_rltns_tbl,
2886: x_order_shipment_tbl => x_order_shipment_tbl,
2887: x_return_status => l_return_status );
2888:
2889: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2890: raise fnd_api.g_exc_error;
2891: END IF;
2892:
2893: EXCEPTION
2886: x_order_shipment_tbl => x_order_shipment_tbl,
2887: x_return_status => l_return_status );
2888:
2889: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2890: raise fnd_api.g_exc_error;
2891: END IF;
2892:
2893: EXCEPTION
2894: WHEN FND_API.G_EXC_ERROR THEN
2890: raise fnd_api.g_exc_error;
2891: END IF;
2892:
2893: EXCEPTION
2894: WHEN FND_API.G_EXC_ERROR THEN
2895: x_return_status := FND_API.G_RET_STS_ERROR ;
2896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2898: END construct_for_txn_exists;
2891: END IF;
2892:
2893: EXCEPTION
2894: WHEN FND_API.G_EXC_ERROR THEN
2895: x_return_status := FND_API.G_RET_STS_ERROR ;
2896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2898: END construct_for_txn_exists;
2899:
2892:
2893: EXCEPTION
2894: WHEN FND_API.G_EXC_ERROR THEN
2895: x_return_status := FND_API.G_RET_STS_ERROR ;
2896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2898: END construct_for_txn_exists;
2899:
2900: /* ------------------------------------------------------------------------*/
2893: EXCEPTION
2894: WHEN FND_API.G_EXC_ERROR THEN
2895: x_return_status := FND_API.G_RET_STS_ERROR ;
2896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2898: END construct_for_txn_exists;
2899:
2900: /* ------------------------------------------------------------------------*/
2901: /* procedure compare if the inventory instance and the qty on the shipment */
2907: x_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
2908: x_order_shipment_tbl IN OUT NOCOPY order_shipment_tbl,
2909: x_return_status OUT NOCOPY varchar2)
2910: IS
2911: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2912: BEGIN
2913:
2914: x_return_status := fnd_api.g_ret_sts_success;
2915:
2910: IS
2911: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2912: BEGIN
2913:
2914: x_return_status := fnd_api.g_ret_sts_success;
2915:
2916: api_log('match_txn_with_ship');
2917: debug(' order_shipment_tbl.count :'||x_order_shipment_tbl.count );
2918: debug(' txn_line_detail_tbl.count :'||x_txn_line_detail_tbl.count);
3075: END IF; -- end if inst_match = N and qty_match = N
3076: END LOOP; -- end of processing shipment table
3077: END IF;
3078: EXCEPTION
3079: WHEN FND_API.G_EXC_ERROR THEN
3080: x_return_status := FND_API.G_RET_STS_ERROR ;
3081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3083: END match_txn_with_ship;
3076: END LOOP; -- end of processing shipment table
3077: END IF;
3078: EXCEPTION
3079: WHEN FND_API.G_EXC_ERROR THEN
3080: x_return_status := FND_API.G_RET_STS_ERROR ;
3081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3083: END match_txn_with_ship;
3084:
3077: END IF;
3078: EXCEPTION
3079: WHEN FND_API.G_EXC_ERROR THEN
3080: x_return_status := FND_API.G_RET_STS_ERROR ;
3081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3083: END match_txn_with_ship;
3084:
3085: /*----------------------------------------------------------*/
3078: EXCEPTION
3079: WHEN FND_API.G_EXC_ERROR THEN
3080: x_return_status := FND_API.G_RET_STS_ERROR ;
3081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3083: END match_txn_with_ship;
3084:
3085: /*----------------------------------------------------------*/
3086: /* Description : Procedure that matches the unresolved */
3115: l_upd_txn_pty_acct_dtl_tbl csi_t_datastructures_grp.txn_pty_acct_detail_tbl;
3116: l_upd_txn_org_assgn_tbl csi_t_datastructures_grp.txn_org_assgn_tbl;
3117: l_upd_txn_ext_attr_vals_tbl csi_t_datastructures_grp.txn_ext_attrib_vals_tbl;
3118:
3119: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3120: l_msg_count number;
3121: l_msg_data varchar2(2000);
3122:
3123: BEGIN
3122:
3123: BEGIN
3124:
3125: /* Initialize API return status to success */
3126: x_return_status := fnd_api.g_ret_sts_success;
3127:
3128: api_log('process_txn_dtl');
3129:
3130: /* assign values for the columns in l_upd_txn_line_rec */
3197: p_order_shipment_rec => x_order_shipment_tbl(i),
3198: p_order_line_rec => p_order_line_rec,
3199: x_return_status => x_return_status);
3200:
3201: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3202: raise fnd_api.g_exc_error;
3203: END IF;
3204:
3205: l_upd := l_upd +1;
3198: p_order_line_rec => p_order_line_rec,
3199: x_return_status => x_return_status);
3200:
3201: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3202: raise fnd_api.g_exc_error;
3203: END IF;
3204:
3205: l_upd := l_upd +1;
3206:
3259: p_order_line_rec => p_order_line_rec,
3260: p_proc_qty => l_proc_qty,
3261: x_return_status => x_return_status );
3262:
3263: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3264: raise fnd_api.g_exc_error;
3265: END IF;
3266:
3267: debug('After split_ship_rec ');
3260: p_proc_qty => l_proc_qty,
3261: x_return_status => x_return_status );
3262:
3263: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3264: raise fnd_api.g_exc_error;
3265: END IF;
3266:
3267: debug('After split_ship_rec ');
3268: debug(' upd_txn_line_dtl_tbl.count : '||l_upd_txn_line_dtl_tbl.count);
3321: p_order_shipment_rec => x_order_shipment_tbl(i),
3322: p_order_line_rec => p_order_line_rec,
3323: x_return_status => x_return_status );
3324:
3325: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3326: raise fnd_api.g_exc_error;
3327: END IF;
3328:
3329: UPDATE csi_t_txn_line_details
3322: p_order_line_rec => p_order_line_rec,
3323: x_return_status => x_return_status );
3324:
3325: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3326: raise fnd_api.g_exc_error;
3327: END IF;
3328:
3329: UPDATE csi_t_txn_line_details
3330: SET processing_status = 'SUBMIT'
3492: p_order_shipment_rec => x_order_shipment_tbl(i),
3493: p_order_line_rec => p_order_line_rec,
3494: x_return_status => x_return_status );
3495:
3496: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3497: raise fnd_api.g_exc_error;
3498: END IF;
3499:
3500: x_order_shipment_tbl(i).quantity_match := 'Y';
3493: p_order_line_rec => p_order_line_rec,
3494: x_return_status => x_return_status );
3495:
3496: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3497: raise fnd_api.g_exc_error;
3498: END IF;
3499:
3500: x_order_shipment_tbl(i).quantity_match := 'Y';
3501: x_order_shipment_tbl(i).instance_match := 'Y';
3588: ,p_order_shipment_rec => x_order_shipment_tbl(i)
3589: ,p_order_line_rec => p_order_line_rec
3590: ,x_return_status => x_return_status );
3591:
3592: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3593: raise fnd_api.g_exc_error;
3594: END IF;
3595:
3596: l_upd := l_upd +1;
3589: ,p_order_line_rec => p_order_line_rec
3590: ,x_return_status => x_return_status );
3591:
3592: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3593: raise fnd_api.g_exc_error;
3594: END IF;
3595:
3596: l_upd := l_upd +1;
3597:
3603: /* update txn_detail with the instance from shipping record */
3604: l_upd_txn_line_dtl_tbl(l_upd).txn_line_detail_id := x_txn_line_detail_tbl(j).txn_line_detail_id;
3605: l_upd_txn_line_dtl_tbl(l_upd).instance_id := x_order_shipment_tbl(i).instance_id;
3606: l_upd_txn_line_dtl_tbl(l_upd).serial_number := x_order_shipment_tbl(i).serial_number;
3607: IF nvl(x_order_shipment_tbl(i).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
3608: l_upd_txn_line_dtl_tbl(l_upd).mfg_serial_number_flag := 'Y';
3609: END IF;
3610: debug('Serial Number :'||l_upd_txn_line_dtl_tbl(l_upd).serial_number);
3611: l_upd_txn_line_dtl_tbl(l_upd).lot_number := x_order_shipment_tbl(i).lot_number;
3630: csi_utl_pkg.split_txn_dtls_with_qty(
3631: split_txn_dtl_id => x_txn_line_detail_tbl(j).txn_line_detail_id,
3632: p_split_qty => l_rem_qty,
3633: x_return_status => l_return_status );
3634: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3635: raise fnd_api.g_exc_error;
3636: END IF;
3637: exit;
3638: --End of fix for bug 4354267
3631: split_txn_dtl_id => x_txn_line_detail_tbl(j).txn_line_detail_id,
3632: p_split_qty => l_rem_qty,
3633: x_return_status => l_return_status );
3634: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3635: raise fnd_api.g_exc_error;
3636: END IF;
3637: exit;
3638: --End of fix for bug 4354267
3639: ELSE
3664: ,p_order_shipment_rec => x_order_shipment_tbl(i)
3665: ,p_order_line_rec => p_order_line_rec
3666: ,x_return_status => x_return_status );
3667:
3668: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3669: raise fnd_api.g_exc_error;
3670: END IF;
3671:
3672: l_upd := l_upd +1;
3665: ,p_order_line_rec => p_order_line_rec
3666: ,x_return_status => x_return_status );
3667:
3668: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3669: raise fnd_api.g_exc_error;
3670: END IF;
3671:
3672: l_upd := l_upd +1;
3673:
3694: /* update the txn dtls with the processing status */
3695:
3696: csi_t_txn_details_grp.update_txn_line_dtls(
3697: p_api_version => 1.0,
3698: p_commit => fnd_api.g_false,
3699: p_init_msg_list => fnd_api.g_true,
3700: p_validation_level => fnd_api.g_valid_level_none,
3701: p_txn_line_rec => l_upd_txn_line_rec,
3702: p_txn_line_detail_tbl => l_upd_txn_line_dtl_tbl,
3695:
3696: csi_t_txn_details_grp.update_txn_line_dtls(
3697: p_api_version => 1.0,
3698: p_commit => fnd_api.g_false,
3699: p_init_msg_list => fnd_api.g_true,
3700: p_validation_level => fnd_api.g_valid_level_none,
3701: p_txn_line_rec => l_upd_txn_line_rec,
3702: p_txn_line_detail_tbl => l_upd_txn_line_dtl_tbl,
3703: px_txn_ii_rltns_tbl => l_upd_txn_ii_rltns_tbl,
3696: csi_t_txn_details_grp.update_txn_line_dtls(
3697: p_api_version => 1.0,
3698: p_commit => fnd_api.g_false,
3699: p_init_msg_list => fnd_api.g_true,
3700: p_validation_level => fnd_api.g_valid_level_none,
3701: p_txn_line_rec => l_upd_txn_line_rec,
3702: p_txn_line_detail_tbl => l_upd_txn_line_dtl_tbl,
3703: px_txn_ii_rltns_tbl => l_upd_txn_ii_rltns_tbl,
3704: px_txn_party_detail_tbl => l_upd_txn_party_detail_tbl,
3708: x_return_status => x_return_status,
3709: x_msg_count => x_msg_count,
3710: x_msg_data => x_msg_data);
3711:
3712: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3713: g_api_name := 'csi_t_txn_details_grp.update_txn_line_dtls';
3714: raise fnd_api.g_exc_error;
3715: END IF;
3716:
3710: x_msg_data => x_msg_data);
3711:
3712: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3713: g_api_name := 'csi_t_txn_details_grp.update_txn_line_dtls';
3714: raise fnd_api.g_exc_error;
3715: END IF;
3716:
3717: debug('update_txn_line_dtls completed successfully');
3718:
3718:
3719: END IF;
3720:
3721: EXCEPTION
3722: WHEN FND_API.G_EXC_ERROR THEN
3723: x_return_status := FND_API.G_RET_STS_ERROR ;
3724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3726: END process_txn_dtl;
3719: END IF;
3720:
3721: EXCEPTION
3722: WHEN FND_API.G_EXC_ERROR THEN
3723: x_return_status := FND_API.G_RET_STS_ERROR ;
3724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3726: END process_txn_dtl;
3727:
3720:
3721: EXCEPTION
3722: WHEN FND_API.G_EXC_ERROR THEN
3723: x_return_status := FND_API.G_RET_STS_ERROR ;
3724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3726: END process_txn_dtl;
3727:
3728: PROCEDURE decrement_source_instance(
3721: EXCEPTION
3722: WHEN FND_API.G_EXC_ERROR THEN
3723: x_return_status := FND_API.G_RET_STS_ERROR ;
3724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3726: END process_txn_dtl;
3727:
3728: PROCEDURE decrement_source_instance(
3729: p_instance_id in number,
3740: l_pricing_attribs_tbl csi_datastructures_pub.pricing_attribs_tbl;
3741: l_org_units_tbl csi_datastructures_pub.organization_units_tbl;
3742: l_inst_id_lst csi_datastructures_pub.id_tbl;
3743:
3744: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3745: l_msg_count number;
3746: l_msg_data varchar2(2000);
3747:
3748: BEGIN
3746: l_msg_data varchar2(2000);
3747:
3748: BEGIN
3749:
3750: x_return_status := fnd_api.g_ret_sts_success;
3751:
3752: api_log('decrement_source_instance');
3753:
3754:
3771: /* decrement the inventory source instance */
3772:
3773: csi_item_instance_pub.update_item_instance(
3774: p_api_version => 1.0,
3775: p_commit => fnd_api.g_false,
3776: p_init_msg_list => fnd_api.g_true,
3777: p_validation_level => fnd_api.g_valid_level_full,
3778: p_instance_rec => l_instance_rec,
3779: p_ext_attrib_values_tbl => l_ext_attrib_val_tbl,
3772:
3773: csi_item_instance_pub.update_item_instance(
3774: p_api_version => 1.0,
3775: p_commit => fnd_api.g_false,
3776: p_init_msg_list => fnd_api.g_true,
3777: p_validation_level => fnd_api.g_valid_level_full,
3778: p_instance_rec => l_instance_rec,
3779: p_ext_attrib_values_tbl => l_ext_attrib_val_tbl,
3780: p_party_tbl => l_party_tbl,
3773: csi_item_instance_pub.update_item_instance(
3774: p_api_version => 1.0,
3775: p_commit => fnd_api.g_false,
3776: p_init_msg_list => fnd_api.g_true,
3777: p_validation_level => fnd_api.g_valid_level_full,
3778: p_instance_rec => l_instance_rec,
3779: p_ext_attrib_values_tbl => l_ext_attrib_val_tbl,
3780: p_party_tbl => l_party_tbl,
3781: p_account_tbl => l_party_acct_tbl,
3788: x_msg_count => l_msg_count,
3789: x_msg_data => l_msg_data);
3790:
3791: -- For Bug 4057183
3792: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3793: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3794: g_api_name := 'csi_item_instance_pub.update_item_instance';
3795: raise fnd_api.g_exc_error;
3796: END IF;
3789: x_msg_data => l_msg_data);
3790:
3791: -- For Bug 4057183
3792: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3793: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3794: g_api_name := 'csi_item_instance_pub.update_item_instance';
3795: raise fnd_api.g_exc_error;
3796: END IF;
3797:
3791: -- For Bug 4057183
3792: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3793: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3794: g_api_name := 'csi_item_instance_pub.update_item_instance';
3795: raise fnd_api.g_exc_error;
3796: END IF;
3797:
3798: EXCEPTION
3799:
3796: END IF;
3797:
3798: EXCEPTION
3799:
3800: WHEN fnd_api.g_exc_error THEN
3801: x_return_status := fnd_api.g_ret_sts_error;
3802:
3803: END decrement_source_instance;
3804:
3797:
3798: EXCEPTION
3799:
3800: WHEN fnd_api.g_exc_error THEN
3801: x_return_status := fnd_api.g_ret_sts_error;
3802:
3803: END decrement_source_instance;
3804:
3805: PROCEDURE dump_customer_products(
3839:
3840: l_instance_hdr_tbl csi_datastructures_pub.instance_header_tbl;
3841: l_instance_tbl csi_datastructures_pub.instance_tbl;
3842:
3843: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3844:
3845: BEGIN
3846:
3847: x_return_status := l_return_status;
3855: p_instance_header_tbl => l_instance_hdr_tbl,
3856: x_instance_tbl => l_instance_tbl,
3857: x_return_status => l_return_status);
3858:
3859: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3860: RAISE fnd_api.g_exc_error;
3861: END IF;
3862:
3863: x_instance_rec := l_instance_tbl(1);
3856: x_instance_tbl => l_instance_tbl,
3857: x_return_status => l_return_status);
3858:
3859: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3860: RAISE fnd_api.g_exc_error;
3861: END IF;
3862:
3863: x_instance_rec := l_instance_tbl(1);
3864:
3862:
3863: x_instance_rec := l_instance_tbl(1);
3864:
3865: EXCEPTION
3866: WHEN fnd_api.g_exc_error THEN
3867: x_return_status := fnd_api.g_ret_sts_error;
3868: END make_non_hdr_rec;
3869:
3870: PROCEDURE split_instance_using_ratio(
3863: x_instance_rec := l_instance_tbl(1);
3864:
3865: EXCEPTION
3866: WHEN fnd_api.g_exc_error THEN
3867: x_return_status := fnd_api.g_ret_sts_error;
3868: END make_non_hdr_rec;
3869:
3870: PROCEDURE split_instance_using_ratio(
3871: p_instance_id IN number,
3880: l_qty_remaining number;
3881:
3882: l_init_instance_rec csi_datastructures_pub.instance_rec;
3883:
3884: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3885: l_msg_data varchar2(2000);
3886: l_msg_count number;
3887:
3888: l_split_flag boolean := FALSE;
3925: c_pa_ind binary_integer;
3926:
3927: BEGIN
3928:
3929: x_return_status := fnd_api.g_ret_sts_success;
3930:
3931: api_log('split_instance_using_ratio');
3932:
3933: l_s_ind := 0;
3936:
3937: -- get the instance party and party account info
3938: csi_item_instance_pub.get_item_instance_details(
3939: p_api_version => 1.0,
3940: p_commit => fnd_api.g_false,
3941: p_init_msg_list => fnd_api.g_true,
3942: p_validation_level => fnd_api.g_valid_level_full,
3943: p_instance_rec => l_g_instance_rec,
3944: p_get_parties => fnd_api.g_true,
3937: -- get the instance party and party account info
3938: csi_item_instance_pub.get_item_instance_details(
3939: p_api_version => 1.0,
3940: p_commit => fnd_api.g_false,
3941: p_init_msg_list => fnd_api.g_true,
3942: p_validation_level => fnd_api.g_valid_level_full,
3943: p_instance_rec => l_g_instance_rec,
3944: p_get_parties => fnd_api.g_true,
3945: p_party_header_tbl => l_g_ph_tbl,
3938: csi_item_instance_pub.get_item_instance_details(
3939: p_api_version => 1.0,
3940: p_commit => fnd_api.g_false,
3941: p_init_msg_list => fnd_api.g_true,
3942: p_validation_level => fnd_api.g_valid_level_full,
3943: p_instance_rec => l_g_instance_rec,
3944: p_get_parties => fnd_api.g_true,
3945: p_party_header_tbl => l_g_ph_tbl,
3946: p_get_accounts => fnd_api.g_true,
3940: p_commit => fnd_api.g_false,
3941: p_init_msg_list => fnd_api.g_true,
3942: p_validation_level => fnd_api.g_valid_level_full,
3943: p_instance_rec => l_g_instance_rec,
3944: p_get_parties => fnd_api.g_true,
3945: p_party_header_tbl => l_g_ph_tbl,
3946: p_get_accounts => fnd_api.g_true,
3947: p_account_header_tbl => l_g_pah_tbl,
3948: p_get_org_assignments => fnd_api.g_false,
3942: p_validation_level => fnd_api.g_valid_level_full,
3943: p_instance_rec => l_g_instance_rec,
3944: p_get_parties => fnd_api.g_true,
3945: p_party_header_tbl => l_g_ph_tbl,
3946: p_get_accounts => fnd_api.g_true,
3947: p_account_header_tbl => l_g_pah_tbl,
3948: p_get_org_assignments => fnd_api.g_false,
3949: p_org_header_tbl => l_g_ouh_tbl,
3950: p_get_pricing_attribs => fnd_api.g_false,
3944: p_get_parties => fnd_api.g_true,
3945: p_party_header_tbl => l_g_ph_tbl,
3946: p_get_accounts => fnd_api.g_true,
3947: p_account_header_tbl => l_g_pah_tbl,
3948: p_get_org_assignments => fnd_api.g_false,
3949: p_org_header_tbl => l_g_ouh_tbl,
3950: p_get_pricing_attribs => fnd_api.g_false,
3951: p_pricing_attrib_tbl => l_g_pa_tbl,
3952: p_get_ext_attribs => fnd_api.g_false,
3946: p_get_accounts => fnd_api.g_true,
3947: p_account_header_tbl => l_g_pah_tbl,
3948: p_get_org_assignments => fnd_api.g_false,
3949: p_org_header_tbl => l_g_ouh_tbl,
3950: p_get_pricing_attribs => fnd_api.g_false,
3951: p_pricing_attrib_tbl => l_g_pa_tbl,
3952: p_get_ext_attribs => fnd_api.g_false,
3953: p_ext_attrib_tbl => l_g_eav_tbl,
3954: p_ext_attrib_def_tbl => l_g_ea_tbl,
3948: p_get_org_assignments => fnd_api.g_false,
3949: p_org_header_tbl => l_g_ouh_tbl,
3950: p_get_pricing_attribs => fnd_api.g_false,
3951: p_pricing_attrib_tbl => l_g_pa_tbl,
3952: p_get_ext_attribs => fnd_api.g_false,
3953: p_ext_attrib_tbl => l_g_eav_tbl,
3954: p_ext_attrib_def_tbl => l_g_ea_tbl,
3955: p_get_asset_assignments => fnd_api.g_false,
3956: p_asset_header_tbl => l_g_iah_tbl,
3951: p_pricing_attrib_tbl => l_g_pa_tbl,
3952: p_get_ext_attribs => fnd_api.g_false,
3953: p_ext_attrib_tbl => l_g_eav_tbl,
3954: p_ext_attrib_def_tbl => l_g_ea_tbl,
3955: p_get_asset_assignments => fnd_api.g_false,
3956: p_asset_header_tbl => l_g_iah_tbl,
3957: p_time_stamp => l_g_time_stamp,
3958: x_return_status => l_return_status,
3959: x_msg_count => l_msg_count,
3958: x_return_status => l_return_status,
3959: x_msg_count => l_msg_count,
3960: x_msg_data => l_msg_data);
3961:
3962: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3963: RAISE fnd_api.g_exc_error;
3964: END IF;
3965:
3966: make_non_hdr_rec(
3959: x_msg_count => l_msg_count,
3960: x_msg_data => l_msg_data);
3961:
3962: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3963: RAISE fnd_api.g_exc_error;
3964: END IF;
3965:
3966: make_non_hdr_rec(
3967: p_instance_hdr_rec => l_g_instance_rec,
3991:
3992: l_c_instance_rec := l_instance_rec;
3993:
3994: -- substitute create specific attributes
3995: l_c_instance_rec.instance_id := fnd_api.g_miss_num;
3996: l_c_instance_rec.instance_number := fnd_api.g_miss_char;
3997: l_c_instance_rec.object_version_number := 1.0;
3998: l_c_instance_rec.vld_organization_id := p_organization_id;
3999: l_c_instance_rec.quantity := p_qty_ratio;
3992: l_c_instance_rec := l_instance_rec;
3993:
3994: -- substitute create specific attributes
3995: l_c_instance_rec.instance_id := fnd_api.g_miss_num;
3996: l_c_instance_rec.instance_number := fnd_api.g_miss_char;
3997: l_c_instance_rec.object_version_number := 1.0;
3998: l_c_instance_rec.vld_organization_id := p_organization_id;
3999: l_c_instance_rec.quantity := p_qty_ratio;
4000: l_c_instance_rec.operational_status_code:= 'NOT_USED';
4007: IF l_g_ph_tbl.COUNT > 0 THEN
4008:
4009: FOR l_pt_ind IN l_g_ph_tbl.FIRST ..l_g_ph_tbl.LAST
4010: LOOP
4011: l_c_parties_tbl(l_pt_ind).instance_party_id := fnd_api.g_miss_num;
4012: l_c_parties_tbl(l_pt_ind).instance_id := fnd_api.g_miss_num;
4013: l_c_parties_tbl(l_pt_ind).party_id :=
4014: l_g_ph_tbl(l_pt_ind).party_id;
4015: l_c_parties_tbl(l_pt_ind).party_source_table :=
4008:
4009: FOR l_pt_ind IN l_g_ph_tbl.FIRST ..l_g_ph_tbl.LAST
4010: LOOP
4011: l_c_parties_tbl(l_pt_ind).instance_party_id := fnd_api.g_miss_num;
4012: l_c_parties_tbl(l_pt_ind).instance_id := fnd_api.g_miss_num;
4013: l_c_parties_tbl(l_pt_ind).party_id :=
4014: l_g_ph_tbl(l_pt_ind).party_id;
4015: l_c_parties_tbl(l_pt_ind).party_source_table :=
4016: l_g_ph_tbl(l_pt_ind).party_source_table;
4025: IF l_g_pah_tbl(l_pa_ind).instance_party_id = l_g_ph_tbl(l_pt_ind).instance_party_id
4026: THEN
4027: c_pa_ind := c_pa_ind + 1;
4028: l_c_pty_accts_tbl(c_pa_ind).parent_tbl_index := l_pt_ind;
4029: l_c_pty_accts_tbl(c_pa_ind).ip_account_id := fnd_api.g_miss_num;
4030: l_c_pty_accts_tbl(c_pa_ind).instance_party_id := fnd_api.g_miss_num;
4031: l_c_pty_accts_tbl(c_pa_ind).party_account_id :=
4032: l_g_pah_tbl(l_pa_ind).party_account_id;
4033: l_c_pty_accts_tbl(c_pa_ind).relationship_type_code :=
4026: THEN
4027: c_pa_ind := c_pa_ind + 1;
4028: l_c_pty_accts_tbl(c_pa_ind).parent_tbl_index := l_pt_ind;
4029: l_c_pty_accts_tbl(c_pa_ind).ip_account_id := fnd_api.g_miss_num;
4030: l_c_pty_accts_tbl(c_pa_ind).instance_party_id := fnd_api.g_miss_num;
4031: l_c_pty_accts_tbl(c_pa_ind).party_account_id :=
4032: l_g_pah_tbl(l_pa_ind).party_account_id;
4033: l_c_pty_accts_tbl(c_pa_ind).relationship_type_code :=
4034: l_g_pah_tbl(l_pa_ind).relationship_type_code;
4042: -- create a new instance for the decremented qty
4043:
4044: csi_item_instance_pub.create_item_instance(
4045: p_api_version => 1.0,
4046: p_commit => fnd_api.g_false,
4047: p_init_msg_list => fnd_api.g_true,
4048: p_validation_level => fnd_api.g_valid_level_full,
4049: p_instance_rec => l_c_instance_rec,
4050: p_party_tbl => l_c_parties_tbl,
4043:
4044: csi_item_instance_pub.create_item_instance(
4045: p_api_version => 1.0,
4046: p_commit => fnd_api.g_false,
4047: p_init_msg_list => fnd_api.g_true,
4048: p_validation_level => fnd_api.g_valid_level_full,
4049: p_instance_rec => l_c_instance_rec,
4050: p_party_tbl => l_c_parties_tbl,
4051: p_account_tbl => l_c_pty_accts_tbl,
4044: csi_item_instance_pub.create_item_instance(
4045: p_api_version => 1.0,
4046: p_commit => fnd_api.g_false,
4047: p_init_msg_list => fnd_api.g_true,
4048: p_validation_level => fnd_api.g_valid_level_full,
4049: p_instance_rec => l_c_instance_rec,
4050: p_party_tbl => l_c_parties_tbl,
4051: p_account_tbl => l_c_pty_accts_tbl,
4052: p_org_assignments_tbl => l_c_org_units_tbl,
4058: x_msg_count => l_msg_count,
4059: x_msg_data => l_msg_data );
4060:
4061: -- For Bug 4057183
4062: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4063: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4064: RAISE fnd_api.g_exc_error;
4065: END IF;
4066:
4059: x_msg_data => l_msg_data );
4060:
4061: -- For Bug 4057183
4062: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4063: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4064: RAISE fnd_api.g_exc_error;
4065: END IF;
4066:
4067: debug(' New Instance ID :'||l_c_instance_rec.instance_id);
4060:
4061: -- For Bug 4057183
4062: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4063: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4064: RAISE fnd_api.g_exc_error;
4065: END IF;
4066:
4067: debug(' New Instance ID :'||l_c_instance_rec.instance_id);
4068:
4080: WHERE instance_id = l_u_instance_rec.instance_id;
4081:
4082: csi_item_instance_pub.update_item_instance(
4083: p_api_version => 1.0,
4084: p_commit => fnd_api.g_false,
4085: p_init_msg_list => fnd_api.g_true,
4086: p_validation_level => fnd_api.g_valid_level_full,
4087: p_instance_rec => l_u_instance_rec,
4088: p_party_tbl => l_u_parties_tbl,
4081:
4082: csi_item_instance_pub.update_item_instance(
4083: p_api_version => 1.0,
4084: p_commit => fnd_api.g_false,
4085: p_init_msg_list => fnd_api.g_true,
4086: p_validation_level => fnd_api.g_valid_level_full,
4087: p_instance_rec => l_u_instance_rec,
4088: p_party_tbl => l_u_parties_tbl,
4089: p_account_tbl => l_u_pty_accts_tbl,
4082: csi_item_instance_pub.update_item_instance(
4083: p_api_version => 1.0,
4084: p_commit => fnd_api.g_false,
4085: p_init_msg_list => fnd_api.g_true,
4086: p_validation_level => fnd_api.g_valid_level_full,
4087: p_instance_rec => l_u_instance_rec,
4088: p_party_tbl => l_u_parties_tbl,
4089: p_account_tbl => l_u_pty_accts_tbl,
4090: p_org_assignments_tbl => l_u_org_units_tbl,
4097: x_msg_count => l_msg_count,
4098: x_msg_data => l_msg_data);
4099:
4100: -- For Bug 4057183
4101: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4102: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4103: RAISE fnd_api.g_exc_error;
4104: END IF;
4105:
4098: x_msg_data => l_msg_data);
4099:
4100: -- For Bug 4057183
4101: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4102: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4103: RAISE fnd_api.g_exc_error;
4104: END IF;
4105:
4106: ELSE
4099:
4100: -- For Bug 4057183
4101: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4102: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4103: RAISE fnd_api.g_exc_error;
4104: END IF;
4105:
4106: ELSE
4107:
4135:
4136: x_splitted_instances := l_splitted_instances;
4137:
4138: EXCEPTION
4139: WHEN fnd_api.g_exc_error THEN
4140: x_return_status := fnd_api.g_ret_sts_error;
4141: END split_instance_using_ratio;
4142:
4143: PROCEDURE convert_wip_instance_to_cp(
4136: x_splitted_instances := l_splitted_instances;
4137:
4138: EXCEPTION
4139: WHEN fnd_api.g_exc_error THEN
4140: x_return_status := fnd_api.g_ret_sts_error;
4141: END split_instance_using_ratio;
4142:
4143: PROCEDURE convert_wip_instance_to_cp(
4144: p_instance_id IN number,
4169: l_instance_party_id number;
4170: l_pty_object_ver_num number;
4171: l_pa_object_ver_num number;
4172:
4173: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4174: l_msg_count number;
4175: l_msg_data varchar2(2000);
4176:
4177: BEGIN
4175: l_msg_data varchar2(2000);
4176:
4177: BEGIN
4178:
4179: x_return_status := fnd_api.g_ret_sts_success;
4180: api_log('convert_wip_instance_to_cp');
4181:
4182: -- check if the instance is in WIP
4183: SELECT object_version_number,
4230: fnd_message.set_name('CSI','CSI_TXN_SITE_USE_INVALID');
4231: fnd_message.set_token('SITE_USE_ID',l_order_line_rec.ship_to_org_id);
4232: fnd_message.set_token('SITE_USE_CODE','SHIP_TO');
4233: fnd_msg_pub.add;
4234: raise fnd_api.g_exc_error;
4235: END;
4236:
4237: END IF;
4238:
4272:
4273: -- build owner account
4274: l_owner_account_id := l_order_line_rec.sold_to_org_id;
4275:
4276: l_u_party_acct_tbl(1).ip_account_id := fnd_api.g_miss_num;
4277: l_u_party_acct_tbl(1).party_account_id := l_owner_account_id;
4278: l_u_party_acct_tbl(1).relationship_type_code := 'OWNER';
4279: l_u_party_acct_tbl(1).bill_to_address := fnd_api.g_miss_num;
4280: l_u_party_acct_tbl(1).ship_to_address := fnd_api.g_miss_num;
4275:
4276: l_u_party_acct_tbl(1).ip_account_id := fnd_api.g_miss_num;
4277: l_u_party_acct_tbl(1).party_account_id := l_owner_account_id;
4278: l_u_party_acct_tbl(1).relationship_type_code := 'OWNER';
4279: l_u_party_acct_tbl(1).bill_to_address := fnd_api.g_miss_num;
4280: l_u_party_acct_tbl(1).ship_to_address := fnd_api.g_miss_num;
4281: l_u_party_acct_tbl(1).instance_party_id := l_instance_party_id;
4282: l_u_party_acct_tbl(1).parent_tbl_index := 1;
4283:
4276: l_u_party_acct_tbl(1).ip_account_id := fnd_api.g_miss_num;
4277: l_u_party_acct_tbl(1).party_account_id := l_owner_account_id;
4278: l_u_party_acct_tbl(1).relationship_type_code := 'OWNER';
4279: l_u_party_acct_tbl(1).bill_to_address := fnd_api.g_miss_num;
4280: l_u_party_acct_tbl(1).ship_to_address := fnd_api.g_miss_num;
4281: l_u_party_acct_tbl(1).instance_party_id := l_instance_party_id;
4282: l_u_party_acct_tbl(1).parent_tbl_index := 1;
4283:
4284: csi_t_gen_utility_pvt.dump_api_info(
4286: p_pkg_name => 'csi_item_instance_pub');
4287:
4288: csi_item_instance_pub.update_item_instance(
4289: p_api_version => 1.0,
4290: p_commit => fnd_api.g_false,
4291: p_init_msg_list => fnd_api.g_true,
4292: p_validation_level => fnd_api.g_valid_level_full,
4293: p_instance_rec => l_u_instance_rec,
4294: p_ext_attrib_values_tbl => l_u_ext_attrib_val_tbl,
4287:
4288: csi_item_instance_pub.update_item_instance(
4289: p_api_version => 1.0,
4290: p_commit => fnd_api.g_false,
4291: p_init_msg_list => fnd_api.g_true,
4292: p_validation_level => fnd_api.g_valid_level_full,
4293: p_instance_rec => l_u_instance_rec,
4294: p_ext_attrib_values_tbl => l_u_ext_attrib_val_tbl,
4295: p_party_tbl => l_u_party_tbl,
4288: csi_item_instance_pub.update_item_instance(
4289: p_api_version => 1.0,
4290: p_commit => fnd_api.g_false,
4291: p_init_msg_list => fnd_api.g_true,
4292: p_validation_level => fnd_api.g_valid_level_full,
4293: p_instance_rec => l_u_instance_rec,
4294: p_ext_attrib_values_tbl => l_u_ext_attrib_val_tbl,
4295: p_party_tbl => l_u_party_tbl,
4296: p_account_tbl => l_u_party_acct_tbl,
4303: x_msg_count => l_msg_count,
4304: x_msg_data => l_msg_data);
4305:
4306: -- For Bug 4057183
4307: -- IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
4308: IF NOT(l_return_status in (fnd_api.g_ret_sts_success,'W')) THEN
4309: raise fnd_api.g_exc_error;
4310: END IF;
4311:
4304: x_msg_data => l_msg_data);
4305:
4306: -- For Bug 4057183
4307: -- IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
4308: IF NOT(l_return_status in (fnd_api.g_ret_sts_success,'W')) THEN
4309: raise fnd_api.g_exc_error;
4310: END IF;
4311:
4312: debug('WIP instance is successfully converted to a CP.');
4305:
4306: -- For Bug 4057183
4307: -- IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
4308: IF NOT(l_return_status in (fnd_api.g_ret_sts_success,'W')) THEN
4309: raise fnd_api.g_exc_error;
4310: END IF;
4311:
4312: debug('WIP instance is successfully converted to a CP.');
4313:
4311:
4312: debug('WIP instance is successfully converted to a CP.');
4313:
4314: EXCEPTION
4315: WHEN fnd_api.g_exc_error THEN
4316: x_return_status := fnd_api.g_ret_sts_error;
4317: END convert_wip_instance_to_cp;
4318:
4319: PROCEDURE get_single_qty_instances(
4312: debug('WIP instance is successfully converted to a CP.');
4313:
4314: EXCEPTION
4315: WHEN fnd_api.g_exc_error THEN
4316: x_return_status := fnd_api.g_ret_sts_error;
4317: END convert_wip_instance_to_cp;
4318:
4319: PROCEDURE get_single_qty_instances(
4320: p_all_cps_tbl IN customer_products_tbl,
4350: l_iir_tbl csi_datastructures_pub.ii_relationship_tbl;
4351: l_serial_code number;
4352:
4353: l_splitted_instances csi_datastructures_pub.instance_tbl;
4354: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4355:
4356: CURSOR req_cur IS
4357: SELECT wip.inventory_item_id,
4358: sum(required_quantity) qty_required,
4407: END already_allocated;
4408:
4409: BEGIN
4410:
4411: x_return_status := fnd_api.g_ret_sts_success;
4412: api_log('get_comp_instances_from_wip');
4413:
4414: l_cps_tbl := p_cps_tbl;
4415:
4459: px_csi_txn_rec => px_csi_txn_rec,
4460: x_splitted_instances => l_splitted_instances,
4461: x_return_status => l_return_status);
4462:
4463: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4464: RAISE fnd_api.g_exc_error;
4465: END IF;
4466:
4467: END LOOP;
4460: x_splitted_instances => l_splitted_instances,
4461: x_return_status => l_return_status);
4462:
4463: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4464: RAISE fnd_api.g_exc_error;
4465: END IF;
4466:
4467: END LOOP;
4468:
4490:
4491: x_iir_tbl := l_iir_tbl;
4492:
4493: EXCEPTION
4494: WHEN fnd_api.g_exc_error THEN
4495: x_return_status := fnd_api.g_ret_sts_error;
4496: END get_comp_instances_from_wip;
4497:
4498: PROCEDURE get_tld_set(
4491: x_iir_tbl := l_iir_tbl;
4492:
4493: EXCEPTION
4494: WHEN fnd_api.g_exc_error THEN
4495: x_return_status := fnd_api.g_ret_sts_error;
4496: END get_comp_instances_from_wip;
4497:
4498: PROCEDURE get_tld_set(
4499: px_tld_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_rec,
4533: BEGIN
4534:
4535: api_Log('get_tld_set');
4536:
4537: x_return_status := fnd_api.g_ret_sts_success;
4538:
4539: IF nvl(px_tld_rec.instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
4540: l_create_flag := 'Y';
4541: ELSE
4535: api_Log('get_tld_set');
4536:
4537: x_return_status := fnd_api.g_ret_sts_success;
4538:
4539: IF nvl(px_tld_rec.instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
4540: l_create_flag := 'Y';
4541: ELSE
4542: l_create_flag := 'N';
4543: END IF;
4607: x_tld_oa_tbl := l_tld_oa_tbl;
4608: x_tld_ea_tbl := l_tld_ea_tbl;
4609:
4610: EXCEPTION
4611: WHEN fnd_api.g_exc_error THEN
4612: x_return_status := fnd_api.g_ret_sts_error;
4613: END get_tld_set;
4614:
4615:
4608: x_tld_ea_tbl := l_tld_ea_tbl;
4609:
4610: EXCEPTION
4611: WHEN fnd_api.g_exc_error THEN
4612: x_return_status := fnd_api.g_ret_sts_error;
4613: END get_tld_set;
4614:
4615:
4616: -- convert txn_systems in to csi_systems
4623: l_system_exist boolean := FALSE;
4624: l_system_rec csi_datastructures_pub.system_rec;
4625: l_system_id number;
4626:
4627: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4628: l_msg_count number;
4629: l_msg_data varchar2(2000);
4630: BEGIN
4631:
4628: l_msg_count number;
4629: l_msg_data varchar2(2000);
4630: BEGIN
4631:
4632: x_return_status := fnd_api.g_ret_sts_success;
4633: api_log('create_csi_systems');
4634:
4635: IF px_txn_systems_tbl.count > 0 THEN
4636:
4655: WHEN too_many_rows THEN
4656: fnd_message.set_name('CSI','CSI_INT_MUL_SYS_FOUND');
4657: fnd_message.set_token('SYSTEM_NUMBER',px_txn_systems_tbl(ind).system_number);
4658: fnd_msg_pub.add;
4659: RAISE fnd_api.g_exc_error;
4660: END;
4661:
4662: IF NOT(l_system_exist) THEN
4663: csi_utl_pkg.get_system_tbl(
4669: p_api_name => 'create_system');
4670:
4671: csi_systems_pub.create_system(
4672: p_api_version => 1.0,
4673: p_commit => fnd_api.g_false,
4674: p_init_msg_list => fnd_api.g_true,
4675: p_validation_level => fnd_api.g_valid_level_full,
4676: p_system_rec => l_system_rec,
4677: p_txn_rec => px_csi_txn_rec,
4670:
4671: csi_systems_pub.create_system(
4672: p_api_version => 1.0,
4673: p_commit => fnd_api.g_false,
4674: p_init_msg_list => fnd_api.g_true,
4675: p_validation_level => fnd_api.g_valid_level_full,
4676: p_system_rec => l_system_rec,
4677: p_txn_rec => px_csi_txn_rec,
4678: x_system_id => l_system_id,
4671: csi_systems_pub.create_system(
4672: p_api_version => 1.0,
4673: p_commit => fnd_api.g_false,
4674: p_init_msg_list => fnd_api.g_true,
4675: p_validation_level => fnd_api.g_valid_level_full,
4676: p_system_rec => l_system_rec,
4677: p_txn_rec => px_csi_txn_rec,
4678: x_system_id => l_system_id,
4679: x_return_status => l_return_status,
4679: x_return_status => l_return_status,
4680: x_msg_count => l_msg_count,
4681: x_msg_data => l_msg_data);
4682:
4683: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4684: RAISE fnd_api.g_exc_error;
4685: END IF;
4686:
4687: debug(' CSI System Created Successfully. System ID :'||l_system_id);
4680: x_msg_count => l_msg_count,
4681: x_msg_data => l_msg_data);
4682:
4683: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4684: RAISE fnd_api.g_exc_error;
4685: END IF;
4686:
4687: debug(' CSI System Created Successfully. System ID :'||l_system_id);
4688: END IF;
4700:
4701: END LOOP; -- txn systems loop
4702: END IF; -- end if for system table count > 0
4703: EXCEPTION
4704: WHEN fnd_api.g_exc_error THEN
4705: x_return_status := fnd_api.g_ret_sts_error;
4706: END create_csi_systems;
4707:
4708:
4701: END LOOP; -- txn systems loop
4702: END IF; -- end if for system table count > 0
4703: EXCEPTION
4704: WHEN fnd_api.g_exc_error THEN
4705: x_return_status := fnd_api.g_ret_sts_error;
4706: END create_csi_systems;
4707:
4708:
4709: PROCEDURE proc_for_last_mtl_trx(
4713: x_return_status OUT NOCOPY VARCHAR2)
4714: IS
4715: l_order_quantity number;
4716: l_total_qty number := 0;
4717: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4718: l_literal1 VARCHAR2(30) := 'PROCESSED' ;
4719: l_literal2 VARCHAR2(30) := 'OE_ORDER_LINES_ALL' ;
4720: BEGIN
4721:
4718: l_literal1 VARCHAR2(30) := 'PROCESSED' ;
4719: l_literal2 VARCHAR2(30) := 'OE_ORDER_LINES_ALL' ;
4720: BEGIN
4721:
4722: x_return_status := fnd_api.g_ret_sts_success;
4723: api_log('proc_for_last_mtl_trx');
4724:
4725: IF p_source = 'FULFILLMENT' THEN
4726: l_order_quantity := p_order_line_rec.fulfilled_quantity;
4774: debug(' ato config shipment. spawn shippable option lines for fulfillment.');
4775: process_ato_options(
4776: p_order_line_rec => p_order_line_rec,
4777: x_return_status => l_return_status);
4778: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4779: RAISE fnd_api.g_exc_error;
4780: END IF;
4781: END IF;
4782: */
4775: process_ato_options(
4776: p_order_line_rec => p_order_line_rec,
4777: x_return_status => l_return_status);
4778: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4779: RAISE fnd_api.g_exc_error;
4780: END IF;
4781: END IF;
4782: */
4783:
4783:
4784: END IF;
4785:
4786: EXCEPTION
4787: WHEN fnd_api.g_exc_error THEN
4788: x_return_status := fnd_api.g_ret_sts_error ;
4789: WHEN fnd_api.g_exc_unexpected_error THEN
4790: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4791: END proc_for_last_mtl_trx ;
4784: END IF;
4785:
4786: EXCEPTION
4787: WHEN fnd_api.g_exc_error THEN
4788: x_return_status := fnd_api.g_ret_sts_error ;
4789: WHEN fnd_api.g_exc_unexpected_error THEN
4790: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4791: END proc_for_last_mtl_trx ;
4792:
4785:
4786: EXCEPTION
4787: WHEN fnd_api.g_exc_error THEN
4788: x_return_status := fnd_api.g_ret_sts_error ;
4789: WHEN fnd_api.g_exc_unexpected_error THEN
4790: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4791: END proc_for_last_mtl_trx ;
4792:
4793: PROCEDURE auto_split_instances(
4786: EXCEPTION
4787: WHEN fnd_api.g_exc_error THEN
4788: x_return_status := fnd_api.g_ret_sts_error ;
4789: WHEN fnd_api.g_exc_unexpected_error THEN
4790: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4791: END proc_for_last_mtl_trx ;
4792:
4793: PROCEDURE auto_split_instances(
4794: p_instance_rec IN csi_datastructures_pub.instance_rec,
4797: x_return_status OUT nocopy varchar2)
4798: IS
4799: l_src_instance_rec csi_datastructures_pub.instance_rec;
4800: l_instance_tbl csi_datastructures_pub.instance_tbl;
4801: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4802: l_msg_count number;
4803: l_msg_data varchar2(2000);
4804: BEGIN
4805:
4802: l_msg_count number;
4803: l_msg_data varchar2(2000);
4804: BEGIN
4805:
4806: x_return_status := fnd_api.g_ret_sts_success;
4807:
4808: api_log('auto_split_instances');
4809:
4810: l_src_instance_rec.instance_id := p_instance_rec.instance_id ;
4833: p_api_name => 'split_item_instance_lines');
4834:
4835: csi_item_instance_pvt.split_item_instance_lines(
4836: p_api_version => 1.0,
4837: p_commit => fnd_api.g_false,
4838: p_init_msg_list => fnd_api.g_true,
4839: p_validation_level => fnd_api.g_valid_level_full,
4840: p_source_instance_rec => l_src_instance_rec,
4841: p_copy_ext_attribs => fnd_api.g_true,
4834:
4835: csi_item_instance_pvt.split_item_instance_lines(
4836: p_api_version => 1.0,
4837: p_commit => fnd_api.g_false,
4838: p_init_msg_list => fnd_api.g_true,
4839: p_validation_level => fnd_api.g_valid_level_full,
4840: p_source_instance_rec => l_src_instance_rec,
4841: p_copy_ext_attribs => fnd_api.g_true,
4842: p_copy_org_assignments => fnd_api.g_true,
4835: csi_item_instance_pvt.split_item_instance_lines(
4836: p_api_version => 1.0,
4837: p_commit => fnd_api.g_false,
4838: p_init_msg_list => fnd_api.g_true,
4839: p_validation_level => fnd_api.g_valid_level_full,
4840: p_source_instance_rec => l_src_instance_rec,
4841: p_copy_ext_attribs => fnd_api.g_true,
4842: p_copy_org_assignments => fnd_api.g_true,
4843: p_copy_parties => fnd_api.g_true,
4837: p_commit => fnd_api.g_false,
4838: p_init_msg_list => fnd_api.g_true,
4839: p_validation_level => fnd_api.g_valid_level_full,
4840: p_source_instance_rec => l_src_instance_rec,
4841: p_copy_ext_attribs => fnd_api.g_true,
4842: p_copy_org_assignments => fnd_api.g_true,
4843: p_copy_parties => fnd_api.g_true,
4844: p_copy_accounts => fnd_api.g_true,
4845: p_copy_asset_assignments => fnd_api.g_true,
4838: p_init_msg_list => fnd_api.g_true,
4839: p_validation_level => fnd_api.g_valid_level_full,
4840: p_source_instance_rec => l_src_instance_rec,
4841: p_copy_ext_attribs => fnd_api.g_true,
4842: p_copy_org_assignments => fnd_api.g_true,
4843: p_copy_parties => fnd_api.g_true,
4844: p_copy_accounts => fnd_api.g_true,
4845: p_copy_asset_assignments => fnd_api.g_true,
4846: p_copy_pricing_attribs => fnd_api.g_true,
4839: p_validation_level => fnd_api.g_valid_level_full,
4840: p_source_instance_rec => l_src_instance_rec,
4841: p_copy_ext_attribs => fnd_api.g_true,
4842: p_copy_org_assignments => fnd_api.g_true,
4843: p_copy_parties => fnd_api.g_true,
4844: p_copy_accounts => fnd_api.g_true,
4845: p_copy_asset_assignments => fnd_api.g_true,
4846: p_copy_pricing_attribs => fnd_api.g_true,
4847: p_txn_rec => px_txn_rec,
4840: p_source_instance_rec => l_src_instance_rec,
4841: p_copy_ext_attribs => fnd_api.g_true,
4842: p_copy_org_assignments => fnd_api.g_true,
4843: p_copy_parties => fnd_api.g_true,
4844: p_copy_accounts => fnd_api.g_true,
4845: p_copy_asset_assignments => fnd_api.g_true,
4846: p_copy_pricing_attribs => fnd_api.g_true,
4847: p_txn_rec => px_txn_rec,
4848: x_new_instance_tbl => l_instance_tbl,
4841: p_copy_ext_attribs => fnd_api.g_true,
4842: p_copy_org_assignments => fnd_api.g_true,
4843: p_copy_parties => fnd_api.g_true,
4844: p_copy_accounts => fnd_api.g_true,
4845: p_copy_asset_assignments => fnd_api.g_true,
4846: p_copy_pricing_attribs => fnd_api.g_true,
4847: p_txn_rec => px_txn_rec,
4848: x_new_instance_tbl => l_instance_tbl,
4849: x_return_status => l_return_status,
4842: p_copy_org_assignments => fnd_api.g_true,
4843: p_copy_parties => fnd_api.g_true,
4844: p_copy_accounts => fnd_api.g_true,
4845: p_copy_asset_assignments => fnd_api.g_true,
4846: p_copy_pricing_attribs => fnd_api.g_true,
4847: p_txn_rec => px_txn_rec,
4848: x_new_instance_tbl => l_instance_tbl,
4849: x_return_status => l_return_status,
4850: x_msg_count => l_msg_count,
4849: x_return_status => l_return_status,
4850: x_msg_count => l_msg_count,
4851: x_msg_data => l_msg_data);
4852:
4853: IF l_return_status not in (fnd_api.g_ret_sts_success, 'W') THEN
4854: RAISE fnd_api.g_exc_error;
4855: END IF;
4856:
4857: x_instance_tbl := l_instance_tbl;
4850: x_msg_count => l_msg_count,
4851: x_msg_data => l_msg_data);
4852:
4853: IF l_return_status not in (fnd_api.g_ret_sts_success, 'W') THEN
4854: RAISE fnd_api.g_exc_error;
4855: END IF;
4856:
4857: x_instance_tbl := l_instance_tbl;
4858:
4856:
4857: x_instance_tbl := l_instance_tbl;
4858:
4859: EXCEPTION
4860: WHEN fnd_api.g_exc_error THEN
4861: x_return_status := fnd_api.g_ret_sts_error;
4862: END auto_split_instances;
4863:
4864: PROCEDURE update_install_base(
4857: x_instance_tbl := l_instance_tbl;
4858:
4859: EXCEPTION
4860: WHEN fnd_api.g_exc_error THEN
4861: x_return_status := fnd_api.g_ret_sts_error;
4862: END auto_split_instances;
4863:
4864: PROCEDURE update_install_base(
4865: p_api_version IN number,
4862: END auto_split_instances;
4863:
4864: PROCEDURE update_install_base(
4865: p_api_version IN number,
4866: p_commit IN varchar2 := fnd_api.g_false,
4867: p_init_msg_list IN varchar2 := fnd_api.g_false,
4868: p_validation_level IN number := fnd_api.g_valid_level_full,
4869: p_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
4870: p_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
4863:
4864: PROCEDURE update_install_base(
4865: p_api_version IN number,
4866: p_commit IN varchar2 := fnd_api.g_false,
4867: p_init_msg_list IN varchar2 := fnd_api.g_false,
4868: p_validation_level IN number := fnd_api.g_valid_level_full,
4869: p_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
4870: p_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
4871: p_txn_party_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl,
4864: PROCEDURE update_install_base(
4865: p_api_version IN number,
4866: p_commit IN varchar2 := fnd_api.g_false,
4867: p_init_msg_list IN varchar2 := fnd_api.g_false,
4868: p_validation_level IN number := fnd_api.g_valid_level_full,
4869: p_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
4870: p_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
4871: p_txn_party_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl,
4872: p_txn_pty_acct_dtl_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_pty_acct_detail_tbl,
4888: l_api_name CONSTANT varchar2(30) := 'update_install_base';
4889: l_api_version CONSTANT NUMBER := 1.0;
4890: l_csi_debug_level varchar2(1);
4891:
4892: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4893: l_msg_count number;
4894: l_msg_data varchar2(2000);
4895:
4896: l_order_line_rec order_line_rec;
5029: l_found BOOLEAN := FALSE;
5030: l_ii_rel_id NUMBER;
5031: l_curr_object_id NUMBER;
5032: l_curr_subject_id NUMBER;
5033: l_date DATE := fnd_api.g_miss_date;
5034: l_debug_level NUMBER;
5035: l_inst_status_id NUMBER;
5036: l_inst_obj_ver_num NUMBER;
5037: l_pty_changed BOOLEAN := FALSE;
5079:
5080: l_comp_instance_tbl csi_datastructures_pub.instance_tbl;
5081: l_comp_relation_tbl csi_datastructures_pub.ii_relationship_tbl;
5082:
5083: l_active_end_date date := fnd_api.g_miss_date;
5084: l_call_contracts varchar2(1) := fnd_api.g_true;
5085:
5086: -- profile value checking
5087: l_default_install_date VARCHAR2(1);
5080: l_comp_instance_tbl csi_datastructures_pub.instance_tbl;
5081: l_comp_relation_tbl csi_datastructures_pub.ii_relationship_tbl;
5082:
5083: l_active_end_date date := fnd_api.g_miss_date;
5084: l_call_contracts varchar2(1) := fnd_api.g_true;
5085:
5086: -- profile value checking
5087: l_default_install_date VARCHAR2(1);
5088:
5114:
5115: api_log('update_install_base');
5116:
5117: /* Initialize message list if p_init_msg_list is set to TRUE. */
5118: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5119: fnd_msg_pub.initialize;
5120: END IF;
5121:
5122: /* Initialize API return status to success */
5119: fnd_msg_pub.initialize;
5120: END IF;
5121:
5122: /* Initialize API return status to success */
5123: x_return_status := fnd_api.g_ret_sts_success;
5124:
5125: debug(' txn_line_detail_tbl.count :'||p_txn_line_detail_tbl.count );
5126: debug(' txn_party_detail_tbl.count :'||p_txn_party_detail_tbl.count );
5127: debug(' txn_pty_acct_dtl_tbl.count :'||p_txn_pty_acct_dtl_tbl.count);
5136: fnd_message.set_name('CSI', 'CSI_CANNOT_UPDATE');
5137: fnd_message.set_token('OBJECT_ID','');
5138: fnd_message.set_token('RELATIONSHIP_TYPE_CODE','');
5139: fnd_msg_pub.add;
5140: Raise fnd_api.g_exc_error;
5141: END IF;
5142:
5143: /* get the profile value for CSI default install date */
5144: BEGIN
5169: p_order_line_rec => l_order_line_rec,
5170: p_source => p_source,
5171: x_return_status => x_return_status);
5172:
5173: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5174: raise fnd_api.g_exc_error;
5175: END IF;
5176:
5177: l_all_tld_party_tbl := p_txn_party_detail_tbl;
5170: p_source => p_source,
5171: x_return_status => x_return_status);
5172:
5173: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5174: raise fnd_api.g_exc_error;
5175: END IF;
5176:
5177: l_all_tld_party_tbl := p_txn_party_detail_tbl;
5178: l_all_tld_account_tbl := p_txn_pty_acct_dtl_tbl;
5192: px_txn_systems_tbl => p_txn_systems_tbl,
5193: px_tld_tbl => p_txn_line_detail_tbl,
5194: x_return_status => l_return_status);
5195:
5196: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5197: RAISE fnd_api.g_exc_error;
5198: END IF;
5199: END IF; -- end if for system table count > 0
5200:
5193: px_tld_tbl => p_txn_line_detail_tbl,
5194: x_return_status => l_return_status);
5195:
5196: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5197: RAISE fnd_api.g_exc_error;
5198: END IF;
5199: END IF; -- end if for system table count > 0
5200:
5201: csi_utl_pkg.get_dflt_inst_status_id(
5201: csi_utl_pkg.get_dflt_inst_status_id(
5202: x_instance_status_id => l_dflt_inst_status_id,
5203: x_return_status => l_return_status);
5204:
5205: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5206: RAISE fnd_api.g_exc_error;
5207: END IF;
5208:
5209: l_split_flag := nvl(fnd_profile.value('CSI_AUTO_SPLIT_INSTANCE' ),'N');
5202: x_instance_status_id => l_dflt_inst_status_id,
5203: x_return_status => l_return_status);
5204:
5205: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5206: RAISE fnd_api.g_exc_error;
5207: END IF;
5208:
5209: l_split_flag := nvl(fnd_profile.value('CSI_AUTO_SPLIT_INSTANCE' ),'N');
5210:
5273: p_trx_type_id => p_txn_line_rec.source_transaction_type_id,
5274: x_trx_sub_type_rec => x_trx_sub_type_rec,
5275: x_return_status => x_return_status) ;
5276:
5277: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5278: raise fnd_api.g_exc_error;
5279: END IF;
5280:
5281: csi_utl_pkg.get_org_assignment_tbl(
5274: x_trx_sub_type_rec => x_trx_sub_type_rec,
5275: x_return_status => x_return_status) ;
5276:
5277: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5278: raise fnd_api.g_exc_error;
5279: END IF;
5280:
5281: csi_utl_pkg.get_org_assignment_tbl(
5282: p_txn_line_detail_rec => l_tld_rec,
5284: x_cre_org_units_tbl => l_cre_org_units_tbl,
5285: x_upd_org_units_tbl => l_upd_org_units_tbl,
5286: x_return_status => x_return_status);
5287:
5288: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5289: raise fnd_api.g_exc_error;
5290: END IF;
5291:
5292: csi_utl_pkg.get_ext_attribs_tbl(
5285: x_upd_org_units_tbl => l_upd_org_units_tbl,
5286: x_return_status => x_return_status);
5287:
5288: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5289: raise fnd_api.g_exc_error;
5290: END IF;
5291:
5292: csi_utl_pkg.get_ext_attribs_tbl(
5293: p_txn_line_detail_rec => l_tld_rec,
5295: x_cre_ext_attrib_val_tbl => l_cre_ext_attrib_val_tbl,
5296: x_upd_ext_attrib_val_tbl => l_upd_ext_attrib_val_tbl,
5297: x_return_status => x_return_status );
5298:
5299: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5300: raise fnd_api.g_exc_error;
5301: END IF;
5302:
5303: csi_utl_pkg.get_party_owner(
5296: x_upd_ext_attrib_val_tbl => l_upd_ext_attrib_val_tbl,
5297: x_return_status => x_return_status );
5298:
5299: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5300: raise fnd_api.g_exc_error;
5301: END IF;
5302:
5303: csi_utl_pkg.get_party_owner(
5304: p_txn_line_detail_rec => l_tld_rec,
5311: x_cre_party_tbl => l_cre_party_tbl,
5312: x_cre_party_acct_tbl => l_cre_party_acct_tbl,
5313: x_return_status => x_return_status );
5314:
5315: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5316: raise fnd_api.g_exc_error;
5317: END IF;
5318:
5319:
5312: x_cre_party_acct_tbl => l_cre_party_acct_tbl,
5313: x_return_status => x_return_status );
5314:
5315: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5316: raise fnd_api.g_exc_error;
5317: END IF;
5318:
5319:
5320: IF p_source = 'SHIPMENT' THEN
5325: ELSIF p_source = 'FULFILLMENT' THEN
5326: -- Bug 4996316, these are demo conversion shipments and have a need to convert
5327: -- an externally located but internally owned item instance to CP
5328: -- current check for it is simple and additional checks may be added in here...
5329: IF nvl(l_tld_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
5330: THEN
5331: IF l_upd_party_acct_tbl.COUNT = 0 THEN
5332: l_upd_party_acct_tbl := l_cre_party_acct_tbl;
5333: l_cre_party_acct_tbl.delete;
5349: debug(' cre_ext_attrib_val_tbl.count :'||l_cre_ext_attrib_val_tbl.count);
5350: debug(' cre_pricing_attribs_tbl.count :'||l_cre_pricing_attribs_tbl.count);
5351:
5352: -- Forward Port bug 7420858 for base bug 7312328
5353: IF NVL(l_tld_rec.location_id, fnd_api.g_miss_num) = fnd_api.g_miss_num AND
5354: p_order_line_rec.ib_current_loc_id IS NOT NULL -- added for bug 5069906
5355: THEN
5356:
5357: BEGIN
5367: WHEN no_data_found then
5368: fnd_message.set_name('CSI','CSI_INT_PTY_SITE_MISSING');
5369: fnd_message.set_token('LOCATION_ID', l_tld_rec.location_id);
5370: fnd_msg_pub.add;
5371: raise fnd_api.g_exc_error;
5372: WHEN too_many_rows then
5373: debug('Many Party sites found');
5374: raise fnd_api.g_exc_error;
5375: END;
5370: fnd_msg_pub.add;
5371: raise fnd_api.g_exc_error;
5372: WHEN too_many_rows then
5373: debug('Many Party sites found');
5374: raise fnd_api.g_exc_error;
5375: END;
5376:
5377: l_tld_rec.location_id := l_party_site_id;
5378: l_tld_rec.location_type_code := 'HZ_PARTY_SITES';
5379:
5380: END IF;
5381:
5382: -- Forward Port bug 7420858 for base bug 7312328
5383: IF NVL(l_tld_rec.install_location_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
5384: AND p_order_line_rec.ib_install_loc_id IS NOT NULL THEN --5147603
5385: BEGIN
5386:
5387: SELECT party_site_id
5395: WHEN no_data_found then
5396: fnd_message.set_name('CSI','CSI_INT_PTY_SITE_MISSING');
5397: fnd_message.set_token('LOCATION_ID',p_order_line_rec.ib_install_loc_id);--5147603
5398: fnd_msg_pub.add;
5399: raise fnd_api.g_exc_error;
5400: WHEN too_many_rows then
5401: debug('Many Party sites found');
5402: raise fnd_api.g_exc_error;
5403: END;
5398: fnd_msg_pub.add;
5399: raise fnd_api.g_exc_error;
5400: WHEN too_many_rows then
5401: debug('Many Party sites found');
5402: raise fnd_api.g_exc_error;
5403: END;
5404:
5405: l_tld_rec.install_location_id := l_install_party_site_id;
5406: l_tld_rec.install_location_type_code := 'HZ_PARTY_SITES';
5410: /* If the instance reference exists then call update instance api else */
5411: /* call create instance api .Also check if the split instance profile */
5412: /* is on then split it into so many number of instances */
5413:
5414: IF NVL(l_tld_rec.instance_id,fnd_api.g_miss_num ) <> fnd_api.g_miss_num THEN
5415:
5416: l_upd_instance_rec := l_tmp_instance_rec;
5417:
5418: csi_utl_pkg.get_instance(
5420: x_obj_version_number => l_inst_obj_ver_num,
5421: x_inst_qty => l_curr_instance_qty,
5422: x_return_status => x_return_status);
5423:
5424: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5425: raise fnd_api.g_exc_error;
5426: END IF;
5427:
5428: debug('Referenced Instance ID :'||l_tld_rec.instance_id);
5421: x_inst_qty => l_curr_instance_qty,
5422: x_return_status => x_return_status);
5423:
5424: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5425: raise fnd_api.g_exc_error;
5426: END IF;
5427:
5428: debug('Referenced Instance ID :'||l_tld_rec.instance_id);
5429: debug(' object_ver_num :'||l_inst_obj_ver_num);
5465: p_quantity => 1,
5466: p_trx_rec => l_trx_rec,
5467: x_return_status => l_return_status);
5468:
5469: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5470: RAISE fnd_api.g_exc_error;
5471: END IF;
5472:
5473: debug('Rebuilding the TD tables for the returned instance.');
5466: p_trx_rec => l_trx_rec,
5467: x_return_status => l_return_status);
5468:
5469: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5470: RAISE fnd_api.g_exc_error;
5471: END IF;
5472:
5473: debug('Rebuilding the TD tables for the returned instance.');
5474:
5487: x_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl,
5488: x_txn_line_detail_rec => l_tld_rec,
5489: x_return_status => x_return_status);
5490:
5491: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5492: raise fnd_api.g_exc_error;
5493: END IF;
5494:
5495: -- Mark the instance as RMA so that it is not eligible for split
5488: x_txn_line_detail_rec => l_tld_rec,
5489: x_return_status => x_return_status);
5490:
5491: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5492: raise fnd_api.g_exc_error;
5493: END IF;
5494:
5495: -- Mark the instance as RMA so that it is not eligible for split
5496: is_instance_rma := TRUE;
5503: END IF;
5504:
5505: /* this code is exclusively for re-shipping a returned non serial config */
5506: /* instance. ATO non serial config assembly for xerox bug 2304221 */
5507: IF nvl(l_tld_rec.changed_instance_id, fnd_api.g_miss_num) <>
5508: fnd_api.g_miss_num
5509: AND p_order_line_rec.serial_code = 1 -- Added for Bug 3008953
5510: THEN
5511: debug('re-shipping of a returned configuration.');
5504:
5505: /* this code is exclusively for re-shipping a returned non serial config */
5506: /* instance. ATO non serial config assembly for xerox bug 2304221 */
5507: IF nvl(l_tld_rec.changed_instance_id, fnd_api.g_miss_num) <>
5508: fnd_api.g_miss_num
5509: AND p_order_line_rec.serial_code = 1 -- Added for Bug 3008953
5510: THEN
5511: debug('re-shipping of a returned configuration.');
5512: -- a returned instance reference specified.
5518: p_quantity => 1,
5519: p_trx_rec => l_trx_rec,
5520: x_return_status => l_return_status);
5521:
5522: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5523: RAISE fnd_api.g_exc_error;
5524: END IF;
5525:
5526: debug('Rebuilding the TD tables for the returned config instance.');
5519: p_trx_rec => l_trx_rec,
5520: x_return_status => l_return_status);
5521:
5522: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5523: RAISE fnd_api.g_exc_error;
5524: END IF;
5525:
5526: debug('Rebuilding the TD tables for the returned config instance.');
5527:
5544: x_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl,
5545: x_txn_line_detail_rec => l_tld_rec,
5546: x_return_status => x_return_status);
5547:
5548: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5549: raise fnd_api.g_exc_error;
5550: END IF;
5551:
5552: END IF;
5545: x_txn_line_detail_rec => l_tld_rec,
5546: x_return_status => x_return_status);
5547:
5548: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5549: raise fnd_api.g_exc_error;
5550: END IF;
5551:
5552: END IF;
5553:
5587: p_api_name => 'update_item_instance');
5588:
5589: csi_item_instance_pub.update_item_instance(
5590: p_api_version => 1.0,
5591: p_commit => fnd_api.g_false,
5592: p_init_msg_list => fnd_api.g_true,
5593: p_validation_level => fnd_api.g_valid_level_full,
5594: p_instance_rec => l_un_exp_instance_rec,
5595: p_ext_attrib_values_tbl => l_un_exp_ext_attrib_val_tbl,
5588:
5589: csi_item_instance_pub.update_item_instance(
5590: p_api_version => 1.0,
5591: p_commit => fnd_api.g_false,
5592: p_init_msg_list => fnd_api.g_true,
5593: p_validation_level => fnd_api.g_valid_level_full,
5594: p_instance_rec => l_un_exp_instance_rec,
5595: p_ext_attrib_values_tbl => l_un_exp_ext_attrib_val_tbl,
5596: p_party_tbl => l_un_exp_party_tbl,
5589: csi_item_instance_pub.update_item_instance(
5590: p_api_version => 1.0,
5591: p_commit => fnd_api.g_false,
5592: p_init_msg_list => fnd_api.g_true,
5593: p_validation_level => fnd_api.g_valid_level_full,
5594: p_instance_rec => l_un_exp_instance_rec,
5595: p_ext_attrib_values_tbl => l_un_exp_ext_attrib_val_tbl,
5596: p_party_tbl => l_un_exp_party_tbl,
5597: p_account_tbl => l_un_exp_party_acct_tbl,
5604: x_msg_count => l_msg_count,
5605: x_msg_data => l_msg_data );
5606:
5607: -- For Bug 4057183
5608: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
5609: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5610: RAISE fnd_api.g_exc_error;
5611: END IF;
5612: debug('After Non reservable Item instance is unexpired');
5605: x_msg_data => l_msg_data );
5606:
5607: -- For Bug 4057183
5608: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
5609: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5610: RAISE fnd_api.g_exc_error;
5611: END IF;
5612: debug('After Non reservable Item instance is unexpired');
5613: */
5606:
5607: -- For Bug 4057183
5608: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
5609: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5610: RAISE fnd_api.g_exc_error;
5611: END IF;
5612: debug('After Non reservable Item instance is unexpired');
5613: */
5614: -- instead of an unexpiry I am passing the end date of the source instance
5622: ELSE
5623: fnd_message.set_name('CSI', 'CSI_ORG_NO_NEG_QTY');
5624: fnd_message.set_token('ORG_ID',l_tld_rec.inv_organization_id);
5625: fnd_msg_pub.add;
5626: Raise fnd_api.g_exc_error;
5627: END IF;
5628: ELSE
5629: l_quantity1 := (l_curr_instance_qty - l_tld_rec.quantity );
5630: l_quantity2 := l_tld_rec.quantity ;
5646: l_split_src_inst_rec.pa_project_id := null;
5647: l_split_src_inst_rec.pa_project_task_id := null;
5648: l_split_src_inst_rec.wip_job_id := null;
5649: l_split_src_inst_rec.po_order_line_id := null;
5650: l_split_src_inst_rec.version_label := nvl(l_tld_rec.version_label,fnd_api.g_miss_char);--bug 5112946
5651: l_split_src_trx_rec := p_trx_rec;
5652:
5653: csi_t_gen_utility_pvt.dump_api_info(
5654: p_pkg_name => 'csi_item_instance_pvt',
5657: /* split the inventory staging instance when the instance qty > ship qty */
5658: /* the owner party is still internal */
5659: csi_item_instance_pvt.split_item_instance (
5660: p_api_version => 1.0,
5661: p_commit => fnd_api.g_false,
5662: p_init_msg_list => fnd_api.g_true,
5663: p_validation_level => fnd_api.g_valid_level_full,
5664: p_source_instance_rec => l_split_src_inst_rec,
5665: p_quantity1 => l_quantity1,
5658: /* the owner party is still internal */
5659: csi_item_instance_pvt.split_item_instance (
5660: p_api_version => 1.0,
5661: p_commit => fnd_api.g_false,
5662: p_init_msg_list => fnd_api.g_true,
5663: p_validation_level => fnd_api.g_valid_level_full,
5664: p_source_instance_rec => l_split_src_inst_rec,
5665: p_quantity1 => l_quantity1,
5666: p_quantity2 => l_quantity2,
5659: csi_item_instance_pvt.split_item_instance (
5660: p_api_version => 1.0,
5661: p_commit => fnd_api.g_false,
5662: p_init_msg_list => fnd_api.g_true,
5663: p_validation_level => fnd_api.g_valid_level_full,
5664: p_source_instance_rec => l_split_src_inst_rec,
5665: p_quantity1 => l_quantity1,
5666: p_quantity2 => l_quantity2,
5667: p_copy_ext_attribs => fnd_api.g_true,
5663: p_validation_level => fnd_api.g_valid_level_full,
5664: p_source_instance_rec => l_split_src_inst_rec,
5665: p_quantity1 => l_quantity1,
5666: p_quantity2 => l_quantity2,
5667: p_copy_ext_attribs => fnd_api.g_true,
5668: p_copy_org_assignments => fnd_api.g_true,
5669: p_copy_parties => fnd_api.g_true,
5670: p_copy_accounts => fnd_api.g_true,
5671: p_copy_asset_assignments => fnd_api.g_true,
5664: p_source_instance_rec => l_split_src_inst_rec,
5665: p_quantity1 => l_quantity1,
5666: p_quantity2 => l_quantity2,
5667: p_copy_ext_attribs => fnd_api.g_true,
5668: p_copy_org_assignments => fnd_api.g_true,
5669: p_copy_parties => fnd_api.g_true,
5670: p_copy_accounts => fnd_api.g_true,
5671: p_copy_asset_assignments => fnd_api.g_true,
5672: p_copy_pricing_attribs => fnd_api.g_true,
5665: p_quantity1 => l_quantity1,
5666: p_quantity2 => l_quantity2,
5667: p_copy_ext_attribs => fnd_api.g_true,
5668: p_copy_org_assignments => fnd_api.g_true,
5669: p_copy_parties => fnd_api.g_true,
5670: p_copy_accounts => fnd_api.g_true,
5671: p_copy_asset_assignments => fnd_api.g_true,
5672: p_copy_pricing_attribs => fnd_api.g_true,
5673: p_txn_rec => l_split_src_trx_rec,
5666: p_quantity2 => l_quantity2,
5667: p_copy_ext_attribs => fnd_api.g_true,
5668: p_copy_org_assignments => fnd_api.g_true,
5669: p_copy_parties => fnd_api.g_true,
5670: p_copy_accounts => fnd_api.g_true,
5671: p_copy_asset_assignments => fnd_api.g_true,
5672: p_copy_pricing_attribs => fnd_api.g_true,
5673: p_txn_rec => l_split_src_trx_rec,
5674: x_new_instance_rec => l_split_new_inst_rec,
5667: p_copy_ext_attribs => fnd_api.g_true,
5668: p_copy_org_assignments => fnd_api.g_true,
5669: p_copy_parties => fnd_api.g_true,
5670: p_copy_accounts => fnd_api.g_true,
5671: p_copy_asset_assignments => fnd_api.g_true,
5672: p_copy_pricing_attribs => fnd_api.g_true,
5673: p_txn_rec => l_split_src_trx_rec,
5674: x_new_instance_rec => l_split_new_inst_rec,
5675: x_return_status => x_return_status,
5668: p_copy_org_assignments => fnd_api.g_true,
5669: p_copy_parties => fnd_api.g_true,
5670: p_copy_accounts => fnd_api.g_true,
5671: p_copy_asset_assignments => fnd_api.g_true,
5672: p_copy_pricing_attribs => fnd_api.g_true,
5673: p_txn_rec => l_split_src_trx_rec,
5674: x_new_instance_rec => l_split_new_inst_rec,
5675: x_return_status => x_return_status,
5676: x_msg_count => x_msg_count,
5675: x_return_status => x_return_status,
5676: x_msg_count => x_msg_count,
5677: x_msg_data => x_msg_data);
5678:
5679: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5680: g_api_name := 'csi_item_instance_pvt.split_item_instance';
5681: raise fnd_api.g_exc_error;
5682: END IF;
5683:
5677: x_msg_data => x_msg_data);
5678:
5679: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5680: g_api_name := 'csi_item_instance_pvt.split_item_instance';
5681: raise fnd_api.g_exc_error;
5682: END IF;
5683:
5684: l_instance_id := l_split_new_inst_rec.instance_id ;
5685: l_inst_obj_ver_num := l_split_new_inst_rec.object_version_number;
5700: x_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl,
5701: x_txn_line_detail_rec => l_tld_rec,
5702: x_return_status => x_return_status );
5703:
5704: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5705: raise fnd_api.g_exc_error;
5706: END IF;
5707:
5708: END IF; -- end of split_item_instances
5701: x_txn_line_detail_rec => l_tld_rec,
5702: x_return_status => x_return_status );
5703:
5704: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5705: raise fnd_api.g_exc_error;
5706: END IF;
5707:
5708: END IF; -- end of split_item_instances
5709: -- Uncommented the end if as part of fix for Bug 3033092
5709: -- Uncommented the end if as part of fix for Bug 3033092
5710: -- Commented the END IF and moved it to before even building the split record
5711: -- as part of fix for Bug 2985193
5712:
5713: IF NVL(x_trx_sub_type_rec.src_status_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
5714:
5715: l_inst_status_id := l_dflt_inst_status_id;
5716:
5717: l_upd_instance_rec.instance_status_id := l_inst_status_id;
5729: -- Partner Ordering Code change
5730: -- l_upd_instance_rec.location_type_code := l_tld_rec.location_type_code;
5731: -- l_upd_instance_rec.location_id := l_tld_rec.location_id;
5732: -- Added the nvl to l_ltd_rec optional columns for Bug 3818547
5733: l_upd_instance_rec.install_location_type_code := nvl(l_tld_rec.install_location_type_code,fnd_api.g_miss_char);
5734: IF p_order_line_rec.ib_install_loc is not null
5735: AND
5736: p_order_line_rec.ib_install_loc <> fnd_api.g_miss_char
5737: THEN
5732: -- Added the nvl to l_ltd_rec optional columns for Bug 3818547
5733: l_upd_instance_rec.install_location_type_code := nvl(l_tld_rec.install_location_type_code,fnd_api.g_miss_char);
5734: IF p_order_line_rec.ib_install_loc is not null
5735: AND
5736: p_order_line_rec.ib_install_loc <> fnd_api.g_miss_char
5737: THEN
5738: BEGIN
5739: SELECT HCAS.party_site_id
5740: INTO l_upd_party_site_id
5752: THEN
5753: l_upd_instance_rec.install_location_id := l_upd_party_site_id;
5754: -- Added else as part of fix for Bug 3419098
5755: ELSE
5756: l_upd_instance_rec.install_location_id := nvl(l_tld_rec.install_location_id,fnd_api.g_miss_num);
5757: END IF;
5758: ELSE
5759: l_upd_instance_rec.install_location_id := nvl(l_tld_rec.install_location_id,fnd_api.g_miss_num);
5760: END IF;
5755: ELSE
5756: l_upd_instance_rec.install_location_id := nvl(l_tld_rec.install_location_id,fnd_api.g_miss_num);
5757: END IF;
5758: ELSE
5759: l_upd_instance_rec.install_location_id := nvl(l_tld_rec.install_location_id,fnd_api.g_miss_num);
5760: END IF;
5761: l_upd_instance_rec.location_type_code := nvl(l_tld_rec.location_type_code,l_tld_rec.install_location_type_code);
5762: l_upd_instance_rec.location_id := nvl(l_tld_rec.location_id,l_upd_instance_rec.install_location_id);
5763: -- Partner Ordering code change
5761: l_upd_instance_rec.location_type_code := nvl(l_tld_rec.location_type_code,l_tld_rec.install_location_type_code);
5762: l_upd_instance_rec.location_id := nvl(l_tld_rec.location_id,l_upd_instance_rec.install_location_id);
5763: -- Partner Ordering code change
5764:
5765: l_upd_instance_rec.external_reference := nvl(l_tld_rec.external_reference,fnd_api.g_miss_char);
5766: l_upd_instance_rec.system_id := nvl(l_tld_rec.csi_system_id,fnd_api.g_miss_num);
5767: -- l_upd_instance_rec.accounting_class_code := 'CUST_PROD';
5768:
5769: IF nvl(l_tld_rec.installation_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
5762: l_upd_instance_rec.location_id := nvl(l_tld_rec.location_id,l_upd_instance_rec.install_location_id);
5763: -- Partner Ordering code change
5764:
5765: l_upd_instance_rec.external_reference := nvl(l_tld_rec.external_reference,fnd_api.g_miss_char);
5766: l_upd_instance_rec.system_id := nvl(l_tld_rec.csi_system_id,fnd_api.g_miss_num);
5767: -- l_upd_instance_rec.accounting_class_code := 'CUST_PROD';
5768:
5769: IF nvl(l_tld_rec.installation_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
5770: IF l_default_install_date = 'Y' THEN
5765: l_upd_instance_rec.external_reference := nvl(l_tld_rec.external_reference,fnd_api.g_miss_char);
5766: l_upd_instance_rec.system_id := nvl(l_tld_rec.csi_system_id,fnd_api.g_miss_num);
5767: -- l_upd_instance_rec.accounting_class_code := 'CUST_PROD';
5768:
5769: IF nvl(l_tld_rec.installation_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
5770: IF l_default_install_date = 'Y' THEN
5771: IF p_source = 'SHIPMENT' THEN
5772: l_upd_instance_rec.install_date := p_order_line_rec.actual_shipment_date;
5773: ELSIF p_source = 'FULFILLMENT' THEN
5780: l_upd_instance_rec.install_date := GREATEST(l_tld_rec.installation_date,p_order_line_rec.actual_shipment_date);
5781: ELSIF p_source = 'FULFILLMENT' THEN
5782: IF p_order_line_rec.fulfillment_date is NOT NULL
5783: AND
5784: p_order_line_rec.fulfillment_date <> fnd_api.g_miss_date
5785: THEN
5786: l_upd_instance_rec.install_date := GREATEST(l_tld_rec.installation_date,p_order_line_rec.fulfillment_date);
5787: ELSE
5788: l_upd_instance_rec.install_date := GREATEST(l_tld_rec.installation_date,sysdate);
5791: --l_upd_instance_rec.install_date := l_tld_rec.installation_date;
5792: /* End code change for 3254347 Install_Date and Start_Date changes */
5793: END IF;
5794:
5795: l_upd_instance_rec.instance_type_code := nvl(l_tld_rec.instance_type_code,fnd_api.g_miss_char);
5796: l_upd_instance_rec.instance_condition_id := nvl(l_tld_rec.item_condition_id,fnd_api.g_miss_num);
5797: l_upd_instance_rec.quantity := l_tld_rec.quantity;
5798: l_upd_instance_rec.unit_of_measure := l_tld_rec.unit_of_measure;
5799: l_upd_instance_rec.sellable_flag := nvl(l_tld_rec.sellable_flag,fnd_api.g_miss_char);
5792: /* End code change for 3254347 Install_Date and Start_Date changes */
5793: END IF;
5794:
5795: l_upd_instance_rec.instance_type_code := nvl(l_tld_rec.instance_type_code,fnd_api.g_miss_char);
5796: l_upd_instance_rec.instance_condition_id := nvl(l_tld_rec.item_condition_id,fnd_api.g_miss_num);
5797: l_upd_instance_rec.quantity := l_tld_rec.quantity;
5798: l_upd_instance_rec.unit_of_measure := l_tld_rec.unit_of_measure;
5799: l_upd_instance_rec.sellable_flag := nvl(l_tld_rec.sellable_flag,fnd_api.g_miss_char);
5800: l_upd_instance_rec.last_oe_order_line_id := p_order_line_rec.order_line_id ;
5795: l_upd_instance_rec.instance_type_code := nvl(l_tld_rec.instance_type_code,fnd_api.g_miss_char);
5796: l_upd_instance_rec.instance_condition_id := nvl(l_tld_rec.item_condition_id,fnd_api.g_miss_num);
5797: l_upd_instance_rec.quantity := l_tld_rec.quantity;
5798: l_upd_instance_rec.unit_of_measure := l_tld_rec.unit_of_measure;
5799: l_upd_instance_rec.sellable_flag := nvl(l_tld_rec.sellable_flag,fnd_api.g_miss_char);
5800: l_upd_instance_rec.last_oe_order_line_id := p_order_line_rec.order_line_id ;
5801: l_upd_instance_rec.last_txn_line_detail_id := l_tld_rec.txn_line_detail_id ;
5802: l_upd_instance_rec.return_by_date := nvl(l_tld_rec.return_by_date,fnd_api.g_miss_date);
5803: --l_upd_instance_rec.active_end_date := nvl(l_tld_rec.active_end_date,fnd_api.g_miss_date);--Bug3964060
5798: l_upd_instance_rec.unit_of_measure := l_tld_rec.unit_of_measure;
5799: l_upd_instance_rec.sellable_flag := nvl(l_tld_rec.sellable_flag,fnd_api.g_miss_char);
5800: l_upd_instance_rec.last_oe_order_line_id := p_order_line_rec.order_line_id ;
5801: l_upd_instance_rec.last_txn_line_detail_id := l_tld_rec.txn_line_detail_id ;
5802: l_upd_instance_rec.return_by_date := nvl(l_tld_rec.return_by_date,fnd_api.g_miss_date);
5803: --l_upd_instance_rec.active_end_date := nvl(l_tld_rec.active_end_date,fnd_api.g_miss_date);--Bug3964060
5804: l_upd_instance_rec.active_end_date := l_tld_rec.active_end_date;
5805: --Added IF condition for bug 5112946--
5806: IF (p_order_line_rec.serial_code in (2,5)) OR
5799: l_upd_instance_rec.sellable_flag := nvl(l_tld_rec.sellable_flag,fnd_api.g_miss_char);
5800: l_upd_instance_rec.last_oe_order_line_id := p_order_line_rec.order_line_id ;
5801: l_upd_instance_rec.last_txn_line_detail_id := l_tld_rec.txn_line_detail_id ;
5802: l_upd_instance_rec.return_by_date := nvl(l_tld_rec.return_by_date,fnd_api.g_miss_date);
5803: --l_upd_instance_rec.active_end_date := nvl(l_tld_rec.active_end_date,fnd_api.g_miss_date);--Bug3964060
5804: l_upd_instance_rec.active_end_date := l_tld_rec.active_end_date;
5805: --Added IF condition for bug 5112946--
5806: IF (p_order_line_rec.serial_code in (2,5)) OR
5807: (p_order_line_rec.serial_code =6 AND is_instance_rma) THEN
5804: l_upd_instance_rec.active_end_date := l_tld_rec.active_end_date;
5805: --Added IF condition for bug 5112946--
5806: IF (p_order_line_rec.serial_code in (2,5)) OR
5807: (p_order_line_rec.serial_code =6 AND is_instance_rma) THEN
5808: l_upd_instance_rec.version_label := nvl(l_tld_rec.version_label,fnd_api.g_miss_char);
5809: END IF;
5810: l_upd_instance_rec.lot_number := nvl(l_tld_rec.lot_number,fnd_api.g_miss_char);
5811: l_upd_instance_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
5812: l_upd_instance_rec.last_oe_agreement_id := p_order_line_rec.agreement_id;
5806: IF (p_order_line_rec.serial_code in (2,5)) OR
5807: (p_order_line_rec.serial_code =6 AND is_instance_rma) THEN
5808: l_upd_instance_rec.version_label := nvl(l_tld_rec.version_label,fnd_api.g_miss_char);
5809: END IF;
5810: l_upd_instance_rec.lot_number := nvl(l_tld_rec.lot_number,fnd_api.g_miss_char);
5811: l_upd_instance_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
5812: l_upd_instance_rec.last_oe_agreement_id := p_order_line_rec.agreement_id;
5813: l_upd_instance_rec.actual_return_date := null;
5814:
5834: l_upd_instance_rec.po_order_line_id := NULL;
5835:
5836: l_expire_flag := FALSE;
5837:
5838: IF nvl(l_upd_instance_rec.active_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date
5839: AND (l_upd_instance_rec.active_end_date) <= SYSDATE
5840: THEN
5841:
5842: l_upd_ext_attrib_val_tbl.DELETE;
5845: l_upd_pricing_attribs_tbl.DELETE;
5846: l_upd_org_units_tbl.DELETE;
5847: l_upd_inst_asset_tbl.DELETE;
5848:
5849: l_upd_instance_rec.active_end_date := fnd_api.g_miss_date;
5850:
5851: l_expire_flag := TRUE;
5852:
5853: END IF;
5913: fnd_message.set_token('OLD_PARTY_ID',l_owner_party_id);
5914: fnd_message.set_token('NEW_PARTY_ID',l_upd_party_tbl(1).party_id);
5915: fnd_message.set_token('INSTANCE_ID',l_upd_party_tbl(1).instance_id);
5916: fnd_msg_pub.add;
5917: raise fnd_api.g_exc_error;
5918: Else
5919:
5920: /* Changing the Owner to Internal Before shipping to New Customer */
5921: l_chg_party_tbl(1).instance_id := l_upd_party_tbl(1).instance_id;
5934:
5935: -- owner change to internal
5936: csi_item_instance_pub.update_item_instance(
5937: p_api_version => 1.0,
5938: p_commit => fnd_api.g_false,
5939: p_init_msg_list => fnd_api.g_true,
5940: p_validation_level => fnd_api.g_valid_level_full,
5941: p_instance_rec => l_chg_instance_rec,
5942: p_ext_attrib_values_tbl => l_chg_ext_attrib_val_tbl,
5935: -- owner change to internal
5936: csi_item_instance_pub.update_item_instance(
5937: p_api_version => 1.0,
5938: p_commit => fnd_api.g_false,
5939: p_init_msg_list => fnd_api.g_true,
5940: p_validation_level => fnd_api.g_valid_level_full,
5941: p_instance_rec => l_chg_instance_rec,
5942: p_ext_attrib_values_tbl => l_chg_ext_attrib_val_tbl,
5943: p_party_tbl => l_chg_party_tbl,
5936: csi_item_instance_pub.update_item_instance(
5937: p_api_version => 1.0,
5938: p_commit => fnd_api.g_false,
5939: p_init_msg_list => fnd_api.g_true,
5940: p_validation_level => fnd_api.g_valid_level_full,
5941: p_instance_rec => l_chg_instance_rec,
5942: p_ext_attrib_values_tbl => l_chg_ext_attrib_val_tbl,
5943: p_party_tbl => l_chg_party_tbl,
5944: p_account_tbl => l_chg_party_acct_tbl,
5951: x_msg_count => l_msg_count,
5952: x_msg_data => l_msg_data );
5953:
5954: -- For Bug 4057183
5955: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
5956: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5957: RAISE fnd_api.g_exc_error;
5958: END IF;
5959:
5952: x_msg_data => l_msg_data );
5953:
5954: -- For Bug 4057183
5955: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
5956: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5957: RAISE fnd_api.g_exc_error;
5958: END IF;
5959:
5960: l_upd_party_tbl(1).instance_party_id := l_chg_party_tbl(1).instance_party_id;
5953:
5954: -- For Bug 4057183
5955: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
5956: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5957: RAISE fnd_api.g_exc_error;
5958: END IF;
5959:
5960: l_upd_party_tbl(1).instance_party_id := l_chg_party_tbl(1).instance_party_id;
5961: /* Fixed for Bug 2728984 */
6014: x_i_pty_tbl => l_upd_party_tbl,
6015: x_i_pty_acct_tbl => l_upd_party_acct_tbl,
6016: x_return_status => l_return_status);
6017:
6018: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6019: RAISE fnd_api.g_exc_error;
6020: END IF;
6021:
6022: -- srramakr TSO with Equipment
6015: x_i_pty_acct_tbl => l_upd_party_acct_tbl,
6016: x_return_status => l_return_status);
6017:
6018: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6019: RAISE fnd_api.g_exc_error;
6020: END IF;
6021:
6022: -- srramakr TSO with Equipment
6023: -- Need to pass the config keys to the Update_Item_Instance API.
6040: px_item_control_rec => l_item_control_rec,
6041: x_unit_price_in_primary_uom => l_upd_instance_rec.sales_unit_price,
6042: x_return_status => l_return_status);
6043:
6044: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6045: RAISE fnd_api.g_exc_error;
6046: END IF;
6047:
6048: ELSE
6041: x_unit_price_in_primary_uom => l_upd_instance_rec.sales_unit_price,
6042: x_return_status => l_return_status);
6043:
6044: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6045: RAISE fnd_api.g_exc_error;
6046: END IF;
6047:
6048: ELSE
6049: l_upd_instance_rec.sales_unit_price := l_order_line_rec.unit_price;
6068:
6069: /* this is the call that makes the instance as customer product */
6070: csi_item_instance_pub.update_item_instance(
6071: p_api_version => 1.0,
6072: p_commit => fnd_api.g_false,
6073: p_init_msg_list => fnd_api.g_true,
6074: p_validation_level => fnd_api.g_valid_level_full,
6075: p_instance_rec => l_upd_instance_rec,
6076: p_ext_attrib_values_tbl => l_upd_ext_attrib_val_tbl,
6069: /* this is the call that makes the instance as customer product */
6070: csi_item_instance_pub.update_item_instance(
6071: p_api_version => 1.0,
6072: p_commit => fnd_api.g_false,
6073: p_init_msg_list => fnd_api.g_true,
6074: p_validation_level => fnd_api.g_valid_level_full,
6075: p_instance_rec => l_upd_instance_rec,
6076: p_ext_attrib_values_tbl => l_upd_ext_attrib_val_tbl,
6077: p_party_tbl => l_upd_party_tbl,
6070: csi_item_instance_pub.update_item_instance(
6071: p_api_version => 1.0,
6072: p_commit => fnd_api.g_false,
6073: p_init_msg_list => fnd_api.g_true,
6074: p_validation_level => fnd_api.g_valid_level_full,
6075: p_instance_rec => l_upd_instance_rec,
6076: p_ext_attrib_values_tbl => l_upd_ext_attrib_val_tbl,
6077: p_party_tbl => l_upd_party_tbl,
6078: p_account_tbl => l_upd_party_acct_tbl,
6085: x_msg_count => x_msg_count,
6086: x_msg_data => x_msg_data);
6087:
6088: -- For Bug 4057183
6089: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
6090: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
6091: g_api_name := 'csi_item_instance_pub.update_item_instance';
6092: raise fnd_api.g_exc_error;
6093: END IF;
6086: x_msg_data => x_msg_data);
6087:
6088: -- For Bug 4057183
6089: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
6090: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
6091: g_api_name := 'csi_item_instance_pub.update_item_instance';
6092: raise fnd_api.g_exc_error;
6093: END IF;
6094:
6088: -- For Bug 4057183
6089: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
6090: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
6091: g_api_name := 'csi_item_instance_pub.update_item_instance';
6092: raise fnd_api.g_exc_error;
6093: END IF;
6094:
6095: IF l_expire_flag THEN
6096:
6096:
6097: l_exp_instance_rec.instance_id := l_upd_instance_rec.instance_id;
6098: l_exp_instance_rec.object_version_number := l_inst_obj_ver_num + 1;
6099:
6100: l_trx_rec.transaction_id := fnd_api.g_miss_num;
6101:
6102: csi_t_gen_utility_pvt.dump_api_info(
6103: p_api_name => 'expire_item_instance',
6104: p_pkg_name => 'csi_item_instance_pub');
6104: p_pkg_name => 'csi_item_instance_pub');
6105:
6106: csi_item_instance_pub.expire_item_instance(
6107: p_api_version => 1.0,
6108: p_commit => fnd_api.g_false,
6109: p_init_msg_list => fnd_api.g_true,
6110: p_validation_level => fnd_api.g_valid_level_full,
6111: p_instance_rec => l_exp_instance_rec,
6112: p_expire_children => fnd_api.g_true,
6105:
6106: csi_item_instance_pub.expire_item_instance(
6107: p_api_version => 1.0,
6108: p_commit => fnd_api.g_false,
6109: p_init_msg_list => fnd_api.g_true,
6110: p_validation_level => fnd_api.g_valid_level_full,
6111: p_instance_rec => l_exp_instance_rec,
6112: p_expire_children => fnd_api.g_true,
6113: p_txn_rec => l_trx_rec,
6106: csi_item_instance_pub.expire_item_instance(
6107: p_api_version => 1.0,
6108: p_commit => fnd_api.g_false,
6109: p_init_msg_list => fnd_api.g_true,
6110: p_validation_level => fnd_api.g_valid_level_full,
6111: p_instance_rec => l_exp_instance_rec,
6112: p_expire_children => fnd_api.g_true,
6113: p_txn_rec => l_trx_rec,
6114: x_instance_id_lst => l_exp_instance_id_lst,
6108: p_commit => fnd_api.g_false,
6109: p_init_msg_list => fnd_api.g_true,
6110: p_validation_level => fnd_api.g_valid_level_full,
6111: p_instance_rec => l_exp_instance_rec,
6112: p_expire_children => fnd_api.g_true,
6113: p_txn_rec => l_trx_rec,
6114: x_instance_id_lst => l_exp_instance_id_lst,
6115: x_return_status => l_return_status,
6116: x_msg_count => x_msg_count,
6115: x_return_status => l_return_status,
6116: x_msg_count => x_msg_count,
6117: x_msg_data => x_msg_data);
6118:
6119: IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
6120: g_api_name := 'csi_item_instance_pub.expire_item_instance';
6121: raise fnd_api.g_exc_error;
6122: END IF;
6123:
6117: x_msg_data => x_msg_data);
6118:
6119: IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
6120: g_api_name := 'csi_item_instance_pub.expire_item_instance';
6121: raise fnd_api.g_exc_error;
6122: END IF;
6123:
6124: END IF;
6125:
6173: Null;
6174: END;
6175: IF ( p_pricing_attribs_tbl(i).pricing_attribute_id is not null
6176: AND
6177: p_pricing_attribs_tbl(i).pricing_attribute_id <> fnd_api.g_miss_num
6178: )
6179: THEN
6180: l_old_index := l_old_index + 1;
6181: l_old_pricing_attribs_tbl(l_old_index) := p_pricing_attribs_tbl(i);
6195: p_pkg_name => 'csi_pricing_attribs_pub');
6196:
6197: csi_pricing_attribs_pub.update_pricing_attribs(
6198: p_api_version => 1.0,
6199: p_commit => fnd_api.g_false,
6200: p_init_msg_list => fnd_api.g_true,
6201: p_validation_level => fnd_api.g_valid_level_full,
6202: p_pricing_attribs_tbl => l_old_pricing_attribs_tbl,
6203: p_txn_rec => l_trx_rec,
6196:
6197: csi_pricing_attribs_pub.update_pricing_attribs(
6198: p_api_version => 1.0,
6199: p_commit => fnd_api.g_false,
6200: p_init_msg_list => fnd_api.g_true,
6201: p_validation_level => fnd_api.g_valid_level_full,
6202: p_pricing_attribs_tbl => l_old_pricing_attribs_tbl,
6203: p_txn_rec => l_trx_rec,
6204: x_return_status => x_return_status,
6197: csi_pricing_attribs_pub.update_pricing_attribs(
6198: p_api_version => 1.0,
6199: p_commit => fnd_api.g_false,
6200: p_init_msg_list => fnd_api.g_true,
6201: p_validation_level => fnd_api.g_valid_level_full,
6202: p_pricing_attribs_tbl => l_old_pricing_attribs_tbl,
6203: p_txn_rec => l_trx_rec,
6204: x_return_status => x_return_status,
6205: x_msg_count => x_msg_count,
6204: x_return_status => x_return_status,
6205: x_msg_count => x_msg_count,
6206: x_msg_data => x_msg_data);
6207:
6208: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6209: g_api_name := 'csi_pricing_attribs_pub.update_pricing_attribs';
6210: raise fnd_api.g_exc_error;
6211: END IF;
6212: debug('Pricing Attributes updated successfully.');
6206: x_msg_data => x_msg_data);
6207:
6208: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6209: g_api_name := 'csi_pricing_attribs_pub.update_pricing_attribs';
6210: raise fnd_api.g_exc_error;
6211: END IF;
6212: debug('Pricing Attributes updated successfully.');
6213: END IF;
6214:
6223: p_pkg_name => 'csi_pricing_attribs_pub');
6224:
6225: csi_pricing_attribs_pub.create_pricing_attribs(
6226: p_api_version => 1.0,
6227: p_commit => fnd_api.g_false,
6228: p_init_msg_list => fnd_api.g_true,
6229: p_validation_level => fnd_api.g_valid_level_full,
6230: p_pricing_attribs_tbl => l_new_pricing_attribs_tbl, --p_pricing_attribs_tbl,
6231: p_txn_rec => l_trx_rec,
6224:
6225: csi_pricing_attribs_pub.create_pricing_attribs(
6226: p_api_version => 1.0,
6227: p_commit => fnd_api.g_false,
6228: p_init_msg_list => fnd_api.g_true,
6229: p_validation_level => fnd_api.g_valid_level_full,
6230: p_pricing_attribs_tbl => l_new_pricing_attribs_tbl, --p_pricing_attribs_tbl,
6231: p_txn_rec => l_trx_rec,
6232: x_return_status => x_return_status,
6225: csi_pricing_attribs_pub.create_pricing_attribs(
6226: p_api_version => 1.0,
6227: p_commit => fnd_api.g_false,
6228: p_init_msg_list => fnd_api.g_true,
6229: p_validation_level => fnd_api.g_valid_level_full,
6230: p_pricing_attribs_tbl => l_new_pricing_attribs_tbl, --p_pricing_attribs_tbl,
6231: p_txn_rec => l_trx_rec,
6232: x_return_status => x_return_status,
6233: x_msg_count => x_msg_count,
6232: x_return_status => x_return_status,
6233: x_msg_count => x_msg_count,
6234: x_msg_data => x_msg_data);
6235:
6236: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6237: g_api_name := 'csi_pricing_attribs_pub.create_pricing_attribs';
6238: raise fnd_api.g_exc_error;
6239: END IF;
6240:
6234: x_msg_data => x_msg_data);
6235:
6236: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6237: g_api_name := 'csi_pricing_attribs_pub.create_pricing_attribs';
6238: raise fnd_api.g_exc_error;
6239: END IF;
6240:
6241: debug('Pricing Attributes created successfully.');
6242:
6251: p_order_line_rec => l_order_line_rec,
6252: p_trx_rec => l_trx_rec,
6253: x_return_status => x_return_status);
6254:
6255: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6256: raise fnd_api.g_exc_error;
6257: END IF;
6258: */
6259:
6252: p_trx_rec => l_trx_rec,
6253: x_return_status => x_return_status);
6254:
6255: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6256: raise fnd_api.g_exc_error;
6257: END IF;
6258: */
6259:
6260: debug('Party and Account created successfully.');
6266: p_pkg_name => 'csi_organization_unit_pub');
6267:
6268: csi_organization_unit_pub.create_organization_unit(
6269: p_api_version => 1.0,
6270: p_commit => fnd_api.g_false,
6271: p_init_msg_list => fnd_api.g_true,
6272: p_validation_level => fnd_api.g_valid_level_full,
6273: p_org_unit_tbl => l_cre_org_units_tbl,
6274: p_txn_rec => l_trx_rec,
6267:
6268: csi_organization_unit_pub.create_organization_unit(
6269: p_api_version => 1.0,
6270: p_commit => fnd_api.g_false,
6271: p_init_msg_list => fnd_api.g_true,
6272: p_validation_level => fnd_api.g_valid_level_full,
6273: p_org_unit_tbl => l_cre_org_units_tbl,
6274: p_txn_rec => l_trx_rec,
6275: x_return_status => x_return_status,
6268: csi_organization_unit_pub.create_organization_unit(
6269: p_api_version => 1.0,
6270: p_commit => fnd_api.g_false,
6271: p_init_msg_list => fnd_api.g_true,
6272: p_validation_level => fnd_api.g_valid_level_full,
6273: p_org_unit_tbl => l_cre_org_units_tbl,
6274: p_txn_rec => l_trx_rec,
6275: x_return_status => x_return_status,
6276: x_msg_count => x_msg_count,
6275: x_return_status => x_return_status,
6276: x_msg_count => x_msg_count,
6277: x_msg_data => x_msg_data);
6278:
6279: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6280: g_api_name := 'csi_organization_unit_pub.create_organization_unit';
6281: raise fnd_api.g_exc_error;
6282: END IF;
6283:
6277: x_msg_data => x_msg_data);
6278:
6279: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6280: g_api_name := 'csi_organization_unit_pub.create_organization_unit';
6281: raise fnd_api.g_exc_error;
6282: END IF;
6283:
6284: debug('Org Assignment created successfully.');
6285: END IF;
6310: Null;
6311: END;
6312: IF ( l_cre_ext_attrib_val_tbl(i).attribute_value_id is not null
6313: AND
6314: l_cre_ext_attrib_val_tbl(i).attribute_value_id <> fnd_api.g_miss_num
6315: )
6316: THEN
6317: l_old_extended_attribs_tbl(l_ext_old_index) := l_cre_ext_attrib_val_tbl(i);
6318: l_ext_old_index := l_ext_old_index + 1;
6331: p_pkg_name => 'csi_item_instance_pub');
6332:
6333: csi_item_instance_pub.update_extended_attrib_values(
6334: p_api_version => 1.0,
6335: p_commit => fnd_api.g_false,
6336: p_init_msg_list => fnd_api.g_true,
6337: p_validation_level => fnd_api.g_valid_level_full,
6338: p_ext_attrib_tbl => l_old_extended_attribs_tbl,
6339: p_txn_rec => l_trx_rec,
6332:
6333: csi_item_instance_pub.update_extended_attrib_values(
6334: p_api_version => 1.0,
6335: p_commit => fnd_api.g_false,
6336: p_init_msg_list => fnd_api.g_true,
6337: p_validation_level => fnd_api.g_valid_level_full,
6338: p_ext_attrib_tbl => l_old_extended_attribs_tbl,
6339: p_txn_rec => l_trx_rec,
6340: x_return_status => x_return_status,
6333: csi_item_instance_pub.update_extended_attrib_values(
6334: p_api_version => 1.0,
6335: p_commit => fnd_api.g_false,
6336: p_init_msg_list => fnd_api.g_true,
6337: p_validation_level => fnd_api.g_valid_level_full,
6338: p_ext_attrib_tbl => l_old_extended_attribs_tbl,
6339: p_txn_rec => l_trx_rec,
6340: x_return_status => x_return_status,
6341: x_msg_count => x_msg_count,
6340: x_return_status => x_return_status,
6341: x_msg_count => x_msg_count,
6342: x_msg_data => x_msg_data);
6343:
6344: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6345: g_api_name := 'csi_item_instance_pub.update_extended_attrib_values';
6346: raise fnd_api.g_exc_error;
6347: END IF;
6348:
6342: x_msg_data => x_msg_data);
6343:
6344: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6345: g_api_name := 'csi_item_instance_pub.update_extended_attrib_values';
6346: raise fnd_api.g_exc_error;
6347: END IF;
6348:
6349: debug('Extended Attributed updated successfully.');
6350: END IF;
6360: p_pkg_name => 'csi_item_instance_pub');
6361:
6362: csi_item_instance_pub.create_extended_attrib_values(
6363: p_api_version => 1.0,
6364: p_commit => fnd_api.g_false,
6365: p_init_msg_list => fnd_api.g_true,
6366: p_validation_level => fnd_api.g_valid_level_full,
6367: p_ext_attrib_tbl => l_new_extended_attribs_tbl, --l_cre_ext_attrib_val_tbl
6368: p_txn_rec => l_trx_rec,
6361:
6362: csi_item_instance_pub.create_extended_attrib_values(
6363: p_api_version => 1.0,
6364: p_commit => fnd_api.g_false,
6365: p_init_msg_list => fnd_api.g_true,
6366: p_validation_level => fnd_api.g_valid_level_full,
6367: p_ext_attrib_tbl => l_new_extended_attribs_tbl, --l_cre_ext_attrib_val_tbl
6368: p_txn_rec => l_trx_rec,
6369: x_return_status => x_return_status,
6362: csi_item_instance_pub.create_extended_attrib_values(
6363: p_api_version => 1.0,
6364: p_commit => fnd_api.g_false,
6365: p_init_msg_list => fnd_api.g_true,
6366: p_validation_level => fnd_api.g_valid_level_full,
6367: p_ext_attrib_tbl => l_new_extended_attribs_tbl, --l_cre_ext_attrib_val_tbl
6368: p_txn_rec => l_trx_rec,
6369: x_return_status => x_return_status,
6370: x_msg_count => x_msg_count,
6369: x_return_status => x_return_status,
6370: x_msg_count => x_msg_count,
6371: x_msg_data => x_msg_data);
6372:
6373: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6374: g_api_name := 'csi_item_instance_pub.create_extended_attrib_values';
6375: raise fnd_api.g_exc_error;
6376: END IF;
6377:
6371: x_msg_data => x_msg_data);
6372:
6373: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6374: g_api_name := 'csi_item_instance_pub.create_extended_attrib_values';
6375: raise fnd_api.g_exc_error;
6376: END IF;
6377:
6378: debug('Extended Attributed created successfully.');
6379:
6409: p_pkg_name => 'csi_ii_relationships_pub');
6410:
6411: csi_ii_relationships_pub.expire_relationship(
6412: p_api_version => 1.0,
6413: p_commit => fnd_api.g_false,
6414: p_init_msg_list => fnd_api.g_true,
6415: p_validation_level => fnd_api.g_valid_level_full,
6416: p_relationship_rec => l_exp_ii_relationship_rec,
6417: p_txn_rec => l_trx_rec,
6410:
6411: csi_ii_relationships_pub.expire_relationship(
6412: p_api_version => 1.0,
6413: p_commit => fnd_api.g_false,
6414: p_init_msg_list => fnd_api.g_true,
6415: p_validation_level => fnd_api.g_valid_level_full,
6416: p_relationship_rec => l_exp_ii_relationship_rec,
6417: p_txn_rec => l_trx_rec,
6418: x_instance_id_lst => l_exp_instance_id_tbl,
6411: csi_ii_relationships_pub.expire_relationship(
6412: p_api_version => 1.0,
6413: p_commit => fnd_api.g_false,
6414: p_init_msg_list => fnd_api.g_true,
6415: p_validation_level => fnd_api.g_valid_level_full,
6416: p_relationship_rec => l_exp_ii_relationship_rec,
6417: p_txn_rec => l_trx_rec,
6418: x_instance_id_lst => l_exp_instance_id_tbl,
6419: x_return_status => x_return_status,
6419: x_return_status => x_return_status,
6420: x_msg_count => x_msg_count,
6421: x_msg_data => x_msg_data);
6422:
6423: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6424: g_api_name := 'csi_ii_relationship_pub.expire_relationship';
6425: raise fnd_api.g_exc_error;
6426: END IF;
6427:
6421: x_msg_data => x_msg_data);
6422:
6423: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6424: g_api_name := 'csi_ii_relationship_pub.expire_relationship';
6425: raise fnd_api.g_exc_error;
6426: END IF;
6427:
6428: EXCEPTION
6429: WHEN OTHERS THEN
6440: THEN
6441:
6442: l_auto_split_instances.delete;
6443: --Added for bug 5112946--
6444: l_upd_instance_rec.version_label := nvl(l_tld_rec.version_label,fnd_api.g_miss_char);
6445:
6446: auto_split_instances(
6447: p_instance_rec => l_upd_instance_rec,
6448: px_txn_rec => l_trx_rec,
6448: px_txn_rec => l_trx_rec,
6449: x_instance_tbl => l_auto_split_instances,
6450: x_return_status => l_return_status);
6451:
6452: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6453: RAISE fnd_api.g_exc_error;
6454: END IF;
6455:
6456: IF l_auto_split_instances.count > 0 THEN
6449: x_instance_tbl => l_auto_split_instances,
6450: x_return_status => l_return_status);
6451:
6452: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6453: RAISE fnd_api.g_exc_error;
6454: END IF;
6455:
6456: IF l_auto_split_instances.count > 0 THEN
6457: l_cp_ind := 0;
6477: p_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl ,
6478: p_new_instance_tbl => l_auto_split_instances,
6479: x_return_status => x_return_status );
6480:
6481: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6482: raise fnd_api.g_exc_error;
6483: END IF;
6484:
6485: END IF; -- p_txn_ii_rltns_tbl.count > 0
6478: p_new_instance_tbl => l_auto_split_instances,
6479: x_return_status => x_return_status );
6480:
6481: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6482: raise fnd_api.g_exc_error;
6483: END IF;
6484:
6485: END IF; -- p_txn_ii_rltns_tbl.count > 0
6486: END IF; -- l_split_flag = 'Y'
6494: p_organization_id => l_tld_rec.inv_organization_id,
6495: p_master_organization_id => x_master_org_id,
6496: x_return_status => x_return_status);
6497:
6498: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6499: raise fnd_api.g_exc_error;
6500: END IF;
6501:
6502: debug('Instance reference does not exist, So calling create API');
6495: p_master_organization_id => x_master_org_id,
6496: x_return_status => x_return_status);
6497:
6498: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6499: raise fnd_api.g_exc_error;
6500: END IF;
6501:
6502: debug('Instance reference does not exist, So calling create API');
6503:
6500: END IF;
6501:
6502: debug('Instance reference does not exist, So calling create API');
6503:
6504: IF NVL(x_trx_sub_type_rec.src_status_id ,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
6505:
6506: l_inst_status_id := l_dflt_inst_status_id;
6507:
6508: l_cre_instance_rec.instance_status_id := l_inst_status_id;
6513: l_trx_rec.txn_sub_type_id := l_tld_rec.sub_type_id;
6514:
6515: /* If the instance reference does not exist then create an instance */
6516:
6517: l_cre_instance_rec.instance_id := fnd_api.g_miss_num;
6518: l_cre_instance_rec.instance_number := fnd_api.g_miss_char;
6519: l_cre_instance_rec.external_reference := l_tld_rec.external_reference ;
6520: l_cre_instance_rec.inventory_item_id := l_tld_rec.inventory_item_id;
6521: l_cre_instance_rec.inventory_revision := l_tld_rec.inventory_revision;
6514:
6515: /* If the instance reference does not exist then create an instance */
6516:
6517: l_cre_instance_rec.instance_id := fnd_api.g_miss_num;
6518: l_cre_instance_rec.instance_number := fnd_api.g_miss_char;
6519: l_cre_instance_rec.external_reference := l_tld_rec.external_reference ;
6520: l_cre_instance_rec.inventory_item_id := l_tld_rec.inventory_item_id;
6521: l_cre_instance_rec.inventory_revision := l_tld_rec.inventory_revision;
6522: l_cre_instance_rec.inv_master_organization_id := x_master_org_id;
6540: l_cre_instance_rec.install_location_type_code := l_tld_rec.install_location_type_code;
6541: l_cre_instance_rec.source_code := p_order_line_rec.source_code; -- Added for Siebel Genesis Project
6542: IF p_order_line_rec.ib_install_loc is not null
6543: AND
6544: p_order_line_rec.ib_install_loc <> fnd_api.g_miss_char
6545: THEN
6546: BEGIN
6547: SELECT HCAS.party_site_id
6548: INTO l_cre_party_site_id
6573:
6574: /* Begin fix for Bug 3254347 Install_Date and Start_Date changes */
6575: IF l_tld_rec.active_start_date IS NOT NULL
6576: AND
6577: l_tld_rec.active_start_date <> fnd_api.g_miss_date
6578: THEN
6579: IF p_source = 'FULFILLMENT'
6580: THEN
6581: --l_cre_instance_rec.active_start_date := p_order_line_rec.fulfillment_date; Bug 3807619
6589:
6590: /* Fix for Bug 3578671 */
6591: debug(' Default Install Date Profile Value '||l_default_install_date);
6592:
6593: IF nvl(l_tld_rec.installation_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
6594: IF l_default_install_date = 'Y' THEN
6595: IF p_source = 'SHIPMENT' THEN
6596: -- For Bug 3578671
6597: IF nvl(p_order_line_rec.actual_shipment_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
6593: IF nvl(l_tld_rec.installation_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
6594: IF l_default_install_date = 'Y' THEN
6595: IF p_source = 'SHIPMENT' THEN
6596: -- For Bug 3578671
6597: IF nvl(p_order_line_rec.actual_shipment_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
6598: l_cre_instance_rec.install_date := l_trx_rec.source_transaction_date;
6599: ELSE
6600: l_cre_instance_rec.install_date := p_order_line_rec.actual_shipment_date;
6601: END IF;
6600: l_cre_instance_rec.install_date := p_order_line_rec.actual_shipment_date;
6601: END IF;
6602: ELSIF p_source = 'FULFILLMENT' THEN
6603: -- For Bug 3578671
6604: IF nvl(p_order_line_rec.fulfillment_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
6605: l_cre_instance_rec.install_date := sysdate;
6606: ELSE
6607: l_cre_instance_rec.install_date := p_order_line_rec.fulfillment_date;
6608: END IF;
6615: GREATEST(l_tld_rec.installation_date,p_order_line_rec.actual_shipment_date);
6616: ELSIF p_source = 'FULFILLMENT' THEN
6617: IF p_order_line_rec.fulfillment_date is NOT NULL
6618: AND
6619: p_order_line_rec.fulfillment_date <> fnd_api.g_miss_date
6620: THEN
6621: l_cre_instance_rec.install_date := GREATEST(l_tld_rec.installation_date,p_order_line_rec.fulfillment_date);
6622: ELSE
6623: l_cre_instance_rec.install_date := GREATEST(l_tld_rec.installation_date,sysdate);
6627: END IF;
6628:
6629: l_cre_instance_rec.manually_created_flag := 'N';
6630: l_cre_instance_rec.return_by_date := l_tld_rec.return_by_date;
6631: l_cre_instance_rec.creation_complete_flag := fnd_api.g_miss_char;
6632: l_cre_instance_rec.completeness_flag := fnd_api.g_miss_char;
6633: l_cre_instance_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
6634: l_cre_instance_rec.last_oe_agreement_id := p_order_line_rec.agreement_id;
6635: -- Included for Bug 2962072.
6628:
6629: l_cre_instance_rec.manually_created_flag := 'N';
6630: l_cre_instance_rec.return_by_date := l_tld_rec.return_by_date;
6631: l_cre_instance_rec.creation_complete_flag := fnd_api.g_miss_char;
6632: l_cre_instance_rec.completeness_flag := fnd_api.g_miss_char;
6633: l_cre_instance_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
6634: l_cre_instance_rec.last_oe_agreement_id := p_order_line_rec.agreement_id;
6635: -- Included for Bug 2962072.
6636: l_cre_instance_rec.version_label := l_tld_rec.version_label;
6653: x_i_pty_tbl => l_cre_party_tbl,
6654: x_i_pty_acct_tbl => l_cre_party_acct_tbl,
6655: x_return_status => l_return_status);
6656:
6657: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6658: RAISE fnd_api.g_exc_error;
6659: END IF;
6660: --
6661: -- srramakr TSO with Equipment
6654: x_i_pty_acct_tbl => l_cre_party_acct_tbl,
6655: x_return_status => l_return_status);
6656:
6657: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6658: RAISE fnd_api.g_exc_error;
6659: END IF;
6660: --
6661: -- srramakr TSO with Equipment
6662: -- Serialized instance gets created as a part of shipment for Items with srl ctl 6 (AT SO Issue)
6683: px_item_control_rec => l_item_control_rec,
6684: x_unit_price_in_primary_uom => l_cre_instance_rec.sales_unit_price,
6685: x_return_status => l_return_status);
6686:
6687: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6688: RAISE fnd_api.g_exc_error;
6689: END IF;
6690:
6691: ELSE
6684: x_unit_price_in_primary_uom => l_cre_instance_rec.sales_unit_price,
6685: x_return_status => l_return_status);
6686:
6687: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6688: RAISE fnd_api.g_exc_error;
6689: END IF;
6690:
6691: ELSE
6692: l_cre_instance_rec.sales_unit_price := l_order_line_rec.unit_price;
6709:
6710: /* for order fulfillment instance ref is not there so create an instance */
6711: csi_item_instance_pub.create_item_instance(
6712: p_api_version => 1.0,
6713: p_commit => fnd_api.g_false,
6714: p_init_msg_list => fnd_api.g_true,
6715: p_validation_level => fnd_api.g_valid_level_full,
6716: p_instance_rec => l_cre_instance_rec,
6717: p_ext_attrib_values_tbl => l_cre_ext_attrib_val_tbl,
6710: /* for order fulfillment instance ref is not there so create an instance */
6711: csi_item_instance_pub.create_item_instance(
6712: p_api_version => 1.0,
6713: p_commit => fnd_api.g_false,
6714: p_init_msg_list => fnd_api.g_true,
6715: p_validation_level => fnd_api.g_valid_level_full,
6716: p_instance_rec => l_cre_instance_rec,
6717: p_ext_attrib_values_tbl => l_cre_ext_attrib_val_tbl,
6718: p_party_tbl => l_cre_party_tbl,
6711: csi_item_instance_pub.create_item_instance(
6712: p_api_version => 1.0,
6713: p_commit => fnd_api.g_false,
6714: p_init_msg_list => fnd_api.g_true,
6715: p_validation_level => fnd_api.g_valid_level_full,
6716: p_instance_rec => l_cre_instance_rec,
6717: p_ext_attrib_values_tbl => l_cre_ext_attrib_val_tbl,
6718: p_party_tbl => l_cre_party_tbl,
6719: p_account_tbl => l_cre_party_acct_tbl,
6725: x_msg_count => x_msg_count,
6726: x_msg_data => x_msg_data );
6727:
6728: -- For Bug 4057183
6729: -- IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6730: IF NOT(x_return_status in(fnd_api.g_ret_sts_success,'W')) THEN
6731: g_api_name := 'csi_item_instance_pub.create_item_instance';
6732: raise fnd_api.g_exc_error;
6733: END IF;
6726: x_msg_data => x_msg_data );
6727:
6728: -- For Bug 4057183
6729: -- IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6730: IF NOT(x_return_status in(fnd_api.g_ret_sts_success,'W')) THEN
6731: g_api_name := 'csi_item_instance_pub.create_item_instance';
6732: raise fnd_api.g_exc_error;
6733: END IF;
6734:
6728: -- For Bug 4057183
6729: -- IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6730: IF NOT(x_return_status in(fnd_api.g_ret_sts_success,'W')) THEN
6731: g_api_name := 'csi_item_instance_pub.create_item_instance';
6732: raise fnd_api.g_exc_error;
6733: END IF;
6734:
6735: l_cp_ind := l_cp_ind + 1;
6736:
6763: p_order_line_rec => p_order_line_rec,
6764: p_trx_rec => l_trx_rec,
6765: x_return_status => x_return_status );
6766:
6767: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6768: RAISE fnd_api.g_exc_error;
6769: END IF;
6770: */
6771:
6764: p_trx_rec => l_trx_rec,
6765: x_return_status => x_return_status );
6766:
6767: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6768: RAISE fnd_api.g_exc_error;
6769: END IF;
6770: */
6771:
6772: IF l_cre_instance_rec.quantity > 1
6783: px_txn_rec => l_trx_rec,
6784: x_instance_tbl => l_auto_split_instances,
6785: x_return_status => l_return_status);
6786:
6787: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6788: RAISE fnd_api.g_exc_error;
6789: END IF;
6790:
6791:
6784: x_instance_tbl => l_auto_split_instances,
6785: x_return_status => l_return_status);
6786:
6787: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6788: RAISE fnd_api.g_exc_error;
6789: END IF;
6790:
6791:
6792: IF l_auto_split_instances.count > 0 THEN
6814: p_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl,
6815: p_new_instance_tbl => l_auto_split_instances,
6816: x_return_status => x_return_status);
6817:
6818: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6819: raise fnd_api.g_exc_error;
6820: END IF;
6821:
6822: debug('build_inst_ii_tbl completed successfully ');
6815: p_new_instance_tbl => l_auto_split_instances,
6816: x_return_status => x_return_status);
6817:
6818: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6819: raise fnd_api.g_exc_error;
6820: END IF;
6821:
6822: debug('build_inst_ii_tbl completed successfully ');
6823: END IF; -- p_txn_ii_rltns_tbl.count > 0
6885: p_api_name => 'explode_bom');
6886:
6887: csi_item_instance_grp.explode_bom( -- changes done to call the Group API for performance issues, bug3722382
6888: p_api_version => 1.0,
6889: p_commit => fnd_api.g_false,
6890: p_init_msg_list => fnd_api.g_true,
6891: p_validation_level => fnd_api.g_valid_level_full,
6892: p_source_instance_tbl => l_bom_std_item_tbl,
6893: p_explosion_level => fnd_api.g_miss_num,
6886:
6887: csi_item_instance_grp.explode_bom( -- changes done to call the Group API for performance issues, bug3722382
6888: p_api_version => 1.0,
6889: p_commit => fnd_api.g_false,
6890: p_init_msg_list => fnd_api.g_true,
6891: p_validation_level => fnd_api.g_valid_level_full,
6892: p_source_instance_tbl => l_bom_std_item_tbl,
6893: p_explosion_level => fnd_api.g_miss_num,
6894: p_txn_rec => l_trx_rec,
6887: csi_item_instance_grp.explode_bom( -- changes done to call the Group API for performance issues, bug3722382
6888: p_api_version => 1.0,
6889: p_commit => fnd_api.g_false,
6890: p_init_msg_list => fnd_api.g_true,
6891: p_validation_level => fnd_api.g_valid_level_full,
6892: p_source_instance_tbl => l_bom_std_item_tbl,
6893: p_explosion_level => fnd_api.g_miss_num,
6894: p_txn_rec => l_trx_rec,
6895: x_return_status => l_return_status,
6889: p_commit => fnd_api.g_false,
6890: p_init_msg_list => fnd_api.g_true,
6891: p_validation_level => fnd_api.g_valid_level_full,
6892: p_source_instance_tbl => l_bom_std_item_tbl,
6893: p_explosion_level => fnd_api.g_miss_num,
6894: p_txn_rec => l_trx_rec,
6895: x_return_status => l_return_status,
6896: x_msg_count => l_msg_count,
6897: x_msg_data => l_msg_data);
6895: x_return_status => l_return_status,
6896: x_msg_count => l_msg_count,
6897: x_msg_data => l_msg_data);
6898:
6899: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6900: RAISE fnd_api.g_exc_error;
6901: END IF;
6902:
6903: debug('explode bom end time :'||to_char(sysdate, 'hh24:mi:ss'));
6896: x_msg_count => l_msg_count,
6897: x_msg_data => l_msg_data);
6898:
6899: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6900: RAISE fnd_api.g_exc_error;
6901: END IF;
6902:
6903: debug('explode bom end time :'||to_char(sysdate, 'hh24:mi:ss'));
6904: END IF;
6907: IF l_order_line_rec.item_type_code = 'STANDARD'
6908: AND
6909: l_order_line_rec.order_line_id = l_order_line_rec.ato_line_id
6910: AND
6911: nvl(l_order_line_rec.top_model_line_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
6912: AND
6913: l_order_line_rec.serial_code in (1, 6)
6914: THEN
6915:
6930: px_csi_txn_rec => l_trx_rec,
6931: x_iir_tbl => l_wip_iir_tbl,
6932: x_return_status => l_return_status);
6933:
6934: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6935: RAISE fnd_api.g_exc_error;
6936: END IF;
6937:
6938: IF l_wip_iir_tbl.COUNT > 0 THEN
6931: x_iir_tbl => l_wip_iir_tbl,
6932: x_return_status => l_return_status);
6933:
6934: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6935: RAISE fnd_api.g_exc_error;
6936: END IF;
6937:
6938: IF l_wip_iir_tbl.COUNT > 0 THEN
6939: FOR l_w_ind IN l_wip_iir_tbl.FIRST .. l_wip_iir_tbl.LAST
6947: p_line_id => l_order_line_rec.order_line_id,
6948: p_csi_txn_rec => l_trx_rec,
6949: x_return_status => l_return_status);
6950:
6951: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6952: RAISE fnd_api.g_exc_error;
6953: END IF;
6954:
6955: END LOOP;
6948: p_csi_txn_rec => l_trx_rec,
6949: x_return_status => l_return_status);
6950:
6951: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6952: RAISE fnd_api.g_exc_error;
6953: END IF;
6954:
6955: END LOOP;
6956:
6959: p_pkg_name => 'csi_ii_relationships_pub');
6960:
6961: csi_ii_relationships_pub.create_relationship(
6962: p_api_version => 1.0,
6963: p_commit => fnd_api.g_false,
6964: p_init_msg_list => fnd_api.g_true,
6965: p_validation_level => fnd_api.g_valid_level_full,
6966: p_relationship_tbl => l_wip_iir_tbl,
6967: p_txn_rec => l_trx_rec,
6960:
6961: csi_ii_relationships_pub.create_relationship(
6962: p_api_version => 1.0,
6963: p_commit => fnd_api.g_false,
6964: p_init_msg_list => fnd_api.g_true,
6965: p_validation_level => fnd_api.g_valid_level_full,
6966: p_relationship_tbl => l_wip_iir_tbl,
6967: p_txn_rec => l_trx_rec,
6968: x_return_status => l_return_status,
6961: csi_ii_relationships_pub.create_relationship(
6962: p_api_version => 1.0,
6963: p_commit => fnd_api.g_false,
6964: p_init_msg_list => fnd_api.g_true,
6965: p_validation_level => fnd_api.g_valid_level_full,
6966: p_relationship_tbl => l_wip_iir_tbl,
6967: p_txn_rec => l_trx_rec,
6968: x_return_status => l_return_status,
6969: x_msg_count => l_msg_count,
6968: x_return_status => l_return_status,
6969: x_msg_count => l_msg_count,
6970: x_msg_data => l_msg_data);
6971:
6972: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6973: RAISE fnd_api.g_exc_error;
6974: END IF;
6975: END IF;
6976:
6969: x_msg_count => l_msg_count,
6970: x_msg_data => l_msg_data);
6971:
6972: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6973: RAISE fnd_api.g_exc_error;
6974: END IF;
6975: END IF;
6976:
6977: EXCEPTION
6997: -- For a Tangible line under a MACD order, we need to build the relationships using the
6998: -- relationship records written by Configurator. p_txn_ii_rltns_tbl contains this info.
6999: -- We will fork the code based on MACD order line flag in l_order_line_rec
7000: --
7001: IF l_order_line_rec.macd_order_line = FND_API.G_TRUE THEN
7002: csi_interface_pkg.build_relationship_tbl(
7003: p_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl,
7004: p_txn_line_dtl_tbl => p_txn_line_detail_tbl,
7005: x_c_ii_rltns_tbl => l_cre_ii_rltns_tbl,
7005: x_c_ii_rltns_tbl => l_cre_ii_rltns_tbl,
7006: x_u_ii_rltns_tbl => l_upd_ii_rltns_tbl,
7007: x_return_status => x_return_status );
7008:
7009: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7010: raise fnd_api.g_exc_error;
7011: END IF;
7012: ELSE
7013: /* Added p_trx_rec for ER 2581101 */
7006: x_u_ii_rltns_tbl => l_upd_ii_rltns_tbl,
7007: x_return_status => x_return_status );
7008:
7009: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7010: raise fnd_api.g_exc_error;
7011: END IF;
7012: ELSE
7013: /* Added p_trx_rec for ER 2581101 */
7014:
7020: x_cre_ii_rltns_tbl => l_cre_ii_rltns_tbl ,
7021: x_upd_ii_rltns_tbl => l_upd_ii_rltns_tbl ,
7022: x_return_status => x_return_status );
7023:
7024: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7025: raise fnd_api.g_exc_error;
7026: END IF;
7027: END IF; -- MACD Order Check
7028:
7021: x_upd_ii_rltns_tbl => l_upd_ii_rltns_tbl ,
7022: x_return_status => x_return_status );
7023:
7024: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7025: raise fnd_api.g_exc_error;
7026: END IF;
7027: END IF; -- MACD Order Check
7028:
7029: debug('upd_txn_ii_rltns_tbl.count :'||l_upd_ii_rltns_tbl.count );
7037: p_pkg_name => 'csi_ii_relationships_pub');
7038:
7039: csi_ii_relationships_pub.update_relationship(
7040: p_api_version => 1.0,
7041: p_commit => fnd_api.g_false,
7042: p_init_msg_list => fnd_api.g_true,
7043: p_validation_level => fnd_api.g_valid_level_full,
7044: p_relationship_tbl => l_upd_ii_rltns_tbl,
7045: p_txn_rec => l_trx_rec,
7038:
7039: csi_ii_relationships_pub.update_relationship(
7040: p_api_version => 1.0,
7041: p_commit => fnd_api.g_false,
7042: p_init_msg_list => fnd_api.g_true,
7043: p_validation_level => fnd_api.g_valid_level_full,
7044: p_relationship_tbl => l_upd_ii_rltns_tbl,
7045: p_txn_rec => l_trx_rec,
7046: x_return_status => x_return_status,
7039: csi_ii_relationships_pub.update_relationship(
7040: p_api_version => 1.0,
7041: p_commit => fnd_api.g_false,
7042: p_init_msg_list => fnd_api.g_true,
7043: p_validation_level => fnd_api.g_valid_level_full,
7044: p_relationship_tbl => l_upd_ii_rltns_tbl,
7045: p_txn_rec => l_trx_rec,
7046: x_return_status => x_return_status,
7047: x_msg_count => x_msg_count,
7046: x_return_status => x_return_status,
7047: x_msg_count => x_msg_count,
7048: x_msg_data => x_msg_data );
7049:
7050: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7051: raise fnd_api.g_exc_error;
7052: END IF;
7053: debug('update_relationship completed successfully');
7054: END IF;
7047: x_msg_count => x_msg_count,
7048: x_msg_data => x_msg_data );
7049:
7050: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7051: raise fnd_api.g_exc_error;
7052: END IF;
7053: debug('update_relationship completed successfully');
7054: END IF;
7055:
7061: p_pkg_name => 'csi_ii_relationships_pub');
7062:
7063: csi_ii_relationships_pub.create_relationship(
7064: p_api_version => 1.0,
7065: p_commit => fnd_api.g_false,
7066: p_init_msg_list => fnd_api.g_true,
7067: p_validation_level => fnd_api.g_valid_level_full,
7068: p_relationship_tbl => l_cre_ii_rltns_tbl,
7069: p_txn_rec => l_trx_rec,
7062:
7063: csi_ii_relationships_pub.create_relationship(
7064: p_api_version => 1.0,
7065: p_commit => fnd_api.g_false,
7066: p_init_msg_list => fnd_api.g_true,
7067: p_validation_level => fnd_api.g_valid_level_full,
7068: p_relationship_tbl => l_cre_ii_rltns_tbl,
7069: p_txn_rec => l_trx_rec,
7070: x_return_status => x_return_status,
7063: csi_ii_relationships_pub.create_relationship(
7064: p_api_version => 1.0,
7065: p_commit => fnd_api.g_false,
7066: p_init_msg_list => fnd_api.g_true,
7067: p_validation_level => fnd_api.g_valid_level_full,
7068: p_relationship_tbl => l_cre_ii_rltns_tbl,
7069: p_txn_rec => l_trx_rec,
7070: x_return_status => x_return_status,
7071: x_msg_count => x_msg_count,
7070: x_return_status => x_return_status,
7071: x_msg_count => x_msg_count,
7072: x_msg_data => x_msg_data );
7073:
7074: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7075: raise fnd_api.g_exc_error;
7076: END IF;
7077:
7078: debug('create_relationship completed sucessfully');
7071: x_msg_count => x_msg_count,
7072: x_msg_data => x_msg_data );
7073:
7074: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7075: raise fnd_api.g_exc_error;
7076: END IF;
7077:
7078: debug('create_relationship completed sucessfully');
7079: END IF; -- end if for l_cre_txn_ii_rltns_tbl.count > 0
7088: IF l_tld_rec.source_transaction_flag = 'N' THEN
7089:
7090: debug('processing tld record # '||i||' source_transaction_flag : '||
7091: l_tld_rec.source_transaction_flag);
7092: IF nvl(l_tld_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num then
7093:
7094: /* check if this is a replacement instnace. If this is replacement
7095: then pass the call_contracts flag as false . bug 2298453*/
7096: l_call_contracts := fnd_api.g_true;
7092: IF nvl(l_tld_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num then
7093:
7094: /* check if this is a replacement instnace. If this is replacement
7095: then pass the call_contracts flag as false . bug 2298453*/
7096: l_call_contracts := fnd_api.g_true;
7097:
7098: csi_utl_pkg.call_contracts_chk(
7099: p_txn_line_detail_id => l_tld_rec.txn_line_detail_id,
7100: p_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl,
7106: p_call_contracts => l_call_contracts,
7107: p_trx_rec => l_trx_rec,
7108: x_return_status => l_return_status);
7109:
7110: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7111: raise fnd_api.g_exc_error;
7112: END IF;
7113:
7114: /* bug 2351217 non source not stamping the status */
7107: p_trx_rec => l_trx_rec,
7108: x_return_status => l_return_status);
7109:
7110: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7111: raise fnd_api.g_exc_error;
7112: END IF;
7113:
7114: /* bug 2351217 non source not stamping the status */
7115: l_tld_rec.processing_status := 'PROCESSED';
7132: debug('Updating the Transaction Details to reflect the processing status.' );
7133:
7134: csi_t_txn_details_grp.update_txn_line_dtls(
7135: p_api_version => 1.0,
7136: p_commit => fnd_api.g_false,
7137: p_init_msg_list => fnd_api.g_true,
7138: p_validation_level => fnd_api.g_valid_level_full,
7139: p_txn_line_rec => p_txn_line_rec,
7140: p_txn_line_detail_tbl => p_txn_line_detail_tbl,
7133:
7134: csi_t_txn_details_grp.update_txn_line_dtls(
7135: p_api_version => 1.0,
7136: p_commit => fnd_api.g_false,
7137: p_init_msg_list => fnd_api.g_true,
7138: p_validation_level => fnd_api.g_valid_level_full,
7139: p_txn_line_rec => p_txn_line_rec,
7140: p_txn_line_detail_tbl => p_txn_line_detail_tbl,
7141: px_txn_ii_rltns_tbl => l_upd_txn_ii_rltns_tbl,
7134: csi_t_txn_details_grp.update_txn_line_dtls(
7135: p_api_version => 1.0,
7136: p_commit => fnd_api.g_false,
7137: p_init_msg_list => fnd_api.g_true,
7138: p_validation_level => fnd_api.g_valid_level_full,
7139: p_txn_line_rec => p_txn_line_rec,
7140: p_txn_line_detail_tbl => p_txn_line_detail_tbl,
7141: px_txn_ii_rltns_tbl => l_upd_txn_ii_rltns_tbl,
7142: px_txn_party_detail_tbl => l_upd_txn_party_detail_tbl,
7146: x_return_status => x_return_status,
7147: x_msg_count => x_msg_count,
7148: x_msg_data => x_msg_data);
7149:
7150: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7151: g_api_name := 'csi_t_txn_details_grp.update_txn_line_dtls';
7152: raise fnd_api.g_exc_error;
7153: END IF;
7154:
7148: x_msg_data => x_msg_data);
7149:
7150: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7151: g_api_name := 'csi_t_txn_details_grp.update_txn_line_dtls';
7152: raise fnd_api.g_exc_error;
7153: END IF;
7154:
7155: END IF;
7156: END IF; -- end of p_source
7162: p_transaction_line_id => p_txn_line_rec.transaction_line_id,
7163: p_order_line_rec => l_order_line_rec,
7164: x_return_status => l_return_status );
7165:
7166: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7167: RAISE fnd_api.g_exc_error;
7168: END IF;
7169: --
7170: -- srramakr TSO With Equipment
7163: p_order_line_rec => l_order_line_rec,
7164: x_return_status => l_return_status );
7165:
7166: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7167: RAISE fnd_api.g_exc_error;
7168: END IF;
7169: --
7170: -- srramakr TSO With Equipment
7171: -- Need to update the Processing status of Configurator written Txn Line and Details.
7170: -- srramakr TSO With Equipment
7171: -- Need to update the Processing status of Configurator written Txn Line and Details.
7172: -- This status will be used by Filter_Relations while processing the fulfillable line.
7173: --
7174: IF l_order_line_rec.macd_order_line = FND_API.G_TRUE THEN
7175: IF p_txn_line_detail_tbl.count > 0 THEN
7176: FOR J IN p_txn_line_detail_tbl.FIRST .. p_txn_line_detail_tbl.LAST LOOP
7177: IF p_txn_line_detail_tbl.EXISTS(J) THEN
7178: IF p_txn_line_detail_tbl(J).source_transaction_flag = 'Y' AND
7190: --
7191: debug('Calling csi_cz_int.unlock_item_instances...');
7192: csi_cz_int.unlock_item_instances(
7193: p_api_version => 1.0,
7194: p_init_msg_list => fnd_api.g_true,
7195: p_commit => fnd_api.g_false,
7196: p_validation_level => fnd_api.g_valid_level_full,
7197: p_config_tbl => l_config_tbl,
7198: x_return_status => x_return_status,
7191: debug('Calling csi_cz_int.unlock_item_instances...');
7192: csi_cz_int.unlock_item_instances(
7193: p_api_version => 1.0,
7194: p_init_msg_list => fnd_api.g_true,
7195: p_commit => fnd_api.g_false,
7196: p_validation_level => fnd_api.g_valid_level_full,
7197: p_config_tbl => l_config_tbl,
7198: x_return_status => x_return_status,
7199: x_msg_count => x_msg_count,
7192: csi_cz_int.unlock_item_instances(
7193: p_api_version => 1.0,
7194: p_init_msg_list => fnd_api.g_true,
7195: p_commit => fnd_api.g_false,
7196: p_validation_level => fnd_api.g_valid_level_full,
7197: p_config_tbl => l_config_tbl,
7198: x_return_status => x_return_status,
7199: x_msg_count => x_msg_count,
7200: x_msg_data => x_msg_data);
7198: x_return_status => x_return_status,
7199: x_msg_count => x_msg_count,
7200: x_msg_data => x_msg_data);
7201:
7202: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7203: RAISE fnd_api.g_exc_error;
7204: END IF;
7205: --
7206: debug('Updating CONFIGURATOR Created Transaction Details...');
7199: x_msg_count => x_msg_count,
7200: x_msg_data => x_msg_data);
7201:
7202: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7203: RAISE fnd_api.g_exc_error;
7204: END IF;
7205: --
7206: debug('Updating CONFIGURATOR Created Transaction Details...');
7207: --
7230: END IF;
7231: END IF; -- end if for p_validate_flag = 'N'
7232:
7233: -- Standard check of p_commit.
7234: IF FND_API.To_Boolean(p_commit) THEN
7235: COMMIT WORK;
7236: END IF;
7237:
7238: fnd_msg_pub.count_and_get(
7239: p_count => x_msg_count ,
7240: p_data => x_msg_data );
7241:
7242: EXCEPTION
7243: WHEN FND_API.G_EXC_ERROR THEN
7244: ROLLBACK TO update_install_base;
7245: x_return_status := FND_API.G_RET_STS_ERROR ;
7246: fnd_msg_pub.count_and_get(
7247: p_count => x_msg_count,
7241:
7242: EXCEPTION
7243: WHEN FND_API.G_EXC_ERROR THEN
7244: ROLLBACK TO update_install_base;
7245: x_return_status := FND_API.G_RET_STS_ERROR ;
7246: fnd_msg_pub.count_and_get(
7247: p_count => x_msg_count,
7248: p_data => x_msg_data );
7249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7245: x_return_status := FND_API.G_RET_STS_ERROR ;
7246: fnd_msg_pub.count_and_get(
7247: p_count => x_msg_count,
7248: p_data => x_msg_data );
7249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7250: ROLLBACK TO update_install_base;
7251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7252: fnd_msg_pub.count_and_get(
7253: p_count => x_msg_count,
7247: p_count => x_msg_count,
7248: p_data => x_msg_data );
7249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7250: ROLLBACK TO update_install_base;
7251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7252: fnd_msg_pub.count_and_get(
7253: p_count => x_msg_count,
7254: p_data => x_msg_data );
7255: WHEN others THEN
7257: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
7258: fnd_message.set_token('MESSAGE', substr(sqlerrm, 1, 240));
7259: fnd_msg_pub.add;
7260:
7261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7262:
7263: fnd_msg_pub.count_and_get(
7264: p_count => x_msg_count,
7265: p_data => x_msg_data );
7301: l_sold_to_pty BOOLEAN := TRUE;
7302: l_sold_to_acct BOOLEAN := TRUE;
7303: l_acct_owner_count NUMBER;
7304: l_sold_from_org_found varchar2(1);
7305: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
7306:
7307: -- Partner ordering
7308: l_owner_party NUMBER;
7309:
7314:
7315: BEGIN
7316:
7317: -- Initialize API return status to success
7318: x_return_status := fnd_api.g_ret_sts_success;
7319:
7320: api_log('validate_txn_tbl');
7321:
7322: IF p_txn_line_detail_tbl.count > 0 THEN
7334: p_trx_type_id => p_txn_line_rec.source_transaction_type_id,
7335: x_trx_sub_type_rec => x_txn_sub_type_rec,
7336: x_return_status => x_return_status) ;
7337:
7338: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7339: raise fnd_api.g_exc_error;
7340: END IF;
7341:
7342: /*-----------------------------------------------------------------*/
7335: x_trx_sub_type_rec => x_txn_sub_type_rec,
7336: x_return_status => x_return_status) ;
7337:
7338: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7339: raise fnd_api.g_exc_error;
7340: END IF;
7341:
7342: /*-----------------------------------------------------------------*/
7343: /* If Org assignment with 'SOLD_FROM' relationship_type_code */
7343: /* If Org assignment with 'SOLD_FROM' relationship_type_code */
7344: /* does not exist then 'SOLD_FROM' create an org assignments */
7345: /*-----------------------------------------------------------------*/
7346:
7347: IF nvl(p_order_line_rec.sold_from_org_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
7348: THEN
7349: IF p_txn_org_assgn_tbl.count > 0 THEN
7350: FOR l_org in p_txn_org_assgn_tbl.first..p_txn_org_assgn_tbl.last
7351: LOOP
7359: END IF;
7360:
7361: IF NOT(l_org_assign) THEN
7362: /* also check if the instance reference already has a SOLD_FROM relation */
7363: IF nvl(p_txn_line_detail_tbl(i).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
7364: BEGIN
7365: SELECT 'X'
7366: INTO l_sold_from_org_found
7367: FROM csi_i_org_assignments
7387: l_ind_org := p_txn_org_assgn_tbl.count + 1;
7388:
7389: debug('Building the SOLD_FROM org assignment.. ' );
7390:
7391: p_txn_org_assgn_tbl(l_ind_org).txn_operating_unit_id := fnd_api.g_miss_num;
7392: p_txn_org_assgn_tbl(l_ind_org).txn_line_detail_id := p_txn_line_detail_tbl(i).txn_line_detail_id;
7393: p_txn_org_assgn_tbl(l_ind_org).instance_ou_id := fnd_api.g_miss_num;
7394: p_txn_org_assgn_tbl(l_ind_org).operating_unit_id := p_order_line_rec.sold_from_org_id;
7395: p_txn_org_assgn_tbl(l_ind_org).relationship_type_code := 'SOLD_FROM';
7389: debug('Building the SOLD_FROM org assignment.. ' );
7390:
7391: p_txn_org_assgn_tbl(l_ind_org).txn_operating_unit_id := fnd_api.g_miss_num;
7392: p_txn_org_assgn_tbl(l_ind_org).txn_line_detail_id := p_txn_line_detail_tbl(i).txn_line_detail_id;
7393: p_txn_org_assgn_tbl(l_ind_org).instance_ou_id := fnd_api.g_miss_num;
7394: p_txn_org_assgn_tbl(l_ind_org).operating_unit_id := p_order_line_rec.sold_from_org_id;
7395: p_txn_org_assgn_tbl(l_ind_org).relationship_type_code := 'SOLD_FROM';
7396: p_txn_org_assgn_tbl(l_ind_org).active_start_date := sysdate;
7397: p_txn_org_assgn_tbl(l_ind_org).active_end_date := p_txn_line_detail_tbl(i).active_end_date; -- fix for 4293723
7485: IF (l_owner_count > 1) THEN
7486: fnd_message.set_name('CSI','CSI_INT_MULTIPLE_OWNER');
7487: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7488: fnd_msg_pub.add;
7489: raise fnd_api.g_exc_error;
7490: END IF;
7491:
7492: /* If src_change_owner = Y and owner party does not exist then raise error */
7493: IF x_txn_sub_type_rec.src_change_owner = 'Y' THEN
7494: IF (l_owner_count = 0) THEN
7495: fnd_message.set_name('CSI','CSI_INT_PTY_OWNER_MISSING');
7496: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7497: fnd_msg_pub.add;
7498: raise fnd_api.g_exc_error;
7499: END IF;
7500: END IF;
7501:
7502: IF nvl(x_txn_sub_type_rec.src_change_owner, 'N') = 'N' THEN
7499: END IF;
7500: END IF;
7501:
7502: IF nvl(x_txn_sub_type_rec.src_change_owner, 'N') = 'N' THEN
7503: p_order_line_rec.ship_to_contact_id := fnd_api.g_miss_num;
7504: p_order_line_rec.invoice_to_contact_id := fnd_api.g_miss_num;
7505: END IF;
7506:
7507: /* If multiple owner exists then raise error */
7500: END IF;
7501:
7502: IF nvl(x_txn_sub_type_rec.src_change_owner, 'N') = 'N' THEN
7503: p_order_line_rec.ship_to_contact_id := fnd_api.g_miss_num;
7504: p_order_line_rec.invoice_to_contact_id := fnd_api.g_miss_num;
7505: END IF;
7506:
7507: /* If multiple owner exists then raise error */
7508: IF (l_acct_owner_count > 1) THEN
7508: IF (l_acct_owner_count > 1) THEN
7509: fnd_message.set_name('CSI','CSI_INT_MULTI_ACCT_OWNER');
7510: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7511: fnd_msg_pub.add;
7512: raise fnd_api.g_exc_error;
7513: END IF;
7514:
7515: /* If src_change_owner = Y and owner party does not exist then raise error */
7516: IF x_txn_sub_type_rec.src_change_owner = 'Y' THEN
7517: IF (l_acct_owner_count = 0) THEN
7518: fnd_message.set_name('CSI','CSI_INT_ACCT_OWNER_MISSING');
7519: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7520: fnd_msg_pub.add;
7521: raise fnd_api.g_exc_error;
7522: END IF;
7523: END IF;
7524:
7525: /*---------------------------------------------------------*/
7552: FROM sys.dual;
7553: EXCEPTION
7554: WHEN others THEN
7555: debug('Sequence csi_t_party_details_s is missing');
7556: raise fnd_api.g_exc_error;
7557: END;
7558:
7559: p_txn_party_detail_tbl(l_pty) := p_txn_party_detail_tbl(l_txn_pty);
7560: p_txn_party_detail_tbl(l_pty).instance_party_id := fnd_api.g_miss_num;
7556: raise fnd_api.g_exc_error;
7557: END;
7558:
7559: p_txn_party_detail_tbl(l_pty) := p_txn_party_detail_tbl(l_txn_pty);
7560: p_txn_party_detail_tbl(l_pty).instance_party_id := fnd_api.g_miss_num;
7561: p_txn_party_detail_tbl(l_pty).txn_party_detail_id := l_txn_party_detail_id;
7562: p_txn_party_detail_tbl(l_pty).relationship_type_code := 'SOLD_TO';
7563:
7564: csi_utl_pkg.get_party_id(
7565: p_cust_acct_id => p_order_line_rec.sold_to_org_id,
7566: x_party_id => l_party_id,
7567: x_return_status => l_return_status);
7568:
7569: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7570: RAISE fnd_api.g_exc_error;
7571: END IF;
7572:
7573: p_txn_party_detail_tbl(l_pty).party_source_id := l_party_id;
7566: x_party_id => l_party_id,
7567: x_return_status => l_return_status);
7568:
7569: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7570: RAISE fnd_api.g_exc_error;
7571: END IF;
7572:
7573: p_txn_party_detail_tbl(l_pty).party_source_id := l_party_id;
7574:
7576: p_cust_acct_id => p_order_line_rec.end_customer_id,
7577: x_party_id => l_owner_party,
7578: x_return_status => l_return_status);
7579:
7580: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7581: RAISE fnd_api.g_exc_error;
7582: END IF;
7583: --Added clause to if condition for bug 5897123 (FP 5764676)
7584: IF p_txn_party_detail_tbl(l_txn_pty).party_source_id <> l_owner_party AND x_txn_sub_type_rec.src_change_owner = 'Y' THEN
7577: x_party_id => l_owner_party,
7578: x_return_status => l_return_status);
7579:
7580: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7581: RAISE fnd_api.g_exc_error;
7582: END IF;
7583: --Added clause to if condition for bug 5897123 (FP 5764676)
7584: IF p_txn_party_detail_tbl(l_txn_pty).party_source_id <> l_owner_party AND x_txn_sub_type_rec.src_change_owner = 'Y' THEN
7585: -- Begin porting for 3625218: If owner party mismatch occurs then Erroring out if
7589: l_owner_pty_contacts = 'Y'
7590: THEN
7591: fnd_message.set_name('CSI','CSI_OWNER_PARTY_MISMATCH');
7592: fnd_msg_pub.add;
7593: RAISE fnd_api.g_exc_error;
7594: END IF;
7595: -- End porting for 3625218
7596: debug('Party_id on txn_dtls is not same as Shipment Party_id ');
7597: p_txn_party_detail_tbl(l_txn_pty).party_source_id := l_owner_party ;
7612: THEN
7613:
7614: debug('Building the SOLD_TO Account record. ');
7615: p_txn_pty_acct_dtl_tbl(l_acct) := p_txn_pty_acct_dtl_tbl(l_txn_acct);
7616: p_txn_pty_acct_dtl_tbl(l_acct).ip_account_id := fnd_api.g_miss_num;
7617: p_txn_pty_acct_dtl_tbl(l_acct).txn_party_detail_id := l_txn_party_detail_id;
7618: p_txn_pty_acct_dtl_tbl(l_acct).relationship_type_code := 'SOLD_TO';
7619: p_txn_pty_acct_dtl_tbl(l_acct).account_id := p_order_line_rec.sold_to_org_id;
7620:
7647:
7648: /* If the src_reference_reqd = "Y" then check if the instance is referenced */
7649: IF x_txn_sub_type_rec.src_reference_reqd = 'Y'
7650: AND
7651: NVL(p_txn_line_detail_tbl(i).instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
7652: THEN
7653: fnd_message.set_name('CSI','CSI_INT_INST_REF_MISSING');
7654: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7655: fnd_msg_pub.add;
7652: THEN
7653: fnd_message.set_name('CSI','CSI_INT_INST_REF_MISSING');
7654: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7655: fnd_msg_pub.add;
7656: raise fnd_api.g_exc_error;
7657: END IF;
7658:
7659: /* If the src_return_reqd = "Y" then check if the return_by_date is not null */
7660: IF x_txn_sub_type_rec.src_return_reqd = 'Y'
7658:
7659: /* If the src_return_reqd = "Y" then check if the return_by_date is not null */
7660: IF x_txn_sub_type_rec.src_return_reqd = 'Y'
7661: AND
7662: NVL(p_txn_line_detail_tbl(i).return_by_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE
7663: THEN
7664: fnd_message.set_name('CSI','CSI_INT_RET_DATE_MISSING');
7665: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7666: fnd_msg_pub.add;
7663: THEN
7664: fnd_message.set_name('CSI','CSI_INT_RET_DATE_MISSING');
7665: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7666: fnd_msg_pub.add;
7667: raise fnd_api.g_exc_error;
7668: END IF;
7669:
7670: IF p_txn_party_detail_tbl.count > 0 THEN
7671: FOR j in p_txn_party_detail_tbl.first..p_txn_party_detail_tbl.last LOOP
7670: IF p_txn_party_detail_tbl.count > 0 THEN
7671: FOR j in p_txn_party_detail_tbl.first..p_txn_party_detail_tbl.last LOOP
7672: IF p_txn_party_detail_tbl(j).txn_line_detail_id = p_txn_line_detail_tbl(i).txn_line_detail_id THEN
7673:
7674: IF NVL(p_txn_line_detail_tbl(i).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num AND
7675: NVL(p_txn_party_detail_tbl(j).instance_party_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
7676:
7677: /* validate if the instance_party_id is for that instance_id */
7678: l_found := csi_utl_pkg.validate_inst_party
7671: FOR j in p_txn_party_detail_tbl.first..p_txn_party_detail_tbl.last LOOP
7672: IF p_txn_party_detail_tbl(j).txn_line_detail_id = p_txn_line_detail_tbl(i).txn_line_detail_id THEN
7673:
7674: IF NVL(p_txn_line_detail_tbl(i).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num AND
7675: NVL(p_txn_party_detail_tbl(j).instance_party_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
7676:
7677: /* validate if the instance_party_id is for that instance_id */
7678: l_found := csi_utl_pkg.validate_inst_party
7679: (p_txn_line_detail_tbl(i).instance_id,
7685: fnd_message.set_token('INSTANCE_ID',p_txn_line_detail_tbl(i).instance_id);
7686: fnd_message.set_token('INSTANCE_PARTY_ID',p_txn_party_detail_tbl(j).instance_party_id);
7687: fnd_message.set_token('RELATIONSHIP_TYPE_CODE',p_txn_party_detail_tbl(j).relationship_type_code);
7688: fnd_msg_pub.add;
7689: raise fnd_api.g_exc_error;
7690: END IF;
7691: END IF;
7692:
7693: IF (p_txn_party_detail_tbl(j).relationship_type_code = 'OWNER') THEN
7692:
7693: IF (p_txn_party_detail_tbl(j).relationship_type_code = 'OWNER') THEN
7694: IF (x_txn_sub_type_rec.src_change_owner = 'Y') THEN
7695:
7696: IF NVL(p_txn_line_detail_tbl(i).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
7697: IF x_txn_sub_type_rec.src_chg_owner_code = 'E' THEN
7698:
7699: /* if change_owner = Y and chg_owner_code = E then party id should
7700: be external party id */
7702: fnd_message.set_name('CSI','CSI_INT_INV_PTY_ID');
7703: fnd_message.set_token('PARTY_ID',p_txn_party_detail_tbl(j).party_source_id);
7704: fnd_message.set_token('INTERNAL_PARTY_ID',p_order_line_rec.internal_party_id);
7705: fnd_msg_pub.add;
7706: raise fnd_api.g_exc_error;
7707: END IF;
7708: ELSE
7709: /* if change_owner = N and chg_owner_code <> E then party id should
7710: be external party id */
7712: fnd_message.set_name('CSI','CSI_INT_INV_PTY_ID');
7713: fnd_message.set_token('PARTY_ID',p_txn_party_detail_tbl(j).party_source_id);
7714: fnd_message.set_token('INTERNAL_PARTY_ID',p_order_line_rec.internal_party_id);
7715: fnd_msg_pub.add;
7716: raise fnd_api.g_exc_error;
7717: END IF;
7718: END IF;
7719: END IF;
7720: END IF;
7727:
7728: /* If the src_reference_reqd = "Y" then check if the instance is referenced */
7729: IF x_txn_sub_type_rec.nsrc_reference_reqd = 'Y'
7730: AND
7731: NVL(p_txn_line_detail_tbl(i).instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
7732: THEN
7733: fnd_message.set_name('CSI','CSI_INT_INST_REF_MISSING');
7734: fnd_msg_pub.add;
7735: raise fnd_api.g_exc_error;
7731: NVL(p_txn_line_detail_tbl(i).instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
7732: THEN
7733: fnd_message.set_name('CSI','CSI_INT_INST_REF_MISSING');
7734: fnd_msg_pub.add;
7735: raise fnd_api.g_exc_error;
7736: END IF;
7737:
7738: /* If the src_return_reqd = "Y" then check if the return_by_date is not null */
7739:
7738: /* If the src_return_reqd = "Y" then check if the return_by_date is not null */
7739:
7740: IF x_txn_sub_type_rec.nsrc_return_reqd = 'Y'
7741: AND
7742: NVL(p_txn_line_detail_tbl(i).return_by_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE
7743: THEN
7744: fnd_message.set_name('CSI','CSI_INT_RET_DATE_MISSING');
7745: fnd_msg_pub.add;
7746: raise fnd_api.g_exc_error;
7742: NVL(p_txn_line_detail_tbl(i).return_by_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE
7743: THEN
7744: fnd_message.set_name('CSI','CSI_INT_RET_DATE_MISSING');
7745: fnd_msg_pub.add;
7746: raise fnd_api.g_exc_error;
7747: END IF;
7748:
7749: /* If src_reference_reqd = 'Y' then the relationship should be defined in the txn_ii_rltns_tbl */
7750:
7756: THEN
7757: fnd_message.set_name('CSI','CSI_INT_NSRC_REL_MISSING');
7758: fnd_message.set_token('TXN_LINE_DETAIL_ID',p_txn_line_detail_tbl(i).txn_line_detail_id );
7759: fnd_msg_pub.add;
7760: raise fnd_api.g_exc_error;
7761: END IF;
7762:
7763: IF p_txn_party_detail_tbl.count > 0 THEN
7764: FOR j in p_txn_party_detail_tbl.first..p_txn_party_detail_tbl.last LOOP
7763: IF p_txn_party_detail_tbl.count > 0 THEN
7764: FOR j in p_txn_party_detail_tbl.first..p_txn_party_detail_tbl.last LOOP
7765: IF p_txn_party_detail_tbl(j).txn_line_detail_id = p_txn_line_detail_tbl(i).txn_line_detail_id THEN
7766:
7767: IF NVL(p_txn_line_detail_tbl(i).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num AND
7768: NVL(p_txn_party_detail_tbl(j).instance_party_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
7769:
7770: /* validate if the instance_party_id is for that instance_id */
7771:
7764: FOR j in p_txn_party_detail_tbl.first..p_txn_party_detail_tbl.last LOOP
7765: IF p_txn_party_detail_tbl(j).txn_line_detail_id = p_txn_line_detail_tbl(i).txn_line_detail_id THEN
7766:
7767: IF NVL(p_txn_line_detail_tbl(i).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num AND
7768: NVL(p_txn_party_detail_tbl(j).instance_party_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
7769:
7770: /* validate if the instance_party_id is for that instance_id */
7771:
7772: l_found := csi_utl_pkg.validate_inst_party
7778: fnd_message.set_token('INSTANCE_ID',p_txn_line_detail_tbl(i).instance_id);
7779: fnd_message.set_token('INSTANCE_PARTY_ID',p_txn_party_detail_tbl(j).instance_party_id);
7780: fnd_message.set_token('RELATIONSHIP_TYPE_CODE',p_txn_party_detail_tbl(j).relationship_type_code);
7781: fnd_msg_pub.add;
7782: raise fnd_api.g_exc_error;
7783: END IF;
7784: END IF;
7785:
7786: IF (p_txn_party_detail_tbl(j).relationship_type_code = 'OWNER') THEN
7794: fnd_message.set_name('CSI','CSI_INT_INV_PTY_ID');
7795: fnd_message.set_token('PARTY_ID',p_txn_party_detail_tbl(j).party_source_id);
7796: fnd_message.set_token('INSTANCE_PARTY_ID',p_order_line_rec.internal_party_id);
7797: fnd_msg_pub.add;
7798: raise fnd_api.g_exc_error;
7799: END IF;
7800: ELSE
7801:
7802: /* if change_owner = N and chg_owner_code <> E then party id should
7806: fnd_message.set_name('CSI','CSI_INT_INV_PTY_ID');
7807: fnd_message.set_token('PARTY_ID',p_txn_party_detail_tbl(j).party_source_id);
7808: fnd_message.set_token('INSTANCE_PARTY_ID',p_order_line_rec.internal_party_id);
7809: fnd_msg_pub.add;
7810: raise fnd_api.g_exc_error;
7811: END IF;
7812: END IF;
7813: END IF;
7814: END IF;
7825: FOR j in p_txn_ii_rltns_tbl.first..p_txn_ii_rltns_tbl.last LOOP
7826:
7827: debug('Validating ii_relationships .. ' );
7828:
7829: IF NVL(p_txn_ii_rltns_tbl(j).csi_inst_relationship_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
7830:
7831: csi_utl_pkg.get_inst_relation(
7832: p_ii_relationship_id => p_txn_ii_rltns_tbl(j).csi_inst_relationship_id,
7833: x_object_id => l_curr_object_id,
7833: x_object_id => l_curr_object_id,
7834: x_subject_id => l_curr_subject_id,
7835: x_return_status => x_return_status);
7836:
7837: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7838: fnd_message.set_name('CSI','CSI_INT_II_REL_MISSING');
7839: fnd_message.set_token('II_RELATIONSHIP_ID',p_txn_ii_rltns_tbl(j).csi_inst_relationship_id);
7840: fnd_msg_pub.add;
7841: raise fnd_api.g_exc_error;
7837: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7838: fnd_message.set_name('CSI','CSI_INT_II_REL_MISSING');
7839: fnd_message.set_token('II_RELATIONSHIP_ID',p_txn_ii_rltns_tbl(j).csi_inst_relationship_id);
7840: fnd_msg_pub.add;
7841: raise fnd_api.g_exc_error;
7842: END IF;
7843:
7844: IF p_txn_line_detail_tbl.count > 0 THEN
7845: FOR i IN p_txn_line_detail_tbl.FIRST..p_txn_line_detail_tbl.LAST LOOP
7855: IF l_curr_object_id <> l_object_inst_id THEN
7856: fnd_message.set_name('CSI','CSI_INT_OBJ_ID_NOT_ALLOW_UPD');
7857: fnd_message.set_token('OBJECT_ID',l_object_inst_id);
7858: fnd_msg_pub.add;
7859: raise fnd_api.g_exc_error;
7860: END IF;
7861:
7862: END IF;
7863:
7870: END LOOP;
7871: END IF; -- end of relationship validation
7872:
7873: EXCEPTION
7874: WHEN FND_API.G_EXC_ERROR THEN
7875: x_return_status := FND_API.G_RET_STS_ERROR ;
7876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7878: END validate_txn_tbl;
7871: END IF; -- end of relationship validation
7872:
7873: EXCEPTION
7874: WHEN FND_API.G_EXC_ERROR THEN
7875: x_return_status := FND_API.G_RET_STS_ERROR ;
7876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7878: END validate_txn_tbl;
7879:
7872:
7873: EXCEPTION
7874: WHEN FND_API.G_EXC_ERROR THEN
7875: x_return_status := FND_API.G_RET_STS_ERROR ;
7876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7878: END validate_txn_tbl;
7879:
7880: /*----------------------------------------------------------*/
7873: EXCEPTION
7874: WHEN FND_API.G_EXC_ERROR THEN
7875: x_return_status := FND_API.G_RET_STS_ERROR ;
7876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7878: END validate_txn_tbl;
7879:
7880: /*----------------------------------------------------------*/
7881: /* Procedure name: process_option_item */
7916: x_cre_txn_systems_tbl csi_t_datastructures_grp.txn_systems_tbl;
7917: x_cre_txn_ii_rltns_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
7918:
7919: l_install_party_site_id NUMBER;
7920: l_parent_line_qty NUMBER := fnd_api.g_miss_num;
7921: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
7922:
7923: BEGIN
7924:
7917: x_cre_txn_ii_rltns_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
7918:
7919: l_install_party_site_id NUMBER;
7920: l_parent_line_qty NUMBER := fnd_api.g_miss_num;
7921: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
7922:
7923: BEGIN
7924:
7925: -- Initialize API return status to success
7922:
7923: BEGIN
7924:
7925: -- Initialize API return status to success
7926: x_return_status := fnd_api.g_ret_sts_success;
7927:
7928: api_log('process_option_item');
7929:
7930: /* Initialize the pl/sql tables */
7936: x_cre_txn_systems_tbl.delete;
7937: x_cre_txn_ii_rltns_tbl.delete;
7938:
7939: -- assign values for the columns in Txn_line_rec
7940: x_cre_txn_line_rec.transaction_line_id := fnd_api.g_miss_num;
7941: x_cre_txn_line_rec.source_transaction_id := p_order_line_rec.order_line_id;
7942: x_cre_txn_line_rec.source_transaction_type_id := g_txn_type_id;
7943: x_cre_txn_line_rec.source_transaction_table := 'WSH_DELIVERY_DETAILS';
7944: x_cre_txn_line_rec.processing_status := 'IN_PROCESS';
7966: EXCEPTION
7967: WHEN no_data_found THEN
7968: csi_t_txn_details_grp.create_transaction_dtls(
7969: p_api_version => 1.0,
7970: p_commit => fnd_api.g_false,
7971: p_init_msg_list => fnd_api.g_true,
7972: p_validation_level => fnd_api.g_valid_level_none,
7973: px_txn_line_rec => x_cre_txn_line_rec,
7974: px_txn_line_detail_tbl => x_cre_txn_line_dtls_tbl,
7967: WHEN no_data_found THEN
7968: csi_t_txn_details_grp.create_transaction_dtls(
7969: p_api_version => 1.0,
7970: p_commit => fnd_api.g_false,
7971: p_init_msg_list => fnd_api.g_true,
7972: p_validation_level => fnd_api.g_valid_level_none,
7973: px_txn_line_rec => x_cre_txn_line_rec,
7974: px_txn_line_detail_tbl => x_cre_txn_line_dtls_tbl,
7975: px_txn_party_detail_tbl => x_cre_txn_party_dtls_tbl,
7968: csi_t_txn_details_grp.create_transaction_dtls(
7969: p_api_version => 1.0,
7970: p_commit => fnd_api.g_false,
7971: p_init_msg_list => fnd_api.g_true,
7972: p_validation_level => fnd_api.g_valid_level_none,
7973: px_txn_line_rec => x_cre_txn_line_rec,
7974: px_txn_line_detail_tbl => x_cre_txn_line_dtls_tbl,
7975: px_txn_party_detail_tbl => x_cre_txn_party_dtls_tbl,
7976: px_txn_pty_acct_detail_tbl => x_cre_txn_pty_acct_dtls_tbl,
7983: x_msg_data => x_msg_data);
7984:
7985: l_trx_line_id := x_cre_txn_line_rec.transaction_line_id;
7986:
7987: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7988: raise fnd_api.g_exc_error;
7989: END IF;
7990:
7991: END ;
7984:
7985: l_trx_line_id := x_cre_txn_line_rec.transaction_line_id;
7986:
7987: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7988: raise fnd_api.g_exc_error;
7989: END IF;
7990:
7991: END ;
7992:
7999: p_link_to_line_id => p_order_line_rec.link_to_line_id,
8000: x_qty_ratio => l_qty_ratio ,
8001: x_return_status => l_return_status );
8002:
8003: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
8004: raise fnd_api.g_exc_error;
8005: END IF;
8006:
8007: rebuild_shipping_tbl(
8000: x_qty_ratio => l_qty_ratio ,
8001: x_return_status => l_return_status );
8002:
8003: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
8004: raise fnd_api.g_exc_error;
8005: END IF;
8006:
8007: rebuild_shipping_tbl(
8008: p_qty_ratio => l_qty_ratio
8008: p_qty_ratio => l_qty_ratio
8009: ,x_order_shipment_tbl => x_order_shipment_tbl
8010: ,x_return_status => x_return_status );
8011:
8012: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
8013: debug('rebuild_shipping_tbl failed ');
8014: raise fnd_api.g_exc_error;
8015: END IF;
8016:
8010: ,x_return_status => x_return_status );
8011:
8012: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
8013: debug('rebuild_shipping_tbl failed ');
8014: raise fnd_api.g_exc_error;
8015: END IF;
8016:
8017:
8018:
8033: fnd_message.set_name('CSI','CSI_INT_PTY_SITE_MISSING');
8034: fnd_message.set_token('LOCATION_ID', x_order_shipment_tbl(i).ib_current_loc_id); -- ship_to_org_id);
8035: fnd_msg_pub.add;
8036: debug('Party_site_id not found');
8037: raise fnd_api.g_exc_error;
8038: when too_many_rows then
8039: fnd_message.set_name('CSI','CSI_INT_MANY_PTY_SITE_FOUND');
8040: fnd_message.set_token('LOCATION_ID', x_order_shipment_tbl(i).ib_current_loc_id); -- ship_to_org_id);
8041: fnd_msg_pub.add;
8039: fnd_message.set_name('CSI','CSI_INT_MANY_PTY_SITE_FOUND');
8040: fnd_message.set_token('LOCATION_ID', x_order_shipment_tbl(i).ib_current_loc_id); -- ship_to_org_id);
8041: fnd_msg_pub.add;
8042: debug('Party_site_id not found');
8043: raise fnd_api.g_exc_error;
8044: END ;
8045:
8046: IF x_order_shipment_tbl(i).ib_install_loc is not null
8047: AND
8046: IF x_order_shipment_tbl(i).ib_install_loc is not null
8047: AND
8048: x_order_shipment_tbl(i).ib_install_loc_id is not null
8049: AND
8050: x_order_shipment_tbl(i).ib_install_loc_id <> fnd_api.g_miss_num
8051: Then
8052: BEGIN
8053: SELECT party_site_id
8054: INTO l_install_party_site_id
8061: fnd_message.set_name('CSI','CSI_INT_PTY_SITE_MISSING');
8062: fnd_message.set_token('LOCATION_ID', x_order_shipment_tbl(i).ib_install_loc_id); -- ship_to_org_id);
8063: fnd_msg_pub.add;
8064: debug('Party_site_id not found');
8065: raise fnd_api.g_exc_error;
8066: when too_many_rows then
8067: fnd_message.set_name('CSI','CSI_INT_MANY_PTY_SITE_FOUND');
8068: fnd_message.set_token('LOCATION_ID', x_order_shipment_tbl(i).ib_install_loc_id); -- ship_to_org_id);
8069: fnd_msg_pub.add;
8067: fnd_message.set_name('CSI','CSI_INT_MANY_PTY_SITE_FOUND');
8068: fnd_message.set_token('LOCATION_ID', x_order_shipment_tbl(i).ib_install_loc_id); -- ship_to_org_id);
8069: fnd_msg_pub.add;
8070: debug('Party_site_id not found');
8071: raise fnd_api.g_exc_error;
8072: end ;
8073: END IF;
8074:
8075:
8080: x_cre_txn_line_dtls_tbl(i).source_transaction_flag := 'Y';
8081: x_cre_txn_line_dtls_tbl(i).inventory_item_id := x_order_shipment_tbl(i).inventory_item_id ;
8082: x_cre_txn_line_dtls_tbl(i).inv_organization_id := x_order_shipment_tbl(i).organization_id ;
8083: x_cre_txn_line_dtls_tbl(i).inventory_revision := x_order_shipment_tbl(i).revision ;
8084: x_cre_txn_line_dtls_tbl(i).item_condition_id := fnd_api.g_miss_num;
8085: x_cre_txn_line_dtls_tbl(i).instance_type_code := fnd_api.g_miss_char;
8086: x_cre_txn_line_dtls_tbl(i).quantity := x_order_shipment_tbl(i).shipped_quantity ;
8087: x_cre_txn_line_dtls_tbl(i).unit_of_measure := x_order_shipment_tbl(i).transaction_uom ;
8088: x_cre_txn_line_dtls_tbl(i).serial_number := x_order_shipment_tbl(i).serial_number;
8081: x_cre_txn_line_dtls_tbl(i).inventory_item_id := x_order_shipment_tbl(i).inventory_item_id ;
8082: x_cre_txn_line_dtls_tbl(i).inv_organization_id := x_order_shipment_tbl(i).organization_id ;
8083: x_cre_txn_line_dtls_tbl(i).inventory_revision := x_order_shipment_tbl(i).revision ;
8084: x_cre_txn_line_dtls_tbl(i).item_condition_id := fnd_api.g_miss_num;
8085: x_cre_txn_line_dtls_tbl(i).instance_type_code := fnd_api.g_miss_char;
8086: x_cre_txn_line_dtls_tbl(i).quantity := x_order_shipment_tbl(i).shipped_quantity ;
8087: x_cre_txn_line_dtls_tbl(i).unit_of_measure := x_order_shipment_tbl(i).transaction_uom ;
8088: x_cre_txn_line_dtls_tbl(i).serial_number := x_order_shipment_tbl(i).serial_number;
8089: x_cre_txn_line_dtls_tbl(i).lot_number := x_order_shipment_tbl(i).lot_number;
8107:
8108: l_inst_party_id := csi_utl_pkg.get_instance_party_id(l_instance_id);
8109:
8110: IF l_inst_party_id = -1 THEN
8111: raise fnd_api.g_exc_error;
8112: END IF;
8113:
8114: -- assign values for the columns in txn_party_detail_tbl
8115: x_cre_txn_party_dtls_tbl(i).instance_party_id := l_inst_party_id;
8145: x_cre_txn_pty_acct_dtls_tbl(i).object_version_number := 1;
8146: x_cre_txn_pty_acct_dtls_tbl(i).txn_party_details_index := i;
8147:
8148: /*assign values for the columns in x_txn_org_assgn_tbl */
8149: IF nvl(x_order_shipment_tbl(i).sold_from_org_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
8150: THEN
8151: x_cre_txn_org_assgn_tbl(i).txn_operating_unit_id := fnd_api.g_miss_num;
8152: x_cre_txn_org_assgn_tbl(i).txn_line_detail_id := fnd_api.g_miss_num;
8153: x_cre_txn_org_assgn_tbl(i).instance_ou_id := fnd_api.g_miss_num;
8147:
8148: /*assign values for the columns in x_txn_org_assgn_tbl */
8149: IF nvl(x_order_shipment_tbl(i).sold_from_org_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
8150: THEN
8151: x_cre_txn_org_assgn_tbl(i).txn_operating_unit_id := fnd_api.g_miss_num;
8152: x_cre_txn_org_assgn_tbl(i).txn_line_detail_id := fnd_api.g_miss_num;
8153: x_cre_txn_org_assgn_tbl(i).instance_ou_id := fnd_api.g_miss_num;
8154: x_cre_txn_org_assgn_tbl(i).operating_unit_id := x_order_shipment_tbl(i).sold_from_org_id;
8155: x_cre_txn_org_assgn_tbl(i).relationship_type_code := 'SOLD_FROM';
8148: /*assign values for the columns in x_txn_org_assgn_tbl */
8149: IF nvl(x_order_shipment_tbl(i).sold_from_org_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
8150: THEN
8151: x_cre_txn_org_assgn_tbl(i).txn_operating_unit_id := fnd_api.g_miss_num;
8152: x_cre_txn_org_assgn_tbl(i).txn_line_detail_id := fnd_api.g_miss_num;
8153: x_cre_txn_org_assgn_tbl(i).instance_ou_id := fnd_api.g_miss_num;
8154: x_cre_txn_org_assgn_tbl(i).operating_unit_id := x_order_shipment_tbl(i).sold_from_org_id;
8155: x_cre_txn_org_assgn_tbl(i).relationship_type_code := 'SOLD_FROM';
8156: x_cre_txn_org_assgn_tbl(i).active_start_date := sysdate;
8149: IF nvl(x_order_shipment_tbl(i).sold_from_org_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
8150: THEN
8151: x_cre_txn_org_assgn_tbl(i).txn_operating_unit_id := fnd_api.g_miss_num;
8152: x_cre_txn_org_assgn_tbl(i).txn_line_detail_id := fnd_api.g_miss_num;
8153: x_cre_txn_org_assgn_tbl(i).instance_ou_id := fnd_api.g_miss_num;
8154: x_cre_txn_org_assgn_tbl(i).operating_unit_id := x_order_shipment_tbl(i).sold_from_org_id;
8155: x_cre_txn_org_assgn_tbl(i).relationship_type_code := 'SOLD_FROM';
8156: x_cre_txn_org_assgn_tbl(i).active_start_date := sysdate;
8157: x_cre_txn_org_assgn_tbl(i).preserve_detail_flag := 'Y';
8173:
8174: -- call api to create the transaction line details
8175: csi_t_txn_line_dtls_pvt.create_txn_line_dtls(
8176: p_api_version => 1.0 ,
8177: p_commit => fnd_api.g_false,
8178: p_init_msg_list => fnd_api.g_true,
8179: p_validation_level => fnd_api.g_valid_level_none,
8180: p_txn_line_dtl_index => l_index,
8181: p_txn_line_dtl_rec => x_txn_line_dtl_rec,
8174: -- call api to create the transaction line details
8175: csi_t_txn_line_dtls_pvt.create_txn_line_dtls(
8176: p_api_version => 1.0 ,
8177: p_commit => fnd_api.g_false,
8178: p_init_msg_list => fnd_api.g_true,
8179: p_validation_level => fnd_api.g_valid_level_none,
8180: p_txn_line_dtl_index => l_index,
8181: p_txn_line_dtl_rec => x_txn_line_dtl_rec,
8182: px_txn_party_dtl_tbl => x_cre_txn_party_dtls_tbl,
8175: csi_t_txn_line_dtls_pvt.create_txn_line_dtls(
8176: p_api_version => 1.0 ,
8177: p_commit => fnd_api.g_false,
8178: p_init_msg_list => fnd_api.g_true,
8179: p_validation_level => fnd_api.g_valid_level_none,
8180: p_txn_line_dtl_index => l_index,
8181: p_txn_line_dtl_rec => x_txn_line_dtl_rec,
8182: px_txn_party_dtl_tbl => x_cre_txn_party_dtls_tbl,
8183: px_txn_pty_acct_detail_tbl => x_cre_txn_pty_acct_dtls_tbl,
8187: x_return_status => x_return_status,
8188: x_msg_count => x_msg_count,
8189: x_msg_data => x_msg_data);
8190:
8191: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8192: raise fnd_api.g_exc_error;
8193: END IF;
8194:
8195: -- assign the txn details in the shipping pl/sql table
8188: x_msg_count => x_msg_count,
8189: x_msg_data => x_msg_data);
8190:
8191: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8192: raise fnd_api.g_exc_error;
8193: END IF;
8194:
8195: -- assign the txn details in the shipping pl/sql table
8196: x_order_shipment_tbl(i).txn_dtls_qty := x_order_shipment_tbl(i).shipped_quantity ;
8206: csi_utl_pkg.create_txn_dtls(
8207: p_source_trx_id => p_order_line_rec.order_line_id,
8208: p_source_trx_table => 'WSH_DELIVERY_DETAILS',
8209: x_return_status => l_return_status );
8210: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8211: raise fnd_api.g_exc_error;
8212: END IF;
8213: END IF;
8214:
8207: p_source_trx_id => p_order_line_rec.order_line_id,
8208: p_source_trx_table => 'WSH_DELIVERY_DETAILS',
8209: x_return_status => l_return_status );
8210: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8211: raise fnd_api.g_exc_error;
8212: END IF;
8213: END IF;
8214:
8215:
8215:
8216: END IF;
8217:
8218: EXCEPTION
8219: WHEN FND_API.G_EXC_ERROR THEN
8220: x_return_status := FND_API.G_RET_STS_ERROR ;
8221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8223: END process_option_item;
8216: END IF;
8217:
8218: EXCEPTION
8219: WHEN FND_API.G_EXC_ERROR THEN
8220: x_return_status := FND_API.G_RET_STS_ERROR ;
8221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8223: END process_option_item;
8224:
8217:
8218: EXCEPTION
8219: WHEN FND_API.G_EXC_ERROR THEN
8220: x_return_status := FND_API.G_RET_STS_ERROR ;
8221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8223: END process_option_item;
8224:
8225: /*----------------------------------------------------------*/
8218: EXCEPTION
8219: WHEN FND_API.G_EXC_ERROR THEN
8220: x_return_status := FND_API.G_RET_STS_ERROR ;
8221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8223: END process_option_item;
8224:
8225: /*----------------------------------------------------------*/
8226: /* Procedure name: rebuild_shipping_tbl */
8246:
8247: BEGIN
8248:
8249: -- Initialize API return status to success
8250: x_return_status := fnd_api.g_ret_sts_success;
8251:
8252: api_log('rebuild_shipping_tbl');
8253:
8254: l_order_shipment_tbl.delete;
8338:
8339: debug('x_order_shipment_tbl.count ='||x_order_shipment_tbl.count );
8340:
8341: EXCEPTION
8342: WHEN FND_API.G_EXC_ERROR THEN
8343: x_return_status := FND_API.G_RET_STS_ERROR ;
8344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8346: END rebuild_shipping_tbl;
8339: debug('x_order_shipment_tbl.count ='||x_order_shipment_tbl.count );
8340:
8341: EXCEPTION
8342: WHEN FND_API.G_EXC_ERROR THEN
8343: x_return_status := FND_API.G_RET_STS_ERROR ;
8344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8346: END rebuild_shipping_tbl;
8347:
8340:
8341: EXCEPTION
8342: WHEN FND_API.G_EXC_ERROR THEN
8343: x_return_status := FND_API.G_RET_STS_ERROR ;
8344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8346: END rebuild_shipping_tbl;
8347:
8348: /*----------------------------------------------------------*/
8341: EXCEPTION
8342: WHEN FND_API.G_EXC_ERROR THEN
8343: x_return_status := FND_API.G_RET_STS_ERROR ;
8344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8346: END rebuild_shipping_tbl;
8347:
8348: /*----------------------------------------------------------*/
8349: /* Procedure name :DECODE_MESSAGE */
8358: x_mtl_trx_rec OUT NOCOPY MTL_TXN_REC)
8359: IS
8360:
8361: l_api_name varchar2(100) := 'csi_order_ship_pub.decode_message';
8362: l_fnd_unexpected varchar2(1) := fnd_api.g_ret_sts_unexp_error;
8363: l_mtl_txn_id number;
8364: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
8365:
8366: BEGIN
8360:
8361: l_api_name varchar2(100) := 'csi_order_ship_pub.decode_message';
8362: l_fnd_unexpected varchar2(1) := fnd_api.g_ret_sts_unexp_error;
8363: l_mtl_txn_id number;
8364: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
8365:
8366: BEGIN
8367:
8368: -- Initialize API return status to success
8365:
8366: BEGIN
8367:
8368: -- Initialize API return status to success
8369: x_return_status := fnd_api.g_ret_sts_success;
8370:
8371: api_log('decode_message');
8372:
8373: xnp_xml_utils.decode(P_Msg_Text, 'MTL_TRANSACTION_ID', l_mtl_txn_id);
8372:
8373: xnp_xml_utils.decode(P_Msg_Text, 'MTL_TRANSACTION_ID', l_mtl_txn_id);
8374:
8375: IF (l_mtl_txn_id is NULL) or
8376: (l_mtl_txn_id = fnd_api.g_miss_num) THEN
8377: raise fnd_api.g_exc_error;
8378: END IF;
8379:
8380: csi_utl_pkg.get_source_trx_dtls(
8373: xnp_xml_utils.decode(P_Msg_Text, 'MTL_TRANSACTION_ID', l_mtl_txn_id);
8374:
8375: IF (l_mtl_txn_id is NULL) or
8376: (l_mtl_txn_id = fnd_api.g_miss_num) THEN
8377: raise fnd_api.g_exc_error;
8378: END IF;
8379:
8380: csi_utl_pkg.get_source_trx_dtls(
8381: p_mtl_transaction_id => l_mtl_txn_id,
8382: x_mtl_txn_rec => X_MTL_TRX_REC,
8383: x_error_message => x_error_message,
8384: x_return_status => l_return_status);
8385:
8386: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8387: raise fnd_api.g_exc_error;
8388: END IF;
8389:
8390: EXCEPTION
8383: x_error_message => x_error_message,
8384: x_return_status => l_return_status);
8385:
8386: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8387: raise fnd_api.g_exc_error;
8388: END IF;
8389:
8390: EXCEPTION
8391: WHEN fnd_api.g_exc_error THEN
8387: raise fnd_api.g_exc_error;
8388: END IF;
8389:
8390: EXCEPTION
8391: WHEN fnd_api.g_exc_error THEN
8392: fnd_message.set_name('CSI','CSI_DECODE_MGS_ERROR');
8393: fnd_message.set_token('message_id',p_msg_header.message_id);
8394: fnd_message.set_token('MESSAGE_CODE',p_msg_header.message_code);
8395: fnd_msg_pub.add;
8435: l_txn_systems_tbl csi_t_datastructures_grp.txn_systems_tbl;
8436:
8437: l_pricing_attribs_tbl csi_datastructures_pub.pricing_attribs_tbl;
8438:
8439: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
8440: l_return_message varchar2(2000);
8441: l_msg_count number;
8442: l_msg_data varchar2(2000);
8443:
8446: BEGIN
8447:
8448: savepoint oke_shipment;
8449:
8450: x_return_status := fnd_api.g_ret_sts_success;
8451: l_error_rec := px_trx_error_rec;
8452:
8453: /* builds the debug file name */
8454: csi_t_gen_utility_pvt.build_file_name (
8483: x_source_header_rec => l_source_header_rec,
8484: x_source_line_rec => l_source_line_rec,
8485: x_return_status => l_return_status);
8486:
8487: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8488: RAISE fnd_api.g_exc_error;
8489: END IF;
8490:
8491: l_error_rec.source_header_ref := l_source_header_rec.source_header_ref;
8484: x_source_line_rec => l_source_line_rec,
8485: x_return_status => l_return_status);
8486:
8487: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8488: RAISE fnd_api.g_exc_error;
8489: END IF;
8490:
8491: l_error_rec.source_header_ref := l_source_header_rec.source_header_ref;
8492: l_error_rec.source_header_ref_id := l_source_header_rec.source_header_id;
8501: p_organization_id => l_organization_id,
8502: x_item_attrib_rec => l_item_attrib_rec,
8503: x_return_status => l_return_status);
8504:
8505: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8506: RAISE fnd_api.g_exc_error;
8507: END IF;
8508:
8509: l_error_rec.inventory_item_id := l_inventory_item_id;
8502: x_item_attrib_rec => l_item_attrib_rec,
8503: x_return_status => l_return_status);
8504:
8505: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8506: RAISE fnd_api.g_exc_error;
8507: END IF;
8508:
8509: l_error_rec.inventory_item_id := l_inventory_item_id;
8510: l_error_rec.src_serial_num_ctrl_code := l_item_attrib_rec.serial_control_code;
8519: p_mtl_txn_id => p_mtl_txn_id,
8520: x_mtl_txn_tbl => l_mtl_txn_tbl,
8521: x_return_status => l_return_status);
8522:
8523: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8524: RAISE fnd_api.g_exc_error;
8525: END IF;
8526:
8527: IF l_mtl_txn_tbl.count > 0 THEN
8520: x_mtl_txn_tbl => l_mtl_txn_tbl,
8521: x_return_status => l_return_status);
8522:
8523: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8524: RAISE fnd_api.g_exc_error;
8525: END IF;
8526:
8527: IF l_mtl_txn_tbl.count > 0 THEN
8528:
8527: IF l_mtl_txn_tbl.count > 0 THEN
8528:
8529: -- create csi_txn_rec
8530:
8531: l_csi_txn_rec.transaction_id := fnd_api.g_miss_num;
8532: l_csi_txn_rec.source_header_ref_id := l_source_header_rec.source_header_id;
8533: l_csi_txn_rec.source_header_ref := l_source_header_rec.source_header_ref;
8534: l_csi_txn_rec.source_line_ref_id := l_source_line_rec.source_line_id;
8535: l_csi_txn_rec.source_line_ref := l_source_line_rec.source_line_ref;
8541: l_csi_txn_rec.transaction_status_code := 'PENDING';
8542:
8543: csi_transactions_pvt.create_transaction(
8544: p_api_version => 1.0,
8545: p_commit => fnd_api.g_false,
8546: p_init_msg_list => fnd_api.g_true,
8547: p_validation_level => fnd_api.g_valid_level_full,
8548: p_success_if_exists_flag => 'Y',
8549: p_transaction_rec => l_csi_txn_rec,
8542:
8543: csi_transactions_pvt.create_transaction(
8544: p_api_version => 1.0,
8545: p_commit => fnd_api.g_false,
8546: p_init_msg_list => fnd_api.g_true,
8547: p_validation_level => fnd_api.g_valid_level_full,
8548: p_success_if_exists_flag => 'Y',
8549: p_transaction_rec => l_csi_txn_rec,
8550: x_return_status => l_return_status,
8543: csi_transactions_pvt.create_transaction(
8544: p_api_version => 1.0,
8545: p_commit => fnd_api.g_false,
8546: p_init_msg_list => fnd_api.g_true,
8547: p_validation_level => fnd_api.g_valid_level_full,
8548: p_success_if_exists_flag => 'Y',
8549: p_transaction_rec => l_csi_txn_rec,
8550: x_return_status => l_return_status,
8551: x_msg_count => l_msg_count,
8555: p_item_attrib_rec => l_item_attrib_rec,
8556: px_mtl_txn_tbl => l_mtl_txn_tbl,
8557: x_return_status => l_return_status);
8558:
8559: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8560: RAISE fnd_api.g_exc_error;
8561: END IF;
8562:
8563: csi_interface_pkg.get_inventory_instances(
8556: px_mtl_txn_tbl => l_mtl_txn_tbl,
8557: x_return_status => l_return_status);
8558:
8559: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8560: RAISE fnd_api.g_exc_error;
8561: END IF;
8562:
8563: csi_interface_pkg.get_inventory_instances(
8564: p_item_attrib_rec => l_item_attrib_rec,
8564: p_item_attrib_rec => l_item_attrib_rec,
8565: px_mtl_txn_tbl => l_mtl_txn_tbl,
8566: x_return_status => l_return_status);
8567:
8568: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8569: RAISE fnd_api.g_exc_error;
8570: END IF;
8571:
8572: -- decrement source instances
8565: px_mtl_txn_tbl => l_mtl_txn_tbl,
8566: x_return_status => l_return_status);
8567:
8568: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8569: RAISE fnd_api.g_exc_error;
8570: END IF;
8571:
8572: -- decrement source instances
8573: csi_interface_pkg.decrement_inventory_instances(
8575: p_mtl_txn_tbl => l_mtl_txn_tbl,
8576: px_txn_rec => l_csi_txn_rec,
8577: x_return_status => l_return_status);
8578:
8579: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8580: RAISE fnd_api.g_exc_error;
8581: END IF;
8582:
8583: IF l_item_attrib_rec.serial_control_code = 6 THEN
8576: px_txn_rec => l_csi_txn_rec,
8577: x_return_status => l_return_status);
8578:
8579: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8580: RAISE fnd_api.g_exc_error;
8581: END IF;
8582:
8583: IF l_item_attrib_rec.serial_control_code = 6 THEN
8584: IF l_mtl_txn_tbl.count > 0 THEN
8592: AND serial_number = l_mtl_txn_tbl(ret_ind).serial_number
8593: AND instance_usage_code = 'RETURNED';
8594: EXCEPTION
8595: WHEN no_data_found THEN
8596: l_mtl_txn_tbl(ret_ind).instance_id := fnd_api.g_miss_num;
8597: END;
8598: END LOOP;
8599: END IF;
8600: END IF;
8612: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
8613: x_pricing_attribs_tbl => l_pricing_attribs_tbl,
8614: x_return_status => l_return_status);
8615:
8616: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8617: RAISE fnd_api.g_exc_error;
8618: END IF;
8619:
8620: -- match transaction detail with material transaction
8613: x_pricing_attribs_tbl => l_pricing_attribs_tbl,
8614: x_return_status => l_return_status);
8615:
8616: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8617: RAISE fnd_api.g_exc_error;
8618: END IF;
8619:
8620: -- match transaction detail with material transaction
8621: csi_interface_pkg.sync_txn_dtl_and_mtl_txn(
8628: px_txn_eav_tbl => l_txn_eav_tbl,
8629: px_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
8630: x_return_status => l_return_status);
8631:
8632: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8633: RAISE fnd_api.g_exc_error;
8634: END IF;
8635:
8636: -- ##**##-- comment this line later.
8629: px_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
8630: x_return_status => l_return_status);
8631:
8632: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8633: RAISE fnd_api.g_exc_error;
8634: END IF;
8635:
8636: -- ##**##-- comment this line later.
8637: l_source_line_rec.fulfilled_date := sysdate;
8650: px_pricing_attribs_tbl => l_pricing_attribs_tbl,
8651: x_return_status => l_return_status,
8652: x_return_message => l_return_message);
8653:
8654: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8655: RAISE fnd_api.g_exc_error;
8656: END IF;
8657:
8658: ELSE
8651: x_return_status => l_return_status,
8652: x_return_message => l_return_message);
8653:
8654: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8655: RAISE fnd_api.g_exc_error;
8656: END IF;
8657:
8658: ELSE
8659: null;
8660: -- no material transaction records. error to be set
8661: END IF;
8662:
8663: EXCEPTION
8664: WHEN fnd_api.g_exc_error THEN
8665: rollback to oke_shipment;
8666: x_return_status := fnd_api.g_ret_sts_error;
8667: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
8668: px_trx_error_rec := l_error_rec;
8662:
8663: EXCEPTION
8664: WHEN fnd_api.g_exc_error THEN
8665: rollback to oke_shipment;
8666: x_return_status := fnd_api.g_ret_sts_error;
8667: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
8668: px_trx_error_rec := l_error_rec;
8669: debug('Error(E) :'||l_error_rec.error_text);
8670: WHEN others THEN
8671: rollback to oke_shipment;
8672: fnd_message.set_name ('FND', 'FND_GENERIC_MESSAGE');
8673: fnd_message.set_token('MESSAGE', 'OTHERS Error :'||substr(sqlerrm, 1, 540));
8674: fnd_msg_pub.add;
8675: x_return_status := fnd_api.g_ret_sts_error;
8676: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
8677: px_trx_error_rec := l_error_rec;
8678: debug('Error(O) :'||l_error_rec.error_text);
8679: END oke_shipment;