[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;
566: /* Standard Start of API savepoint */
567: savepoint order_shipment;
568:
569: /* Initialize API return status to success */
570: x_return_status := fnd_api.g_ret_sts_success;
571: l_error_rec := px_trx_error_rec;
572:
573: csi_t_gen_utility_pvt.build_file_name (
574: p_file_segment1 => 'csisoshp',
589: csi_utl_pkg.get_int_party(
590: x_int_party_id => l_internal_party_id,
591: x_return_status => l_return_status);
592:
593: IF l_return_status <> fnd_api.g_ret_sts_success THEN
594: raise fnd_api.g_exc_error;
595: END IF;
596:
597: -- Get the order line details
590: x_int_party_id => l_internal_party_id,
591: x_return_status => l_return_status);
592:
593: IF l_return_status <> fnd_api.g_ret_sts_success THEN
594: raise fnd_api.g_exc_error;
595: END IF;
596:
597: -- Get the order line details
598: csi_utl_pkg.get_order_line_dtls(
599: p_mtl_transaction_id => p_mtl_transaction_id,
600: x_order_line_rec => l_order_line_rec,
601: x_return_status => l_return_status);
602:
603: IF l_return_status <> fnd_api.g_ret_sts_success THEN
604: raise fnd_api.g_exc_error;
605: END IF;
606:
607: -- Bug 10100285/Bug 10113627
600: x_order_line_rec => l_order_line_rec,
601: x_return_status => l_return_status);
602:
603: IF l_return_status <> fnd_api.g_ret_sts_success THEN
604: raise fnd_api.g_exc_error;
605: END IF;
606:
607: -- Bug 10100285/Bug 10113627
608: -- Convert ib_current_loc_id and ib_install_loc_id
609: -- which contains party site use id to party site id
610: -- The party site id will be later assigned to
611: -- instance locaation id and install location id resp
612:
613: IF NVL(l_order_line_rec.ib_current_loc_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
614: BEGIN
615:
616: SELECT party_site_id
617: INTO l_party_site_id
627: WHEN no_data_found then
628: fnd_message.set_name('CSI','CSI_INT_PTY_SITE_MISSING');
629: fnd_message.set_token('LOCATION_ID', l_order_line_rec.ib_current_loc_id);
630: fnd_msg_pub.add;
631: raise fnd_api.g_exc_error;
632: WHEN too_many_rows then
633: debug('Many Party sites found');
634: raise fnd_api.g_exc_error;
635: END;
630: fnd_msg_pub.add;
631: raise fnd_api.g_exc_error;
632: WHEN too_many_rows then
633: debug('Many Party sites found');
634: raise fnd_api.g_exc_error;
635: END;
636: END IF;
637:
638: IF NVL(l_order_line_rec.ib_install_loc_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
634: raise fnd_api.g_exc_error;
635: END;
636: END IF;
637:
638: IF NVL(l_order_line_rec.ib_install_loc_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
639: BEGIN
640: SELECT party_site_id
641: INTO l_party_install_site_id
642: FROM hz_cust_acct_sites_all c,
650: WHEN no_data_found then
651: fnd_message.set_name('CSI','CSI_INT_PTY_SITE_MISSING');
652: fnd_message.set_token('LOCATION_ID',l_order_line_rec.ib_install_loc_id);
653: fnd_msg_pub.add;
654: raise fnd_api.g_exc_error;
655: WHEN too_many_rows then
656: debug('Many Party sites found');
657: raise fnd_api.g_exc_error;
658: END;
653: fnd_msg_pub.add;
654: raise fnd_api.g_exc_error;
655: WHEN too_many_rows then
656: debug('Many Party sites found');
657: raise fnd_api.g_exc_error;
658: END;
659: END IF;
660: -- End Bug 10100285/Bug 10113627
661:
689: p_mtl_txn_id => p_mtl_transaction_id,
690: x_item_control_rec => l_item_control_rec,
691: x_return_status => l_return_status);
692:
693: IF l_return_status <> fnd_api.g_ret_sts_success THEN
694: RAISE fnd_api.g_exc_error;
695: END IF;
696:
697: -- assign the values to l_order_line_rec
690: x_item_control_rec => l_item_control_rec,
691: x_return_status => l_return_status);
692:
693: IF l_return_status <> fnd_api.g_ret_sts_success THEN
694: RAISE fnd_api.g_exc_error;
695: END IF;
696:
697: -- assign the values to l_order_line_rec
698: l_order_line_rec.inv_mtl_transaction_id := p_mtl_transaction_id;
713: l_error_rec.src_location_ctrl_code := l_item_control_rec.locator_control_code;
714: l_error_rec.src_rev_qty_ctrl_code := l_item_control_rec.revision_control_code;
715: l_error_rec.comms_nl_trackable_flag := l_item_control_rec.ib_trackable_flag;
716:
717: IF NVL(l_order_line_rec.link_to_line_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
718:
719: csi_utl_pkg.get_link_to_line_id (
720: x_link_to_line_id => l_order_line_rec.link_to_line_id,
721: x_return_status => l_return_status );
719: csi_utl_pkg.get_link_to_line_id (
720: x_link_to_line_id => l_order_line_rec.link_to_line_id,
721: x_return_status => l_return_status );
722:
723: IF l_return_status <> fnd_api.g_ret_sts_success THEN
724: raise fnd_api.g_exc_error;
725: END IF;
726:
727: END IF;
720: x_link_to_line_id => l_order_line_rec.link_to_line_id,
721: x_return_status => l_return_status );
722:
723: IF l_return_status <> fnd_api.g_ret_sts_success THEN
724: raise fnd_api.g_exc_error;
725: END IF;
726:
727: END IF;
728:
731: p_order_line_rec => l_order_line_rec,
732: x_trackable_line_tbl => l_trk_oe_line_tbl,
733: x_return_status => l_return_status);
734:
735: IF l_return_status <> fnd_api.g_ret_sts_success THEN
736: RAISE fnd_api.g_exc_error;
737: END IF;
738:
739: IF l_trk_oe_line_tbl.COUNT > 0 THEN
732: x_trackable_line_tbl => l_trk_oe_line_tbl,
733: x_return_status => l_return_status);
734:
735: IF l_return_status <> fnd_api.g_ret_sts_success THEN
736: RAISE fnd_api.g_exc_error;
737: END IF;
738:
739: IF l_trk_oe_line_tbl.COUNT > 0 THEN
740: l_trackable_parent := TRUE;
745: p_transaction_type_id => g_txn_type_id,
746: x_sub_type_id => g_dflt_sub_type_id,
747: x_return_status => l_return_status);
748:
749: IF l_return_status <> fnd_api.g_ret_sts_success THEN
750: raise fnd_api.g_exc_error;
751: END IF;
752:
753: csi_utl_pkg.get_sub_type_rec(
746: x_sub_type_id => g_dflt_sub_type_id,
747: x_return_status => l_return_status);
748:
749: IF l_return_status <> fnd_api.g_ret_sts_success THEN
750: raise fnd_api.g_exc_error;
751: END IF;
752:
753: csi_utl_pkg.get_sub_type_rec(
754: p_sub_type_id => g_dflt_sub_type_id,
755: p_trx_type_id => g_txn_type_id,
756: x_trx_sub_type_rec => x_trx_sub_type_rec,
757: x_return_status => l_return_status) ;
758:
759: IF l_return_status <> fnd_api.g_ret_sts_success THEN
760: raise fnd_api.g_exc_error;
761: END IF;
762:
763: debug(' transaction_type_id: '||x_trx_sub_type_rec.trx_type_id );
756: x_trx_sub_type_rec => x_trx_sub_type_rec,
757: x_return_status => l_return_status) ;
758:
759: IF l_return_status <> fnd_api.g_ret_sts_success THEN
760: raise fnd_api.g_exc_error;
761: END IF;
762:
763: debug(' transaction_type_id: '||x_trx_sub_type_rec.trx_type_id );
764: debug(' default sub_type_id: '||x_trx_sub_type_rec.sub_type_id );
779: sync_tld_and_order(
780: p_order_line_rec => l_order_line_rec,
781: x_return_status => l_return_status);
782:
783: IF l_return_status <> fnd_api.g_ret_sts_success THEN
784: RAISE fnd_api.g_exc_error;
785: END IF;
786:
787: /*------------------------------------------------*/
780: p_order_line_rec => l_order_line_rec,
781: x_return_status => l_return_status);
782:
783: IF l_return_status <> fnd_api.g_ret_sts_success THEN
784: RAISE fnd_api.g_exc_error;
785: END IF;
786:
787: /*------------------------------------------------*/
788: /* If the order line has a parent then create txn */
788: /* If the order line has a parent then create txn */
789: /* line dtls in the parent/child order qty ratio */
790: /* -----------------------------------------------*/
791:
792: IF NVL(l_order_line_rec.link_to_line_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
793:
794: debug('This is a child order line. Check model and cascade installation details.');
795:
796: csi_utl_pkg.get_qty_ratio(
800: p_link_to_line_id => l_order_line_rec.link_to_line_id,
801: x_qty_ratio => l_qty_ratio ,
802: x_return_status => l_return_status );
803:
804: IF x_return_status <> fnd_api.g_ret_sts_success THEN
805: raise fnd_api.g_exc_error;
806: END IF;
807:
808: csi_utl_pkg.cascade_txn_dtls(
801: x_qty_ratio => l_qty_ratio ,
802: x_return_status => l_return_status );
803:
804: IF x_return_status <> fnd_api.g_ret_sts_success THEN
805: raise fnd_api.g_exc_error;
806: END IF;
807:
808: csi_utl_pkg.cascade_txn_dtls(
809: p_source_trx_id => l_order_line_rec.order_line_id,
810: p_source_trx_table => 'OE_ORDER_LINES_ALL',
811: p_ratio => l_qty_ratio,
812: x_return_status => x_return_status);
813:
814: IF x_return_status <> fnd_api.g_ret_sts_success THEN
815: raise fnd_api.g_exc_error;
816: END IF;
817:
818: END IF;
811: p_ratio => l_qty_ratio,
812: x_return_status => x_return_status);
813:
814: IF x_return_status <> fnd_api.g_ret_sts_success THEN
815: raise fnd_api.g_exc_error;
816: END IF;
817:
818: END IF;
819:
843: fnd_message.set_name('CSI','CSI_INT_TRX_LINE_MISSING');
844: fnd_message.set_token('SOURCE_TRANSACTION_ID', l_copy_txn_line_rec.SOURCE_TRANSACTION_ID);
845: fnd_message.set_token('SOURCE_TRANSACTION_TABLE',l_copy_txn_line_rec.SOURCE_TRANSACTION_TABLE);
846: fnd_msg_pub.add;
847: raise fnd_api.g_exc_error;
848: END;
849:
850: ELSE
851:
866: ---Added (End) for m-to-m enhancements
867:
868: csi_t_txn_details_pvt.copy_transaction_dtls(
869: p_api_version => 1.0,
870: p_commit => fnd_api.g_false,
871: p_init_msg_list => fnd_api.g_true,
872: p_validation_level => fnd_api.g_valid_level_none,
873: p_src_txn_line_rec => l_src_txn_line_rec,
874: px_new_txn_line_rec => l_new_txn_line_rec,
867:
868: csi_t_txn_details_pvt.copy_transaction_dtls(
869: p_api_version => 1.0,
870: p_commit => fnd_api.g_false,
871: p_init_msg_list => fnd_api.g_true,
872: p_validation_level => fnd_api.g_valid_level_none,
873: p_src_txn_line_rec => l_src_txn_line_rec,
874: px_new_txn_line_rec => l_new_txn_line_rec,
875: p_copy_parties_flag => fnd_api.g_true,
868: csi_t_txn_details_pvt.copy_transaction_dtls(
869: p_api_version => 1.0,
870: p_commit => fnd_api.g_false,
871: p_init_msg_list => fnd_api.g_true,
872: p_validation_level => fnd_api.g_valid_level_none,
873: p_src_txn_line_rec => l_src_txn_line_rec,
874: px_new_txn_line_rec => l_new_txn_line_rec,
875: p_copy_parties_flag => fnd_api.g_true,
876: p_copy_pty_accts_flag => fnd_api.g_true,
871: p_init_msg_list => fnd_api.g_true,
872: p_validation_level => fnd_api.g_valid_level_none,
873: p_src_txn_line_rec => l_src_txn_line_rec,
874: px_new_txn_line_rec => l_new_txn_line_rec,
875: p_copy_parties_flag => fnd_api.g_true,
876: p_copy_pty_accts_flag => fnd_api.g_true,
877: p_copy_ii_rltns_flag => fnd_api.g_true,
878: p_copy_org_assgn_flag => fnd_api.g_true,
879: p_copy_ext_attribs_flag => fnd_api.g_true,
872: p_validation_level => fnd_api.g_valid_level_none,
873: p_src_txn_line_rec => l_src_txn_line_rec,
874: px_new_txn_line_rec => l_new_txn_line_rec,
875: p_copy_parties_flag => fnd_api.g_true,
876: p_copy_pty_accts_flag => fnd_api.g_true,
877: p_copy_ii_rltns_flag => fnd_api.g_true,
878: p_copy_org_assgn_flag => fnd_api.g_true,
879: p_copy_ext_attribs_flag => fnd_api.g_true,
880: p_copy_txn_systems_flag => fnd_api.g_true,
873: p_src_txn_line_rec => l_src_txn_line_rec,
874: px_new_txn_line_rec => l_new_txn_line_rec,
875: p_copy_parties_flag => fnd_api.g_true,
876: p_copy_pty_accts_flag => fnd_api.g_true,
877: p_copy_ii_rltns_flag => fnd_api.g_true,
878: p_copy_org_assgn_flag => fnd_api.g_true,
879: p_copy_ext_attribs_flag => fnd_api.g_true,
880: p_copy_txn_systems_flag => fnd_api.g_true,
881: x_return_status => x_return_status,
874: px_new_txn_line_rec => l_new_txn_line_rec,
875: p_copy_parties_flag => fnd_api.g_true,
876: p_copy_pty_accts_flag => fnd_api.g_true,
877: p_copy_ii_rltns_flag => fnd_api.g_true,
878: p_copy_org_assgn_flag => fnd_api.g_true,
879: p_copy_ext_attribs_flag => fnd_api.g_true,
880: p_copy_txn_systems_flag => fnd_api.g_true,
881: x_return_status => x_return_status,
882: x_msg_count => x_msg_count,
875: p_copy_parties_flag => fnd_api.g_true,
876: p_copy_pty_accts_flag => fnd_api.g_true,
877: p_copy_ii_rltns_flag => fnd_api.g_true,
878: p_copy_org_assgn_flag => fnd_api.g_true,
879: p_copy_ext_attribs_flag => fnd_api.g_true,
880: p_copy_txn_systems_flag => fnd_api.g_true,
881: x_return_status => x_return_status,
882: x_msg_count => x_msg_count,
883: x_msg_data => x_msg_data);
876: p_copy_pty_accts_flag => fnd_api.g_true,
877: p_copy_ii_rltns_flag => fnd_api.g_true,
878: p_copy_org_assgn_flag => fnd_api.g_true,
879: p_copy_ext_attribs_flag => fnd_api.g_true,
880: p_copy_txn_systems_flag => fnd_api.g_true,
881: x_return_status => x_return_status,
882: x_msg_count => x_msg_count,
883: x_msg_data => x_msg_data);
884:
881: x_return_status => x_return_status,
882: x_msg_count => x_msg_count,
883: x_msg_data => x_msg_data);
884:
885: IF x_return_status <> fnd_api.g_ret_sts_success THEN
886: g_api_name := 'csi_t_txn_details_pvt.copy_transaction_dtls';
887: raise fnd_api.g_exc_error;
888: END IF;
889:
883: x_msg_data => x_msg_data);
884:
885: IF x_return_status <> fnd_api.g_ret_sts_success THEN
886: g_api_name := 'csi_t_txn_details_pvt.copy_transaction_dtls';
887: raise fnd_api.g_exc_error;
888: END IF;
889:
890: l_trx_line_id := l_new_txn_line_rec.transaction_line_id;
891:
900: p_source_trx_id => l_order_line_rec.order_line_id,
901: p_source_trx_table => 'WSH_DELIVERY_DETAILS',
902: x_return_status => x_return_status );
903:
904: IF x_return_status <> fnd_api.g_ret_sts_success THEN
905: raise fnd_api.g_exc_error;
906: END IF;
907:
908: END IF;
901: p_source_trx_table => 'WSH_DELIVERY_DETAILS',
902: x_return_status => x_return_status );
903:
904: IF x_return_status <> fnd_api.g_ret_sts_success THEN
905: raise fnd_api.g_exc_error;
906: END IF;
907:
908: END IF;
909: ---Added (End) for m-to-m enhancements
919: /* will cascade the txn_line_details to option/ config lines */
920: /* from the txn line details entered for the top model */
921: /*----------------------------------------------------------------*/
922:
923: IF NVL(l_order_line_rec.top_model_line_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
924:
925: debug('component of a pto/ato model. cascade installation details from top model.');
926:
927: csi_t_utilities_pvt.cascade_model(
927: csi_t_utilities_pvt.cascade_model(
928: p_model_line_id => l_order_line_rec.top_model_line_id,
929: x_return_status => l_return_status );
930:
931: IF l_return_status <> fnd_api.g_ret_sts_success THEN
932: raise fnd_api.g_exc_error;
933: END IF;
934:
935: l_txn_line_rec.source_transaction_id := l_order_line_rec.order_line_id;
928: p_model_line_id => l_order_line_rec.top_model_line_id,
929: x_return_status => l_return_status );
930:
931: IF l_return_status <> fnd_api.g_ret_sts_success THEN
932: raise fnd_api.g_exc_error;
933: END IF;
934:
935: l_txn_line_rec.source_transaction_id := l_order_line_rec.order_line_id;
936: l_txn_line_rec.source_transaction_table := 'OE_ORDER_LINES_ALL';
949: /* If the order line has a parent then create txn */
950: /* line dtls in the parent/child order qty ratio */
951: /* -----------------------------------------------*/
952:
953: IF NVL(l_order_line_rec.link_to_line_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
954:
955: csi_utl_pkg.get_qty_ratio(
956: p_order_line_qty => l_order_line_rec.ordered_quantity,
957: p_order_item_id => l_order_line_rec.inv_item_id,
959: p_link_to_line_id => l_order_line_rec.link_to_line_id,
960: x_qty_ratio => l_qty_ratio ,
961: x_return_status => l_return_status );
962:
963: IF l_return_status <> fnd_api.g_ret_sts_success THEN
964: raise fnd_api.g_exc_error;
965: END IF;
966:
967: csi_utl_pkg.cascade_txn_dtls(
960: x_qty_ratio => l_qty_ratio ,
961: x_return_status => l_return_status );
962:
963: IF l_return_status <> fnd_api.g_ret_sts_success THEN
964: raise fnd_api.g_exc_error;
965: END IF;
966:
967: csi_utl_pkg.cascade_txn_dtls(
968: p_source_trx_id => l_order_line_rec.order_line_id,
969: p_source_trx_table => 'OE_ORDER_LINES_ALL',
970: p_ratio => l_qty_ratio ,
971: x_return_status => l_return_status );
972:
973: IF l_return_status <> fnd_api.g_ret_sts_success THEN
974: raise fnd_api.g_exc_error;
975: END IF;
976:
977: END IF;--link_to_line_id <>fnd_api.g_miss_num
970: p_ratio => l_qty_ratio ,
971: x_return_status => l_return_status );
972:
973: IF l_return_status <> fnd_api.g_ret_sts_success THEN
974: raise fnd_api.g_exc_error;
975: END IF;
976:
977: END IF;--link_to_line_id <>fnd_api.g_miss_num
978:
973: IF l_return_status <> fnd_api.g_ret_sts_success THEN
974: raise fnd_api.g_exc_error;
975: END IF;
976:
977: END IF;--link_to_line_id <>fnd_api.g_miss_num
978:
979: /* assign the parameter for txn_line_rec */
980: l_copy_txn_line_rec.SOURCE_TRANSACTION_ID := l_order_line_rec.order_line_id;
981: l_copy_txn_line_rec.SOURCE_TRANSACTION_TABLE := 'WSH_DELIVERY_DETAILS';
1001: l_copy_txn_line_rec.SOURCE_TRANSACTION_ID);
1002: fnd_message.set_token('SOURCE_TRANSACTION_TABLE',
1003: l_copy_txn_line_rec.SOURCE_TRANSACTION_TABLE);
1004: fnd_msg_pub.add;
1005: raise fnd_api.g_exc_error;
1006: END;
1007: ELSE
1008:
1009: debug(' No it is not. Copying installation details as WSH_DELIVERY_DETAILS.');
1018: l_new_txn_line_rec.source_transaction_type_id := g_txn_type_id;
1019:
1020: csi_t_txn_details_pvt.copy_transaction_dtls(
1021: p_api_version => 1.0,
1022: p_commit => fnd_api.g_false,
1023: p_init_msg_list => fnd_api.g_true,
1024: p_validation_level => fnd_api.g_valid_level_none,
1025: p_src_txn_line_rec => l_src_txn_line_rec,
1026: px_new_txn_line_rec => l_new_txn_line_rec,
1019:
1020: csi_t_txn_details_pvt.copy_transaction_dtls(
1021: p_api_version => 1.0,
1022: p_commit => fnd_api.g_false,
1023: p_init_msg_list => fnd_api.g_true,
1024: p_validation_level => fnd_api.g_valid_level_none,
1025: p_src_txn_line_rec => l_src_txn_line_rec,
1026: px_new_txn_line_rec => l_new_txn_line_rec,
1027: p_copy_parties_flag => fnd_api.g_true,
1020: csi_t_txn_details_pvt.copy_transaction_dtls(
1021: p_api_version => 1.0,
1022: p_commit => fnd_api.g_false,
1023: p_init_msg_list => fnd_api.g_true,
1024: p_validation_level => fnd_api.g_valid_level_none,
1025: p_src_txn_line_rec => l_src_txn_line_rec,
1026: px_new_txn_line_rec => l_new_txn_line_rec,
1027: p_copy_parties_flag => fnd_api.g_true,
1028: p_copy_pty_accts_flag => fnd_api.g_true,
1023: p_init_msg_list => fnd_api.g_true,
1024: p_validation_level => fnd_api.g_valid_level_none,
1025: p_src_txn_line_rec => l_src_txn_line_rec,
1026: px_new_txn_line_rec => l_new_txn_line_rec,
1027: p_copy_parties_flag => fnd_api.g_true,
1028: p_copy_pty_accts_flag => fnd_api.g_true,
1029: p_copy_ii_rltns_flag => fnd_api.g_true,
1030: p_copy_org_assgn_flag => fnd_api.g_true,
1031: p_copy_ext_attribs_flag => fnd_api.g_true,
1024: p_validation_level => fnd_api.g_valid_level_none,
1025: p_src_txn_line_rec => l_src_txn_line_rec,
1026: px_new_txn_line_rec => l_new_txn_line_rec,
1027: p_copy_parties_flag => fnd_api.g_true,
1028: p_copy_pty_accts_flag => fnd_api.g_true,
1029: p_copy_ii_rltns_flag => fnd_api.g_true,
1030: p_copy_org_assgn_flag => fnd_api.g_true,
1031: p_copy_ext_attribs_flag => fnd_api.g_true,
1032: p_copy_txn_systems_flag => fnd_api.g_true,
1025: p_src_txn_line_rec => l_src_txn_line_rec,
1026: px_new_txn_line_rec => l_new_txn_line_rec,
1027: p_copy_parties_flag => fnd_api.g_true,
1028: p_copy_pty_accts_flag => fnd_api.g_true,
1029: p_copy_ii_rltns_flag => fnd_api.g_true,
1030: p_copy_org_assgn_flag => fnd_api.g_true,
1031: p_copy_ext_attribs_flag => fnd_api.g_true,
1032: p_copy_txn_systems_flag => fnd_api.g_true,
1033: x_return_status => l_return_status,
1026: px_new_txn_line_rec => l_new_txn_line_rec,
1027: p_copy_parties_flag => fnd_api.g_true,
1028: p_copy_pty_accts_flag => fnd_api.g_true,
1029: p_copy_ii_rltns_flag => fnd_api.g_true,
1030: p_copy_org_assgn_flag => fnd_api.g_true,
1031: p_copy_ext_attribs_flag => fnd_api.g_true,
1032: p_copy_txn_systems_flag => fnd_api.g_true,
1033: x_return_status => l_return_status,
1034: x_msg_count => l_msg_count,
1027: p_copy_parties_flag => fnd_api.g_true,
1028: p_copy_pty_accts_flag => fnd_api.g_true,
1029: p_copy_ii_rltns_flag => fnd_api.g_true,
1030: p_copy_org_assgn_flag => fnd_api.g_true,
1031: p_copy_ext_attribs_flag => fnd_api.g_true,
1032: p_copy_txn_systems_flag => fnd_api.g_true,
1033: x_return_status => l_return_status,
1034: x_msg_count => l_msg_count,
1035: x_msg_data => l_msg_data);
1028: p_copy_pty_accts_flag => fnd_api.g_true,
1029: p_copy_ii_rltns_flag => fnd_api.g_true,
1030: p_copy_org_assgn_flag => fnd_api.g_true,
1031: p_copy_ext_attribs_flag => fnd_api.g_true,
1032: p_copy_txn_systems_flag => fnd_api.g_true,
1033: x_return_status => l_return_status,
1034: x_msg_count => l_msg_count,
1035: x_msg_data => l_msg_data);
1036:
1033: x_return_status => l_return_status,
1034: x_msg_count => l_msg_count,
1035: x_msg_data => l_msg_data);
1036:
1037: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1038: g_api_name := 'csi_t_txn_details_pvt.copy_transaction_dtls';
1039: raise fnd_api.g_exc_error;
1040: END IF;
1041:
1035: x_msg_data => l_msg_data);
1036:
1037: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1038: g_api_name := 'csi_t_txn_details_pvt.copy_transaction_dtls';
1039: raise fnd_api.g_exc_error;
1040: END IF;
1041:
1042: l_trx_line_id := l_new_txn_line_rec.transaction_line_id;
1043:
1052: p_source_trx_id => l_order_line_rec.order_line_id,
1053: p_source_trx_table => 'WSH_DELIVERY_DETAILS',
1054: x_return_status => l_return_status );
1055:
1056: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1057: raise fnd_api.g_exc_error;
1058: END IF;
1059: END IF;
1060: ---Added (End) for m-to-m enhancements
1053: p_source_trx_table => 'WSH_DELIVERY_DETAILS',
1054: x_return_status => l_return_status );
1055:
1056: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1057: raise fnd_api.g_exc_error;
1058: END IF;
1059: END IF;
1060: ---Added (End) for m-to-m enhancements
1061: /* Copied the above code from IF condition above as part of fix for bug 3555078 */
1075: l_order_line_rec.header_id,
1076: l_split_ord_line_id,
1077: l_return_status);
1078:
1079: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1080: raise fnd_api.g_exc_error;
1081: END IF;
1082:
1083: IF l_split_ord_line_id is not null THEN
1076: l_split_ord_line_id,
1077: l_return_status);
1078:
1079: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1080: raise fnd_api.g_exc_error;
1081: END IF;
1082:
1083: IF l_split_ord_line_id is not null THEN
1084:
1110: --Parameters for the destination trx rec
1111: l_new_txn_line_rec.source_transaction_id := l_split_ord_line_id;
1112: l_new_txn_line_rec.source_transaction_table := 'OE_ORDER_LINES_ALL';
1113: l_new_txn_line_rec.source_transaction_type_id := g_txn_type_id;
1114: l_new_txn_line_rec.transaction_line_id := fnd_api.g_miss_num;
1115:
1116: debug(' No. So copying installation details for the split order line.' );
1117:
1118: csi_t_txn_details_pvt.copy_transaction_dtls(
1116: debug(' No. So copying installation details for the split order line.' );
1117:
1118: csi_t_txn_details_pvt.copy_transaction_dtls(
1119: p_api_version => 1.0,
1120: p_commit => fnd_api.g_false,
1121: p_init_msg_list => fnd_api.g_true,
1122: p_validation_level => fnd_api.g_valid_level_none,
1123: p_src_txn_line_rec => l_src_txn_line_rec,
1124: px_new_txn_line_rec => l_new_txn_line_rec,
1117:
1118: csi_t_txn_details_pvt.copy_transaction_dtls(
1119: p_api_version => 1.0,
1120: p_commit => fnd_api.g_false,
1121: p_init_msg_list => fnd_api.g_true,
1122: p_validation_level => fnd_api.g_valid_level_none,
1123: p_src_txn_line_rec => l_src_txn_line_rec,
1124: px_new_txn_line_rec => l_new_txn_line_rec,
1125: p_copy_parties_flag => fnd_api.g_true,
1118: csi_t_txn_details_pvt.copy_transaction_dtls(
1119: p_api_version => 1.0,
1120: p_commit => fnd_api.g_false,
1121: p_init_msg_list => fnd_api.g_true,
1122: p_validation_level => fnd_api.g_valid_level_none,
1123: p_src_txn_line_rec => l_src_txn_line_rec,
1124: px_new_txn_line_rec => l_new_txn_line_rec,
1125: p_copy_parties_flag => fnd_api.g_true,
1126: p_copy_pty_accts_flag => fnd_api.g_true,
1121: p_init_msg_list => fnd_api.g_true,
1122: p_validation_level => fnd_api.g_valid_level_none,
1123: p_src_txn_line_rec => l_src_txn_line_rec,
1124: px_new_txn_line_rec => l_new_txn_line_rec,
1125: p_copy_parties_flag => fnd_api.g_true,
1126: p_copy_pty_accts_flag => fnd_api.g_true,
1127: p_copy_ii_rltns_flag => fnd_api.g_true,
1128: p_copy_org_assgn_flag => fnd_api.g_true,
1129: p_copy_ext_attribs_flag => fnd_api.g_true,
1122: p_validation_level => fnd_api.g_valid_level_none,
1123: p_src_txn_line_rec => l_src_txn_line_rec,
1124: px_new_txn_line_rec => l_new_txn_line_rec,
1125: p_copy_parties_flag => fnd_api.g_true,
1126: p_copy_pty_accts_flag => fnd_api.g_true,
1127: p_copy_ii_rltns_flag => fnd_api.g_true,
1128: p_copy_org_assgn_flag => fnd_api.g_true,
1129: p_copy_ext_attribs_flag => fnd_api.g_true,
1130: p_copy_txn_systems_flag => fnd_api.g_true,
1123: p_src_txn_line_rec => l_src_txn_line_rec,
1124: px_new_txn_line_rec => l_new_txn_line_rec,
1125: p_copy_parties_flag => fnd_api.g_true,
1126: p_copy_pty_accts_flag => fnd_api.g_true,
1127: p_copy_ii_rltns_flag => fnd_api.g_true,
1128: p_copy_org_assgn_flag => fnd_api.g_true,
1129: p_copy_ext_attribs_flag => fnd_api.g_true,
1130: p_copy_txn_systems_flag => fnd_api.g_true,
1131: x_return_status => l_return_status,
1124: px_new_txn_line_rec => l_new_txn_line_rec,
1125: p_copy_parties_flag => fnd_api.g_true,
1126: p_copy_pty_accts_flag => fnd_api.g_true,
1127: p_copy_ii_rltns_flag => fnd_api.g_true,
1128: p_copy_org_assgn_flag => fnd_api.g_true,
1129: p_copy_ext_attribs_flag => fnd_api.g_true,
1130: p_copy_txn_systems_flag => fnd_api.g_true,
1131: x_return_status => l_return_status,
1132: x_msg_count => l_msg_count,
1125: p_copy_parties_flag => fnd_api.g_true,
1126: p_copy_pty_accts_flag => fnd_api.g_true,
1127: p_copy_ii_rltns_flag => fnd_api.g_true,
1128: p_copy_org_assgn_flag => fnd_api.g_true,
1129: p_copy_ext_attribs_flag => fnd_api.g_true,
1130: p_copy_txn_systems_flag => fnd_api.g_true,
1131: x_return_status => l_return_status,
1132: x_msg_count => l_msg_count,
1133: x_msg_data => l_msg_data);
1126: p_copy_pty_accts_flag => fnd_api.g_true,
1127: p_copy_ii_rltns_flag => fnd_api.g_true,
1128: p_copy_org_assgn_flag => fnd_api.g_true,
1129: p_copy_ext_attribs_flag => fnd_api.g_true,
1130: p_copy_txn_systems_flag => fnd_api.g_true,
1131: x_return_status => l_return_status,
1132: x_msg_count => l_msg_count,
1133: x_msg_data => l_msg_data);
1134:
1131: x_return_status => l_return_status,
1132: x_msg_count => l_msg_count,
1133: x_msg_data => l_msg_data);
1134:
1135: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1136: g_api_name := 'csi_t_txn_details_pvt.copy_transaction_dtls';
1137: raise fnd_api.g_exc_error;
1138: END IF;
1139:
1133: x_msg_data => l_msg_data);
1134:
1135: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1136: g_api_name := 'csi_t_txn_details_pvt.copy_transaction_dtls';
1137: raise fnd_api.g_exc_error;
1138: END IF;
1139:
1140: END IF; -- installation details check
1141: ELSE
1159:
1160: /* Create csi transaction and use this trx_rec for all ib transactions */
1161: csi_transactions_pvt.create_transaction(
1162: p_api_version => 1.0,
1163: p_commit => fnd_api.g_false,
1164: p_init_msg_list => fnd_api.g_true,
1165: p_validation_level => fnd_api.g_valid_level_full,
1166: p_success_if_exists_flag => 'Y',
1167: p_transaction_rec => l_trx_rec,
1160: /* Create csi transaction and use this trx_rec for all ib transactions */
1161: csi_transactions_pvt.create_transaction(
1162: p_api_version => 1.0,
1163: p_commit => fnd_api.g_false,
1164: p_init_msg_list => fnd_api.g_true,
1165: p_validation_level => fnd_api.g_valid_level_full,
1166: p_success_if_exists_flag => 'Y',
1167: p_transaction_rec => l_trx_rec,
1168: x_return_status => l_return_status,
1161: csi_transactions_pvt.create_transaction(
1162: p_api_version => 1.0,
1163: p_commit => fnd_api.g_false,
1164: p_init_msg_list => fnd_api.g_true,
1165: p_validation_level => fnd_api.g_valid_level_full,
1166: p_success_if_exists_flag => 'Y',
1167: p_transaction_rec => l_trx_rec,
1168: x_return_status => l_return_status,
1169: x_msg_count => l_msg_count,
1168: x_return_status => l_return_status,
1169: x_msg_count => l_msg_count,
1170: x_msg_data => l_msg_data);
1171:
1172: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1173: g_api_name := 'csi_transactions_pvt.create_transaction';
1174: raise fnd_api.g_exc_error;
1175: END IF;
1176:
1170: x_msg_data => l_msg_data);
1171:
1172: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1173: g_api_name := 'csi_transactions_pvt.create_transaction';
1174: raise fnd_api.g_exc_error;
1175: END IF;
1176:
1177: debug('csi transaction_id :'||l_trx_rec.transaction_id);
1178:
1192: x_order_shipment_tbl => x_order_shipment_tbl,
1193: px_error_rec => l_error_rec,
1194: x_return_status => l_return_status);
1195:
1196: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1197: raise fnd_api.g_exc_error;
1198: END IF;
1199:
1200: /* switch the non source transaction details to the IN_PROCESS status */
1193: px_error_rec => l_error_rec,
1194: x_return_status => l_return_status);
1195:
1196: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1197: raise fnd_api.g_exc_error;
1198: END IF;
1199:
1200: /* switch the non source transaction details to the IN_PROCESS status */
1201: --Assign the literals.. bug 4311676
1221: debug('Installation details for the final process - Update Install Base.' );
1222:
1223: csi_t_txn_details_grp.get_transaction_details (
1224: p_api_version => 1.0,
1225: p_commit => fnd_api.g_false,
1226: p_init_msg_list => fnd_api.g_true,
1227: p_validation_level => fnd_api.g_valid_level_full,
1228: p_txn_line_query_rec => l_txn_line_query_rec,
1229: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
1222:
1223: csi_t_txn_details_grp.get_transaction_details (
1224: p_api_version => 1.0,
1225: p_commit => fnd_api.g_false,
1226: p_init_msg_list => fnd_api.g_true,
1227: p_validation_level => fnd_api.g_valid_level_full,
1228: p_txn_line_query_rec => l_txn_line_query_rec,
1229: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
1230: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
1223: csi_t_txn_details_grp.get_transaction_details (
1224: p_api_version => 1.0,
1225: p_commit => fnd_api.g_false,
1226: p_init_msg_list => fnd_api.g_true,
1227: p_validation_level => fnd_api.g_valid_level_full,
1228: p_txn_line_query_rec => l_txn_line_query_rec,
1229: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
1230: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
1231: p_get_parties_flag => fnd_api.g_true,
1227: p_validation_level => fnd_api.g_valid_level_full,
1228: p_txn_line_query_rec => l_txn_line_query_rec,
1229: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
1230: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
1231: p_get_parties_flag => fnd_api.g_true,
1232: x_txn_party_detail_tbl => l_txn_party_detail_tbl,
1233: p_get_pty_accts_flag => fnd_api.g_true,
1234: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_dtl_tbl,
1235: ---Added (Start) for m-to-m enhancements
1229: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
1230: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
1231: p_get_parties_flag => fnd_api.g_true,
1232: x_txn_party_detail_tbl => l_txn_party_detail_tbl,
1233: p_get_pty_accts_flag => fnd_api.g_true,
1234: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_dtl_tbl,
1235: ---Added (Start) for m-to-m enhancements
1236: -- Let us not get relations here.
1237: -- get_ii_relations_tbl will get the relations at later stage
1234: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_dtl_tbl,
1235: ---Added (Start) for m-to-m enhancements
1236: -- Let us not get relations here.
1237: -- get_ii_relations_tbl will get the relations at later stage
1238: p_get_ii_rltns_flag => fnd_api.g_false,
1239: ---Added (End) for m-to-m enhancements
1240: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
1241: p_get_org_assgns_flag => fnd_api.g_true,
1242: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
1237: -- get_ii_relations_tbl will get the relations at later stage
1238: p_get_ii_rltns_flag => fnd_api.g_false,
1239: ---Added (End) for m-to-m enhancements
1240: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
1241: p_get_org_assgns_flag => fnd_api.g_true,
1242: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
1243: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1244: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
1245: p_get_csi_attribs_flag => fnd_api.g_false,
1239: ---Added (End) for m-to-m enhancements
1240: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
1241: p_get_org_assgns_flag => fnd_api.g_true,
1242: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
1243: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1244: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
1245: p_get_csi_attribs_flag => fnd_api.g_false,
1246: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
1247: p_get_csi_iea_values_flag => fnd_api.g_false,
1241: p_get_org_assgns_flag => fnd_api.g_true,
1242: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
1243: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1244: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
1245: p_get_csi_attribs_flag => fnd_api.g_false,
1246: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
1247: p_get_csi_iea_values_flag => fnd_api.g_false,
1248: x_csi_iea_values_tbl => l_csi_iea_values_tbl,
1249: p_get_txn_systems_flag => fnd_api.g_true,
1243: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1244: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
1245: p_get_csi_attribs_flag => fnd_api.g_false,
1246: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
1247: p_get_csi_iea_values_flag => fnd_api.g_false,
1248: x_csi_iea_values_tbl => l_csi_iea_values_tbl,
1249: p_get_txn_systems_flag => fnd_api.g_true,
1250: x_txn_systems_tbl => l_txn_systems_tbl,
1251: x_return_status => l_return_status,
1245: p_get_csi_attribs_flag => fnd_api.g_false,
1246: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
1247: p_get_csi_iea_values_flag => fnd_api.g_false,
1248: x_csi_iea_values_tbl => l_csi_iea_values_tbl,
1249: p_get_txn_systems_flag => fnd_api.g_true,
1250: x_txn_systems_tbl => l_txn_systems_tbl,
1251: x_return_status => l_return_status,
1252: x_msg_count => l_msg_count,
1253: x_msg_data => l_msg_data);
1251: x_return_status => l_return_status,
1252: x_msg_count => l_msg_count,
1253: x_msg_data => l_msg_data);
1254:
1255: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1256: g_api_name := 'csi_t_txn_details_grp.get_transaction_details';
1257: raise fnd_api.g_exc_error;
1258: END IF;
1259:
1253: x_msg_data => l_msg_data);
1254:
1255: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1256: g_api_name := 'csi_t_txn_details_grp.get_transaction_details';
1257: raise fnd_api.g_exc_error;
1258: END IF;
1259:
1260: debug(' txn_line_detail_tbl.count :'|| l_txn_line_detail_tbl.count );
1261: debug(' txn_party_detail_tbl.count :'|| l_txn_party_detail_tbl.count );
1274: p_line_id => l_order_line_rec.order_line_id,
1275: x_pricing_attb_tbl => x_pricing_attb_tbl,
1276: x_return_status => x_return_status );
1277:
1278: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1279: raise fnd_api.g_exc_error;
1280: END IF;
1281:
1282: debug(' pricing_attb_tbl.count :'||x_pricing_attb_tbl.count ) ;
1275: x_pricing_attb_tbl => x_pricing_attb_tbl,
1276: x_return_status => x_return_status );
1277:
1278: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1279: raise fnd_api.g_exc_error;
1280: END IF;
1281:
1282: debug(' pricing_attb_tbl.count :'||x_pricing_attb_tbl.count ) ;
1283:
1285: l_conv_to_prim_uom_req := 'Y';
1286: IF l_txn_line_detail_tbl.count > 0 THEN
1287: FOR u in l_txn_line_detail_tbl.FIRST..l_txn_line_detail_tbl.LAST
1288: LOOP
1289: IF NVL(l_txn_line_detail_tbl(u).serial_number,fnd_api.g_miss_char) <> fnd_api.g_miss_char AND
1290: NVL(l_txn_line_detail_tbl(u).quantity,fnd_api.g_miss_num) = 1 THEN
1291: l_conv_to_prim_uom_req := 'N'; -- No UOM Conversion Required
1292: Exit;
1293: END IF;
1286: IF l_txn_line_detail_tbl.count > 0 THEN
1287: FOR u in l_txn_line_detail_tbl.FIRST..l_txn_line_detail_tbl.LAST
1288: LOOP
1289: IF NVL(l_txn_line_detail_tbl(u).serial_number,fnd_api.g_miss_char) <> fnd_api.g_miss_char AND
1290: NVL(l_txn_line_detail_tbl(u).quantity,fnd_api.g_miss_num) = 1 THEN
1291: l_conv_to_prim_uom_req := 'N'; -- No UOM Conversion Required
1292: Exit;
1293: END IF;
1294: END LOOP;
1302: p_uom => l_order_line_rec.order_quantity_uom,
1303: x_txn_line_dtl_tbl => l_txn_line_detail_tbl,
1304: x_return_status => x_return_status);
1305:
1306: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1307: raise fnd_api.g_exc_error;
1308: END IF;
1309: END IF;
1310:
1303: x_txn_line_dtl_tbl => l_txn_line_detail_tbl,
1304: x_return_status => x_return_status);
1305:
1306: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1307: raise fnd_api.g_exc_error;
1308: END IF;
1309: END IF;
1310:
1311: --
1313: -- If this is a MACD order line then we need to merge the Transaction details written by CZ and WSH
1314: -- For this, we call CSI_INTERFACE_PKG.Get_CZ_Relations.
1315: -- macd_order_line flag is set by Build_Shtd_Table routine.
1316: --
1317: IF l_order_line_rec.macd_order_line = FND_API.G_TRUE THEN
1318: l_source_line_rec.source_line_id := l_order_line_rec.order_line_id;
1319: --
1320: Csi_Interface_Pkg.Get_CZ_Relations
1321: ( p_source_header_rec => l_source_header_rec,
1325: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
1326: x_txn_eav_tbl => l_txn_ext_attrib_vals_tbl,
1327: x_return_status => x_return_status
1328: );
1329: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1330: raise fnd_api.g_exc_error;
1331: END IF;
1332: END IF;
1333: --
1326: x_txn_eav_tbl => l_txn_ext_attrib_vals_tbl,
1327: x_return_status => x_return_status
1328: );
1329: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1330: raise fnd_api.g_exc_error;
1331: END IF;
1332: END IF;
1333: --
1334: --
1345: /*--------------------------------------------------------*/
1346:
1347: update_install_base(
1348: p_api_version => 1.0,
1349: p_commit => fnd_api.g_false,
1350: p_init_msg_list => fnd_api.g_true,
1351: p_validation_level => fnd_api.g_valid_level_full,
1352: p_txn_line_rec => l_transaction_line_rec,
1353: p_txn_line_detail_tbl => l_txn_line_detail_tbl,
1346:
1347: update_install_base(
1348: p_api_version => 1.0,
1349: p_commit => fnd_api.g_false,
1350: p_init_msg_list => fnd_api.g_true,
1351: p_validation_level => fnd_api.g_valid_level_full,
1352: p_txn_line_rec => l_transaction_line_rec,
1353: p_txn_line_detail_tbl => l_txn_line_detail_tbl,
1354: p_txn_party_detail_tbl => l_txn_party_detail_tbl,
1347: update_install_base(
1348: p_api_version => 1.0,
1349: p_commit => fnd_api.g_false,
1350: p_init_msg_list => fnd_api.g_true,
1351: p_validation_level => fnd_api.g_valid_level_full,
1352: p_txn_line_rec => l_transaction_line_rec,
1353: p_txn_line_detail_tbl => l_txn_line_detail_tbl,
1354: p_txn_party_detail_tbl => l_txn_party_detail_tbl,
1355: p_txn_pty_acct_dtl_tbl => l_txn_pty_acct_dtl_tbl,
1366: x_return_status => x_return_status,
1367: x_msg_count => x_msg_count,
1368: x_msg_data => x_msg_data);
1369:
1370: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1371: raise fnd_api.g_exc_error;
1372: END IF;
1373:
1374: debug('end: csi_order_ship_pub.order_shipment. status: successful');
1367: x_msg_count => x_msg_count,
1368: x_msg_data => x_msg_data);
1369:
1370: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
1371: raise fnd_api.g_exc_error;
1372: END IF;
1373:
1374: debug('end: csi_order_ship_pub.order_shipment. status: successful');
1375: debug(' timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1374: debug('end: csi_order_ship_pub.order_shipment. status: successful');
1375: debug(' timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1376:
1377: EXCEPTION
1378: WHEN fnd_api.g_exc_error THEN
1379: rollback to order_shipment;
1380: x_return_status := fnd_api.g_ret_sts_error;
1381: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
1382: px_trx_error_rec := l_error_rec;
1376:
1377: EXCEPTION
1378: WHEN fnd_api.g_exc_error THEN
1379: rollback to order_shipment;
1380: x_return_status := fnd_api.g_ret_sts_error;
1381: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
1382: px_trx_error_rec := l_error_rec;
1383: debug('Error(E) :'||l_error_rec.error_text);
1384: WHEN fnd_api.g_exc_unexpected_error THEN
1380: x_return_status := fnd_api.g_ret_sts_error;
1381: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
1382: px_trx_error_rec := l_error_rec;
1383: debug('Error(E) :'||l_error_rec.error_text);
1384: WHEN fnd_api.g_exc_unexpected_error THEN
1385: rollback to order_shipment;
1386: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1387: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
1388: px_trx_error_rec := l_error_rec;
1382: px_trx_error_rec := l_error_rec;
1383: debug('Error(E) :'||l_error_rec.error_text);
1384: WHEN fnd_api.g_exc_unexpected_error THEN
1385: rollback to order_shipment;
1386: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1387: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
1388: px_trx_error_rec := l_error_rec;
1389: debug('Error(U) :'||l_error_rec.error_text);
1390: WHEN others THEN
1388: px_trx_error_rec := l_error_rec;
1389: debug('Error(U) :'||l_error_rec.error_text);
1390: WHEN others THEN
1391: rollback to order_shipment;
1392: x_return_status := fnd_api.g_ret_sts_unexp_error;
1393: l_error_rec.error_text := substr(sqlerrm, 1, 540);
1394: px_trx_error_rec := l_error_rec;
1395: debug('Error(O) :'||l_error_rec.error_text);
1396: END order_shipment;
1396: END order_shipment;
1397:
1398: PROCEDURE process_non_source(
1399: p_txn_line_detail_rec IN csi_t_datastructures_grp.txn_line_detail_rec,
1400: p_call_contracts IN varchar2 := fnd_api.g_true,
1401: p_trx_rec IN csi_datastructures_pub.transaction_rec,
1402: x_return_status OUT NOCOPY varchar2)
1403: IS
1404:
1419: l_active_end_date date;
1420: l_exp_instance_id_lst csi_datastructures_pub.id_tbl;
1421: l_exp_instance_rec csi_datastructures_pub.instance_rec;
1422:
1423: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1424: l_msg_count number;
1425: l_msg_data varchar2(2000);
1426:
1427: -- Added this parameter as part of fix for Bug 3145503.
1460: BEGIN
1461:
1462: api_log('process_non_source');
1463:
1464: x_return_status := fnd_api.g_ret_sts_success;
1465: l_trx_rec := p_trx_rec;
1466:
1467: l_comp_of_tld := FALSE;
1468:
1504: -- added this IF as part of fix for bug 3145503.
1505: IF l_location_code <> 'INVENTORY'
1506: THEN
1507: l_ns_instance_rec.active_end_date :=
1508: nvl(p_txn_line_detail_rec.active_end_date,fnd_api.g_miss_date);
1509: l_ns_instance_rec.return_by_date := p_txn_line_detail_rec.return_by_date;
1510: END IF;
1511:
1512: l_ns_instance_rec.call_contracts := p_call_contracts;
1547: l_upd_ns_inst := 'N';
1548: ELSE
1549: -- End code for Bug 3145503.
1550: debug(' Instance Status is defined as TERMINABLE.');
1551: IF nvl(l_ns_instance_rec.active_end_date, fnd_api.g_miss_date) = fnd_api.g_miss_date
1552: THEN
1553: --bug 4026148
1554: --l_ns_instance_rec.active_end_date := sysdate;
1555: l_ns_instance_rec.active_end_date := l_trx_rec.source_transaction_date;
1565: --order information. not sure why it wasn't done ... shegde. bug 3692473
1566: --code modification start for 3681856--
1567: IF (l_active_end_date is NOT NULL) AND (l_active_end_date <= sysdate)
1568: THEN -- we will expire the instance back. Contracts shouldn't be called while unexpiring
1569: l_ns_instance_rec.call_contracts := fnd_api.g_false;
1570: END IF;
1571: --code modification end for 3681856--
1572:
1573: csi_t_gen_utility_pvt.dump_api_info(
1579:
1580: /* non source status update call. */
1581: csi_item_instance_pub.update_item_instance(
1582: p_api_version => 1.0,
1583: p_commit => fnd_api.g_false,
1584: p_init_msg_list => fnd_api.g_true,
1585: p_validation_level => fnd_api.g_valid_level_full,
1586: p_instance_rec => l_ns_instance_rec,
1587: p_ext_attrib_values_tbl => l_ns_ext_attrib_val_tbl,
1580: /* non source status update call. */
1581: csi_item_instance_pub.update_item_instance(
1582: p_api_version => 1.0,
1583: p_commit => fnd_api.g_false,
1584: p_init_msg_list => fnd_api.g_true,
1585: p_validation_level => fnd_api.g_valid_level_full,
1586: p_instance_rec => l_ns_instance_rec,
1587: p_ext_attrib_values_tbl => l_ns_ext_attrib_val_tbl,
1588: p_party_tbl => l_ns_party_tbl,
1581: csi_item_instance_pub.update_item_instance(
1582: p_api_version => 1.0,
1583: p_commit => fnd_api.g_false,
1584: p_init_msg_list => fnd_api.g_true,
1585: p_validation_level => fnd_api.g_valid_level_full,
1586: p_instance_rec => l_ns_instance_rec,
1587: p_ext_attrib_values_tbl => l_ns_ext_attrib_val_tbl,
1588: p_party_tbl => l_ns_party_tbl,
1589: p_account_tbl => l_ns_party_acct_tbl,
1595: x_return_status => l_return_status,
1596: x_msg_count => l_msg_count,
1597: x_msg_data => l_msg_data );
1598:
1599: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1600: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1601: RAISE fnd_api.g_exc_error;
1602: END IF;
1603:
1596: x_msg_count => l_msg_count,
1597: x_msg_data => l_msg_data );
1598:
1599: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1600: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1601: RAISE fnd_api.g_exc_error;
1602: END IF;
1603:
1604: IF (l_active_end_date is NOT NULL) AND (l_active_end_date <= sysdate)
1597: x_msg_data => l_msg_data );
1598:
1599: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1600: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1601: RAISE fnd_api.g_exc_error;
1602: END IF;
1603:
1604: IF (l_active_end_date is NOT NULL) AND (l_active_end_date <= sysdate)
1605: THEN
1613: l_exp_instance_rec.instance_id := p_txn_line_detail_rec.instance_id;
1614:
1615: --code modification start for 3681856--
1616: --l_exp_instance_rec.call_contracts := p_call_contracts;
1617: l_exp_instance_rec.call_contracts := fnd_api.g_false;
1618: --code modification end for 3681856--
1619:
1620: l_trx_rec.transaction_id := fnd_api.g_miss_num;
1621:
1616: --l_exp_instance_rec.call_contracts := p_call_contracts;
1617: l_exp_instance_rec.call_contracts := fnd_api.g_false;
1618: --code modification end for 3681856--
1619:
1620: l_trx_rec.transaction_id := fnd_api.g_miss_num;
1621:
1622: csi_t_gen_utility_pvt.dump_api_info(
1623: p_api_name => 'expire_item_instance',
1624: p_pkg_name => 'csi_item_instance_pub');
1624: p_pkg_name => 'csi_item_instance_pub');
1625:
1626: csi_item_instance_pub.expire_item_instance(
1627: p_api_version => 1.0,
1628: p_commit => fnd_api.g_false,
1629: p_init_msg_list => fnd_api.g_true,
1630: p_validation_level => fnd_api.g_valid_level_full,
1631: p_instance_rec => l_exp_instance_rec,
1632: p_expire_children => fnd_api.g_true,
1625:
1626: csi_item_instance_pub.expire_item_instance(
1627: p_api_version => 1.0,
1628: p_commit => fnd_api.g_false,
1629: p_init_msg_list => fnd_api.g_true,
1630: p_validation_level => fnd_api.g_valid_level_full,
1631: p_instance_rec => l_exp_instance_rec,
1632: p_expire_children => fnd_api.g_true,
1633: p_txn_rec => l_trx_rec,
1626: csi_item_instance_pub.expire_item_instance(
1627: p_api_version => 1.0,
1628: p_commit => fnd_api.g_false,
1629: p_init_msg_list => fnd_api.g_true,
1630: p_validation_level => fnd_api.g_valid_level_full,
1631: p_instance_rec => l_exp_instance_rec,
1632: p_expire_children => fnd_api.g_true,
1633: p_txn_rec => l_trx_rec,
1634: x_instance_id_lst => l_exp_instance_id_lst,
1628: p_commit => fnd_api.g_false,
1629: p_init_msg_list => fnd_api.g_true,
1630: p_validation_level => fnd_api.g_valid_level_full,
1631: p_instance_rec => l_exp_instance_rec,
1632: p_expire_children => fnd_api.g_true,
1633: p_txn_rec => l_trx_rec,
1634: x_instance_id_lst => l_exp_instance_id_lst,
1635: x_return_status => l_return_status,
1636: x_msg_count => l_msg_count,
1635: x_return_status => l_return_status,
1636: x_msg_count => l_msg_count,
1637: x_msg_data => l_msg_data);
1638:
1639: IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
1640: g_api_name := 'csi_item_instance_pub.expire_item_instance';
1641: raise fnd_api.g_exc_error;
1642: END IF;
1643: END IF;
1637: x_msg_data => l_msg_data);
1638:
1639: IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
1640: g_api_name := 'csi_item_instance_pub.expire_item_instance';
1641: raise fnd_api.g_exc_error;
1642: END IF;
1643: END IF;
1644:
1645: l_trx_rec.source_group_ref_id := l_ns_instance_rec.instance_id;
1651: WHERE transaction_id = l_trx_rec.transaction_id;
1652:
1653: csi_transactions_pvt.update_transactions(
1654: p_api_version => 1.0,
1655: p_init_msg_list => fnd_api.g_false,
1656: p_commit => fnd_api.g_false,
1657: p_validation_level => fnd_api.g_valid_level_full,
1658: p_transaction_rec => l_trx_rec,
1659: x_return_status => l_return_status,
1652:
1653: csi_transactions_pvt.update_transactions(
1654: p_api_version => 1.0,
1655: p_init_msg_list => fnd_api.g_false,
1656: p_commit => fnd_api.g_false,
1657: p_validation_level => fnd_api.g_valid_level_full,
1658: p_transaction_rec => l_trx_rec,
1659: x_return_status => l_return_status,
1660: x_msg_count => l_msg_count,
1653: csi_transactions_pvt.update_transactions(
1654: p_api_version => 1.0,
1655: p_init_msg_list => fnd_api.g_false,
1656: p_commit => fnd_api.g_false,
1657: p_validation_level => fnd_api.g_valid_level_full,
1658: p_transaction_rec => l_trx_rec,
1659: x_return_status => l_return_status,
1660: x_msg_count => l_msg_count,
1661: x_msg_data => l_msg_data);
1671:
1672: EXCEPTION
1673: WHEN skip_non_source THEN
1674: debug(' skip non source processing :'||l_skip_reason);
1675: x_return_status := fnd_api.g_ret_sts_success;
1676: WHEN fnd_api.g_exc_error THEN
1677: x_return_status := fnd_api.g_ret_sts_error;
1678: END process_non_source;
1679:
1672: EXCEPTION
1673: WHEN skip_non_source THEN
1674: debug(' skip non source processing :'||l_skip_reason);
1675: x_return_status := fnd_api.g_ret_sts_success;
1676: WHEN fnd_api.g_exc_error THEN
1677: x_return_status := fnd_api.g_ret_sts_error;
1678: END process_non_source;
1679:
1680: /* ********************************************************************** */
1673: WHEN skip_non_source THEN
1674: debug(' skip non source processing :'||l_skip_reason);
1675: x_return_status := fnd_api.g_ret_sts_success;
1676: WHEN fnd_api.g_exc_error THEN
1677: x_return_status := fnd_api.g_ret_sts_error;
1678: END process_non_source;
1679:
1680: /* ********************************************************************** */
1681: /* Procedure name: get_order_shipment_rec */
1730: l_party_id NUMBER;
1731: l_uom_rate NUMBER;
1732: l_shipped_qty NUMBER;
1733: l_count NUMBER := 0;
1734: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1735: l_active_instances_only varchar2(1);
1736:
1737: -- Included Transaction rec as part of fix for Bug 2767338
1738: CURSOR mmt_cur(p_trx_id IN NUMBER) IS
1864: l_partner_owner_acct_id NUMBER;
1865:
1866: BEGIN
1867:
1868: x_return_status := fnd_api.g_ret_sts_success;
1869:
1870: -- Included Transaction rec as part of fix for Bug 2767338
1871: l_trx_rec := p_transaction_rec;
1872:
1888: THEN
1889: IF l_partner_rec.END_CUSTOMER_ID is null Then
1890: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1891: fnd_msg_pub.add;
1892: raise fnd_api.g_exc_error;
1893: ELSE
1894: mmt_rec.ib_owner := l_partner_rec.ib_owner;
1895: mmt_rec.end_customer_id := l_partner_rec.end_customer_id;
1896: END IF;
1896: END IF;
1897: ELSIF l_partner_rec.IB_OWNER = 'INSTALL_BASE'
1898: THEN
1899: mmt_rec.ib_owner := l_partner_rec.ib_owner;
1900: mmt_rec.end_customer_id := fnd_api.g_miss_num;
1901: ELSE
1902: mmt_rec.end_customer_id := mmt_rec.sold_to_org_id;
1903: END IF;
1904:
1910: IF l_partner_rec.end_customer_site_use_id is null
1911: THEN
1912: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1913: fnd_msg_pub.add;
1914: raise fnd_api.g_exc_error;
1915: ELSE
1916: mmt_rec.ib_install_loc_id := l_partner_rec.end_customer_site_use_id;
1917: END IF;
1918: ELSIF mmt_rec.ib_install_loc = 'SHIP_TO'
1920: IF mmt_rec.ship_to_org_id is null
1921: THEN
1922: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1923: fnd_msg_pub.add;
1924: raise fnd_api.g_exc_error;
1925: ELSE
1926: mmt_rec.ib_install_loc_id := mmt_rec.ship_to_org_id;
1927: END IF;
1928: ELSIF mmt_rec.ib_install_loc = 'SOLD_TO'
1930: IF l_partner_rec.SOLD_TO_SITE_USE_ID is null -- 3412544 mmt_rec.sold_to_org_id is null
1931: THEN
1932: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1933: fnd_msg_pub.add;
1934: raise fnd_api.g_exc_error;
1935: ELSE
1936: mmt_rec.ib_install_loc_id := l_partner_rec.SOLD_TO_SITE_USE_ID; -- 3412544 mmt_rec.sold_to_org_id;
1937: END IF;
1938: ELSIF mmt_rec.ib_install_loc = 'DELIVER_TO'
1940: IF mmt_rec.deliver_to_org_id is null
1941: THEN
1942: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1943: fnd_msg_pub.add;
1944: raise fnd_api.g_exc_error;
1945: ELSE
1946: mmt_rec.ib_install_loc_id := mmt_rec.deliver_to_org_id;
1947: END IF;
1948: ELSIF mmt_rec.ib_install_loc = 'BILL_TO'
1950: IF mmt_rec.invoice_to_org_id is null
1951: THEN
1952: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1953: fnd_msg_pub.add;
1954: raise fnd_api.g_exc_error;
1955: ELSE
1956: mmt_rec.ib_install_loc_id := mmt_rec.invoice_to_org_id;
1957: END IF;
1958: ELSIF mmt_rec.ib_install_loc = 'INSTALL_BASE'
1956: mmt_rec.ib_install_loc_id := mmt_rec.invoice_to_org_id;
1957: END IF;
1958: ELSIF mmt_rec.ib_install_loc = 'INSTALL_BASE'
1959: THEN
1960: mmt_rec.ib_install_loc_id := fnd_api.g_miss_num;
1961: END IF;
1962: ELSE
1963: mmt_rec.ib_install_loc_id := mmt_rec.ship_to_org_id;
1964: END IF;
1971: IF l_partner_rec.end_customer_site_use_id is null
1972: THEN
1973: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1974: fnd_msg_pub.add;
1975: raise fnd_api.g_exc_error;
1976: ELSE
1977: mmt_rec.ib_current_loc_id := l_partner_rec.end_customer_site_use_id;
1978: END IF;
1979: ELSIF mmt_rec.ib_current_loc = 'SHIP_TO'
1981: IF mmt_rec.ship_to_org_id is null
1982: THEN
1983: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1984: fnd_msg_pub.add;
1985: raise fnd_api.g_exc_error;
1986: ELSE
1987: mmt_rec.ib_current_loc_id := mmt_rec.ship_to_org_id;
1988: END IF;
1989: ELSIF mmt_rec.ib_current_loc = 'SOLD_TO'
1991: IF l_partner_rec.SOLD_TO_SITE_USE_ID is null -- 3412544 mmt_rec.sold_to_org_id is null
1992: THEN
1993: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
1994: fnd_msg_pub.add;
1995: raise fnd_api.g_exc_error;
1996: ELSE
1997: mmt_rec.ib_current_loc_id := l_partner_rec.SOLD_TO_SITE_USE_ID; -- 3412544 mmt_rec.sold_to_org_id;
1998: END IF;
1999: ELSIF mmt_rec.ib_current_loc = 'DELIVER_TO'
2001: IF mmt_rec.deliver_to_org_id is null
2002: THEN
2003: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
2004: fnd_msg_pub.add;
2005: raise fnd_api.g_exc_error;
2006: ELSE
2007: mmt_rec.ib_current_loc_id := mmt_rec.deliver_to_org_id;
2008: END IF;
2009: ELSIF mmt_rec.ib_current_loc = 'BILL_TO'
2011: IF mmt_rec.invoice_to_org_id is null
2012: THEN
2013: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
2014: fnd_msg_pub.add;
2015: raise fnd_api.g_exc_error;
2016: ELSE
2017: mmt_rec.ib_current_loc_id := mmt_rec.invoice_to_org_id;
2018: END IF;
2019: ELSIF mmt_rec.ib_current_loc = 'INSTALL_BASE'
2017: mmt_rec.ib_current_loc_id := mmt_rec.invoice_to_org_id;
2018: END IF;
2019: ELSIF mmt_rec.ib_current_loc = 'INSTALL_BASE'
2020: THEN
2021: mmt_rec.ib_current_loc_id := fnd_api.g_miss_num;
2022: END IF;
2023: ELSE
2024: mmt_rec.ib_current_loc_id := mmt_rec.ship_to_org_id;
2025: END IF;
2031: p_cust_acct_id => mmt_rec.end_customer_id, --mmt_rec.sold_to_org_id,
2032: x_party_id => l_party_id,
2033: x_return_status => l_return_status);
2034:
2035: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2036: raise fnd_api.g_exc_error;
2037: END IF;
2038:
2039: IF l_party_id = -1 THEN
2032: x_party_id => l_party_id,
2033: x_return_status => l_return_status);
2034:
2035: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2036: raise fnd_api.g_exc_error;
2037: END IF;
2038:
2039: IF l_party_id = -1 THEN
2040: raise fnd_api.g_exc_error;
2036: raise fnd_api.g_exc_error;
2037: END IF;
2038:
2039: IF l_party_id = -1 THEN
2040: raise fnd_api.g_exc_error;
2041: END IF;
2042:
2043: /* Convert the shipped qty to UOM in OM */
2044: inv_convert.inv_um_conversion (
2050: debug('UOM Conv Factor :'||l_uom_rate);
2051:
2052: IF l_uom_rate = -99999 THEN
2053: debug('inv_convert.inv_um_conversion failed ');
2054: raise fnd_api.g_exc_error;
2055: END IF;
2056:
2057: l_shipped_qty := (l_uom_rate * mmt_rec.shipped_quantity);
2058:
2098: -- To achieve this p_active_instances_only should have a value of false.
2099:
2100: IF mmt_rec.reservable_type = 2
2101: THEN
2102: l_active_instances_only := fnd_api.g_false;
2103: ELSE
2104: l_active_instances_only := fnd_api.g_true;
2105: END IF;
2106:
2100: IF mmt_rec.reservable_type = 2
2101: THEN
2102: l_active_instances_only := fnd_api.g_false;
2103: ELSE
2104: l_active_instances_only := fnd_api.g_true;
2105: END IF;
2106:
2107: csi_item_instance_pub.get_item_instances(
2108: p_api_version => 1.0,
2105: END IF;
2106:
2107: csi_item_instance_pub.get_item_instances(
2108: p_api_version => 1.0,
2109: p_commit => fnd_api.g_false,
2110: p_init_msg_list => fnd_api.g_true,
2111: p_validation_level => fnd_api.g_valid_level_full,
2112: p_instance_query_rec => l_inst_query_rec,
2113: p_party_query_rec => l_party_query_rec,
2106:
2107: csi_item_instance_pub.get_item_instances(
2108: p_api_version => 1.0,
2109: p_commit => fnd_api.g_false,
2110: p_init_msg_list => fnd_api.g_true,
2111: p_validation_level => fnd_api.g_valid_level_full,
2112: p_instance_query_rec => l_inst_query_rec,
2113: p_party_query_rec => l_party_query_rec,
2114: p_account_query_rec => l_pty_acct_query_rec,
2107: csi_item_instance_pub.get_item_instances(
2108: p_api_version => 1.0,
2109: p_commit => fnd_api.g_false,
2110: p_init_msg_list => fnd_api.g_true,
2111: p_validation_level => fnd_api.g_valid_level_full,
2112: p_instance_query_rec => l_inst_query_rec,
2113: p_party_query_rec => l_party_query_rec,
2114: p_account_query_rec => l_pty_acct_query_rec,
2115: p_transaction_id => null,
2112: p_instance_query_rec => l_inst_query_rec,
2113: p_party_query_rec => l_party_query_rec,
2114: p_account_query_rec => l_pty_acct_query_rec,
2115: p_transaction_id => null,
2116: p_resolve_id_columns => fnd_api.g_false,
2117: p_active_instance_only => l_active_instances_only,-- fnd_api.g_false, --fnd_api.g_true,
2118: x_instance_header_tbl => l_instance_header_tbl,
2119: x_return_status => x_return_status,
2120: x_msg_count => x_msg_count,
2113: p_party_query_rec => l_party_query_rec,
2114: p_account_query_rec => l_pty_acct_query_rec,
2115: p_transaction_id => null,
2116: p_resolve_id_columns => fnd_api.g_false,
2117: p_active_instance_only => l_active_instances_only,-- fnd_api.g_false, --fnd_api.g_true,
2118: x_instance_header_tbl => l_instance_header_tbl,
2119: x_return_status => x_return_status,
2120: x_msg_count => x_msg_count,
2121: x_msg_data => x_msg_data);
2119: x_return_status => x_return_status,
2120: x_msg_count => x_msg_count,
2121: x_msg_data => x_msg_data);
2122:
2123: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2124: raise fnd_api.g_exc_error;
2125: END IF;
2126:
2127: debug('Instance(s) Count :'||l_instance_header_tbl.count);
2120: x_msg_count => x_msg_count,
2121: x_msg_data => x_msg_data);
2122:
2123: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2124: raise fnd_api.g_exc_error;
2125: END IF;
2126:
2127: debug('Instance(s) Count :'||l_instance_header_tbl.count);
2128:
2162: l_cre_instance_rec.source_code := 'SIEBEL';
2163: END IF;
2164: -- End Add Code for Siebel Genesis Project
2165:
2166: IF nvl(l_inst_query_rec.serial_number,fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
2167: l_cre_instance_rec.mfg_serial_number_flag := 'N';
2168: ELSE
2169: l_cre_instance_rec.mfg_serial_number_flag := 'Y';
2170: END IF;
2185:
2186: debug('Creating an instance with quantity 1 for Non-Reservable Item');
2187: csi_item_instance_pub.create_item_instance(
2188: p_api_version => 1.0,
2189: p_commit => fnd_api.g_false,
2190: p_init_msg_list => fnd_api.g_true,
2191: p_validation_level => fnd_api.g_valid_level_full,
2192: p_instance_rec => l_cre_instance_rec,
2193: p_ext_attrib_values_tbl => l_cre_ext_attrib_val_tbl,
2186: debug('Creating an instance with quantity 1 for Non-Reservable Item');
2187: csi_item_instance_pub.create_item_instance(
2188: p_api_version => 1.0,
2189: p_commit => fnd_api.g_false,
2190: p_init_msg_list => fnd_api.g_true,
2191: p_validation_level => fnd_api.g_valid_level_full,
2192: p_instance_rec => l_cre_instance_rec,
2193: p_ext_attrib_values_tbl => l_cre_ext_attrib_val_tbl,
2194: p_party_tbl => l_cre_party_tbl,
2187: csi_item_instance_pub.create_item_instance(
2188: p_api_version => 1.0,
2189: p_commit => fnd_api.g_false,
2190: p_init_msg_list => fnd_api.g_true,
2191: p_validation_level => fnd_api.g_valid_level_full,
2192: p_instance_rec => l_cre_instance_rec,
2193: p_ext_attrib_values_tbl => l_cre_ext_attrib_val_tbl,
2194: p_party_tbl => l_cre_party_tbl,
2195: p_account_tbl => l_cre_party_acct_tbl,
2201: x_msg_count => x_msg_count,
2202: x_msg_data => x_msg_data );
2203:
2204: -- For Bug 4057183
2205: -- IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2206: IF NOT(x_return_status in (fnd_api.g_ret_sts_success,'W')) THEN
2207: g_api_name := 'csi_item_instance_pub.create_item_instance';
2208: raise fnd_api.g_exc_error;
2209: END IF;
2202: x_msg_data => x_msg_data );
2203:
2204: -- For Bug 4057183
2205: -- IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2206: IF NOT(x_return_status in (fnd_api.g_ret_sts_success,'W')) THEN
2207: g_api_name := 'csi_item_instance_pub.create_item_instance';
2208: raise fnd_api.g_exc_error;
2209: END IF;
2210:
2204: -- For Bug 4057183
2205: -- IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2206: IF NOT(x_return_status in (fnd_api.g_ret_sts_success,'W')) THEN
2207: g_api_name := 'csi_item_instance_pub.create_item_instance';
2208: raise fnd_api.g_exc_error;
2209: END IF;
2210:
2211: l_zero_instance_rec.instance_id := l_cre_instance_rec.instance_id;
2212: l_zero_instance_rec.quantity := 0;
2226: p_api_name => 'update_item_instance');
2227:
2228: csi_item_instance_pub.update_item_instance(
2229: p_api_version => 1.0,
2230: p_commit => fnd_api.g_false,
2231: p_init_msg_list => fnd_api.g_true,
2232: p_validation_level => fnd_api.g_valid_level_full,
2233: p_instance_rec => l_zero_instance_rec,
2234: p_party_tbl => l_zero_parties_tbl,
2227:
2228: csi_item_instance_pub.update_item_instance(
2229: p_api_version => 1.0,
2230: p_commit => fnd_api.g_false,
2231: p_init_msg_list => fnd_api.g_true,
2232: p_validation_level => fnd_api.g_valid_level_full,
2233: p_instance_rec => l_zero_instance_rec,
2234: p_party_tbl => l_zero_parties_tbl,
2235: p_account_tbl => l_zero_pty_accts_tbl,
2228: csi_item_instance_pub.update_item_instance(
2229: p_api_version => 1.0,
2230: p_commit => fnd_api.g_false,
2231: p_init_msg_list => fnd_api.g_true,
2232: p_validation_level => fnd_api.g_valid_level_full,
2233: p_instance_rec => l_zero_instance_rec,
2234: p_party_tbl => l_zero_parties_tbl,
2235: p_account_tbl => l_zero_pty_accts_tbl,
2236: p_org_assignments_tbl => l_zero_org_units_tbl,
2243: x_msg_count => x_msg_count,
2244: x_msg_data => x_msg_data);
2245:
2246: -- For Bug 4057183
2247: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2248: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2249: RAISE fnd_api.g_exc_error;
2250: END IF;
2251:
2244: x_msg_data => x_msg_data);
2245:
2246: -- For Bug 4057183
2247: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2248: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2249: RAISE fnd_api.g_exc_error;
2250: END IF;
2251:
2252: debug('Instance ('||l_zero_instance_rec.instance_id||') created and updated with zero quantity successfully.');
2245:
2246: -- For Bug 4057183
2247: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2248: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2249: RAISE fnd_api.g_exc_error;
2250: END IF;
2251:
2252: debug('Instance ('||l_zero_instance_rec.instance_id||') created and updated with zero quantity successfully.');
2253: l_instance_header_tbl(1).instance_id := l_zero_instance_rec.instance_id;
2263:
2264: ELSE
2265: fnd_message.SET_NAME('CSI','CSI_INT_NO_INST_FOUND');
2266: fnd_msg_pub.add;
2267: raise fnd_api.g_exc_error;
2268: END IF;
2269: END IF;
2270: -- Bug 2767338
2271: -- End Fix for negative quantity option set at Org Level
2272:
2273: IF l_instance_header_tbl.count > 1 THEN
2274: fnd_message.SET_NAME('CSI','CSI_INT_MANY_INST_FOUND');
2275: fnd_msg_pub.add;
2276: raise fnd_api.g_exc_error;
2277: END IF;
2278:
2279: debug('Unique inventory instance found.....!');
2280: px_error_rec.instance_id := l_instance_header_tbl(1).instance_id;
2346: -- End Add Code for Siebel Genesis Project
2347: END LOOP;
2348:
2349: EXCEPTION
2350: WHEN fnd_api.g_exc_error THEN
2351: x_return_status := fnd_api.g_ret_sts_error;
2352: WHEN fnd_api.g_exc_unexpected_error THEN
2353: x_return_status := fnd_api.g_ret_sts_unexp_error;
2354: END get_order_shipment_rec;
2347: END LOOP;
2348:
2349: EXCEPTION
2350: WHEN fnd_api.g_exc_error THEN
2351: x_return_status := fnd_api.g_ret_sts_error;
2352: WHEN fnd_api.g_exc_unexpected_error THEN
2353: x_return_status := fnd_api.g_ret_sts_unexp_error;
2354: END get_order_shipment_rec;
2355:
2348:
2349: EXCEPTION
2350: WHEN fnd_api.g_exc_error THEN
2351: x_return_status := fnd_api.g_ret_sts_error;
2352: WHEN fnd_api.g_exc_unexpected_error THEN
2353: x_return_status := fnd_api.g_ret_sts_unexp_error;
2354: END get_order_shipment_rec;
2355:
2356: /* To build the matched txn line details if entered for order line . */
2349: EXCEPTION
2350: WHEN fnd_api.g_exc_error THEN
2351: x_return_status := fnd_api.g_ret_sts_error;
2352: WHEN fnd_api.g_exc_unexpected_error THEN
2353: x_return_status := fnd_api.g_ret_sts_unexp_error;
2354: END get_order_shipment_rec;
2355:
2356: /* To build the matched txn line details if entered for order line . */
2357: /* If txn line details does not exist then it creates one from the */
2398: x_model_inst_tbl model_inst_tbl;
2399: l_qty_ratio number;
2400: l_model_exist boolean := FALSE;
2401:
2402: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2403: l_msg_count number;
2404: l_msg_data varchar2(2000);
2405:
2406: -- Included Transaction rec as part of fix for Bug 2767338
2409: ---Added (Start) for m-to-m enhancements
2410: l_temp_txn_ii_rltns_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
2411: ---Added (End) for m-to-m enhancements
2412:
2413: l_parent_line_qty NUMBER := fnd_api.g_miss_num;
2414: --
2415: -- srramakr Added for TSO With Equipment
2416: l_om_session_key csi_utility_grp.config_session_key;
2417: l_macd_processing BOOLEAN := FALSE;
2417: l_macd_processing BOOLEAN := FALSE;
2418:
2419: BEGIN
2420:
2421: x_return_status := fnd_api.g_ret_sts_success;
2422: -- Included Transaction rec as part of fix for Bug 2767338
2423: l_trx_rec := p_transaction_rec;
2424:
2425: api_log('build_shtd_table');
2434: x_order_shipment_tbl => x_order_shipment_tbl,
2435: px_error_rec => px_error_rec,
2436: x_return_status => l_return_status );
2437:
2438: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2439: raise fnd_api.g_exc_error;
2440: END IF;
2441:
2442: debug(' order_shipment_tbl.count :'||x_order_shipment_tbl.count);
2435: px_error_rec => px_error_rec,
2436: x_return_status => l_return_status );
2437:
2438: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2439: raise fnd_api.g_exc_error;
2440: END IF;
2441:
2442: debug(' order_shipment_tbl.count :'||x_order_shipment_tbl.count);
2443:
2441:
2442: debug(' order_shipment_tbl.count :'||x_order_shipment_tbl.count);
2443:
2444: /* Get the instances for the option class/model line_id (ATO/PTO) */
2445: IF NVL(p_order_line_rec.link_to_line_id ,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
2446:
2447: x_model_inst_tbl.delete;
2448: --
2449: -- srramakr Added for TSO with Equipment
2455: ( p_config_session_key => l_om_session_key,
2456: x_return_status => l_return_status
2457: );
2458: --
2459: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2460: RAISE fnd_api.g_exc_error;
2461: END IF;
2462: --
2463: IF NOT l_macd_processing THEN
2456: x_return_status => l_return_status
2457: );
2458: --
2459: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2460: RAISE fnd_api.g_exc_error;
2461: END IF;
2462: --
2463: IF NOT l_macd_processing THEN
2464: csi_utl_pkg.get_model_inst_lst(
2465: p_parent_line_id => p_order_line_rec.link_to_line_id,
2466: x_model_inst_tbl => x_model_inst_tbl,
2467: x_return_status => l_return_status);
2468:
2469: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2470: raise fnd_api.g_exc_error;
2471: END IF;
2472: ELSE -- MACD Order Line
2473: p_order_line_rec.macd_order_line := FND_API.G_TRUE;
2466: x_model_inst_tbl => x_model_inst_tbl,
2467: x_return_status => l_return_status);
2468:
2469: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2470: raise fnd_api.g_exc_error;
2471: END IF;
2472: ELSE -- MACD Order Line
2473: p_order_line_rec.macd_order_line := FND_API.G_TRUE;
2474: END IF; -- MACD Processing check
2469: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2470: raise fnd_api.g_exc_error;
2471: END IF;
2472: ELSE -- MACD Order Line
2473: p_order_line_rec.macd_order_line := FND_API.G_TRUE;
2474: END IF; -- MACD Processing check
2475: -- srramakr End of TSO with Equipment
2476: --
2477: debug(' model_inst_tbl.count :'||x_model_inst_tbl.count);
2506: px_order_shipment_tbl => x_order_shipment_tbl,
2507: x_transaction_line_id => x_trx_line_id,
2508: x_return_status => l_return_status);
2509:
2510: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2511: raise fnd_api.g_exc_error;
2512: END IF;
2513:
2514: ELSIF p_order_line_rec.item_type_code = 'OPTION' THEN
2507: x_transaction_line_id => x_trx_line_id,
2508: x_return_status => l_return_status);
2509:
2510: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2511: raise fnd_api.g_exc_error;
2512: END IF;
2513:
2514: ELSIF p_order_line_rec.item_type_code = 'OPTION' THEN
2515:
2522: x_model_inst_tbl => x_model_inst_tbl,
2523: x_trx_line_id => x_trx_line_id,
2524: x_return_status => l_return_status);
2525:
2526: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2527: raise fnd_api.g_exc_error;
2528: END IF;
2529:
2530: ELSE
2523: x_trx_line_id => x_trx_line_id,
2524: x_return_status => l_return_status);
2525:
2526: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2527: raise fnd_api.g_exc_error;
2528: END IF;
2529:
2530: ELSE
2531:
2540: x_model_inst_tbl => x_model_inst_tbl,
2541: x_trx_line_id => x_trx_line_id,
2542: x_return_status => l_return_status );
2543:
2544: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2545: raise fnd_api.g_exc_error;
2546: END IF;
2547:
2548: ELSE -- create transaction details
2541: x_trx_line_id => x_trx_line_id,
2542: x_return_status => l_return_status );
2543:
2544: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2545: raise fnd_api.g_exc_error;
2546: END IF;
2547:
2548: ELSE -- create transaction details
2549:
2554: px_order_shipment_tbl => x_order_shipment_tbl,
2555: x_transaction_line_id => x_trx_line_id,
2556: x_return_status => l_return_status);
2557:
2558: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2559: raise fnd_api.g_exc_error;
2560: END IF;
2561:
2562: END IF;
2555: x_transaction_line_id => x_trx_line_id,
2556: x_return_status => l_return_status);
2557:
2558: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2559: raise fnd_api.g_exc_error;
2560: END IF;
2561:
2562: END IF;
2563:
2580: debug('Getting installation details for matching with material transaction info.' );
2581:
2582: csi_t_txn_details_grp.get_transaction_details(
2583: p_api_version => 1.0,
2584: p_commit => fnd_api.g_false,
2585: p_init_msg_list => fnd_api.g_true,
2586: p_validation_level => fnd_api.g_valid_level_full,
2587: p_txn_line_query_rec => l_txn_line_query_rec,
2588: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
2581:
2582: csi_t_txn_details_grp.get_transaction_details(
2583: p_api_version => 1.0,
2584: p_commit => fnd_api.g_false,
2585: p_init_msg_list => fnd_api.g_true,
2586: p_validation_level => fnd_api.g_valid_level_full,
2587: p_txn_line_query_rec => l_txn_line_query_rec,
2588: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
2589: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
2582: csi_t_txn_details_grp.get_transaction_details(
2583: p_api_version => 1.0,
2584: p_commit => fnd_api.g_false,
2585: p_init_msg_list => fnd_api.g_true,
2586: p_validation_level => fnd_api.g_valid_level_full,
2587: p_txn_line_query_rec => l_txn_line_query_rec,
2588: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
2589: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
2590: p_get_parties_flag => fnd_api.g_false,
2586: p_validation_level => fnd_api.g_valid_level_full,
2587: p_txn_line_query_rec => l_txn_line_query_rec,
2588: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
2589: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
2590: p_get_parties_flag => fnd_api.g_false,
2591: x_txn_party_detail_tbl => l_txn_party_detail_tbl,
2592: p_get_pty_accts_flag => fnd_api.g_false,
2593: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl,
2594: p_get_ii_rltns_flag => fnd_api.g_true,
2588: p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec,
2589: x_txn_line_detail_tbl => l_txn_line_detail_tbl,
2590: p_get_parties_flag => fnd_api.g_false,
2591: x_txn_party_detail_tbl => l_txn_party_detail_tbl,
2592: p_get_pty_accts_flag => fnd_api.g_false,
2593: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl,
2594: p_get_ii_rltns_flag => fnd_api.g_true,
2595: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2596: p_get_org_assgns_flag => fnd_api.g_false,
2590: p_get_parties_flag => fnd_api.g_false,
2591: x_txn_party_detail_tbl => l_txn_party_detail_tbl,
2592: p_get_pty_accts_flag => fnd_api.g_false,
2593: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl,
2594: p_get_ii_rltns_flag => fnd_api.g_true,
2595: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2596: p_get_org_assgns_flag => fnd_api.g_false,
2597: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
2598: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2592: p_get_pty_accts_flag => fnd_api.g_false,
2593: x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl,
2594: p_get_ii_rltns_flag => fnd_api.g_true,
2595: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2596: p_get_org_assgns_flag => fnd_api.g_false,
2597: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
2598: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2599: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
2600: p_get_csi_attribs_flag => fnd_api.g_false,
2594: p_get_ii_rltns_flag => fnd_api.g_true,
2595: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2596: p_get_org_assgns_flag => fnd_api.g_false,
2597: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
2598: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2599: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
2600: p_get_csi_attribs_flag => fnd_api.g_false,
2601: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
2602: p_get_csi_iea_values_flag => fnd_api.g_false,
2596: p_get_org_assgns_flag => fnd_api.g_false,
2597: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
2598: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2599: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
2600: p_get_csi_attribs_flag => fnd_api.g_false,
2601: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
2602: p_get_csi_iea_values_flag => fnd_api.g_false,
2603: x_csi_iea_values_tbl => l_extend_attrib_values_tbl,
2604: p_get_txn_systems_flag => fnd_api.g_false,
2598: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2599: x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl,
2600: p_get_csi_attribs_flag => fnd_api.g_false,
2601: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
2602: p_get_csi_iea_values_flag => fnd_api.g_false,
2603: x_csi_iea_values_tbl => l_extend_attrib_values_tbl,
2604: p_get_txn_systems_flag => fnd_api.g_false,
2605: x_txn_systems_tbl => l_txn_systems_tbl,
2606: x_return_status => l_return_status,
2600: p_get_csi_attribs_flag => fnd_api.g_false,
2601: x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl,
2602: p_get_csi_iea_values_flag => fnd_api.g_false,
2603: x_csi_iea_values_tbl => l_extend_attrib_values_tbl,
2604: p_get_txn_systems_flag => fnd_api.g_false,
2605: x_txn_systems_tbl => l_txn_systems_tbl,
2606: x_return_status => l_return_status,
2607: x_msg_count => l_msg_count,
2608: x_msg_data => l_msg_data);
2606: x_return_status => l_return_status,
2607: x_msg_count => l_msg_count,
2608: x_msg_data => l_msg_data);
2609:
2610: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2611: raise fnd_api.g_exc_error;
2612: END IF;
2613:
2614: debug(' txn_line_detail_tbl.count :'||l_txn_line_detail_tbl.count );
2607: x_msg_count => l_msg_count,
2608: x_msg_data => l_msg_data);
2609:
2610: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2611: raise fnd_api.g_exc_error;
2612: END IF;
2613:
2614: debug(' txn_line_detail_tbl.count :'||l_txn_line_detail_tbl.count );
2615: debug(' txn_ii_rltns_tbl.count :'||l_txn_ii_rltns_tbl.count );
2623: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2624: x_order_shipment_tbl => x_order_shipment_tbl,
2625: x_return_status => l_return_status );
2626:
2627: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2628: raise fnd_api.g_exc_error;
2629: END IF;
2630:
2631: --Added (Start) for m-to-m enhancements
2624: x_order_shipment_tbl => x_order_shipment_tbl,
2625: x_return_status => l_return_status );
2626:
2627: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2628: raise fnd_api.g_exc_error;
2629: END IF;
2630:
2631: --Added (Start) for m-to-m enhancements
2632: --05/20 For each TLD in ,l_txn_line_detail_tbl
2636: l_txn_line_detail_tbl,
2637: l_temp_txn_ii_rltns_tbl,
2638: l_return_status);
2639:
2640: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2641: raise fnd_api.g_exc_error;
2642: END IF;
2643:
2644: --Create these relations in csi_t_ii_relationships table
2637: l_temp_txn_ii_rltns_tbl,
2638: l_return_status);
2639:
2640: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2641: raise fnd_api.g_exc_error;
2642: END IF;
2643:
2644: --Create these relations in csi_t_ii_relationships table
2645:
2645:
2646: IF l_temp_txn_ii_rltns_tbl.count > 0 THEN
2647: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2648: p_api_version => 1.0,
2649: p_commit => fnd_api.g_false,
2650: p_init_msg_list => fnd_api.g_true,
2651: p_validation_level => fnd_api.g_valid_level_full,
2652: px_txn_ii_rltns_tbl => l_temp_txn_ii_rltns_tbl,
2653: x_return_status => l_return_status,
2646: IF l_temp_txn_ii_rltns_tbl.count > 0 THEN
2647: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2648: p_api_version => 1.0,
2649: p_commit => fnd_api.g_false,
2650: p_init_msg_list => fnd_api.g_true,
2651: p_validation_level => fnd_api.g_valid_level_full,
2652: px_txn_ii_rltns_tbl => l_temp_txn_ii_rltns_tbl,
2653: x_return_status => l_return_status,
2654: x_msg_count => x_msg_count,
2647: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2648: p_api_version => 1.0,
2649: p_commit => fnd_api.g_false,
2650: p_init_msg_list => fnd_api.g_true,
2651: p_validation_level => fnd_api.g_valid_level_full,
2652: px_txn_ii_rltns_tbl => l_temp_txn_ii_rltns_tbl,
2653: x_return_status => l_return_status,
2654: x_msg_count => x_msg_count,
2655: x_msg_data => x_msg_data);
2653: x_return_status => l_return_status,
2654: x_msg_count => x_msg_count,
2655: x_msg_data => x_msg_data);
2656:
2657: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2658: raise fnd_api.g_exc_error;
2659: END IF;
2660: END IF ; ---l_temp_txn_ii_rltns_tbl.count>0
2661: --added (end) for m-to-m enhancements
2654: x_msg_count => x_msg_count,
2655: x_msg_data => x_msg_data);
2656:
2657: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2658: raise fnd_api.g_exc_error;
2659: END IF;
2660: END IF ; ---l_temp_txn_ii_rltns_tbl.count>0
2661: --added (end) for m-to-m enhancements
2662: ELSE
2670: px_order_shipment_tbl => x_order_shipment_tbl,
2671: x_transaction_line_id => x_trx_line_id,
2672: x_return_status => l_return_status);
2673:
2674: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2675: raise fnd_api.g_exc_error;
2676: END IF;
2677:
2678: ELSIF p_order_line_rec.item_type_code = 'OPTION' THEN
2671: x_transaction_line_id => x_trx_line_id,
2672: x_return_status => l_return_status);
2673:
2674: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2675: raise fnd_api.g_exc_error;
2676: END IF;
2677:
2678: ELSIF p_order_line_rec.item_type_code = 'OPTION' THEN
2679:
2686: x_model_inst_tbl => x_model_inst_tbl,
2687: x_trx_line_id => x_trx_line_id,
2688: x_return_status => l_return_status);
2689:
2690: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2691: raise fnd_api.g_exc_error;
2692: END IF;
2693:
2694: ELSE
2687: x_trx_line_id => x_trx_line_id,
2688: x_return_status => l_return_status);
2689:
2690: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2691: raise fnd_api.g_exc_error;
2692: END IF;
2693:
2694: ELSE
2695:
2700: px_order_shipment_tbl => x_order_shipment_tbl,
2701: x_transaction_line_id => x_trx_line_id,
2702: x_return_status => l_return_status);
2703:
2704: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2705: raise fnd_api.g_exc_error;
2706: END IF;
2707:
2708: END IF;
2701: x_transaction_line_id => x_trx_line_id,
2702: x_return_status => l_return_status);
2703:
2704: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2705: raise fnd_api.g_exc_error;
2706: END IF;
2707:
2708: END IF;
2709: END IF;
2726: debug('Getting only matched txn line dtls ' );
2727:
2728: csi_t_txn_details_grp.get_transaction_details(
2729: p_api_version => 1.0
2730: ,p_commit => fnd_api.g_false
2731: ,p_init_msg_list => fnd_api.g_true
2732: ,p_validation_level => fnd_api.g_valid_level_full
2733: ,p_txn_line_query_rec => l_txn_line_query_rec
2734: ,p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec
2727:
2728: csi_t_txn_details_grp.get_transaction_details(
2729: p_api_version => 1.0
2730: ,p_commit => fnd_api.g_false
2731: ,p_init_msg_list => fnd_api.g_true
2732: ,p_validation_level => fnd_api.g_valid_level_full
2733: ,p_txn_line_query_rec => l_txn_line_query_rec
2734: ,p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec
2735: ,x_txn_line_detail_tbl => l_txn_line_detail_tbl
2728: csi_t_txn_details_grp.get_transaction_details(
2729: p_api_version => 1.0
2730: ,p_commit => fnd_api.g_false
2731: ,p_init_msg_list => fnd_api.g_true
2732: ,p_validation_level => fnd_api.g_valid_level_full
2733: ,p_txn_line_query_rec => l_txn_line_query_rec
2734: ,p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec
2735: ,x_txn_line_detail_tbl => l_txn_line_detail_tbl
2736: ,p_get_parties_flag => fnd_api.g_false
2732: ,p_validation_level => fnd_api.g_valid_level_full
2733: ,p_txn_line_query_rec => l_txn_line_query_rec
2734: ,p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec
2735: ,x_txn_line_detail_tbl => l_txn_line_detail_tbl
2736: ,p_get_parties_flag => fnd_api.g_false
2737: ,x_txn_party_detail_tbl => l_txn_party_detail_tbl
2738: ,p_get_pty_accts_flag => fnd_api.g_false
2739: ,x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl
2740: ---Added (Start) for m-to-m enhancements
2734: ,p_txn_line_detail_query_rec => l_txn_line_dtl_query_rec
2735: ,x_txn_line_detail_tbl => l_txn_line_detail_tbl
2736: ,p_get_parties_flag => fnd_api.g_false
2737: ,x_txn_party_detail_tbl => l_txn_party_detail_tbl
2738: ,p_get_pty_accts_flag => fnd_api.g_false
2739: ,x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl
2740: ---Added (Start) for m-to-m enhancements
2741: -- Now get the relations
2742: ,p_get_ii_rltns_flag => fnd_api.g_true
2738: ,p_get_pty_accts_flag => fnd_api.g_false
2739: ,x_txn_pty_acct_detail_tbl => l_txn_pty_acct_detail_tbl
2740: ---Added (Start) for m-to-m enhancements
2741: -- Now get the relations
2742: ,p_get_ii_rltns_flag => fnd_api.g_true
2743: ---Added (End) for m-to-m enhancements
2744: ,x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl
2745: ,p_get_org_assgns_flag => fnd_api.g_false
2746: ,x_txn_org_assgn_tbl => l_txn_org_assgn_tbl
2741: -- Now get the relations
2742: ,p_get_ii_rltns_flag => fnd_api.g_true
2743: ---Added (End) for m-to-m enhancements
2744: ,x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl
2745: ,p_get_org_assgns_flag => fnd_api.g_false
2746: ,x_txn_org_assgn_tbl => l_txn_org_assgn_tbl
2747: ,p_get_ext_attrib_vals_flag => fnd_api.g_false
2748: ,x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl
2749: ,p_get_csi_attribs_flag => fnd_api.g_false
2743: ---Added (End) for m-to-m enhancements
2744: ,x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl
2745: ,p_get_org_assgns_flag => fnd_api.g_false
2746: ,x_txn_org_assgn_tbl => l_txn_org_assgn_tbl
2747: ,p_get_ext_attrib_vals_flag => fnd_api.g_false
2748: ,x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl
2749: ,p_get_csi_attribs_flag => fnd_api.g_false
2750: ,x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl
2751: ,p_get_csi_iea_values_flag => fnd_api.g_false
2745: ,p_get_org_assgns_flag => fnd_api.g_false
2746: ,x_txn_org_assgn_tbl => l_txn_org_assgn_tbl
2747: ,p_get_ext_attrib_vals_flag => fnd_api.g_false
2748: ,x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl
2749: ,p_get_csi_attribs_flag => fnd_api.g_false
2750: ,x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl
2751: ,p_get_csi_iea_values_flag => fnd_api.g_false
2752: ,x_csi_iea_values_tbl => l_extend_attrib_values_tbl
2753: ,p_get_txn_systems_flag => fnd_api.g_false
2747: ,p_get_ext_attrib_vals_flag => fnd_api.g_false
2748: ,x_txn_ext_attrib_vals_tbl => l_txn_ext_attrib_vals_tbl
2749: ,p_get_csi_attribs_flag => fnd_api.g_false
2750: ,x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl
2751: ,p_get_csi_iea_values_flag => fnd_api.g_false
2752: ,x_csi_iea_values_tbl => l_extend_attrib_values_tbl
2753: ,p_get_txn_systems_flag => fnd_api.g_false
2754: ,x_txn_systems_tbl => l_txn_systems_tbl
2755: ,x_return_status => x_return_status
2749: ,p_get_csi_attribs_flag => fnd_api.g_false
2750: ,x_csi_ext_attribs_tbl => l_csi_ext_attribs_tbl
2751: ,p_get_csi_iea_values_flag => fnd_api.g_false
2752: ,x_csi_iea_values_tbl => l_extend_attrib_values_tbl
2753: ,p_get_txn_systems_flag => fnd_api.g_false
2754: ,x_txn_systems_tbl => l_txn_systems_tbl
2755: ,x_return_status => x_return_status
2756: ,x_msg_count => x_msg_count
2757: ,x_msg_data => x_msg_data );
2755: ,x_return_status => x_return_status
2756: ,x_msg_count => x_msg_count
2757: ,x_msg_data => x_msg_data );
2758:
2759: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2760: raise fnd_api.g_exc_error;
2761: END IF;
2762:
2763: debug('l_txn_line_detail_tbl.count ='||l_txn_line_detail_tbl.count );
2756: ,x_msg_count => x_msg_count
2757: ,x_msg_data => x_msg_data );
2758:
2759: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2760: raise fnd_api.g_exc_error;
2761: END IF;
2762:
2763: debug('l_txn_line_detail_tbl.count ='||l_txn_line_detail_tbl.count );
2764:
2769: p_model_remnant_flag => p_order_line_rec.model_remnant_flag, --added for bug5096435
2770: x_qty_ratio => l_qty_ratio ,
2771: x_return_status => l_return_status );
2772:
2773: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2774: raise fnd_api.g_exc_error;
2775: END IF;
2776:
2777: debug('l_qty_ratio = '||l_qty_ratio );
2770: x_qty_ratio => l_qty_ratio ,
2771: x_return_status => l_return_status );
2772:
2773: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2774: raise fnd_api.g_exc_error;
2775: END IF;
2776:
2777: debug('l_qty_ratio = '||l_qty_ratio );
2778:
2790: x_txn_line_dtl_tbl => l_txn_line_detail_tbl,
2791: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2792: x_return_status => x_return_status );
2793:
2794: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2795: raise fnd_api.g_exc_error;
2796: END IF;
2797:
2798: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2791: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2792: x_return_status => x_return_status );
2793:
2794: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2795: raise fnd_api.g_exc_error;
2796: END IF;
2797:
2798: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2799: p_api_version => 1.0,
2796: END IF;
2797:
2798: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2799: p_api_version => 1.0,
2800: p_commit => fnd_api.g_false,
2801: p_init_msg_list => fnd_api.g_true,
2802: p_validation_level => fnd_api.g_valid_level_full,
2803: px_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2804: x_return_status => x_return_status,
2797:
2798: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2799: p_api_version => 1.0,
2800: p_commit => fnd_api.g_false,
2801: p_init_msg_list => fnd_api.g_true,
2802: p_validation_level => fnd_api.g_valid_level_full,
2803: px_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2804: x_return_status => x_return_status,
2805: x_msg_count => x_msg_count,
2798: csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls(
2799: p_api_version => 1.0,
2800: p_commit => fnd_api.g_false,
2801: p_init_msg_list => fnd_api.g_true,
2802: p_validation_level => fnd_api.g_valid_level_full,
2803: px_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2804: x_return_status => x_return_status,
2805: x_msg_count => x_msg_count,
2806: x_msg_data => x_msg_data);
2804: x_return_status => x_return_status,
2805: x_msg_count => x_msg_count,
2806: x_msg_data => x_msg_data);
2807:
2808: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2809: g_api_name := 'csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls';
2810: raise fnd_api.g_exc_error;
2811: END IF;
2812:
2806: x_msg_data => x_msg_data);
2807:
2808: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
2809: g_api_name := 'csi_t_txn_rltnshps_grp.create_txn_ii_rltns_dtls';
2810: raise fnd_api.g_exc_error;
2811: END IF;
2812:
2813: END IF;
2814:
2831: p_model_txn_line_rec => l_txn_line_rec,
2832: px_csi_txn_rec => l_trx_rec,
2833: x_return_status => l_return_status);
2834:
2835: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2836: RAISE fnd_api.g_exc_error;
2837: END IF;
2838:
2839: END IF;
2832: px_csi_txn_rec => l_trx_rec,
2833: x_return_status => l_return_status);
2834:
2835: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2836: RAISE fnd_api.g_exc_error;
2837: END IF;
2838:
2839: END IF;
2840: EXCEPTION
2837: END IF;
2838:
2839: END IF;
2840: EXCEPTION
2841: WHEN FND_API.G_EXC_ERROR THEN
2842: x_return_status := FND_API.G_RET_STS_ERROR ;
2843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2845: END build_shtd_table;
2838:
2839: END IF;
2840: EXCEPTION
2841: WHEN FND_API.G_EXC_ERROR THEN
2842: x_return_status := FND_API.G_RET_STS_ERROR ;
2843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2845: END build_shtd_table;
2846:
2839: END IF;
2840: EXCEPTION
2841: WHEN FND_API.G_EXC_ERROR THEN
2842: x_return_status := FND_API.G_RET_STS_ERROR ;
2843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2845: END build_shtd_table;
2846:
2847:
2840: EXCEPTION
2841: WHEN FND_API.G_EXC_ERROR THEN
2842: x_return_status := FND_API.G_RET_STS_ERROR ;
2843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2845: END build_shtd_table;
2846:
2847:
2848: PROCEDURE check_return_processing(
2848: PROCEDURE check_return_processing(
2849: px_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
2850: x_return_status OUT NOCOPY varchar2)
2851: IS
2852: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2853: l_instance_usage_code varchar2(30) := 'NULL';
2854: BEGIN
2855:
2856: x_return_status := fnd_api.g_ret_sts_success;
2852: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2853: l_instance_usage_code varchar2(30) := 'NULL';
2854: BEGIN
2855:
2856: x_return_status := fnd_api.g_ret_sts_success;
2857:
2858: api_log('check_return_processing');
2859:
2860: IF px_txn_line_detail_tbl.COUNT > 0 THEN
2861: FOR l_ind IN px_txn_line_detail_tbl.FIRST .. px_txn_line_detail_tbl.LAST
2862: LOOP
2863: IF px_txn_line_detail_tbl(l_ind).source_transaction_flag = 'Y'
2864: AND
2865: nvl(px_txn_line_detail_tbl(l_ind).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
2866: THEN
2867:
2868: debug(' referred instance id :'||px_txn_line_detail_tbl(l_ind).instance_id);
2869:
2887: END IF;
2888: END LOOP;
2889: END IF;
2890: EXCEPTION
2891: WHEN fnd_api.g_exc_error THEN
2892: x_return_status := fnd_api.g_ret_sts_error;
2893: WHEN fnd_api.g_exc_unexpected_error THEN
2894: x_return_status := fnd_api.g_ret_sts_unexp_error;
2895: END check_return_processing;
2888: END LOOP;
2889: END IF;
2890: EXCEPTION
2891: WHEN fnd_api.g_exc_error THEN
2892: x_return_status := fnd_api.g_ret_sts_error;
2893: WHEN fnd_api.g_exc_unexpected_error THEN
2894: x_return_status := fnd_api.g_ret_sts_unexp_error;
2895: END check_return_processing;
2896:
2889: END IF;
2890: EXCEPTION
2891: WHEN fnd_api.g_exc_error THEN
2892: x_return_status := fnd_api.g_ret_sts_error;
2893: WHEN fnd_api.g_exc_unexpected_error THEN
2894: x_return_status := fnd_api.g_ret_sts_unexp_error;
2895: END check_return_processing;
2896:
2897: /*---------------------------------------------------------------*/
2890: EXCEPTION
2891: WHEN fnd_api.g_exc_error THEN
2892: x_return_status := fnd_api.g_ret_sts_error;
2893: WHEN fnd_api.g_exc_unexpected_error THEN
2894: x_return_status := fnd_api.g_ret_sts_unexp_error;
2895: END check_return_processing;
2896:
2897: /*---------------------------------------------------------------*/
2898: /* Procedure does matching of txn line details with the shipment */
2904: x_txn_ii_rltns_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_ii_rltns_tbl,
2905: x_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
2906: x_return_status OUT NOCOPY varchar2)
2907: IS
2908: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2909: BEGIN
2910:
2911: /* Initialize API return status to success */
2912: x_return_status := fnd_api.g_ret_sts_success;
2908: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2909: BEGIN
2910:
2911: /* Initialize API return status to success */
2912: x_return_status := fnd_api.g_ret_sts_success;
2913:
2914: api_log('construct_for_txn_exists');
2915:
2916: /* brmanesh - hooking this procedure to check if the instance referenced is a
2921: check_return_processing(
2922: px_txn_line_detail_tbl => x_txn_line_detail_tbl,
2923: x_return_status => l_return_status);
2924:
2925: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2926: RAISE fnd_api.g_exc_error;
2927: END IF;
2928:
2929: match_txn_with_ship(
2922: px_txn_line_detail_tbl => x_txn_line_detail_tbl,
2923: x_return_status => l_return_status);
2924:
2925: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2926: RAISE fnd_api.g_exc_error;
2927: END IF;
2928:
2929: match_txn_with_ship(
2930: p_serial_code => p_order_line_rec.serial_code,
2931: x_txn_line_detail_tbl => x_txn_line_detail_tbl,
2932: x_order_shipment_tbl => x_order_shipment_tbl,
2933: x_return_status => l_return_status );
2934:
2935: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2936: raise fnd_api.g_exc_error;
2937: END IF;
2938:
2939: process_txn_dtl(
2932: x_order_shipment_tbl => x_order_shipment_tbl,
2933: x_return_status => l_return_status );
2934:
2935: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2936: raise fnd_api.g_exc_error;
2937: END IF;
2938:
2939: process_txn_dtl(
2940: p_serial_code => p_order_line_rec.serial_code,
2944: x_txn_ii_rltns_tbl => x_txn_ii_rltns_tbl,
2945: x_order_shipment_tbl => x_order_shipment_tbl,
2946: x_return_status => l_return_status );
2947:
2948: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2949: raise fnd_api.g_exc_error;
2950: END IF;
2951:
2952: EXCEPTION
2945: x_order_shipment_tbl => x_order_shipment_tbl,
2946: x_return_status => l_return_status );
2947:
2948: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2949: raise fnd_api.g_exc_error;
2950: END IF;
2951:
2952: EXCEPTION
2953: WHEN FND_API.G_EXC_ERROR THEN
2949: raise fnd_api.g_exc_error;
2950: END IF;
2951:
2952: EXCEPTION
2953: WHEN FND_API.G_EXC_ERROR THEN
2954: x_return_status := FND_API.G_RET_STS_ERROR ;
2955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2957: END construct_for_txn_exists;
2950: END IF;
2951:
2952: EXCEPTION
2953: WHEN FND_API.G_EXC_ERROR THEN
2954: x_return_status := FND_API.G_RET_STS_ERROR ;
2955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2957: END construct_for_txn_exists;
2958:
2951:
2952: EXCEPTION
2953: WHEN FND_API.G_EXC_ERROR THEN
2954: x_return_status := FND_API.G_RET_STS_ERROR ;
2955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2957: END construct_for_txn_exists;
2958:
2959: /* ------------------------------------------------------------------------*/
2952: EXCEPTION
2953: WHEN FND_API.G_EXC_ERROR THEN
2954: x_return_status := FND_API.G_RET_STS_ERROR ;
2955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2957: END construct_for_txn_exists;
2958:
2959: /* ------------------------------------------------------------------------*/
2960: /* procedure compare if the inventory instance and the qty on the shipment */
2966: x_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
2967: x_order_shipment_tbl IN OUT NOCOPY order_shipment_tbl,
2968: x_return_status OUT NOCOPY varchar2)
2969: IS
2970: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2971: BEGIN
2972:
2973: x_return_status := fnd_api.g_ret_sts_success;
2974:
2969: IS
2970: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2971: BEGIN
2972:
2973: x_return_status := fnd_api.g_ret_sts_success;
2974:
2975: api_log('match_txn_with_ship');
2976: debug(' order_shipment_tbl.count :'||x_order_shipment_tbl.count );
2977: debug(' txn_line_detail_tbl.count :'||x_txn_line_detail_tbl.count);
3134: END IF; -- end if inst_match = N and qty_match = N
3135: END LOOP; -- end of processing shipment table
3136: END IF;
3137: EXCEPTION
3138: WHEN FND_API.G_EXC_ERROR THEN
3139: x_return_status := FND_API.G_RET_STS_ERROR ;
3140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3142: END match_txn_with_ship;
3135: END LOOP; -- end of processing shipment table
3136: END IF;
3137: EXCEPTION
3138: WHEN FND_API.G_EXC_ERROR THEN
3139: x_return_status := FND_API.G_RET_STS_ERROR ;
3140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3142: END match_txn_with_ship;
3143:
3136: END IF;
3137: EXCEPTION
3138: WHEN FND_API.G_EXC_ERROR THEN
3139: x_return_status := FND_API.G_RET_STS_ERROR ;
3140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3142: END match_txn_with_ship;
3143:
3144: /*----------------------------------------------------------*/
3137: EXCEPTION
3138: WHEN FND_API.G_EXC_ERROR THEN
3139: x_return_status := FND_API.G_RET_STS_ERROR ;
3140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3142: END match_txn_with_ship;
3143:
3144: /*----------------------------------------------------------*/
3145: /* Description : Procedure that matches the unresolved */
3174: l_upd_txn_pty_acct_dtl_tbl csi_t_datastructures_grp.txn_pty_acct_detail_tbl;
3175: l_upd_txn_org_assgn_tbl csi_t_datastructures_grp.txn_org_assgn_tbl;
3176: l_upd_txn_ext_attr_vals_tbl csi_t_datastructures_grp.txn_ext_attrib_vals_tbl;
3177:
3178: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3179: l_msg_count number;
3180: l_msg_data varchar2(2000);
3181:
3182: BEGIN
3181:
3182: BEGIN
3183:
3184: /* Initialize API return status to success */
3185: x_return_status := fnd_api.g_ret_sts_success;
3186:
3187: api_log('process_txn_dtl');
3188:
3189: /* assign values for the columns in l_upd_txn_line_rec */
3256: p_order_shipment_rec => x_order_shipment_tbl(i),
3257: p_order_line_rec => p_order_line_rec,
3258: x_return_status => x_return_status);
3259:
3260: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3261: raise fnd_api.g_exc_error;
3262: END IF;
3263:
3264: l_upd := l_upd +1;
3257: p_order_line_rec => p_order_line_rec,
3258: x_return_status => x_return_status);
3259:
3260: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3261: raise fnd_api.g_exc_error;
3262: END IF;
3263:
3264: l_upd := l_upd +1;
3265:
3318: p_order_line_rec => p_order_line_rec,
3319: p_proc_qty => l_proc_qty,
3320: x_return_status => x_return_status );
3321:
3322: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3323: raise fnd_api.g_exc_error;
3324: END IF;
3325:
3326: debug('After split_ship_rec ');
3319: p_proc_qty => l_proc_qty,
3320: x_return_status => x_return_status );
3321:
3322: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3323: raise fnd_api.g_exc_error;
3324: END IF;
3325:
3326: debug('After split_ship_rec ');
3327: debug(' upd_txn_line_dtl_tbl.count : '||l_upd_txn_line_dtl_tbl.count);
3380: p_order_shipment_rec => x_order_shipment_tbl(i),
3381: p_order_line_rec => p_order_line_rec,
3382: x_return_status => x_return_status );
3383:
3384: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3385: raise fnd_api.g_exc_error;
3386: END IF;
3387:
3388: UPDATE csi_t_txn_line_details
3381: p_order_line_rec => p_order_line_rec,
3382: x_return_status => x_return_status );
3383:
3384: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3385: raise fnd_api.g_exc_error;
3386: END IF;
3387:
3388: UPDATE csi_t_txn_line_details
3389: SET processing_status = 'SUBMIT'
3551: p_order_shipment_rec => x_order_shipment_tbl(i),
3552: p_order_line_rec => p_order_line_rec,
3553: x_return_status => x_return_status );
3554:
3555: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3556: raise fnd_api.g_exc_error;
3557: END IF;
3558:
3559: x_order_shipment_tbl(i).quantity_match := 'Y';
3552: p_order_line_rec => p_order_line_rec,
3553: x_return_status => x_return_status );
3554:
3555: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3556: raise fnd_api.g_exc_error;
3557: END IF;
3558:
3559: x_order_shipment_tbl(i).quantity_match := 'Y';
3560: x_order_shipment_tbl(i).instance_match := 'Y';
3647: ,p_order_shipment_rec => x_order_shipment_tbl(i)
3648: ,p_order_line_rec => p_order_line_rec
3649: ,x_return_status => x_return_status );
3650:
3651: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3652: raise fnd_api.g_exc_error;
3653: END IF;
3654:
3655: l_upd := l_upd +1;
3648: ,p_order_line_rec => p_order_line_rec
3649: ,x_return_status => x_return_status );
3650:
3651: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3652: raise fnd_api.g_exc_error;
3653: END IF;
3654:
3655: l_upd := l_upd +1;
3656:
3662: /* update txn_detail with the instance from shipping record */
3663: l_upd_txn_line_dtl_tbl(l_upd).txn_line_detail_id := x_txn_line_detail_tbl(j).txn_line_detail_id;
3664: l_upd_txn_line_dtl_tbl(l_upd).instance_id := x_order_shipment_tbl(i).instance_id;
3665: l_upd_txn_line_dtl_tbl(l_upd).serial_number := x_order_shipment_tbl(i).serial_number;
3666: IF nvl(x_order_shipment_tbl(i).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
3667: l_upd_txn_line_dtl_tbl(l_upd).mfg_serial_number_flag := 'Y';
3668: END IF;
3669: debug('Serial Number :'||l_upd_txn_line_dtl_tbl(l_upd).serial_number);
3670: l_upd_txn_line_dtl_tbl(l_upd).lot_number := x_order_shipment_tbl(i).lot_number;
3689: csi_utl_pkg.split_txn_dtls_with_qty(
3690: split_txn_dtl_id => x_txn_line_detail_tbl(j).txn_line_detail_id,
3691: p_split_qty => l_rem_qty,
3692: x_return_status => l_return_status );
3693: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3694: raise fnd_api.g_exc_error;
3695: END IF;
3696: exit;
3697: --End of fix for bug 4354267
3690: split_txn_dtl_id => x_txn_line_detail_tbl(j).txn_line_detail_id,
3691: p_split_qty => l_rem_qty,
3692: x_return_status => l_return_status );
3693: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3694: raise fnd_api.g_exc_error;
3695: END IF;
3696: exit;
3697: --End of fix for bug 4354267
3698: ELSE
3723: ,p_order_shipment_rec => x_order_shipment_tbl(i)
3724: ,p_order_line_rec => p_order_line_rec
3725: ,x_return_status => x_return_status );
3726:
3727: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3728: raise fnd_api.g_exc_error;
3729: END IF;
3730:
3731: l_upd := l_upd +1;
3724: ,p_order_line_rec => p_order_line_rec
3725: ,x_return_status => x_return_status );
3726:
3727: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3728: raise fnd_api.g_exc_error;
3729: END IF;
3730:
3731: l_upd := l_upd +1;
3732:
3753: /* update the txn dtls with the processing status */
3754:
3755: csi_t_txn_details_grp.update_txn_line_dtls(
3756: p_api_version => 1.0,
3757: p_commit => fnd_api.g_false,
3758: p_init_msg_list => fnd_api.g_true,
3759: p_validation_level => fnd_api.g_valid_level_none,
3760: p_txn_line_rec => l_upd_txn_line_rec,
3761: p_txn_line_detail_tbl => l_upd_txn_line_dtl_tbl,
3754:
3755: csi_t_txn_details_grp.update_txn_line_dtls(
3756: p_api_version => 1.0,
3757: p_commit => fnd_api.g_false,
3758: p_init_msg_list => fnd_api.g_true,
3759: p_validation_level => fnd_api.g_valid_level_none,
3760: p_txn_line_rec => l_upd_txn_line_rec,
3761: p_txn_line_detail_tbl => l_upd_txn_line_dtl_tbl,
3762: px_txn_ii_rltns_tbl => l_upd_txn_ii_rltns_tbl,
3755: csi_t_txn_details_grp.update_txn_line_dtls(
3756: p_api_version => 1.0,
3757: p_commit => fnd_api.g_false,
3758: p_init_msg_list => fnd_api.g_true,
3759: p_validation_level => fnd_api.g_valid_level_none,
3760: p_txn_line_rec => l_upd_txn_line_rec,
3761: p_txn_line_detail_tbl => l_upd_txn_line_dtl_tbl,
3762: px_txn_ii_rltns_tbl => l_upd_txn_ii_rltns_tbl,
3763: px_txn_party_detail_tbl => l_upd_txn_party_detail_tbl,
3767: x_return_status => x_return_status,
3768: x_msg_count => x_msg_count,
3769: x_msg_data => x_msg_data);
3770:
3771: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3772: g_api_name := 'csi_t_txn_details_grp.update_txn_line_dtls';
3773: raise fnd_api.g_exc_error;
3774: END IF;
3775:
3769: x_msg_data => x_msg_data);
3770:
3771: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
3772: g_api_name := 'csi_t_txn_details_grp.update_txn_line_dtls';
3773: raise fnd_api.g_exc_error;
3774: END IF;
3775:
3776: debug('update_txn_line_dtls completed successfully');
3777:
3777:
3778: END IF;
3779:
3780: EXCEPTION
3781: WHEN FND_API.G_EXC_ERROR THEN
3782: x_return_status := FND_API.G_RET_STS_ERROR ;
3783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3785: END process_txn_dtl;
3778: END IF;
3779:
3780: EXCEPTION
3781: WHEN FND_API.G_EXC_ERROR THEN
3782: x_return_status := FND_API.G_RET_STS_ERROR ;
3783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3785: END process_txn_dtl;
3786:
3779:
3780: EXCEPTION
3781: WHEN FND_API.G_EXC_ERROR THEN
3782: x_return_status := FND_API.G_RET_STS_ERROR ;
3783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3785: END process_txn_dtl;
3786:
3787: PROCEDURE decrement_source_instance(
3780: EXCEPTION
3781: WHEN FND_API.G_EXC_ERROR THEN
3782: x_return_status := FND_API.G_RET_STS_ERROR ;
3783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3785: END process_txn_dtl;
3786:
3787: PROCEDURE decrement_source_instance(
3788: p_instance_id in number,
3799: l_pricing_attribs_tbl csi_datastructures_pub.pricing_attribs_tbl;
3800: l_org_units_tbl csi_datastructures_pub.organization_units_tbl;
3801: l_inst_id_lst csi_datastructures_pub.id_tbl;
3802:
3803: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3804: l_msg_count number;
3805: l_msg_data varchar2(2000);
3806:
3807: l_last_vld_organization_id NUMBER; -- Bug 12420630 ; FP for Bug 9396215
3807: l_last_vld_organization_id NUMBER; -- Bug 12420630 ; FP for Bug 9396215
3808: l_neg_code NUMBER := 0; -- Bug 12420630 ; FP for Bug 9396215
3809: BEGIN
3810:
3811: x_return_status := fnd_api.g_ret_sts_success;
3812:
3813: api_log('decrement_source_instance');
3814:
3815:
3824:
3825: l_neg_code := csi_inv_trxs_pkg.get_neg_inv_code(l_last_vld_organization_id);
3826: IF l_neg_code = 1 THEN
3827: debug('The Org accepts negative quantity. Setting the check_for_instance_expiry to False');
3828: l_instance_rec.check_for_instance_expiry := fnd_api.g_false;
3829: END IF; -- l_neg_code = 1
3830: EXCEPTION
3831: WHEN OTHERS THEN
3832: NULL;
3850: /* decrement the inventory source instance */
3851:
3852: csi_item_instance_pub.update_item_instance(
3853: p_api_version => 1.0,
3854: p_commit => fnd_api.g_false,
3855: p_init_msg_list => fnd_api.g_true,
3856: p_validation_level => fnd_api.g_valid_level_full,
3857: p_instance_rec => l_instance_rec,
3858: p_ext_attrib_values_tbl => l_ext_attrib_val_tbl,
3851:
3852: csi_item_instance_pub.update_item_instance(
3853: p_api_version => 1.0,
3854: p_commit => fnd_api.g_false,
3855: p_init_msg_list => fnd_api.g_true,
3856: p_validation_level => fnd_api.g_valid_level_full,
3857: p_instance_rec => l_instance_rec,
3858: p_ext_attrib_values_tbl => l_ext_attrib_val_tbl,
3859: p_party_tbl => l_party_tbl,
3852: csi_item_instance_pub.update_item_instance(
3853: p_api_version => 1.0,
3854: p_commit => fnd_api.g_false,
3855: p_init_msg_list => fnd_api.g_true,
3856: p_validation_level => fnd_api.g_valid_level_full,
3857: p_instance_rec => l_instance_rec,
3858: p_ext_attrib_values_tbl => l_ext_attrib_val_tbl,
3859: p_party_tbl => l_party_tbl,
3860: p_account_tbl => l_party_acct_tbl,
3867: x_msg_count => l_msg_count,
3868: x_msg_data => l_msg_data);
3869:
3870: -- For Bug 4057183
3871: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3872: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3873: g_api_name := 'csi_item_instance_pub.update_item_instance';
3874: raise fnd_api.g_exc_error;
3875: END IF;
3868: x_msg_data => l_msg_data);
3869:
3870: -- For Bug 4057183
3871: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3872: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3873: g_api_name := 'csi_item_instance_pub.update_item_instance';
3874: raise fnd_api.g_exc_error;
3875: END IF;
3876:
3870: -- For Bug 4057183
3871: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3872: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3873: g_api_name := 'csi_item_instance_pub.update_item_instance';
3874: raise fnd_api.g_exc_error;
3875: END IF;
3876:
3877: EXCEPTION
3878:
3875: END IF;
3876:
3877: EXCEPTION
3878:
3879: WHEN fnd_api.g_exc_error THEN
3880: x_return_status := fnd_api.g_ret_sts_error;
3881:
3882: END decrement_source_instance;
3883:
3876:
3877: EXCEPTION
3878:
3879: WHEN fnd_api.g_exc_error THEN
3880: x_return_status := fnd_api.g_ret_sts_error;
3881:
3882: END decrement_source_instance;
3883:
3884: PROCEDURE dump_customer_products(
3918:
3919: l_instance_hdr_tbl csi_datastructures_pub.instance_header_tbl;
3920: l_instance_tbl csi_datastructures_pub.instance_tbl;
3921:
3922: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3923:
3924: BEGIN
3925:
3926: x_return_status := l_return_status;
3934: p_instance_header_tbl => l_instance_hdr_tbl,
3935: x_instance_tbl => l_instance_tbl,
3936: x_return_status => l_return_status);
3937:
3938: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3939: RAISE fnd_api.g_exc_error;
3940: END IF;
3941:
3942: x_instance_rec := l_instance_tbl(1);
3935: x_instance_tbl => l_instance_tbl,
3936: x_return_status => l_return_status);
3937:
3938: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3939: RAISE fnd_api.g_exc_error;
3940: END IF;
3941:
3942: x_instance_rec := l_instance_tbl(1);
3943:
3941:
3942: x_instance_rec := l_instance_tbl(1);
3943:
3944: EXCEPTION
3945: WHEN fnd_api.g_exc_error THEN
3946: x_return_status := fnd_api.g_ret_sts_error;
3947: END make_non_hdr_rec;
3948:
3949: PROCEDURE split_instance_using_ratio(
3942: x_instance_rec := l_instance_tbl(1);
3943:
3944: EXCEPTION
3945: WHEN fnd_api.g_exc_error THEN
3946: x_return_status := fnd_api.g_ret_sts_error;
3947: END make_non_hdr_rec;
3948:
3949: PROCEDURE split_instance_using_ratio(
3950: p_instance_id IN number,
3959: l_qty_remaining number;
3960:
3961: l_init_instance_rec csi_datastructures_pub.instance_rec;
3962:
3963: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3964: l_msg_data varchar2(2000);
3965: l_msg_count number;
3966:
3967: l_split_flag boolean := FALSE;
4004: c_pa_ind binary_integer;
4005:
4006: BEGIN
4007:
4008: x_return_status := fnd_api.g_ret_sts_success;
4009:
4010: api_log('split_instance_using_ratio');
4011:
4012: l_s_ind := 0;
4015:
4016: -- get the instance party and party account info
4017: csi_item_instance_pub.get_item_instance_details(
4018: p_api_version => 1.0,
4019: p_commit => fnd_api.g_false,
4020: p_init_msg_list => fnd_api.g_true,
4021: p_validation_level => fnd_api.g_valid_level_full,
4022: p_instance_rec => l_g_instance_rec,
4023: p_get_parties => fnd_api.g_true,
4016: -- get the instance party and party account info
4017: csi_item_instance_pub.get_item_instance_details(
4018: p_api_version => 1.0,
4019: p_commit => fnd_api.g_false,
4020: p_init_msg_list => fnd_api.g_true,
4021: p_validation_level => fnd_api.g_valid_level_full,
4022: p_instance_rec => l_g_instance_rec,
4023: p_get_parties => fnd_api.g_true,
4024: p_party_header_tbl => l_g_ph_tbl,
4017: csi_item_instance_pub.get_item_instance_details(
4018: p_api_version => 1.0,
4019: p_commit => fnd_api.g_false,
4020: p_init_msg_list => fnd_api.g_true,
4021: p_validation_level => fnd_api.g_valid_level_full,
4022: p_instance_rec => l_g_instance_rec,
4023: p_get_parties => fnd_api.g_true,
4024: p_party_header_tbl => l_g_ph_tbl,
4025: p_get_accounts => fnd_api.g_true,
4019: p_commit => fnd_api.g_false,
4020: p_init_msg_list => fnd_api.g_true,
4021: p_validation_level => fnd_api.g_valid_level_full,
4022: p_instance_rec => l_g_instance_rec,
4023: p_get_parties => fnd_api.g_true,
4024: p_party_header_tbl => l_g_ph_tbl,
4025: p_get_accounts => fnd_api.g_true,
4026: p_account_header_tbl => l_g_pah_tbl,
4027: p_get_org_assignments => fnd_api.g_false,
4021: p_validation_level => fnd_api.g_valid_level_full,
4022: p_instance_rec => l_g_instance_rec,
4023: p_get_parties => fnd_api.g_true,
4024: p_party_header_tbl => l_g_ph_tbl,
4025: p_get_accounts => fnd_api.g_true,
4026: p_account_header_tbl => l_g_pah_tbl,
4027: p_get_org_assignments => fnd_api.g_false,
4028: p_org_header_tbl => l_g_ouh_tbl,
4029: p_get_pricing_attribs => fnd_api.g_false,
4023: p_get_parties => fnd_api.g_true,
4024: p_party_header_tbl => l_g_ph_tbl,
4025: p_get_accounts => fnd_api.g_true,
4026: p_account_header_tbl => l_g_pah_tbl,
4027: p_get_org_assignments => fnd_api.g_false,
4028: p_org_header_tbl => l_g_ouh_tbl,
4029: p_get_pricing_attribs => fnd_api.g_false,
4030: p_pricing_attrib_tbl => l_g_pa_tbl,
4031: p_get_ext_attribs => fnd_api.g_false,
4025: p_get_accounts => fnd_api.g_true,
4026: p_account_header_tbl => l_g_pah_tbl,
4027: p_get_org_assignments => fnd_api.g_false,
4028: p_org_header_tbl => l_g_ouh_tbl,
4029: p_get_pricing_attribs => fnd_api.g_false,
4030: p_pricing_attrib_tbl => l_g_pa_tbl,
4031: p_get_ext_attribs => fnd_api.g_false,
4032: p_ext_attrib_tbl => l_g_eav_tbl,
4033: p_ext_attrib_def_tbl => l_g_ea_tbl,
4027: p_get_org_assignments => fnd_api.g_false,
4028: p_org_header_tbl => l_g_ouh_tbl,
4029: p_get_pricing_attribs => fnd_api.g_false,
4030: p_pricing_attrib_tbl => l_g_pa_tbl,
4031: p_get_ext_attribs => fnd_api.g_false,
4032: p_ext_attrib_tbl => l_g_eav_tbl,
4033: p_ext_attrib_def_tbl => l_g_ea_tbl,
4034: p_get_asset_assignments => fnd_api.g_false,
4035: p_asset_header_tbl => l_g_iah_tbl,
4030: p_pricing_attrib_tbl => l_g_pa_tbl,
4031: p_get_ext_attribs => fnd_api.g_false,
4032: p_ext_attrib_tbl => l_g_eav_tbl,
4033: p_ext_attrib_def_tbl => l_g_ea_tbl,
4034: p_get_asset_assignments => fnd_api.g_false,
4035: p_asset_header_tbl => l_g_iah_tbl,
4036: p_time_stamp => l_g_time_stamp,
4037: x_return_status => l_return_status,
4038: x_msg_count => l_msg_count,
4037: x_return_status => l_return_status,
4038: x_msg_count => l_msg_count,
4039: x_msg_data => l_msg_data);
4040:
4041: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4042: RAISE fnd_api.g_exc_error;
4043: END IF;
4044:
4045: make_non_hdr_rec(
4038: x_msg_count => l_msg_count,
4039: x_msg_data => l_msg_data);
4040:
4041: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4042: RAISE fnd_api.g_exc_error;
4043: END IF;
4044:
4045: make_non_hdr_rec(
4046: p_instance_hdr_rec => l_g_instance_rec,
4070:
4071: l_c_instance_rec := l_instance_rec;
4072:
4073: -- substitute create specific attributes
4074: l_c_instance_rec.instance_id := fnd_api.g_miss_num;
4075: l_c_instance_rec.instance_number := fnd_api.g_miss_char;
4076: l_c_instance_rec.object_version_number := 1.0;
4077: l_c_instance_rec.vld_organization_id := p_organization_id;
4078: l_c_instance_rec.quantity := p_qty_ratio;
4071: l_c_instance_rec := l_instance_rec;
4072:
4073: -- substitute create specific attributes
4074: l_c_instance_rec.instance_id := fnd_api.g_miss_num;
4075: l_c_instance_rec.instance_number := fnd_api.g_miss_char;
4076: l_c_instance_rec.object_version_number := 1.0;
4077: l_c_instance_rec.vld_organization_id := p_organization_id;
4078: l_c_instance_rec.quantity := p_qty_ratio;
4079: l_c_instance_rec.operational_status_code:= 'NOT_USED';
4086: IF l_g_ph_tbl.COUNT > 0 THEN
4087:
4088: FOR l_pt_ind IN l_g_ph_tbl.FIRST ..l_g_ph_tbl.LAST
4089: LOOP
4090: l_c_parties_tbl(l_pt_ind).instance_party_id := fnd_api.g_miss_num;
4091: l_c_parties_tbl(l_pt_ind).instance_id := fnd_api.g_miss_num;
4092: l_c_parties_tbl(l_pt_ind).party_id :=
4093: l_g_ph_tbl(l_pt_ind).party_id;
4094: l_c_parties_tbl(l_pt_ind).party_source_table :=
4087:
4088: FOR l_pt_ind IN l_g_ph_tbl.FIRST ..l_g_ph_tbl.LAST
4089: LOOP
4090: l_c_parties_tbl(l_pt_ind).instance_party_id := fnd_api.g_miss_num;
4091: l_c_parties_tbl(l_pt_ind).instance_id := fnd_api.g_miss_num;
4092: l_c_parties_tbl(l_pt_ind).party_id :=
4093: l_g_ph_tbl(l_pt_ind).party_id;
4094: l_c_parties_tbl(l_pt_ind).party_source_table :=
4095: l_g_ph_tbl(l_pt_ind).party_source_table;
4104: IF l_g_pah_tbl(l_pa_ind).instance_party_id = l_g_ph_tbl(l_pt_ind).instance_party_id
4105: THEN
4106: c_pa_ind := c_pa_ind + 1;
4107: l_c_pty_accts_tbl(c_pa_ind).parent_tbl_index := l_pt_ind;
4108: l_c_pty_accts_tbl(c_pa_ind).ip_account_id := fnd_api.g_miss_num;
4109: l_c_pty_accts_tbl(c_pa_ind).instance_party_id := fnd_api.g_miss_num;
4110: l_c_pty_accts_tbl(c_pa_ind).party_account_id :=
4111: l_g_pah_tbl(l_pa_ind).party_account_id;
4112: l_c_pty_accts_tbl(c_pa_ind).relationship_type_code :=
4105: THEN
4106: c_pa_ind := c_pa_ind + 1;
4107: l_c_pty_accts_tbl(c_pa_ind).parent_tbl_index := l_pt_ind;
4108: l_c_pty_accts_tbl(c_pa_ind).ip_account_id := fnd_api.g_miss_num;
4109: l_c_pty_accts_tbl(c_pa_ind).instance_party_id := fnd_api.g_miss_num;
4110: l_c_pty_accts_tbl(c_pa_ind).party_account_id :=
4111: l_g_pah_tbl(l_pa_ind).party_account_id;
4112: l_c_pty_accts_tbl(c_pa_ind).relationship_type_code :=
4113: l_g_pah_tbl(l_pa_ind).relationship_type_code;
4121: -- create a new instance for the decremented qty
4122:
4123: csi_item_instance_pub.create_item_instance(
4124: p_api_version => 1.0,
4125: p_commit => fnd_api.g_false,
4126: p_init_msg_list => fnd_api.g_true,
4127: p_validation_level => fnd_api.g_valid_level_full,
4128: p_instance_rec => l_c_instance_rec,
4129: p_party_tbl => l_c_parties_tbl,
4122:
4123: csi_item_instance_pub.create_item_instance(
4124: p_api_version => 1.0,
4125: p_commit => fnd_api.g_false,
4126: p_init_msg_list => fnd_api.g_true,
4127: p_validation_level => fnd_api.g_valid_level_full,
4128: p_instance_rec => l_c_instance_rec,
4129: p_party_tbl => l_c_parties_tbl,
4130: p_account_tbl => l_c_pty_accts_tbl,
4123: csi_item_instance_pub.create_item_instance(
4124: p_api_version => 1.0,
4125: p_commit => fnd_api.g_false,
4126: p_init_msg_list => fnd_api.g_true,
4127: p_validation_level => fnd_api.g_valid_level_full,
4128: p_instance_rec => l_c_instance_rec,
4129: p_party_tbl => l_c_parties_tbl,
4130: p_account_tbl => l_c_pty_accts_tbl,
4131: p_org_assignments_tbl => l_c_org_units_tbl,
4137: x_msg_count => l_msg_count,
4138: x_msg_data => l_msg_data );
4139:
4140: -- For Bug 4057183
4141: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4142: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4143: RAISE fnd_api.g_exc_error;
4144: END IF;
4145:
4138: x_msg_data => l_msg_data );
4139:
4140: -- For Bug 4057183
4141: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4142: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4143: RAISE fnd_api.g_exc_error;
4144: END IF;
4145:
4146: debug(' New Instance ID :'||l_c_instance_rec.instance_id);
4139:
4140: -- For Bug 4057183
4141: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4142: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4143: RAISE fnd_api.g_exc_error;
4144: END IF;
4145:
4146: debug(' New Instance ID :'||l_c_instance_rec.instance_id);
4147:
4159: WHERE instance_id = l_u_instance_rec.instance_id;
4160:
4161: csi_item_instance_pub.update_item_instance(
4162: p_api_version => 1.0,
4163: p_commit => fnd_api.g_false,
4164: p_init_msg_list => fnd_api.g_true,
4165: p_validation_level => fnd_api.g_valid_level_full,
4166: p_instance_rec => l_u_instance_rec,
4167: p_party_tbl => l_u_parties_tbl,
4160:
4161: csi_item_instance_pub.update_item_instance(
4162: p_api_version => 1.0,
4163: p_commit => fnd_api.g_false,
4164: p_init_msg_list => fnd_api.g_true,
4165: p_validation_level => fnd_api.g_valid_level_full,
4166: p_instance_rec => l_u_instance_rec,
4167: p_party_tbl => l_u_parties_tbl,
4168: p_account_tbl => l_u_pty_accts_tbl,
4161: csi_item_instance_pub.update_item_instance(
4162: p_api_version => 1.0,
4163: p_commit => fnd_api.g_false,
4164: p_init_msg_list => fnd_api.g_true,
4165: p_validation_level => fnd_api.g_valid_level_full,
4166: p_instance_rec => l_u_instance_rec,
4167: p_party_tbl => l_u_parties_tbl,
4168: p_account_tbl => l_u_pty_accts_tbl,
4169: p_org_assignments_tbl => l_u_org_units_tbl,
4176: x_msg_count => l_msg_count,
4177: x_msg_data => l_msg_data);
4178:
4179: -- For Bug 4057183
4180: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4181: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4182: RAISE fnd_api.g_exc_error;
4183: END IF;
4184:
4177: x_msg_data => l_msg_data);
4178:
4179: -- For Bug 4057183
4180: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4181: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4182: RAISE fnd_api.g_exc_error;
4183: END IF;
4184:
4185: ELSE
4178:
4179: -- For Bug 4057183
4180: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4181: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4182: RAISE fnd_api.g_exc_error;
4183: END IF;
4184:
4185: ELSE
4186:
4214:
4215: x_splitted_instances := l_splitted_instances;
4216:
4217: EXCEPTION
4218: WHEN fnd_api.g_exc_error THEN
4219: x_return_status := fnd_api.g_ret_sts_error;
4220: END split_instance_using_ratio;
4221:
4222: PROCEDURE convert_wip_instance_to_cp(
4215: x_splitted_instances := l_splitted_instances;
4216:
4217: EXCEPTION
4218: WHEN fnd_api.g_exc_error THEN
4219: x_return_status := fnd_api.g_ret_sts_error;
4220: END split_instance_using_ratio;
4221:
4222: PROCEDURE convert_wip_instance_to_cp(
4223: p_instance_id IN number,
4248: l_instance_party_id number;
4249: l_pty_object_ver_num number;
4250: l_pa_object_ver_num number;
4251:
4252: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4253: l_msg_count number;
4254: l_msg_data varchar2(2000);
4255:
4256: BEGIN
4254: l_msg_data varchar2(2000);
4255:
4256: BEGIN
4257:
4258: x_return_status := fnd_api.g_ret_sts_success;
4259: api_log('convert_wip_instance_to_cp');
4260:
4261: -- check if the instance is in WIP
4262: SELECT object_version_number,
4309: fnd_message.set_name('CSI','CSI_TXN_SITE_USE_INVALID');
4310: fnd_message.set_token('SITE_USE_ID',l_order_line_rec.ship_to_org_id);
4311: fnd_message.set_token('SITE_USE_CODE','SHIP_TO');
4312: fnd_msg_pub.add;
4313: raise fnd_api.g_exc_error;
4314: END;
4315:
4316: END IF;
4317:
4351:
4352: -- build owner account
4353: l_owner_account_id := l_order_line_rec.sold_to_org_id;
4354:
4355: l_u_party_acct_tbl(1).ip_account_id := fnd_api.g_miss_num;
4356: l_u_party_acct_tbl(1).party_account_id := l_owner_account_id;
4357: l_u_party_acct_tbl(1).relationship_type_code := 'OWNER';
4358: l_u_party_acct_tbl(1).bill_to_address := fnd_api.g_miss_num;
4359: l_u_party_acct_tbl(1).ship_to_address := fnd_api.g_miss_num;
4354:
4355: l_u_party_acct_tbl(1).ip_account_id := fnd_api.g_miss_num;
4356: l_u_party_acct_tbl(1).party_account_id := l_owner_account_id;
4357: l_u_party_acct_tbl(1).relationship_type_code := 'OWNER';
4358: l_u_party_acct_tbl(1).bill_to_address := fnd_api.g_miss_num;
4359: l_u_party_acct_tbl(1).ship_to_address := fnd_api.g_miss_num;
4360: l_u_party_acct_tbl(1).instance_party_id := l_instance_party_id;
4361: l_u_party_acct_tbl(1).parent_tbl_index := 1;
4362:
4355: l_u_party_acct_tbl(1).ip_account_id := fnd_api.g_miss_num;
4356: l_u_party_acct_tbl(1).party_account_id := l_owner_account_id;
4357: l_u_party_acct_tbl(1).relationship_type_code := 'OWNER';
4358: l_u_party_acct_tbl(1).bill_to_address := fnd_api.g_miss_num;
4359: l_u_party_acct_tbl(1).ship_to_address := fnd_api.g_miss_num;
4360: l_u_party_acct_tbl(1).instance_party_id := l_instance_party_id;
4361: l_u_party_acct_tbl(1).parent_tbl_index := 1;
4362:
4363: csi_t_gen_utility_pvt.dump_api_info(
4365: p_pkg_name => 'csi_item_instance_pub');
4366:
4367: csi_item_instance_pub.update_item_instance(
4368: p_api_version => 1.0,
4369: p_commit => fnd_api.g_false,
4370: p_init_msg_list => fnd_api.g_true,
4371: p_validation_level => fnd_api.g_valid_level_full,
4372: p_instance_rec => l_u_instance_rec,
4373: p_ext_attrib_values_tbl => l_u_ext_attrib_val_tbl,
4366:
4367: csi_item_instance_pub.update_item_instance(
4368: p_api_version => 1.0,
4369: p_commit => fnd_api.g_false,
4370: p_init_msg_list => fnd_api.g_true,
4371: p_validation_level => fnd_api.g_valid_level_full,
4372: p_instance_rec => l_u_instance_rec,
4373: p_ext_attrib_values_tbl => l_u_ext_attrib_val_tbl,
4374: p_party_tbl => l_u_party_tbl,
4367: csi_item_instance_pub.update_item_instance(
4368: p_api_version => 1.0,
4369: p_commit => fnd_api.g_false,
4370: p_init_msg_list => fnd_api.g_true,
4371: p_validation_level => fnd_api.g_valid_level_full,
4372: p_instance_rec => l_u_instance_rec,
4373: p_ext_attrib_values_tbl => l_u_ext_attrib_val_tbl,
4374: p_party_tbl => l_u_party_tbl,
4375: p_account_tbl => l_u_party_acct_tbl,
4382: x_msg_count => l_msg_count,
4383: x_msg_data => l_msg_data);
4384:
4385: -- For Bug 4057183
4386: -- IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
4387: IF NOT(l_return_status in (fnd_api.g_ret_sts_success,'W')) THEN
4388: raise fnd_api.g_exc_error;
4389: END IF;
4390:
4383: x_msg_data => l_msg_data);
4384:
4385: -- For Bug 4057183
4386: -- IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
4387: IF NOT(l_return_status in (fnd_api.g_ret_sts_success,'W')) THEN
4388: raise fnd_api.g_exc_error;
4389: END IF;
4390:
4391: debug('WIP instance is successfully converted to a CP.');
4384:
4385: -- For Bug 4057183
4386: -- IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
4387: IF NOT(l_return_status in (fnd_api.g_ret_sts_success,'W')) THEN
4388: raise fnd_api.g_exc_error;
4389: END IF;
4390:
4391: debug('WIP instance is successfully converted to a CP.');
4392:
4390:
4391: debug('WIP instance is successfully converted to a CP.');
4392:
4393: EXCEPTION
4394: WHEN fnd_api.g_exc_error THEN
4395: x_return_status := fnd_api.g_ret_sts_error;
4396: END convert_wip_instance_to_cp;
4397:
4398: PROCEDURE get_single_qty_instances(
4391: debug('WIP instance is successfully converted to a CP.');
4392:
4393: EXCEPTION
4394: WHEN fnd_api.g_exc_error THEN
4395: x_return_status := fnd_api.g_ret_sts_error;
4396: END convert_wip_instance_to_cp;
4397:
4398: PROCEDURE get_single_qty_instances(
4399: p_all_cps_tbl IN customer_products_tbl,
4429: l_iir_tbl csi_datastructures_pub.ii_relationship_tbl;
4430: l_serial_code number;
4431:
4432: l_splitted_instances csi_datastructures_pub.instance_tbl;
4433: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4434:
4435: CURSOR req_cur IS
4436: SELECT wip.inventory_item_id,
4437: sum(required_quantity) qty_required,
4486: END already_allocated;
4487:
4488: BEGIN
4489:
4490: x_return_status := fnd_api.g_ret_sts_success;
4491: api_log('get_comp_instances_from_wip');
4492:
4493: l_cps_tbl := p_cps_tbl;
4494:
4538: px_csi_txn_rec => px_csi_txn_rec,
4539: x_splitted_instances => l_splitted_instances,
4540: x_return_status => l_return_status);
4541:
4542: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4543: RAISE fnd_api.g_exc_error;
4544: END IF;
4545:
4546: END LOOP;
4539: x_splitted_instances => l_splitted_instances,
4540: x_return_status => l_return_status);
4541:
4542: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4543: RAISE fnd_api.g_exc_error;
4544: END IF;
4545:
4546: END LOOP;
4547:
4569:
4570: x_iir_tbl := l_iir_tbl;
4571:
4572: EXCEPTION
4573: WHEN fnd_api.g_exc_error THEN
4574: x_return_status := fnd_api.g_ret_sts_error;
4575: END get_comp_instances_from_wip;
4576:
4577: PROCEDURE get_tld_set(
4570: x_iir_tbl := l_iir_tbl;
4571:
4572: EXCEPTION
4573: WHEN fnd_api.g_exc_error THEN
4574: x_return_status := fnd_api.g_ret_sts_error;
4575: END get_comp_instances_from_wip;
4576:
4577: PROCEDURE get_tld_set(
4578: px_tld_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_rec,
4612: BEGIN
4613:
4614: api_Log('get_tld_set');
4615:
4616: x_return_status := fnd_api.g_ret_sts_success;
4617:
4618: IF nvl(px_tld_rec.instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
4619: l_create_flag := 'Y';
4620: ELSE
4614: api_Log('get_tld_set');
4615:
4616: x_return_status := fnd_api.g_ret_sts_success;
4617:
4618: IF nvl(px_tld_rec.instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
4619: l_create_flag := 'Y';
4620: ELSE
4621: l_create_flag := 'N';
4622: END IF;
4686: x_tld_oa_tbl := l_tld_oa_tbl;
4687: x_tld_ea_tbl := l_tld_ea_tbl;
4688:
4689: EXCEPTION
4690: WHEN fnd_api.g_exc_error THEN
4691: x_return_status := fnd_api.g_ret_sts_error;
4692: END get_tld_set;
4693:
4694:
4687: x_tld_ea_tbl := l_tld_ea_tbl;
4688:
4689: EXCEPTION
4690: WHEN fnd_api.g_exc_error THEN
4691: x_return_status := fnd_api.g_ret_sts_error;
4692: END get_tld_set;
4693:
4694:
4695: -- convert txn_systems in to csi_systems
4702: l_system_exist boolean := FALSE;
4703: l_system_rec csi_datastructures_pub.system_rec;
4704: l_system_id number;
4705:
4706: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4707: l_msg_count number;
4708: l_msg_data varchar2(2000);
4709: BEGIN
4710:
4707: l_msg_count number;
4708: l_msg_data varchar2(2000);
4709: BEGIN
4710:
4711: x_return_status := fnd_api.g_ret_sts_success;
4712: api_log('create_csi_systems');
4713:
4714: IF px_txn_systems_tbl.count > 0 THEN
4715:
4734: WHEN too_many_rows THEN
4735: fnd_message.set_name('CSI','CSI_INT_MUL_SYS_FOUND');
4736: fnd_message.set_token('SYSTEM_NUMBER',px_txn_systems_tbl(ind).system_number);
4737: fnd_msg_pub.add;
4738: RAISE fnd_api.g_exc_error;
4739: END;
4740:
4741: IF NOT(l_system_exist) THEN
4742: csi_utl_pkg.get_system_tbl(
4748: p_api_name => 'create_system');
4749:
4750: csi_systems_pub.create_system(
4751: p_api_version => 1.0,
4752: p_commit => fnd_api.g_false,
4753: p_init_msg_list => fnd_api.g_true,
4754: p_validation_level => fnd_api.g_valid_level_full,
4755: p_system_rec => l_system_rec,
4756: p_txn_rec => px_csi_txn_rec,
4749:
4750: csi_systems_pub.create_system(
4751: p_api_version => 1.0,
4752: p_commit => fnd_api.g_false,
4753: p_init_msg_list => fnd_api.g_true,
4754: p_validation_level => fnd_api.g_valid_level_full,
4755: p_system_rec => l_system_rec,
4756: p_txn_rec => px_csi_txn_rec,
4757: x_system_id => l_system_id,
4750: csi_systems_pub.create_system(
4751: p_api_version => 1.0,
4752: p_commit => fnd_api.g_false,
4753: p_init_msg_list => fnd_api.g_true,
4754: p_validation_level => fnd_api.g_valid_level_full,
4755: p_system_rec => l_system_rec,
4756: p_txn_rec => px_csi_txn_rec,
4757: x_system_id => l_system_id,
4758: x_return_status => l_return_status,
4758: x_return_status => l_return_status,
4759: x_msg_count => l_msg_count,
4760: x_msg_data => l_msg_data);
4761:
4762: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4763: RAISE fnd_api.g_exc_error;
4764: END IF;
4765:
4766: debug(' CSI System Created Successfully. System ID :'||l_system_id);
4759: x_msg_count => l_msg_count,
4760: x_msg_data => l_msg_data);
4761:
4762: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4763: RAISE fnd_api.g_exc_error;
4764: END IF;
4765:
4766: debug(' CSI System Created Successfully. System ID :'||l_system_id);
4767: END IF;
4779:
4780: END LOOP; -- txn systems loop
4781: END IF; -- end if for system table count > 0
4782: EXCEPTION
4783: WHEN fnd_api.g_exc_error THEN
4784: x_return_status := fnd_api.g_ret_sts_error;
4785: END create_csi_systems;
4786:
4787:
4780: END LOOP; -- txn systems loop
4781: END IF; -- end if for system table count > 0
4782: EXCEPTION
4783: WHEN fnd_api.g_exc_error THEN
4784: x_return_status := fnd_api.g_ret_sts_error;
4785: END create_csi_systems;
4786:
4787:
4788: PROCEDURE proc_for_last_mtl_trx(
4792: x_return_status OUT NOCOPY VARCHAR2)
4793: IS
4794: l_order_quantity number;
4795: l_total_qty number := 0;
4796: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4797: l_literal1 VARCHAR2(30) := 'PROCESSED' ;
4798: l_literal2 VARCHAR2(30) := 'OE_ORDER_LINES_ALL' ;
4799: BEGIN
4800:
4797: l_literal1 VARCHAR2(30) := 'PROCESSED' ;
4798: l_literal2 VARCHAR2(30) := 'OE_ORDER_LINES_ALL' ;
4799: BEGIN
4800:
4801: x_return_status := fnd_api.g_ret_sts_success;
4802: api_log('proc_for_last_mtl_trx');
4803:
4804: IF p_source = 'FULFILLMENT' THEN
4805: l_order_quantity := p_order_line_rec.fulfilled_quantity;
4853: debug(' ato config shipment. spawn shippable option lines for fulfillment.');
4854: process_ato_options(
4855: p_order_line_rec => p_order_line_rec,
4856: x_return_status => l_return_status);
4857: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4858: RAISE fnd_api.g_exc_error;
4859: END IF;
4860: END IF;
4861: */
4854: process_ato_options(
4855: p_order_line_rec => p_order_line_rec,
4856: x_return_status => l_return_status);
4857: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4858: RAISE fnd_api.g_exc_error;
4859: END IF;
4860: END IF;
4861: */
4862:
4862:
4863: END IF;
4864:
4865: EXCEPTION
4866: WHEN fnd_api.g_exc_error THEN
4867: x_return_status := fnd_api.g_ret_sts_error ;
4868: WHEN fnd_api.g_exc_unexpected_error THEN
4869: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4870: END proc_for_last_mtl_trx ;
4863: END IF;
4864:
4865: EXCEPTION
4866: WHEN fnd_api.g_exc_error THEN
4867: x_return_status := fnd_api.g_ret_sts_error ;
4868: WHEN fnd_api.g_exc_unexpected_error THEN
4869: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4870: END proc_for_last_mtl_trx ;
4871:
4864:
4865: EXCEPTION
4866: WHEN fnd_api.g_exc_error THEN
4867: x_return_status := fnd_api.g_ret_sts_error ;
4868: WHEN fnd_api.g_exc_unexpected_error THEN
4869: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4870: END proc_for_last_mtl_trx ;
4871:
4872: PROCEDURE auto_split_instances(
4865: EXCEPTION
4866: WHEN fnd_api.g_exc_error THEN
4867: x_return_status := fnd_api.g_ret_sts_error ;
4868: WHEN fnd_api.g_exc_unexpected_error THEN
4869: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4870: END proc_for_last_mtl_trx ;
4871:
4872: PROCEDURE auto_split_instances(
4873: p_instance_rec IN csi_datastructures_pub.instance_rec,
4876: x_return_status OUT nocopy varchar2)
4877: IS
4878: l_src_instance_rec csi_datastructures_pub.instance_rec;
4879: l_instance_tbl csi_datastructures_pub.instance_tbl;
4880: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4881: l_msg_count number;
4882: l_msg_data varchar2(2000);
4883: BEGIN
4884:
4881: l_msg_count number;
4882: l_msg_data varchar2(2000);
4883: BEGIN
4884:
4885: x_return_status := fnd_api.g_ret_sts_success;
4886:
4887: api_log('auto_split_instances');
4888:
4889: l_src_instance_rec.instance_id := p_instance_rec.instance_id ;
4912: p_api_name => 'split_item_instance_lines');
4913:
4914: csi_item_instance_pvt.split_item_instance_lines(
4915: p_api_version => 1.0,
4916: p_commit => fnd_api.g_false,
4917: p_init_msg_list => fnd_api.g_true,
4918: p_validation_level => fnd_api.g_valid_level_full,
4919: p_source_instance_rec => l_src_instance_rec,
4920: p_copy_ext_attribs => fnd_api.g_true,
4913:
4914: csi_item_instance_pvt.split_item_instance_lines(
4915: p_api_version => 1.0,
4916: p_commit => fnd_api.g_false,
4917: p_init_msg_list => fnd_api.g_true,
4918: p_validation_level => fnd_api.g_valid_level_full,
4919: p_source_instance_rec => l_src_instance_rec,
4920: p_copy_ext_attribs => fnd_api.g_true,
4921: p_copy_org_assignments => fnd_api.g_true,
4914: csi_item_instance_pvt.split_item_instance_lines(
4915: p_api_version => 1.0,
4916: p_commit => fnd_api.g_false,
4917: p_init_msg_list => fnd_api.g_true,
4918: p_validation_level => fnd_api.g_valid_level_full,
4919: p_source_instance_rec => l_src_instance_rec,
4920: p_copy_ext_attribs => fnd_api.g_true,
4921: p_copy_org_assignments => fnd_api.g_true,
4922: p_copy_parties => fnd_api.g_true,
4916: p_commit => fnd_api.g_false,
4917: p_init_msg_list => fnd_api.g_true,
4918: p_validation_level => fnd_api.g_valid_level_full,
4919: p_source_instance_rec => l_src_instance_rec,
4920: p_copy_ext_attribs => fnd_api.g_true,
4921: p_copy_org_assignments => fnd_api.g_true,
4922: p_copy_parties => fnd_api.g_true,
4923: p_copy_accounts => fnd_api.g_true,
4924: p_copy_asset_assignments => fnd_api.g_true,
4917: p_init_msg_list => fnd_api.g_true,
4918: p_validation_level => fnd_api.g_valid_level_full,
4919: p_source_instance_rec => l_src_instance_rec,
4920: p_copy_ext_attribs => fnd_api.g_true,
4921: p_copy_org_assignments => fnd_api.g_true,
4922: p_copy_parties => fnd_api.g_true,
4923: p_copy_accounts => fnd_api.g_true,
4924: p_copy_asset_assignments => fnd_api.g_true,
4925: p_copy_pricing_attribs => fnd_api.g_true,
4918: p_validation_level => fnd_api.g_valid_level_full,
4919: p_source_instance_rec => l_src_instance_rec,
4920: p_copy_ext_attribs => fnd_api.g_true,
4921: p_copy_org_assignments => fnd_api.g_true,
4922: p_copy_parties => fnd_api.g_true,
4923: p_copy_accounts => fnd_api.g_true,
4924: p_copy_asset_assignments => fnd_api.g_true,
4925: p_copy_pricing_attribs => fnd_api.g_true,
4926: p_txn_rec => px_txn_rec,
4919: p_source_instance_rec => l_src_instance_rec,
4920: p_copy_ext_attribs => fnd_api.g_true,
4921: p_copy_org_assignments => fnd_api.g_true,
4922: p_copy_parties => fnd_api.g_true,
4923: p_copy_accounts => fnd_api.g_true,
4924: p_copy_asset_assignments => fnd_api.g_true,
4925: p_copy_pricing_attribs => fnd_api.g_true,
4926: p_txn_rec => px_txn_rec,
4927: x_new_instance_tbl => l_instance_tbl,
4920: p_copy_ext_attribs => fnd_api.g_true,
4921: p_copy_org_assignments => fnd_api.g_true,
4922: p_copy_parties => fnd_api.g_true,
4923: p_copy_accounts => fnd_api.g_true,
4924: p_copy_asset_assignments => fnd_api.g_true,
4925: p_copy_pricing_attribs => fnd_api.g_true,
4926: p_txn_rec => px_txn_rec,
4927: x_new_instance_tbl => l_instance_tbl,
4928: x_return_status => l_return_status,
4921: p_copy_org_assignments => fnd_api.g_true,
4922: p_copy_parties => fnd_api.g_true,
4923: p_copy_accounts => fnd_api.g_true,
4924: p_copy_asset_assignments => fnd_api.g_true,
4925: p_copy_pricing_attribs => fnd_api.g_true,
4926: p_txn_rec => px_txn_rec,
4927: x_new_instance_tbl => l_instance_tbl,
4928: x_return_status => l_return_status,
4929: x_msg_count => l_msg_count,
4928: x_return_status => l_return_status,
4929: x_msg_count => l_msg_count,
4930: x_msg_data => l_msg_data);
4931:
4932: IF l_return_status not in (fnd_api.g_ret_sts_success, 'W') THEN
4933: RAISE fnd_api.g_exc_error;
4934: END IF;
4935:
4936: x_instance_tbl := l_instance_tbl;
4929: x_msg_count => l_msg_count,
4930: x_msg_data => l_msg_data);
4931:
4932: IF l_return_status not in (fnd_api.g_ret_sts_success, 'W') THEN
4933: RAISE fnd_api.g_exc_error;
4934: END IF;
4935:
4936: x_instance_tbl := l_instance_tbl;
4937:
4935:
4936: x_instance_tbl := l_instance_tbl;
4937:
4938: EXCEPTION
4939: WHEN fnd_api.g_exc_error THEN
4940: x_return_status := fnd_api.g_ret_sts_error;
4941: END auto_split_instances;
4942:
4943: PROCEDURE get_config_wip_id (
4936: x_instance_tbl := l_instance_tbl;
4937:
4938: EXCEPTION
4939: WHEN fnd_api.g_exc_error THEN
4940: x_return_status := fnd_api.g_ret_sts_error;
4941: END auto_split_instances;
4942:
4943: PROCEDURE get_config_wip_id (
4944: p_order_line_rec IN order_line_rec,
5048: debug('l_config_wip_job_id - ' || l_config_wip_job_id);
5049: -- Verify if BOM explosion is necessary for Phantom Option Item
5050: IF p_source = 'FULFILLMENT'
5051: AND p_order_line_rec.item_type_code = 'OPTION'
5052: AND NVL(l_config_wip_job_id, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
5053: AND l_option_flag = 'Y' THEN
5054: l_explode_bom_flag := FALSE;
5055: debug('check_option_relationship - Relationship for Option Item exist. Dont explode BOM');
5056: RETURN l_explode_bom_flag;
5062: END check_option_relationship;
5063:
5064: PROCEDURE update_install_base(
5065: p_api_version IN number,
5066: p_commit IN varchar2 := fnd_api.g_false,
5067: p_init_msg_list IN varchar2 := fnd_api.g_false,
5068: p_validation_level IN number := fnd_api.g_valid_level_full,
5069: p_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
5070: p_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
5063:
5064: PROCEDURE update_install_base(
5065: p_api_version IN number,
5066: p_commit IN varchar2 := fnd_api.g_false,
5067: p_init_msg_list IN varchar2 := fnd_api.g_false,
5068: p_validation_level IN number := fnd_api.g_valid_level_full,
5069: p_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
5070: p_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
5071: p_txn_party_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl,
5064: PROCEDURE update_install_base(
5065: p_api_version IN number,
5066: p_commit IN varchar2 := fnd_api.g_false,
5067: p_init_msg_list IN varchar2 := fnd_api.g_false,
5068: p_validation_level IN number := fnd_api.g_valid_level_full,
5069: p_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
5070: p_txn_line_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
5071: p_txn_party_detail_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl,
5072: p_txn_pty_acct_dtl_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_pty_acct_detail_tbl,
5088: l_api_name CONSTANT varchar2(30) := 'update_install_base';
5089: l_api_version CONSTANT NUMBER := 1.0;
5090: l_csi_debug_level varchar2(1);
5091:
5092: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5093: l_msg_count number;
5094: l_msg_data varchar2(2000);
5095:
5096: l_order_line_rec order_line_rec;
5229: l_found BOOLEAN := FALSE;
5230: l_ii_rel_id NUMBER;
5231: l_curr_object_id NUMBER;
5232: l_curr_subject_id NUMBER;
5233: l_date DATE := fnd_api.g_miss_date;
5234: l_debug_level NUMBER;
5235: l_inst_status_id NUMBER;
5236: l_inst_obj_ver_num NUMBER;
5237: l_pty_changed BOOLEAN := FALSE;
5279:
5280: l_comp_instance_tbl csi_datastructures_pub.instance_tbl;
5281: l_comp_relation_tbl csi_datastructures_pub.ii_relationship_tbl;
5282:
5283: l_active_end_date date := fnd_api.g_miss_date;
5284: l_call_contracts varchar2(1) := fnd_api.g_true;
5285:
5286: -- profile value checking
5287: l_default_install_date VARCHAR2(1);
5280: l_comp_instance_tbl csi_datastructures_pub.instance_tbl;
5281: l_comp_relation_tbl csi_datastructures_pub.ii_relationship_tbl;
5282:
5283: l_active_end_date date := fnd_api.g_miss_date;
5284: l_call_contracts varchar2(1) := fnd_api.g_true;
5285:
5286: -- profile value checking
5287: l_default_install_date VARCHAR2(1);
5288:
5320:
5321: api_log('update_install_base');
5322:
5323: /* Initialize message list if p_init_msg_list is set to TRUE. */
5324: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5325: fnd_msg_pub.initialize;
5326: END IF;
5327:
5328: /* Initialize API return status to success */
5325: fnd_msg_pub.initialize;
5326: END IF;
5327:
5328: /* Initialize API return status to success */
5329: x_return_status := fnd_api.g_ret_sts_success;
5330:
5331: -- Bug 10329599
5332: -- Get flag for Phantom Option Item behaviour
5333: -- If l_option_flag - Y then Phantom Option Item BOM explosion wont happen for internally manufactured
5352: fnd_message.set_name('CSI', 'CSI_CANNOT_UPDATE');
5353: fnd_message.set_token('OBJECT_ID','');
5354: fnd_message.set_token('RELATIONSHIP_TYPE_CODE','');
5355: fnd_msg_pub.add;
5356: Raise fnd_api.g_exc_error;
5357: END IF;
5358:
5359: /* get the profile value for CSI default install date */
5360: BEGIN
5385: p_order_line_rec => l_order_line_rec,
5386: p_source => p_source,
5387: x_return_status => x_return_status);
5388:
5389: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5390: raise fnd_api.g_exc_error;
5391: END IF;
5392:
5393: l_all_tld_party_tbl := p_txn_party_detail_tbl;
5386: p_source => p_source,
5387: x_return_status => x_return_status);
5388:
5389: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5390: raise fnd_api.g_exc_error;
5391: END IF;
5392:
5393: l_all_tld_party_tbl := p_txn_party_detail_tbl;
5394: l_all_tld_account_tbl := p_txn_pty_acct_dtl_tbl;
5408: px_txn_systems_tbl => p_txn_systems_tbl,
5409: px_tld_tbl => p_txn_line_detail_tbl,
5410: x_return_status => l_return_status);
5411:
5412: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5413: RAISE fnd_api.g_exc_error;
5414: END IF;
5415: END IF; -- end if for system table count > 0
5416:
5409: px_tld_tbl => p_txn_line_detail_tbl,
5410: x_return_status => l_return_status);
5411:
5412: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5413: RAISE fnd_api.g_exc_error;
5414: END IF;
5415: END IF; -- end if for system table count > 0
5416:
5417: csi_utl_pkg.get_dflt_inst_status_id(
5417: csi_utl_pkg.get_dflt_inst_status_id(
5418: x_instance_status_id => l_dflt_inst_status_id,
5419: x_return_status => l_return_status);
5420:
5421: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5422: RAISE fnd_api.g_exc_error;
5423: END IF;
5424:
5425: l_split_flag := nvl(fnd_profile.value('CSI_AUTO_SPLIT_INSTANCE' ),'N');
5418: x_instance_status_id => l_dflt_inst_status_id,
5419: x_return_status => l_return_status);
5420:
5421: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5422: RAISE fnd_api.g_exc_error;
5423: END IF;
5424:
5425: l_split_flag := nvl(fnd_profile.value('CSI_AUTO_SPLIT_INSTANCE' ),'N');
5426:
5489: p_trx_type_id => p_txn_line_rec.source_transaction_type_id,
5490: x_trx_sub_type_rec => x_trx_sub_type_rec,
5491: x_return_status => x_return_status) ;
5492:
5493: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5494: raise fnd_api.g_exc_error;
5495: END IF;
5496:
5497: csi_utl_pkg.get_org_assignment_tbl(
5490: x_trx_sub_type_rec => x_trx_sub_type_rec,
5491: x_return_status => x_return_status) ;
5492:
5493: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5494: raise fnd_api.g_exc_error;
5495: END IF;
5496:
5497: csi_utl_pkg.get_org_assignment_tbl(
5498: p_txn_line_detail_rec => l_tld_rec,
5500: x_cre_org_units_tbl => l_cre_org_units_tbl,
5501: x_upd_org_units_tbl => l_upd_org_units_tbl,
5502: x_return_status => x_return_status);
5503:
5504: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5505: raise fnd_api.g_exc_error;
5506: END IF;
5507:
5508: csi_utl_pkg.get_ext_attribs_tbl(
5501: x_upd_org_units_tbl => l_upd_org_units_tbl,
5502: x_return_status => x_return_status);
5503:
5504: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5505: raise fnd_api.g_exc_error;
5506: END IF;
5507:
5508: csi_utl_pkg.get_ext_attribs_tbl(
5509: p_txn_line_detail_rec => l_tld_rec,
5511: x_cre_ext_attrib_val_tbl => l_cre_ext_attrib_val_tbl,
5512: x_upd_ext_attrib_val_tbl => l_upd_ext_attrib_val_tbl,
5513: x_return_status => x_return_status );
5514:
5515: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5516: raise fnd_api.g_exc_error;
5517: END IF;
5518:
5519: csi_utl_pkg.get_party_owner(
5512: x_upd_ext_attrib_val_tbl => l_upd_ext_attrib_val_tbl,
5513: x_return_status => x_return_status );
5514:
5515: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5516: raise fnd_api.g_exc_error;
5517: END IF;
5518:
5519: csi_utl_pkg.get_party_owner(
5520: p_txn_line_detail_rec => l_tld_rec,
5527: x_cre_party_tbl => l_cre_party_tbl,
5528: x_cre_party_acct_tbl => l_cre_party_acct_tbl,
5529: x_return_status => x_return_status );
5530:
5531: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5532: raise fnd_api.g_exc_error;
5533: END IF;
5534:
5535:
5528: x_cre_party_acct_tbl => l_cre_party_acct_tbl,
5529: x_return_status => x_return_status );
5530:
5531: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5532: raise fnd_api.g_exc_error;
5533: END IF;
5534:
5535:
5536: IF p_source = 'SHIPMENT' THEN
5541: ELSIF p_source = 'FULFILLMENT' THEN
5542: -- Bug 4996316, these are demo conversion shipments and have a need to convert
5543: -- an externally located but internally owned item instance to CP
5544: -- current check for it is simple and additional checks may be added in here...
5545: IF nvl(l_tld_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
5546: THEN
5547: IF l_upd_party_acct_tbl.COUNT = 0 THEN
5548: l_upd_party_acct_tbl := l_cre_party_acct_tbl;
5549: l_cre_party_acct_tbl.delete;
5572: -- If both location_id and ib_current_loc_id is not null
5573: -- ib_current_loc_id should be used for
5574: -- current location of the instance
5575:
5576: -- IF ((NVL(l_tld_rec.location_id, fnd_api.g_miss_num) = fnd_api.g_miss_num AND
5577: -- p_order_line_rec.ib_current_loc_id IS NOT NULL) -- added for bug 5069906
5578: /* IF NVL(p_order_line_rec.ib_current_loc_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
5579: THEN
5580:
5574: -- current location of the instance
5575:
5576: -- IF ((NVL(l_tld_rec.location_id, fnd_api.g_miss_num) = fnd_api.g_miss_num AND
5577: -- p_order_line_rec.ib_current_loc_id IS NOT NULL) -- added for bug 5069906
5578: /* IF NVL(p_order_line_rec.ib_current_loc_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
5579: THEN
5580:
5581: BEGIN
5582:
5591: WHEN no_data_found then
5592: fnd_message.set_name('CSI','CSI_INT_PTY_SITE_MISSING');
5593: fnd_message.set_token('LOCATION_ID', l_tld_rec.location_id);
5594: fnd_msg_pub.add;
5595: raise fnd_api.g_exc_error;
5596: WHEN too_many_rows then
5597: debug('Many Party sites found');
5598: raise fnd_api.g_exc_error;
5599: END;
5594: fnd_msg_pub.add;
5595: raise fnd_api.g_exc_error;
5596: WHEN too_many_rows then
5597: debug('Many Party sites found');
5598: raise fnd_api.g_exc_error;
5599: END;
5600:
5601: l_tld_rec.location_id := l_party_site_id;
5602: l_tld_rec.location_type_code := 'HZ_PARTY_SITES';
5603:
5604: END IF;
5605:
5606: -- Forward Port bug 7420858 for base bug 7312328
5607: --IF NVL(l_tld_rec.install_location_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
5608: --AND NVL(p_order_line_rec.ib_install_loc_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN --5147603 -- Modified for the bug 9924233
5609: IF
5610:
5611: BEGIN
5604: END IF;
5605:
5606: -- Forward Port bug 7420858 for base bug 7312328
5607: --IF NVL(l_tld_rec.install_location_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
5608: --AND NVL(p_order_line_rec.ib_install_loc_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN --5147603 -- Modified for the bug 9924233
5609: IF
5610:
5611: BEGIN
5612:
5621: WHEN no_data_found then
5622: fnd_message.set_name('CSI','CSI_INT_PTY_SITE_MISSING');
5623: fnd_message.set_token('LOCATION_ID',p_order_line_rec.ib_install_loc_id);--5147603
5624: fnd_msg_pub.add;
5625: raise fnd_api.g_exc_error;
5626: WHEN too_many_rows then
5627: debug('Many Party sites found');
5628: raise fnd_api.g_exc_error;
5629: END;
5624: fnd_msg_pub.add;
5625: raise fnd_api.g_exc_error;
5626: WHEN too_many_rows then
5627: debug('Many Party sites found');
5628: raise fnd_api.g_exc_error;
5629: END;
5630:
5631: l_tld_rec.install_location_id := l_install_party_site_id;
5632: l_tld_rec.install_location_type_code := 'HZ_PARTY_SITES';
5640: -- converted in to site id in in the order fulfillment API
5641: -- after getting get_partner_order_info. Also the fix in 9682428 is
5642: -- retained
5643:
5644: IF NVL(p_order_line_rec.ib_current_loc_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
5645:
5646: l_tld_rec.location_id := p_order_line_rec.ib_current_loc_id;
5647: l_tld_rec.location_type_code := 'HZ_PARTY_SITES';
5648:
5647: l_tld_rec.location_type_code := 'HZ_PARTY_SITES';
5648:
5649: END IF;
5650:
5651: IF NVL(p_order_line_rec.ib_install_loc_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
5652:
5653: l_tld_rec.install_location_id := p_order_line_rec.ib_install_loc_id;
5654: l_tld_rec.install_location_type_code := 'HZ_PARTY_SITES';
5655:
5660: /* If the instance reference exists then call update instance api else */
5661: /* call create instance api .Also check if the split instance profile */
5662: /* is on then split it into so many number of instances */
5663:
5664: IF NVL(l_tld_rec.instance_id,fnd_api.g_miss_num ) <> fnd_api.g_miss_num THEN
5665:
5666: l_upd_instance_rec := l_tmp_instance_rec;
5667:
5668: csi_utl_pkg.get_instance(
5670: x_obj_version_number => l_inst_obj_ver_num,
5671: x_inst_qty => l_curr_instance_qty,
5672: x_return_status => x_return_status);
5673:
5674: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5675: raise fnd_api.g_exc_error;
5676: END IF;
5677:
5678: debug('Referenced Instance ID :'||l_tld_rec.instance_id);
5671: x_inst_qty => l_curr_instance_qty,
5672: x_return_status => x_return_status);
5673:
5674: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5675: raise fnd_api.g_exc_error;
5676: END IF;
5677:
5678: debug('Referenced Instance ID :'||l_tld_rec.instance_id);
5679: debug(' object_ver_num :'||l_inst_obj_ver_num);
5722: p_quantity => 1,
5723: p_trx_rec => l_trx_rec,
5724: x_return_status => l_return_status);
5725:
5726: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5727: RAISE fnd_api.g_exc_error;
5728: END IF;
5729:
5730: debug('Rebuilding the TD tables for the returned instance.');
5723: p_trx_rec => l_trx_rec,
5724: x_return_status => l_return_status);
5725:
5726: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5727: RAISE fnd_api.g_exc_error;
5728: END IF;
5729:
5730: debug('Rebuilding the TD tables for the returned instance.');
5731:
5744: x_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl,
5745: x_txn_line_detail_rec => l_tld_rec,
5746: x_return_status => x_return_status);
5747:
5748: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5749: raise fnd_api.g_exc_error;
5750: END IF;
5751:
5752: -- Mark the instance as RMA so that it is not eligible for split
5745: x_txn_line_detail_rec => l_tld_rec,
5746: x_return_status => x_return_status);
5747:
5748: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5749: raise fnd_api.g_exc_error;
5750: END IF;
5751:
5752: -- Mark the instance as RMA so that it is not eligible for split
5753: is_instance_rma := TRUE;
5760: END IF;
5761:
5762: /* this code is exclusively for re-shipping a returned non serial config */
5763: /* instance. ATO non serial config assembly for xerox bug 2304221 */
5764: IF nvl(l_tld_rec.changed_instance_id, fnd_api.g_miss_num) <>
5765: fnd_api.g_miss_num
5766: AND p_order_line_rec.serial_code = 1 -- Added for Bug 3008953
5767: THEN
5768: debug('re-shipping of a returned configuration.');
5761:
5762: /* this code is exclusively for re-shipping a returned non serial config */
5763: /* instance. ATO non serial config assembly for xerox bug 2304221 */
5764: IF nvl(l_tld_rec.changed_instance_id, fnd_api.g_miss_num) <>
5765: fnd_api.g_miss_num
5766: AND p_order_line_rec.serial_code = 1 -- Added for Bug 3008953
5767: THEN
5768: debug('re-shipping of a returned configuration.');
5769: -- a returned instance reference specified.
5775: p_quantity => 1,
5776: p_trx_rec => l_trx_rec,
5777: x_return_status => l_return_status);
5778:
5779: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5780: RAISE fnd_api.g_exc_error;
5781: END IF;
5782:
5783: debug('Rebuilding the TD tables for the returned config instance.');
5776: p_trx_rec => l_trx_rec,
5777: x_return_status => l_return_status);
5778:
5779: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5780: RAISE fnd_api.g_exc_error;
5781: END IF;
5782:
5783: debug('Rebuilding the TD tables for the returned config instance.');
5784:
5801: x_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl,
5802: x_txn_line_detail_rec => l_tld_rec,
5803: x_return_status => x_return_status);
5804:
5805: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5806: raise fnd_api.g_exc_error;
5807: END IF;
5808:
5809: END IF;
5802: x_txn_line_detail_rec => l_tld_rec,
5803: x_return_status => x_return_status);
5804:
5805: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5806: raise fnd_api.g_exc_error;
5807: END IF;
5808:
5809: END IF;
5810:
5844: p_api_name => 'update_item_instance');
5845:
5846: csi_item_instance_pub.update_item_instance(
5847: p_api_version => 1.0,
5848: p_commit => fnd_api.g_false,
5849: p_init_msg_list => fnd_api.g_true,
5850: p_validation_level => fnd_api.g_valid_level_full,
5851: p_instance_rec => l_un_exp_instance_rec,
5852: p_ext_attrib_values_tbl => l_un_exp_ext_attrib_val_tbl,
5845:
5846: csi_item_instance_pub.update_item_instance(
5847: p_api_version => 1.0,
5848: p_commit => fnd_api.g_false,
5849: p_init_msg_list => fnd_api.g_true,
5850: p_validation_level => fnd_api.g_valid_level_full,
5851: p_instance_rec => l_un_exp_instance_rec,
5852: p_ext_attrib_values_tbl => l_un_exp_ext_attrib_val_tbl,
5853: p_party_tbl => l_un_exp_party_tbl,
5846: csi_item_instance_pub.update_item_instance(
5847: p_api_version => 1.0,
5848: p_commit => fnd_api.g_false,
5849: p_init_msg_list => fnd_api.g_true,
5850: p_validation_level => fnd_api.g_valid_level_full,
5851: p_instance_rec => l_un_exp_instance_rec,
5852: p_ext_attrib_values_tbl => l_un_exp_ext_attrib_val_tbl,
5853: p_party_tbl => l_un_exp_party_tbl,
5854: p_account_tbl => l_un_exp_party_acct_tbl,
5861: x_msg_count => l_msg_count,
5862: x_msg_data => l_msg_data );
5863:
5864: -- For Bug 4057183
5865: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
5866: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5867: RAISE fnd_api.g_exc_error;
5868: END IF;
5869: debug('After Non reservable Item instance is unexpired');
5862: x_msg_data => l_msg_data );
5863:
5864: -- For Bug 4057183
5865: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
5866: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5867: RAISE fnd_api.g_exc_error;
5868: END IF;
5869: debug('After Non reservable Item instance is unexpired');
5870: */
5863:
5864: -- For Bug 4057183
5865: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
5866: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5867: RAISE fnd_api.g_exc_error;
5868: END IF;
5869: debug('After Non reservable Item instance is unexpired');
5870: */
5871: -- instead of an unexpiry I am passing the end date of the source instance
5879: ELSE
5880: fnd_message.set_name('CSI', 'CSI_ORG_NO_NEG_QTY');
5881: fnd_message.set_token('ORG_ID',l_tld_rec.inv_organization_id);
5882: fnd_msg_pub.add;
5883: Raise fnd_api.g_exc_error;
5884: END IF;
5885: ELSE
5886: l_quantity1 := (l_curr_instance_qty - l_tld_rec.quantity );
5887: l_quantity2 := l_tld_rec.quantity ;
5903: l_split_src_inst_rec.pa_project_id := null;
5904: l_split_src_inst_rec.pa_project_task_id := null;
5905: l_split_src_inst_rec.wip_job_id := null;
5906: l_split_src_inst_rec.po_order_line_id := null;
5907: l_split_src_inst_rec.version_label := nvl(l_tld_rec.version_label,fnd_api.g_miss_char);--bug 5112946
5908: l_split_src_trx_rec := p_trx_rec;
5909:
5910: csi_t_gen_utility_pvt.dump_api_info(
5911: p_pkg_name => 'csi_item_instance_pvt',
5914: /* split the inventory staging instance when the instance qty > ship qty */
5915: /* the owner party is still internal */
5916: csi_item_instance_pvt.split_item_instance (
5917: p_api_version => 1.0,
5918: p_commit => fnd_api.g_false,
5919: p_init_msg_list => fnd_api.g_true,
5920: p_validation_level => fnd_api.g_valid_level_full,
5921: p_source_instance_rec => l_split_src_inst_rec,
5922: p_quantity1 => l_quantity1,
5915: /* the owner party is still internal */
5916: csi_item_instance_pvt.split_item_instance (
5917: p_api_version => 1.0,
5918: p_commit => fnd_api.g_false,
5919: p_init_msg_list => fnd_api.g_true,
5920: p_validation_level => fnd_api.g_valid_level_full,
5921: p_source_instance_rec => l_split_src_inst_rec,
5922: p_quantity1 => l_quantity1,
5923: p_quantity2 => l_quantity2,
5916: csi_item_instance_pvt.split_item_instance (
5917: p_api_version => 1.0,
5918: p_commit => fnd_api.g_false,
5919: p_init_msg_list => fnd_api.g_true,
5920: p_validation_level => fnd_api.g_valid_level_full,
5921: p_source_instance_rec => l_split_src_inst_rec,
5922: p_quantity1 => l_quantity1,
5923: p_quantity2 => l_quantity2,
5924: p_copy_ext_attribs => fnd_api.g_true,
5920: p_validation_level => fnd_api.g_valid_level_full,
5921: p_source_instance_rec => l_split_src_inst_rec,
5922: p_quantity1 => l_quantity1,
5923: p_quantity2 => l_quantity2,
5924: p_copy_ext_attribs => fnd_api.g_true,
5925: p_copy_org_assignments => fnd_api.g_true,
5926: p_copy_parties => fnd_api.g_true,
5927: p_copy_accounts => fnd_api.g_true,
5928: p_copy_asset_assignments => fnd_api.g_true,
5921: p_source_instance_rec => l_split_src_inst_rec,
5922: p_quantity1 => l_quantity1,
5923: p_quantity2 => l_quantity2,
5924: p_copy_ext_attribs => fnd_api.g_true,
5925: p_copy_org_assignments => fnd_api.g_true,
5926: p_copy_parties => fnd_api.g_true,
5927: p_copy_accounts => fnd_api.g_true,
5928: p_copy_asset_assignments => fnd_api.g_true,
5929: p_copy_pricing_attribs => fnd_api.g_true,
5922: p_quantity1 => l_quantity1,
5923: p_quantity2 => l_quantity2,
5924: p_copy_ext_attribs => fnd_api.g_true,
5925: p_copy_org_assignments => fnd_api.g_true,
5926: p_copy_parties => fnd_api.g_true,
5927: p_copy_accounts => fnd_api.g_true,
5928: p_copy_asset_assignments => fnd_api.g_true,
5929: p_copy_pricing_attribs => fnd_api.g_true,
5930: p_txn_rec => l_split_src_trx_rec,
5923: p_quantity2 => l_quantity2,
5924: p_copy_ext_attribs => fnd_api.g_true,
5925: p_copy_org_assignments => fnd_api.g_true,
5926: p_copy_parties => fnd_api.g_true,
5927: p_copy_accounts => fnd_api.g_true,
5928: p_copy_asset_assignments => fnd_api.g_true,
5929: p_copy_pricing_attribs => fnd_api.g_true,
5930: p_txn_rec => l_split_src_trx_rec,
5931: x_new_instance_rec => l_split_new_inst_rec,
5924: p_copy_ext_attribs => fnd_api.g_true,
5925: p_copy_org_assignments => fnd_api.g_true,
5926: p_copy_parties => fnd_api.g_true,
5927: p_copy_accounts => fnd_api.g_true,
5928: p_copy_asset_assignments => fnd_api.g_true,
5929: p_copy_pricing_attribs => fnd_api.g_true,
5930: p_txn_rec => l_split_src_trx_rec,
5931: x_new_instance_rec => l_split_new_inst_rec,
5932: x_return_status => x_return_status,
5925: p_copy_org_assignments => fnd_api.g_true,
5926: p_copy_parties => fnd_api.g_true,
5927: p_copy_accounts => fnd_api.g_true,
5928: p_copy_asset_assignments => fnd_api.g_true,
5929: p_copy_pricing_attribs => fnd_api.g_true,
5930: p_txn_rec => l_split_src_trx_rec,
5931: x_new_instance_rec => l_split_new_inst_rec,
5932: x_return_status => x_return_status,
5933: x_msg_count => x_msg_count,
5932: x_return_status => x_return_status,
5933: x_msg_count => x_msg_count,
5934: x_msg_data => x_msg_data);
5935:
5936: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5937: g_api_name := 'csi_item_instance_pvt.split_item_instance';
5938: raise fnd_api.g_exc_error;
5939: END IF;
5940:
5934: x_msg_data => x_msg_data);
5935:
5936: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5937: g_api_name := 'csi_item_instance_pvt.split_item_instance';
5938: raise fnd_api.g_exc_error;
5939: END IF;
5940:
5941: l_instance_id := l_split_new_inst_rec.instance_id ;
5942: l_inst_obj_ver_num := l_split_new_inst_rec.object_version_number;
5957: x_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl,
5958: x_txn_line_detail_rec => l_tld_rec,
5959: x_return_status => x_return_status );
5960:
5961: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5962: raise fnd_api.g_exc_error;
5963: END IF;
5964:
5965: END IF; -- end of split_item_instances
5958: x_txn_line_detail_rec => l_tld_rec,
5959: x_return_status => x_return_status );
5960:
5961: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
5962: raise fnd_api.g_exc_error;
5963: END IF;
5964:
5965: END IF; -- end of split_item_instances
5966: -- Uncommented the end if as part of fix for Bug 3033092
5966: -- Uncommented the end if as part of fix for Bug 3033092
5967: -- Commented the END IF and moved it to before even building the split record
5968: -- as part of fix for Bug 2985193
5969:
5970: IF NVL(x_trx_sub_type_rec.src_status_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
5971:
5972: l_inst_status_id := l_dflt_inst_status_id;
5973:
5974: l_upd_instance_rec.instance_status_id := l_inst_status_id;
5986: -- Partner Ordering Code change
5987: -- l_upd_instance_rec.location_type_code := l_tld_rec.location_type_code;
5988: -- l_upd_instance_rec.location_id := l_tld_rec.location_id;
5989: -- Added the nvl to l_ltd_rec optional columns for Bug 3818547
5990: l_upd_instance_rec.install_location_type_code := nvl(l_tld_rec.install_location_type_code,fnd_api.g_miss_char);
5991: IF p_order_line_rec.ib_install_loc is not null
5992: AND
5993: p_order_line_rec.ib_install_loc <> fnd_api.g_miss_char
5994: THEN
5989: -- Added the nvl to l_ltd_rec optional columns for Bug 3818547
5990: l_upd_instance_rec.install_location_type_code := nvl(l_tld_rec.install_location_type_code,fnd_api.g_miss_char);
5991: IF p_order_line_rec.ib_install_loc is not null
5992: AND
5993: p_order_line_rec.ib_install_loc <> fnd_api.g_miss_char
5994: THEN
5995: BEGIN
5996: SELECT HCAS.party_site_id
5997: INTO l_upd_party_site_id
6009: THEN
6010: l_upd_instance_rec.install_location_id := l_upd_party_site_id;
6011: -- Added else as part of fix for Bug 3419098
6012: ELSE
6013: l_upd_instance_rec.install_location_id := nvl(l_tld_rec.install_location_id,fnd_api.g_miss_num);
6014: END IF;
6015: ELSE
6016: l_upd_instance_rec.install_location_id := nvl(l_tld_rec.install_location_id,fnd_api.g_miss_num);
6017: END IF;
6012: ELSE
6013: l_upd_instance_rec.install_location_id := nvl(l_tld_rec.install_location_id,fnd_api.g_miss_num);
6014: END IF;
6015: ELSE
6016: l_upd_instance_rec.install_location_id := nvl(l_tld_rec.install_location_id,fnd_api.g_miss_num);
6017: END IF;
6018: l_upd_instance_rec.location_type_code := nvl(l_tld_rec.location_type_code,l_tld_rec.install_location_type_code);
6019: l_upd_instance_rec.location_id := nvl(l_tld_rec.location_id,l_upd_instance_rec.install_location_id);
6020: -- Partner Ordering code change
6018: l_upd_instance_rec.location_type_code := nvl(l_tld_rec.location_type_code,l_tld_rec.install_location_type_code);
6019: l_upd_instance_rec.location_id := nvl(l_tld_rec.location_id,l_upd_instance_rec.install_location_id);
6020: -- Partner Ordering code change
6021:
6022: l_upd_instance_rec.external_reference := nvl(l_tld_rec.external_reference,fnd_api.g_miss_char);
6023: l_upd_instance_rec.system_id := nvl(l_tld_rec.csi_system_id,fnd_api.g_miss_num);
6024: -- l_upd_instance_rec.accounting_class_code := 'CUST_PROD';
6025:
6026: IF nvl(l_tld_rec.installation_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
6019: l_upd_instance_rec.location_id := nvl(l_tld_rec.location_id,l_upd_instance_rec.install_location_id);
6020: -- Partner Ordering code change
6021:
6022: l_upd_instance_rec.external_reference := nvl(l_tld_rec.external_reference,fnd_api.g_miss_char);
6023: l_upd_instance_rec.system_id := nvl(l_tld_rec.csi_system_id,fnd_api.g_miss_num);
6024: -- l_upd_instance_rec.accounting_class_code := 'CUST_PROD';
6025:
6026: IF nvl(l_tld_rec.installation_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
6027: IF l_default_install_date = 'Y' THEN
6022: l_upd_instance_rec.external_reference := nvl(l_tld_rec.external_reference,fnd_api.g_miss_char);
6023: l_upd_instance_rec.system_id := nvl(l_tld_rec.csi_system_id,fnd_api.g_miss_num);
6024: -- l_upd_instance_rec.accounting_class_code := 'CUST_PROD';
6025:
6026: IF nvl(l_tld_rec.installation_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
6027: IF l_default_install_date = 'Y' THEN
6028: IF p_source = 'SHIPMENT' THEN
6029: l_upd_instance_rec.install_date := p_order_line_rec.actual_shipment_date;
6030: ELSIF p_source = 'FULFILLMENT' THEN
6039: l_upd_instance_rec.install_date := l_tld_rec.installation_date; --Added for bug 7668298
6040: /* --Commented for bug 7668298
6041: IF p_order_line_rec.fulfillment_date is NOT NULL
6042: AND
6043: p_order_line_rec.fulfillment_date <> fnd_api.g_miss_date
6044: THEN
6045: l_upd_instance_rec.install_date := GREATEST(l_tld_rec.installation_date,p_order_line_rec.fulfillment_date);
6046: ELSE
6047: l_upd_instance_rec.install_date := GREATEST(l_tld_rec.installation_date,sysdate);
6051: --l_upd_instance_rec.install_date := l_tld_rec.installation_date;
6052: /* End code change for 3254347 Install_Date and Start_Date changes */
6053: END IF;
6054:
6055: l_upd_instance_rec.instance_type_code := nvl(l_tld_rec.instance_type_code,fnd_api.g_miss_char);
6056: l_upd_instance_rec.instance_condition_id := nvl(l_tld_rec.item_condition_id,fnd_api.g_miss_num);
6057: l_upd_instance_rec.quantity := l_tld_rec.quantity;
6058: l_upd_instance_rec.unit_of_measure := l_tld_rec.unit_of_measure;
6059: l_upd_instance_rec.sellable_flag := nvl(l_tld_rec.sellable_flag,fnd_api.g_miss_char);
6052: /* End code change for 3254347 Install_Date and Start_Date changes */
6053: END IF;
6054:
6055: l_upd_instance_rec.instance_type_code := nvl(l_tld_rec.instance_type_code,fnd_api.g_miss_char);
6056: l_upd_instance_rec.instance_condition_id := nvl(l_tld_rec.item_condition_id,fnd_api.g_miss_num);
6057: l_upd_instance_rec.quantity := l_tld_rec.quantity;
6058: l_upd_instance_rec.unit_of_measure := l_tld_rec.unit_of_measure;
6059: l_upd_instance_rec.sellable_flag := nvl(l_tld_rec.sellable_flag,fnd_api.g_miss_char);
6060: l_upd_instance_rec.last_oe_order_line_id := p_order_line_rec.order_line_id ;
6055: l_upd_instance_rec.instance_type_code := nvl(l_tld_rec.instance_type_code,fnd_api.g_miss_char);
6056: l_upd_instance_rec.instance_condition_id := nvl(l_tld_rec.item_condition_id,fnd_api.g_miss_num);
6057: l_upd_instance_rec.quantity := l_tld_rec.quantity;
6058: l_upd_instance_rec.unit_of_measure := l_tld_rec.unit_of_measure;
6059: l_upd_instance_rec.sellable_flag := nvl(l_tld_rec.sellable_flag,fnd_api.g_miss_char);
6060: l_upd_instance_rec.last_oe_order_line_id := p_order_line_rec.order_line_id ;
6061: l_upd_instance_rec.last_txn_line_detail_id := l_tld_rec.txn_line_detail_id ;
6062: l_upd_instance_rec.return_by_date := nvl(l_tld_rec.return_by_date,fnd_api.g_miss_date);
6063: --l_upd_instance_rec.active_end_date := nvl(l_tld_rec.active_end_date,fnd_api.g_miss_date);--Bug3964060
6058: l_upd_instance_rec.unit_of_measure := l_tld_rec.unit_of_measure;
6059: l_upd_instance_rec.sellable_flag := nvl(l_tld_rec.sellable_flag,fnd_api.g_miss_char);
6060: l_upd_instance_rec.last_oe_order_line_id := p_order_line_rec.order_line_id ;
6061: l_upd_instance_rec.last_txn_line_detail_id := l_tld_rec.txn_line_detail_id ;
6062: l_upd_instance_rec.return_by_date := nvl(l_tld_rec.return_by_date,fnd_api.g_miss_date);
6063: --l_upd_instance_rec.active_end_date := nvl(l_tld_rec.active_end_date,fnd_api.g_miss_date);--Bug3964060
6064: l_upd_instance_rec.active_end_date := l_tld_rec.active_end_date;
6065: --Added IF condition for bug 5112946--
6066: IF (p_order_line_rec.serial_code in (2,5)) OR
6059: l_upd_instance_rec.sellable_flag := nvl(l_tld_rec.sellable_flag,fnd_api.g_miss_char);
6060: l_upd_instance_rec.last_oe_order_line_id := p_order_line_rec.order_line_id ;
6061: l_upd_instance_rec.last_txn_line_detail_id := l_tld_rec.txn_line_detail_id ;
6062: l_upd_instance_rec.return_by_date := nvl(l_tld_rec.return_by_date,fnd_api.g_miss_date);
6063: --l_upd_instance_rec.active_end_date := nvl(l_tld_rec.active_end_date,fnd_api.g_miss_date);--Bug3964060
6064: l_upd_instance_rec.active_end_date := l_tld_rec.active_end_date;
6065: --Added IF condition for bug 5112946--
6066: IF (p_order_line_rec.serial_code in (2,5)) OR
6067: (p_order_line_rec.serial_code =6 AND is_instance_rma) THEN
6064: l_upd_instance_rec.active_end_date := l_tld_rec.active_end_date;
6065: --Added IF condition for bug 5112946--
6066: IF (p_order_line_rec.serial_code in (2,5)) OR
6067: (p_order_line_rec.serial_code =6 AND is_instance_rma) THEN
6068: l_upd_instance_rec.version_label := nvl(l_tld_rec.version_label,fnd_api.g_miss_char);
6069: END IF;
6070: l_upd_instance_rec.lot_number := nvl(l_tld_rec.lot_number,fnd_api.g_miss_char);
6071: l_upd_instance_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
6072: l_upd_instance_rec.last_oe_agreement_id := p_order_line_rec.agreement_id;
6066: IF (p_order_line_rec.serial_code in (2,5)) OR
6067: (p_order_line_rec.serial_code =6 AND is_instance_rma) THEN
6068: l_upd_instance_rec.version_label := nvl(l_tld_rec.version_label,fnd_api.g_miss_char);
6069: END IF;
6070: l_upd_instance_rec.lot_number := nvl(l_tld_rec.lot_number,fnd_api.g_miss_char);
6071: l_upd_instance_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
6072: l_upd_instance_rec.last_oe_agreement_id := p_order_line_rec.agreement_id;
6073: l_upd_instance_rec.actual_return_date := null;
6074:
6094: l_upd_instance_rec.po_order_line_id := NULL;
6095:
6096: l_expire_flag := FALSE;
6097:
6098: IF nvl(l_upd_instance_rec.active_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date
6099: AND (l_upd_instance_rec.active_end_date) <= SYSDATE
6100: THEN
6101:
6102: l_upd_ext_attrib_val_tbl.DELETE;
6105: l_upd_pricing_attribs_tbl.DELETE;
6106: l_upd_org_units_tbl.DELETE;
6107: l_upd_inst_asset_tbl.DELETE;
6108:
6109: l_upd_instance_rec.active_end_date := fnd_api.g_miss_date;
6110:
6111: l_expire_flag := TRUE;
6112:
6113: END IF;
6173: fnd_message.set_token('OLD_PARTY_ID',l_owner_party_id);
6174: fnd_message.set_token('NEW_PARTY_ID',l_upd_party_tbl(1).party_id);
6175: fnd_message.set_token('INSTANCE_ID',l_upd_party_tbl(1).instance_id);
6176: fnd_msg_pub.add;
6177: raise fnd_api.g_exc_error;
6178: Else
6179:
6180: /* Changing the Owner to Internal Before shipping to New Customer */
6181: l_chg_party_tbl(1).instance_id := l_upd_party_tbl(1).instance_id;
6194:
6195: -- owner change to internal
6196: csi_item_instance_pub.update_item_instance(
6197: p_api_version => 1.0,
6198: p_commit => fnd_api.g_false,
6199: p_init_msg_list => fnd_api.g_true,
6200: p_validation_level => fnd_api.g_valid_level_full,
6201: p_instance_rec => l_chg_instance_rec,
6202: p_ext_attrib_values_tbl => l_chg_ext_attrib_val_tbl,
6195: -- owner change to internal
6196: csi_item_instance_pub.update_item_instance(
6197: p_api_version => 1.0,
6198: p_commit => fnd_api.g_false,
6199: p_init_msg_list => fnd_api.g_true,
6200: p_validation_level => fnd_api.g_valid_level_full,
6201: p_instance_rec => l_chg_instance_rec,
6202: p_ext_attrib_values_tbl => l_chg_ext_attrib_val_tbl,
6203: p_party_tbl => l_chg_party_tbl,
6196: csi_item_instance_pub.update_item_instance(
6197: p_api_version => 1.0,
6198: p_commit => fnd_api.g_false,
6199: p_init_msg_list => fnd_api.g_true,
6200: p_validation_level => fnd_api.g_valid_level_full,
6201: p_instance_rec => l_chg_instance_rec,
6202: p_ext_attrib_values_tbl => l_chg_ext_attrib_val_tbl,
6203: p_party_tbl => l_chg_party_tbl,
6204: p_account_tbl => l_chg_party_acct_tbl,
6211: x_msg_count => l_msg_count,
6212: x_msg_data => l_msg_data );
6213:
6214: -- For Bug 4057183
6215: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
6216: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
6217: RAISE fnd_api.g_exc_error;
6218: END IF;
6219:
6212: x_msg_data => l_msg_data );
6213:
6214: -- For Bug 4057183
6215: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
6216: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
6217: RAISE fnd_api.g_exc_error;
6218: END IF;
6219:
6220: l_upd_party_tbl(1).instance_party_id := l_chg_party_tbl(1).instance_party_id;
6213:
6214: -- For Bug 4057183
6215: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
6216: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
6217: RAISE fnd_api.g_exc_error;
6218: END IF;
6219:
6220: l_upd_party_tbl(1).instance_party_id := l_chg_party_tbl(1).instance_party_id;
6221: /* Fixed for Bug 2728984 */
6274: x_i_pty_tbl => l_upd_party_tbl,
6275: x_i_pty_acct_tbl => l_upd_party_acct_tbl,
6276: x_return_status => l_return_status);
6277:
6278: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6279: RAISE fnd_api.g_exc_error;
6280: END IF;
6281:
6282: -- srramakr TSO with Equipment
6275: x_i_pty_acct_tbl => l_upd_party_acct_tbl,
6276: x_return_status => l_return_status);
6277:
6278: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6279: RAISE fnd_api.g_exc_error;
6280: END IF;
6281:
6282: -- srramakr TSO with Equipment
6283: -- Need to pass the config keys to the Update_Item_Instance API.
6300: px_item_control_rec => l_item_control_rec,
6301: x_unit_price_in_primary_uom => l_upd_instance_rec.sales_unit_price,
6302: x_return_status => l_return_status);
6303:
6304: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6305: RAISE fnd_api.g_exc_error;
6306: END IF;
6307:
6308: ELSE
6301: x_unit_price_in_primary_uom => l_upd_instance_rec.sales_unit_price,
6302: x_return_status => l_return_status);
6303:
6304: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6305: RAISE fnd_api.g_exc_error;
6306: END IF;
6307:
6308: ELSE
6309: l_upd_instance_rec.sales_unit_price := l_order_line_rec.unit_price;
6328:
6329: /* this is the call that makes the instance as customer product */
6330: csi_item_instance_pub.update_item_instance(
6331: p_api_version => 1.0,
6332: p_commit => fnd_api.g_false,
6333: p_init_msg_list => fnd_api.g_true,
6334: p_validation_level => fnd_api.g_valid_level_full,
6335: p_instance_rec => l_upd_instance_rec,
6336: p_ext_attrib_values_tbl => l_upd_ext_attrib_val_tbl,
6329: /* this is the call that makes the instance as customer product */
6330: csi_item_instance_pub.update_item_instance(
6331: p_api_version => 1.0,
6332: p_commit => fnd_api.g_false,
6333: p_init_msg_list => fnd_api.g_true,
6334: p_validation_level => fnd_api.g_valid_level_full,
6335: p_instance_rec => l_upd_instance_rec,
6336: p_ext_attrib_values_tbl => l_upd_ext_attrib_val_tbl,
6337: p_party_tbl => l_upd_party_tbl,
6330: csi_item_instance_pub.update_item_instance(
6331: p_api_version => 1.0,
6332: p_commit => fnd_api.g_false,
6333: p_init_msg_list => fnd_api.g_true,
6334: p_validation_level => fnd_api.g_valid_level_full,
6335: p_instance_rec => l_upd_instance_rec,
6336: p_ext_attrib_values_tbl => l_upd_ext_attrib_val_tbl,
6337: p_party_tbl => l_upd_party_tbl,
6338: p_account_tbl => l_upd_party_acct_tbl,
6345: x_msg_count => x_msg_count,
6346: x_msg_data => x_msg_data);
6347:
6348: -- For Bug 4057183
6349: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
6350: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
6351: g_api_name := 'csi_item_instance_pub.update_item_instance';
6352: raise fnd_api.g_exc_error;
6353: END IF;
6346: x_msg_data => x_msg_data);
6347:
6348: -- For Bug 4057183
6349: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
6350: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
6351: g_api_name := 'csi_item_instance_pub.update_item_instance';
6352: raise fnd_api.g_exc_error;
6353: END IF;
6354:
6348: -- For Bug 4057183
6349: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
6350: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
6351: g_api_name := 'csi_item_instance_pub.update_item_instance';
6352: raise fnd_api.g_exc_error;
6353: END IF;
6354:
6355: IF l_expire_flag THEN
6356:
6356:
6357: l_exp_instance_rec.instance_id := l_upd_instance_rec.instance_id;
6358: l_exp_instance_rec.object_version_number := l_inst_obj_ver_num + 1;
6359:
6360: l_trx_rec.transaction_id := fnd_api.g_miss_num;
6361:
6362: csi_t_gen_utility_pvt.dump_api_info(
6363: p_api_name => 'expire_item_instance',
6364: p_pkg_name => 'csi_item_instance_pub');
6364: p_pkg_name => 'csi_item_instance_pub');
6365:
6366: csi_item_instance_pub.expire_item_instance(
6367: p_api_version => 1.0,
6368: p_commit => fnd_api.g_false,
6369: p_init_msg_list => fnd_api.g_true,
6370: p_validation_level => fnd_api.g_valid_level_full,
6371: p_instance_rec => l_exp_instance_rec,
6372: p_expire_children => fnd_api.g_true,
6365:
6366: csi_item_instance_pub.expire_item_instance(
6367: p_api_version => 1.0,
6368: p_commit => fnd_api.g_false,
6369: p_init_msg_list => fnd_api.g_true,
6370: p_validation_level => fnd_api.g_valid_level_full,
6371: p_instance_rec => l_exp_instance_rec,
6372: p_expire_children => fnd_api.g_true,
6373: p_txn_rec => l_trx_rec,
6366: csi_item_instance_pub.expire_item_instance(
6367: p_api_version => 1.0,
6368: p_commit => fnd_api.g_false,
6369: p_init_msg_list => fnd_api.g_true,
6370: p_validation_level => fnd_api.g_valid_level_full,
6371: p_instance_rec => l_exp_instance_rec,
6372: p_expire_children => fnd_api.g_true,
6373: p_txn_rec => l_trx_rec,
6374: x_instance_id_lst => l_exp_instance_id_lst,
6368: p_commit => fnd_api.g_false,
6369: p_init_msg_list => fnd_api.g_true,
6370: p_validation_level => fnd_api.g_valid_level_full,
6371: p_instance_rec => l_exp_instance_rec,
6372: p_expire_children => fnd_api.g_true,
6373: p_txn_rec => l_trx_rec,
6374: x_instance_id_lst => l_exp_instance_id_lst,
6375: x_return_status => l_return_status,
6376: x_msg_count => x_msg_count,
6375: x_return_status => l_return_status,
6376: x_msg_count => x_msg_count,
6377: x_msg_data => x_msg_data);
6378:
6379: IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
6380: g_api_name := 'csi_item_instance_pub.expire_item_instance';
6381: raise fnd_api.g_exc_error;
6382: END IF;
6383:
6377: x_msg_data => x_msg_data);
6378:
6379: IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
6380: g_api_name := 'csi_item_instance_pub.expire_item_instance';
6381: raise fnd_api.g_exc_error;
6382: END IF;
6383:
6384: END IF;
6385:
6429: AND pricing_context = p_pricing_attribs_tbl(i).pricing_context;
6430:
6431: EXCEPTION
6432: WHEN NO_DATA_FOUND THEN
6433: p_pricing_attribs_tbl(i).pricing_attribute_id := fnd_api.g_miss_num; -- Modified for bug 13072884
6434: p_pricing_attribs_tbl(i).object_version_number := fnd_api.g_miss_num; -- Modified for bug 13072884
6435: END;
6436: debug('p_pricing_attribs_tbl(i).pricing_attribute_id : '||p_pricing_attribs_tbl(i).pricing_attribute_id); --Added for bug 13072884
6437: IF ( p_pricing_attribs_tbl(i).pricing_attribute_id is not null
6430:
6431: EXCEPTION
6432: WHEN NO_DATA_FOUND THEN
6433: p_pricing_attribs_tbl(i).pricing_attribute_id := fnd_api.g_miss_num; -- Modified for bug 13072884
6434: p_pricing_attribs_tbl(i).object_version_number := fnd_api.g_miss_num; -- Modified for bug 13072884
6435: END;
6436: debug('p_pricing_attribs_tbl(i).pricing_attribute_id : '||p_pricing_attribs_tbl(i).pricing_attribute_id); --Added for bug 13072884
6437: IF ( p_pricing_attribs_tbl(i).pricing_attribute_id is not null
6438: AND
6435: END;
6436: debug('p_pricing_attribs_tbl(i).pricing_attribute_id : '||p_pricing_attribs_tbl(i).pricing_attribute_id); --Added for bug 13072884
6437: IF ( p_pricing_attribs_tbl(i).pricing_attribute_id is not null
6438: AND
6439: p_pricing_attribs_tbl(i).pricing_attribute_id <> fnd_api.g_miss_num
6440: )
6441: THEN
6442: l_old_index := l_old_index + 1;
6443: l_old_pricing_attribs_tbl(l_old_index) := p_pricing_attribs_tbl(i);
6457: p_pkg_name => 'csi_pricing_attribs_pub');
6458:
6459: csi_pricing_attribs_pub.update_pricing_attribs(
6460: p_api_version => 1.0,
6461: p_commit => fnd_api.g_false,
6462: p_init_msg_list => fnd_api.g_true,
6463: p_validation_level => fnd_api.g_valid_level_full,
6464: p_pricing_attribs_tbl => l_old_pricing_attribs_tbl,
6465: p_txn_rec => l_trx_rec,
6458:
6459: csi_pricing_attribs_pub.update_pricing_attribs(
6460: p_api_version => 1.0,
6461: p_commit => fnd_api.g_false,
6462: p_init_msg_list => fnd_api.g_true,
6463: p_validation_level => fnd_api.g_valid_level_full,
6464: p_pricing_attribs_tbl => l_old_pricing_attribs_tbl,
6465: p_txn_rec => l_trx_rec,
6466: x_return_status => x_return_status,
6459: csi_pricing_attribs_pub.update_pricing_attribs(
6460: p_api_version => 1.0,
6461: p_commit => fnd_api.g_false,
6462: p_init_msg_list => fnd_api.g_true,
6463: p_validation_level => fnd_api.g_valid_level_full,
6464: p_pricing_attribs_tbl => l_old_pricing_attribs_tbl,
6465: p_txn_rec => l_trx_rec,
6466: x_return_status => x_return_status,
6467: x_msg_count => x_msg_count,
6466: x_return_status => x_return_status,
6467: x_msg_count => x_msg_count,
6468: x_msg_data => x_msg_data);
6469:
6470: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6471: g_api_name := 'csi_pricing_attribs_pub.update_pricing_attribs';
6472: raise fnd_api.g_exc_error;
6473: END IF;
6474: debug('Pricing Attributes updated successfully.');
6468: x_msg_data => x_msg_data);
6469:
6470: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6471: g_api_name := 'csi_pricing_attribs_pub.update_pricing_attribs';
6472: raise fnd_api.g_exc_error;
6473: END IF;
6474: debug('Pricing Attributes updated successfully.');
6475: END IF;
6476:
6485: p_pkg_name => 'csi_pricing_attribs_pub');
6486:
6487: csi_pricing_attribs_pub.create_pricing_attribs(
6488: p_api_version => 1.0,
6489: p_commit => fnd_api.g_false,
6490: p_init_msg_list => fnd_api.g_true,
6491: p_validation_level => fnd_api.g_valid_level_full,
6492: p_pricing_attribs_tbl => l_new_pricing_attribs_tbl, --p_pricing_attribs_tbl,
6493: p_txn_rec => l_trx_rec,
6486:
6487: csi_pricing_attribs_pub.create_pricing_attribs(
6488: p_api_version => 1.0,
6489: p_commit => fnd_api.g_false,
6490: p_init_msg_list => fnd_api.g_true,
6491: p_validation_level => fnd_api.g_valid_level_full,
6492: p_pricing_attribs_tbl => l_new_pricing_attribs_tbl, --p_pricing_attribs_tbl,
6493: p_txn_rec => l_trx_rec,
6494: x_return_status => x_return_status,
6487: csi_pricing_attribs_pub.create_pricing_attribs(
6488: p_api_version => 1.0,
6489: p_commit => fnd_api.g_false,
6490: p_init_msg_list => fnd_api.g_true,
6491: p_validation_level => fnd_api.g_valid_level_full,
6492: p_pricing_attribs_tbl => l_new_pricing_attribs_tbl, --p_pricing_attribs_tbl,
6493: p_txn_rec => l_trx_rec,
6494: x_return_status => x_return_status,
6495: x_msg_count => x_msg_count,
6494: x_return_status => x_return_status,
6495: x_msg_count => x_msg_count,
6496: x_msg_data => x_msg_data);
6497:
6498: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6499: g_api_name := 'csi_pricing_attribs_pub.create_pricing_attribs';
6500: raise fnd_api.g_exc_error;
6501: END IF;
6502:
6496: x_msg_data => x_msg_data);
6497:
6498: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6499: g_api_name := 'csi_pricing_attribs_pub.create_pricing_attribs';
6500: raise fnd_api.g_exc_error;
6501: END IF;
6502:
6503: debug('Pricing Attributes created successfully.');
6504:
6513: p_order_line_rec => l_order_line_rec,
6514: p_trx_rec => l_trx_rec,
6515: x_return_status => x_return_status);
6516:
6517: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6518: raise fnd_api.g_exc_error;
6519: END IF;
6520: */
6521:
6514: p_trx_rec => l_trx_rec,
6515: x_return_status => x_return_status);
6516:
6517: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6518: raise fnd_api.g_exc_error;
6519: END IF;
6520: */
6521:
6522: debug('Party and Account created successfully.');
6528: p_pkg_name => 'csi_organization_unit_pub');
6529:
6530: csi_organization_unit_pub.create_organization_unit(
6531: p_api_version => 1.0,
6532: p_commit => fnd_api.g_false,
6533: p_init_msg_list => fnd_api.g_true,
6534: p_validation_level => fnd_api.g_valid_level_full,
6535: p_org_unit_tbl => l_cre_org_units_tbl,
6536: p_txn_rec => l_trx_rec,
6529:
6530: csi_organization_unit_pub.create_organization_unit(
6531: p_api_version => 1.0,
6532: p_commit => fnd_api.g_false,
6533: p_init_msg_list => fnd_api.g_true,
6534: p_validation_level => fnd_api.g_valid_level_full,
6535: p_org_unit_tbl => l_cre_org_units_tbl,
6536: p_txn_rec => l_trx_rec,
6537: x_return_status => x_return_status,
6530: csi_organization_unit_pub.create_organization_unit(
6531: p_api_version => 1.0,
6532: p_commit => fnd_api.g_false,
6533: p_init_msg_list => fnd_api.g_true,
6534: p_validation_level => fnd_api.g_valid_level_full,
6535: p_org_unit_tbl => l_cre_org_units_tbl,
6536: p_txn_rec => l_trx_rec,
6537: x_return_status => x_return_status,
6538: x_msg_count => x_msg_count,
6537: x_return_status => x_return_status,
6538: x_msg_count => x_msg_count,
6539: x_msg_data => x_msg_data);
6540:
6541: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6542: g_api_name := 'csi_organization_unit_pub.create_organization_unit';
6543: raise fnd_api.g_exc_error;
6544: END IF;
6545:
6539: x_msg_data => x_msg_data);
6540:
6541: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6542: g_api_name := 'csi_organization_unit_pub.create_organization_unit';
6543: raise fnd_api.g_exc_error;
6544: END IF;
6545:
6546: debug('Org Assignment created successfully.');
6547: END IF;
6572: Null;
6573: END;
6574: IF ( l_cre_ext_attrib_val_tbl(i).attribute_value_id is not null
6575: AND
6576: l_cre_ext_attrib_val_tbl(i).attribute_value_id <> fnd_api.g_miss_num
6577: )
6578: THEN
6579: l_old_extended_attribs_tbl(l_ext_old_index) := l_cre_ext_attrib_val_tbl(i);
6580: l_ext_old_index := l_ext_old_index + 1;
6593: p_pkg_name => 'csi_item_instance_pub');
6594:
6595: csi_item_instance_pub.update_extended_attrib_values(
6596: p_api_version => 1.0,
6597: p_commit => fnd_api.g_false,
6598: p_init_msg_list => fnd_api.g_true,
6599: p_validation_level => fnd_api.g_valid_level_full,
6600: p_ext_attrib_tbl => l_old_extended_attribs_tbl,
6601: p_txn_rec => l_trx_rec,
6594:
6595: csi_item_instance_pub.update_extended_attrib_values(
6596: p_api_version => 1.0,
6597: p_commit => fnd_api.g_false,
6598: p_init_msg_list => fnd_api.g_true,
6599: p_validation_level => fnd_api.g_valid_level_full,
6600: p_ext_attrib_tbl => l_old_extended_attribs_tbl,
6601: p_txn_rec => l_trx_rec,
6602: x_return_status => x_return_status,
6595: csi_item_instance_pub.update_extended_attrib_values(
6596: p_api_version => 1.0,
6597: p_commit => fnd_api.g_false,
6598: p_init_msg_list => fnd_api.g_true,
6599: p_validation_level => fnd_api.g_valid_level_full,
6600: p_ext_attrib_tbl => l_old_extended_attribs_tbl,
6601: p_txn_rec => l_trx_rec,
6602: x_return_status => x_return_status,
6603: x_msg_count => x_msg_count,
6602: x_return_status => x_return_status,
6603: x_msg_count => x_msg_count,
6604: x_msg_data => x_msg_data);
6605:
6606: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6607: g_api_name := 'csi_item_instance_pub.update_extended_attrib_values';
6608: raise fnd_api.g_exc_error;
6609: END IF;
6610:
6604: x_msg_data => x_msg_data);
6605:
6606: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6607: g_api_name := 'csi_item_instance_pub.update_extended_attrib_values';
6608: raise fnd_api.g_exc_error;
6609: END IF;
6610:
6611: debug('Extended Attributed updated successfully.');
6612: END IF;
6622: p_pkg_name => 'csi_item_instance_pub');
6623:
6624: csi_item_instance_pub.create_extended_attrib_values(
6625: p_api_version => 1.0,
6626: p_commit => fnd_api.g_false,
6627: p_init_msg_list => fnd_api.g_true,
6628: p_validation_level => fnd_api.g_valid_level_full,
6629: p_ext_attrib_tbl => l_new_extended_attribs_tbl, --l_cre_ext_attrib_val_tbl
6630: p_txn_rec => l_trx_rec,
6623:
6624: csi_item_instance_pub.create_extended_attrib_values(
6625: p_api_version => 1.0,
6626: p_commit => fnd_api.g_false,
6627: p_init_msg_list => fnd_api.g_true,
6628: p_validation_level => fnd_api.g_valid_level_full,
6629: p_ext_attrib_tbl => l_new_extended_attribs_tbl, --l_cre_ext_attrib_val_tbl
6630: p_txn_rec => l_trx_rec,
6631: x_return_status => x_return_status,
6624: csi_item_instance_pub.create_extended_attrib_values(
6625: p_api_version => 1.0,
6626: p_commit => fnd_api.g_false,
6627: p_init_msg_list => fnd_api.g_true,
6628: p_validation_level => fnd_api.g_valid_level_full,
6629: p_ext_attrib_tbl => l_new_extended_attribs_tbl, --l_cre_ext_attrib_val_tbl
6630: p_txn_rec => l_trx_rec,
6631: x_return_status => x_return_status,
6632: x_msg_count => x_msg_count,
6631: x_return_status => x_return_status,
6632: x_msg_count => x_msg_count,
6633: x_msg_data => x_msg_data);
6634:
6635: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6636: g_api_name := 'csi_item_instance_pub.create_extended_attrib_values';
6637: raise fnd_api.g_exc_error;
6638: END IF;
6639:
6633: x_msg_data => x_msg_data);
6634:
6635: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6636: g_api_name := 'csi_item_instance_pub.create_extended_attrib_values';
6637: raise fnd_api.g_exc_error;
6638: END IF;
6639:
6640: debug('Extended Attributed created successfully.');
6641:
6671: p_pkg_name => 'csi_ii_relationships_pub');
6672:
6673: csi_ii_relationships_pub.expire_relationship(
6674: p_api_version => 1.0,
6675: p_commit => fnd_api.g_false,
6676: p_init_msg_list => fnd_api.g_true,
6677: p_validation_level => fnd_api.g_valid_level_full,
6678: p_relationship_rec => l_exp_ii_relationship_rec,
6679: p_txn_rec => l_trx_rec,
6672:
6673: csi_ii_relationships_pub.expire_relationship(
6674: p_api_version => 1.0,
6675: p_commit => fnd_api.g_false,
6676: p_init_msg_list => fnd_api.g_true,
6677: p_validation_level => fnd_api.g_valid_level_full,
6678: p_relationship_rec => l_exp_ii_relationship_rec,
6679: p_txn_rec => l_trx_rec,
6680: x_instance_id_lst => l_exp_instance_id_tbl,
6673: csi_ii_relationships_pub.expire_relationship(
6674: p_api_version => 1.0,
6675: p_commit => fnd_api.g_false,
6676: p_init_msg_list => fnd_api.g_true,
6677: p_validation_level => fnd_api.g_valid_level_full,
6678: p_relationship_rec => l_exp_ii_relationship_rec,
6679: p_txn_rec => l_trx_rec,
6680: x_instance_id_lst => l_exp_instance_id_tbl,
6681: x_return_status => x_return_status,
6681: x_return_status => x_return_status,
6682: x_msg_count => x_msg_count,
6683: x_msg_data => x_msg_data);
6684:
6685: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6686: g_api_name := 'csi_ii_relationship_pub.expire_relationship';
6687: raise fnd_api.g_exc_error;
6688: END IF;
6689:
6683: x_msg_data => x_msg_data);
6684:
6685: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6686: g_api_name := 'csi_ii_relationship_pub.expire_relationship';
6687: raise fnd_api.g_exc_error;
6688: END IF;
6689:
6690: EXCEPTION
6691: WHEN OTHERS THEN
6702: THEN
6703:
6704: l_auto_split_instances.delete;
6705: --Added for bug 5112946--
6706: l_upd_instance_rec.version_label := nvl(l_tld_rec.version_label,fnd_api.g_miss_char);
6707:
6708: auto_split_instances(
6709: p_instance_rec => l_upd_instance_rec,
6710: px_txn_rec => l_trx_rec,
6710: px_txn_rec => l_trx_rec,
6711: x_instance_tbl => l_auto_split_instances,
6712: x_return_status => l_return_status);
6713:
6714: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6715: RAISE fnd_api.g_exc_error;
6716: END IF;
6717:
6718: IF l_auto_split_instances.count > 0 THEN
6711: x_instance_tbl => l_auto_split_instances,
6712: x_return_status => l_return_status);
6713:
6714: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6715: RAISE fnd_api.g_exc_error;
6716: END IF;
6717:
6718: IF l_auto_split_instances.count > 0 THEN
6719: l_cp_ind := 0;
6739: p_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl ,
6740: p_new_instance_tbl => l_auto_split_instances,
6741: x_return_status => x_return_status );
6742:
6743: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6744: raise fnd_api.g_exc_error;
6745: END IF;
6746:
6747: END IF; -- p_txn_ii_rltns_tbl.count > 0
6740: p_new_instance_tbl => l_auto_split_instances,
6741: x_return_status => x_return_status );
6742:
6743: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6744: raise fnd_api.g_exc_error;
6745: END IF;
6746:
6747: END IF; -- p_txn_ii_rltns_tbl.count > 0
6748: END IF; -- l_split_flag = 'Y'
6756: p_organization_id => l_tld_rec.inv_organization_id,
6757: p_master_organization_id => x_master_org_id,
6758: x_return_status => x_return_status);
6759:
6760: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6761: raise fnd_api.g_exc_error;
6762: END IF;
6763:
6764: debug('Instance reference does not exist, So calling create API');
6757: p_master_organization_id => x_master_org_id,
6758: x_return_status => x_return_status);
6759:
6760: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
6761: raise fnd_api.g_exc_error;
6762: END IF;
6763:
6764: debug('Instance reference does not exist, So calling create API');
6765:
6762: END IF;
6763:
6764: debug('Instance reference does not exist, So calling create API');
6765:
6766: IF NVL(x_trx_sub_type_rec.src_status_id ,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
6767:
6768: l_inst_status_id := l_dflt_inst_status_id;
6769:
6770: l_cre_instance_rec.instance_status_id := l_inst_status_id;
6775: l_trx_rec.txn_sub_type_id := l_tld_rec.sub_type_id;
6776:
6777: /* If the instance reference does not exist then create an instance */
6778:
6779: l_cre_instance_rec.instance_id := fnd_api.g_miss_num;
6780: l_cre_instance_rec.instance_number := fnd_api.g_miss_char;
6781: l_cre_instance_rec.external_reference := l_tld_rec.external_reference ;
6782: l_cre_instance_rec.inventory_item_id := l_tld_rec.inventory_item_id;
6783: l_cre_instance_rec.inventory_revision := l_tld_rec.inventory_revision;
6776:
6777: /* If the instance reference does not exist then create an instance */
6778:
6779: l_cre_instance_rec.instance_id := fnd_api.g_miss_num;
6780: l_cre_instance_rec.instance_number := fnd_api.g_miss_char;
6781: l_cre_instance_rec.external_reference := l_tld_rec.external_reference ;
6782: l_cre_instance_rec.inventory_item_id := l_tld_rec.inventory_item_id;
6783: l_cre_instance_rec.inventory_revision := l_tld_rec.inventory_revision;
6784: l_cre_instance_rec.inv_master_organization_id := x_master_org_id;
6802: l_cre_instance_rec.install_location_type_code := l_tld_rec.install_location_type_code;
6803: l_cre_instance_rec.source_code := p_order_line_rec.source_code; -- Added for Siebel Genesis Project
6804: IF p_order_line_rec.ib_install_loc is not null
6805: AND
6806: p_order_line_rec.ib_install_loc <> fnd_api.g_miss_char
6807: THEN
6808: BEGIN
6809: SELECT HCAS.party_site_id
6810: INTO l_cre_party_site_id
6835:
6836: /* Begin fix for Bug 3254347 Install_Date and Start_Date changes */
6837: IF l_tld_rec.active_start_date IS NOT NULL
6838: AND
6839: l_tld_rec.active_start_date <> fnd_api.g_miss_date
6840: THEN
6841: IF p_source = 'FULFILLMENT'
6842: THEN
6843: --l_cre_instance_rec.active_start_date := p_order_line_rec.fulfillment_date; Bug 3807619
6851:
6852: /* Fix for Bug 3578671 */
6853: debug(' Default Install Date Profile Value '||l_default_install_date);
6854:
6855: IF nvl(l_tld_rec.installation_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
6856: IF l_default_install_date = 'Y' THEN
6857: IF p_source = 'SHIPMENT' THEN
6858: -- For Bug 3578671
6859: IF nvl(p_order_line_rec.actual_shipment_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
6855: IF nvl(l_tld_rec.installation_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
6856: IF l_default_install_date = 'Y' THEN
6857: IF p_source = 'SHIPMENT' THEN
6858: -- For Bug 3578671
6859: IF nvl(p_order_line_rec.actual_shipment_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
6860: l_cre_instance_rec.install_date := l_trx_rec.source_transaction_date;
6861: ELSE
6862: l_cre_instance_rec.install_date := p_order_line_rec.actual_shipment_date;
6863: END IF;
6862: l_cre_instance_rec.install_date := p_order_line_rec.actual_shipment_date;
6863: END IF;
6864: ELSIF p_source = 'FULFILLMENT' THEN
6865: -- For Bug 3578671
6866: IF nvl(p_order_line_rec.fulfillment_date,fnd_api.g_miss_date) = fnd_api.g_miss_date THEN
6867: l_cre_instance_rec.install_date := sysdate;
6868: ELSE
6869: l_cre_instance_rec.install_date := p_order_line_rec.fulfillment_date;
6870: END IF;
6879: l_cre_instance_rec.install_date := l_tld_rec.installation_date; --Added for bug 7668298
6880: /* --Commented for bug 7668298
6881: IF p_order_line_rec.fulfillment_date is NOT NULL
6882: AND
6883: p_order_line_rec.fulfillment_date <> fnd_api.g_miss_date
6884: THEN
6885: l_cre_instance_rec.install_date := GREATEST(l_tld_rec.installation_date,p_order_line_rec.fulfillment_date);
6886: ELSE
6887: l_cre_instance_rec.install_date := GREATEST(l_tld_rec.installation_date,sysdate);
6892: END IF;
6893:
6894: l_cre_instance_rec.manually_created_flag := 'N';
6895: l_cre_instance_rec.return_by_date := l_tld_rec.return_by_date;
6896: l_cre_instance_rec.creation_complete_flag := fnd_api.g_miss_char;
6897: l_cre_instance_rec.completeness_flag := fnd_api.g_miss_char;
6898: l_cre_instance_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
6899: l_cre_instance_rec.last_oe_agreement_id := p_order_line_rec.agreement_id;
6900: -- Included for Bug 2962072.
6893:
6894: l_cre_instance_rec.manually_created_flag := 'N';
6895: l_cre_instance_rec.return_by_date := l_tld_rec.return_by_date;
6896: l_cre_instance_rec.creation_complete_flag := fnd_api.g_miss_char;
6897: l_cre_instance_rec.completeness_flag := fnd_api.g_miss_char;
6898: l_cre_instance_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
6899: l_cre_instance_rec.last_oe_agreement_id := p_order_line_rec.agreement_id;
6900: -- Included for Bug 2962072.
6901: l_cre_instance_rec.version_label := l_tld_rec.version_label;
6909: IF (l_cre_party_tbl.count = 0 AND l_upd_party_tbl.count = 0 AND NVL(x_trx_sub_type_rec.src_change_owner,'N') = 'N') THEN
6910: fnd_message.set_name('CSI','CSI_INT_PTY_OWNER_REC_MISSING');
6911: fnd_message.set_token('TXN_LINE_DETAIL_ID',l_tld_rec.txn_line_detail_id);
6912: fnd_msg_pub.add;
6913: raise fnd_api.g_exc_error;
6914: END IF;
6915:
6916: -- End Bug 13572608
6917:
6939: x_i_pty_tbl => l_cre_party_tbl,
6940: x_i_pty_acct_tbl => l_cre_party_acct_tbl,
6941: x_return_status => l_return_status);
6942:
6943: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6944: RAISE fnd_api.g_exc_error;
6945: END IF;
6946: --
6947: -- srramakr TSO with Equipment
6940: x_i_pty_acct_tbl => l_cre_party_acct_tbl,
6941: x_return_status => l_return_status);
6942:
6943: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6944: RAISE fnd_api.g_exc_error;
6945: END IF;
6946: --
6947: -- srramakr TSO with Equipment
6948: -- Serialized instance gets created as a part of shipment for Items with srl ctl 6 (AT SO Issue)
6969: px_item_control_rec => l_item_control_rec,
6970: x_unit_price_in_primary_uom => l_cre_instance_rec.sales_unit_price,
6971: x_return_status => l_return_status);
6972:
6973: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6974: RAISE fnd_api.g_exc_error;
6975: END IF;
6976:
6977: ELSE
6970: x_unit_price_in_primary_uom => l_cre_instance_rec.sales_unit_price,
6971: x_return_status => l_return_status);
6972:
6973: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6974: RAISE fnd_api.g_exc_error;
6975: END IF;
6976:
6977: ELSE
6978: l_cre_instance_rec.sales_unit_price := l_order_line_rec.unit_price;
6995:
6996: /* for order fulfillment instance ref is not there so create an instance */
6997: csi_item_instance_pub.create_item_instance(
6998: p_api_version => 1.0,
6999: p_commit => fnd_api.g_false,
7000: p_init_msg_list => fnd_api.g_true,
7001: p_validation_level => fnd_api.g_valid_level_full,
7002: p_instance_rec => l_cre_instance_rec,
7003: p_ext_attrib_values_tbl => l_cre_ext_attrib_val_tbl,
6996: /* for order fulfillment instance ref is not there so create an instance */
6997: csi_item_instance_pub.create_item_instance(
6998: p_api_version => 1.0,
6999: p_commit => fnd_api.g_false,
7000: p_init_msg_list => fnd_api.g_true,
7001: p_validation_level => fnd_api.g_valid_level_full,
7002: p_instance_rec => l_cre_instance_rec,
7003: p_ext_attrib_values_tbl => l_cre_ext_attrib_val_tbl,
7004: p_party_tbl => l_cre_party_tbl,
6997: csi_item_instance_pub.create_item_instance(
6998: p_api_version => 1.0,
6999: p_commit => fnd_api.g_false,
7000: p_init_msg_list => fnd_api.g_true,
7001: p_validation_level => fnd_api.g_valid_level_full,
7002: p_instance_rec => l_cre_instance_rec,
7003: p_ext_attrib_values_tbl => l_cre_ext_attrib_val_tbl,
7004: p_party_tbl => l_cre_party_tbl,
7005: p_account_tbl => l_cre_party_acct_tbl,
7011: x_msg_count => x_msg_count,
7012: x_msg_data => x_msg_data );
7013:
7014: -- For Bug 4057183
7015: -- IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7016: IF NOT(x_return_status in(fnd_api.g_ret_sts_success,'W')) THEN
7017: g_api_name := 'csi_item_instance_pub.create_item_instance';
7018: raise fnd_api.g_exc_error;
7019: END IF;
7012: x_msg_data => x_msg_data );
7013:
7014: -- For Bug 4057183
7015: -- IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7016: IF NOT(x_return_status in(fnd_api.g_ret_sts_success,'W')) THEN
7017: g_api_name := 'csi_item_instance_pub.create_item_instance';
7018: raise fnd_api.g_exc_error;
7019: END IF;
7020:
7014: -- For Bug 4057183
7015: -- IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7016: IF NOT(x_return_status in(fnd_api.g_ret_sts_success,'W')) THEN
7017: g_api_name := 'csi_item_instance_pub.create_item_instance';
7018: raise fnd_api.g_exc_error;
7019: END IF;
7020:
7021: l_cp_ind := l_cp_ind + 1;
7022:
7049: p_order_line_rec => p_order_line_rec,
7050: p_trx_rec => l_trx_rec,
7051: x_return_status => x_return_status );
7052:
7053: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7054: RAISE fnd_api.g_exc_error;
7055: END IF;
7056: */
7057:
7050: p_trx_rec => l_trx_rec,
7051: x_return_status => x_return_status );
7052:
7053: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7054: RAISE fnd_api.g_exc_error;
7055: END IF;
7056: */
7057:
7058: IF l_cre_instance_rec.quantity > 1
7069: px_txn_rec => l_trx_rec,
7070: x_instance_tbl => l_auto_split_instances,
7071: x_return_status => l_return_status);
7072:
7073: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7074: RAISE fnd_api.g_exc_error;
7075: END IF;
7076:
7077:
7070: x_instance_tbl => l_auto_split_instances,
7071: x_return_status => l_return_status);
7072:
7073: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7074: RAISE fnd_api.g_exc_error;
7075: END IF;
7076:
7077:
7078: IF l_auto_split_instances.count > 0 THEN
7100: p_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl,
7101: p_new_instance_tbl => l_auto_split_instances,
7102: x_return_status => x_return_status);
7103:
7104: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7105: raise fnd_api.g_exc_error;
7106: END IF;
7107:
7108: debug('build_inst_ii_tbl completed successfully ');
7101: p_new_instance_tbl => l_auto_split_instances,
7102: x_return_status => x_return_status);
7103:
7104: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7105: raise fnd_api.g_exc_error;
7106: END IF;
7107:
7108: debug('build_inst_ii_tbl completed successfully ');
7109: END IF; -- p_txn_ii_rltns_tbl.count > 0
7186: p_api_name => 'explode_bom');
7187:
7188: csi_item_instance_grp.explode_bom( -- changes done to call the Group API for performance issues, bug3722382
7189: p_api_version => 1.0,
7190: p_commit => fnd_api.g_false,
7191: p_init_msg_list => fnd_api.g_true,
7192: p_validation_level => fnd_api.g_valid_level_full,
7193: p_source_instance_tbl => l_bom_std_item_tbl,
7194: p_explosion_level => fnd_api.g_miss_num,
7187:
7188: csi_item_instance_grp.explode_bom( -- changes done to call the Group API for performance issues, bug3722382
7189: p_api_version => 1.0,
7190: p_commit => fnd_api.g_false,
7191: p_init_msg_list => fnd_api.g_true,
7192: p_validation_level => fnd_api.g_valid_level_full,
7193: p_source_instance_tbl => l_bom_std_item_tbl,
7194: p_explosion_level => fnd_api.g_miss_num,
7195: p_txn_rec => l_trx_rec,
7188: csi_item_instance_grp.explode_bom( -- changes done to call the Group API for performance issues, bug3722382
7189: p_api_version => 1.0,
7190: p_commit => fnd_api.g_false,
7191: p_init_msg_list => fnd_api.g_true,
7192: p_validation_level => fnd_api.g_valid_level_full,
7193: p_source_instance_tbl => l_bom_std_item_tbl,
7194: p_explosion_level => fnd_api.g_miss_num,
7195: p_txn_rec => l_trx_rec,
7196: x_return_status => l_return_status,
7190: p_commit => fnd_api.g_false,
7191: p_init_msg_list => fnd_api.g_true,
7192: p_validation_level => fnd_api.g_valid_level_full,
7193: p_source_instance_tbl => l_bom_std_item_tbl,
7194: p_explosion_level => fnd_api.g_miss_num,
7195: p_txn_rec => l_trx_rec,
7196: x_return_status => l_return_status,
7197: x_msg_count => l_msg_count,
7198: x_msg_data => l_msg_data);
7196: x_return_status => l_return_status,
7197: x_msg_count => l_msg_count,
7198: x_msg_data => l_msg_data);
7199:
7200: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7201: RAISE fnd_api.g_exc_error;
7202: END IF;
7203:
7204: debug('explode bom end time :'||to_char(sysdate, 'hh24:mi:ss'));
7197: x_msg_count => l_msg_count,
7198: x_msg_data => l_msg_data);
7199:
7200: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7201: RAISE fnd_api.g_exc_error;
7202: END IF;
7203:
7204: debug('explode bom end time :'||to_char(sysdate, 'hh24:mi:ss'));
7205: END IF;
7208: IF l_order_line_rec.item_type_code = 'STANDARD'
7209: AND
7210: l_order_line_rec.order_line_id = l_order_line_rec.ato_line_id
7211: AND
7212: nvl(l_order_line_rec.top_model_line_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
7213: AND
7214: l_order_line_rec.serial_code in (1, 6)
7215: THEN
7216:
7231: px_csi_txn_rec => l_trx_rec,
7232: x_iir_tbl => l_wip_iir_tbl,
7233: x_return_status => l_return_status);
7234:
7235: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7236: RAISE fnd_api.g_exc_error;
7237: END IF;
7238:
7239: IF l_wip_iir_tbl.COUNT > 0 THEN
7232: x_iir_tbl => l_wip_iir_tbl,
7233: x_return_status => l_return_status);
7234:
7235: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7236: RAISE fnd_api.g_exc_error;
7237: END IF;
7238:
7239: IF l_wip_iir_tbl.COUNT > 0 THEN
7240: FOR l_w_ind IN l_wip_iir_tbl.FIRST .. l_wip_iir_tbl.LAST
7248: p_line_id => l_order_line_rec.order_line_id,
7249: p_csi_txn_rec => l_trx_rec,
7250: x_return_status => l_return_status);
7251:
7252: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7253: RAISE fnd_api.g_exc_error;
7254: END IF;
7255:
7256: END LOOP;
7249: p_csi_txn_rec => l_trx_rec,
7250: x_return_status => l_return_status);
7251:
7252: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7253: RAISE fnd_api.g_exc_error;
7254: END IF;
7255:
7256: END LOOP;
7257:
7260: p_pkg_name => 'csi_ii_relationships_pub');
7261:
7262: csi_ii_relationships_pub.create_relationship(
7263: p_api_version => 1.0,
7264: p_commit => fnd_api.g_false,
7265: p_init_msg_list => fnd_api.g_true,
7266: p_validation_level => fnd_api.g_valid_level_full,
7267: p_relationship_tbl => l_wip_iir_tbl,
7268: p_txn_rec => l_trx_rec,
7261:
7262: csi_ii_relationships_pub.create_relationship(
7263: p_api_version => 1.0,
7264: p_commit => fnd_api.g_false,
7265: p_init_msg_list => fnd_api.g_true,
7266: p_validation_level => fnd_api.g_valid_level_full,
7267: p_relationship_tbl => l_wip_iir_tbl,
7268: p_txn_rec => l_trx_rec,
7269: x_return_status => l_return_status,
7262: csi_ii_relationships_pub.create_relationship(
7263: p_api_version => 1.0,
7264: p_commit => fnd_api.g_false,
7265: p_init_msg_list => fnd_api.g_true,
7266: p_validation_level => fnd_api.g_valid_level_full,
7267: p_relationship_tbl => l_wip_iir_tbl,
7268: p_txn_rec => l_trx_rec,
7269: x_return_status => l_return_status,
7270: x_msg_count => l_msg_count,
7269: x_return_status => l_return_status,
7270: x_msg_count => l_msg_count,
7271: x_msg_data => l_msg_data);
7272:
7273: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7274: RAISE fnd_api.g_exc_error;
7275: END IF;
7276: END IF;
7277:
7270: x_msg_count => l_msg_count,
7271: x_msg_data => l_msg_data);
7272:
7273: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7274: RAISE fnd_api.g_exc_error;
7275: END IF;
7276: END IF;
7277:
7278: EXCEPTION
7298: -- For a Tangible line under a MACD order, we need to build the relationships using the
7299: -- relationship records written by Configurator. p_txn_ii_rltns_tbl contains this info.
7300: -- We will fork the code based on MACD order line flag in l_order_line_rec
7301: --
7302: IF l_order_line_rec.macd_order_line = FND_API.G_TRUE THEN
7303: csi_interface_pkg.build_relationship_tbl(
7304: p_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl,
7305: p_txn_line_dtl_tbl => p_txn_line_detail_tbl,
7306: x_c_ii_rltns_tbl => l_cre_ii_rltns_tbl,
7306: x_c_ii_rltns_tbl => l_cre_ii_rltns_tbl,
7307: x_u_ii_rltns_tbl => l_upd_ii_rltns_tbl,
7308: x_return_status => x_return_status );
7309:
7310: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7311: raise fnd_api.g_exc_error;
7312: END IF;
7313: ELSE
7314: /* Added p_trx_rec for ER 2581101 */
7307: x_u_ii_rltns_tbl => l_upd_ii_rltns_tbl,
7308: x_return_status => x_return_status );
7309:
7310: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7311: raise fnd_api.g_exc_error;
7312: END IF;
7313: ELSE
7314: /* Added p_trx_rec for ER 2581101 */
7315:
7321: x_cre_ii_rltns_tbl => l_cre_ii_rltns_tbl ,
7322: x_upd_ii_rltns_tbl => l_upd_ii_rltns_tbl ,
7323: x_return_status => x_return_status );
7324:
7325: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7326: raise fnd_api.g_exc_error;
7327: END IF;
7328: END IF; -- MACD Order Check
7329:
7322: x_upd_ii_rltns_tbl => l_upd_ii_rltns_tbl ,
7323: x_return_status => x_return_status );
7324:
7325: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7326: raise fnd_api.g_exc_error;
7327: END IF;
7328: END IF; -- MACD Order Check
7329:
7330: debug('upd_txn_ii_rltns_tbl.count :'||l_upd_ii_rltns_tbl.count );
7338: p_pkg_name => 'csi_ii_relationships_pub');
7339:
7340: csi_ii_relationships_pub.update_relationship(
7341: p_api_version => 1.0,
7342: p_commit => fnd_api.g_false,
7343: p_init_msg_list => fnd_api.g_true,
7344: p_validation_level => fnd_api.g_valid_level_full,
7345: p_relationship_tbl => l_upd_ii_rltns_tbl,
7346: p_txn_rec => l_trx_rec,
7339:
7340: csi_ii_relationships_pub.update_relationship(
7341: p_api_version => 1.0,
7342: p_commit => fnd_api.g_false,
7343: p_init_msg_list => fnd_api.g_true,
7344: p_validation_level => fnd_api.g_valid_level_full,
7345: p_relationship_tbl => l_upd_ii_rltns_tbl,
7346: p_txn_rec => l_trx_rec,
7347: x_return_status => x_return_status,
7340: csi_ii_relationships_pub.update_relationship(
7341: p_api_version => 1.0,
7342: p_commit => fnd_api.g_false,
7343: p_init_msg_list => fnd_api.g_true,
7344: p_validation_level => fnd_api.g_valid_level_full,
7345: p_relationship_tbl => l_upd_ii_rltns_tbl,
7346: p_txn_rec => l_trx_rec,
7347: x_return_status => x_return_status,
7348: x_msg_count => x_msg_count,
7347: x_return_status => x_return_status,
7348: x_msg_count => x_msg_count,
7349: x_msg_data => x_msg_data );
7350:
7351: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7352: raise fnd_api.g_exc_error;
7353: END IF;
7354: debug('update_relationship completed successfully');
7355: END IF;
7348: x_msg_count => x_msg_count,
7349: x_msg_data => x_msg_data );
7350:
7351: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7352: raise fnd_api.g_exc_error;
7353: END IF;
7354: debug('update_relationship completed successfully');
7355: END IF;
7356:
7366: p_instance_id => l_cre_ii_rltns_tbl(l_ind).subject_id,
7367: p_csi_txn_rec => l_trx_rec,
7368: x_return_status => l_return_status);
7369:
7370: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7371: DEBUG('Error in csi_order_ship_pub.update_install_base, call to csi_process_txn_pvt.check_and_break_relation');
7372: RAISE fnd_api.g_exc_error;
7373: END IF;
7374: END LOOP;
7368: x_return_status => l_return_status);
7369:
7370: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7371: DEBUG('Error in csi_order_ship_pub.update_install_base, call to csi_process_txn_pvt.check_and_break_relation');
7372: RAISE fnd_api.g_exc_error;
7373: END IF;
7374: END LOOP;
7375: -- End fix for FP of bug 5655955 (Bug 13503707)
7376:
7380: p_pkg_name => 'csi_ii_relationships_pub');
7381:
7382: csi_ii_relationships_pub.create_relationship(
7383: p_api_version => 1.0,
7384: p_commit => fnd_api.g_false,
7385: p_init_msg_list => fnd_api.g_true,
7386: p_validation_level => fnd_api.g_valid_level_full,
7387: p_relationship_tbl => l_cre_ii_rltns_tbl,
7388: p_txn_rec => l_trx_rec,
7381:
7382: csi_ii_relationships_pub.create_relationship(
7383: p_api_version => 1.0,
7384: p_commit => fnd_api.g_false,
7385: p_init_msg_list => fnd_api.g_true,
7386: p_validation_level => fnd_api.g_valid_level_full,
7387: p_relationship_tbl => l_cre_ii_rltns_tbl,
7388: p_txn_rec => l_trx_rec,
7389: x_return_status => x_return_status,
7382: csi_ii_relationships_pub.create_relationship(
7383: p_api_version => 1.0,
7384: p_commit => fnd_api.g_false,
7385: p_init_msg_list => fnd_api.g_true,
7386: p_validation_level => fnd_api.g_valid_level_full,
7387: p_relationship_tbl => l_cre_ii_rltns_tbl,
7388: p_txn_rec => l_trx_rec,
7389: x_return_status => x_return_status,
7390: x_msg_count => x_msg_count,
7389: x_return_status => x_return_status,
7390: x_msg_count => x_msg_count,
7391: x_msg_data => x_msg_data );
7392:
7393: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7394: raise fnd_api.g_exc_error;
7395: END IF;
7396:
7397: debug('create_relationship completed sucessfully');
7390: x_msg_count => x_msg_count,
7391: x_msg_data => x_msg_data );
7392:
7393: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7394: raise fnd_api.g_exc_error;
7395: END IF;
7396:
7397: debug('create_relationship completed sucessfully');
7398: END IF; -- end if for l_cre_txn_ii_rltns_tbl.count > 0
7407: IF l_tld_rec.source_transaction_flag = 'N' THEN
7408:
7409: debug('processing tld record # '||i||' source_transaction_flag : '||
7410: l_tld_rec.source_transaction_flag);
7411: IF nvl(l_tld_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num then
7412:
7413: /* check if this is a replacement instnace. If this is replacement
7414: then pass the call_contracts flag as false . bug 2298453*/
7415: l_call_contracts := fnd_api.g_true;
7411: IF nvl(l_tld_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num then
7412:
7413: /* check if this is a replacement instnace. If this is replacement
7414: then pass the call_contracts flag as false . bug 2298453*/
7415: l_call_contracts := fnd_api.g_true;
7416:
7417: csi_utl_pkg.call_contracts_chk(
7418: p_txn_line_detail_id => l_tld_rec.txn_line_detail_id,
7419: p_txn_ii_rltns_tbl => p_txn_ii_rltns_tbl,
7425: p_call_contracts => l_call_contracts,
7426: p_trx_rec => l_trx_rec,
7427: x_return_status => l_return_status);
7428:
7429: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7430: raise fnd_api.g_exc_error;
7431: END IF;
7432:
7433: /* bug 2351217 non source not stamping the status */
7426: p_trx_rec => l_trx_rec,
7427: x_return_status => l_return_status);
7428:
7429: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7430: raise fnd_api.g_exc_error;
7431: END IF;
7432:
7433: /* bug 2351217 non source not stamping the status */
7434: l_tld_rec.processing_status := 'PROCESSED';
7451: debug('Updating the Transaction Details to reflect the processing status.' );
7452:
7453: csi_t_txn_details_grp.update_txn_line_dtls(
7454: p_api_version => 1.0,
7455: p_commit => fnd_api.g_false,
7456: p_init_msg_list => fnd_api.g_true,
7457: p_validation_level => fnd_api.g_valid_level_full,
7458: p_txn_line_rec => p_txn_line_rec,
7459: p_txn_line_detail_tbl => p_txn_line_detail_tbl,
7452:
7453: csi_t_txn_details_grp.update_txn_line_dtls(
7454: p_api_version => 1.0,
7455: p_commit => fnd_api.g_false,
7456: p_init_msg_list => fnd_api.g_true,
7457: p_validation_level => fnd_api.g_valid_level_full,
7458: p_txn_line_rec => p_txn_line_rec,
7459: p_txn_line_detail_tbl => p_txn_line_detail_tbl,
7460: px_txn_ii_rltns_tbl => l_upd_txn_ii_rltns_tbl,
7453: csi_t_txn_details_grp.update_txn_line_dtls(
7454: p_api_version => 1.0,
7455: p_commit => fnd_api.g_false,
7456: p_init_msg_list => fnd_api.g_true,
7457: p_validation_level => fnd_api.g_valid_level_full,
7458: p_txn_line_rec => p_txn_line_rec,
7459: p_txn_line_detail_tbl => p_txn_line_detail_tbl,
7460: px_txn_ii_rltns_tbl => l_upd_txn_ii_rltns_tbl,
7461: px_txn_party_detail_tbl => l_upd_txn_party_detail_tbl,
7465: x_return_status => x_return_status,
7466: x_msg_count => x_msg_count,
7467: x_msg_data => x_msg_data);
7468:
7469: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7470: g_api_name := 'csi_t_txn_details_grp.update_txn_line_dtls';
7471: raise fnd_api.g_exc_error;
7472: END IF;
7473:
7467: x_msg_data => x_msg_data);
7468:
7469: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7470: g_api_name := 'csi_t_txn_details_grp.update_txn_line_dtls';
7471: raise fnd_api.g_exc_error;
7472: END IF;
7473:
7474: END IF;
7475: END IF; -- end of p_source
7481: p_transaction_line_id => p_txn_line_rec.transaction_line_id,
7482: p_order_line_rec => l_order_line_rec,
7483: x_return_status => l_return_status );
7484:
7485: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7486: RAISE fnd_api.g_exc_error;
7487: END IF;
7488: --
7489: -- srramakr TSO With Equipment
7482: p_order_line_rec => l_order_line_rec,
7483: x_return_status => l_return_status );
7484:
7485: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7486: RAISE fnd_api.g_exc_error;
7487: END IF;
7488: --
7489: -- srramakr TSO With Equipment
7490: -- Need to update the Processing status of Configurator written Txn Line and Details.
7489: -- srramakr TSO With Equipment
7490: -- Need to update the Processing status of Configurator written Txn Line and Details.
7491: -- This status will be used by Filter_Relations while processing the fulfillable line.
7492: --
7493: IF l_order_line_rec.macd_order_line = FND_API.G_TRUE THEN
7494: IF p_txn_line_detail_tbl.count > 0 THEN
7495: FOR J IN p_txn_line_detail_tbl.FIRST .. p_txn_line_detail_tbl.LAST LOOP
7496: IF p_txn_line_detail_tbl.EXISTS(J) THEN
7497: IF p_txn_line_detail_tbl(J).source_transaction_flag = 'Y' AND
7509: --
7510: debug('Calling csi_cz_int.unlock_item_instances...');
7511: csi_cz_int.unlock_item_instances(
7512: p_api_version => 1.0,
7513: p_init_msg_list => fnd_api.g_true,
7514: p_commit => fnd_api.g_false,
7515: p_validation_level => fnd_api.g_valid_level_full,
7516: p_config_tbl => l_config_tbl,
7517: x_return_status => x_return_status,
7510: debug('Calling csi_cz_int.unlock_item_instances...');
7511: csi_cz_int.unlock_item_instances(
7512: p_api_version => 1.0,
7513: p_init_msg_list => fnd_api.g_true,
7514: p_commit => fnd_api.g_false,
7515: p_validation_level => fnd_api.g_valid_level_full,
7516: p_config_tbl => l_config_tbl,
7517: x_return_status => x_return_status,
7518: x_msg_count => x_msg_count,
7511: csi_cz_int.unlock_item_instances(
7512: p_api_version => 1.0,
7513: p_init_msg_list => fnd_api.g_true,
7514: p_commit => fnd_api.g_false,
7515: p_validation_level => fnd_api.g_valid_level_full,
7516: p_config_tbl => l_config_tbl,
7517: x_return_status => x_return_status,
7518: x_msg_count => x_msg_count,
7519: x_msg_data => x_msg_data);
7517: x_return_status => x_return_status,
7518: x_msg_count => x_msg_count,
7519: x_msg_data => x_msg_data);
7520:
7521: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7522: RAISE fnd_api.g_exc_error;
7523: END IF;
7524: --
7525: debug('Updating CONFIGURATOR Created Transaction Details...');
7518: x_msg_count => x_msg_count,
7519: x_msg_data => x_msg_data);
7520:
7521: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7522: RAISE fnd_api.g_exc_error;
7523: END IF;
7524: --
7525: debug('Updating CONFIGURATOR Created Transaction Details...');
7526: --
7549: END IF;
7550: END IF; -- end if for p_validate_flag = 'N'
7551:
7552: -- Standard check of p_commit.
7553: IF FND_API.To_Boolean(p_commit) THEN
7554: COMMIT WORK;
7555: END IF;
7556:
7557: fnd_msg_pub.count_and_get(
7558: p_count => x_msg_count ,
7559: p_data => x_msg_data );
7560:
7561: EXCEPTION
7562: WHEN FND_API.G_EXC_ERROR THEN
7563: ROLLBACK TO update_install_base;
7564: x_return_status := FND_API.G_RET_STS_ERROR ;
7565: fnd_msg_pub.count_and_get(
7566: p_count => x_msg_count,
7560:
7561: EXCEPTION
7562: WHEN FND_API.G_EXC_ERROR THEN
7563: ROLLBACK TO update_install_base;
7564: x_return_status := FND_API.G_RET_STS_ERROR ;
7565: fnd_msg_pub.count_and_get(
7566: p_count => x_msg_count,
7567: p_data => x_msg_data );
7568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7564: x_return_status := FND_API.G_RET_STS_ERROR ;
7565: fnd_msg_pub.count_and_get(
7566: p_count => x_msg_count,
7567: p_data => x_msg_data );
7568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7569: ROLLBACK TO update_install_base;
7570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7571: fnd_msg_pub.count_and_get(
7572: p_count => x_msg_count,
7566: p_count => x_msg_count,
7567: p_data => x_msg_data );
7568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7569: ROLLBACK TO update_install_base;
7570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7571: fnd_msg_pub.count_and_get(
7572: p_count => x_msg_count,
7573: p_data => x_msg_data );
7574: WHEN others THEN
7576: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
7577: fnd_message.set_token('MESSAGE', substr(sqlerrm, 1, 240));
7578: fnd_msg_pub.add;
7579:
7580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7581:
7582: fnd_msg_pub.count_and_get(
7583: p_count => x_msg_count,
7584: p_data => x_msg_data );
7620: l_sold_to_pty BOOLEAN := TRUE;
7621: l_sold_to_acct BOOLEAN := TRUE;
7622: l_acct_owner_count NUMBER;
7623: l_sold_from_org_found varchar2(1);
7624: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
7625:
7626: -- Partner ordering
7627: l_owner_party NUMBER;
7628:
7633:
7634: BEGIN
7635:
7636: -- Initialize API return status to success
7637: x_return_status := fnd_api.g_ret_sts_success;
7638:
7639: api_log('validate_txn_tbl');
7640:
7641: IF p_txn_line_detail_tbl.count > 0 THEN
7653: p_trx_type_id => p_txn_line_rec.source_transaction_type_id,
7654: x_trx_sub_type_rec => x_txn_sub_type_rec,
7655: x_return_status => x_return_status) ;
7656:
7657: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7658: raise fnd_api.g_exc_error;
7659: END IF;
7660:
7661: /*-----------------------------------------------------------------*/
7654: x_trx_sub_type_rec => x_txn_sub_type_rec,
7655: x_return_status => x_return_status) ;
7656:
7657: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
7658: raise fnd_api.g_exc_error;
7659: END IF;
7660:
7661: /*-----------------------------------------------------------------*/
7662: /* If Org assignment with 'SOLD_FROM' relationship_type_code */
7662: /* If Org assignment with 'SOLD_FROM' relationship_type_code */
7663: /* does not exist then 'SOLD_FROM' create an org assignments */
7664: /*-----------------------------------------------------------------*/
7665:
7666: IF nvl(p_order_line_rec.sold_from_org_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
7667: THEN
7668: IF p_txn_org_assgn_tbl.count > 0 THEN
7669: FOR l_org in p_txn_org_assgn_tbl.first..p_txn_org_assgn_tbl.last
7670: LOOP
7678: END IF;
7679:
7680: IF NOT(l_org_assign) THEN
7681: /* also check if the instance reference already has a SOLD_FROM relation */
7682: IF nvl(p_txn_line_detail_tbl(i).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
7683: BEGIN
7684: SELECT 'X'
7685: INTO l_sold_from_org_found
7686: FROM csi_i_org_assignments
7706: l_ind_org := p_txn_org_assgn_tbl.count + 1;
7707:
7708: debug('Building the SOLD_FROM org assignment.. ' );
7709:
7710: p_txn_org_assgn_tbl(l_ind_org).txn_operating_unit_id := fnd_api.g_miss_num;
7711: p_txn_org_assgn_tbl(l_ind_org).txn_line_detail_id := p_txn_line_detail_tbl(i).txn_line_detail_id;
7712: p_txn_org_assgn_tbl(l_ind_org).instance_ou_id := fnd_api.g_miss_num;
7713: p_txn_org_assgn_tbl(l_ind_org).operating_unit_id := p_order_line_rec.sold_from_org_id;
7714: p_txn_org_assgn_tbl(l_ind_org).relationship_type_code := 'SOLD_FROM';
7708: debug('Building the SOLD_FROM org assignment.. ' );
7709:
7710: p_txn_org_assgn_tbl(l_ind_org).txn_operating_unit_id := fnd_api.g_miss_num;
7711: p_txn_org_assgn_tbl(l_ind_org).txn_line_detail_id := p_txn_line_detail_tbl(i).txn_line_detail_id;
7712: p_txn_org_assgn_tbl(l_ind_org).instance_ou_id := fnd_api.g_miss_num;
7713: p_txn_org_assgn_tbl(l_ind_org).operating_unit_id := p_order_line_rec.sold_from_org_id;
7714: p_txn_org_assgn_tbl(l_ind_org).relationship_type_code := 'SOLD_FROM';
7715: p_txn_org_assgn_tbl(l_ind_org).active_start_date := sysdate;
7716: p_txn_org_assgn_tbl(l_ind_org).active_end_date := p_txn_line_detail_tbl(i).active_end_date; -- fix for 4293723
7804: IF (l_owner_count > 1) THEN
7805: fnd_message.set_name('CSI','CSI_INT_MULTIPLE_OWNER');
7806: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7807: fnd_msg_pub.add;
7808: raise fnd_api.g_exc_error;
7809: END IF;
7810:
7811: /* If src_change_owner = Y and owner party does not exist then raise error */
7812: IF x_txn_sub_type_rec.src_change_owner = 'Y' THEN
7813: IF (l_owner_count = 0) THEN
7814: fnd_message.set_name('CSI','CSI_INT_PTY_OWNER_MISSING');
7815: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7816: fnd_msg_pub.add;
7817: raise fnd_api.g_exc_error;
7818: END IF;
7819: END IF;
7820:
7821: IF nvl(x_txn_sub_type_rec.src_change_owner, 'N') = 'N' THEN
7818: END IF;
7819: END IF;
7820:
7821: IF nvl(x_txn_sub_type_rec.src_change_owner, 'N') = 'N' THEN
7822: p_order_line_rec.ship_to_contact_id := fnd_api.g_miss_num;
7823: p_order_line_rec.invoice_to_contact_id := fnd_api.g_miss_num;
7824: END IF;
7825:
7826: /* If multiple owner exists then raise error */
7819: END IF;
7820:
7821: IF nvl(x_txn_sub_type_rec.src_change_owner, 'N') = 'N' THEN
7822: p_order_line_rec.ship_to_contact_id := fnd_api.g_miss_num;
7823: p_order_line_rec.invoice_to_contact_id := fnd_api.g_miss_num;
7824: END IF;
7825:
7826: /* If multiple owner exists then raise error */
7827: IF (l_acct_owner_count > 1) THEN
7827: IF (l_acct_owner_count > 1) THEN
7828: fnd_message.set_name('CSI','CSI_INT_MULTI_ACCT_OWNER');
7829: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7830: fnd_msg_pub.add;
7831: raise fnd_api.g_exc_error;
7832: END IF;
7833:
7834: /* If src_change_owner = Y and owner party does not exist then raise error */
7835: IF x_txn_sub_type_rec.src_change_owner = 'Y' THEN
7836: IF (l_acct_owner_count = 0) THEN
7837: fnd_message.set_name('CSI','CSI_INT_ACCT_OWNER_MISSING');
7838: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7839: fnd_msg_pub.add;
7840: raise fnd_api.g_exc_error;
7841: END IF;
7842: END IF;
7843:
7844: /*---------------------------------------------------------*/
7871: FROM sys.dual;
7872: EXCEPTION
7873: WHEN others THEN
7874: debug('Sequence csi_t_party_details_s is missing');
7875: raise fnd_api.g_exc_error;
7876: END;
7877:
7878: p_txn_party_detail_tbl(l_pty) := p_txn_party_detail_tbl(l_txn_pty);
7879: p_txn_party_detail_tbl(l_pty).instance_party_id := fnd_api.g_miss_num;
7875: raise fnd_api.g_exc_error;
7876: END;
7877:
7878: p_txn_party_detail_tbl(l_pty) := p_txn_party_detail_tbl(l_txn_pty);
7879: p_txn_party_detail_tbl(l_pty).instance_party_id := fnd_api.g_miss_num;
7880: p_txn_party_detail_tbl(l_pty).txn_party_detail_id := l_txn_party_detail_id;
7881: p_txn_party_detail_tbl(l_pty).relationship_type_code := 'SOLD_TO';
7882:
7883: csi_utl_pkg.get_party_id(
7884: p_cust_acct_id => p_order_line_rec.sold_to_org_id,
7885: x_party_id => l_party_id,
7886: x_return_status => l_return_status);
7887:
7888: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7889: RAISE fnd_api.g_exc_error;
7890: END IF;
7891:
7892: p_txn_party_detail_tbl(l_pty).party_source_id := l_party_id;
7885: x_party_id => l_party_id,
7886: x_return_status => l_return_status);
7887:
7888: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7889: RAISE fnd_api.g_exc_error;
7890: END IF;
7891:
7892: p_txn_party_detail_tbl(l_pty).party_source_id := l_party_id;
7893:
7895: p_cust_acct_id => p_order_line_rec.end_customer_id,
7896: x_party_id => l_owner_party,
7897: x_return_status => l_return_status);
7898:
7899: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7900: RAISE fnd_api.g_exc_error;
7901: END IF;
7902: --Added clause to if condition for bug 5897123 (FP 5764676)
7903: 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
7896: x_party_id => l_owner_party,
7897: x_return_status => l_return_status);
7898:
7899: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7900: RAISE fnd_api.g_exc_error;
7901: END IF;
7902: --Added clause to if condition for bug 5897123 (FP 5764676)
7903: 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
7904: -- Begin porting for 3625218: If owner party mismatch occurs then Erroring out if
7908: l_owner_pty_contacts = 'Y'
7909: THEN
7910: fnd_message.set_name('CSI','CSI_OWNER_PARTY_MISMATCH');
7911: fnd_msg_pub.add;
7912: RAISE fnd_api.g_exc_error;
7913: END IF;
7914: -- End porting for 3625218
7915: debug('Party_id on txn_dtls is not same as Shipment Party_id ');
7916: p_txn_party_detail_tbl(l_txn_pty).party_source_id := l_owner_party ;
7931: THEN
7932:
7933: debug('Building the SOLD_TO Account record. ');
7934: p_txn_pty_acct_dtl_tbl(l_acct) := p_txn_pty_acct_dtl_tbl(l_txn_acct);
7935: p_txn_pty_acct_dtl_tbl(l_acct).ip_account_id := fnd_api.g_miss_num;
7936: p_txn_pty_acct_dtl_tbl(l_acct).txn_party_detail_id := l_txn_party_detail_id;
7937: p_txn_pty_acct_dtl_tbl(l_acct).relationship_type_code := 'SOLD_TO';
7938: p_txn_pty_acct_dtl_tbl(l_acct).account_id := p_order_line_rec.sold_to_org_id;
7939:
7966:
7967: /* If the src_reference_reqd = "Y" then check if the instance is referenced */
7968: IF x_txn_sub_type_rec.src_reference_reqd = 'Y'
7969: AND
7970: NVL(p_txn_line_detail_tbl(i).instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
7971: THEN
7972: fnd_message.set_name('CSI','CSI_INT_INST_REF_MISSING');
7973: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7974: fnd_msg_pub.add;
7971: THEN
7972: fnd_message.set_name('CSI','CSI_INT_INST_REF_MISSING');
7973: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7974: fnd_msg_pub.add;
7975: raise fnd_api.g_exc_error;
7976: END IF;
7977:
7978: /* If the src_return_reqd = "Y" then check if the return_by_date is not null */
7979: IF x_txn_sub_type_rec.src_return_reqd = 'Y'
7977:
7978: /* If the src_return_reqd = "Y" then check if the return_by_date is not null */
7979: IF x_txn_sub_type_rec.src_return_reqd = 'Y'
7980: AND
7981: NVL(p_txn_line_detail_tbl(i).return_by_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE
7982: THEN
7983: fnd_message.set_name('CSI','CSI_INT_RET_DATE_MISSING');
7984: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7985: fnd_msg_pub.add;
7982: THEN
7983: fnd_message.set_name('CSI','CSI_INT_RET_DATE_MISSING');
7984: fnd_message.set_token('TXN_LINE_DETAIL_ID', p_txn_line_detail_tbl(i).txn_line_detail_id);
7985: fnd_msg_pub.add;
7986: raise fnd_api.g_exc_error;
7987: END IF;
7988:
7989: IF p_txn_party_detail_tbl.count > 0 THEN
7990: FOR j in p_txn_party_detail_tbl.first..p_txn_party_detail_tbl.last LOOP
7989: IF p_txn_party_detail_tbl.count > 0 THEN
7990: FOR j in p_txn_party_detail_tbl.first..p_txn_party_detail_tbl.last LOOP
7991: IF p_txn_party_detail_tbl(j).txn_line_detail_id = p_txn_line_detail_tbl(i).txn_line_detail_id THEN
7992:
7993: IF NVL(p_txn_line_detail_tbl(i).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num AND
7994: NVL(p_txn_party_detail_tbl(j).instance_party_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
7995:
7996: /* validate if the instance_party_id is for that instance_id */
7997: l_found := csi_utl_pkg.validate_inst_party
7990: FOR j in p_txn_party_detail_tbl.first..p_txn_party_detail_tbl.last LOOP
7991: IF p_txn_party_detail_tbl(j).txn_line_detail_id = p_txn_line_detail_tbl(i).txn_line_detail_id THEN
7992:
7993: IF NVL(p_txn_line_detail_tbl(i).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num AND
7994: NVL(p_txn_party_detail_tbl(j).instance_party_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
7995:
7996: /* validate if the instance_party_id is for that instance_id */
7997: l_found := csi_utl_pkg.validate_inst_party
7998: (p_txn_line_detail_tbl(i).instance_id,
8004: fnd_message.set_token('INSTANCE_ID',p_txn_line_detail_tbl(i).instance_id);
8005: fnd_message.set_token('INSTANCE_PARTY_ID',p_txn_party_detail_tbl(j).instance_party_id);
8006: fnd_message.set_token('RELATIONSHIP_TYPE_CODE',p_txn_party_detail_tbl(j).relationship_type_code);
8007: fnd_msg_pub.add;
8008: raise fnd_api.g_exc_error;
8009: END IF;
8010: END IF;
8011:
8012: IF (p_txn_party_detail_tbl(j).relationship_type_code = 'OWNER') THEN
8011:
8012: IF (p_txn_party_detail_tbl(j).relationship_type_code = 'OWNER') THEN
8013: IF (x_txn_sub_type_rec.src_change_owner = 'Y') THEN
8014:
8015: IF NVL(p_txn_line_detail_tbl(i).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
8016: IF x_txn_sub_type_rec.src_chg_owner_code = 'E' THEN
8017:
8018: /* if change_owner = Y and chg_owner_code = E then party id should
8019: be external party id */
8021: fnd_message.set_name('CSI','CSI_INT_INV_PTY_ID');
8022: fnd_message.set_token('PARTY_ID',p_txn_party_detail_tbl(j).party_source_id);
8023: fnd_message.set_token('INTERNAL_PARTY_ID',p_order_line_rec.internal_party_id);
8024: fnd_msg_pub.add;
8025: raise fnd_api.g_exc_error;
8026: END IF;
8027: ELSE
8028: /* if change_owner = N and chg_owner_code <> E then party id should
8029: be external party id */
8031: fnd_message.set_name('CSI','CSI_INT_INV_PTY_ID');
8032: fnd_message.set_token('PARTY_ID',p_txn_party_detail_tbl(j).party_source_id);
8033: fnd_message.set_token('INTERNAL_PARTY_ID',p_order_line_rec.internal_party_id);
8034: fnd_msg_pub.add;
8035: raise fnd_api.g_exc_error;
8036: END IF;
8037: END IF;
8038: END IF;
8039: END IF;
8046:
8047: /* If the src_reference_reqd = "Y" then check if the instance is referenced */
8048: IF x_txn_sub_type_rec.nsrc_reference_reqd = 'Y'
8049: AND
8050: NVL(p_txn_line_detail_tbl(i).instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
8051: THEN
8052: fnd_message.set_name('CSI','CSI_INT_INST_REF_MISSING');
8053: fnd_msg_pub.add;
8054: raise fnd_api.g_exc_error;
8050: NVL(p_txn_line_detail_tbl(i).instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
8051: THEN
8052: fnd_message.set_name('CSI','CSI_INT_INST_REF_MISSING');
8053: fnd_msg_pub.add;
8054: raise fnd_api.g_exc_error;
8055: END IF;
8056:
8057: /* If the src_return_reqd = "Y" then check if the return_by_date is not null */
8058:
8057: /* If the src_return_reqd = "Y" then check if the return_by_date is not null */
8058:
8059: IF x_txn_sub_type_rec.nsrc_return_reqd = 'Y'
8060: AND
8061: NVL(p_txn_line_detail_tbl(i).return_by_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE
8062: THEN
8063: fnd_message.set_name('CSI','CSI_INT_RET_DATE_MISSING');
8064: fnd_msg_pub.add;
8065: raise fnd_api.g_exc_error;
8061: NVL(p_txn_line_detail_tbl(i).return_by_date, FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE
8062: THEN
8063: fnd_message.set_name('CSI','CSI_INT_RET_DATE_MISSING');
8064: fnd_msg_pub.add;
8065: raise fnd_api.g_exc_error;
8066: END IF;
8067:
8068: /* If src_reference_reqd = 'Y' then the relationship should be defined in the txn_ii_rltns_tbl */
8069:
8075: THEN
8076: fnd_message.set_name('CSI','CSI_INT_NSRC_REL_MISSING');
8077: fnd_message.set_token('TXN_LINE_DETAIL_ID',p_txn_line_detail_tbl(i).txn_line_detail_id );
8078: fnd_msg_pub.add;
8079: raise fnd_api.g_exc_error;
8080: END IF;
8081:
8082: IF p_txn_party_detail_tbl.count > 0 THEN
8083: FOR j in p_txn_party_detail_tbl.first..p_txn_party_detail_tbl.last LOOP
8082: IF p_txn_party_detail_tbl.count > 0 THEN
8083: FOR j in p_txn_party_detail_tbl.first..p_txn_party_detail_tbl.last LOOP
8084: IF p_txn_party_detail_tbl(j).txn_line_detail_id = p_txn_line_detail_tbl(i).txn_line_detail_id THEN
8085:
8086: IF NVL(p_txn_line_detail_tbl(i).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num AND
8087: NVL(p_txn_party_detail_tbl(j).instance_party_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
8088:
8089: /* validate if the instance_party_id is for that instance_id */
8090:
8083: FOR j in p_txn_party_detail_tbl.first..p_txn_party_detail_tbl.last LOOP
8084: IF p_txn_party_detail_tbl(j).txn_line_detail_id = p_txn_line_detail_tbl(i).txn_line_detail_id THEN
8085:
8086: IF NVL(p_txn_line_detail_tbl(i).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num AND
8087: NVL(p_txn_party_detail_tbl(j).instance_party_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
8088:
8089: /* validate if the instance_party_id is for that instance_id */
8090:
8091: l_found := csi_utl_pkg.validate_inst_party
8097: fnd_message.set_token('INSTANCE_ID',p_txn_line_detail_tbl(i).instance_id);
8098: fnd_message.set_token('INSTANCE_PARTY_ID',p_txn_party_detail_tbl(j).instance_party_id);
8099: fnd_message.set_token('RELATIONSHIP_TYPE_CODE',p_txn_party_detail_tbl(j).relationship_type_code);
8100: fnd_msg_pub.add;
8101: raise fnd_api.g_exc_error;
8102: END IF;
8103: END IF;
8104:
8105: IF (p_txn_party_detail_tbl(j).relationship_type_code = 'OWNER') THEN
8113: fnd_message.set_name('CSI','CSI_INT_INV_PTY_ID');
8114: fnd_message.set_token('PARTY_ID',p_txn_party_detail_tbl(j).party_source_id);
8115: fnd_message.set_token('INSTANCE_PARTY_ID',p_order_line_rec.internal_party_id);
8116: fnd_msg_pub.add;
8117: raise fnd_api.g_exc_error;
8118: END IF;
8119: ELSE
8120:
8121: /* if change_owner = N and chg_owner_code <> E then party id should
8125: fnd_message.set_name('CSI','CSI_INT_INV_PTY_ID');
8126: fnd_message.set_token('PARTY_ID',p_txn_party_detail_tbl(j).party_source_id);
8127: fnd_message.set_token('INSTANCE_PARTY_ID',p_order_line_rec.internal_party_id);
8128: fnd_msg_pub.add;
8129: raise fnd_api.g_exc_error;
8130: END IF;
8131: END IF;
8132: END IF;
8133: END IF;
8144: FOR j in p_txn_ii_rltns_tbl.first..p_txn_ii_rltns_tbl.last LOOP
8145:
8146: debug('Validating ii_relationships .. ' );
8147:
8148: IF NVL(p_txn_ii_rltns_tbl(j).csi_inst_relationship_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
8149:
8150: csi_utl_pkg.get_inst_relation(
8151: p_ii_relationship_id => p_txn_ii_rltns_tbl(j).csi_inst_relationship_id,
8152: x_object_id => l_curr_object_id,
8152: x_object_id => l_curr_object_id,
8153: x_subject_id => l_curr_subject_id,
8154: x_return_status => x_return_status);
8155:
8156: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
8157: fnd_message.set_name('CSI','CSI_INT_II_REL_MISSING');
8158: fnd_message.set_token('II_RELATIONSHIP_ID',p_txn_ii_rltns_tbl(j).csi_inst_relationship_id);
8159: fnd_msg_pub.add;
8160: raise fnd_api.g_exc_error;
8156: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
8157: fnd_message.set_name('CSI','CSI_INT_II_REL_MISSING');
8158: fnd_message.set_token('II_RELATIONSHIP_ID',p_txn_ii_rltns_tbl(j).csi_inst_relationship_id);
8159: fnd_msg_pub.add;
8160: raise fnd_api.g_exc_error;
8161: END IF;
8162:
8163: IF p_txn_line_detail_tbl.count > 0 THEN
8164: FOR i IN p_txn_line_detail_tbl.FIRST..p_txn_line_detail_tbl.LAST LOOP
8174: IF l_curr_object_id <> l_object_inst_id THEN
8175: fnd_message.set_name('CSI','CSI_INT_OBJ_ID_NOT_ALLOW_UPD');
8176: fnd_message.set_token('OBJECT_ID',l_object_inst_id);
8177: fnd_msg_pub.add;
8178: raise fnd_api.g_exc_error;
8179: END IF;
8180:
8181: END IF;
8182:
8189: END LOOP;
8190: END IF; -- end of relationship validation
8191:
8192: EXCEPTION
8193: WHEN FND_API.G_EXC_ERROR THEN
8194: x_return_status := FND_API.G_RET_STS_ERROR ;
8195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8197: END validate_txn_tbl;
8190: END IF; -- end of relationship validation
8191:
8192: EXCEPTION
8193: WHEN FND_API.G_EXC_ERROR THEN
8194: x_return_status := FND_API.G_RET_STS_ERROR ;
8195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8197: END validate_txn_tbl;
8198:
8191:
8192: EXCEPTION
8193: WHEN FND_API.G_EXC_ERROR THEN
8194: x_return_status := FND_API.G_RET_STS_ERROR ;
8195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8197: END validate_txn_tbl;
8198:
8199: /*----------------------------------------------------------*/
8192: EXCEPTION
8193: WHEN FND_API.G_EXC_ERROR THEN
8194: x_return_status := FND_API.G_RET_STS_ERROR ;
8195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8197: END validate_txn_tbl;
8198:
8199: /*----------------------------------------------------------*/
8200: /* Procedure name: process_option_item */
8235: x_cre_txn_systems_tbl csi_t_datastructures_grp.txn_systems_tbl;
8236: x_cre_txn_ii_rltns_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
8237:
8238: l_install_party_site_id NUMBER;
8239: l_parent_line_qty NUMBER := fnd_api.g_miss_num;
8240: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
8241:
8242: BEGIN
8243:
8236: x_cre_txn_ii_rltns_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
8237:
8238: l_install_party_site_id NUMBER;
8239: l_parent_line_qty NUMBER := fnd_api.g_miss_num;
8240: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
8241:
8242: BEGIN
8243:
8244: -- Initialize API return status to success
8241:
8242: BEGIN
8243:
8244: -- Initialize API return status to success
8245: x_return_status := fnd_api.g_ret_sts_success;
8246:
8247: api_log('process_option_item');
8248:
8249: /* Initialize the pl/sql tables */
8255: x_cre_txn_systems_tbl.delete;
8256: x_cre_txn_ii_rltns_tbl.delete;
8257:
8258: -- assign values for the columns in Txn_line_rec
8259: x_cre_txn_line_rec.transaction_line_id := fnd_api.g_miss_num;
8260: x_cre_txn_line_rec.source_transaction_id := p_order_line_rec.order_line_id;
8261: x_cre_txn_line_rec.source_transaction_type_id := g_txn_type_id;
8262: x_cre_txn_line_rec.source_transaction_table := 'WSH_DELIVERY_DETAILS';
8263: x_cre_txn_line_rec.processing_status := 'IN_PROCESS';
8285: EXCEPTION
8286: WHEN no_data_found THEN
8287: csi_t_txn_details_grp.create_transaction_dtls(
8288: p_api_version => 1.0,
8289: p_commit => fnd_api.g_false,
8290: p_init_msg_list => fnd_api.g_true,
8291: p_validation_level => fnd_api.g_valid_level_none,
8292: px_txn_line_rec => x_cre_txn_line_rec,
8293: px_txn_line_detail_tbl => x_cre_txn_line_dtls_tbl,
8286: WHEN no_data_found THEN
8287: csi_t_txn_details_grp.create_transaction_dtls(
8288: p_api_version => 1.0,
8289: p_commit => fnd_api.g_false,
8290: p_init_msg_list => fnd_api.g_true,
8291: p_validation_level => fnd_api.g_valid_level_none,
8292: px_txn_line_rec => x_cre_txn_line_rec,
8293: px_txn_line_detail_tbl => x_cre_txn_line_dtls_tbl,
8294: px_txn_party_detail_tbl => x_cre_txn_party_dtls_tbl,
8287: csi_t_txn_details_grp.create_transaction_dtls(
8288: p_api_version => 1.0,
8289: p_commit => fnd_api.g_false,
8290: p_init_msg_list => fnd_api.g_true,
8291: p_validation_level => fnd_api.g_valid_level_none,
8292: px_txn_line_rec => x_cre_txn_line_rec,
8293: px_txn_line_detail_tbl => x_cre_txn_line_dtls_tbl,
8294: px_txn_party_detail_tbl => x_cre_txn_party_dtls_tbl,
8295: px_txn_pty_acct_detail_tbl => x_cre_txn_pty_acct_dtls_tbl,
8302: x_msg_data => x_msg_data);
8303:
8304: l_trx_line_id := x_cre_txn_line_rec.transaction_line_id;
8305:
8306: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
8307: raise fnd_api.g_exc_error;
8308: END IF;
8309:
8310: END ;
8303:
8304: l_trx_line_id := x_cre_txn_line_rec.transaction_line_id;
8305:
8306: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
8307: raise fnd_api.g_exc_error;
8308: END IF;
8309:
8310: END ;
8311:
8318: p_link_to_line_id => p_order_line_rec.link_to_line_id,
8319: x_qty_ratio => l_qty_ratio ,
8320: x_return_status => l_return_status );
8321:
8322: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
8323: raise fnd_api.g_exc_error;
8324: END IF;
8325:
8326: rebuild_shipping_tbl(
8319: x_qty_ratio => l_qty_ratio ,
8320: x_return_status => l_return_status );
8321:
8322: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
8323: raise fnd_api.g_exc_error;
8324: END IF;
8325:
8326: rebuild_shipping_tbl(
8327: p_qty_ratio => l_qty_ratio
8327: p_qty_ratio => l_qty_ratio
8328: ,x_order_shipment_tbl => x_order_shipment_tbl
8329: ,x_return_status => x_return_status );
8330:
8331: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
8332: debug('rebuild_shipping_tbl failed ');
8333: raise fnd_api.g_exc_error;
8334: END IF;
8335:
8329: ,x_return_status => x_return_status );
8330:
8331: IF NOT(x_return_status = fnd_api.g_ret_sts_success) THEN
8332: debug('rebuild_shipping_tbl failed ');
8333: raise fnd_api.g_exc_error;
8334: END IF;
8335:
8336:
8337:
8352: fnd_message.set_name('CSI','CSI_INT_PTY_SITE_MISSING');
8353: fnd_message.set_token('LOCATION_ID', x_order_shipment_tbl(i).ib_current_loc_id); -- ship_to_org_id);
8354: fnd_msg_pub.add;
8355: debug('Party_site_id not found');
8356: raise fnd_api.g_exc_error;
8357: when too_many_rows then
8358: fnd_message.set_name('CSI','CSI_INT_MANY_PTY_SITE_FOUND');
8359: fnd_message.set_token('LOCATION_ID', x_order_shipment_tbl(i).ib_current_loc_id); -- ship_to_org_id);
8360: fnd_msg_pub.add;
8358: fnd_message.set_name('CSI','CSI_INT_MANY_PTY_SITE_FOUND');
8359: fnd_message.set_token('LOCATION_ID', x_order_shipment_tbl(i).ib_current_loc_id); -- ship_to_org_id);
8360: fnd_msg_pub.add;
8361: debug('Party_site_id not found');
8362: raise fnd_api.g_exc_error;
8363: END ;
8364:
8365: IF x_order_shipment_tbl(i).ib_install_loc is not null
8366: AND
8365: IF x_order_shipment_tbl(i).ib_install_loc is not null
8366: AND
8367: x_order_shipment_tbl(i).ib_install_loc_id is not null
8368: AND
8369: x_order_shipment_tbl(i).ib_install_loc_id <> fnd_api.g_miss_num
8370: Then
8371: BEGIN
8372: SELECT party_site_id
8373: INTO l_install_party_site_id
8380: fnd_message.set_name('CSI','CSI_INT_PTY_SITE_MISSING');
8381: fnd_message.set_token('LOCATION_ID', x_order_shipment_tbl(i).ib_install_loc_id); -- ship_to_org_id);
8382: fnd_msg_pub.add;
8383: debug('Party_site_id not found');
8384: raise fnd_api.g_exc_error;
8385: when too_many_rows then
8386: fnd_message.set_name('CSI','CSI_INT_MANY_PTY_SITE_FOUND');
8387: fnd_message.set_token('LOCATION_ID', x_order_shipment_tbl(i).ib_install_loc_id); -- ship_to_org_id);
8388: fnd_msg_pub.add;
8386: fnd_message.set_name('CSI','CSI_INT_MANY_PTY_SITE_FOUND');
8387: fnd_message.set_token('LOCATION_ID', x_order_shipment_tbl(i).ib_install_loc_id); -- ship_to_org_id);
8388: fnd_msg_pub.add;
8389: debug('Party_site_id not found');
8390: raise fnd_api.g_exc_error;
8391: end ;
8392: END IF;
8393:
8394:
8399: x_cre_txn_line_dtls_tbl(i).source_transaction_flag := 'Y';
8400: x_cre_txn_line_dtls_tbl(i).inventory_item_id := x_order_shipment_tbl(i).inventory_item_id ;
8401: x_cre_txn_line_dtls_tbl(i).inv_organization_id := x_order_shipment_tbl(i).organization_id ;
8402: x_cre_txn_line_dtls_tbl(i).inventory_revision := x_order_shipment_tbl(i).revision ;
8403: x_cre_txn_line_dtls_tbl(i).item_condition_id := fnd_api.g_miss_num;
8404: x_cre_txn_line_dtls_tbl(i).instance_type_code := fnd_api.g_miss_char;
8405: x_cre_txn_line_dtls_tbl(i).quantity := x_order_shipment_tbl(i).shipped_quantity ;
8406: x_cre_txn_line_dtls_tbl(i).unit_of_measure := x_order_shipment_tbl(i).transaction_uom ;
8407: x_cre_txn_line_dtls_tbl(i).serial_number := x_order_shipment_tbl(i).serial_number;
8400: x_cre_txn_line_dtls_tbl(i).inventory_item_id := x_order_shipment_tbl(i).inventory_item_id ;
8401: x_cre_txn_line_dtls_tbl(i).inv_organization_id := x_order_shipment_tbl(i).organization_id ;
8402: x_cre_txn_line_dtls_tbl(i).inventory_revision := x_order_shipment_tbl(i).revision ;
8403: x_cre_txn_line_dtls_tbl(i).item_condition_id := fnd_api.g_miss_num;
8404: x_cre_txn_line_dtls_tbl(i).instance_type_code := fnd_api.g_miss_char;
8405: x_cre_txn_line_dtls_tbl(i).quantity := x_order_shipment_tbl(i).shipped_quantity ;
8406: x_cre_txn_line_dtls_tbl(i).unit_of_measure := x_order_shipment_tbl(i).transaction_uom ;
8407: x_cre_txn_line_dtls_tbl(i).serial_number := x_order_shipment_tbl(i).serial_number;
8408: x_cre_txn_line_dtls_tbl(i).lot_number := x_order_shipment_tbl(i).lot_number;
8426:
8427: l_inst_party_id := csi_utl_pkg.get_instance_party_id(l_instance_id);
8428:
8429: IF l_inst_party_id = -1 THEN
8430: raise fnd_api.g_exc_error;
8431: END IF;
8432:
8433: -- assign values for the columns in txn_party_detail_tbl
8434: x_cre_txn_party_dtls_tbl(i).instance_party_id := l_inst_party_id;
8464: x_cre_txn_pty_acct_dtls_tbl(i).object_version_number := 1;
8465: x_cre_txn_pty_acct_dtls_tbl(i).txn_party_details_index := i;
8466:
8467: /*assign values for the columns in x_txn_org_assgn_tbl */
8468: IF nvl(x_order_shipment_tbl(i).sold_from_org_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
8469: THEN
8470: x_cre_txn_org_assgn_tbl(i).txn_operating_unit_id := fnd_api.g_miss_num;
8471: x_cre_txn_org_assgn_tbl(i).txn_line_detail_id := fnd_api.g_miss_num;
8472: x_cre_txn_org_assgn_tbl(i).instance_ou_id := fnd_api.g_miss_num;
8466:
8467: /*assign values for the columns in x_txn_org_assgn_tbl */
8468: IF nvl(x_order_shipment_tbl(i).sold_from_org_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
8469: THEN
8470: x_cre_txn_org_assgn_tbl(i).txn_operating_unit_id := fnd_api.g_miss_num;
8471: x_cre_txn_org_assgn_tbl(i).txn_line_detail_id := fnd_api.g_miss_num;
8472: x_cre_txn_org_assgn_tbl(i).instance_ou_id := fnd_api.g_miss_num;
8473: x_cre_txn_org_assgn_tbl(i).operating_unit_id := x_order_shipment_tbl(i).sold_from_org_id;
8474: x_cre_txn_org_assgn_tbl(i).relationship_type_code := 'SOLD_FROM';
8467: /*assign values for the columns in x_txn_org_assgn_tbl */
8468: IF nvl(x_order_shipment_tbl(i).sold_from_org_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
8469: THEN
8470: x_cre_txn_org_assgn_tbl(i).txn_operating_unit_id := fnd_api.g_miss_num;
8471: x_cre_txn_org_assgn_tbl(i).txn_line_detail_id := fnd_api.g_miss_num;
8472: x_cre_txn_org_assgn_tbl(i).instance_ou_id := fnd_api.g_miss_num;
8473: x_cre_txn_org_assgn_tbl(i).operating_unit_id := x_order_shipment_tbl(i).sold_from_org_id;
8474: x_cre_txn_org_assgn_tbl(i).relationship_type_code := 'SOLD_FROM';
8475: x_cre_txn_org_assgn_tbl(i).active_start_date := sysdate;
8468: IF nvl(x_order_shipment_tbl(i).sold_from_org_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
8469: THEN
8470: x_cre_txn_org_assgn_tbl(i).txn_operating_unit_id := fnd_api.g_miss_num;
8471: x_cre_txn_org_assgn_tbl(i).txn_line_detail_id := fnd_api.g_miss_num;
8472: x_cre_txn_org_assgn_tbl(i).instance_ou_id := fnd_api.g_miss_num;
8473: x_cre_txn_org_assgn_tbl(i).operating_unit_id := x_order_shipment_tbl(i).sold_from_org_id;
8474: x_cre_txn_org_assgn_tbl(i).relationship_type_code := 'SOLD_FROM';
8475: x_cre_txn_org_assgn_tbl(i).active_start_date := sysdate;
8476: x_cre_txn_org_assgn_tbl(i).preserve_detail_flag := 'Y';
8492:
8493: -- call api to create the transaction line details
8494: csi_t_txn_line_dtls_pvt.create_txn_line_dtls(
8495: p_api_version => 1.0 ,
8496: p_commit => fnd_api.g_false,
8497: p_init_msg_list => fnd_api.g_true,
8498: p_validation_level => fnd_api.g_valid_level_none,
8499: p_txn_line_dtl_index => l_index,
8500: p_txn_line_dtl_rec => x_txn_line_dtl_rec,
8493: -- call api to create the transaction line details
8494: csi_t_txn_line_dtls_pvt.create_txn_line_dtls(
8495: p_api_version => 1.0 ,
8496: p_commit => fnd_api.g_false,
8497: p_init_msg_list => fnd_api.g_true,
8498: p_validation_level => fnd_api.g_valid_level_none,
8499: p_txn_line_dtl_index => l_index,
8500: p_txn_line_dtl_rec => x_txn_line_dtl_rec,
8501: px_txn_party_dtl_tbl => x_cre_txn_party_dtls_tbl,
8494: csi_t_txn_line_dtls_pvt.create_txn_line_dtls(
8495: p_api_version => 1.0 ,
8496: p_commit => fnd_api.g_false,
8497: p_init_msg_list => fnd_api.g_true,
8498: p_validation_level => fnd_api.g_valid_level_none,
8499: p_txn_line_dtl_index => l_index,
8500: p_txn_line_dtl_rec => x_txn_line_dtl_rec,
8501: px_txn_party_dtl_tbl => x_cre_txn_party_dtls_tbl,
8502: px_txn_pty_acct_detail_tbl => x_cre_txn_pty_acct_dtls_tbl,
8506: x_return_status => x_return_status,
8507: x_msg_count => x_msg_count,
8508: x_msg_data => x_msg_data);
8509:
8510: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8511: raise fnd_api.g_exc_error;
8512: END IF;
8513:
8514: -- assign the txn details in the shipping pl/sql table
8507: x_msg_count => x_msg_count,
8508: x_msg_data => x_msg_data);
8509:
8510: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8511: raise fnd_api.g_exc_error;
8512: END IF;
8513:
8514: -- assign the txn details in the shipping pl/sql table
8515: x_order_shipment_tbl(i).txn_dtls_qty := x_order_shipment_tbl(i).shipped_quantity ;
8525: csi_utl_pkg.create_txn_dtls(
8526: p_source_trx_id => p_order_line_rec.order_line_id,
8527: p_source_trx_table => 'WSH_DELIVERY_DETAILS',
8528: x_return_status => l_return_status );
8529: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8530: raise fnd_api.g_exc_error;
8531: END IF;
8532: END IF;
8533:
8526: p_source_trx_id => p_order_line_rec.order_line_id,
8527: p_source_trx_table => 'WSH_DELIVERY_DETAILS',
8528: x_return_status => l_return_status );
8529: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8530: raise fnd_api.g_exc_error;
8531: END IF;
8532: END IF;
8533:
8534:
8534:
8535: END IF;
8536:
8537: EXCEPTION
8538: WHEN FND_API.G_EXC_ERROR THEN
8539: x_return_status := FND_API.G_RET_STS_ERROR ;
8540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8542: END process_option_item;
8535: END IF;
8536:
8537: EXCEPTION
8538: WHEN FND_API.G_EXC_ERROR THEN
8539: x_return_status := FND_API.G_RET_STS_ERROR ;
8540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8542: END process_option_item;
8543:
8536:
8537: EXCEPTION
8538: WHEN FND_API.G_EXC_ERROR THEN
8539: x_return_status := FND_API.G_RET_STS_ERROR ;
8540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8542: END process_option_item;
8543:
8544: /*----------------------------------------------------------*/
8537: EXCEPTION
8538: WHEN FND_API.G_EXC_ERROR THEN
8539: x_return_status := FND_API.G_RET_STS_ERROR ;
8540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8542: END process_option_item;
8543:
8544: /*----------------------------------------------------------*/
8545: /* Procedure name: rebuild_shipping_tbl */
8565:
8566: BEGIN
8567:
8568: -- Initialize API return status to success
8569: x_return_status := fnd_api.g_ret_sts_success;
8570:
8571: api_log('rebuild_shipping_tbl');
8572:
8573: l_order_shipment_tbl.delete;
8657:
8658: debug('x_order_shipment_tbl.count ='||x_order_shipment_tbl.count );
8659:
8660: EXCEPTION
8661: WHEN FND_API.G_EXC_ERROR THEN
8662: x_return_status := FND_API.G_RET_STS_ERROR ;
8663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8665: END rebuild_shipping_tbl;
8658: debug('x_order_shipment_tbl.count ='||x_order_shipment_tbl.count );
8659:
8660: EXCEPTION
8661: WHEN FND_API.G_EXC_ERROR THEN
8662: x_return_status := FND_API.G_RET_STS_ERROR ;
8663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8665: END rebuild_shipping_tbl;
8666:
8659:
8660: EXCEPTION
8661: WHEN FND_API.G_EXC_ERROR THEN
8662: x_return_status := FND_API.G_RET_STS_ERROR ;
8663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8665: END rebuild_shipping_tbl;
8666:
8667: /*----------------------------------------------------------*/
8660: EXCEPTION
8661: WHEN FND_API.G_EXC_ERROR THEN
8662: x_return_status := FND_API.G_RET_STS_ERROR ;
8663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8665: END rebuild_shipping_tbl;
8666:
8667: /*----------------------------------------------------------*/
8668: /* Procedure name :DECODE_MESSAGE */
8677: x_mtl_trx_rec OUT NOCOPY MTL_TXN_REC)
8678: IS
8679:
8680: l_api_name varchar2(100) := 'csi_order_ship_pub.decode_message';
8681: l_fnd_unexpected varchar2(1) := fnd_api.g_ret_sts_unexp_error;
8682: l_mtl_txn_id number;
8683: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
8684:
8685: BEGIN
8679:
8680: l_api_name varchar2(100) := 'csi_order_ship_pub.decode_message';
8681: l_fnd_unexpected varchar2(1) := fnd_api.g_ret_sts_unexp_error;
8682: l_mtl_txn_id number;
8683: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
8684:
8685: BEGIN
8686:
8687: -- Initialize API return status to success
8684:
8685: BEGIN
8686:
8687: -- Initialize API return status to success
8688: x_return_status := fnd_api.g_ret_sts_success;
8689:
8690: api_log('decode_message');
8691:
8692: xnp_xml_utils.decode(P_Msg_Text, 'MTL_TRANSACTION_ID', l_mtl_txn_id);
8691:
8692: xnp_xml_utils.decode(P_Msg_Text, 'MTL_TRANSACTION_ID', l_mtl_txn_id);
8693:
8694: IF (l_mtl_txn_id is NULL) or
8695: (l_mtl_txn_id = fnd_api.g_miss_num) THEN
8696: raise fnd_api.g_exc_error;
8697: END IF;
8698:
8699: csi_utl_pkg.get_source_trx_dtls(
8692: xnp_xml_utils.decode(P_Msg_Text, 'MTL_TRANSACTION_ID', l_mtl_txn_id);
8693:
8694: IF (l_mtl_txn_id is NULL) or
8695: (l_mtl_txn_id = fnd_api.g_miss_num) THEN
8696: raise fnd_api.g_exc_error;
8697: END IF;
8698:
8699: csi_utl_pkg.get_source_trx_dtls(
8700: p_mtl_transaction_id => l_mtl_txn_id,
8701: x_mtl_txn_rec => X_MTL_TRX_REC,
8702: x_error_message => x_error_message,
8703: x_return_status => l_return_status);
8704:
8705: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8706: raise fnd_api.g_exc_error;
8707: END IF;
8708:
8709: EXCEPTION
8702: x_error_message => x_error_message,
8703: x_return_status => l_return_status);
8704:
8705: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8706: raise fnd_api.g_exc_error;
8707: END IF;
8708:
8709: EXCEPTION
8710: WHEN fnd_api.g_exc_error THEN
8706: raise fnd_api.g_exc_error;
8707: END IF;
8708:
8709: EXCEPTION
8710: WHEN fnd_api.g_exc_error THEN
8711: fnd_message.set_name('CSI','CSI_DECODE_MGS_ERROR');
8712: fnd_message.set_token('message_id',p_msg_header.message_id);
8713: fnd_message.set_token('MESSAGE_CODE',p_msg_header.message_code);
8714: fnd_msg_pub.add;
8754: l_txn_systems_tbl csi_t_datastructures_grp.txn_systems_tbl;
8755:
8756: l_pricing_attribs_tbl csi_datastructures_pub.pricing_attribs_tbl;
8757:
8758: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
8759: l_return_message varchar2(2000);
8760: l_msg_count number;
8761: l_msg_data varchar2(2000);
8762:
8765: BEGIN
8766:
8767: savepoint oke_shipment;
8768:
8769: x_return_status := fnd_api.g_ret_sts_success;
8770: l_error_rec := px_trx_error_rec;
8771:
8772: /* builds the debug file name */
8773: csi_t_gen_utility_pvt.build_file_name (
8802: x_source_header_rec => l_source_header_rec,
8803: x_source_line_rec => l_source_line_rec,
8804: x_return_status => l_return_status);
8805:
8806: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8807: RAISE fnd_api.g_exc_error;
8808: END IF;
8809:
8810: l_error_rec.source_header_ref := l_source_header_rec.source_header_ref;
8803: x_source_line_rec => l_source_line_rec,
8804: x_return_status => l_return_status);
8805:
8806: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8807: RAISE fnd_api.g_exc_error;
8808: END IF;
8809:
8810: l_error_rec.source_header_ref := l_source_header_rec.source_header_ref;
8811: l_error_rec.source_header_ref_id := l_source_header_rec.source_header_id;
8821: p_organization_id => l_organization_id,
8822: x_item_attrib_rec => l_item_attrib_rec,
8823: x_return_status => l_return_status);
8824:
8825: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8826: RAISE fnd_api.g_exc_error;
8827: END IF;
8828:
8829: l_error_rec.inventory_item_id := l_inventory_item_id;
8822: x_item_attrib_rec => l_item_attrib_rec,
8823: x_return_status => l_return_status);
8824:
8825: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8826: RAISE fnd_api.g_exc_error;
8827: END IF;
8828:
8829: l_error_rec.inventory_item_id := l_inventory_item_id;
8830: l_error_rec.src_serial_num_ctrl_code := l_item_attrib_rec.serial_control_code;
8839: p_mtl_txn_id => p_mtl_txn_id,
8840: x_mtl_txn_tbl => l_mtl_txn_tbl,
8841: x_return_status => l_return_status);
8842:
8843: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8844: RAISE fnd_api.g_exc_error;
8845: END IF;
8846:
8847: IF l_mtl_txn_tbl.count > 0 THEN
8840: x_mtl_txn_tbl => l_mtl_txn_tbl,
8841: x_return_status => l_return_status);
8842:
8843: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8844: RAISE fnd_api.g_exc_error;
8845: END IF;
8846:
8847: IF l_mtl_txn_tbl.count > 0 THEN
8848:
8847: IF l_mtl_txn_tbl.count > 0 THEN
8848:
8849: -- create csi_txn_rec
8850:
8851: l_csi_txn_rec.transaction_id := fnd_api.g_miss_num;
8852: l_csi_txn_rec.source_header_ref_id := l_source_header_rec.source_header_id;
8853: l_csi_txn_rec.source_header_ref := l_source_header_rec.source_header_ref;
8854: l_csi_txn_rec.source_line_ref_id := l_source_line_rec.source_line_id;
8855: l_csi_txn_rec.source_line_ref := l_source_line_rec.source_line_ref;
8861: l_csi_txn_rec.transaction_status_code := 'PENDING';
8862:
8863: csi_transactions_pvt.create_transaction(
8864: p_api_version => 1.0,
8865: p_commit => fnd_api.g_false,
8866: p_init_msg_list => fnd_api.g_true,
8867: p_validation_level => fnd_api.g_valid_level_full,
8868: p_success_if_exists_flag => 'Y',
8869: p_transaction_rec => l_csi_txn_rec,
8862:
8863: csi_transactions_pvt.create_transaction(
8864: p_api_version => 1.0,
8865: p_commit => fnd_api.g_false,
8866: p_init_msg_list => fnd_api.g_true,
8867: p_validation_level => fnd_api.g_valid_level_full,
8868: p_success_if_exists_flag => 'Y',
8869: p_transaction_rec => l_csi_txn_rec,
8870: x_return_status => l_return_status,
8863: csi_transactions_pvt.create_transaction(
8864: p_api_version => 1.0,
8865: p_commit => fnd_api.g_false,
8866: p_init_msg_list => fnd_api.g_true,
8867: p_validation_level => fnd_api.g_valid_level_full,
8868: p_success_if_exists_flag => 'Y',
8869: p_transaction_rec => l_csi_txn_rec,
8870: x_return_status => l_return_status,
8871: x_msg_count => l_msg_count,
8875: p_item_attrib_rec => l_item_attrib_rec,
8876: px_mtl_txn_tbl => l_mtl_txn_tbl,
8877: x_return_status => l_return_status);
8878:
8879: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8880: RAISE fnd_api.g_exc_error;
8881: END IF;
8882:
8883: csi_interface_pkg.get_inventory_instances(
8876: px_mtl_txn_tbl => l_mtl_txn_tbl,
8877: x_return_status => l_return_status);
8878:
8879: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8880: RAISE fnd_api.g_exc_error;
8881: END IF;
8882:
8883: csi_interface_pkg.get_inventory_instances(
8884: p_item_attrib_rec => l_item_attrib_rec,
8884: p_item_attrib_rec => l_item_attrib_rec,
8885: px_mtl_txn_tbl => l_mtl_txn_tbl,
8886: x_return_status => l_return_status);
8887:
8888: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8889: RAISE fnd_api.g_exc_error;
8890: END IF;
8891:
8892: -- decrement source instances
8885: px_mtl_txn_tbl => l_mtl_txn_tbl,
8886: x_return_status => l_return_status);
8887:
8888: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8889: RAISE fnd_api.g_exc_error;
8890: END IF;
8891:
8892: -- decrement source instances
8893: csi_interface_pkg.decrement_inventory_instances(
8895: p_mtl_txn_tbl => l_mtl_txn_tbl,
8896: px_txn_rec => l_csi_txn_rec,
8897: x_return_status => l_return_status);
8898:
8899: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8900: RAISE fnd_api.g_exc_error;
8901: END IF;
8902:
8903: IF l_item_attrib_rec.serial_control_code = 6 THEN
8896: px_txn_rec => l_csi_txn_rec,
8897: x_return_status => l_return_status);
8898:
8899: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8900: RAISE fnd_api.g_exc_error;
8901: END IF;
8902:
8903: IF l_item_attrib_rec.serial_control_code = 6 THEN
8904: IF l_mtl_txn_tbl.count > 0 THEN
8912: AND serial_number = l_mtl_txn_tbl(ret_ind).serial_number
8913: AND instance_usage_code = 'RETURNED';
8914: EXCEPTION
8915: WHEN no_data_found THEN
8916: l_mtl_txn_tbl(ret_ind).instance_id := fnd_api.g_miss_num;
8917: END;
8918: END LOOP;
8919: END IF;
8920: END IF;
8932: x_txn_org_assgn_tbl => l_txn_org_assgn_tbl,
8933: x_pricing_attribs_tbl => l_pricing_attribs_tbl,
8934: x_return_status => l_return_status);
8935:
8936: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8937: RAISE fnd_api.g_exc_error;
8938: END IF;
8939:
8940: -- match transaction detail with material transaction
8933: x_pricing_attribs_tbl => l_pricing_attribs_tbl,
8934: x_return_status => l_return_status);
8935:
8936: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8937: RAISE fnd_api.g_exc_error;
8938: END IF;
8939:
8940: -- match transaction detail with material transaction
8941: csi_interface_pkg.sync_txn_dtl_and_mtl_txn(
8948: px_txn_eav_tbl => l_txn_eav_tbl,
8949: px_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
8950: x_return_status => l_return_status);
8951:
8952: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8953: RAISE fnd_api.g_exc_error;
8954: END IF;
8955:
8956: -- ##**##-- comment this line later.
8949: px_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
8950: x_return_status => l_return_status);
8951:
8952: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8953: RAISE fnd_api.g_exc_error;
8954: END IF;
8955:
8956: -- ##**##-- comment this line later.
8957: l_source_line_rec.fulfilled_date := sysdate;
8970: px_pricing_attribs_tbl => l_pricing_attribs_tbl,
8971: x_return_status => l_return_status,
8972: x_return_message => l_return_message);
8973:
8974: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8975: RAISE fnd_api.g_exc_error;
8976: END IF;
8977:
8978: ELSE
8971: x_return_status => l_return_status,
8972: x_return_message => l_return_message);
8973:
8974: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8975: RAISE fnd_api.g_exc_error;
8976: END IF;
8977:
8978: ELSE
8979: null;
8980: -- no material transaction records. error to be set
8981: END IF;
8982:
8983: EXCEPTION
8984: WHEN fnd_api.g_exc_error THEN
8985: rollback to oke_shipment;
8986: x_return_status := fnd_api.g_ret_sts_error;
8987: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
8988: px_trx_error_rec := l_error_rec;
8982:
8983: EXCEPTION
8984: WHEN fnd_api.g_exc_error THEN
8985: rollback to oke_shipment;
8986: x_return_status := fnd_api.g_ret_sts_error;
8987: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
8988: px_trx_error_rec := l_error_rec;
8989: debug('Error(E) :'||l_error_rec.error_text);
8990: WHEN others THEN
8991: rollback to oke_shipment;
8992: fnd_message.set_name ('FND', 'FND_GENERIC_MESSAGE');
8993: fnd_message.set_token('MESSAGE', 'OTHERS Error :'||substr(sqlerrm, 1, 540));
8994: fnd_msg_pub.add;
8995: x_return_status := fnd_api.g_ret_sts_error;
8996: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
8997: px_trx_error_rec := l_error_rec;
8998: debug('Error(O) :'||l_error_rec.error_text);
8999: END oke_shipment;