[Home] [Help]
56: x_sub_type_id OUT NOCOPY number,
57: x_return_status OUT NOCOPY varchar2)
58: IS
59: BEGIN
60: x_return_status := fnd_api.g_ret_sts_success;
61: api_log('get_default_sub_type_id');
62:
63: BEGIN
64: SELECT sub_type_id
70: WHEN no_data_found THEN
71: fnd_message.set_name('CSI', 'CSI_DFLT_SUB_TYPE_MISSING');
72: fnd_message.set_token('TXN_TYPE_ID',p_transaction_type_id);
73: fnd_msg_pub.add;
74: RAISE fnd_api.g_exc_error;
75: WHEN too_many_rows THEN
76: fnd_message.set_name('CSI', 'CSI_MANY_DFLT_SUB_TYPES');
77: fnd_message.set_token('TXN_TYPE_ID',p_transaction_type_id);
78: fnd_msg_pub.add;
75: WHEN too_many_rows THEN
76: fnd_message.set_name('CSI', 'CSI_MANY_DFLT_SUB_TYPES');
77: fnd_message.set_token('TXN_TYPE_ID',p_transaction_type_id);
78: fnd_msg_pub.add;
79: RAISE fnd_api.g_exc_error;
80: END;
81: EXCEPTION
82: WHEN fnd_api.g_exc_error THEN
83: x_return_status := fnd_api.g_ret_sts_error;
78: fnd_msg_pub.add;
79: RAISE fnd_api.g_exc_error;
80: END;
81: EXCEPTION
82: WHEN fnd_api.g_exc_error THEN
83: x_return_status := fnd_api.g_ret_sts_error;
84: END get_default_sub_type_id;
85:
86: /* this routine gets the first trackable parent (order line record) from the
79: RAISE fnd_api.g_exc_error;
80: END;
81: EXCEPTION
82: WHEN fnd_api.g_exc_error THEN
83: x_return_status := fnd_api.g_ret_sts_error;
84: END get_default_sub_type_id;
85:
86: /* this routine gets the first trackable parent (order line record) from the
87: sales order tree for the current processing order line */
100: l_next_parent_line_id number;
101: l_inventory_item_id number;
102: l_ib_trackable_flag varchar2(1) := 'N';
103:
104: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
105:
106: BEGIN
107:
108: x_return_status := fnd_api.g_ret_sts_success;
104: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
105:
106: BEGIN
107:
108: x_return_status := fnd_api.g_ret_sts_success;
109: api_log('get_ib_trackable_parent');
110:
111: x_parent_found := FALSE;
112:
140: x_source_header_rec => l_parent_hdr_rec,
141: x_source_line_rec => x_parent_line_rec,
142: x_return_status => l_return_status);
143:
144: IF l_return_status <> fnd_api.g_ret_sts_success THEN
145: RAISE fnd_api.g_exc_error;
146: END IF;
147:
148: x_parent_found := TRUE;
141: x_source_line_rec => x_parent_line_rec,
142: x_return_status => l_return_status);
143:
144: IF l_return_status <> fnd_api.g_ret_sts_success THEN
145: RAISE fnd_api.g_exc_error;
146: END IF;
147:
148: x_parent_found := TRUE;
149: exit;
158:
159: END IF;
160: END LOOP;
161: EXCEPTION
162: WHEN fnd_api.g_exc_error THEN
163: x_return_status := fnd_api.g_ret_sts_error;
164: END get_ib_trackable_parent;
165:
166:
159: END IF;
160: END LOOP;
161: EXCEPTION
162: WHEN fnd_api.g_exc_error THEN
163: x_return_status := fnd_api.g_ret_sts_error;
164: END get_ib_trackable_parent;
165:
166:
167: /* this routine gets the first trackable parent (order line record) that has the
178: l_parent_line_rec source_line_rec;
179: l_current_line_rec source_line_rec;
180: l_txn_line_rec csi_t_datastructures_grp.txn_line_rec;
181: l_td_found boolean := FALSE;
182: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
183: BEGIN
184:
185: x_return_status := fnd_api.g_ret_sts_success;
186:
181: l_td_found boolean := FALSE;
182: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
183: BEGIN
184:
185: x_return_status := fnd_api.g_ret_sts_success;
186:
187: api_log('get_parent_with_txn_detail');
188:
189: l_current_line_rec := p_source_line_rec;
195: x_parent_found => l_trackable_parent_found,
196: x_parent_line_rec => l_parent_line_rec,
197: x_return_status => l_return_status);
198:
199: IF l_return_status <> fnd_api.g_ret_sts_success THEN
200: RAISE fnd_api.g_exc_error;
201: END IF;
202:
203: IF NOT(l_trackable_parent_found) THEN
196: x_parent_line_rec => l_parent_line_rec,
197: x_return_status => l_return_status);
198:
199: IF l_return_status <> fnd_api.g_ret_sts_success THEN
200: RAISE fnd_api.g_exc_error;
201: END IF;
202:
203: IF NOT(l_trackable_parent_found) THEN
204: x_parent_found := FALSE;
231:
232: x_parent_line_rec := l_parent_line_rec;
233:
234: EXCEPTION
235: WHEN fnd_api.g_exc_error THEN
236: x_return_status := fnd_api.g_ret_sts_error;
237: END get_parent_with_txn_detail;
238:
239: PROCEDURE query_immediate_children (
232: x_parent_line_rec := l_parent_line_rec;
233:
234: EXCEPTION
235: WHEN fnd_api.g_exc_error THEN
236: x_return_status := fnd_api.g_ret_sts_error;
237: END get_parent_with_txn_detail;
238:
239: PROCEDURE query_immediate_children (
240: p_parent_line_id IN number,
244:
245: l_hdr_rec source_header_rec;
246: l_line_rec source_line_rec;
247:
248: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
249:
250: CURSOR op_cur is
251: SELECT line_id
252: FROM oe_order_lines_all
254: ORDER BY line_number, shipment_number;
255:
256: BEGIN
257:
258: x_return_status := fnd_api.g_ret_sts_success;
259: api_log('query_immediate_children');
260:
261: debug(' Getting children for Line ID :'||p_parent_line_id);
262:
279:
280: debug(' Children count :'||x_line_tbl.COUNT);
281:
282: EXCEPTION
283: WHEN fnd_api.g_exc_error THEN
284: x_return_status := fnd_api.g_ret_sts_error;
285: END query_immediate_children;
286:
287: PROCEDURE get_ib_trackable_children(
280: debug(' Children count :'||x_line_tbl.COUNT);
281:
282: EXCEPTION
283: WHEN fnd_api.g_exc_error THEN
284: x_return_status := fnd_api.g_ret_sts_error;
285: END query_immediate_children;
286:
287: PROCEDURE get_ib_trackable_children(
288: p_current_line_id IN number,
302: l_final_ind binary_integer;
303:
304: l_ib_trackable_flag varchar2(1);
305: l_config_found boolean := FALSE;
306: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
307:
308: BEGIN
309:
310: api_log('get_ib_trackable_children');
308: BEGIN
309:
310: api_log('get_ib_trackable_children');
311:
312: x_return_status := fnd_api.g_ret_sts_success;
313:
314: l_final_ind := 0;
315:
316: query_immediate_children (
394: END IF;
395: debug(' Trackable children count :'||x_trackable_line_tbl.count);
396:
397: EXCEPTION
398: WHEN fnd_api.g_exc_error THEN
399: x_return_status := fnd_api.g_ret_sts_success;
400: END get_ib_trackable_children;
401:
402: --
395: debug(' Trackable children count :'||x_trackable_line_tbl.count);
396:
397: EXCEPTION
398: WHEN fnd_api.g_exc_error THEN
399: x_return_status := fnd_api.g_ret_sts_success;
400: END get_ib_trackable_children;
401:
402: --
403: --
435: l_pty_dtl_tbl csi_t_datastructures_grp.txn_party_detail_tbl;
436: l_pty_acct_tbl csi_t_datastructures_grp.txn_pty_acct_detail_tbl;
437: l_org_assgn_tbl csi_t_datastructures_grp.txn_org_assgn_tbl;
438:
439: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
440: l_msg_data varchar2(512);
441: l_msg_count number;
442:
443: BEGIN
441: l_msg_count number;
442:
443: BEGIN
444:
445: x_return_status := fnd_api.g_ret_sts_success;
446:
447: api_log('cascade_txn_detail');
448:
449: l_txn_line_query_rec.source_transaction_table := g_om_source_table;
452: l_txn_line_detail_query_rec.source_transaction_flag := 'Y';
453:
454: csi_t_txn_details_grp.get_transaction_details(
455: p_api_version => 1.0,
456: p_commit => fnd_api.g_false,
457: p_init_msg_list => fnd_api.g_true,
458: p_validation_level => fnd_api.g_valid_level_full,
459: p_txn_line_query_rec => l_txn_line_query_rec,
460: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
453:
454: csi_t_txn_details_grp.get_transaction_details(
455: p_api_version => 1.0,
456: p_commit => fnd_api.g_false,
457: p_init_msg_list => fnd_api.g_true,
458: p_validation_level => fnd_api.g_valid_level_full,
459: p_txn_line_query_rec => l_txn_line_query_rec,
460: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
461: x_txn_line_detail_tbl => l_g_line_dtl_tbl,
454: csi_t_txn_details_grp.get_transaction_details(
455: p_api_version => 1.0,
456: p_commit => fnd_api.g_false,
457: p_init_msg_list => fnd_api.g_true,
458: p_validation_level => fnd_api.g_valid_level_full,
459: p_txn_line_query_rec => l_txn_line_query_rec,
460: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
461: x_txn_line_detail_tbl => l_g_line_dtl_tbl,
462: p_get_parties_flag => fnd_api.g_true,
458: p_validation_level => fnd_api.g_valid_level_full,
459: p_txn_line_query_rec => l_txn_line_query_rec,
460: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
461: x_txn_line_detail_tbl => l_g_line_dtl_tbl,
462: p_get_parties_flag => fnd_api.g_true,
463: x_txn_party_detail_tbl => l_g_pty_dtl_tbl,
464: p_get_pty_accts_flag => fnd_api.g_true,
465: x_txn_pty_acct_detail_tbl => l_g_pty_acct_tbl,
466: p_get_ii_rltns_flag => fnd_api.g_false,
460: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
461: x_txn_line_detail_tbl => l_g_line_dtl_tbl,
462: p_get_parties_flag => fnd_api.g_true,
463: x_txn_party_detail_tbl => l_g_pty_dtl_tbl,
464: p_get_pty_accts_flag => fnd_api.g_true,
465: x_txn_pty_acct_detail_tbl => l_g_pty_acct_tbl,
466: p_get_ii_rltns_flag => fnd_api.g_false,
467: x_txn_ii_rltns_tbl => l_g_ii_rltns_tbl,
468: p_get_org_assgns_flag => fnd_api.g_true,
462: p_get_parties_flag => fnd_api.g_true,
463: x_txn_party_detail_tbl => l_g_pty_dtl_tbl,
464: p_get_pty_accts_flag => fnd_api.g_true,
465: x_txn_pty_acct_detail_tbl => l_g_pty_acct_tbl,
466: p_get_ii_rltns_flag => fnd_api.g_false,
467: x_txn_ii_rltns_tbl => l_g_ii_rltns_tbl,
468: p_get_org_assgns_flag => fnd_api.g_true,
469: x_txn_org_assgn_tbl => l_g_org_assgn_tbl,
470: p_get_ext_attrib_vals_flag => fnd_api.g_false,
464: p_get_pty_accts_flag => fnd_api.g_true,
465: x_txn_pty_acct_detail_tbl => l_g_pty_acct_tbl,
466: p_get_ii_rltns_flag => fnd_api.g_false,
467: x_txn_ii_rltns_tbl => l_g_ii_rltns_tbl,
468: p_get_org_assgns_flag => fnd_api.g_true,
469: x_txn_org_assgn_tbl => l_g_org_assgn_tbl,
470: p_get_ext_attrib_vals_flag => fnd_api.g_false,
471: x_txn_ext_attrib_vals_tbl => l_g_ext_attrib_tbl,
472: p_get_csi_attribs_flag => fnd_api.g_false,
466: p_get_ii_rltns_flag => fnd_api.g_false,
467: x_txn_ii_rltns_tbl => l_g_ii_rltns_tbl,
468: p_get_org_assgns_flag => fnd_api.g_true,
469: x_txn_org_assgn_tbl => l_g_org_assgn_tbl,
470: p_get_ext_attrib_vals_flag => fnd_api.g_false,
471: x_txn_ext_attrib_vals_tbl => l_g_ext_attrib_tbl,
472: p_get_csi_attribs_flag => fnd_api.g_false,
473: x_csi_ext_attribs_tbl => l_g_csi_ea_tbl,
474: p_get_csi_iea_values_flag => fnd_api.g_false,
468: p_get_org_assgns_flag => fnd_api.g_true,
469: x_txn_org_assgn_tbl => l_g_org_assgn_tbl,
470: p_get_ext_attrib_vals_flag => fnd_api.g_false,
471: x_txn_ext_attrib_vals_tbl => l_g_ext_attrib_tbl,
472: p_get_csi_attribs_flag => fnd_api.g_false,
473: x_csi_ext_attribs_tbl => l_g_csi_ea_tbl,
474: p_get_csi_iea_values_flag => fnd_api.g_false,
475: x_csi_iea_values_tbl => l_g_csi_eav_tbl,
476: p_get_txn_systems_flag => fnd_api.g_false,
470: p_get_ext_attrib_vals_flag => fnd_api.g_false,
471: x_txn_ext_attrib_vals_tbl => l_g_ext_attrib_tbl,
472: p_get_csi_attribs_flag => fnd_api.g_false,
473: x_csi_ext_attribs_tbl => l_g_csi_ea_tbl,
474: p_get_csi_iea_values_flag => fnd_api.g_false,
475: x_csi_iea_values_tbl => l_g_csi_eav_tbl,
476: p_get_txn_systems_flag => fnd_api.g_false,
477: x_txn_systems_tbl => l_g_txn_systems_tbl,
478: x_return_status => l_return_status,
472: p_get_csi_attribs_flag => fnd_api.g_false,
473: x_csi_ext_attribs_tbl => l_g_csi_ea_tbl,
474: p_get_csi_iea_values_flag => fnd_api.g_false,
475: x_csi_iea_values_tbl => l_g_csi_eav_tbl,
476: p_get_txn_systems_flag => fnd_api.g_false,
477: x_txn_systems_tbl => l_g_txn_systems_tbl,
478: x_return_status => l_return_status,
479: x_msg_count => l_msg_count,
480: x_msg_data => l_msg_data);
478: x_return_status => l_return_status,
479: x_msg_count => l_msg_count,
480: x_msg_data => l_msg_data);
481:
482: IF l_return_status <> fnd_api.g_ret_sts_success THEN
483: RAISE fnd_api.g_exc_error;
484: END IF;
485:
486: l_c_td_ind := 0;
479: x_msg_count => l_msg_count,
480: x_msg_data => l_msg_data);
481:
482: IF l_return_status <> fnd_api.g_ret_sts_success THEN
483: RAISE fnd_api.g_exc_error;
484: END IF;
485:
486: l_c_td_ind := 0;
487: l_c_pt_ind := 0;
501: l_line_dtl_tbl(l_c_td_ind) := l_g_line_dtl_tbl(l_td_ind);
502: l_line_dtl_tbl(l_c_td_ind).quantity := p_child_line_rec.source_quantity/
503: p_parent_line_rec.source_quantity;
504:
505: l_line_dtl_tbl(l_c_td_ind).transaction_line_id := fnd_api.g_miss_num;
506: l_line_dtl_tbl(l_c_td_ind).txn_line_detail_id := fnd_api.g_miss_num;
507: l_line_dtl_tbl(l_c_td_ind).inventory_item_id := p_child_line_rec.inventory_item_id;
508: l_line_dtl_tbl(l_c_td_ind).unit_of_measure := p_child_line_rec.uom_code;
509: l_line_dtl_tbl(l_c_td_ind).inventory_revision := p_child_line_rec.item_revision;
502: l_line_dtl_tbl(l_c_td_ind).quantity := p_child_line_rec.source_quantity/
503: p_parent_line_rec.source_quantity;
504:
505: l_line_dtl_tbl(l_c_td_ind).transaction_line_id := fnd_api.g_miss_num;
506: l_line_dtl_tbl(l_c_td_ind).txn_line_detail_id := fnd_api.g_miss_num;
507: l_line_dtl_tbl(l_c_td_ind).inventory_item_id := p_child_line_rec.inventory_item_id;
508: l_line_dtl_tbl(l_c_td_ind).unit_of_measure := p_child_line_rec.uom_code;
509: l_line_dtl_tbl(l_c_td_ind).inventory_revision := p_child_line_rec.item_revision;
510: l_line_dtl_tbl(l_c_td_ind).csi_transaction_id := fnd_api.g_miss_num;
506: l_line_dtl_tbl(l_c_td_ind).txn_line_detail_id := fnd_api.g_miss_num;
507: l_line_dtl_tbl(l_c_td_ind).inventory_item_id := p_child_line_rec.inventory_item_id;
508: l_line_dtl_tbl(l_c_td_ind).unit_of_measure := p_child_line_rec.uom_code;
509: l_line_dtl_tbl(l_c_td_ind).inventory_revision := p_child_line_rec.item_revision;
510: l_line_dtl_tbl(l_c_td_ind).csi_transaction_id := fnd_api.g_miss_num;
511: l_line_dtl_tbl(l_c_td_ind).processing_status := 'SUBMIT';
512: l_line_dtl_tbl(l_c_td_ind).instance_exists_flag := 'N';
513: l_line_dtl_tbl(l_c_td_ind).instance_id := fnd_api.g_miss_num;
514: l_line_dtl_tbl(l_c_td_ind).source_txn_line_detail_id :=
509: l_line_dtl_tbl(l_c_td_ind).inventory_revision := p_child_line_rec.item_revision;
510: l_line_dtl_tbl(l_c_td_ind).csi_transaction_id := fnd_api.g_miss_num;
511: l_line_dtl_tbl(l_c_td_ind).processing_status := 'SUBMIT';
512: l_line_dtl_tbl(l_c_td_ind).instance_exists_flag := 'N';
513: l_line_dtl_tbl(l_c_td_ind).instance_id := fnd_api.g_miss_num;
514: l_line_dtl_tbl(l_c_td_ind).source_txn_line_detail_id :=
515: l_g_line_dtl_tbl(l_td_ind).txn_line_detail_id;
516:
517: -- derive the item related attributes here
525:
526: l_c_pt_ind := l_c_pt_ind + 1;
527:
528: l_pty_dtl_tbl(l_c_pt_ind) := l_g_pty_dtl_tbl(l_pt_ind);
529: l_pty_dtl_tbl(l_c_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
530: l_pty_dtl_tbl(l_c_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
531: l_pty_dtl_tbl(l_c_pt_ind).txn_line_details_index := l_c_td_ind;
532: l_pty_dtl_tbl(l_c_pt_ind).instance_party_id := fnd_api.g_miss_num;
533:
526: l_c_pt_ind := l_c_pt_ind + 1;
527:
528: l_pty_dtl_tbl(l_c_pt_ind) := l_g_pty_dtl_tbl(l_pt_ind);
529: l_pty_dtl_tbl(l_c_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
530: l_pty_dtl_tbl(l_c_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
531: l_pty_dtl_tbl(l_c_pt_ind).txn_line_details_index := l_c_td_ind;
532: l_pty_dtl_tbl(l_c_pt_ind).instance_party_id := fnd_api.g_miss_num;
533:
534: IF l_g_pty_acct_tbl.COUNT > 0 THEN
528: l_pty_dtl_tbl(l_c_pt_ind) := l_g_pty_dtl_tbl(l_pt_ind);
529: l_pty_dtl_tbl(l_c_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
530: l_pty_dtl_tbl(l_c_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
531: l_pty_dtl_tbl(l_c_pt_ind).txn_line_details_index := l_c_td_ind;
532: l_pty_dtl_tbl(l_c_pt_ind).instance_party_id := fnd_api.g_miss_num;
533:
534: IF l_g_pty_acct_tbl.COUNT > 0 THEN
535:
536: FOR l_pa_ind IN l_g_pty_acct_tbl.FIRST .. l_g_pty_acct_tbl.LAST
540:
541: l_c_pa_ind := l_c_pa_ind + 1;
542:
543: l_pty_acct_tbl(l_c_pa_ind) := l_g_pty_acct_tbl(l_pa_ind);
544: l_pty_acct_tbl(l_c_pa_ind).txn_party_detail_id := fnd_api.g_miss_num;
545: l_pty_acct_tbl(l_c_pa_ind).txn_account_detail_id := fnd_api.g_miss_num;
546: l_pty_acct_tbl(l_c_pa_ind).txn_party_details_index := l_c_pt_ind;
547: l_pty_acct_tbl(l_c_pa_ind).ip_account_id := fnd_api.g_miss_num;
548:
541: l_c_pa_ind := l_c_pa_ind + 1;
542:
543: l_pty_acct_tbl(l_c_pa_ind) := l_g_pty_acct_tbl(l_pa_ind);
544: l_pty_acct_tbl(l_c_pa_ind).txn_party_detail_id := fnd_api.g_miss_num;
545: l_pty_acct_tbl(l_c_pa_ind).txn_account_detail_id := fnd_api.g_miss_num;
546: l_pty_acct_tbl(l_c_pa_ind).txn_party_details_index := l_c_pt_ind;
547: l_pty_acct_tbl(l_c_pa_ind).ip_account_id := fnd_api.g_miss_num;
548:
549: END IF; -- pty acct detail id chk
543: l_pty_acct_tbl(l_c_pa_ind) := l_g_pty_acct_tbl(l_pa_ind);
544: l_pty_acct_tbl(l_c_pa_ind).txn_party_detail_id := fnd_api.g_miss_num;
545: l_pty_acct_tbl(l_c_pa_ind).txn_account_detail_id := fnd_api.g_miss_num;
546: l_pty_acct_tbl(l_c_pa_ind).txn_party_details_index := l_c_pt_ind;
547: l_pty_acct_tbl(l_c_pa_ind).ip_account_id := fnd_api.g_miss_num;
548:
549: END IF; -- pty acct detail id chk
550:
551: END LOOP; -- party acct table loop
565: l_g_line_dtl_tbl(l_td_ind).txn_line_detail_id THEN
566:
567: l_c_oa_ind := l_c_oa_ind + 1;
568: l_org_assgn_tbl(l_c_oa_ind) := l_g_org_assgn_tbl(l_oa_ind);
569: l_org_assgn_tbl(l_c_oa_ind).txn_line_detail_id := fnd_api.g_miss_num;
570: l_org_assgn_tbl(l_c_oa_ind).txn_operating_unit_id := fnd_api.g_miss_num;
571: l_org_assgn_tbl(l_c_oa_ind).txn_line_details_index := l_c_td_ind;
572: l_org_assgn_tbl(l_c_oa_ind).instance_ou_id := fnd_api.g_miss_num;
573:
566:
567: l_c_oa_ind := l_c_oa_ind + 1;
568: l_org_assgn_tbl(l_c_oa_ind) := l_g_org_assgn_tbl(l_oa_ind);
569: l_org_assgn_tbl(l_c_oa_ind).txn_line_detail_id := fnd_api.g_miss_num;
570: l_org_assgn_tbl(l_c_oa_ind).txn_operating_unit_id := fnd_api.g_miss_num;
571: l_org_assgn_tbl(l_c_oa_ind).txn_line_details_index := l_c_td_ind;
572: l_org_assgn_tbl(l_c_oa_ind).instance_ou_id := fnd_api.g_miss_num;
573:
574: END IF;
568: l_org_assgn_tbl(l_c_oa_ind) := l_g_org_assgn_tbl(l_oa_ind);
569: l_org_assgn_tbl(l_c_oa_ind).txn_line_detail_id := fnd_api.g_miss_num;
570: l_org_assgn_tbl(l_c_oa_ind).txn_operating_unit_id := fnd_api.g_miss_num;
571: l_org_assgn_tbl(l_c_oa_ind).txn_line_details_index := l_c_td_ind;
572: l_org_assgn_tbl(l_c_oa_ind).instance_ou_id := fnd_api.g_miss_num;
573:
574: END IF;
575: END LOOP;
576: END IF;
583: x_txn_party_acct_tbl := l_pty_acct_tbl;
584: x_txn_org_assgn_tbl := l_org_assgn_tbl;
585:
586: EXCEPTION
587: WHEN fnd_api.g_exc_error THEN
588: x_return_status := fnd_api.g_ret_sts_error;
589: END cascade_txn_detail;
590:
591: PROCEDURE get_item_attributes(
584: x_txn_org_assgn_tbl := l_org_assgn_tbl;
585:
586: EXCEPTION
587: WHEN fnd_api.g_exc_error THEN
588: x_return_status := fnd_api.g_ret_sts_error;
589: END cascade_txn_detail;
590:
591: PROCEDURE get_item_attributes(
592: p_inventory_item_id IN number,
600: l_status VARCHAR2(1);
601: l_industry VARCHAR2(1);
602: l_oracle_schema VARCHAR2(30);
603: BEGIN
604: x_return_status := fnd_api.g_ret_sts_success;
605: api_log('get_item_attributes');
606:
607: -- get item based attributes
608: SELECT serial_number_control_code,
642:
643: IF NOT l_return THEN
644: fnd_message.set_name('CSI','CSI_FND_INVALID_SCHEMA_ERROR');
645: fnd_msg_pub.add;
646: RAISE fnd_api.g_exc_error;
647: END IF;
648: -- End fix for Bug 3431768
649:
650: Begin
717: debug(' shippable_flag : '||x_item_attrib_rec.shippable_flag);
718: debug(' primary_uom_code : '||x_item_attrib_rec.primary_uom_code);
719:
720: EXCEPTION
721: WHEN fnd_api.g_exc_error THEN
722: x_return_status := fnd_api.g_ret_sts_error;
723: END get_item_attributes;
724:
725:
718: debug(' primary_uom_code : '||x_item_attrib_rec.primary_uom_code);
719:
720: EXCEPTION
721: WHEN fnd_api.g_exc_error THEN
722: x_return_status := fnd_api.g_ret_sts_error;
723: END get_item_attributes;
724:
725:
726: --
841: WHERE line_id = p_line_id ;
842:
843: BEGIN
844:
845: x_return_status := fnd_api.g_ret_sts_success;
846:
847: api_log('get_pricing_attributes');
848:
849: -- Build the pricing attribute table
958:
959: x_pricing_attribs_tbl := l_pa_tbl;
960:
961: EXCEPTION
962: WHEN fnd_api.g_exc_error THEN
963: x_return_status := fnd_api.g_ret_sts_error;
964: END get_pricing_attributes;
965:
966:
959: x_pricing_attribs_tbl := l_pa_tbl;
960:
961: EXCEPTION
962: WHEN fnd_api.g_exc_error THEN
963: x_return_status := fnd_api.g_ret_sts_error;
964: END get_pricing_attributes;
965:
966:
967: PROCEDURE build_td_from_source(
981: x_return_status OUT NOCOPY varchar2)
982: IS
983:
984: l_default_sub_type_id number;
985: l_split_flag varchar2(1) := fnd_api.g_false;
986: l_split_quantity number;
987: l_split_loop number;
988:
989: l_td_ind binary_integer := 0;
996: -- for partner ordering Bug 3443175
997: l_partner_rec oe_install_base_util.partner_order_rec;
998:
999: l_item_attributes_rec item_attributes_rec;
1000: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1001:
1002: BEGIN
1003:
1004: x_return_status := fnd_api.g_ret_sts_success;
1000: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1001:
1002: BEGIN
1003:
1004: x_return_status := fnd_api.g_ret_sts_success;
1005:
1006: api_log('build_td_from_source');
1007:
1008: -- get the default sub_type_id
1012: x_return_status => l_return_status);
1013:
1014: x_txn_line_rec.source_transaction_type_id := p_transaction_type_id;
1015:
1016: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1017: RAISE fnd_api.g_exc_error;
1018: END IF;
1019:
1020: -- for partner ordering MRK
1013:
1014: x_txn_line_rec.source_transaction_type_id := p_transaction_type_id;
1015:
1016: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1017: RAISE fnd_api.g_exc_error;
1018: END IF;
1019:
1020: -- for partner ordering MRK
1021: -- Included the If condition for Bug 3893279, Don't call this for project Contracts
1027:
1028:
1029: l_split_flag := p_split_flag;
1030:
1031: IF l_split_flag = fnd_api.g_false THEN
1032:
1033: get_item_attributes(
1034: p_inventory_item_id => p_source_line_rec.inventory_item_id,
1035: p_organization_id => p_source_line_rec.organization_id,
1035: p_organization_id => p_source_line_rec.organization_id,
1036: x_item_attrib_rec => l_item_attributes_rec,
1037: x_return_status => l_return_status);
1038:
1039: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1040: RAISE fnd_api.g_exc_error;
1041: END IF;
1042:
1043: IF l_item_attributes_rec.serial_control_code <> 1 then
1036: x_item_attrib_rec => l_item_attributes_rec,
1037: x_return_status => l_return_status);
1038:
1039: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1040: RAISE fnd_api.g_exc_error;
1041: END IF;
1042:
1043: IF l_item_attributes_rec.serial_control_code <> 1 then
1044: l_split_flag := fnd_api.g_true;
1040: RAISE fnd_api.g_exc_error;
1041: END IF;
1042:
1043: IF l_item_attributes_rec.serial_control_code <> 1 then
1044: l_split_flag := fnd_api.g_true;
1045: l_split_quantity := 1;
1046: l_split_loop := p_source_line_rec.source_quantity;
1047: END IF;
1048:
1045: l_split_quantity := 1;
1046: l_split_loop := p_source_line_rec.source_quantity;
1047: END IF;
1048:
1049: IF l_split_flag = fnd_api.g_false THEN
1050: l_split_quantity := p_source_line_rec.source_quantity;
1051: l_split_loop := 1;
1052: END IF;
1053:
1065: LOOP
1066:
1067: l_td_ind := i;
1068:
1069: x_txn_line_detail_tbl(l_td_ind).transaction_line_id := fnd_api.g_miss_num;
1070: x_txn_line_detail_tbl(l_td_ind).txn_line_detail_id := fnd_api.g_miss_num;
1071: x_txn_line_detail_tbl(l_td_ind).sub_type_id := l_default_sub_type_id;
1072: x_txn_line_detail_tbl(l_td_ind).inventory_item_id := p_source_line_rec.inventory_item_id;
1073: x_txn_line_detail_tbl(l_td_ind).source_transaction_flag := 'Y';
1066:
1067: l_td_ind := i;
1068:
1069: x_txn_line_detail_tbl(l_td_ind).transaction_line_id := fnd_api.g_miss_num;
1070: x_txn_line_detail_tbl(l_td_ind).txn_line_detail_id := fnd_api.g_miss_num;
1071: x_txn_line_detail_tbl(l_td_ind).sub_type_id := l_default_sub_type_id;
1072: x_txn_line_detail_tbl(l_td_ind).inventory_item_id := p_source_line_rec.inventory_item_id;
1073: x_txn_line_detail_tbl(l_td_ind).source_transaction_flag := 'Y';
1074: x_txn_line_detail_tbl(l_td_ind).inv_organization_id := p_source_line_rec.organization_id;
1078:
1079: -- Added IF condition for Bug 4314464
1080: IF l_partner_rec.IB_CURRENT_LOCATION = 'INSTALL_BASE'
1081: THEN
1082: x_txn_line_detail_tbl(l_td_ind).location_type_code := fnd_api.g_miss_char;
1083: x_txn_line_detail_tbl(l_td_ind).location_id := fnd_api.g_miss_num;
1084: ELSE
1085: x_txn_line_detail_tbl(l_td_ind).location_type_code := 'HZ_PARTY_SITES';
1086: x_txn_line_detail_tbl(l_td_ind).location_id := p_source_line_rec.ship_to_party_site_id;
1079: -- Added IF condition for Bug 4314464
1080: IF l_partner_rec.IB_CURRENT_LOCATION = 'INSTALL_BASE'
1081: THEN
1082: x_txn_line_detail_tbl(l_td_ind).location_type_code := fnd_api.g_miss_char;
1083: x_txn_line_detail_tbl(l_td_ind).location_id := fnd_api.g_miss_num;
1084: ELSE
1085: x_txn_line_detail_tbl(l_td_ind).location_type_code := 'HZ_PARTY_SITES';
1086: x_txn_line_detail_tbl(l_td_ind).location_id := p_source_line_rec.ship_to_party_site_id;
1087: END IF;
1089: -- Added for partner ordering
1090: -- Added IF condition for Bug 4314464
1091: IF l_partner_rec.IB_INSTALLED_AT_LOCATION = 'INSTALL_BASE'
1092: THEN
1093: x_txn_line_detail_tbl(l_td_ind).install_location_type_code := fnd_api.g_miss_char;
1094: x_txn_line_detail_tbl(l_td_ind).install_location_id := fnd_api.g_miss_num;
1095: ELSE
1096: x_txn_line_detail_tbl(l_td_ind).install_location_type_code := 'HZ_PARTY_SITES';
1097: x_txn_line_detail_tbl(l_td_ind).install_location_id := p_source_line_rec.install_to_party_site_id;
1090: -- Added IF condition for Bug 4314464
1091: IF l_partner_rec.IB_INSTALLED_AT_LOCATION = 'INSTALL_BASE'
1092: THEN
1093: x_txn_line_detail_tbl(l_td_ind).install_location_type_code := fnd_api.g_miss_char;
1094: x_txn_line_detail_tbl(l_td_ind).install_location_id := fnd_api.g_miss_num;
1095: ELSE
1096: x_txn_line_detail_tbl(l_td_ind).install_location_type_code := 'HZ_PARTY_SITES';
1097: x_txn_line_detail_tbl(l_td_ind).install_location_id := p_source_line_rec.install_to_party_site_id;
1098: END IF;
1105: -- build owner party record
1106: l_pt_ind := l_pt_ind + 1;
1107: l_owner_pt_ind := l_pt_ind;
1108:
1109: x_txn_party_tbl(l_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
1110: x_txn_party_tbl(l_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
1111: x_txn_party_tbl(l_pt_ind).txn_line_details_index := l_td_ind;
1112: x_txn_party_tbl(l_pt_ind).party_source_table := 'HZ_PARTIES';
1113:
1106: l_pt_ind := l_pt_ind + 1;
1107: l_owner_pt_ind := l_pt_ind;
1108:
1109: x_txn_party_tbl(l_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
1110: x_txn_party_tbl(l_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
1111: x_txn_party_tbl(l_pt_ind).txn_line_details_index := l_td_ind;
1112: x_txn_party_tbl(l_pt_ind).party_source_table := 'HZ_PARTIES';
1113:
1114: -- For Bug 3443175.
1113:
1114: -- For Bug 3443175.
1115: IF l_partner_rec.IB_OWNER = 'INSTALL_BASE'
1116: THEN
1117: x_txn_party_tbl(l_pt_ind).party_source_id := fnd_api.g_miss_num;
1118: ELSE
1119: x_txn_party_tbl(l_pt_ind).party_source_id := p_source_line_rec.owner_party_id;
1120: END IF;
1121:
1124: x_txn_party_tbl(l_pt_ind).object_version_number := 1.0;
1125:
1126: -- build owner party account record
1127: l_pa_ind := l_pa_ind + 1;
1128: x_txn_party_acct_tbl(l_pa_ind).txn_party_detail_id := fnd_api.g_miss_num;
1129: x_txn_party_acct_tbl(l_pa_ind).txn_account_detail_id := fnd_api.g_miss_num;
1130: x_txn_party_acct_tbl(l_pa_ind).txn_party_details_index := l_owner_pt_ind;
1131:
1132: -- For Bug 3443175.
1125:
1126: -- build owner party account record
1127: l_pa_ind := l_pa_ind + 1;
1128: x_txn_party_acct_tbl(l_pa_ind).txn_party_detail_id := fnd_api.g_miss_num;
1129: x_txn_party_acct_tbl(l_pa_ind).txn_account_detail_id := fnd_api.g_miss_num;
1130: x_txn_party_acct_tbl(l_pa_ind).txn_party_details_index := l_owner_pt_ind;
1131:
1132: -- For Bug 3443175.
1133: IF l_partner_rec.IB_OWNER = 'INSTALL_BASE'
1131:
1132: -- For Bug 3443175.
1133: IF l_partner_rec.IB_OWNER = 'INSTALL_BASE'
1134: THEN
1135: x_txn_party_acct_tbl(l_pa_ind).account_id := fnd_api.g_miss_num;
1136: ELSE
1137: x_txn_party_acct_tbl(l_pa_ind).account_id := p_source_line_rec.owner_party_account_id;
1138: END IF;
1139:
1152: IF p_source_line_rec.ship_to_contact_party_id is not null THEN
1153:
1154: l_pt_ind := l_pt_ind + 1;
1155:
1156: x_txn_party_tbl(l_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
1157: x_txn_party_tbl(l_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
1158: x_txn_party_tbl(l_pt_ind).txn_line_details_index := l_td_ind;
1159: x_txn_party_tbl(l_pt_ind).party_source_table := 'HZ_PARTIES';
1160: x_txn_party_tbl(l_pt_ind).party_source_id :=
1153:
1154: l_pt_ind := l_pt_ind + 1;
1155:
1156: x_txn_party_tbl(l_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
1157: x_txn_party_tbl(l_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
1158: x_txn_party_tbl(l_pt_ind).txn_line_details_index := l_td_ind;
1159: x_txn_party_tbl(l_pt_ind).party_source_table := 'HZ_PARTIES';
1160: x_txn_party_tbl(l_pt_ind).party_source_id :=
1161: p_source_line_rec.ship_to_contact_party_id;
1170: IF p_source_line_rec.bill_to_contact_party_id is not null THEN
1171:
1172: l_pt_ind := l_pt_ind + 1;
1173:
1174: x_txn_party_tbl(l_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
1175: x_txn_party_tbl(l_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
1176: x_txn_party_tbl(l_pt_ind).txn_line_details_index := l_td_ind;
1177: x_txn_party_tbl(l_pt_ind).party_source_table := 'HZ_PARTIES';
1178: x_txn_party_tbl(l_pt_ind).party_source_id :=
1171:
1172: l_pt_ind := l_pt_ind + 1;
1173:
1174: x_txn_party_tbl(l_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
1175: x_txn_party_tbl(l_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
1176: x_txn_party_tbl(l_pt_ind).txn_line_details_index := l_td_ind;
1177: x_txn_party_tbl(l_pt_ind).party_source_table := 'HZ_PARTIES';
1178: x_txn_party_tbl(l_pt_ind).party_source_id :=
1179: p_source_line_rec.bill_to_contact_party_id;
1186:
1187: -- build org units
1188: IF p_source_line_rec.sold_from_org_id is not null THEN
1189: l_oa_ind := l_oa_ind + 1;
1190: x_txn_org_assgn_tbl(l_oa_ind).txn_line_detail_id := fnd_api.g_miss_num;
1191: x_txn_org_assgn_tbl(l_oa_ind).txn_line_details_index := l_td_ind;
1192: x_txn_org_assgn_tbl(l_oa_ind).operating_unit_id :=
1193: p_source_line_rec.sold_from_org_id;
1194: x_txn_org_assgn_tbl(l_oa_ind).relationship_type_code := 'SOLD_FROM';
1253: l_csi_ea_tbl csi_t_datastructures_grp.csi_ext_attribs_tbl;
1254: l_csi_eav_tbl csi_t_datastructures_grp.csi_ext_attrib_vals_tbl;
1255: l_txn_systems_tbl csi_t_datastructures_grp.txn_systems_tbl;
1256:
1257: l_split_flag varchar2(1) := fnd_api.g_false;
1258: l_split_quantity number := 1;
1259: l_split_loop number := 1;
1260:
1261: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1257: l_split_flag varchar2(1) := fnd_api.g_false;
1258: l_split_quantity number := 1;
1259: l_split_loop number := 1;
1260:
1261: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1262: l_msg_count number;
1263: l_msg_data varchar2(2000);
1264: l_transaction_type_id number;
1265:
1264: l_transaction_type_id number;
1265:
1266: BEGIN
1267:
1268: x_return_status := fnd_api.g_ret_sts_success;
1269:
1270: api_log('build_default_txn_detail');
1271:
1272: IF p_source_table = g_om_source_table THEN
1274: px_txn_line_rec.source_transaction_id := p_source_line_rec.source_line_id;
1275: px_txn_line_rec.source_transaction_table := g_om_source_table;
1276:
1277: --IF condition added for bug 5194812--
1278: IF nvl(px_txn_line_rec.source_transaction_type_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
1279: px_txn_line_rec.source_transaction_type_id := g_om_txn_type_id;
1280: END IF;
1281:
1282: px_txn_line_rec.processing_status := 'SUBMIT';
1291: x_parent_found => l_parent_td_found,
1292: x_parent_line_rec => l_parent_td_line_rec,
1293: x_return_status => l_return_status);
1294:
1295: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1296: RAISE fnd_api.g_exc_error;
1297: END IF;
1298:
1299: IF l_parent_td_found THEN
1292: x_parent_line_rec => l_parent_td_line_rec,
1293: x_return_status => l_return_status);
1294:
1295: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1296: RAISE fnd_api.g_exc_error;
1297: END IF;
1298:
1299: IF l_parent_td_found THEN
1300: debug(' Parent with transaction detail found. Line ID :'||l_parent_td_line_rec.source_line_id);
1307: x_txn_party_acct_tbl => l_pty_acct_tbl,
1308: x_txn_org_assgn_tbl => l_org_assgn_tbl,
1309: x_return_status => l_return_status);
1310:
1311: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1312: RAISE fnd_api.g_exc_error;
1313: END IF;
1314:
1315: l_cascade_flag := TRUE;
1308: x_txn_org_assgn_tbl => l_org_assgn_tbl,
1309: x_return_status => l_return_status);
1310:
1311: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1312: RAISE fnd_api.g_exc_error;
1313: END IF;
1314:
1315: l_cascade_flag := TRUE;
1316:
1339: px_txn_org_assgn_tbl => x_txn_org_assgn_tbl,
1340: x_pricing_attribs_tbl => x_pricing_attribs_tbl,
1341: x_return_status => l_return_status);
1342:
1343: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1344: RAISE fnd_api.g_exc_error;
1345: END IF;
1346:
1347: ELSE -- not(l_cascade_flag) not cascaded from the parent
1340: x_pricing_attribs_tbl => x_pricing_attribs_tbl,
1341: x_return_status => l_return_status);
1342:
1343: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1344: RAISE fnd_api.g_exc_error;
1345: END IF;
1346:
1347: ELSE -- not(l_cascade_flag) not cascaded from the parent
1348:
1356: x_parent_found => l_trackable_parent_found,
1357: x_parent_line_rec => l_parent_line_rec,
1358: x_return_status => l_return_status);
1359:
1360: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1361: RAISE fnd_api.g_exc_error;
1362: END IF;
1363:
1364: IF l_trackable_parent_found THEN
1357: x_parent_line_rec => l_parent_line_rec,
1358: x_return_status => l_return_status);
1359:
1360: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1361: RAISE fnd_api.g_exc_error;
1362: END IF;
1363:
1364: IF l_trackable_parent_found THEN
1365: l_split_flag := fnd_api.g_true;
1361: RAISE fnd_api.g_exc_error;
1362: END IF;
1363:
1364: IF l_trackable_parent_found THEN
1365: l_split_flag := fnd_api.g_true;
1366: l_split_quantity := p_source_line_rec.source_quantity/l_parent_line_rec.source_quantity;
1367: l_split_loop := l_parent_line_rec.source_quantity;
1368: END IF;
1369:
1375: p_current_line_id => p_source_line_rec.source_line_id,
1376: x_trackable_line_tbl => l_child_order_line_tbl,
1377: x_return_status => l_return_status);
1378:
1379: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1380: RAISE fnd_api.g_exc_error;
1381: END IF;
1382:
1383: IF l_child_order_line_tbl.COUNT > 0 THEN
1376: x_trackable_line_tbl => l_child_order_line_tbl,
1377: x_return_status => l_return_status);
1378:
1379: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1380: RAISE fnd_api.g_exc_error;
1381: END IF;
1382:
1383: IF l_child_order_line_tbl.COUNT > 0 THEN
1384: l_split_flag := fnd_api.g_true;
1380: RAISE fnd_api.g_exc_error;
1381: END IF;
1382:
1383: IF l_child_order_line_tbl.COUNT > 0 THEN
1384: l_split_flag := fnd_api.g_true;
1385: l_split_quantity := 1;
1386: l_split_loop := p_source_line_rec.source_quantity;
1387: END IF;
1388:
1406: x_txn_org_assgn_tbl => x_txn_org_assgn_tbl,
1407: x_pricing_attribs_tbl => x_pricing_attribs_tbl,
1408: x_return_status => l_return_status);
1409:
1410: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1411: RAISE fnd_api.g_exc_error;
1412: END IF;
1413:
1414: END IF; -- cascade check
1407: x_pricing_attribs_tbl => x_pricing_attribs_tbl,
1408: x_return_status => l_return_status);
1409:
1410: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1411: RAISE fnd_api.g_exc_error;
1412: END IF;
1413:
1414: END IF; -- cascade check
1415: --
1414: END IF; -- cascade check
1415: --
1416: ELSIF p_source_table = g_oke_source_table THEN
1417:
1418: l_split_flag := fnd_api.g_false;
1419: l_split_quantity := p_source_line_rec.source_quantity;
1420: l_split_loop := 1;
1421:
1422: build_td_from_source(
1434: x_txn_org_assgn_tbl => x_txn_org_assgn_tbl,
1435: x_pricing_attribs_tbl => x_pricing_attribs_tbl,
1436: x_return_status => l_return_status);
1437:
1438: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1439: RAISE fnd_api.g_exc_error;
1440: END IF;
1441:
1442: END IF;
1435: x_pricing_attribs_tbl => x_pricing_attribs_tbl,
1436: x_return_status => l_return_status);
1437:
1438: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1439: RAISE fnd_api.g_exc_error;
1440: END IF;
1441:
1442: END IF;
1443:
1446: p_line_id => p_source_line_rec.source_line_id,
1447: x_pricing_attribs_tbl => x_pricing_attribs_tbl,
1448: x_return_status => l_return_status);
1449:
1450: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1451: RAISE fnd_api.g_exc_error;
1452: END IF;
1453:
1454: EXCEPTION
1447: x_pricing_attribs_tbl => x_pricing_attribs_tbl,
1448: x_return_status => l_return_status);
1449:
1450: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1451: RAISE fnd_api.g_exc_error;
1452: END IF;
1453:
1454: EXCEPTION
1455: WHEN fnd_api.g_exc_error THEN
1451: RAISE fnd_api.g_exc_error;
1452: END IF;
1453:
1454: EXCEPTION
1455: WHEN fnd_api.g_exc_error THEN
1456: x_return_status := fnd_api.g_ret_sts_error;
1457: END build_default_txn_detail;
1458:
1459:
1452: END IF;
1453:
1454: EXCEPTION
1455: WHEN fnd_api.g_exc_error THEN
1456: x_return_status := fnd_api.g_ret_sts_error;
1457: END build_default_txn_detail;
1458:
1459:
1460: /* ------------------------------------------------------------------- */
1502: l_n_pa_ind binary_integer := 0;
1503: l_oa_n_ind binary_integer := 0;
1504:
1505: BEGIN
1506: x_return_status := fnd_api.g_ret_sts_success;
1507: api_log('rebuild_txn_detail');
1508:
1509: -- convert all the ids to indexes
1510:
1615: THEN
1616:
1617: l_n_pt_ind := l_pty_tbl.count + 1;
1618:
1619: l_pty_tbl(l_n_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
1620: l_pty_tbl(l_n_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
1621: l_pty_tbl(l_n_pt_ind).txn_line_details_index := l_ind;
1622: l_pty_tbl(l_n_pt_ind).party_source_table := 'HZ_PARTIES';
1623: l_pty_tbl(l_n_pt_ind).party_source_id := p_source_line_rec.ship_to_contact_party_id;
1616:
1617: l_n_pt_ind := l_pty_tbl.count + 1;
1618:
1619: l_pty_tbl(l_n_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
1620: l_pty_tbl(l_n_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
1621: l_pty_tbl(l_n_pt_ind).txn_line_details_index := l_ind;
1622: l_pty_tbl(l_n_pt_ind).party_source_table := 'HZ_PARTIES';
1623: l_pty_tbl(l_n_pt_ind).party_source_id := p_source_line_rec.ship_to_contact_party_id;
1624: l_pty_tbl(l_n_pt_ind).relationship_type_code := 'SHIP_TO';
1630: IF NOT (l_bill_to_contact_found)
1631: AND
1632: p_source_line_rec.bill_to_contact_party_id is not null
1633: THEN
1634: l_pty_tbl(l_n_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
1635: l_pty_tbl(l_n_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
1636: l_pty_tbl(l_n_pt_ind).txn_line_details_index := l_ind;
1637: l_pty_tbl(l_n_pt_ind).party_source_table := 'HZ_PARTIES';
1638: l_pty_tbl(l_n_pt_ind).party_source_id := p_source_line_rec.bill_to_contact_party_id;
1631: AND
1632: p_source_line_rec.bill_to_contact_party_id is not null
1633: THEN
1634: l_pty_tbl(l_n_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
1635: l_pty_tbl(l_n_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
1636: l_pty_tbl(l_n_pt_ind).txn_line_details_index := l_ind;
1637: l_pty_tbl(l_n_pt_ind).party_source_table := 'HZ_PARTIES';
1638: l_pty_tbl(l_n_pt_ind).party_source_id := p_source_line_rec.bill_to_contact_party_id;
1639: l_pty_tbl(l_n_pt_ind).relationship_type_code := 'BILL_TO';
1647: IF NOT(l_org_assignment_found) THEN
1648:
1649: l_oa_n_ind := l_oa_tbl.COUNT + 1;
1650:
1651: l_oa_tbl(l_oa_n_ind).txn_line_detail_id := fnd_api.g_miss_num;
1652: l_oa_tbl(l_oa_n_ind).txn_line_details_index := l_ind;
1653: l_oa_tbl(l_oa_n_ind).operating_unit_id := p_source_line_rec.sold_from_org_id;
1654: l_oa_tbl(l_oa_n_ind).relationship_type_code := 'SOLD_FROM';
1655: l_oa_tbl(l_oa_n_ind).preserve_detail_flag := 'Y';
1672: p_line_id => px_txn_line_rec.source_transaction_id,
1673: x_pricing_attribs_tbl => x_pricing_attribs_tbl,
1674: x_return_status => l_return_status);
1675:
1676: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1677: RAISE fnd_api.g_exc_error;
1678: END IF;
1679:
1680: END IF;
1673: x_pricing_attribs_tbl => x_pricing_attribs_tbl,
1674: x_return_status => l_return_status);
1675:
1676: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1677: RAISE fnd_api.g_exc_error;
1678: END IF;
1679:
1680: END IF;
1681:
1680: END IF;
1681:
1682:
1683: EXCEPTION
1684: WHEN fnd_api.g_exc_error THEN
1685: x_return_status := fnd_api.g_ret_sts_error;
1686: END rebuild_txn_detail;
1687:
1688: --
1681:
1682:
1683: EXCEPTION
1684: WHEN fnd_api.g_exc_error THEN
1685: x_return_status := fnd_api.g_ret_sts_error;
1686: END rebuild_txn_detail;
1687:
1688: --
1689: --
1712: l_g_csi_ea_tbl csi_t_datastructures_grp.csi_ext_attribs_tbl;
1713: l_g_csi_eav_tbl csi_t_datastructures_grp.csi_ext_attrib_vals_tbl;
1714: l_g_txn_systems_tbl csi_t_datastructures_grp.txn_systems_tbl;
1715:
1716: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1717: l_msg_data varchar2(512);
1718: l_msg_count number;
1719:
1720: BEGIN
1718: l_msg_count number;
1719:
1720: BEGIN
1721:
1722: x_return_status := fnd_api.g_ret_sts_success;
1723:
1724: api_log('get_cz_txn_details');
1725:
1726: --l_txn_line_query_rec.source_transaction_type_id := 401;
1730: l_txn_line_query_rec.config_session_rev_num := p_config_session_key.session_rev_num;
1731:
1732: csi_t_txn_details_grp.get_transaction_details(
1733: p_api_version => 1.0,
1734: p_commit => fnd_api.g_false,
1735: p_init_msg_list => fnd_api.g_true,
1736: p_validation_level => fnd_api.g_valid_level_full,
1737: p_txn_line_query_rec => l_txn_line_query_rec,
1738: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
1731:
1732: csi_t_txn_details_grp.get_transaction_details(
1733: p_api_version => 1.0,
1734: p_commit => fnd_api.g_false,
1735: p_init_msg_list => fnd_api.g_true,
1736: p_validation_level => fnd_api.g_valid_level_full,
1737: p_txn_line_query_rec => l_txn_line_query_rec,
1738: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
1739: x_txn_line_detail_tbl => l_g_line_dtl_tbl,
1732: csi_t_txn_details_grp.get_transaction_details(
1733: p_api_version => 1.0,
1734: p_commit => fnd_api.g_false,
1735: p_init_msg_list => fnd_api.g_true,
1736: p_validation_level => fnd_api.g_valid_level_full,
1737: p_txn_line_query_rec => l_txn_line_query_rec,
1738: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
1739: x_txn_line_detail_tbl => l_g_line_dtl_tbl,
1740: p_get_parties_flag => fnd_api.g_false,
1736: p_validation_level => fnd_api.g_valid_level_full,
1737: p_txn_line_query_rec => l_txn_line_query_rec,
1738: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
1739: x_txn_line_detail_tbl => l_g_line_dtl_tbl,
1740: p_get_parties_flag => fnd_api.g_false,
1741: x_txn_party_detail_tbl => l_g_pty_dtl_tbl,
1742: p_get_pty_accts_flag => fnd_api.g_false,
1743: x_txn_pty_acct_detail_tbl => l_g_pty_acct_tbl,
1744: p_get_ii_rltns_flag => fnd_api.g_true,
1738: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
1739: x_txn_line_detail_tbl => l_g_line_dtl_tbl,
1740: p_get_parties_flag => fnd_api.g_false,
1741: x_txn_party_detail_tbl => l_g_pty_dtl_tbl,
1742: p_get_pty_accts_flag => fnd_api.g_false,
1743: x_txn_pty_acct_detail_tbl => l_g_pty_acct_tbl,
1744: p_get_ii_rltns_flag => fnd_api.g_true,
1745: x_txn_ii_rltns_tbl => l_g_ii_rltns_tbl,
1746: p_get_org_assgns_flag => fnd_api.g_false,
1740: p_get_parties_flag => fnd_api.g_false,
1741: x_txn_party_detail_tbl => l_g_pty_dtl_tbl,
1742: p_get_pty_accts_flag => fnd_api.g_false,
1743: x_txn_pty_acct_detail_tbl => l_g_pty_acct_tbl,
1744: p_get_ii_rltns_flag => fnd_api.g_true,
1745: x_txn_ii_rltns_tbl => l_g_ii_rltns_tbl,
1746: p_get_org_assgns_flag => fnd_api.g_false,
1747: x_txn_org_assgn_tbl => l_g_org_assgn_tbl,
1748: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1742: p_get_pty_accts_flag => fnd_api.g_false,
1743: x_txn_pty_acct_detail_tbl => l_g_pty_acct_tbl,
1744: p_get_ii_rltns_flag => fnd_api.g_true,
1745: x_txn_ii_rltns_tbl => l_g_ii_rltns_tbl,
1746: p_get_org_assgns_flag => fnd_api.g_false,
1747: x_txn_org_assgn_tbl => l_g_org_assgn_tbl,
1748: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1749: x_txn_ext_attrib_vals_tbl => l_g_ext_attrib_tbl,
1750: p_get_csi_attribs_flag => fnd_api.g_false,
1744: p_get_ii_rltns_flag => fnd_api.g_true,
1745: x_txn_ii_rltns_tbl => l_g_ii_rltns_tbl,
1746: p_get_org_assgns_flag => fnd_api.g_false,
1747: x_txn_org_assgn_tbl => l_g_org_assgn_tbl,
1748: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1749: x_txn_ext_attrib_vals_tbl => l_g_ext_attrib_tbl,
1750: p_get_csi_attribs_flag => fnd_api.g_false,
1751: x_csi_ext_attribs_tbl => l_g_csi_ea_tbl,
1752: p_get_csi_iea_values_flag => fnd_api.g_false,
1746: p_get_org_assgns_flag => fnd_api.g_false,
1747: x_txn_org_assgn_tbl => l_g_org_assgn_tbl,
1748: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1749: x_txn_ext_attrib_vals_tbl => l_g_ext_attrib_tbl,
1750: p_get_csi_attribs_flag => fnd_api.g_false,
1751: x_csi_ext_attribs_tbl => l_g_csi_ea_tbl,
1752: p_get_csi_iea_values_flag => fnd_api.g_false,
1753: x_csi_iea_values_tbl => l_g_csi_eav_tbl,
1754: p_get_txn_systems_flag => fnd_api.g_false,
1748: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1749: x_txn_ext_attrib_vals_tbl => l_g_ext_attrib_tbl,
1750: p_get_csi_attribs_flag => fnd_api.g_false,
1751: x_csi_ext_attribs_tbl => l_g_csi_ea_tbl,
1752: p_get_csi_iea_values_flag => fnd_api.g_false,
1753: x_csi_iea_values_tbl => l_g_csi_eav_tbl,
1754: p_get_txn_systems_flag => fnd_api.g_false,
1755: x_txn_systems_tbl => l_g_txn_systems_tbl,
1756: x_return_status => l_return_status,
1750: p_get_csi_attribs_flag => fnd_api.g_false,
1751: x_csi_ext_attribs_tbl => l_g_csi_ea_tbl,
1752: p_get_csi_iea_values_flag => fnd_api.g_false,
1753: x_csi_iea_values_tbl => l_g_csi_eav_tbl,
1754: p_get_txn_systems_flag => fnd_api.g_false,
1755: x_txn_systems_tbl => l_g_txn_systems_tbl,
1756: x_return_status => l_return_status,
1757: x_msg_count => l_msg_count,
1758: x_msg_data => l_msg_data);
1756: x_return_status => l_return_status,
1757: x_msg_count => l_msg_count,
1758: x_msg_data => l_msg_data);
1759:
1760: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1761: RAISE fnd_api.g_exc_error;
1762: END IF;
1763:
1764: IF l_g_line_dtl_tbl.COUNT > 0 THEN
1757: x_msg_count => l_msg_count,
1758: x_msg_data => l_msg_data);
1759:
1760: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1761: RAISE fnd_api.g_exc_error;
1762: END IF;
1763:
1764: IF l_g_line_dtl_tbl.COUNT > 0 THEN
1765:
1803: debug(' txn_ii_rltns_tbl :'||x_txn_ii_rltns_tbl.COUNT);
1804: debug(' txn_eav_tbl :'||x_txn_eav_tbl.COUNT);
1805:
1806: EXCEPTION
1807: WHEN fnd_api.g_exc_error THEN
1808: x_return_status := fnd_api.g_ret_sts_error;
1809: END get_cz_txn_details;
1810:
1811: --
1804: debug(' txn_eav_tbl :'||x_txn_eav_tbl.COUNT);
1805:
1806: EXCEPTION
1807: WHEN fnd_api.g_exc_error THEN
1808: x_return_status := fnd_api.g_ret_sts_error;
1809: END get_cz_txn_details;
1810:
1811: --
1812: --
1830: l_msg_count number;
1831: l_msg_data varchar2(2000);
1832:
1833: BEGIN
1834: x_return_status := fnd_api.g_ret_sts_success;
1835: api_log('get_config_keys_for_order');
1836:
1837: FOR keys_rec IN keys_cur
1838: LOOP
1845:
1846: END LOOP;
1847:
1848: EXCEPTION
1849: WHEN fnd_api.g_exc_error THEN
1850: x_return_status := fnd_api.g_ret_sts_error;
1851: END get_config_keys_for_order;
1852:
1853: --
1846: END LOOP;
1847:
1848: EXCEPTION
1849: WHEN fnd_api.g_exc_error THEN
1850: x_return_status := fnd_api.g_ret_sts_error;
1851: END get_config_keys_for_order;
1852:
1853: --
1854: --
1868: l_txn_ii_rltns_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
1869: l_txn_eav_tbl csi_t_datastructures_grp.txn_ext_attrib_vals_tbl;
1870:
1871: l_order_session_keys csi_utility_grp.config_session_keys;
1872: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1873:
1874: x_ind binary_integer := 0;
1875:
1876: BEGIN
1874: x_ind binary_integer := 0;
1875:
1876: BEGIN
1877:
1878: x_return_status := fnd_api.g_ret_sts_success;
1879: api_log('get_all_txn_rltns_for_order');
1880:
1881: -- get all the session keys for the order using the header_id
1882: get_config_keys_for_order(
1883: p_header_id => p_header_id,
1884: x_config_session_keys => l_order_session_keys,
1885: x_return_status => l_return_status);
1886:
1887: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1888: RAISE fnd_api.g_exc_error;
1889: END IF;
1890:
1891: IF l_order_session_keys.COUNT > 0 THEN
1884: x_config_session_keys => l_order_session_keys,
1885: x_return_status => l_return_status);
1886:
1887: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1888: RAISE fnd_api.g_exc_error;
1889: END IF;
1890:
1891: IF l_order_session_keys.COUNT > 0 THEN
1892: FOR l_ind IN l_order_session_keys.FIRST .. l_order_session_keys.LAST
1902: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
1903: x_txn_eav_tbl => l_txn_eav_tbl,
1904: x_return_status => l_return_status);
1905:
1906: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1907: RAISE fnd_api.g_exc_error;
1908: END IF;
1909:
1910: IF l_txn_ii_rltns_tbl.COUNT > 0 THEN
1903: x_txn_eav_tbl => l_txn_eav_tbl,
1904: x_return_status => l_return_status);
1905:
1906: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1907: RAISE fnd_api.g_exc_error;
1908: END IF;
1909:
1910: IF l_txn_ii_rltns_tbl.COUNT > 0 THEN
1911: FOR l_ii_ind IN l_txn_ii_rltns_tbl.FIRST .. l_txn_ii_rltns_tbl.LAST
1920: END LOOP;
1921: END IF;
1922:
1923: EXCEPTION
1924: WHEN fnd_api.g_exc_error THEN
1925: x_return_status := fnd_api.g_ret_sts_error;
1926: END get_all_txn_rltns_for_order;
1927:
1928: --
1921: END IF;
1922:
1923: EXCEPTION
1924: WHEN fnd_api.g_exc_error THEN
1925: x_return_status := fnd_api.g_ret_sts_error;
1926: END get_all_txn_rltns_for_order;
1927:
1928: --
1929: --
1944: l_already_processed boolean := FALSE;
1945: l_processing_status varchar2(30);
1946:
1947: l_dummy varchar2(1);
1948: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1949:
1950: BEGIN
1951:
1952: x_return_status := fnd_api.g_ret_sts_success;
1948: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1949:
1950: BEGIN
1951:
1952: x_return_status := fnd_api.g_ret_sts_success;
1953: api_log('filter_relations');
1954:
1955: l_rltns_tbl := px_txn_ii_rltns_tbl;
1956:
2097: END IF;
2098:
2099: px_txn_ii_rltns_tbl := l_new_rltns_tbl;
2100: EXCEPTION
2101: WHEN fnd_api.g_exc_error THEN
2102: x_return_status := fnd_api.g_ret_sts_error;
2103: END filter_relations;
2104:
2105: --
2098:
2099: px_txn_ii_rltns_tbl := l_new_rltns_tbl;
2100: EXCEPTION
2101: WHEN fnd_api.g_exc_error THEN
2102: x_return_status := fnd_api.g_ret_sts_error;
2103: END filter_relations;
2104:
2105: --
2106: --
2145: l_msg_data varchar2(2000);
2146:
2147: BEGIN
2148:
2149: x_return_status := fnd_api.g_ret_sts_success;
2150: api_log('get_cz_relations');
2151:
2152: l_tld_tbl := px_txn_line_dtl_tbl;
2153:
2158: x_config_session_key => l_line_session_key,
2159: x_return_status => l_return_status,
2160: x_return_message => l_return_message);
2161:
2162: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2163: RAISE fnd_api.g_exc_error;
2164: END IF;
2165:
2166: get_cz_txn_details(
2159: x_return_status => l_return_status,
2160: x_return_message => l_return_message);
2161:
2162: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2163: RAISE fnd_api.g_exc_error;
2164: END IF;
2165:
2166: get_cz_txn_details(
2167: p_config_session_key => l_line_session_key,
2173: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2174: x_txn_eav_tbl => l_txn_eav_tbl,
2175: x_return_status => l_return_status);
2176:
2177: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2178: RAISE fnd_api.g_exc_error;
2179: END IF;
2180:
2181: -- identify the txn line detail record that matches the current om line
2174: x_txn_eav_tbl => l_txn_eav_tbl,
2175: x_return_status => l_return_status);
2176:
2177: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2178: RAISE fnd_api.g_exc_error;
2179: END IF;
2180:
2181: -- identify the txn line detail record that matches the current om line
2182: IF l_txn_line_dtl_tbl.COUNT > 0 THEN
2220:
2221: IF NOT(l_source_identified) THEN
2222: -- message source could not identified in the cz_txn_detail
2223: debug('source is not identified...');
2224: RAISE fnd_api.g_exc_error;
2225: END IF;
2226:
2227: dump_instance_key(l_src_instance_key);
2228:
2234: p_transaction_line_id => l_txn_line_rec.transaction_line_id,
2235: px_txn_ii_rltns_tbl => l_filtered_rltns_tbl,
2236: x_return_status => l_return_status);
2237:
2238: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2239: RAISE fnd_api.g_exc_error;
2240: END IF;
2241:
2242: -- return the filtered txn_ii_relation src_line detail and
2235: px_txn_ii_rltns_tbl => l_filtered_rltns_tbl,
2236: x_return_status => l_return_status);
2237:
2238: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2239: RAISE fnd_api.g_exc_error;
2240: END IF;
2241:
2242: -- return the filtered txn_ii_relation src_line detail and
2243:
2264: -- coming from build_shtd_tbl.
2265: -- Following instance_id assignment should be made based on instance_id value.
2266: --
2267: IF l_tld_tbl(l_ind).instance_id IS NULL OR
2268: l_tld_tbl(l_ind).instance_id = FND_API.G_MISS_NUM THEN
2269: IF l_src_tld_rec.instance_id IS NOT NULL
2270: AND
2271: l_src_tld_rec.instance_id <> FND_API.G_MISS_NUM
2272: THEN
2267: IF l_tld_tbl(l_ind).instance_id IS NULL OR
2268: l_tld_tbl(l_ind).instance_id = FND_API.G_MISS_NUM THEN
2269: IF l_src_tld_rec.instance_id IS NOT NULL
2270: AND
2271: l_src_tld_rec.instance_id <> FND_API.G_MISS_NUM
2272: THEN
2273: l_tld_tbl(l_ind).instance_id := l_src_tld_rec.instance_id;
2274: l_tld_tbl(l_ind).instance_exists_flag := 'Y';
2275: ELSE
2282: AND config_inst_item_id = l_tld_tbl(l_ind).config_inst_item_id;
2283: l_tld_tbl(l_ind).instance_exists_flag := 'Y';
2284: EXCEPTION
2285: WHEN no_data_found THEN
2286: l_tld_tbl(l_ind).instance_id := fnd_api.g_miss_num;
2287: l_tld_tbl(l_ind).instance_exists_flag := 'N';
2288: END;
2289: END IF;
2290: END IF;
2292: -- Fixed for Bug 4381930, Moved the Instance_id Query to above
2293: -- and assign the cz values if instance_id is existing, re-configuration case
2294: -- else take the values build from order or user entered.
2295:
2296: IF nvl(l_tld_tbl(l_ind).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
2297:
2298: l_tld_tbl(l_ind).location_type_code := l_src_tld_rec.location_type_code;
2299: l_tld_tbl(l_ind).location_id := l_src_tld_rec.location_id;
2300: -- Added for partner ordering
2304: -- Bug 4633376 CZ always passes the location info for re-configuration. Hence, inorder to
2305: -- distinguish between first time configuration and re-configuration, we use the instance_id.
2306: --
2307: ELSE
2308: IF nvl(l_src_tld_rec.location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
2309: AND
2310: nvl(l_src_tld_rec.location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
2311: THEN
2312: l_tld_tbl(l_ind).location_type_code := l_src_tld_rec.location_type_code;
2306: --
2307: ELSE
2308: IF nvl(l_src_tld_rec.location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
2309: AND
2310: nvl(l_src_tld_rec.location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
2311: THEN
2312: l_tld_tbl(l_ind).location_type_code := l_src_tld_rec.location_type_code;
2313: l_tld_tbl(l_ind).location_id := l_src_tld_rec.location_id;
2314: END IF;
2312: l_tld_tbl(l_ind).location_type_code := l_src_tld_rec.location_type_code;
2313: l_tld_tbl(l_ind).location_id := l_src_tld_rec.location_id;
2314: END IF;
2315: --
2316: IF nvl(l_src_tld_rec.install_location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
2317: AND
2318: nvl(l_src_tld_rec.install_location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
2319: THEN
2320: l_tld_tbl(l_ind).install_location_type_code := l_src_tld_rec.install_location_type_code;
2314: END IF;
2315: --
2316: IF nvl(l_src_tld_rec.install_location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
2317: AND
2318: nvl(l_src_tld_rec.install_location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
2319: THEN
2320: l_tld_tbl(l_ind).install_location_type_code := l_src_tld_rec.install_location_type_code;
2321: l_tld_tbl(l_ind).install_location_id := l_src_tld_rec.install_location_id;
2322: END IF;
2325: -- srramakr Bug 4665537 TSO with Equipment.
2326: -- Inventory Revision and organization_id could come from WSH which is what we need to take.
2327: --
2328: IF l_tld_tbl(l_ind).inventory_revision IS NOT NULL AND
2329: l_tld_tbl(l_ind).inventory_revision = fnd_api.g_miss_char THEN
2330: l_tld_tbl(l_ind).inventory_revision := l_src_tld_rec.inventory_revision;
2331: END IF;
2332: --
2333: IF nvl(l_tld_tbl(l_ind).inv_organization_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
2329: l_tld_tbl(l_ind).inventory_revision = fnd_api.g_miss_char THEN
2330: l_tld_tbl(l_ind).inventory_revision := l_src_tld_rec.inventory_revision;
2331: END IF;
2332: --
2333: IF nvl(l_tld_tbl(l_ind).inv_organization_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
2334: l_tld_tbl(l_ind).inv_organization_id := l_src_tld_rec.inv_organization_id;
2335: END IF;
2336: --
2337: l_tld_tbl(l_ind).source_txn_line_detail_id := l_src_tld_rec.txn_line_detail_id;
2341: LOOP
2342: IF l_txn_eav_tbl(l_eav_ind).txn_line_detail_id = l_src_tld_rec.txn_line_detail_id
2343: THEN
2344: l_txn_eav_tbl(l_eav_ind).txn_line_details_index := l_ind;
2345: l_txn_eav_tbl(l_eav_ind).txn_line_detail_id := fnd_api.g_miss_num;
2346: l_txn_eav_tbl(l_eav_ind).txn_attrib_detail_id := fnd_api.g_miss_num;
2347: END IF;
2348: END LOOP;
2349: END IF;
2342: IF l_txn_eav_tbl(l_eav_ind).txn_line_detail_id = l_src_tld_rec.txn_line_detail_id
2343: THEN
2344: l_txn_eav_tbl(l_eav_ind).txn_line_details_index := l_ind;
2345: l_txn_eav_tbl(l_eav_ind).txn_line_detail_id := fnd_api.g_miss_num;
2346: l_txn_eav_tbl(l_eav_ind).txn_attrib_detail_id := fnd_api.g_miss_num;
2347: END IF;
2348: END LOOP;
2349: END IF;
2350: /* Begin fix for Bug 3502896 */
2358: AND config_inst_item_id = l_tld_tbl(l_ind).config_inst_item_id;
2359: l_tld_tbl(l_ind).instance_exists_flag := 'Y';
2360: EXCEPTION
2361: WHEN no_data_found THEN
2362: l_tld_tbl(l_ind).instance_id := fnd_api.g_miss_num;
2363: l_tld_tbl(l_ind).instance_exists_flag := 'N';
2364: RAISE fnd_api.g_exc_error;
2365: END;
2366: /* End fix for Bug 3502896 */
2360: EXCEPTION
2361: WHEN no_data_found THEN
2362: l_tld_tbl(l_ind).instance_id := fnd_api.g_miss_num;
2363: l_tld_tbl(l_ind).instance_exists_flag := 'N';
2364: RAISE fnd_api.g_exc_error;
2365: END;
2366: /* End fix for Bug 3502896 */
2367: END IF;
2368: END LOOP;
2373: x_txn_ii_rltns_tbl := l_filtered_rltns_tbl;
2374: x_txn_eav_tbl := l_txn_eav_tbl;
2375:
2376: EXCEPTION
2377: WHEN fnd_api.g_exc_error THEN
2378: x_return_status := fnd_api.g_ret_sts_error;
2379: END get_cz_relations;
2380: --
2381: --
2374: x_txn_eav_tbl := l_txn_eav_tbl;
2375:
2376: EXCEPTION
2377: WHEN fnd_api.g_exc_error THEN
2378: x_return_status := fnd_api.g_ret_sts_error;
2379: END get_cz_relations;
2380: --
2381: --
2382: --
2390: l_party_query_rec csi_datastructures_pub.party_query_rec;
2391: l_pty_acct_query_rec csi_datastructures_pub.party_account_query_rec;
2392:
2393: l_instance_hdr_tbl csi_datastructures_pub.instance_header_tbl;
2394: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2395: l_msg_count number;
2396: l_msg_data varchar2(2000);
2397:
2398: BEGIN
2396: l_msg_data varchar2(2000);
2397:
2398: BEGIN
2399:
2400: x_return_status := fnd_api.g_ret_sts_success;
2401: api_log('get_instances_for_source');
2402:
2403: l_inst_query_rec.inventory_item_id := p_source_line_rec.inventory_item_id;
2404: l_inst_query_rec.last_oe_order_line_id := p_source_line_rec.source_line_id;
2411: p_pkg_name => 'csi_item_instance_pub');
2412:
2413: csi_item_instance_pub.get_item_instances(
2414: p_api_version => 1.0,
2415: p_commit => fnd_api.g_false,
2416: p_init_msg_list => fnd_api.g_true,
2417: p_validation_level => fnd_api.g_valid_level_full,
2418: p_instance_query_rec => l_inst_query_rec,
2419: p_party_query_rec => l_party_query_rec,
2412:
2413: csi_item_instance_pub.get_item_instances(
2414: p_api_version => 1.0,
2415: p_commit => fnd_api.g_false,
2416: p_init_msg_list => fnd_api.g_true,
2417: p_validation_level => fnd_api.g_valid_level_full,
2418: p_instance_query_rec => l_inst_query_rec,
2419: p_party_query_rec => l_party_query_rec,
2420: p_account_query_rec => l_pty_acct_query_rec,
2413: csi_item_instance_pub.get_item_instances(
2414: p_api_version => 1.0,
2415: p_commit => fnd_api.g_false,
2416: p_init_msg_list => fnd_api.g_true,
2417: p_validation_level => fnd_api.g_valid_level_full,
2418: p_instance_query_rec => l_inst_query_rec,
2419: p_party_query_rec => l_party_query_rec,
2420: p_account_query_rec => l_pty_acct_query_rec,
2421: p_transaction_id => null,
2418: p_instance_query_rec => l_inst_query_rec,
2419: p_party_query_rec => l_party_query_rec,
2420: p_account_query_rec => l_pty_acct_query_rec,
2421: p_transaction_id => null,
2422: p_resolve_id_columns => fnd_api.g_false,
2423: p_active_instance_only => fnd_api.g_true,
2424: x_instance_header_tbl => l_instance_hdr_tbl,
2425: x_return_status => l_return_status,
2426: x_msg_count => l_msg_count,
2419: p_party_query_rec => l_party_query_rec,
2420: p_account_query_rec => l_pty_acct_query_rec,
2421: p_transaction_id => null,
2422: p_resolve_id_columns => fnd_api.g_false,
2423: p_active_instance_only => fnd_api.g_true,
2424: x_instance_header_tbl => l_instance_hdr_tbl,
2425: x_return_status => l_return_status,
2426: x_msg_count => l_msg_count,
2427: x_msg_data => l_msg_data);
2425: x_return_status => l_return_status,
2426: x_msg_count => l_msg_count,
2427: x_msg_data => l_msg_data);
2428:
2429: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2430: RAISE fnd_api.g_exc_error;
2431: END IF;
2432:
2433: -- call get item instances here
2426: x_msg_count => l_msg_count,
2427: x_msg_data => l_msg_data);
2428:
2429: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2430: RAISE fnd_api.g_exc_error;
2431: END IF;
2432:
2433: -- call get item instances here
2434: csi_utl_pkg.make_non_header_tbl(
2435: p_instance_header_tbl => l_instance_hdr_tbl,
2436: x_instance_tbl => x_instance_tbl,
2437: x_return_status => l_return_status);
2438:
2439: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2440: RAISE fnd_api.g_exc_error;
2441: END IF;
2442:
2443: EXCEPTION
2436: x_instance_tbl => x_instance_tbl,
2437: x_return_status => l_return_status);
2438:
2439: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2440: RAISE fnd_api.g_exc_error;
2441: END IF;
2442:
2443: EXCEPTION
2444: WHEN fnd_api.g_exc_error THEN
2440: RAISE fnd_api.g_exc_error;
2441: END IF;
2442:
2443: EXCEPTION
2444: WHEN fnd_api.g_exc_error THEN
2445: x_return_status := fnd_api.g_ret_sts_error;
2446: END get_instances_for_source;
2447:
2448:
2441: END IF;
2442:
2443: EXCEPTION
2444: WHEN fnd_api.g_exc_error THEN
2445: x_return_status := fnd_api.g_ret_sts_error;
2446: END get_instances_for_source;
2447:
2448:
2449: --
2459: l_parent_found boolean := FALSE;
2460: l_parent_line_rec source_line_rec;
2461:
2462: l_parent_instance_tbl csi_datastructures_pub.instance_tbl;
2463: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2464:
2465: BEGIN
2466:
2467: x_return_status := fnd_api.g_ret_sts_success;
2463: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2464:
2465: BEGIN
2466:
2467: x_return_status := fnd_api.g_ret_sts_success;
2468: api_log('get_om_relations');
2469:
2470: -- get the ib trackable parent
2471: get_ib_trackable_parent(
2473: x_parent_found => l_parent_found,
2474: x_parent_line_rec => l_parent_line_rec,
2475: x_return_status => l_return_status);
2476:
2477: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2478: RAISE fnd_api.g_exc_error;
2479: END IF;
2480:
2481: IF l_parent_found THEN
2474: x_parent_line_rec => l_parent_line_rec,
2475: x_return_status => l_return_status);
2476:
2477: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2478: RAISE fnd_api.g_exc_error;
2479: END IF;
2480:
2481: IF l_parent_found THEN
2482:
2484: p_source_line_rec => l_parent_line_rec,
2485: x_instance_tbl => l_parent_instance_tbl,
2486: x_return_status => l_return_status);
2487:
2488: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2489: RAISE fnd_api.g_exc_error;
2490: END IF;
2491:
2492: IF l_parent_instance_tbl.count > 0 THEN
2485: x_instance_tbl => l_parent_instance_tbl,
2486: x_return_status => l_return_status);
2487:
2488: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2489: RAISE fnd_api.g_exc_error;
2490: END IF;
2491:
2492: IF l_parent_instance_tbl.count > 0 THEN
2493: null;
2504: --if not then do not worry about building relations
2505:
2506:
2507: EXCEPTION
2508: WHEN fnd_api.g_exc_error THEN
2509: x_return_status := fnd_api.g_ret_sts_error;
2510: END get_om_relations;
2511:
2512:
2505:
2506:
2507: EXCEPTION
2508: WHEN fnd_api.g_exc_error THEN
2509: x_return_status := fnd_api.g_ret_sts_error;
2510: END get_om_relations;
2511:
2512:
2513: /* this routine takes the source line info and the current entered source txn
2544: l_msg_data varchar2(2000);
2545:
2546: BEGIN
2547:
2548: x_return_status := fnd_api.g_ret_sts_success;
2549: api_log('get_relations');
2550:
2551: -- change to an appropriate condition
2552: IF p_source_line_rec.config_header_id is not null THEN
2566: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2567: x_txn_eav_tbl => x_txn_eav_tbl,
2568: x_return_status => l_return_status);
2569:
2570: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2571: RAISE fnd_api.g_exc_error;
2572: END IF;
2573:
2574: ELSE
2567: x_txn_eav_tbl => x_txn_eav_tbl,
2568: x_return_status => l_return_status);
2569:
2570: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2571: RAISE fnd_api.g_exc_error;
2572: END IF;
2573:
2574: ELSE
2575:
2578: px_txn_line_dtl_tbl => px_txn_line_dtl_tbl,
2579: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2580: x_return_status => l_return_status);
2581:
2582: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2583: RAISE fnd_api.g_exc_error;
2584: END IF;
2585:
2586: END IF;
2579: x_txn_ii_rltns_tbl => l_txn_ii_rltns_tbl,
2580: x_return_status => l_return_status);
2581:
2582: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2583: RAISE fnd_api.g_exc_error;
2584: END IF;
2585:
2586: END IF;
2587:
2587:
2588: x_txn_ii_rltns_tbl := l_txn_ii_rltns_tbl;
2589:
2590: EXCEPTION
2591: WHEN fnd_api.g_exc_error THEN
2592: x_return_status := fnd_api.g_ret_sts_error;
2593: END get_relations;
2594:
2595: PROCEDURE get_extended_attrib_values(
2588: x_txn_ii_rltns_tbl := l_txn_ii_rltns_tbl;
2589:
2590: EXCEPTION
2591: WHEN fnd_api.g_exc_error THEN
2592: x_return_status := fnd_api.g_ret_sts_error;
2593: END get_relations;
2594:
2595: PROCEDURE get_extended_attrib_values(
2596: p_source_id IN number,
2601: x_txn_eav_tbl OUT NOCOPY csi_t_datastructures_grp.txn_ext_attrib_vals_tbl,
2602: x_return_status OUT NOCOPY varchar2)
2603: IS
2604: BEGIN
2605: x_return_status := fnd_api.g_ret_sts_success;
2606: api_log('get_extended_attrib_values');
2607: EXCEPTION
2608: WHEN fnd_api.g_exc_error THEN
2609: x_return_status := fnd_api.g_ret_sts_error;
2604: BEGIN
2605: x_return_status := fnd_api.g_ret_sts_success;
2606: api_log('get_extended_attrib_values');
2607: EXCEPTION
2608: WHEN fnd_api.g_exc_error THEN
2609: x_return_status := fnd_api.g_ret_sts_error;
2610: END get_extended_attrib_values;
2611:
2612: PROCEDURE get_order_line_source_info(
2605: x_return_status := fnd_api.g_ret_sts_success;
2606: api_log('get_extended_attrib_values');
2607: EXCEPTION
2608: WHEN fnd_api.g_exc_error THEN
2609: x_return_status := fnd_api.g_ret_sts_error;
2610: END get_extended_attrib_values;
2611:
2612: PROCEDURE get_order_line_source_info(
2613: p_order_line_id IN number,
2628: l_drop_ship_txn_type_id number := 30;
2629:
2630:
2631: BEGIN
2632: x_return_status := fnd_api.g_ret_sts_success;
2633: api_log('get_order_line_source_info');
2634:
2635: BEGIN
2636: SELECT * INTO l_line_rec
2646:
2647: EXCEPTION
2648: WHEN no_data_found THEN
2649: -- stack error message
2650: RAISE fnd_api.g_exc_error;
2651: END;
2652:
2653: x_source_header_rec.source_header_id := l_hdr_rec.header_id;
2654: x_source_header_rec.source_header_ref := l_hdr_rec.order_number;
2726: IF l_partner_rec.IB_OWNER = 'END_CUSTOMER' THEN
2727: IF l_partner_rec.END_CUSTOMER_ID is null Then
2728: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
2729: fnd_msg_pub.add;
2730: raise fnd_api.g_exc_error;
2731: ELSE
2732: l_ib_owner := l_partner_rec.ib_owner;
2733: x_source_line_rec.owner_party_account_id := l_partner_rec.end_customer_id;
2734: END IF;
2734: END IF;
2735: ELSIF l_partner_rec.IB_OWNER = 'INSTALL_BASE'
2736: THEN
2737: l_ib_owner := l_partner_rec.ib_owner;
2738: x_source_line_rec.owner_party_account_id := fnd_api.g_miss_num;
2739: ELSE
2740: x_source_line_rec.owner_party_account_id := x_source_line_rec.owner_party_account_id;
2741: END IF;
2742:
2748: IF l_partner_rec.end_customer_site_use_id is null
2749: THEN
2750: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
2751: fnd_msg_pub.add;
2752: raise fnd_api.g_exc_error;
2753: ELSE
2754: x_source_line_rec.ib_install_loc_id := l_partner_rec.end_customer_site_use_id;
2755: END IF;
2756: ELSIF x_source_line_rec.ib_install_loc = 'SHIP_TO'
2758: IF x_source_line_rec.ship_to_address_id is null
2759: THEN
2760: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
2761: fnd_msg_pub.add;
2762: raise fnd_api.g_exc_error;
2763: ELSE
2764: x_source_line_rec.ib_install_loc_id := x_source_line_rec.ship_to_address_id;
2765: END IF;
2766: ELSIF x_source_line_rec.ib_install_loc = 'SOLD_TO'
2768: IF l_partner_rec.SOLD_TO_SITE_USE_ID is null -- 3412544 x_source_line_rec.sold_to_org_id is null
2769: THEN
2770: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
2771: fnd_msg_pub.add;
2772: raise fnd_api.g_exc_error;
2773: ELSE
2774: x_source_line_rec.ib_install_loc_id := l_partner_rec.SOLD_TO_SITE_USE_ID; -- 3412544 x_source_line_rec.sold_to_org_id;
2775: END IF;
2776: ELSIF x_source_line_rec.ib_install_loc = 'DELIVER_TO'
2778: IF x_source_line_rec.deliver_to_org_id is null
2779: THEN
2780: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
2781: fnd_msg_pub.add;
2782: raise fnd_api.g_exc_error;
2783: ELSE
2784: x_source_line_rec.ib_install_loc_id := x_source_line_rec.deliver_to_org_id;
2785: END IF;
2786: ELSIF x_source_line_rec.ib_install_loc = 'BILL_TO'
2788: IF x_source_line_rec.bill_to_address_id is null
2789: THEN
2790: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
2791: fnd_msg_pub.add;
2792: raise fnd_api.g_exc_error;
2793: ELSE
2794: x_source_line_rec.ib_install_loc_id := x_source_line_rec.bill_to_address_id;
2795: END IF;
2796: ELSIF x_source_line_rec.ib_install_loc = 'INSTALL_BASE'
2794: x_source_line_rec.ib_install_loc_id := x_source_line_rec.bill_to_address_id;
2795: END IF;
2796: ELSIF x_source_line_rec.ib_install_loc = 'INSTALL_BASE'
2797: THEN
2798: x_source_line_rec.ib_install_loc_id := fnd_api.g_miss_num;
2799: END IF;
2800: ELSE
2801: x_source_line_rec.ib_install_loc_id := x_source_line_rec.ship_to_address_id;
2802: END IF;
2809: IF l_partner_rec.end_customer_site_use_id is null
2810: THEN
2811: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
2812: fnd_msg_pub.add;
2813: raise fnd_api.g_exc_error;
2814: ELSE
2815: x_source_line_rec.ib_current_loc_id := l_partner_rec.end_customer_site_use_id;
2816: END IF;
2817: ELSIF x_source_line_rec.ib_current_loc = 'SHIP_TO'
2819: IF x_source_line_rec.ship_to_address_id is null
2820: THEN
2821: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
2822: fnd_msg_pub.add;
2823: raise fnd_api.g_exc_error;
2824: ELSE
2825: x_source_line_rec.ib_current_loc_id := x_source_line_rec.ship_to_address_id;
2826: END IF;
2827: ELSIF x_source_line_rec.ib_current_loc = 'SOLD_TO'
2829: IF l_partner_rec.SOLD_TO_SITE_USE_ID is null -- 3412544 x_source_line_rec.sold_to_org_id is null
2830: THEN
2831: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
2832: fnd_msg_pub.add;
2833: raise fnd_api.g_exc_error;
2834: ELSE
2835: x_source_line_rec.ib_current_loc_id := l_partner_rec.SOLD_TO_SITE_USE_ID; -- 3412544 x_source_line_rec.sold_to_org_id;
2836: END IF;
2837: ELSIF x_source_line_rec.ib_current_loc = 'DELIVER_TO'
2839: IF x_source_line_rec.deliver_to_org_id is null
2840: THEN
2841: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
2842: fnd_msg_pub.add;
2843: raise fnd_api.g_exc_error;
2844: ELSE
2845: x_source_line_rec.ib_current_loc_id := x_source_line_rec.deliver_to_org_id;
2846: END IF;
2847: ELSIF x_source_line_rec.ib_current_loc = 'BILL_TO'
2849: IF x_source_line_rec.bill_to_address_id is null
2850: THEN
2851: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
2852: fnd_msg_pub.add;
2853: raise fnd_api.g_exc_error;
2854: ELSE
2855: x_source_line_rec.ib_current_loc_id := x_source_line_rec.bill_to_address_id;
2856: END IF;
2857: ELSIF x_source_line_rec.ib_current_loc = 'INSTALL_BASE'
2855: x_source_line_rec.ib_current_loc_id := x_source_line_rec.bill_to_address_id;
2856: END IF;
2857: ELSIF x_source_line_rec.ib_current_loc = 'INSTALL_BASE'
2858: THEN
2859: x_source_line_rec.ib_current_loc_id := fnd_api.g_miss_num;
2860: END IF;
2861: ELSE
2862: x_source_line_rec.ib_current_loc_id := x_source_line_rec.ship_to_address_id;
2863: END IF;
2924: AND hzr.object_table_name = 'HZ_PARTIES'
2925: AND hzr.directional_flag = 'F';
2926: END IF;
2927: EXCEPTION
2928: WHEN fnd_api.g_exc_error THEN
2929: x_return_status := fnd_api.g_ret_sts_error;
2930: END get_order_line_source_info;
2931:
2932:
2925: AND hzr.directional_flag = 'F';
2926: END IF;
2927: EXCEPTION
2928: WHEN fnd_api.g_exc_error THEN
2929: x_return_status := fnd_api.g_ret_sts_error;
2930: END get_order_line_source_info;
2931:
2932:
2933: PROCEDURE get_wsh_source_info(
2962: FROM wsh_delivery_details_ob_grp_v
2963: WHERE delivery_detail_id = p_src_line_id;
2964:
2965: BEGIN
2966: x_return_status := fnd_api.g_ret_sts_success;
2967: api_log('get_wsh_source_info');
2968:
2969: FOR wsh_rec IN wsh_cur (p_source_line_id)
2970: LOOP
3037: debug(' owner_account_id : '||x_source_line_rec.owner_party_account_id);
3038: debug(' owner_party_id : '||x_source_line_rec.owner_party_id);
3039:
3040: EXCEPTION
3041: WHEN fnd_api.g_exc_error THEN
3042: x_return_status := fnd_api.g_ret_sts_error;
3043: END get_wsh_source_info;
3044:
3045: --
3038: debug(' owner_party_id : '||x_source_line_rec.owner_party_id);
3039:
3040: EXCEPTION
3041: WHEN fnd_api.g_exc_error THEN
3042: x_return_status := fnd_api.g_ret_sts_error;
3043: END get_wsh_source_info;
3044:
3045: --
3046: --
3052: x_source_line_rec OUT NOCOPY source_line_rec,
3053: x_return_status OUT NOCOPY varchar)
3054: IS
3055:
3056: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3057: l_source_header_rec source_header_rec;
3058: l_source_line_rec source_line_rec;
3059:
3060: BEGIN
3058: l_source_line_rec source_line_rec;
3059:
3060: BEGIN
3061:
3062: x_return_status := fnd_api.g_ret_sts_success;
3063: api_log('get_source_info');
3064:
3065: IF p_source_table = g_om_source_table THEN
3066:
3069: x_source_header_rec => l_source_header_rec,
3070: x_source_line_rec => l_source_line_rec,
3071: x_return_status => l_return_status);
3072:
3073: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3074: RAISE fnd_api.g_exc_error;
3075: END IF;
3076:
3077: l_source_line_rec.source_table := g_om_source_table;
3070: x_source_line_rec => l_source_line_rec,
3071: x_return_status => l_return_status);
3072:
3073: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3074: RAISE fnd_api.g_exc_error;
3075: END IF;
3076:
3077: l_source_line_rec.source_table := g_om_source_table;
3078:
3083: x_source_header_rec => l_source_header_rec,
3084: x_source_line_rec => l_source_line_rec,
3085: x_return_status => l_return_status);
3086:
3087: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3088: RAISE fnd_api.g_exc_error;
3089: END IF;
3090:
3091: l_source_line_rec.source_table := g_oke_source_table;
3084: x_source_line_rec => l_source_line_rec,
3085: x_return_status => l_return_status);
3086:
3087: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3088: RAISE fnd_api.g_exc_error;
3089: END IF;
3090:
3091: l_source_line_rec.source_table := g_oke_source_table;
3092:
3095: x_source_header_rec := l_source_header_rec;
3096: x_source_line_rec := l_source_line_rec;
3097:
3098: EXCEPTION
3099: WHEN fnd_api.g_exc_error THEN
3100: x_return_status := fnd_api.g_ret_sts_error;
3101: END get_source_info;
3102:
3103: /* This routine derives the location information for a NETWORK_LINK */
3096: x_source_line_rec := l_source_line_rec;
3097:
3098: EXCEPTION
3099: WHEN fnd_api.g_exc_error THEN
3100: x_return_status := fnd_api.g_ret_sts_error;
3101: END get_source_info;
3102:
3103: /* This routine derives the location information for a NETWORK_LINK */
3104: /* A partner is identified from the connected to relationship info */
3132: l_location_id number := null;
3133: l_location_type_code varchar2(30);
3134:
3135: BEGIN
3136: x_return_status := fnd_api.g_ret_sts_success;
3137: api_log('get_network_link_location');
3138:
3139: FOR partner_rec IN partner_cur
3140: LOOP
3179: fnd_message.set_token('INST_HDR_ID', p_instance_key.inst_hdr_id);
3180: fnd_message.set_token('INST_ITEM_ID', p_instance_key.inst_item_id);
3181: fnd_message.set_token('INST_REV_NUM', p_instance_key.inst_rev_num);
3182: fnd_msg_pub.add;
3183: RAISE fnd_api.g_exc_error;
3184: END IF;
3185:
3186: debug(' location_type_code :'||l_location_type_code);
3187: debug(' location_id :'||l_location_id);
3189: x_location_type_code := l_location_type_code;
3190: x_location_id := l_location_id;
3191:
3192: EXCEPTION
3193: WHEN fnd_api.g_exc_error THEN
3194: x_return_status := fnd_api.g_ret_sts_error;
3195: END get_network_link_location;
3196:
3197:
3190: x_location_id := l_location_id;
3191:
3192: EXCEPTION
3193: WHEN fnd_api.g_exc_error THEN
3194: x_return_status := fnd_api.g_ret_sts_error;
3195: END get_network_link_location;
3196:
3197:
3198: --
3227: pa_ind binary_integer := 0;
3228: eav_ind binary_integer := 0;
3229: ou_ind binary_integer := 0;
3230:
3231: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3232:
3233: -- Added as part of fix for Bug 2960049
3234: l_instance_usage_code varchar2(30);
3235:
3235:
3236: BEGIN
3237: api_log('build_instance_set');
3238:
3239: x_return_status := fnd_api.g_ret_sts_success;
3240:
3241: IF p_index is not null THEN
3242:
3243: -- Added the nvl, fnd_api g_miss values to the p_txn_line_dtl_rec for Bug 3783088
3239: x_return_status := fnd_api.g_ret_sts_success;
3240:
3241: IF p_index is not null THEN
3242:
3243: -- Added the nvl, fnd_api g_miss values to the p_txn_line_dtl_rec for Bug 3783088
3244: l_i_rec.instance_id := p_txn_line_dtl_rec.instance_id;
3245: l_i_rec.instance_number := fnd_api.g_miss_char;
3246: l_i_rec.external_reference := nvl(p_txn_line_dtl_rec.external_reference,fnd_api.g_miss_char);
3247: l_i_rec.inventory_item_id := p_txn_line_dtl_rec.inventory_item_id;
3241: IF p_index is not null THEN
3242:
3243: -- Added the nvl, fnd_api g_miss values to the p_txn_line_dtl_rec for Bug 3783088
3244: l_i_rec.instance_id := p_txn_line_dtl_rec.instance_id;
3245: l_i_rec.instance_number := fnd_api.g_miss_char;
3246: l_i_rec.external_reference := nvl(p_txn_line_dtl_rec.external_reference,fnd_api.g_miss_char);
3247: l_i_rec.inventory_item_id := p_txn_line_dtl_rec.inventory_item_id;
3248: l_i_rec.inventory_revision := nvl(p_txn_line_dtl_rec.inventory_revision,fnd_api.g_miss_char);
3249: l_i_rec.vld_organization_id := p_txn_line_dtl_rec.inv_organization_id;
3242:
3243: -- Added the nvl, fnd_api g_miss values to the p_txn_line_dtl_rec for Bug 3783088
3244: l_i_rec.instance_id := p_txn_line_dtl_rec.instance_id;
3245: l_i_rec.instance_number := fnd_api.g_miss_char;
3246: l_i_rec.external_reference := nvl(p_txn_line_dtl_rec.external_reference,fnd_api.g_miss_char);
3247: l_i_rec.inventory_item_id := p_txn_line_dtl_rec.inventory_item_id;
3248: l_i_rec.inventory_revision := nvl(p_txn_line_dtl_rec.inventory_revision,fnd_api.g_miss_char);
3249: l_i_rec.vld_organization_id := p_txn_line_dtl_rec.inv_organization_id;
3250: l_i_rec.inv_master_organization_id := fnd_api.g_miss_num;
3244: l_i_rec.instance_id := p_txn_line_dtl_rec.instance_id;
3245: l_i_rec.instance_number := fnd_api.g_miss_char;
3246: l_i_rec.external_reference := nvl(p_txn_line_dtl_rec.external_reference,fnd_api.g_miss_char);
3247: l_i_rec.inventory_item_id := p_txn_line_dtl_rec.inventory_item_id;
3248: l_i_rec.inventory_revision := nvl(p_txn_line_dtl_rec.inventory_revision,fnd_api.g_miss_char);
3249: l_i_rec.vld_organization_id := p_txn_line_dtl_rec.inv_organization_id;
3250: l_i_rec.inv_master_organization_id := fnd_api.g_miss_num;
3251: l_i_rec.serial_number := p_txn_line_dtl_rec.serial_number;
3252: l_i_rec.mfg_serial_number_flag := nvl(p_txn_line_dtl_rec.mfg_serial_number_flag,fnd_api.g_miss_char);
3246: l_i_rec.external_reference := nvl(p_txn_line_dtl_rec.external_reference,fnd_api.g_miss_char);
3247: l_i_rec.inventory_item_id := p_txn_line_dtl_rec.inventory_item_id;
3248: l_i_rec.inventory_revision := nvl(p_txn_line_dtl_rec.inventory_revision,fnd_api.g_miss_char);
3249: l_i_rec.vld_organization_id := p_txn_line_dtl_rec.inv_organization_id;
3250: l_i_rec.inv_master_organization_id := fnd_api.g_miss_num;
3251: l_i_rec.serial_number := p_txn_line_dtl_rec.serial_number;
3252: l_i_rec.mfg_serial_number_flag := nvl(p_txn_line_dtl_rec.mfg_serial_number_flag,fnd_api.g_miss_char);
3253: l_i_rec.lot_number := nvl(p_txn_line_dtl_rec.lot_number,fnd_api.g_miss_char);
3254: l_i_rec.quantity := p_txn_line_dtl_rec.quantity;
3248: l_i_rec.inventory_revision := nvl(p_txn_line_dtl_rec.inventory_revision,fnd_api.g_miss_char);
3249: l_i_rec.vld_organization_id := p_txn_line_dtl_rec.inv_organization_id;
3250: l_i_rec.inv_master_organization_id := fnd_api.g_miss_num;
3251: l_i_rec.serial_number := p_txn_line_dtl_rec.serial_number;
3252: l_i_rec.mfg_serial_number_flag := nvl(p_txn_line_dtl_rec.mfg_serial_number_flag,fnd_api.g_miss_char);
3253: l_i_rec.lot_number := nvl(p_txn_line_dtl_rec.lot_number,fnd_api.g_miss_char);
3254: l_i_rec.quantity := p_txn_line_dtl_rec.quantity;
3255: l_i_rec.unit_of_measure := p_txn_line_dtl_rec.unit_of_measure;
3256: l_i_rec.accounting_class_code := 'CUST_PROD';
3249: l_i_rec.vld_organization_id := p_txn_line_dtl_rec.inv_organization_id;
3250: l_i_rec.inv_master_organization_id := fnd_api.g_miss_num;
3251: l_i_rec.serial_number := p_txn_line_dtl_rec.serial_number;
3252: l_i_rec.mfg_serial_number_flag := nvl(p_txn_line_dtl_rec.mfg_serial_number_flag,fnd_api.g_miss_char);
3253: l_i_rec.lot_number := nvl(p_txn_line_dtl_rec.lot_number,fnd_api.g_miss_char);
3254: l_i_rec.quantity := p_txn_line_dtl_rec.quantity;
3255: l_i_rec.unit_of_measure := p_txn_line_dtl_rec.unit_of_measure;
3256: l_i_rec.accounting_class_code := 'CUST_PROD';
3257: l_i_rec.instance_condition_id := nvl(p_txn_line_dtl_rec.item_condition_id,fnd_api.g_miss_num);
3253: l_i_rec.lot_number := nvl(p_txn_line_dtl_rec.lot_number,fnd_api.g_miss_char);
3254: l_i_rec.quantity := p_txn_line_dtl_rec.quantity;
3255: l_i_rec.unit_of_measure := p_txn_line_dtl_rec.unit_of_measure;
3256: l_i_rec.accounting_class_code := 'CUST_PROD';
3257: l_i_rec.instance_condition_id := nvl(p_txn_line_dtl_rec.item_condition_id,fnd_api.g_miss_num);
3258: l_i_rec.customer_view_flag := 'Y';
3259: l_i_rec.merchant_view_flag := 'Y';
3260: l_i_rec.sellable_flag := nvl(p_txn_line_dtl_rec.sellable_flag,fnd_api.g_miss_char);
3261: l_i_rec.system_id := nvl(p_txn_line_dtl_rec.csi_system_id,fnd_api.g_miss_num);
3256: l_i_rec.accounting_class_code := 'CUST_PROD';
3257: l_i_rec.instance_condition_id := nvl(p_txn_line_dtl_rec.item_condition_id,fnd_api.g_miss_num);
3258: l_i_rec.customer_view_flag := 'Y';
3259: l_i_rec.merchant_view_flag := 'Y';
3260: l_i_rec.sellable_flag := nvl(p_txn_line_dtl_rec.sellable_flag,fnd_api.g_miss_char);
3261: l_i_rec.system_id := nvl(p_txn_line_dtl_rec.csi_system_id,fnd_api.g_miss_num);
3262: l_i_rec.instance_type_code := nvl(p_txn_line_dtl_rec.instance_type_code,fnd_api.g_miss_char);
3263: l_i_rec.active_start_date := nvl(p_txn_line_dtl_rec.active_start_date,fnd_api.g_miss_date);
3264: l_i_rec.active_end_date := nvl(p_txn_line_dtl_rec.active_end_date,fnd_api.g_miss_date);
3257: l_i_rec.instance_condition_id := nvl(p_txn_line_dtl_rec.item_condition_id,fnd_api.g_miss_num);
3258: l_i_rec.customer_view_flag := 'Y';
3259: l_i_rec.merchant_view_flag := 'Y';
3260: l_i_rec.sellable_flag := nvl(p_txn_line_dtl_rec.sellable_flag,fnd_api.g_miss_char);
3261: l_i_rec.system_id := nvl(p_txn_line_dtl_rec.csi_system_id,fnd_api.g_miss_num);
3262: l_i_rec.instance_type_code := nvl(p_txn_line_dtl_rec.instance_type_code,fnd_api.g_miss_char);
3263: l_i_rec.active_start_date := nvl(p_txn_line_dtl_rec.active_start_date,fnd_api.g_miss_date);
3264: l_i_rec.active_end_date := nvl(p_txn_line_dtl_rec.active_end_date,fnd_api.g_miss_date);
3265: l_i_rec.location_type_code := nvl(p_txn_line_dtl_rec.location_type_code,fnd_api.g_miss_char);
3258: l_i_rec.customer_view_flag := 'Y';
3259: l_i_rec.merchant_view_flag := 'Y';
3260: l_i_rec.sellable_flag := nvl(p_txn_line_dtl_rec.sellable_flag,fnd_api.g_miss_char);
3261: l_i_rec.system_id := nvl(p_txn_line_dtl_rec.csi_system_id,fnd_api.g_miss_num);
3262: l_i_rec.instance_type_code := nvl(p_txn_line_dtl_rec.instance_type_code,fnd_api.g_miss_char);
3263: l_i_rec.active_start_date := nvl(p_txn_line_dtl_rec.active_start_date,fnd_api.g_miss_date);
3264: l_i_rec.active_end_date := nvl(p_txn_line_dtl_rec.active_end_date,fnd_api.g_miss_date);
3265: l_i_rec.location_type_code := nvl(p_txn_line_dtl_rec.location_type_code,fnd_api.g_miss_char);
3266: l_i_rec.location_id := nvl(p_txn_line_dtl_rec.location_id,fnd_api.g_miss_num);
3259: l_i_rec.merchant_view_flag := 'Y';
3260: l_i_rec.sellable_flag := nvl(p_txn_line_dtl_rec.sellable_flag,fnd_api.g_miss_char);
3261: l_i_rec.system_id := nvl(p_txn_line_dtl_rec.csi_system_id,fnd_api.g_miss_num);
3262: l_i_rec.instance_type_code := nvl(p_txn_line_dtl_rec.instance_type_code,fnd_api.g_miss_char);
3263: l_i_rec.active_start_date := nvl(p_txn_line_dtl_rec.active_start_date,fnd_api.g_miss_date);
3264: l_i_rec.active_end_date := nvl(p_txn_line_dtl_rec.active_end_date,fnd_api.g_miss_date);
3265: l_i_rec.location_type_code := nvl(p_txn_line_dtl_rec.location_type_code,fnd_api.g_miss_char);
3266: l_i_rec.location_id := nvl(p_txn_line_dtl_rec.location_id,fnd_api.g_miss_num);
3267: -- Added for partner ordering
3260: l_i_rec.sellable_flag := nvl(p_txn_line_dtl_rec.sellable_flag,fnd_api.g_miss_char);
3261: l_i_rec.system_id := nvl(p_txn_line_dtl_rec.csi_system_id,fnd_api.g_miss_num);
3262: l_i_rec.instance_type_code := nvl(p_txn_line_dtl_rec.instance_type_code,fnd_api.g_miss_char);
3263: l_i_rec.active_start_date := nvl(p_txn_line_dtl_rec.active_start_date,fnd_api.g_miss_date);
3264: l_i_rec.active_end_date := nvl(p_txn_line_dtl_rec.active_end_date,fnd_api.g_miss_date);
3265: l_i_rec.location_type_code := nvl(p_txn_line_dtl_rec.location_type_code,fnd_api.g_miss_char);
3266: l_i_rec.location_id := nvl(p_txn_line_dtl_rec.location_id,fnd_api.g_miss_num);
3267: -- Added for partner ordering
3268: l_i_rec.install_location_type_code := nvl(p_txn_line_dtl_rec.install_location_type_code,fnd_api.g_miss_char);
3261: l_i_rec.system_id := nvl(p_txn_line_dtl_rec.csi_system_id,fnd_api.g_miss_num);
3262: l_i_rec.instance_type_code := nvl(p_txn_line_dtl_rec.instance_type_code,fnd_api.g_miss_char);
3263: l_i_rec.active_start_date := nvl(p_txn_line_dtl_rec.active_start_date,fnd_api.g_miss_date);
3264: l_i_rec.active_end_date := nvl(p_txn_line_dtl_rec.active_end_date,fnd_api.g_miss_date);
3265: l_i_rec.location_type_code := nvl(p_txn_line_dtl_rec.location_type_code,fnd_api.g_miss_char);
3266: l_i_rec.location_id := nvl(p_txn_line_dtl_rec.location_id,fnd_api.g_miss_num);
3267: -- Added for partner ordering
3268: l_i_rec.install_location_type_code := nvl(p_txn_line_dtl_rec.install_location_type_code,fnd_api.g_miss_char);
3269: l_i_rec.install_location_id := nvl(p_txn_line_dtl_rec.install_location_id,fnd_api.g_miss_num);
3262: l_i_rec.instance_type_code := nvl(p_txn_line_dtl_rec.instance_type_code,fnd_api.g_miss_char);
3263: l_i_rec.active_start_date := nvl(p_txn_line_dtl_rec.active_start_date,fnd_api.g_miss_date);
3264: l_i_rec.active_end_date := nvl(p_txn_line_dtl_rec.active_end_date,fnd_api.g_miss_date);
3265: l_i_rec.location_type_code := nvl(p_txn_line_dtl_rec.location_type_code,fnd_api.g_miss_char);
3266: l_i_rec.location_id := nvl(p_txn_line_dtl_rec.location_id,fnd_api.g_miss_num);
3267: -- Added for partner ordering
3268: l_i_rec.install_location_type_code := nvl(p_txn_line_dtl_rec.install_location_type_code,fnd_api.g_miss_char);
3269: l_i_rec.install_location_id := nvl(p_txn_line_dtl_rec.install_location_id,fnd_api.g_miss_num);
3270:
3264: l_i_rec.active_end_date := nvl(p_txn_line_dtl_rec.active_end_date,fnd_api.g_miss_date);
3265: l_i_rec.location_type_code := nvl(p_txn_line_dtl_rec.location_type_code,fnd_api.g_miss_char);
3266: l_i_rec.location_id := nvl(p_txn_line_dtl_rec.location_id,fnd_api.g_miss_num);
3267: -- Added for partner ordering
3268: l_i_rec.install_location_type_code := nvl(p_txn_line_dtl_rec.install_location_type_code,fnd_api.g_miss_char);
3269: l_i_rec.install_location_id := nvl(p_txn_line_dtl_rec.install_location_id,fnd_api.g_miss_num);
3270:
3271: IF p_source_line_rec.source_table = g_om_source_table THEN
3272: l_i_rec.last_oe_order_line_id := p_source_line_rec.source_line_id;
3265: l_i_rec.location_type_code := nvl(p_txn_line_dtl_rec.location_type_code,fnd_api.g_miss_char);
3266: l_i_rec.location_id := nvl(p_txn_line_dtl_rec.location_id,fnd_api.g_miss_num);
3267: -- Added for partner ordering
3268: l_i_rec.install_location_type_code := nvl(p_txn_line_dtl_rec.install_location_type_code,fnd_api.g_miss_char);
3269: l_i_rec.install_location_id := nvl(p_txn_line_dtl_rec.install_location_id,fnd_api.g_miss_num);
3270:
3271: IF p_source_line_rec.source_table = g_om_source_table THEN
3272: l_i_rec.last_oe_order_line_id := p_source_line_rec.source_line_id;
3273: ELSIF p_source_line_rec.source_table = 'CONFIGURATOR' THEN
3271: IF p_source_line_rec.source_table = g_om_source_table THEN
3272: l_i_rec.last_oe_order_line_id := p_source_line_rec.source_line_id;
3273: ELSIF p_source_line_rec.source_table = 'CONFIGURATOR' THEN
3274: IF p_source_line_rec.batch_validate_flag = 'N' THEN
3275: l_i_rec.call_batch_validation := fnd_api.g_false;
3276: END IF;
3277:
3278: END IF;
3279:
3277:
3278: END IF;
3279:
3280: l_i_rec.last_txn_line_detail_id := p_txn_line_dtl_rec.txn_line_detail_id;
3281: l_i_rec.install_date := nvl(p_txn_line_dtl_rec.active_start_date,fnd_api.g_miss_date);
3282: l_i_rec.manually_created_flag := 'N';
3283: l_i_rec.return_by_date := nvl(p_txn_line_dtl_rec.return_by_date,fnd_api.g_miss_date);
3284: l_i_rec.creation_complete_flag := fnd_api.g_miss_char;
3285: l_i_rec.completeness_flag := fnd_api.g_miss_char;
3279:
3280: l_i_rec.last_txn_line_detail_id := p_txn_line_dtl_rec.txn_line_detail_id;
3281: l_i_rec.install_date := nvl(p_txn_line_dtl_rec.active_start_date,fnd_api.g_miss_date);
3282: l_i_rec.manually_created_flag := 'N';
3283: l_i_rec.return_by_date := nvl(p_txn_line_dtl_rec.return_by_date,fnd_api.g_miss_date);
3284: l_i_rec.creation_complete_flag := fnd_api.g_miss_char;
3285: l_i_rec.completeness_flag := fnd_api.g_miss_char;
3286: l_i_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
3287:
3280: l_i_rec.last_txn_line_detail_id := p_txn_line_dtl_rec.txn_line_detail_id;
3281: l_i_rec.install_date := nvl(p_txn_line_dtl_rec.active_start_date,fnd_api.g_miss_date);
3282: l_i_rec.manually_created_flag := 'N';
3283: l_i_rec.return_by_date := nvl(p_txn_line_dtl_rec.return_by_date,fnd_api.g_miss_date);
3284: l_i_rec.creation_complete_flag := fnd_api.g_miss_char;
3285: l_i_rec.completeness_flag := fnd_api.g_miss_char;
3286: l_i_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
3287:
3288: -- Begin Fix for Bug 2960049
3281: l_i_rec.install_date := nvl(p_txn_line_dtl_rec.active_start_date,fnd_api.g_miss_date);
3282: l_i_rec.manually_created_flag := 'N';
3283: l_i_rec.return_by_date := nvl(p_txn_line_dtl_rec.return_by_date,fnd_api.g_miss_date);
3284: l_i_rec.creation_complete_flag := fnd_api.g_miss_char;
3285: l_i_rec.completeness_flag := fnd_api.g_miss_char;
3286: l_i_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
3287:
3288: -- Begin Fix for Bug 2960049
3289: IF nvl(l_i_rec.instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
3285: l_i_rec.completeness_flag := fnd_api.g_miss_char;
3286: l_i_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
3287:
3288: -- Begin Fix for Bug 2960049
3289: IF nvl(l_i_rec.instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
3290: BEGIN
3291: SELECT instance_usage_code
3292: INTO l_instance_usage_code
3293: FROM csi_item_instances
3294: WHERE instance_id = l_i_rec.instance_id;
3295:
3296: EXCEPTION
3297: WHEN no_data_found THEN
3298: l_i_rec.instance_id := fnd_api.g_miss_num;
3299: END;
3300: IF l_instance_usage_code = 'IN_RELATIONSHIP' THEN
3301: l_i_rec.instance_usage_code := l_instance_usage_code;
3302: END IF;
3306: l_i_rec.last_oe_agreement_id := p_source_line_rec.agreement_id;
3307: l_i_rec.config_inst_hdr_id := p_txn_line_dtl_rec.config_inst_hdr_id;
3308: l_i_rec.config_inst_rev_num := p_txn_line_dtl_rec.config_inst_rev_num;
3309: l_i_rec.config_inst_item_id := p_txn_line_dtl_rec.config_inst_item_id;
3310: l_i_rec.instance_description := nvl(p_txn_line_dtl_rec.instance_description,fnd_api.g_miss_char);
3311: l_i_rec.last_txn_line_detail_id := p_txn_line_dtl_rec.source_txn_line_detail_id;
3312:
3313: IF p_item_attrib_rec.ib_item_instance_class = 'LINK' THEN
3314:
3325: x_location_id => l_i_rec.location_id,
3326: x_return_status => l_return_status);
3327:
3328: ELSE
3329: l_i_rec.install_location_type_code := nvl(p_txn_line_dtl_rec.location_type_code,fnd_api.g_miss_char);
3330: l_i_rec.install_location_id := nvl(p_txn_line_dtl_rec.location_id,fnd_api.g_miss_num);
3331: END IF;
3332:
3333: -- contact switch parse
3326: x_return_status => l_return_status);
3327:
3328: ELSE
3329: l_i_rec.install_location_type_code := nvl(p_txn_line_dtl_rec.location_type_code,fnd_api.g_miss_char);
3330: l_i_rec.install_location_id := nvl(p_txn_line_dtl_rec.location_id,fnd_api.g_miss_num);
3331: END IF;
3332:
3333: -- contact switch parse
3334: IF p_txn_party_tbl.COUNT > 0 THEN
3349: p_txn_party_tbl(l_pc_ind).contact_party_id = l_p_ind
3350: THEN
3351: --p_txn_party_tbl(l_pc_ind).contact_party_id := p_ind;
3352: -- commented the above statement and added the below IF for bug 4945025
3353: IF nvl(l_i_rec.instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num Then
3354: BEGIN
3355: SELECT instance_party_id
3356: INTO p_txn_party_tbl(l_pc_ind).contact_party_id
3357: FROM csi_i_parties
3365: fnd_message.set_token('INSTANCE_ID',l_i_rec.instance_id);
3366: fnd_message.set_token('RELATIONSHIP_TYPE_CODE',p_txn_party_tbl(l_p_ind).relationship_type_code);
3367: fnd_msg_pub.add;
3368: IF p_txn_party_tbl(l_p_ind).relationship_type_code = 'OWNER' THEN
3369: x_return_status := fnd_api.g_ret_sts_error;
3370: raise fnd_api.g_exc_error;
3371: ELSE
3372: p_txn_party_tbl(l_pc_ind).contact_party_id := p_ind;
3373: debug('relationship_type_code :'||p_txn_party_tbl(l_p_ind).relationship_type_code);
3366: fnd_message.set_token('RELATIONSHIP_TYPE_CODE',p_txn_party_tbl(l_p_ind).relationship_type_code);
3367: fnd_msg_pub.add;
3368: IF p_txn_party_tbl(l_p_ind).relationship_type_code = 'OWNER' THEN
3369: x_return_status := fnd_api.g_ret_sts_error;
3370: raise fnd_api.g_exc_error;
3371: ELSE
3372: p_txn_party_tbl(l_pc_ind).contact_party_id := p_ind;
3373: debug('relationship_type_code :'||p_txn_party_tbl(l_p_ind).relationship_type_code);
3374: END IF;
3376: fnd_message.set_name('CSI','CSI_INT_MANY_INSTA_PTY_FOUND');
3377: fnd_message.set_token('INSTANCE_ID',l_i_rec.instance_id);
3378: fnd_message.set_token('RELATIONSHIP_TYPE_CODE',p_txn_party_tbl(l_p_ind).relationship_type_code);
3379: fnd_msg_pub.add;
3380: x_return_status := fnd_api.g_ret_sts_error;
3381: raise fnd_api.g_exc_error;
3382: END;
3383: ELSE
3384: p_txn_party_tbl(l_pc_ind).contact_party_id := p_ind;
3377: fnd_message.set_token('INSTANCE_ID',l_i_rec.instance_id);
3378: fnd_message.set_token('RELATIONSHIP_TYPE_CODE',p_txn_party_tbl(l_p_ind).relationship_type_code);
3379: fnd_msg_pub.add;
3380: x_return_status := fnd_api.g_ret_sts_error;
3381: raise fnd_api.g_exc_error;
3382: END;
3383: ELSE
3384: p_txn_party_tbl(l_pc_ind).contact_party_id := p_ind;
3385: END IF;
3528: IF p_txn_eav_tbl(l_eav_ind).attrib_source_table = 'CSI_IEA_VALUES' THEN
3529: l_eav_tbl(eav_ind).attribute_value_id := p_txn_eav_tbl(l_eav_ind).attribute_source_id;
3530: ELSIF p_txn_eav_tbl(l_eav_ind).attrib_source_table = 'CSI_I_EXTENDED_ATTRIBS' THEN
3531: l_eav_tbl(eav_ind).attribute_id := p_txn_eav_tbl(l_eav_ind).attribute_source_id;
3532: IF l_i_rec.instance_id = fnd_api.g_miss_num THEN
3533: l_eav_tbl(eav_ind).attribute_value_id := fnd_api.g_miss_num;
3534: ELSE
3535: BEGIN
3536: SELECT attribute_value_id
3529: l_eav_tbl(eav_ind).attribute_value_id := p_txn_eav_tbl(l_eav_ind).attribute_source_id;
3530: ELSIF p_txn_eav_tbl(l_eav_ind).attrib_source_table = 'CSI_I_EXTENDED_ATTRIBS' THEN
3531: l_eav_tbl(eav_ind).attribute_id := p_txn_eav_tbl(l_eav_ind).attribute_source_id;
3532: IF l_i_rec.instance_id = fnd_api.g_miss_num THEN
3533: l_eav_tbl(eav_ind).attribute_value_id := fnd_api.g_miss_num;
3534: ELSE
3535: BEGIN
3536: SELECT attribute_value_id
3537: INTO l_eav_tbl(eav_ind).attribute_value_id
3539: WHERE attribute_id = p_txn_eav_tbl(l_eav_ind).attribute_source_id
3540: AND instance_id = l_i_rec.instance_id;
3541: EXCEPTION
3542: WHEN no_data_found THEN
3543: l_eav_tbl(eav_ind).attribute_value_id := fnd_api.g_miss_num;
3544: END;
3545: END IF;
3546: END IF;
3547:
3574: IF px_pricing_tbl.COUNT > 0 THEN
3575: FOR l_pr_ind IN px_pricing_tbl.FIRST .. px_pricing_tbl.LAST
3576: LOOP
3577: IF px_pricing_tbl(l_pr_ind).parent_tbl_index = p_index
3578: AND px_pricing_tbl(l_pr_ind).instance_id = fnd_api.g_miss_num
3579: THEN
3580: px_pricing_tbl(l_pr_ind).instance_id := l_i_rec.instance_id; -- bug 5093707
3581: END IF;
3582: END LOOP; -- pricing attribs loop
3591:
3592: END IF; -- p_index is not null
3593:
3594: EXCEPTION
3595: WHEN fnd_api.g_exc_error THEN
3596: x_return_status := fnd_api.g_ret_sts_error;
3597: END build_instance_set;
3598:
3599: PROCEDURE sub_type_specific_vldns(
3592: END IF; -- p_index is not null
3593:
3594: EXCEPTION
3595: WHEN fnd_api.g_exc_error THEN
3596: x_return_status := fnd_api.g_ret_sts_error;
3597: END build_instance_set;
3598:
3599: PROCEDURE sub_type_specific_vldns(
3600: p_source_flag IN varchar2,
3609: IS
3610: l_csi_param_rec csi_install_parameters%rowtype;
3611: BEGIN
3612:
3613: x_return_status := fnd_api.g_ret_sts_success;
3614:
3615: api_log('sub_type_specific_vldns');
3616: /* commenting this for bug 4028827 . since we do not seem to have any usage currently for this Query
3617: SELECT * INTO l_csi_param_rec
3625: -- check for multiple owner error
3626: -- for non source check if an instance ref is specified
3627:
3628: EXCEPTION
3629: WHEN fnd_api.g_exc_error THEN
3630: x_return_status := fnd_api.g_ret_sts_error;
3631: END sub_type_specific_vldns;
3632:
3633:
3626: -- for non source check if an instance ref is specified
3627:
3628: EXCEPTION
3629: WHEN fnd_api.g_exc_error THEN
3630: x_return_status := fnd_api.g_ret_sts_error;
3631: END sub_type_specific_vldns;
3632:
3633:
3634: --
3644: x_return_status OUT NOCOPY varchar2)
3645: IS
3646: l_active_end_date date;
3647: BEGIN
3648: x_return_status := fnd_api.g_ret_sts_success;
3649: api_log('validate_and_derive_ids');
3650:
3651: -- srramakr TSO with equipment. During DISCONNECT of Tangible item instance, we need to remove the config keys.
3652: -- In order to identify whether the item is tangible or not, we use the serial number of the item instance.
3661: l_active_end_date
3662: FROM csi_item_instances
3663: WHERE instance_id = px_instance_rec.instance_id;
3664:
3665: px_instance_rec.active_start_date := fnd_api.g_miss_date;
3666:
3667: -- 4946227 okeship of srlsoi returned for good fails
3668: IF nvl(l_active_end_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date THEN
3669: IF px_instance_rec.active_end_date = fnd_api.g_miss_date THEN
3664:
3665: px_instance_rec.active_start_date := fnd_api.g_miss_date;
3666:
3667: -- 4946227 okeship of srlsoi returned for good fails
3668: IF nvl(l_active_end_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date THEN
3669: IF px_instance_rec.active_end_date = fnd_api.g_miss_date THEN
3670: px_instance_rec.active_end_date := null;
3671: END IF;
3672: END IF;
3665: px_instance_rec.active_start_date := fnd_api.g_miss_date;
3666:
3667: -- 4946227 okeship of srlsoi returned for good fails
3668: IF nvl(l_active_end_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date THEN
3669: IF px_instance_rec.active_end_date = fnd_api.g_miss_date THEN
3670: px_instance_rec.active_end_date := null;
3671: END IF;
3672: END IF;
3673:
3675: FOR l_p_ind IN px_party_tbl.FIRST .. px_party_tbl.LAST
3676: LOOP
3677:
3678: px_party_tbl(l_p_ind).instance_id := px_instance_rec.instance_id;
3679: px_party_tbl(l_p_ind).active_start_date := fnd_api.g_miss_date;
3680:
3681: IF nvl(px_party_tbl(l_p_ind).instance_party_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3682: BEGIN
3683: SELECT instance_party_id,
3677:
3678: px_party_tbl(l_p_ind).instance_id := px_instance_rec.instance_id;
3679: px_party_tbl(l_p_ind).active_start_date := fnd_api.g_miss_date;
3680:
3681: IF nvl(px_party_tbl(l_p_ind).instance_party_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3682: BEGIN
3683: SELECT instance_party_id,
3684: object_version_number
3685: INTO px_party_tbl(l_p_ind).instance_party_id,
3689: AND party_source_table = px_party_tbl(l_p_ind).party_source_table
3690: AND relationship_type_code = px_party_tbl(l_p_ind).relationship_type_code;
3691: EXCEPTION
3692: WHEN no_data_found THEN
3693: px_party_tbl(l_p_ind).instance_party_id := fnd_api.g_miss_num;
3694: px_party_tbl(l_p_ind).object_version_number := 1.0;
3695: WHEN too_many_rows THEN
3696: BEGIN
3697: SELECT instance_party_id,
3704: AND party_source_table = px_party_tbl(l_p_ind).party_source_table
3705: AND relationship_type_code = px_party_tbl(l_p_ind).relationship_type_code;
3706: EXCEPTION
3707: WHEN no_data_found THEN
3708: px_party_tbl(l_p_ind).instance_party_id := fnd_api.g_miss_num;
3709: px_party_tbl(l_p_ind).object_version_number := 1.0;
3710: END;
3711: END;
3712:
3715: FOR l_pa_ind IN px_party_acct_tbl.FIRST .. px_party_acct_tbl.LAST
3716: LOOP
3717: IF px_party_acct_tbl(l_pa_ind).parent_tbl_index = l_p_ind THEN
3718: px_party_acct_tbl(l_pa_ind).instance_party_id := px_party_tbl(l_p_ind).instance_party_id;
3719: px_party_acct_tbl(l_pa_ind).active_start_date := fnd_api.g_miss_date;
3720:
3721: IF nvl(px_party_acct_tbl(l_pa_ind).ip_account_id , fnd_api.g_miss_num) = fnd_api.g_miss_num
3722: THEN
3723: BEGIN
3717: IF px_party_acct_tbl(l_pa_ind).parent_tbl_index = l_p_ind THEN
3718: px_party_acct_tbl(l_pa_ind).instance_party_id := px_party_tbl(l_p_ind).instance_party_id;
3719: px_party_acct_tbl(l_pa_ind).active_start_date := fnd_api.g_miss_date;
3720:
3721: IF nvl(px_party_acct_tbl(l_pa_ind).ip_account_id , fnd_api.g_miss_num) = fnd_api.g_miss_num
3722: THEN
3723: BEGIN
3724:
3725: SELECT ip_account_id,
3731: AND relationship_type_code = px_party_acct_tbl(l_pa_ind).relationship_type_code;
3732:
3733: EXCEPTION
3734: WHEN no_data_found THEN
3735: px_party_acct_tbl(l_pa_ind).ip_account_id := fnd_api.g_miss_num;
3736: px_party_acct_tbl(l_pa_ind).object_version_number := 1.0;
3737: WHEN too_many_rows THEN
3738: BEGIN
3739: SELECT ip_account_id,
3745: AND party_account_id = px_party_acct_tbl(l_pa_ind).party_account_id
3746: AND relationship_type_code = px_party_acct_tbl(l_pa_ind).relationship_type_code;
3747: EXCEPTION
3748: WHEN no_data_found THEN
3749: px_party_acct_tbl(l_pa_ind).ip_account_id := fnd_api.g_miss_num;
3750: px_party_acct_tbl(l_pa_ind).object_version_number := 1.0;
3751: END;
3752: END;
3753: ELSE
3774: IF px_org_units_tbl.COUNT > 0 THEN
3775: FOR l_ind IN px_org_units_tbl.FIRST .. px_org_units_tbl.LAST
3776: LOOP
3777: px_org_units_tbl(l_ind).instance_id := px_instance_rec.instance_id;
3778: px_org_units_tbl(l_ind).active_start_date := fnd_api.g_miss_date;
3779: IF nvl(px_org_units_tbl(l_ind).instance_ou_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3780: BEGIN
3781: SELECT instance_ou_id,
3782: object_version_number
3775: FOR l_ind IN px_org_units_tbl.FIRST .. px_org_units_tbl.LAST
3776: LOOP
3777: px_org_units_tbl(l_ind).instance_id := px_instance_rec.instance_id;
3778: px_org_units_tbl(l_ind).active_start_date := fnd_api.g_miss_date;
3779: IF nvl(px_org_units_tbl(l_ind).instance_ou_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3780: BEGIN
3781: SELECT instance_ou_id,
3782: object_version_number
3783: INTO px_org_units_tbl(l_ind).instance_ou_id,
3787: AND operating_unit_id = px_org_units_tbl(l_ind).operating_unit_id
3788: AND relationship_type_code = px_org_units_tbl(l_ind).relationship_type_code;
3789: EXCEPTION
3790: WHEN no_data_found THEN
3791: px_org_units_tbl(l_ind).instance_ou_id := fnd_api.g_miss_num;
3792: px_org_units_tbl(l_ind).object_version_number := 1.0;
3793: END;
3794: ELSE
3795: SELECT object_version_number
3804: IF px_eav_tbl.COUNT > 0 THEN
3805: FOR l_ind IN px_eav_tbl.FIRST .. px_eav_tbl.LAST
3806: LOOP
3807: px_eav_tbl(l_ind).instance_id := px_instance_rec.instance_id;
3808: IF nvl(px_eav_tbl(l_ind).attribute_value_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3809: BEGIN
3810: null;
3811: EXCEPTION
3812: WHEN no_data_found THEN
3826: IF px_pricing_tbl.COUNT > 0 THEN
3827: FOR l_ind IN px_pricing_tbl.FIRST .. px_pricing_tbl.LAST
3828: LOOP
3829: px_pricing_tbl(l_ind).instance_id := px_instance_rec.instance_id;
3830: IF nvl(px_pricing_tbl(l_ind).pricing_attribute_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3831:
3832: BEGIN
3833: SELECT pricing_attribute_id ,
3834: object_version_number
3855: -- end pricing attribs
3856:
3857:
3858: EXCEPTION
3859: WHEN fnd_api.g_exc_error THEN
3860: x_return_status := fnd_api.g_ret_sts_error;
3861: END validate_and_derive_ids;
3862:
3863: PROCEDURE build_relationship_tbl(
3856:
3857:
3858: EXCEPTION
3859: WHEN fnd_api.g_exc_error THEN
3860: x_return_status := fnd_api.g_ret_sts_error;
3861: END validate_and_derive_ids;
3862:
3863: PROCEDURE build_relationship_tbl(
3864: p_txn_ii_rltns_tbl IN csi_t_datastructures_grp.txn_ii_rltns_tbl,
3885:
3886: skip_the_relation exception;
3887:
3888: BEGIN
3889: x_return_status := fnd_api.g_ret_sts_success;
3890: api_log('build_relationship_tbl');
3891:
3892: debug(' ii_rltns_tbl :'||p_txn_ii_rltns_tbl.count);
3893:
3969: WHERE subject_id = l_sub_instance_id
3970: AND object_id = l_obj_instance_id;
3971: EXCEPTION
3972: WHEN no_data_found THEN
3973: l_r_tbl(l_ii_ind).csi_inst_relationship_id := fnd_api.g_miss_num;
3974: END;
3975:
3976: IF nvl(l_r_tbl(l_ii_ind).csi_inst_relationship_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3977: IF l_r_tbl(l_ii_ind).active_end_date IS NULL AND l_obj_end_date IS NULL --Fix for bug 5956280
3972: WHEN no_data_found THEN
3973: l_r_tbl(l_ii_ind).csi_inst_relationship_id := fnd_api.g_miss_num;
3974: END;
3975:
3976: IF nvl(l_r_tbl(l_ii_ind).csi_inst_relationship_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3977: IF l_r_tbl(l_ii_ind).active_end_date IS NULL AND l_obj_end_date IS NULL --Fix for bug 5956280
3978: AND l_sub_end_date IS NULL THEN
3979: l_c_ind := l_c_ind + 1;
3980: x_c_ii_rltns_tbl(l_c_ind).relationship_id := fnd_api.g_miss_num;
3976: IF nvl(l_r_tbl(l_ii_ind).csi_inst_relationship_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3977: IF l_r_tbl(l_ii_ind).active_end_date IS NULL AND l_obj_end_date IS NULL --Fix for bug 5956280
3978: AND l_sub_end_date IS NULL THEN
3979: l_c_ind := l_c_ind + 1;
3980: x_c_ii_rltns_tbl(l_c_ind).relationship_id := fnd_api.g_miss_num;
3981: x_c_ii_rltns_tbl(l_c_ind).subject_id := l_sub_instance_id;
3982: x_c_ii_rltns_tbl(l_c_ind).relationship_type_code := l_r_tbl(l_ii_ind).relationship_type_code;
3983: x_c_ii_rltns_tbl(l_c_ind).object_id := l_obj_instance_id;
3984: x_c_ii_rltns_tbl(l_c_ind).display_order := l_r_tbl(l_ii_ind).display_order;
4019: debug(' create_ii_rltns :'||x_c_ii_rltns_tbl.count);
4020: debug(' update_ii_rltns :'||x_u_ii_rltns_tbl.count);
4021:
4022: EXCEPTION
4023: WHEN fnd_api.g_exc_error THEN
4024: x_return_status := fnd_api.g_ret_sts_success;
4025: END build_relationship_tbl;
4026:
4027: PROCEDURE update_td_status(
4020: debug(' update_ii_rltns :'||x_u_ii_rltns_tbl.count);
4021:
4022: EXCEPTION
4023: WHEN fnd_api.g_exc_error THEN
4024: x_return_status := fnd_api.g_ret_sts_success;
4025: END build_relationship_tbl;
4026:
4027: PROCEDURE update_td_status(
4028: p_txn_line_rec IN csi_t_datastructures_grp.txn_line_rec,
4038: l_oa_tbl csi_t_datastructures_grp.txn_org_assgn_tbl;
4039: l_ea_tbl csi_t_datastructures_grp.txn_ext_attrib_vals_tbl;
4040: l_ir_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
4041:
4042: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4043: l_msg_count number;
4044: l_msg_data varchar2(2000);
4045:
4046: BEGIN
4043: l_msg_count number;
4044: l_msg_data varchar2(2000);
4045:
4046: BEGIN
4047: x_return_status := fnd_api.g_ret_sts_success;
4048: api_log('update_td_status');
4049:
4050: --l_tl_rec := p_txn_line_rec;
4051: IF nvl(p_txn_line_rec.transaction_line_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
4047: x_return_status := fnd_api.g_ret_sts_success;
4048: api_log('update_td_status');
4049:
4050: --l_tl_rec := p_txn_line_rec;
4051: IF nvl(p_txn_line_rec.transaction_line_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
4052: l_tl_rec.transaction_line_id := p_txn_line_rec.transaction_line_id;
4053: l_tl_rec.processing_status := p_processing_status;
4054: l_tl_rec.api_caller_identity := 'CONFIG';
4055:
4068: END IF;
4069:
4070: csi_t_txn_details_grp.update_txn_line_dtls(
4071: p_api_version => 1.0,
4072: p_commit => fnd_api.g_false,
4073: p_init_msg_list => fnd_api.g_true,
4074: p_validation_level => fnd_api.g_valid_level_full,
4075: p_txn_line_rec => l_tl_rec,
4076: p_txn_line_detail_tbl => l_td_tbl,
4069:
4070: csi_t_txn_details_grp.update_txn_line_dtls(
4071: p_api_version => 1.0,
4072: p_commit => fnd_api.g_false,
4073: p_init_msg_list => fnd_api.g_true,
4074: p_validation_level => fnd_api.g_valid_level_full,
4075: p_txn_line_rec => l_tl_rec,
4076: p_txn_line_detail_tbl => l_td_tbl,
4077: px_txn_party_detail_tbl => l_pd_tbl,
4070: csi_t_txn_details_grp.update_txn_line_dtls(
4071: p_api_version => 1.0,
4072: p_commit => fnd_api.g_false,
4073: p_init_msg_list => fnd_api.g_true,
4074: p_validation_level => fnd_api.g_valid_level_full,
4075: p_txn_line_rec => l_tl_rec,
4076: p_txn_line_detail_tbl => l_td_tbl,
4077: px_txn_party_detail_tbl => l_pd_tbl,
4078: px_txn_pty_acct_detail_tbl => l_pa_tbl,
4082: x_return_status => l_return_status,
4083: x_msg_count => l_msg_count,
4084: x_msg_data => l_msg_data);
4085:
4086: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4087: RAISE fnd_api.g_exc_error;
4088: END IF;
4089: END IF;
4090:
4083: x_msg_count => l_msg_count,
4084: x_msg_data => l_msg_data);
4085:
4086: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4087: RAISE fnd_api.g_exc_error;
4088: END IF;
4089: END IF;
4090:
4091: EXCEPTION
4088: END IF;
4089: END IF;
4090:
4091: EXCEPTION
4092: WHEN fnd_api.g_exc_error THEN
4093: x_return_status := fnd_api.g_ret_sts_error;
4094: END update_td_status;
4095: --
4096: --
4089: END IF;
4090:
4091: EXCEPTION
4092: WHEN fnd_api.g_exc_error THEN
4093: x_return_status := fnd_api.g_ret_sts_error;
4094: END update_td_status;
4095: --
4096: --
4097: --
4154: l_comp_relation_tbl csi_datastructures_pub.ii_relationship_tbl;
4155: l_bom_explode_flag BOOLEAN := FALSE;
4156:
4157: l_create_flag boolean := FALSE;
4158: l_call_contracts varchar2(1) := fnd_api.g_true;
4159:
4160: --4327207
4161: l_fulfilled_date date := fnd_api.g_miss_date;
4162: l_rlt_active_end_date date := fnd_api.g_miss_date;
4157: l_create_flag boolean := FALSE;
4158: l_call_contracts varchar2(1) := fnd_api.g_true;
4159:
4160: --4327207
4161: l_fulfilled_date date := fnd_api.g_miss_date;
4162: l_rlt_active_end_date date := fnd_api.g_miss_date;
4163: l_parent_line_rec oe_order_pub.line_rec_type;
4164: om_vld_org_id NUMBER;
4165: l_csi_order_line_rec csi_order_ship_pub.order_line_rec;
4158: l_call_contracts varchar2(1) := fnd_api.g_true;
4159:
4160: --4327207
4161: l_fulfilled_date date := fnd_api.g_miss_date;
4162: l_rlt_active_end_date date := fnd_api.g_miss_date;
4163: l_parent_line_rec oe_order_pub.line_rec_type;
4164: om_vld_org_id NUMBER;
4165: l_csi_order_line_rec csi_order_ship_pub.order_line_rec;
4166: l_child_line_tbl oe_order_pub.line_tbl_type;
4170:
4171: l_instance_hdr_tbl csi_datastructures_pub.instance_header_tbl;
4172: l_rel_ctr NUMBER;
4173:
4174: l_active_end_date date := fnd_api.g_miss_date;
4175: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4176: l_rel_type_code varchar2(30) := 'COMPONENT-OF';
4177: l_msg_count number;
4178: l_msg_data varchar2(2000);
4171: l_instance_hdr_tbl csi_datastructures_pub.instance_header_tbl;
4172: l_rel_ctr NUMBER;
4173:
4174: l_active_end_date date := fnd_api.g_miss_date;
4175: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4176: l_rel_type_code varchar2(30) := 'COMPONENT-OF';
4177: l_msg_count number;
4178: l_msg_data varchar2(2000);
4179:
4182: BEGIN
4183:
4184: api_log('interface_ib');
4185:
4186: x_return_status := fnd_api.g_ret_sts_success;
4187:
4188: debug(' input record count for interface_ib :-');
4189: debug(' txn_line_dtl_tbl :'||px_txn_line_dtl_tbl.count);
4190: debug(' txn_party_tbl :'||px_txn_party_tbl.count);
4196:
4197: l_pricing_tbl := px_pricing_attribs_tbl;
4198:
4199: --4327207
4200: l_fulfilled_date := nvl(p_source_line_rec.fulfilled_date,fnd_api.g_miss_date);
4201:
4202: -- get_item_attributes
4203: get_item_attributes(
4204: p_inventory_item_id => p_source_line_rec.inventory_item_id,
4205: p_organization_id => p_source_line_rec.organization_id,
4206: x_item_attrib_rec => l_item_attrib_rec,
4207: x_return_status => l_return_status);
4208:
4209: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4210: RAISE fnd_api.g_exc_error;
4211: END IF;
4212:
4213: IF p_source_line_rec.org_id is not null THEN
4206: x_item_attrib_rec => l_item_attrib_rec,
4207: x_return_status => l_return_status);
4208:
4209: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4210: RAISE fnd_api.g_exc_error;
4211: END IF;
4212:
4213: IF p_source_line_rec.org_id is not null THEN
4214: om_vld_org_id := oe_sys_parameters.value(
4259: p_om_vld_org_id => om_vld_org_id,
4260: x_parent_line_rec => l_parent_line_rec,
4261: x_return_status => l_return_status);
4262:
4263: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4264: RAISE fnd_api.g_exc_error;
4265: END IF;
4266:
4267: IF l_parent_line_rec.fulfillment_date IS NOT NULL
4260: x_parent_line_rec => l_parent_line_rec,
4261: x_return_status => l_return_status);
4262:
4263: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4264: RAISE fnd_api.g_exc_error;
4265: END IF;
4266:
4267: IF l_parent_line_rec.fulfillment_date IS NOT NULL
4268: AND
4291: fnd_message.set_name('CSI', 'CSI_INT_SUB_TYPE_REC_MISSING');
4292: fnd_message.set_token('SUB_TYPE_ID', px_txn_line_dtl_tbl(l_td_ind).sub_type_id);
4293: fnd_message.set_token('TRANSACTION_TYPE_ID',px_txn_line_rec.source_transaction_type_id);
4294: fnd_msg_pub.add;
4295: RAISE fnd_api.g_exc_error;
4296: END;
4297:
4298: debug('src_status_id :'||l_sub_type_rec.src_status_id);
4299:
4296: END;
4297:
4298: debug('src_status_id :'||l_sub_type_rec.src_status_id);
4299:
4300: IF nvl(px_csi_txn_rec.transaction_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
4301: l_csi_txn_rec := px_csi_txn_rec;
4302: ELSE
4303: l_csi_txn_rec.transaction_id := fnd_api.g_miss_num;
4304: l_csi_txn_rec.transaction_type_id := px_txn_line_rec.source_transaction_type_id;
4299:
4300: IF nvl(px_csi_txn_rec.transaction_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
4301: l_csi_txn_rec := px_csi_txn_rec;
4302: ELSE
4303: l_csi_txn_rec.transaction_id := fnd_api.g_miss_num;
4304: l_csi_txn_rec.transaction_type_id := px_txn_line_rec.source_transaction_type_id;
4305: l_csi_txn_rec.txn_sub_type_id := px_txn_line_dtl_tbl(l_td_ind).sub_type_id;
4306: l_csi_txn_rec.transaction_date := sysdate;
4307: l_csi_txn_rec.source_header_ref_id := p_source_header_rec.source_header_id;
4337: x_c_ii_rltns_tbl => l_c_ii_rltns_tbl,
4338: x_u_ii_rltns_tbl => l_u_ii_rltns_tbl,
4339: x_return_status => l_return_status);
4340:
4341: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4342: RAISE fnd_api.g_exc_error;
4343: END IF;
4344:
4345: /* update the existing relationships */
4338: x_u_ii_rltns_tbl => l_u_ii_rltns_tbl,
4339: x_return_status => l_return_status);
4340:
4341: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4342: RAISE fnd_api.g_exc_error;
4343: END IF;
4344:
4345: /* update the existing relationships */
4346: IF l_u_ii_rltns_tbl.COUNT > 0 THEN
4349: FOR l_ind IN l_u_ii_rltns_tbl.FIRST .. l_u_ii_rltns_tbl.LAST
4350: LOOP
4351: debug(' Relationship_ID :'|| l_u_ii_rltns_tbl(l_ind).relationship_id);
4352: debug(' Relationship_End_Date:'|| l_u_ii_rltns_tbl(l_ind).active_end_date);
4353: IF nvl(l_u_ii_rltns_tbl(l_ind).active_end_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date
4354: THEN
4355: l_u_ii_rltns_tbl(l_ind).active_end_date := l_csi_txn_rec.source_transaction_date;
4356: END IF;
4357: debug(' Source_txn_date :'|| l_u_ii_rltns_tbl(l_ind).active_end_date);
4364: p_api_name => 'update_relationship');
4365:
4366: csi_ii_relationships_pub.update_relationship(
4367: p_api_version => 1.0,
4368: p_commit => fnd_api.g_false,
4369: p_init_msg_list => fnd_api.g_true,
4370: p_validation_level => fnd_api.g_valid_level_full,
4371: p_relationship_tbl => l_u_ii_rltns_tbl,
4372: p_txn_rec => l_csi_txn_rec,
4365:
4366: csi_ii_relationships_pub.update_relationship(
4367: p_api_version => 1.0,
4368: p_commit => fnd_api.g_false,
4369: p_init_msg_list => fnd_api.g_true,
4370: p_validation_level => fnd_api.g_valid_level_full,
4371: p_relationship_tbl => l_u_ii_rltns_tbl,
4372: p_txn_rec => l_csi_txn_rec,
4373: x_return_status => l_return_status,
4366: csi_ii_relationships_pub.update_relationship(
4367: p_api_version => 1.0,
4368: p_commit => fnd_api.g_false,
4369: p_init_msg_list => fnd_api.g_true,
4370: p_validation_level => fnd_api.g_valid_level_full,
4371: p_relationship_tbl => l_u_ii_rltns_tbl,
4372: p_txn_rec => l_csi_txn_rec,
4373: x_return_status => l_return_status,
4374: x_msg_count => l_msg_count,
4373: x_return_status => l_return_status,
4374: x_msg_count => l_msg_count,
4375: x_msg_data => l_msg_data);
4376:
4377: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4378: RAISE fnd_api.g_exc_error;
4379: END IF;
4380:
4381: record_time('End');
4374: x_msg_count => l_msg_count,
4375: x_msg_data => l_msg_data);
4376:
4377: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4378: RAISE fnd_api.g_exc_error;
4379: END IF;
4380:
4381: record_time('End');
4382:
4401: x_org_units_tbl => l_org_units_tbl,
4402: x_eav_tbl => l_eav_tbl,
4403: x_return_status => l_return_status);
4404:
4405: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4406: RAISE fnd_api.g_exc_error;
4407: END IF;
4408:
4409: debug('source_transaction_flag :'||px_txn_line_dtl_tbl(l_td_ind).source_transaction_flag);
4402: x_eav_tbl => l_eav_tbl,
4403: x_return_status => l_return_status);
4404:
4405: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4406: RAISE fnd_api.g_exc_error;
4407: END IF;
4408:
4409: debug('source_transaction_flag :'||px_txn_line_dtl_tbl(l_td_ind).source_transaction_flag);
4410: IF px_txn_line_dtl_tbl(l_td_ind).source_transaction_flag = 'Y' THEN
4407: END IF;
4408:
4409: debug('source_transaction_flag :'||px_txn_line_dtl_tbl(l_td_ind).source_transaction_flag);
4410: IF px_txn_line_dtl_tbl(l_td_ind).source_transaction_flag = 'Y' THEN
4411: l_instance_rec.instance_status_id := nvl(l_sub_type_rec.src_status_id, fnd_api.g_miss_num);
4412: ELSE
4413: l_instance_rec.instance_status_id := nvl(l_sub_type_rec.non_src_status_id, fnd_api.g_miss_num);
4414: END IF;
4415:
4409: debug('source_transaction_flag :'||px_txn_line_dtl_tbl(l_td_ind).source_transaction_flag);
4410: IF px_txn_line_dtl_tbl(l_td_ind).source_transaction_flag = 'Y' THEN
4411: l_instance_rec.instance_status_id := nvl(l_sub_type_rec.src_status_id, fnd_api.g_miss_num);
4412: ELSE
4413: l_instance_rec.instance_status_id := nvl(l_sub_type_rec.non_src_status_id, fnd_api.g_miss_num);
4414: END IF;
4415:
4416: debug(' processing record count for instance :-');
4417: debug(' instance_id :'||l_instance_rec.instance_id);
4434: p_org_units_tbl => l_org_units_tbl,
4435: p_pricing_tbl => l_pricing_tbl,
4436: x_return_status => l_return_status);
4437:
4438: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4439: RAISE fnd_api.g_exc_error;
4440: END IF;
4441:
4442: IF nvl(l_instance_rec.instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
4435: p_pricing_tbl => l_pricing_tbl,
4436: x_return_status => l_return_status);
4437:
4438: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4439: RAISE fnd_api.g_exc_error;
4440: END IF;
4441:
4442: IF nvl(l_instance_rec.instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
4443: l_create_flag := TRUE;
4438: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4439: RAISE fnd_api.g_exc_error;
4440: END IF;
4441:
4442: IF nvl(l_instance_rec.instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
4443: l_create_flag := TRUE;
4444: END IF;
4445:
4446: IF l_create_flag THEN
4469: p_api_name => 'create_item_instance');
4470:
4471: csi_item_instance_pub.create_item_instance(
4472: p_api_version => 1.0,
4473: p_commit => fnd_api.g_false,
4474: p_init_msg_list => fnd_api.g_true,
4475: p_validation_level => fnd_api.g_valid_level_full,
4476: p_txn_rec => l_csi_txn_rec,
4477: p_instance_rec => l_c_instance_rec,
4470:
4471: csi_item_instance_pub.create_item_instance(
4472: p_api_version => 1.0,
4473: p_commit => fnd_api.g_false,
4474: p_init_msg_list => fnd_api.g_true,
4475: p_validation_level => fnd_api.g_valid_level_full,
4476: p_txn_rec => l_csi_txn_rec,
4477: p_instance_rec => l_c_instance_rec,
4478: p_party_tbl => l_c_party_tbl,
4471: csi_item_instance_pub.create_item_instance(
4472: p_api_version => 1.0,
4473: p_commit => fnd_api.g_false,
4474: p_init_msg_list => fnd_api.g_true,
4475: p_validation_level => fnd_api.g_valid_level_full,
4476: p_txn_rec => l_csi_txn_rec,
4477: p_instance_rec => l_c_instance_rec,
4478: p_party_tbl => l_c_party_tbl,
4479: p_account_tbl => l_c_party_acct_tbl,
4485: x_msg_count => l_msg_count,
4486: x_msg_data => l_msg_data );
4487:
4488: -- For Bug 4057183
4489: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4490: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4491: raise fnd_api.g_exc_error;
4492: END IF;
4493:
4486: x_msg_data => l_msg_data );
4487:
4488: -- For Bug 4057183
4489: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4490: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4491: raise fnd_api.g_exc_error;
4492: END IF;
4493:
4494: record_time('End');
4487:
4488: -- For Bug 4057183
4489: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4490: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4491: raise fnd_api.g_exc_error;
4492: END IF;
4493:
4494: record_time('End');
4495:
4519: px_eav_tbl => l_eav_tbl,
4520: px_pricing_tbl => l_pricing_tbl,
4521: x_return_status => l_return_status);
4522:
4523: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4524: RAISE fnd_api.g_exc_error;
4525: END IF;
4526:
4527: -- validations based on the baseline rev num ##
4520: px_pricing_tbl => l_pricing_tbl,
4521: x_return_status => l_return_status);
4522:
4523: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4524: RAISE fnd_api.g_exc_error;
4525: END IF;
4526:
4527: -- validations based on the baseline rev num ##
4528:
4530: -- For Tangible item, since DISCONNECT is the only possible operation, we need to remove the config keys.
4531: -- Hence nullifying them.
4532: --
4533: IF l_instance_rec.serial_number IS NOT NULL AND
4534: l_instance_rec.serial_number <> FND_API.G_MISS_CHAR THEN
4535: l_instance_rec.config_inst_hdr_id := NULL;
4536: l_instance_rec.config_inst_rev_num := NULL;
4537: l_instance_rec.config_inst_item_id := NULL;
4538: END IF;
4548: csi_t_gen_utility_pvt.dump_csi_account_tbl(l_u_party_acct_tbl);
4549: csi_t_gen_utility_pvt.dump_eav_tbl(l_u_eav_tbl);
4550:
4551:
4552: IF nvl(l_u_instance_rec.active_end_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date
4553: THEN
4554: l_u_instance_rec.active_end_date := l_csi_txn_rec.source_transaction_date;
4555: END IF;
4556:
4566: l_item_instance_expired := 'Y';
4567: END;
4568:
4569: IF l_item_instance_expired = 'Y' AND
4570: (nvl(l_u_instance_rec.active_end_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date) THEN
4571: debug('Item instance ('||l_u_instance_rec.instance_id||') already expired, no need to expire again.');
4572: ELSE
4573: -- End adding code for FP of bug 6755897 - Reconcilation changes
4574: record_time('Start');
4578: p_api_name => 'update_item_instance');
4579:
4580: csi_item_instance_pub.update_item_instance(
4581: p_api_version => 1.0,
4582: p_commit => fnd_api.g_false,
4583: p_init_msg_list => fnd_api.g_true,
4584: p_validation_level => fnd_api.g_valid_level_full,
4585: p_txn_rec => l_csi_txn_rec,
4586: p_instance_rec => l_u_instance_rec,
4579:
4580: csi_item_instance_pub.update_item_instance(
4581: p_api_version => 1.0,
4582: p_commit => fnd_api.g_false,
4583: p_init_msg_list => fnd_api.g_true,
4584: p_validation_level => fnd_api.g_valid_level_full,
4585: p_txn_rec => l_csi_txn_rec,
4586: p_instance_rec => l_u_instance_rec,
4587: p_party_tbl => l_u_party_tbl,
4580: csi_item_instance_pub.update_item_instance(
4581: p_api_version => 1.0,
4582: p_commit => fnd_api.g_false,
4583: p_init_msg_list => fnd_api.g_true,
4584: p_validation_level => fnd_api.g_valid_level_full,
4585: p_txn_rec => l_csi_txn_rec,
4586: p_instance_rec => l_u_instance_rec,
4587: p_party_tbl => l_u_party_tbl,
4588: p_account_tbl => l_u_party_acct_tbl,
4597:
4598: record_time('End');
4599:
4600: -- For Bug 4057183
4601: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4602: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4603: RAISE fnd_api.g_exc_error;
4604: END IF;
4605: END IF; -- Added for FP of bug 6755897 - Reconcilation changes
4598: record_time('End');
4599:
4600: -- For Bug 4057183
4601: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4602: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4603: RAISE fnd_api.g_exc_error;
4604: END IF;
4605: END IF; -- Added for FP of bug 6755897 - Reconcilation changes
4606:
4599:
4600: -- For Bug 4057183
4601: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4602: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4603: RAISE fnd_api.g_exc_error;
4604: END IF;
4605: END IF; -- Added for FP of bug 6755897 - Reconcilation changes
4606:
4607: px_txn_line_dtl_tbl(l_td_ind).instance_id := l_u_instance_rec.instance_id;
4667: p_api_name => 'explode_bom');
4668:
4669: csi_item_instance_pvt.explode_bom(
4670: p_api_version => 1.0,
4671: p_commit => fnd_api.g_false,
4672: p_init_msg_list => fnd_api.g_true,
4673: p_validation_level => fnd_api.g_valid_level_full,
4674: p_source_instance_rec => l_bom_std_item_rec,
4675: p_explosion_level => fnd_api.g_miss_num,
4668:
4669: csi_item_instance_pvt.explode_bom(
4670: p_api_version => 1.0,
4671: p_commit => fnd_api.g_false,
4672: p_init_msg_list => fnd_api.g_true,
4673: p_validation_level => fnd_api.g_valid_level_full,
4674: p_source_instance_rec => l_bom_std_item_rec,
4675: p_explosion_level => fnd_api.g_miss_num,
4676: p_item_tbl => l_comp_instance_tbl,
4669: csi_item_instance_pvt.explode_bom(
4670: p_api_version => 1.0,
4671: p_commit => fnd_api.g_false,
4672: p_init_msg_list => fnd_api.g_true,
4673: p_validation_level => fnd_api.g_valid_level_full,
4674: p_source_instance_rec => l_bom_std_item_rec,
4675: p_explosion_level => fnd_api.g_miss_num,
4676: p_item_tbl => l_comp_instance_tbl,
4677: p_item_relation_tbl => l_comp_relation_tbl,
4671: p_commit => fnd_api.g_false,
4672: p_init_msg_list => fnd_api.g_true,
4673: p_validation_level => fnd_api.g_valid_level_full,
4674: p_source_instance_rec => l_bom_std_item_rec,
4675: p_explosion_level => fnd_api.g_miss_num,
4676: p_item_tbl => l_comp_instance_tbl,
4677: p_item_relation_tbl => l_comp_relation_tbl,
4678: p_create_instance => fnd_api.g_true,
4679: p_txn_rec => l_csi_txn_rec,
4674: p_source_instance_rec => l_bom_std_item_rec,
4675: p_explosion_level => fnd_api.g_miss_num,
4676: p_item_tbl => l_comp_instance_tbl,
4677: p_item_relation_tbl => l_comp_relation_tbl,
4678: p_create_instance => fnd_api.g_true,
4679: p_txn_rec => l_csi_txn_rec,
4680: x_return_status => l_return_status,
4681: x_msg_count => l_msg_count,
4682: x_msg_data => l_msg_data);
4682: x_msg_data => l_msg_data);
4683:
4684: record_time('End');
4685:
4686: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4687: debug('Failed csi_item_instance_pvt.explode_bom');
4688: RAISE fnd_api.g_exc_error;
4689: END IF;
4690:
4684: record_time('End');
4685:
4686: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4687: debug('Failed csi_item_instance_pvt.explode_bom');
4688: RAISE fnd_api.g_exc_error;
4689: END IF;
4690:
4691: debug(' Trackable components :'||l_comp_instance_tbl.count);
4692: debug(' Component-Of Relationships :'||l_comp_relation_tbl.count);
4704: x_c_ii_rltns_tbl => l_c_ii_rltns_tbl,
4705: x_u_ii_rltns_tbl => l_u_ii_rltns_tbl,
4706: x_return_status => l_return_status);
4707:
4708: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4709: RAISE fnd_api.g_exc_error;
4710: END IF;
4711: END IF; -- px_txn_ii_rltns_tbl.COUNT check
4712: --
4705: x_u_ii_rltns_tbl => l_u_ii_rltns_tbl,
4706: x_return_status => l_return_status);
4707:
4708: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4709: RAISE fnd_api.g_exc_error;
4710: END IF;
4711: END IF; -- px_txn_ii_rltns_tbl.COUNT check
4712: --
4713: -- srramakr TSO with Equipment
4718: -- order line and finally get the item instances.
4719: --
4720: IF p_source_line_rec.item_type_code = 'KIT' AND
4721: l_bom_std_item_rec.instance_id IS NOT NULL AND -- Ensure that KIT Qty = 1
4722: l_bom_std_item_rec.instance_id <> FND_API.G_MISS_NUM THEN
4723: csi_order_fulfill_pub.get_ib_trackable_children
4724: ( p_current_line_id => p_source_line_rec.source_line_id,
4725: p_om_vld_org_id => om_vld_org_id,
4726: x_trackable_line_tbl => l_child_line_tbl,
4725: p_om_vld_org_id => om_vld_org_id,
4726: x_trackable_line_tbl => l_child_line_tbl,
4727: x_return_status => l_return_status);
4728:
4729: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4730: debug('Failed csi_order_fulfill_pub.get_ib_trackable_children');
4731: RAISE fnd_api.g_exc_error;
4732: END IF;
4733: END IF;
4727: x_return_status => l_return_status);
4728:
4729: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4730: debug('Failed csi_order_fulfill_pub.get_ib_trackable_children');
4731: RAISE fnd_api.g_exc_error;
4732: END IF;
4733: END IF;
4734: --
4735: IF l_child_line_tbl.count > 0 THEN
4747: p_pkg_name => 'csi_item_instance_pub');
4748:
4749: csi_item_instance_pub.get_item_instances(
4750: p_api_version => 1.0,
4751: p_commit => fnd_api.g_false,
4752: p_init_msg_list => fnd_api.g_true,
4753: p_validation_level => fnd_api.g_valid_level_full,
4754: p_instance_query_rec => l_inst_query_rec,
4755: p_party_query_rec => l_party_query_rec,
4748:
4749: csi_item_instance_pub.get_item_instances(
4750: p_api_version => 1.0,
4751: p_commit => fnd_api.g_false,
4752: p_init_msg_list => fnd_api.g_true,
4753: p_validation_level => fnd_api.g_valid_level_full,
4754: p_instance_query_rec => l_inst_query_rec,
4755: p_party_query_rec => l_party_query_rec,
4756: p_account_query_rec => l_pty_acct_query_rec,
4749: csi_item_instance_pub.get_item_instances(
4750: p_api_version => 1.0,
4751: p_commit => fnd_api.g_false,
4752: p_init_msg_list => fnd_api.g_true,
4753: p_validation_level => fnd_api.g_valid_level_full,
4754: p_instance_query_rec => l_inst_query_rec,
4755: p_party_query_rec => l_party_query_rec,
4756: p_account_query_rec => l_pty_acct_query_rec,
4757: p_transaction_id => null,
4754: p_instance_query_rec => l_inst_query_rec,
4755: p_party_query_rec => l_party_query_rec,
4756: p_account_query_rec => l_pty_acct_query_rec,
4757: p_transaction_id => null,
4758: p_resolve_id_columns => fnd_api.g_false,
4759: /* Modified the next line for bug 4865052*/
4760: p_active_instance_only => fnd_api.g_false,
4761: x_instance_header_tbl => l_instance_hdr_tbl,
4762: x_return_status => l_return_status,
4756: p_account_query_rec => l_pty_acct_query_rec,
4757: p_transaction_id => null,
4758: p_resolve_id_columns => fnd_api.g_false,
4759: /* Modified the next line for bug 4865052*/
4760: p_active_instance_only => fnd_api.g_false,
4761: x_instance_header_tbl => l_instance_hdr_tbl,
4762: x_return_status => l_return_status,
4763: x_msg_count => l_msg_count,
4764: x_msg_data => l_msg_data);
4762: x_return_status => l_return_status,
4763: x_msg_count => l_msg_count,
4764: x_msg_data => l_msg_data);
4765:
4766: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4767: RAISE fnd_api.g_exc_error;
4768: END IF;
4769: --
4770: IF l_instance_hdr_tbl.count > 0 THEN
4763: x_msg_count => l_msg_count,
4764: x_msg_data => l_msg_data);
4765:
4766: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4767: RAISE fnd_api.g_exc_error;
4768: END IF;
4769: --
4770: IF l_instance_hdr_tbl.count > 0 THEN
4771: FOR inst_hdr IN l_instance_hdr_tbl.FIRST .. l_instance_hdr_tbl.LAST LOOP
4789:
4790: -- create relationship
4791: csi_ii_relationships_pub.create_relationship(
4792: p_api_version => 1.0,
4793: p_commit => fnd_api.g_false,
4794: p_init_msg_list => fnd_api.g_true,
4795: p_validation_level => fnd_api.g_valid_level_full,
4796: p_relationship_tbl => l_c_ii_rltns_tbl,
4797: p_txn_rec => l_csi_txn_rec,
4790: -- create relationship
4791: csi_ii_relationships_pub.create_relationship(
4792: p_api_version => 1.0,
4793: p_commit => fnd_api.g_false,
4794: p_init_msg_list => fnd_api.g_true,
4795: p_validation_level => fnd_api.g_valid_level_full,
4796: p_relationship_tbl => l_c_ii_rltns_tbl,
4797: p_txn_rec => l_csi_txn_rec,
4798: x_return_status => l_return_status,
4791: csi_ii_relationships_pub.create_relationship(
4792: p_api_version => 1.0,
4793: p_commit => fnd_api.g_false,
4794: p_init_msg_list => fnd_api.g_true,
4795: p_validation_level => fnd_api.g_valid_level_full,
4796: p_relationship_tbl => l_c_ii_rltns_tbl,
4797: p_txn_rec => l_csi_txn_rec,
4798: x_return_status => l_return_status,
4799: x_msg_count => l_msg_count,
4798: x_return_status => l_return_status,
4799: x_msg_count => l_msg_count,
4800: x_msg_data => l_msg_data);
4801:
4802: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4803: RAISE fnd_api.g_exc_error;
4804: END IF;
4805: record_time('End');
4806:
4799: x_msg_count => l_msg_count,
4800: x_msg_data => l_msg_data);
4801:
4802: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4803: RAISE fnd_api.g_exc_error;
4804: END IF;
4805: record_time('End');
4806:
4807: FOR l_ind IN l_c_ii_rltns_tbl.FIRST .. l_c_ii_rltns_tbl.LAST
4826: p_txn_line_dtl_tbl => px_txn_line_dtl_tbl,
4827: p_processing_status => 'PROCESSED',
4828: x_return_status => l_return_status);
4829:
4830: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4831: RAISE fnd_api.g_exc_error;
4832: END IF;
4833:
4834: debug('Transaction details interfaced to IB successfully.');
4827: p_processing_status => 'PROCESSED',
4828: x_return_status => l_return_status);
4829:
4830: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4831: RAISE fnd_api.g_exc_error;
4832: END IF;
4833:
4834: debug('Transaction details interfaced to IB successfully.');
4835:
4834: debug('Transaction details interfaced to IB successfully.');
4835:
4836: EXCEPTION
4837:
4838: WHEN fnd_api.g_exc_error THEN
4839: x_return_status := fnd_api.g_ret_sts_error ;
4840: x_return_message := csi_t_gen_utility_pvt.dump_error_stack;
4841: debug('Error in Interface_IB: '||x_return_message);
4842: WHEN others THEN
4835:
4836: EXCEPTION
4837:
4838: WHEN fnd_api.g_exc_error THEN
4839: x_return_status := fnd_api.g_ret_sts_error ;
4840: x_return_message := csi_t_gen_utility_pvt.dump_error_stack;
4841: debug('Error in Interface_IB: '||x_return_message);
4842: WHEN others THEN
4843:
4844: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
4845: fnd_message.set_token('MESSAGE', substr(sqlerrm, 1, 240));
4846: fnd_msg_pub.add;
4847:
4848: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4849: x_return_message := csi_t_gen_utility_pvt.dump_error_stack;
4850: debug('Error in Interface_IB: '||x_return_message);
4851:
4852: END interface_ib;
4867: l_MACD_processing boolean := TRUE;
4868:
4869: BEGIN
4870:
4871: x_return_status := fnd_api.g_ret_sts_success;
4872:
4873: IF p_config_session_key.session_hdr_id is not null
4874: AND
4875: p_config_session_key.session_rev_num is not null
4925:
4926: RETURN l_MACD_processing;
4927:
4928: EXCEPTION
4929: WHEN fnd_api.g_exc_error THEN
4930: x_return_status := fnd_api.g_ret_sts_error;
4931: END check_MACD_processing;
4932:
4933: --
4926: RETURN l_MACD_processing;
4927:
4928: EXCEPTION
4929: WHEN fnd_api.g_exc_error THEN
4930: x_return_status := fnd_api.g_ret_sts_error;
4931: END check_MACD_processing;
4932:
4933: --
4934: --
5008:
5009: EXCEPTION
5010: WHEN no_explosion THEN
5011: RETURN FALSE;
5012: WHEN fnd_api.g_exc_error THEN
5013: RETURN FALSE;
5014:
5015: END check_standard_bom_pc;
5016:
5079: AND msi.inventory_item_id = mmt.inventory_item_id
5080: AND msi.lot_control_code = 2; -- lot control case
5081: BEGIN
5082:
5083: x_return_status := fnd_api.g_ret_sts_success;
5084:
5085: FOR mtl_txn_rec IN mtl_txn_cur(p_mtl_txn_id)
5086: LOOP
5087:
5087:
5088: l_mtl_rec.trx_source_line_id := mtl_txn_rec.trx_source_line_id;
5089: l_mtl_rec.inventory_item_id := mtl_txn_rec.inventory_item_id;
5090: l_mtl_rec.organization_id := mtl_txn_rec.organization_id;
5091: l_mtl_rec.revision := nvl(mtl_txn_rec.revision,fnd_api.g_miss_char);
5092: l_mtl_rec.subinventory_code := mtl_txn_rec.subinventory_code;
5093: l_mtl_rec.locator_id := mtl_txn_rec.locator_id;
5094: l_mtl_rec.lot_number := nvl(mtl_txn_rec.lot_number,fnd_api.g_miss_char);
5095: l_mtl_rec.serial_number := nvl(mtl_txn_rec.serial_number,fnd_api.g_miss_char);
5090: l_mtl_rec.organization_id := mtl_txn_rec.organization_id;
5091: l_mtl_rec.revision := nvl(mtl_txn_rec.revision,fnd_api.g_miss_char);
5092: l_mtl_rec.subinventory_code := mtl_txn_rec.subinventory_code;
5093: l_mtl_rec.locator_id := mtl_txn_rec.locator_id;
5094: l_mtl_rec.lot_number := nvl(mtl_txn_rec.lot_number,fnd_api.g_miss_char);
5095: l_mtl_rec.serial_number := nvl(mtl_txn_rec.serial_number,fnd_api.g_miss_char);
5096: l_mtl_rec.transaction_quantity := mtl_txn_rec.transaction_quantity;
5097: l_mtl_rec.transaction_uom := mtl_txn_rec.transaction_uom;
5098: l_mtl_rec.transaction_date := mtl_txn_rec.transaction_date;
5091: l_mtl_rec.revision := nvl(mtl_txn_rec.revision,fnd_api.g_miss_char);
5092: l_mtl_rec.subinventory_code := mtl_txn_rec.subinventory_code;
5093: l_mtl_rec.locator_id := mtl_txn_rec.locator_id;
5094: l_mtl_rec.lot_number := nvl(mtl_txn_rec.lot_number,fnd_api.g_miss_char);
5095: l_mtl_rec.serial_number := nvl(mtl_txn_rec.serial_number,fnd_api.g_miss_char);
5096: l_mtl_rec.transaction_quantity := mtl_txn_rec.transaction_quantity;
5097: l_mtl_rec.transaction_uom := mtl_txn_rec.transaction_uom;
5098: l_mtl_rec.transaction_date := mtl_txn_rec.transaction_date;
5099: l_mtl_rec.lot_control_code := mtl_txn_rec.lot_control_code;
5109:
5110: x_mtl_txn_tbl := l_mtl_tbl;
5111:
5112: EXCEPTION
5113: WHEN fnd_api.g_exc_error THEN
5114: x_return_status := fnd_api.g_ret_sts_error;
5115: END get_mtl_txn_tbl;
5116:
5117: PROCEDURE get_inventory_instances(
5110: x_mtl_txn_tbl := l_mtl_tbl;
5111:
5112: EXCEPTION
5113: WHEN fnd_api.g_exc_error THEN
5114: x_return_status := fnd_api.g_ret_sts_error;
5115: END get_mtl_txn_tbl;
5116:
5117: PROCEDURE get_inventory_instances(
5118: p_item_attrib_rec IN item_attributes_rec,
5126: l_party_query_rec csi_datastructures_pub.party_query_rec;
5127: l_pty_acct_query_rec csi_datastructures_pub.party_account_query_rec;
5128: l_inst_hdr_tbl csi_datastructures_pub.instance_header_tbl;
5129:
5130: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5131: l_msg_count number;
5132: l_msg_data varchar2(2000);
5133:
5134: BEGIN
5132: l_msg_data varchar2(2000);
5133:
5134: BEGIN
5135:
5136: x_return_status := fnd_api.g_ret_sts_success;
5137:
5138: api_log('get_inventory_instances');
5139:
5140: l_mtl_tbl := px_mtl_txn_tbl;
5176: p_api_name => 'get_item_instances');
5177:
5178: csi_item_instance_pub.get_item_instances(
5179: p_api_version => 1.0,
5180: p_commit => fnd_api.g_false,
5181: p_init_msg_list => fnd_api.g_true,
5182: p_validation_level => fnd_api.g_valid_level_full,
5183: p_instance_query_rec => l_inst_query_rec,
5184: p_party_query_rec => l_party_query_rec,
5177:
5178: csi_item_instance_pub.get_item_instances(
5179: p_api_version => 1.0,
5180: p_commit => fnd_api.g_false,
5181: p_init_msg_list => fnd_api.g_true,
5182: p_validation_level => fnd_api.g_valid_level_full,
5183: p_instance_query_rec => l_inst_query_rec,
5184: p_party_query_rec => l_party_query_rec,
5185: p_account_query_rec => l_pty_acct_query_rec,
5178: csi_item_instance_pub.get_item_instances(
5179: p_api_version => 1.0,
5180: p_commit => fnd_api.g_false,
5181: p_init_msg_list => fnd_api.g_true,
5182: p_validation_level => fnd_api.g_valid_level_full,
5183: p_instance_query_rec => l_inst_query_rec,
5184: p_party_query_rec => l_party_query_rec,
5185: p_account_query_rec => l_pty_acct_query_rec,
5186: p_transaction_id => null,
5183: p_instance_query_rec => l_inst_query_rec,
5184: p_party_query_rec => l_party_query_rec,
5185: p_account_query_rec => l_pty_acct_query_rec,
5186: p_transaction_id => null,
5187: p_resolve_id_columns => fnd_api.g_false,
5188: p_active_instance_only => fnd_api.g_false,
5189: x_instance_header_tbl => l_inst_hdr_tbl,
5190: x_return_status => l_return_status,
5191: x_msg_count => l_msg_count,
5184: p_party_query_rec => l_party_query_rec,
5185: p_account_query_rec => l_pty_acct_query_rec,
5186: p_transaction_id => null,
5187: p_resolve_id_columns => fnd_api.g_false,
5188: p_active_instance_only => fnd_api.g_false,
5189: x_instance_header_tbl => l_inst_hdr_tbl,
5190: x_return_status => l_return_status,
5191: x_msg_count => l_msg_count,
5192: x_msg_data => l_msg_data);
5190: x_return_status => l_return_status,
5191: x_msg_count => l_msg_count,
5192: x_msg_data => l_msg_data);
5193:
5194: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5195: RAISE fnd_api.g_exc_error;
5196: END IF;
5197:
5198: IF l_inst_hdr_tbl.count = 0 THEN
5191: x_msg_count => l_msg_count,
5192: x_msg_data => l_msg_data);
5193:
5194: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5195: RAISE fnd_api.g_exc_error;
5196: END IF;
5197:
5198: IF l_inst_hdr_tbl.count = 0 THEN
5199:
5211: fnd_message.set_token('INV_ORG_ID', l_mtl_tbl(l_ind).organization_id);
5212: fnd_message.set_token('SUBINV', l_mtl_tbl(l_ind).subinventory_code);
5213: fnd_message.set_token('LOCATOR', l_mtl_tbl(l_ind).locator_id);
5214: fnd_msg_pub.add;
5215: RAISE fnd_api.g_exc_error;
5216: END IF;
5217: ELSE
5218: IF l_inst_hdr_tbl.count = 1 THEN
5219: l_mtl_tbl(l_ind).instance_id := l_inst_hdr_tbl(1).instance_id;
5226: fnd_message.set_token('INV_ORG_ID', l_mtl_tbl(l_ind).organization_id);
5227: fnd_message.set_token('SUBINV', l_mtl_tbl(l_ind).subinventory_code);
5228: fnd_message.set_token('LOCATOR', l_mtl_tbl(l_ind).locator_id);
5229: fnd_msg_pub.add;
5230: RAISE fnd_api.g_exc_error;
5231: END IF;
5232: END IF;
5233:
5234: <
5239:
5240: px_mtl_txn_tbl := l_mtl_tbl;
5241:
5242: EXCEPTION
5243: WHEN fnd_api.g_exc_error THEN
5244: x_return_status := fnd_api.g_ret_sts_error;
5245: END get_inventory_instances;
5246:
5247: PROCEDURE pre_process_mtl_txn_tbl(
5240: px_mtl_txn_tbl := l_mtl_tbl;
5241:
5242: EXCEPTION
5243: WHEN fnd_api.g_exc_error THEN
5244: x_return_status := fnd_api.g_ret_sts_error;
5245: END get_inventory_instances;
5246:
5247: PROCEDURE pre_process_mtl_txn_tbl(
5248: p_item_attrib_rec IN item_attributes_rec,
5253: l_dest_serial_flag varchar2(1);
5254: l_create_update_flag varchar2(1);
5255: BEGIN
5256:
5257: x_return_status := fnd_api.g_ret_sts_success;
5258: api_log('pre_process_mtl_txn_tbl');
5259:
5260: IF p_item_attrib_rec.serial_control_code in (2,5) THEN
5261: l_src_serial_flag := 'Y';
5284: END LOOP;
5285: END IF;
5286:
5287: EXCEPTION
5288: WHEN fnd_api.g_exc_error THEN
5289: x_return_status := fnd_api.g_ret_sts_error;
5290: END pre_process_mtl_txn_tbl;
5291:
5292:
5285: END IF;
5286:
5287: EXCEPTION
5288: WHEN fnd_api.g_exc_error THEN
5289: x_return_status := fnd_api.g_ret_sts_error;
5290: END pre_process_mtl_txn_tbl;
5291:
5292:
5293: PROCEDURE get_dflt_inv_location(
5310: fnd_message.set_name('CSI','CSI_INT_DEST_SUBINV_INVALID');
5311: fnd_message.set_token('INV_ORG_ID',p_organization_id);
5312: fnd_message.set_token('SUBINV_ID',p_subinventory_code);
5313: fnd_msg_pub.add;
5314: RAISE fnd_api.g_exc_error;
5315: END;
5316:
5317: IF l_location_id is null THEN
5318: BEGIN
5324: WHEN no_data_found THEN
5325: fnd_message.set_name('CSI','CSI_INT_DEST_ORG_ID_INVALID');
5326: fnd_message.set_token('INV_ORG_ID',p_organization_id);
5327: fnd_msg_pub.add;
5328: RAISE fnd_api.g_exc_error;
5329: END;
5330: END IF;
5331:
5332: x_location_id := l_location_id;
5331:
5332: x_location_id := l_location_id;
5333:
5334: EXCEPTION
5335: WHEN fnd_api.g_exc_error THEN
5336: x_return_status := fnd_api.g_ret_sts_error;
5337: END get_dflt_inv_location;
5338:
5339: PROCEDURE create_inv_negative_instance(
5332: x_location_id := l_location_id;
5333:
5334: EXCEPTION
5335: WHEN fnd_api.g_exc_error THEN
5336: x_return_status := fnd_api.g_ret_sts_error;
5337: END get_dflt_inv_location;
5338:
5339: PROCEDURE create_inv_negative_instance(
5340: px_mtl_txn_rec IN OUT NOCOPY mtl_txn_rec,
5351: l_assets_tbl csi_datastructures_pub.instance_asset_tbl;
5352:
5353: l_internal_party_id number;
5354:
5355: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5356: l_msg_count number;
5357: l_msg_data varchar2(2000);
5358:
5359: BEGIN
5357: l_msg_data varchar2(2000);
5358:
5359: BEGIN
5360:
5361: x_return_status := fnd_api.g_ret_sts_success;
5362:
5363: api_log('create_inv_negative_instance');
5364:
5365: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
5367: l_instance_rec.inventory_item_id := px_mtl_txn_rec.inventory_item_id;
5368: l_instance_rec.inventory_revision := px_mtl_txn_rec.revision;
5369: l_instance_rec.inv_subinventory_name := px_mtl_txn_rec.subinventory_code;
5370: -- this is always a non serial instance
5371: l_instance_rec.serial_number := fnd_api.g_miss_char;
5372: l_instance_rec.lot_number := px_mtl_txn_rec.lot_number;
5373: l_instance_rec.quantity := p_quantity;
5374: l_instance_rec.active_start_date := sysdate;
5375: l_instance_rec.active_end_date := null;
5401:
5402: -- creation of negative quantity inventory instance
5403: csi_item_instance_pub.create_item_instance(
5404: p_api_version => 1.0,
5405: p_commit => fnd_api.g_false,
5406: p_init_msg_list => fnd_api.g_true,
5407: p_validation_level => fnd_api.g_valid_level_full,
5408: p_instance_rec => l_instance_rec,
5409: p_party_tbl => l_parties_tbl,
5402: -- creation of negative quantity inventory instance
5403: csi_item_instance_pub.create_item_instance(
5404: p_api_version => 1.0,
5405: p_commit => fnd_api.g_false,
5406: p_init_msg_list => fnd_api.g_true,
5407: p_validation_level => fnd_api.g_valid_level_full,
5408: p_instance_rec => l_instance_rec,
5409: p_party_tbl => l_parties_tbl,
5410: p_account_tbl => l_pty_accts_tbl,
5403: csi_item_instance_pub.create_item_instance(
5404: p_api_version => 1.0,
5405: p_commit => fnd_api.g_false,
5406: p_init_msg_list => fnd_api.g_true,
5407: p_validation_level => fnd_api.g_valid_level_full,
5408: p_instance_rec => l_instance_rec,
5409: p_party_tbl => l_parties_tbl,
5410: p_account_tbl => l_pty_accts_tbl,
5411: p_org_assignments_tbl => l_org_units_tbl,
5416: x_return_status => l_return_status,
5417: x_msg_count => l_msg_count,
5418: x_msg_data => l_msg_data );
5419:
5420: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5421: raise fnd_api.g_exc_error;
5422: END IF;
5423:
5424: px_mtl_txn_rec.instance_id := l_instance_rec.instance_id;
5417: x_msg_count => l_msg_count,
5418: x_msg_data => l_msg_data );
5419:
5420: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5421: raise fnd_api.g_exc_error;
5422: END IF;
5423:
5424: px_mtl_txn_rec.instance_id := l_instance_rec.instance_id;
5425: px_mtl_txn_rec.object_version_num := l_instance_rec.object_version_number;
5424: px_mtl_txn_rec.instance_id := l_instance_rec.instance_id;
5425: px_mtl_txn_rec.object_version_num := l_instance_rec.object_version_number;
5426:
5427: EXCEPTION
5428: WHEN fnd_api.g_exc_error THEN
5429: x_return_status := fnd_api.g_ret_sts_error;
5430: END create_inv_negative_instance;
5431:
5432:
5425: px_mtl_txn_rec.object_version_num := l_instance_rec.object_version_number;
5426:
5427: EXCEPTION
5428: WHEN fnd_api.g_exc_error THEN
5429: x_return_status := fnd_api.g_ret_sts_error;
5430: END create_inv_negative_instance;
5431:
5432:
5433: PROCEDURE decrement_inventory_instnace(
5445: l_pricing_attribs_tbl csi_datastructures_pub.pricing_attribs_tbl;
5446: l_org_units_tbl csi_datastructures_pub.organization_units_tbl;
5447: l_inst_id_lst csi_datastructures_pub.id_tbl;
5448:
5449: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5450: l_msg_count number;
5451: l_msg_data varchar2(2000);
5452:
5453: BEGIN
5451: l_msg_data varchar2(2000);
5452:
5453: BEGIN
5454:
5455: x_return_status := fnd_api.g_ret_sts_success;
5456:
5457: api_log('decrement_inventory_instnace');
5458:
5459: l_instance_rec.instance_id := p_instance_id;
5494:
5495: /* decrement the inventory source instance */
5496: csi_item_instance_pub.update_item_instance(
5497: p_api_version => 1.0,
5498: p_commit => fnd_api.g_false,
5499: p_init_msg_list => fnd_api.g_true,
5500: p_validation_level => fnd_api.g_valid_level_full,
5501: p_instance_rec => l_instance_rec,
5502: p_ext_attrib_values_tbl => l_ext_attrib_val_tbl,
5495: /* decrement the inventory source instance */
5496: csi_item_instance_pub.update_item_instance(
5497: p_api_version => 1.0,
5498: p_commit => fnd_api.g_false,
5499: p_init_msg_list => fnd_api.g_true,
5500: p_validation_level => fnd_api.g_valid_level_full,
5501: p_instance_rec => l_instance_rec,
5502: p_ext_attrib_values_tbl => l_ext_attrib_val_tbl,
5503: p_party_tbl => l_party_tbl,
5496: csi_item_instance_pub.update_item_instance(
5497: p_api_version => 1.0,
5498: p_commit => fnd_api.g_false,
5499: p_init_msg_list => fnd_api.g_true,
5500: p_validation_level => fnd_api.g_valid_level_full,
5501: p_instance_rec => l_instance_rec,
5502: p_ext_attrib_values_tbl => l_ext_attrib_val_tbl,
5503: p_party_tbl => l_party_tbl,
5504: p_account_tbl => l_party_acct_tbl,
5511: x_msg_count => l_msg_count,
5512: x_msg_data => l_msg_data);
5513:
5514: -- For Bug 4057183
5515: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
5516: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5517: raise fnd_api.g_exc_error;
5518: END IF;
5519:
5512: x_msg_data => l_msg_data);
5513:
5514: -- For Bug 4057183
5515: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
5516: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5517: raise fnd_api.g_exc_error;
5518: END IF;
5519:
5520: record_time('End');
5513:
5514: -- For Bug 4057183
5515: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
5516: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
5517: raise fnd_api.g_exc_error;
5518: END IF;
5519:
5520: record_time('End');
5521:
5519:
5520: record_time('End');
5521:
5522: EXCEPTION
5523: WHEN fnd_api.g_exc_error THEN
5524: x_return_status := fnd_api.g_ret_sts_error;
5525: END decrement_inventory_instnace;
5526:
5527: PROCEDURE decrement_inventory_instances(
5520: record_time('End');
5521:
5522: EXCEPTION
5523: WHEN fnd_api.g_exc_error THEN
5524: x_return_status := fnd_api.g_ret_sts_error;
5525: END decrement_inventory_instnace;
5526:
5527: PROCEDURE decrement_inventory_instances(
5528: p_item_attrib_rec IN item_attributes_rec,
5529: p_mtl_txn_tbl IN OUT NOCOPY mtl_txn_tbl,
5530: px_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec,
5531: x_return_status OUT NOCOPY varchar2)
5532: IS
5533: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5534: BEGIN
5535: x_return_status := fnd_api.g_ret_sts_success;
5536: api_log('decrement_inventory_instances');
5537:
5531: x_return_status OUT NOCOPY varchar2)
5532: IS
5533: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5534: BEGIN
5535: x_return_status := fnd_api.g_ret_sts_success;
5536: api_log('decrement_inventory_instances');
5537:
5538: IF p_mtl_txn_tbl.count > 0 THEN
5539:
5538: IF p_mtl_txn_tbl.count > 0 THEN
5539:
5540: IF p_item_attrib_rec.serial_control_code = 6 THEN
5541:
5542: IF nvl(p_mtl_txn_tbl(1).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
5543: decrement_inventory_instnace(
5544: p_instance_id => p_mtl_txn_tbl(1).instance_id,
5545: p_quantity => px_txn_rec.transaction_quantity,
5546: px_txn_rec => px_txn_rec,
5544: p_instance_id => p_mtl_txn_tbl(1).instance_id,
5545: p_quantity => px_txn_rec.transaction_quantity,
5546: px_txn_rec => px_txn_rec,
5547: x_return_status => l_return_status);
5548: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5549: raise fnd_api.g_exc_error;
5550: END IF;
5551: ELSE
5552: IF p_mtl_txn_tbl(1).negative_instance_flag = 'Y' THEN
5545: p_quantity => px_txn_rec.transaction_quantity,
5546: px_txn_rec => px_txn_rec,
5547: x_return_status => l_return_status);
5548: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5549: raise fnd_api.g_exc_error;
5550: END IF;
5551: ELSE
5552: IF p_mtl_txn_tbl(1).negative_instance_flag = 'Y' THEN
5553:
5556: p_quantity => (-1)*(px_txn_rec.transaction_quantity),
5557: px_txn_rec => px_txn_rec,
5558: x_return_status => l_return_status);
5559:
5560: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5561: RAISE fnd_api.g_exc_error;
5562: END IF;
5563:
5564: END IF;
5557: px_txn_rec => px_txn_rec,
5558: x_return_status => l_return_status);
5559:
5560: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5561: RAISE fnd_api.g_exc_error;
5562: END IF;
5563:
5564: END IF;
5565: END IF;
5568: FOR l_ind IN p_mtl_txn_tbl.FIRST .. p_mtl_txn_tbl.LAST
5569: LOOP
5570: IF p_mtl_txn_tbl(l_ind).create_update_flag = 'C' THEN
5571:
5572: IF nvl(p_mtl_txn_tbl(l_ind).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
5573: decrement_inventory_instnace(
5574: p_instance_id => p_mtl_txn_tbl(l_ind).instance_id,
5575: p_quantity => p_mtl_txn_tbl(l_ind).primary_quantity,
5576: px_txn_rec => px_txn_rec,
5575: p_quantity => p_mtl_txn_tbl(l_ind).primary_quantity,
5576: px_txn_rec => px_txn_rec,
5577: x_return_status => l_return_status);
5578:
5579: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5580: RAISE fnd_api.g_exc_error;
5581: END IF;
5582: ELSE
5583: IF p_mtl_txn_tbl(1).negative_instance_flag = 'Y' THEN
5576: px_txn_rec => px_txn_rec,
5577: x_return_status => l_return_status);
5578:
5579: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5580: RAISE fnd_api.g_exc_error;
5581: END IF;
5582: ELSE
5583: IF p_mtl_txn_tbl(1).negative_instance_flag = 'Y' THEN
5584:
5587: p_quantity => (-1)*(p_mtl_txn_tbl(l_ind).primary_quantity),
5588: px_txn_rec => px_txn_rec,
5589: x_return_status => l_return_status);
5590:
5591: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5592: RAISE fnd_api.g_exc_error;
5593: END IF;
5594:
5595: END IF;
5588: px_txn_rec => px_txn_rec,
5589: x_return_status => l_return_status);
5590:
5591: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5592: RAISE fnd_api.g_exc_error;
5593: END IF;
5594:
5595: END IF;
5596: END IF;
5600: END IF;
5601: END IF;
5602:
5603: EXCEPTION
5604: WHEN fnd_api.g_exc_error THEN
5605: x_return_status := fnd_api.g_ret_sts_error;
5606: END decrement_inventory_instances;
5607:
5608: PROCEDURE initialize_txn_details(
5601: END IF;
5602:
5603: EXCEPTION
5604: WHEN fnd_api.g_exc_error THEN
5605: x_return_status := fnd_api.g_ret_sts_error;
5606: END decrement_inventory_instances;
5607:
5608: PROCEDURE initialize_txn_details(
5609: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec,
5639: x_return_status OUT NOCOPY varchar2)
5640: IS
5641: l_tld_tbl csi_t_datastructures_grp.txn_line_detail_tbl;
5642: BEGIN
5643: x_return_status := fnd_api.g_ret_sts_success;
5644: api_log('pre_process_txn_line_dtl');
5645: l_tld_tbl := px_txn_line_dtl_tbl;
5646:
5647: IF l_tld_tbl.COUNT > 0 THEN
5652:
5653: -- source_txn_line_details -- to match with the children
5654: l_tld_tbl(l_ind).source_txn_line_detail_id := l_ind;
5655:
5656: IF nvl(l_tld_tbl(l_ind).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
5657: -- derive all the information (serial, lot, locator, rev etc ).
5658: null;
5659: ELSE
5660: IF nvl(l_tld_tbl(l_ind).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
5656: IF nvl(l_tld_tbl(l_ind).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
5657: -- derive all the information (serial, lot, locator, rev etc ).
5658: null;
5659: ELSE
5660: IF nvl(l_tld_tbl(l_ind).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
5661: -- get the instance_id for the item serial comb
5662: null;
5663: END IF;
5664: END IF;
5667:
5668: px_txn_line_dtl_tbl := l_tld_tbl;
5669:
5670: EXCEPTION
5671: WHEN fnd_api.g_exc_error THEN
5672: x_return_status := fnd_api.g_ret_sts_error;
5673: END pre_process_txn_line_dtl;
5674:
5675: PROCEDURE split_tld_one_each(
5668: px_txn_line_dtl_tbl := l_tld_tbl;
5669:
5670: EXCEPTION
5671: WHEN fnd_api.g_exc_error THEN
5672: x_return_status := fnd_api.g_ret_sts_error;
5673: END pre_process_txn_line_dtl;
5674:
5675: PROCEDURE split_tld_one_each(
5676: px_txn_line_dtl_tbl IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl,
5702: l_eav_ind binary_integer := 0;
5703: l_iir_ind binary_integer := 0;
5704:
5705: BEGIN
5706: x_return_status := fnd_api.g_ret_sts_success;
5707: api_log('split_tld_one_each');
5708:
5709: l_tld_tbl := px_txn_line_dtl_tbl;
5710: l_pd_tbl := px_txn_party_dtl_tbl;
5754: END LOOP; -- tld_tbl loop
5755: END IF;
5756:
5757: EXCEPTION
5758: WHEN fnd_api.g_exc_error THEN
5759: x_return_status := fnd_api.g_ret_sts_error;
5760: END split_tld_one_each;
5761:
5762: PROCEDURE sync_serials(
5755: END IF;
5756:
5757: EXCEPTION
5758: WHEN fnd_api.g_exc_error THEN
5759: x_return_status := fnd_api.g_ret_sts_error;
5760: END split_tld_one_each;
5761:
5762: PROCEDURE sync_serials(
5763: p_mtl_txn_tbl IN mtl_txn_tbl,
5768: l_tld_tbl csi_t_datastructures_grp.txn_line_detail_tbl;
5769: l_m_tld_tbl csi_t_datastructures_grp.txn_line_detail_tbl;
5770: l_m_ind binary_integer := 0;
5771: BEGIN
5772: x_return_status := fnd_api.g_ret_sts_success;
5773: api_log('sync_serials');
5774:
5775: l_mtl_tbl := p_mtl_txn_tbl;
5776: l_tld_tbl := px_txn_line_dtl_tbl;
5860:
5861: px_txn_line_dtl_tbl := l_m_tld_tbl;
5862:
5863: EXCEPTION
5864: WHEN fnd_api.g_exc_error THEN
5865: x_return_status := fnd_api.g_ret_sts_error;
5866: END sync_serials;
5867:
5868: PROCEDURE sync_lots(
5861: px_txn_line_dtl_tbl := l_m_tld_tbl;
5862:
5863: EXCEPTION
5864: WHEN fnd_api.g_exc_error THEN
5865: x_return_status := fnd_api.g_ret_sts_error;
5866: END sync_serials;
5867:
5868: PROCEDURE sync_lots(
5869: p_mtl_txn_tbl IN mtl_txn_tbl,
5878: t_n_ind binary_integer := 0;
5879: l_remain_qty number := 0;
5880:
5881: BEGIN
5882: x_return_status := fnd_api.g_ret_sts_success;
5883: api_log('sync_lots');
5884:
5885: l_mtl_tbl := p_mtl_txn_tbl;
5886: l_tld_tbl := px_txn_line_dtl_tbl;
5943:
5944: l_tld_tbl(t_ind).error_code := 'Y';
5945: l_mtl_tbl(m_ind).match_flag := 'Y';
5946: l_tld_tbl(t_ind).lot_number := l_mtl_tbl(m_ind).lot_number;
5947: l_tld_tbl(t_ind).instance_id := fnd_api.g_miss_num;
5948: l_tld_tbl(t_ind).instance_exists_flag := 'N';
5949:
5950: exit;
5951:
5967: l_tld_tbl(t_ind).error_code := 'Y';
5968: l_mtl_tbl(m_ind).match_flag := 'Y';
5969: l_tld_tbl(t_ind).lot_number := l_mtl_tbl(m_ind).lot_number;
5970: l_tld_tbl(t_ind).quantity := l_mtl_tbl(m_ind).primary_quantity;
5971: l_tld_tbl(t_ind).instance_id := fnd_api.g_miss_num;
5972: l_tld_tbl(t_ind).instance_exists_flag := 'N';
5973:
5974: exit;
5975:
5999: px_txn_line_dtl_tbl := l_m_tld_tbl;
6000:
6001:
6002: EXCEPTION
6003: WHEN fnd_api.g_exc_error THEN
6004: x_return_status := fnd_api.g_ret_sts_error;
6005: END sync_lots;
6006:
6007: PROCEDURE sync_txn_dtl_and_mtl_txn(
6000:
6001:
6002: EXCEPTION
6003: WHEN fnd_api.g_exc_error THEN
6004: x_return_status := fnd_api.g_ret_sts_error;
6005: END sync_lots;
6006:
6007: PROCEDURE sync_txn_dtl_and_mtl_txn(
6008: p_mtl_txn_tbl IN mtl_txn_tbl,
6020: l_pa_tbl csi_t_datastructures_grp.txn_pty_acct_detail_tbl;
6021: l_oa_tbl csi_t_datastructures_grp.txn_org_assgn_tbl;
6022: l_eav_tbl csi_t_datastructures_grp.txn_ext_attrib_vals_tbl;
6023: l_iir_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
6024: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
6025: BEGIN
6026: x_return_status := fnd_api.g_ret_sts_success;
6027: api_log('sync_txn_dtl_and_mtl_txn');
6028:
6022: l_eav_tbl csi_t_datastructures_grp.txn_ext_attrib_vals_tbl;
6023: l_iir_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
6024: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
6025: BEGIN
6026: x_return_status := fnd_api.g_ret_sts_success;
6027: api_log('sync_txn_dtl_and_mtl_txn');
6028:
6029: l_tld_tbl := px_txn_line_dtl_tbl;
6030: l_pd_tbl := px_txn_party_dtl_tbl;
6037: px_txn_line_dtl_tbl => l_tld_tbl,
6038: p_item_attrib_rec => p_item_attrib_rec,
6039: x_return_status => l_return_status);
6040:
6041: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6042: RAISE fnd_api.g_exc_error;
6043: END IF;
6044:
6045: IF p_mtl_txn_tbl.COUNT > 0 THEN
6038: p_item_attrib_rec => p_item_attrib_rec,
6039: x_return_status => l_return_status);
6040:
6041: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6042: RAISE fnd_api.g_exc_error;
6043: END IF;
6044:
6045: IF p_mtl_txn_tbl.COUNT > 0 THEN
6046:
6087: px_txn_eav_tbl := l_eav_tbl;
6088: px_txn_ii_rltns_tbl := l_iir_tbl;
6089:
6090: EXCEPTION
6091: WHEN fnd_api.g_exc_error THEN
6092: x_return_status := fnd_api.g_ret_sts_error;
6093: END sync_txn_dtl_and_mtl_txn;
6094:
6095:
6088: px_txn_ii_rltns_tbl := l_iir_tbl;
6089:
6090: EXCEPTION
6091: WHEN fnd_api.g_exc_error THEN
6092: x_return_status := fnd_api.g_ret_sts_error;
6093: END sync_txn_dtl_and_mtl_txn;
6094:
6095:
6096: PROCEDURE default_owner_pty_and_acct(
6109:
6110: BEGIN
6111:
6112: api_log('default_owner_pty_and_acct');
6113: x_return_status := fnd_api.g_ret_sts_success;
6114:
6115: IF px_txn_line_dtl_tbl.COUNT > 0 THEN
6116:
6117: SELECT owner_party_account_id,
6135:
6136: -- check if owner is there
6137: l_pt_ind := px_txn_party_dtl_tbl.COUNT + 1;
6138:
6139: px_txn_party_dtl_tbl(l_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
6140: px_txn_party_dtl_tbl(l_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
6141: px_txn_party_dtl_tbl(l_pt_ind).party_source_table := l_party_source_table;
6142: px_txn_party_dtl_tbl(l_pt_ind).party_source_id := l_owner_party_id;
6143: px_txn_party_dtl_tbl(l_pt_ind).relationship_type_code := 'OWNER';
6136: -- check if owner is there
6137: l_pt_ind := px_txn_party_dtl_tbl.COUNT + 1;
6138:
6139: px_txn_party_dtl_tbl(l_pt_ind).txn_party_detail_id := fnd_api.g_miss_num;
6140: px_txn_party_dtl_tbl(l_pt_ind).txn_line_detail_id := fnd_api.g_miss_num;
6141: px_txn_party_dtl_tbl(l_pt_ind).party_source_table := l_party_source_table;
6142: px_txn_party_dtl_tbl(l_pt_ind).party_source_id := l_owner_party_id;
6143: px_txn_party_dtl_tbl(l_pt_ind).relationship_type_code := 'OWNER';
6144: px_txn_party_dtl_tbl(l_pt_ind).contact_flag := 'N';
6147: IF l_owner_party_acct_id IS NOT null THEN
6148:
6149: l_pa_ind := px_txn_party_acct_tbl.COUNT + 1;
6150:
6151: px_txn_party_acct_tbl(l_pa_ind).txn_account_detail_id := fnd_api.g_miss_num;
6152: px_txn_party_acct_tbl(l_pa_ind).txn_party_detail_id := fnd_api.g_miss_num;
6153: px_txn_party_acct_tbl(l_pa_ind).account_id := l_owner_party_acct_id;
6154: px_txn_party_acct_tbl(l_pa_ind).relationship_type_code := 'OWNER';
6155: px_txn_party_acct_tbl(l_pa_ind).txn_party_details_index := l_pt_ind;
6148:
6149: l_pa_ind := px_txn_party_acct_tbl.COUNT + 1;
6150:
6151: px_txn_party_acct_tbl(l_pa_ind).txn_account_detail_id := fnd_api.g_miss_num;
6152: px_txn_party_acct_tbl(l_pa_ind).txn_party_detail_id := fnd_api.g_miss_num;
6153: px_txn_party_acct_tbl(l_pa_ind).account_id := l_owner_party_acct_id;
6154: px_txn_party_acct_tbl(l_pa_ind).relationship_type_code := 'OWNER';
6155: px_txn_party_acct_tbl(l_pa_ind).txn_party_details_index := l_pt_ind;
6156:
6160: END IF;
6161: END IF;
6162:
6163: EXCEPTION
6164: WHEN fnd_api.g_exc_error THEN
6165: x_return_status := fnd_api.g_ret_sts_error;
6166: END default_owner_pty_and_acct;
6167:
6168: --
6161: END IF;
6162:
6163: EXCEPTION
6164: WHEN fnd_api.g_exc_error THEN
6165: x_return_status := fnd_api.g_ret_sts_error;
6166: END default_owner_pty_and_acct;
6167:
6168: --
6169: --
6190: l_ir_tbl csi_t_datastructures_grp.txn_ii_rltns_tbl;
6191: l_pr_tbl csi_datastructures_pub.pricing_attribs_tbl;
6192: l_sy_tbl csi_t_datastructures_grp.txn_systems_tbl;
6193:
6194: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
6195: l_return_message varchar2(2000);
6196:
6197: BEGIN
6198: x_return_status := fnd_api.g_ret_sts_success;
6194: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
6195: l_return_message varchar2(2000);
6196:
6197: BEGIN
6198: x_return_status := fnd_api.g_ret_sts_success;
6199:
6200: api_log('process_cz_txn_details');
6201:
6202: IF p_config_session_keys.COUNT > 0 THEN
6223: x_txn_eav_tbl => l_ea_tbl,
6224: x_txn_ii_rltns_tbl => l_ir_tbl,
6225: x_return_status => l_return_status);
6226:
6227: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6228: RAISE fnd_api.g_exc_error;
6229: END IF;
6230:
6231: IF l_td_tbl.COUNT > 0 THEN
6224: x_txn_ii_rltns_tbl => l_ir_tbl,
6225: x_return_status => l_return_status);
6226:
6227: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6228: RAISE fnd_api.g_exc_error;
6229: END IF;
6230:
6231: IF l_td_tbl.COUNT > 0 THEN
6232:
6260: l_td_tbl(l_td_ind).instance_exists_flag := 'Y';
6261:
6262: EXCEPTION
6263: WHEN no_data_found THEN
6264: l_td_tbl(l_td_ind).instance_id := fnd_api.g_miss_num;
6265: l_td_tbl(l_td_ind).instance_exists_flag := 'N';
6266: END;
6267: /* End of fix for Bug 2730573 */
6268:
6275: p_transaction_line_id => l_tl_rec.transaction_line_id,
6276: px_txn_ii_rltns_tbl => l_ir_tbl,
6277: x_return_status => l_return_status);
6278:
6279: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6280: RAISE fnd_api.g_exc_error;
6281: END IF;
6282:
6283: csi_t_utilities_pvt.convert_ids_to_index(
6276: px_txn_ii_rltns_tbl => l_ir_tbl,
6277: x_return_status => l_return_status);
6278:
6279: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6280: RAISE fnd_api.g_exc_error;
6281: END IF;
6282:
6283: csi_t_utilities_pvt.convert_ids_to_index(
6284: px_line_dtl_tbl => l_td_tbl,
6296: px_txn_party_dtl_tbl => l_pd_tbl,
6297: px_txn_party_acct_tbl => l_pa_tbl,
6298: x_return_status => l_return_status);
6299:
6300: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6301: RAISE fnd_api.g_exc_error;
6302: END IF;
6303:
6304: l_source_line_rec.fulfilled_date := sysdate;
6297: px_txn_party_acct_tbl => l_pa_tbl,
6298: x_return_status => l_return_status);
6299:
6300: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6301: RAISE fnd_api.g_exc_error;
6302: END IF;
6303:
6304: l_source_line_rec.fulfilled_date := sysdate;
6305: l_source_hdr_rec.source_header_id := l_src_instance_key.inst_hdr_id;
6323: px_pricing_attribs_tbl => l_pr_tbl,
6324: x_return_status => l_return_status,
6325: x_return_message => l_return_message);
6326:
6327: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6328: RAISE fnd_api.g_exc_error;
6329: END IF;
6330:
6331: END IF;
6324: x_return_status => l_return_status,
6325: x_return_message => l_return_message);
6326:
6327: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6328: RAISE fnd_api.g_exc_error;
6329: END IF;
6330:
6331: END IF;
6332:
6333: END LOOP;
6334: END IF;
6335:
6336: EXCEPTION
6337: WHEN fnd_api.g_exc_error THEN
6338: x_return_status := fnd_api.g_ret_sts_error;
6339: END process_cz_txn_details;
6340: END csi_interface_pkg;
6334: END IF;
6335:
6336: EXCEPTION
6337: WHEN fnd_api.g_exc_error THEN
6338: x_return_status := fnd_api.g_ret_sts_error;
6339: END process_cz_txn_details;
6340: END csi_interface_pkg;