[Home] [Help]
112: px_inst_pa_rec IN OUT NOCOPY inst_pa_rec,
113: x_sub_type_rec OUT NOCOPY csi_txn_sub_types%rowtype,
114: x_return_status OUT NOCOPY varchar2)
115: IS
116: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
117: BEGIN
118: api_log('get_instance_pa_dtls');
119: x_return_status := fnd_api.g_ret_sts_success;
120: BEGIN
115: IS
116: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
117: BEGIN
118: api_log('get_instance_pa_dtls');
119: x_return_status := fnd_api.g_ret_sts_success;
120: BEGIN
121: SELECT party_id ,
122: instance_party_id,
123: object_version_number
144: px_inst_pa_rec.acct_rltnshp_code := 'OWNER';
145: EXCEPTION
146: WHEN no_data_found THEN
147: --## to seed some error message appropriately
148: l_return_status := fnd_api.g_ret_sts_error;
149: RAISE fnd_api.g_exc_error;
150: END;
151:
152: get_sub_type_rec(
145: EXCEPTION
146: WHEN no_data_found THEN
147: --## to seed some error message appropriately
148: l_return_status := fnd_api.g_ret_sts_error;
149: RAISE fnd_api.g_exc_error;
150: END;
151:
152: get_sub_type_rec(
153: p_transaction_type_id => p_transaction_type_id,
154: p_sub_type_id => p_sub_type_id,
155: x_sub_type_rec => x_sub_type_rec,
156: x_return_status => l_return_status);
157:
158: IF l_return_status <> fnd_api.g_ret_sts_success THEN
159: raise fnd_api.g_exc_error;
160: END IF;
161:
162: debug(' Instance ID : '||px_inst_pa_rec.instance_id);
155: x_sub_type_rec => x_sub_type_rec,
156: x_return_status => l_return_status);
157:
158: IF l_return_status <> fnd_api.g_ret_sts_success THEN
159: raise fnd_api.g_exc_error;
160: END IF;
161:
162: debug(' Instance ID : '||px_inst_pa_rec.instance_id);
163: debug(' Internal Party ID : '||px_inst_pa_rec.internal_party_id);
177: fnd_message.set_token('INSTANCE_ID', px_inst_pa_rec.instance_id );
178: fnd_message.set_token('OLD_PARTY_ID', px_inst_pa_rec.party_id );
179: fnd_message.set_token('NEW_PARTY_ID', px_inst_pa_rec.src_txn_party_id );
180: fnd_msg_pub.add;
181: l_return_status := fnd_api.g_ret_sts_error;
182: RAISE fnd_api.g_exc_error;
183: END IF;
184:
185: EXCEPTION
178: fnd_message.set_token('OLD_PARTY_ID', px_inst_pa_rec.party_id );
179: fnd_message.set_token('NEW_PARTY_ID', px_inst_pa_rec.src_txn_party_id );
180: fnd_msg_pub.add;
181: l_return_status := fnd_api.g_ret_sts_error;
182: RAISE fnd_api.g_exc_error;
183: END IF;
184:
185: EXCEPTION
186: WHEN fnd_api.g_exc_error THEN
182: RAISE fnd_api.g_exc_error;
183: END IF;
184:
185: EXCEPTION
186: WHEN fnd_api.g_exc_error THEN
187: x_return_status := l_return_status;
188: END get_instance_pa_dtls;
189:
190: PROCEDURE get_dflt_sub_type_id(
195: BEGIN
196:
197: api_log('get_dflt_sub_type_id');
198:
199: x_return_status := fnd_api.g_ret_sts_success;
200:
201: SELECT sub_type_id
202: INTO x_sub_type_id
203: FROM csi_source_ib_types -- SQL repository changes.
210: WHEN no_data_found THEN
211: fnd_message.set_name('CSI', 'CSI_DFLT_SUB_TYPE_MISSING');
212: fnd_message.set_token('TXN_TYPE_ID', p_transaction_type_id);
213: fnd_msg_pub.add;
214: x_return_status := fnd_api.g_ret_sts_error;
215: WHEN too_many_rows THEN
216: fnd_message.set_name('CSI', 'CSI_MANY_DFLT_SUB_TYPES');
217: fnd_message.set_token('TXN_TYPE_ID', p_transaction_type_id);
218: fnd_msg_pub.add;
215: WHEN too_many_rows THEN
216: fnd_message.set_name('CSI', 'CSI_MANY_DFLT_SUB_TYPES');
217: fnd_message.set_token('TXN_TYPE_ID', p_transaction_type_id);
218: fnd_msg_pub.add;
219: x_return_status := fnd_api.g_ret_sts_error;
220:
221: END get_dflt_sub_type_id;
222:
223:
230: BEGIN
231:
232: api_log('get_sub_type_rec');
233:
234: x_return_status := fnd_api.g_ret_sts_success;
235:
236: SELECT *
237: INTO x_sub_type_rec
238: FROM csi_txn_sub_types
253: fnd_message.set_name('CSI', 'CSI_INT_SUB_TYPE_REC_MISSING');
254: fnd_message.set_token('SUB_TYPE_ID', p_sub_type_id);
255: fnd_message.set_token('TRANSACTION_TYPE_ID', p_transaction_type_id);
256: fnd_msg_pub.add;
257: x_return_status := fnd_api.g_ret_sts_error;
258: END get_sub_type_rec;
259:
260: PROCEDURE get_item_control_rec(
261: p_mtl_txn_id IN number,
268:
269: BEGIN
270:
271: api_log('get_item_control_rec');
272: x_return_status := fnd_api.g_ret_sts_success;
273: BEGIN
274:
275: SELECT inventory_item_id,
276: organization_id
283: WHEN no_data_found THEN
284: fnd_message.set_name('CSI','CSI_NO_INVENTORY_RECORDS');
285: fnd_message.set_token('MTL_TRANSACTION_ID',p_mtl_txn_id);
286: fnd_msg_pub.add;
287: RAISE fnd_api.g_exc_error;
288: END;
289:
290: BEGIN
291: SELECT serial_number_control_code,
311: fnd_message.set_name('CSI', 'CSI_INT_ITEM_ID_MISSING');
312: fnd_message.set_token('INVENTORY_ITEM_ID', l_item_control_rec.inventory_item_id);
313: fnd_message.set_token('INV_ORGANZATION_ID', l_item_control_rec.organization_id);
314: fnd_msg_pub.add;
315: RAISE fnd_api.g_exc_error;
316: END;
317:
318: BEGIN
319: SELECT distinct serial_number_control_code
328: fnd_message.set_name('CSI', 'CSI_INT_ITEM_ID_MISSING');
329: fnd_message.set_token('INVENTORY_ITEM_ID', l_item_control_rec.inventory_item_id);
330: fnd_message.set_token('INV_ORGANZATION_ID', l_item_control_rec.organization_id);
331: fnd_msg_pub.add;
332: RAISE fnd_api.g_exc_error;
333: END;
334:
335: dump_item_control_rec(
336: p_item_control_rec => l_item_control_rec);
337:
338: x_item_control_rec := l_item_control_rec;
339:
340: EXCEPTION
341: WHEN fnd_api.g_exc_error THEN
342: x_return_status := fnd_api.g_ret_sts_error;
343:
344: END get_item_control_rec;
345:
338: x_item_control_rec := l_item_control_rec;
339:
340: EXCEPTION
341: WHEN fnd_api.g_exc_error THEN
342: x_return_status := fnd_api.g_ret_sts_error;
343:
344: END get_item_control_rec;
345:
346:
358: l_rma_line_id number;
359:
360: BEGIN
361:
362: x_return_status := fnd_api.g_ret_sts_success;
363:
364: api_log('get_partner_order_info');
365:
366: SELECT trx_source_line_id
393:
394: IF x_partner_order_rec.END_CUSTOMER_ID is null Then
395: fnd_message.set_name('CSI','CSI_PARTNER_VAL_MISSING');
396: fnd_msg_pub.add;
397: raise fnd_api.g_exc_error;
398: ELSE
399: BEGIN
400: SELECT party_id,
401: status
407: WHEN no_data_found THEN
408: fnd_message.set_name('CSI','CSI_INT_INV_CUST_ACCT_ID');
409: fnd_message.set_token('CUST_ACCOUNT_ID', x_partner_order_rec.END_CUSTOMER_ID);
410: fnd_msg_pub.add;
411: RAISE fnd_api.g_exc_error;
412: END;
413:
414: IF l_party_id = -1 THEN
415: raise fnd_api.g_exc_error;
411: RAISE fnd_api.g_exc_error;
412: END;
413:
414: IF l_party_id = -1 THEN
415: raise fnd_api.g_exc_error;
416: END IF;
417:
418: x_end_cust_party_id := l_party_id;
419:
428:
429: END IF;
430:
431: EXCEPTION
432: WHEN fnd_api.g_exc_error THEN
433: x_return_status := fnd_api.g_ret_sts_error;
434:
435: END get_partner_order_info;
436:
429: END IF;
430:
431: EXCEPTION
432: WHEN fnd_api.g_exc_error THEN
433: x_return_status := fnd_api.g_ret_sts_error;
434:
435: END get_partner_order_info;
436:
437:
446: l_cust_acct_site_use_id number;
447:
448: BEGIN
449:
450: x_return_status := fnd_api.g_ret_sts_success;
451:
452: api_log('get_src_order_info');
453:
454: x_src_order_rec.transaction_id := p_mtl_txn_id;
457: INTO x_src_order_rec.rma_line_id
458: FROM mtl_material_transactions
459: WHERE transaction_id = p_mtl_txn_id;
460:
461: SELECT nvl(reference_line_id , fnd_api.g_miss_num)
462: INTO x_src_order_rec.original_order_line_id
463: FROM oe_order_lines_all
464: WHERE line_id = x_src_order_rec.rma_line_id;
465:
500: fnd_message.set_name('CSI','CSI_TXN_SITE_USE_INVALID');
501: fnd_message.set_token('SITE_USE_ID',l_cust_acct_site_use_id);
502: fnd_message.set_token('SITE_USE_CODE','SHIP_TO');
503: fnd_msg_pub.add;
504: raise fnd_api.g_exc_error;
505: END;
506: ELSE -- null for both ship and Invoice to org in RMA's - Self bug. Raise the error much before rather than in the API. shegde
507: fnd_message.set_name('CSI','CSI_TXN_SITE_USE_INVALID');
508: fnd_message.set_token('SITE_USE_ID',l_cust_acct_site_use_id);
507: fnd_message.set_name('CSI','CSI_TXN_SITE_USE_INVALID');
508: fnd_message.set_token('SITE_USE_ID',l_cust_acct_site_use_id);
509: fnd_message.set_token('SITE_USE_CODE','INVOICE_TO');
510: fnd_msg_pub.add;
511: raise fnd_api.g_exc_error;
512: END IF;
513: EXCEPTION
514: WHEN no_data_found THEN
515: null;
515: null;
516: END;
517: END IF;
518: EXCEPTION
519: WHEN fnd_api.g_exc_error THEN
520: x_return_status := fnd_api.g_ret_sts_error;
521: END get_src_order_info;
522:
523: PROCEDURE get_mtl_txn_recs(
516: END;
517: END IF;
518: EXCEPTION
519: WHEN fnd_api.g_exc_error THEN
520: x_return_status := fnd_api.g_ret_sts_error;
521: END get_src_order_info;
522:
523: PROCEDURE get_mtl_txn_recs(
524: p_mtl_txn_id IN number,
528: x_src_order_rec OUT NOCOPY source_order_rec,
529: x_return_status OUT NOCOPY varchar2)
530: IS
531:
532: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
533: l_debug_level number;
534:
535: l_s_ind binary_integer := 0;
536: l_d_ind binary_integer := 0;
631: AND haou.organization_id = mmt.organization_id;
632:
633: BEGIN
634:
635: x_return_status := fnd_api.g_ret_sts_success;
636:
637: api_log('get_mtl_txn_recs');
638:
639: l_debug_level := csi_t_gen_utility_pvt.g_debug_level;
642: p_mtl_txn_id => p_mtl_txn_id,
643: x_src_order_rec => l_src_order_rec,
644: x_return_status => l_return_status);
645:
646: IF l_return_status <> fnd_api.g_ret_sts_success THEN
647: RAISE fnd_api.g_exc_error;
648: END IF;
649:
650: x_src_order_rec := l_src_order_rec;
643: x_src_order_rec => l_src_order_rec,
644: x_return_status => l_return_status);
645:
646: IF l_return_status <> fnd_api.g_ret_sts_success THEN
647: RAISE fnd_api.g_exc_error;
648: END IF;
649:
650: x_src_order_rec := l_src_order_rec;
651:
653: p_mtl_txn_id => p_mtl_txn_id,
654: x_item_control_rec => l_item_control_rec,
655: x_return_status => l_return_status);
656:
657: IF l_return_status <> fnd_api.g_ret_sts_success THEN
658: RAISE fnd_api.g_exc_error;
659: END IF;
660:
661: IF (l_item_control_rec.serial_control_code in (2, 5, 6)
654: x_item_control_rec => l_item_control_rec,
655: x_return_status => l_return_status);
656:
657: IF l_return_status <> fnd_api.g_ret_sts_success THEN
658: RAISE fnd_api.g_exc_error;
659: END IF;
660:
661: IF (l_item_control_rec.serial_control_code in (2, 5, 6)
662: AND
814: IF l_s_ind = 0 then
815: fnd_message.set_name('CSI','CSI_NO_INVENTORY_RECORDS');
816: fnd_message.set_token('MTL_TRANSACTION_ID',p_mtl_txn_id);
817: fnd_msg_pub.add;
818: RAISE fnd_api.g_exc_error;
819: END IF;
820:
821: debug('Mtl Transaction Recs Count(Source) : '||l_src_mtl_txn_tbl.COUNT);
822: debug('Mtl Transaction Recs Count(Destination) : '||l_dest_mtl_txn_tbl.COUNT);
840: x_dest_mtl_txn_tbl := l_dest_mtl_txn_tbl;
841:
842: EXCEPTION
843:
844: WHEN fnd_api.g_exc_error THEN
845: x_return_status := fnd_api.g_ret_sts_error;
846:
847: WHEN others THEN
848:
841:
842: EXCEPTION
843:
844: WHEN fnd_api.g_exc_error THEN
845: x_return_status := fnd_api.g_ret_sts_error;
846:
847: WHEN others THEN
848:
849: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
850: fnd_message.set_token('API_NAME','get_mtl_txn_recs');
851: fnd_message.set_token('SQL_ERROR',substr(sqlerrm, 1, 240));
852: fnd_msg_pub.add;
853:
854: x_return_status := fnd_api.g_ret_sts_unexp_error;
855:
856: END get_mtl_txn_recs;
857:
858: PROCEDURE build_instance_query_rec(
868: l_party_query_rec csi_datastructures_pub.party_query_rec;
869:
870: BEGIN
871:
872: x_return_status := fnd_api.g_ret_sts_success;
873:
874: api_log('build_instance_query_rec');
875:
876: l_inst_query_rec.inventory_item_id := p_mtl_txn_rec.inventory_item_id;
904: debug(' party_id :'||l_party_query_rec.party_id);
905: debug(' relationship_type_code :'||l_party_query_rec.relationship_type_code);
906:
907: EXCEPTION
908: WHEN fnd_api.g_exc_error THEN
909: x_return_status := fnd_api.g_ret_sts_error;
910: END build_instance_query_rec;
911:
912:
905: debug(' relationship_type_code :'||l_party_query_rec.relationship_type_code);
906:
907: EXCEPTION
908: WHEN fnd_api.g_exc_error THEN
909: x_return_status := fnd_api.g_ret_sts_error;
910: END build_instance_query_rec;
911:
912:
913: PROCEDURE identify_source_instance(
919: l_party_query_rec csi_datastructures_pub.party_query_rec;
920: l_pty_acct_query_rec csi_datastructures_pub.party_account_query_rec;
921: l_instance_header_tbl csi_datastructures_pub.instance_header_tbl;
922: l_assm_qty number;
923: l_qry_exp_inst varchar2(1) := fnd_api.g_false;
924: l_wip_entity_type number;
925:
926: l_msg_count number;
927: l_msg_data varchar2(2000);
924: l_wip_entity_type number;
925:
926: l_msg_count number;
927: l_msg_data varchar2(2000);
928: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
929: BEGIN
930:
931: api_log('identify_source_instance');
932:
929: BEGIN
930:
931: api_log('identify_source_instance');
932:
933: x_return_status := fnd_api.g_ret_sts_success;
934:
935: build_instance_query_rec(
936: p_mtl_txn_rec => px_mtl_txn_rec,
937: x_instance_query_rec => l_instance_query_rec,
938: x_party_query_rec => l_party_query_rec,
939: x_pty_acct_query_rec => l_pty_acct_query_rec,
940: x_return_status => l_return_status);
941:
942: IF l_return_status <> fnd_api.g_ret_sts_success THEN
943: RAISE fnd_api.g_exc_error;
944: END IF;
945:
946: -- RMA fulfillment ER, get expired instances also. Instance id is mandatory in TD entered for RMA fl.
939: x_pty_acct_query_rec => l_pty_acct_query_rec,
940: x_return_status => l_return_status);
941:
942: IF l_return_status <> fnd_api.g_ret_sts_success THEN
943: RAISE fnd_api.g_exc_error;
944: END IF;
945:
946: -- RMA fulfillment ER, get expired instances also. Instance id is mandatory in TD entered for RMA fl.
947: -- This fix 2733128 (11.5.8) is already taken care of in 11.5.9
945:
946: -- RMA fulfillment ER, get expired instances also. Instance id is mandatory in TD entered for RMA fl.
947: -- This fix 2733128 (11.5.8) is already taken care of in 11.5.9
948: /*
949: IF nvl(px_mtl_txn_rec.instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
950: l_qry_exp_inst := fnd_api.g_true;
951: END IF;
952:
953: debug(' Bring expired instances Flag :'||l_qry_exp_inst);
946: -- RMA fulfillment ER, get expired instances also. Instance id is mandatory in TD entered for RMA fl.
947: -- This fix 2733128 (11.5.8) is already taken care of in 11.5.9
948: /*
949: IF nvl(px_mtl_txn_rec.instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
950: l_qry_exp_inst := fnd_api.g_true;
951: END IF;
952:
953: debug(' Bring expired instances Flag :'||l_qry_exp_inst);
954: */ -- shegde removing this check since referencing an instance should not be a pre-requisite.
958: p_pkg_name => 'csi_item_instance_pub');
959:
960: csi_item_instance_pub.get_item_instances(
961: p_api_version => 1.0,
962: p_commit => fnd_api.g_false,
963: p_init_msg_list => fnd_api.g_true,
964: p_validation_level => fnd_api.g_valid_level_full,
965: p_instance_query_rec => l_instance_query_rec,
966: p_party_query_rec => l_party_query_rec,
959:
960: csi_item_instance_pub.get_item_instances(
961: p_api_version => 1.0,
962: p_commit => fnd_api.g_false,
963: p_init_msg_list => fnd_api.g_true,
964: p_validation_level => fnd_api.g_valid_level_full,
965: p_instance_query_rec => l_instance_query_rec,
966: p_party_query_rec => l_party_query_rec,
967: p_account_query_rec => l_pty_acct_query_rec,
960: csi_item_instance_pub.get_item_instances(
961: p_api_version => 1.0,
962: p_commit => fnd_api.g_false,
963: p_init_msg_list => fnd_api.g_true,
964: p_validation_level => fnd_api.g_valid_level_full,
965: p_instance_query_rec => l_instance_query_rec,
966: p_party_query_rec => l_party_query_rec,
967: p_account_query_rec => l_pty_acct_query_rec,
968: p_transaction_id => NULL,
965: p_instance_query_rec => l_instance_query_rec,
966: p_party_query_rec => l_party_query_rec,
967: p_account_query_rec => l_pty_acct_query_rec,
968: p_transaction_id => NULL,
969: p_resolve_id_columns => fnd_api.g_false,
970: p_active_instance_only => l_qry_exp_inst,
971: x_instance_header_tbl => l_instance_header_tbl,
972: x_return_status => l_return_status,
973: x_msg_count => l_msg_count,
972: x_return_status => l_return_status,
973: x_msg_count => l_msg_count,
974: x_msg_data => l_msg_data );
975:
976: IF l_return_status <> fnd_api.g_ret_sts_success THEN
977: RAISE fnd_api.g_exc_error;
978: END IF;
979:
980: IF l_instance_header_tbl.COUNT > 0 THEN
973: x_msg_count => l_msg_count,
974: x_msg_data => l_msg_data );
975:
976: IF l_return_status <> fnd_api.g_ret_sts_success THEN
977: RAISE fnd_api.g_exc_error;
978: END IF;
979:
980: IF l_instance_header_tbl.COUNT > 0 THEN
981: IF l_instance_header_tbl.COUNT = 1 THEN
1014: debug('Location type code is :'||l_instance_header_tbl(1).location_type_code);
1015: fnd_message.set_name('CSI', 'CSI_NON_RETURNABLE_INSTANCE');
1016: fnd_message.set_token('LOC_TYPE_CODE', l_instance_header_tbl(1).location_type_code);
1017: fnd_msg_pub.add;
1018: RAISE fnd_api.g_exc_error;
1019: END IF;
1020:
1021: Exception when others then
1022: fnd_message.set_name('FND','FND_GENERIC_MESSAGE');
1021: Exception when others then
1022: fnd_message.set_name('FND','FND_GENERIC_MESSAGE');
1023: fnd_message.set_token('MESSAGE',substr(sqlerrm,1,255));
1024: fnd_msg_pub.add;
1025: raise fnd_api.g_exc_error;
1026: End;
1027: */
1028: ELSE
1029: debug('Location type code is :'||l_instance_header_tbl(1).location_type_code);
1029: debug('Location type code is :'||l_instance_header_tbl(1).location_type_code);
1030: fnd_message.set_name('CSI', 'CSI_NON_RETURNABLE_INSTANCE');
1031: fnd_message.set_token('LOC_TYPE_CODE', l_instance_header_tbl(1).location_type_code);
1032: fnd_msg_pub.add;
1033: RAISE fnd_api.g_exc_error;
1034: END IF;
1035: -- fix for Bug 2733128.
1036: ELSE
1037: IF ( l_instance_header_tbl(1).location_type_code = 'INVENTORY'
1035: -- fix for Bug 2733128.
1036: ELSE
1037: IF ( l_instance_header_tbl(1).location_type_code = 'INVENTORY'
1038: AND
1039: NVL(l_instance_header_tbl(1).active_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date
1040: )
1041: THEN
1042: debug('Location type code is :'||l_instance_header_tbl(1).location_type_code);
1043: fnd_message.set_name('CSI', 'CSI_NON_RETURNABLE_INSTANCE');
1043: fnd_message.set_name('CSI', 'CSI_NON_RETURNABLE_INSTANCE');
1044: fnd_message.set_token('LOC_TYPE_CODE', l_instance_header_tbl(1).location_type_code);
1045: fnd_message.set_token('INV_ORG_ID',l_instance_query_rec.inv_organization_id);
1046: fnd_msg_pub.add;
1047: raise fnd_api.g_exc_error;
1048: END IF;
1049: END IF;
1050: ELSIF (p_item_control_rec.serial_control_code <> 1
1051: AND p_item_control_rec.lot_control_code <> 2 ) THEN
1055: fnd_message.set_name('CSI', 'CSI_TXN_MULT_INST_FOUND');
1056: fnd_message.set_token('INV_ITEM_ID',l_instance_query_rec.inventory_item_id);
1057: fnd_message.set_token('INV_ORG_ID',l_instance_query_rec.inv_organization_id);
1058: fnd_msg_pub.add;
1059: raise fnd_api.g_exc_error;
1060: END IF;
1061: ELSE
1062: debug('RMA Processor could not find the source instance.');
1063: px_mtl_txn_rec.instance_id := fnd_api.g_miss_num;
1059: raise fnd_api.g_exc_error;
1060: END IF;
1061: ELSE
1062: debug('RMA Processor could not find the source instance.');
1063: px_mtl_txn_rec.instance_id := fnd_api.g_miss_num;
1064: END IF;
1065: EXCEPTION
1066: WHEN fnd_api.g_exc_error THEN
1067: x_return_status := fnd_api.g_ret_sts_error;
1062: debug('RMA Processor could not find the source instance.');
1063: px_mtl_txn_rec.instance_id := fnd_api.g_miss_num;
1064: END IF;
1065: EXCEPTION
1066: WHEN fnd_api.g_exc_error THEN
1067: x_return_status := fnd_api.g_ret_sts_error;
1068: END identify_source_instance;
1069:
1070:
1063: px_mtl_txn_rec.instance_id := fnd_api.g_miss_num;
1064: END IF;
1065: EXCEPTION
1066: WHEN fnd_api.g_exc_error THEN
1067: x_return_status := fnd_api.g_ret_sts_error;
1068: END identify_source_instance;
1069:
1070:
1071: PROCEDURE identify_source_instances(
1072: px_mtl_txn_tbl IN OUT NOCOPY mtl_txn_tbl,
1073: p_item_control_rec IN item_control_rec, -- Added for Multi WIP Job ER
1074: x_return_status OUT NOCOPY varchar2)
1075: IS
1076: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1077: BEGIN
1078:
1079: x_return_status := fnd_api.g_ret_sts_success;
1080:
1075: IS
1076: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1077: BEGIN
1078:
1079: x_return_status := fnd_api.g_ret_sts_success;
1080:
1081: api_log('identify_source_instances');
1082:
1083: IF px_mtl_txn_tbl.COUNT > 0 THEN
1088: px_mtl_txn_rec => px_mtl_txn_tbl(l_ind),
1089: p_item_control_rec => p_item_control_rec,
1090: x_return_status => l_return_status);
1091:
1092: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1093: raise fnd_api.g_exc_error;
1094: END IF;
1095:
1096: END LOOP;
1089: p_item_control_rec => p_item_control_rec,
1090: x_return_status => l_return_status);
1091:
1092: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1093: raise fnd_api.g_exc_error;
1094: END IF;
1095:
1096: END LOOP;
1097: END IF;
1096: END LOOP;
1097: END IF;
1098:
1099: EXCEPTION
1100: WHEN fnd_api.g_exc_error THEN
1101: x_return_status := fnd_api.g_ret_sts_error;
1102: END identify_source_instances;
1103:
1104: PROCEDURE get_master_organization_id(
1097: END IF;
1098:
1099: EXCEPTION
1100: WHEN fnd_api.g_exc_error THEN
1101: x_return_status := fnd_api.g_ret_sts_error;
1102: END identify_source_instances;
1103:
1104: PROCEDURE get_master_organization_id(
1105: p_organization_id IN number,
1108: IS
1109: l_master_organization_id number;
1110: BEGIN
1111: api_log('get_master_organization_id');
1112: x_return_status := fnd_api.g_ret_sts_success;
1113: SELECT master_organization_id
1114: INTO l_master_organization_id
1115: FROM mtl_parameters
1116: WHERE organization_id = p_organization_id;
1175: l_csi_eav_tbl csi_t_datastructures_grp.csi_ext_attrib_vals_tbl;
1176:
1177:
1178: -- misc variables
1179: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1180: l_msg_count number;
1181: l_msg_data varchar2(2000);
1182: l_error_message varchar2(2000);
1183:
1187: l_ea_ind binary_integer;
1188:
1189: BEGIN
1190:
1191: x_return_status := fnd_api.g_ret_sts_success;
1192:
1193: api_log('build_process_tables_TD');
1194:
1195: get_dflt_sub_type_id(
1196: p_transaction_type_id => l_transaction_type_id,
1197: x_sub_type_id => l_txn_sub_type_id,
1198: x_return_status => l_return_status);
1199:
1200: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1201: raise fnd_api.g_exc_error;
1202: END IF;
1203:
1204: l_pty_ind := 1;
1197: x_sub_type_id => l_txn_sub_type_id,
1198: x_return_status => l_return_status);
1199:
1200: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1201: raise fnd_api.g_exc_error;
1202: END IF;
1203:
1204: l_pty_ind := 1;
1205: l_pa_ind := 1;
1219: x_return_status => l_return_status);
1220: END IF;
1221:
1222: -- get_txn_line_details
1223: IF nvl(p_mtl_txn_tbl(l_ind).txn_line_detail_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1224: THEN
1225:
1226: l_txn_line_detail_query_rec.txn_line_detail_id := p_mtl_txn_tbl(l_ind).txn_line_detail_id;
1227: l_txn_line_detail_query_rec.processing_status := 'IN_PROCESS'; -- added for bug 3094905
1227: l_txn_line_detail_query_rec.processing_status := 'IN_PROCESS'; -- added for bug 3094905
1228:
1229: csi_t_txn_details_grp.get_transaction_details(
1230: p_api_version => 1.0,
1231: p_commit => fnd_api.g_false,
1232: p_init_msg_list => fnd_api.g_true,
1233: p_validation_level => fnd_api.g_valid_level_full,
1234: p_txn_line_query_rec => l_txn_line_query_rec,
1235: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
1228:
1229: csi_t_txn_details_grp.get_transaction_details(
1230: p_api_version => 1.0,
1231: p_commit => fnd_api.g_false,
1232: p_init_msg_list => fnd_api.g_true,
1233: p_validation_level => fnd_api.g_valid_level_full,
1234: p_txn_line_query_rec => l_txn_line_query_rec,
1235: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
1236: x_txn_line_detail_tbl => l_line_dtl_tbl,
1229: csi_t_txn_details_grp.get_transaction_details(
1230: p_api_version => 1.0,
1231: p_commit => fnd_api.g_false,
1232: p_init_msg_list => fnd_api.g_true,
1233: p_validation_level => fnd_api.g_valid_level_full,
1234: p_txn_line_query_rec => l_txn_line_query_rec,
1235: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
1236: x_txn_line_detail_tbl => l_line_dtl_tbl,
1237: p_get_parties_flag => fnd_api.g_true,
1233: p_validation_level => fnd_api.g_valid_level_full,
1234: p_txn_line_query_rec => l_txn_line_query_rec,
1235: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
1236: x_txn_line_detail_tbl => l_line_dtl_tbl,
1237: p_get_parties_flag => fnd_api.g_true,
1238: x_txn_party_detail_tbl => l_pty_dtl_tbl,
1239: p_get_pty_accts_flag => fnd_api.g_true,
1240: x_txn_pty_acct_detail_tbl => l_pty_acct_tbl,
1241: p_get_ii_rltns_flag => fnd_api.g_false,
1235: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
1236: x_txn_line_detail_tbl => l_line_dtl_tbl,
1237: p_get_parties_flag => fnd_api.g_true,
1238: x_txn_party_detail_tbl => l_pty_dtl_tbl,
1239: p_get_pty_accts_flag => fnd_api.g_true,
1240: x_txn_pty_acct_detail_tbl => l_pty_acct_tbl,
1241: p_get_ii_rltns_flag => fnd_api.g_false,
1242: x_txn_ii_rltns_tbl => l_ii_rltns_tbl,
1243: p_get_org_assgns_flag => fnd_api.g_true,
1237: p_get_parties_flag => fnd_api.g_true,
1238: x_txn_party_detail_tbl => l_pty_dtl_tbl,
1239: p_get_pty_accts_flag => fnd_api.g_true,
1240: x_txn_pty_acct_detail_tbl => l_pty_acct_tbl,
1241: p_get_ii_rltns_flag => fnd_api.g_false,
1242: x_txn_ii_rltns_tbl => l_ii_rltns_tbl,
1243: p_get_org_assgns_flag => fnd_api.g_true,
1244: x_txn_org_assgn_tbl => l_org_assgn_tbl,
1245: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1239: p_get_pty_accts_flag => fnd_api.g_true,
1240: x_txn_pty_acct_detail_tbl => l_pty_acct_tbl,
1241: p_get_ii_rltns_flag => fnd_api.g_false,
1242: x_txn_ii_rltns_tbl => l_ii_rltns_tbl,
1243: p_get_org_assgns_flag => fnd_api.g_true,
1244: x_txn_org_assgn_tbl => l_org_assgn_tbl,
1245: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1246: x_txn_ext_attrib_vals_tbl => l_txn_eav_tbl,
1247: p_get_csi_attribs_flag => fnd_api.g_false,
1241: p_get_ii_rltns_flag => fnd_api.g_false,
1242: x_txn_ii_rltns_tbl => l_ii_rltns_tbl,
1243: p_get_org_assgns_flag => fnd_api.g_true,
1244: x_txn_org_assgn_tbl => l_org_assgn_tbl,
1245: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1246: x_txn_ext_attrib_vals_tbl => l_txn_eav_tbl,
1247: p_get_csi_attribs_flag => fnd_api.g_false,
1248: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
1249: p_get_csi_iea_values_flag => fnd_api.g_false,
1243: p_get_org_assgns_flag => fnd_api.g_true,
1244: x_txn_org_assgn_tbl => l_org_assgn_tbl,
1245: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1246: x_txn_ext_attrib_vals_tbl => l_txn_eav_tbl,
1247: p_get_csi_attribs_flag => fnd_api.g_false,
1248: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
1249: p_get_csi_iea_values_flag => fnd_api.g_false,
1250: x_csi_iea_values_tbl => l_csi_eav_tbl,
1251: p_get_txn_systems_flag => fnd_api.g_false,
1245: p_get_ext_attrib_vals_flag => fnd_api.g_true,
1246: x_txn_ext_attrib_vals_tbl => l_txn_eav_tbl,
1247: p_get_csi_attribs_flag => fnd_api.g_false,
1248: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
1249: p_get_csi_iea_values_flag => fnd_api.g_false,
1250: x_csi_iea_values_tbl => l_csi_eav_tbl,
1251: p_get_txn_systems_flag => fnd_api.g_false,
1252: x_txn_systems_tbl => l_txn_systems_tbl,
1253: x_return_status => l_return_status,
1247: p_get_csi_attribs_flag => fnd_api.g_false,
1248: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
1249: p_get_csi_iea_values_flag => fnd_api.g_false,
1250: x_csi_iea_values_tbl => l_csi_eav_tbl,
1251: p_get_txn_systems_flag => fnd_api.g_false,
1252: x_txn_systems_tbl => l_txn_systems_tbl,
1253: x_return_status => l_return_status,
1254: x_msg_count => l_msg_count,
1255: x_msg_data => l_msg_data);
1253: x_return_status => l_return_status,
1254: x_msg_count => l_msg_count,
1255: x_msg_data => l_msg_data);
1256:
1257: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1258: debug('Error getting the transaction details info for the subject id');
1259: RAISE fnd_api.g_exc_error;
1260: END IF;
1261:
1255: x_msg_data => l_msg_data);
1256:
1257: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1258: debug('Error getting the transaction details info for the subject id');
1259: RAISE fnd_api.g_exc_error;
1260: END IF;
1261:
1262: END IF;
1263:
1282: l_txn_rec.transaction_date := sysdate;
1283: l_txn_rec.transaction_type_id := l_transaction_type_id;
1284: l_txn_rec.txn_sub_type_id := p_mtl_txn_tbl(l_ind).sub_type_id;
1285:
1286: IF nvl(l_txn_rec.txn_sub_type_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
1287: l_txn_rec.txn_sub_type_id := l_txn_sub_type_id;
1288: END IF;
1289:
1290: get_sub_type_rec(
1292: p_sub_type_id => l_txn_rec.txn_sub_type_id,
1293: x_sub_type_rec => l_sub_type_rec,
1294: x_return_status => l_return_status);
1295:
1296: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1297: raise fnd_api.g_exc_error;
1298: END IF;
1299:
1300: l_txn_rec.source_header_ref := l_rma_order_rec.source_header_ref;
1293: x_sub_type_rec => l_sub_type_rec,
1294: x_return_status => l_return_status);
1295:
1296: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1297: raise fnd_api.g_exc_error;
1298: END IF;
1299:
1300: l_txn_rec.source_header_ref := l_rma_order_rec.source_header_ref;
1301: l_txn_rec.source_header_ref_id := l_rma_order_rec.source_header_id;
1313: l_instances_tbl(l_ind).actual_return_date := p_mtl_txn_tbl(l_ind).transaction_date;
1314: l_instances_tbl(l_ind).return_by_date := null;
1315: /* this is because we query txn details by txn_line_detail_id */
1316: IF l_line_dtl_tbl.COUNT = 1
1317: AND nvl(p_mtl_txn_tbl(l_ind).txn_line_detail_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1318: THEN
1319: l_instances_tbl(l_ind).instance_id := l_line_dtl_tbl(1).instance_id;
1320: END IF;
1321:
1318: THEN
1319: l_instances_tbl(l_ind).instance_id := l_line_dtl_tbl(1).instance_id;
1320: END IF;
1321:
1322: IF nvl(l_instances_tbl(l_ind).instance_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
1323: l_instances_tbl(l_ind).instance_id := p_mtl_txn_tbl(l_ind).instance_id;
1324: END IF;
1325:
1326: l_instances_tbl(l_ind).mtl_txn_creation_date := nvl(p_mtl_txn_tbl(l_ind).mtl_txn_creation_date,sysdate);--bug4026148
1325:
1326: l_instances_tbl(l_ind).mtl_txn_creation_date := nvl(p_mtl_txn_tbl(l_ind).mtl_txn_creation_date,sysdate);--bug4026148
1327: l_instances_tbl(l_ind).quantity := p_mtl_txn_tbl(l_ind).instance_quantity;
1328:
1329: IF nvl(l_instances_tbl(l_ind).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
1330:
1331: BEGIN
1332:
1333: SELECT quantity
1350: debug('This Line had No Receiving Node in the RMA fulfillment earlier. Special Processing...');
1351:
1352: l_instances_tbl(l_ind).active_end_date := NULL; -- this is done in process txn also
1353: IF p_item_control_rec.serial_control_code = 1 THEN -- pass g_miss so that process txn API does not double update source instance
1354: l_instances_tbl(l_ind).instance_id := fnd_api.g_miss_num;
1355: END IF;
1356: ELSE
1357: debug('sorry!!. This Line had A Receiving Node on the RMA Order earlier. Normal Processing...');
1358: IF l_instance_quantity < l_instances_tbl(l_ind).quantity THEN
1359:
1360: fnd_message.set_name('CSI', 'CSI_INT_QTY_CHK_FAILED');
1361: fnd_message.set_token('INSTANCE_ID', l_instances_tbl(l_ind).instance_id);
1362: fnd_msg_pub.add;
1363: RAISE fnd_api.g_exc_error;
1364:
1365: END IF;
1366: END IF;
1367: ELSIF l_instance_quantity < l_instances_tbl(l_ind).quantity THEN
1370:
1371: fnd_message.set_name('CSI', 'CSI_INT_QTY_CHK_FAILED');
1372: fnd_message.set_token('INSTANCE_ID', l_instances_tbl(l_ind).instance_id);
1373: fnd_msg_pub.add;
1374: RAISE fnd_api.g_exc_error;
1375:
1376: END IF;
1377:
1378: EXCEPTION
1385: px_mtl_txn_rec => l_mtl_txn_rec ,
1386: p_item_control_rec => p_item_control_rec,
1387: x_return_status => l_return_status);
1388:
1389: IF l_mtl_txn_rec.instance_id <> fnd_api.g_miss_num THEN
1390: l_instances_tbl(l_ind).instance_id := l_mtl_txn_rec.instance_id;
1391: END IF;
1392: END IF;
1393:
1399:
1400: l_instances_tbl(l_ind).last_oe_rma_line_id := p_mtl_txn_tbl(l_ind).oe_line_id;
1401: l_instances_tbl(l_ind).object_version_number := 1.0;
1402:
1403: IF nvl(p_mtl_txn_tbl(l_ind).serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
1404: l_instances_tbl(l_ind).mfg_serial_number_flag := 'N';
1405: ELSE
1406: l_instances_tbl(l_ind).mfg_serial_number_flag := 'Y';
1407: END IF;
1475: --
1476: --
1477:
1478: -- check_and_break relation
1479: IF (nvl(l_instances_tbl(l_ind).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1480: AND
1481: l_instances_tbl(l_ind).mfg_serial_number_flag = 'Y')
1482: OR
1483: -- for non serial configured item break it from the ato model
1480: AND
1481: l_instances_tbl(l_ind).mfg_serial_number_flag = 'Y')
1482: OR
1483: -- for non serial configured item break it from the ato model
1484: nvl(p_item_control_rec.model_item_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1485: THEN
1486:
1487: -- Moved the routine to process txn pvt to avoid circular dependancy
1488: -- introduced in that routine for bug 2373109 and also to not load rma receipt for
1492: p_instance_id => l_instances_tbl(l_ind).instance_id,
1493: p_csi_txn_rec => l_txn_rec,
1494: x_return_status => l_return_status);
1495:
1496: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1497: RAISE fnd_api.g_exc_error;
1498: END IF;
1499:
1500: END IF;
1493: p_csi_txn_rec => l_txn_rec,
1494: x_return_status => l_return_status);
1495:
1496: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1497: RAISE fnd_api.g_exc_error;
1498: END IF;
1499:
1500: END IF;
1501:
1540: l_internal_party_id number;
1541: l_master_organization_id number;
1542: l_rma_order_rec mtl_trx_type;
1543:
1544: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1545: l_error_message varchar2(2000);
1546:
1547: l_txn_rec csi_datastructures_pub.transaction_rec;
1548: l_instances_tbl csi_process_txn_grp.txn_instances_tbl;
1557:
1558:
1559: BEGIN
1560:
1561: x_return_status := fnd_api.g_ret_sts_success;
1562:
1563: api_log('build_process_tables_NOTD');
1564:
1565: get_dflt_sub_type_id(
1566: p_transaction_type_id => l_transaction_type_id,
1567: x_sub_type_id => l_txn_sub_type_id,
1568: x_return_status => l_return_status);
1569:
1570: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1571: raise fnd_api.g_exc_error;
1572: END IF;
1573:
1574: IF p_mtl_txn_tbl.COUNT > 0 THEN
1567: x_sub_type_id => l_txn_sub_type_id,
1568: x_return_status => l_return_status);
1569:
1570: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1571: raise fnd_api.g_exc_error;
1572: END IF;
1573:
1574: IF p_mtl_txn_tbl.COUNT > 0 THEN
1575: FOR l_ind IN p_mtl_txn_tbl.FIRST .. p_mtl_txn_tbl.LAST
1608: p_sub_type_id => l_txn_rec.txn_sub_type_id,
1609: x_sub_type_rec => l_sub_type_rec,
1610: x_return_status => l_return_status);
1611:
1612: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1613: raise fnd_api.g_exc_error;
1614: END IF;
1615:
1616: l_txn_rec.source_header_ref := l_rma_order_rec.source_header_ref;
1609: x_sub_type_rec => l_sub_type_rec,
1610: x_return_status => l_return_status);
1611:
1612: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1613: raise fnd_api.g_exc_error;
1614: END IF;
1615:
1616: l_txn_rec.source_header_ref := l_rma_order_rec.source_header_ref;
1617: l_txn_rec.source_header_ref_id := l_rma_order_rec.source_header_id;
1637: l_instances_tbl(l_ind).lot_number := p_mtl_txn_tbl(l_ind).lot_number; -- added Self Bug shegde.
1638: --l_instances_tbl(l_ind).location_type_code := 'HZ_PARTY_SITES';
1639: --l_instances_tbl(l_ind).instance_usage_code := 'IN_INVENTORY';
1640: l_instances_tbl(l_ind).mtl_txn_creation_date := nvl(p_mtl_txn_tbl(l_ind).mtl_txn_creation_date,sysdate);--bug4026148
1641: IF nvl(p_mtl_txn_tbl(l_ind).serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
1642: l_instances_tbl(l_ind).mfg_serial_number_flag := 'N';
1643: ELSE
1644: l_instances_tbl(l_ind).mfg_serial_number_flag := 'Y';
1645: END IF;
1646:
1647: l_instances_tbl(l_ind).unit_of_measure := p_mtl_txn_tbl(l_ind).primary_uom_code;
1648:
1649: -- check_and_break relation
1650: IF (nvl(l_instances_tbl(l_ind).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
1651: AND
1652: l_instances_tbl(l_ind).mfg_serial_number_flag = 'Y' )
1653: OR
1654: -- for non serial configured item break it from the ato model
1651: AND
1652: l_instances_tbl(l_ind).mfg_serial_number_flag = 'Y' )
1653: OR
1654: -- for non serial configured item break it from the ato model
1655: nvl(p_item_control_rec.model_item_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1656: THEN
1657:
1658: -- Moved the routine to process txn pvt to avoid circular dependancy
1659: -- introduced in that routine for bug 2373109 and also to not load rma
1663: p_instance_id => l_instances_tbl(l_ind).instance_id,
1664: p_csi_txn_rec => l_txn_rec,
1665: x_return_status => l_return_status);
1666:
1667: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1668: RAISE fnd_api.g_exc_error;
1669: END IF;
1670:
1671: END IF;
1664: p_csi_txn_rec => l_txn_rec,
1665: x_return_status => l_return_status);
1666:
1667: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1668: RAISE fnd_api.g_exc_error;
1669: END IF;
1670:
1671: END IF;
1672: END LOOP;
1699: x_match_basis OUT NOCOPY varchar2,
1700: x_return_status OUT NOCOPY varchar2)
1701: IS
1702: l_mtl_txn_rec mtl_txn_rec;
1703: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1704: l_inst_qty number;
1705: i_index number := 0;
1706: l_found varchar2(1) := 'N';
1707: BEGIN
1705: i_index number := 0;
1706: l_found varchar2(1) := 'N';
1707: BEGIN
1708:
1709: x_return_status := fnd_api.g_ret_sts_success;
1710:
1711: api_log('match_mtl_txn_for_txn_dtl');
1712:
1713: x_match_flag := 'N';
1717: IF px_mtl_txn_tbl.COUNT > 0 THEN
1718: FOR l_ind IN px_mtl_txn_tbl.FIRST .. px_mtl_txn_tbl.LAST
1719: LOOP
1720:
1721: IF nvl(px_mtl_txn_tbl(l_ind).lot_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1722: AND
1723: nvl(px_mtl_txn_tbl(l_ind).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1724: THEN
1725:
1719: LOOP
1720:
1721: IF nvl(px_mtl_txn_tbl(l_ind).lot_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1722: AND
1723: nvl(px_mtl_txn_tbl(l_ind).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1724: THEN
1725:
1726: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1727:
1724: THEN
1725:
1726: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1727:
1728: IF (nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char ) =
1729: nvl(px_mtl_txn_tbl(l_ind).serial_number , fnd_api.g_miss_char ) )
1730: AND
1731: (nvl(px_txn_dtl_rec.lot_number, fnd_api.g_miss_char ) =
1732: nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char ) )
1725:
1726: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1727:
1728: IF (nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char ) =
1729: nvl(px_mtl_txn_tbl(l_ind).serial_number , fnd_api.g_miss_char ) )
1730: AND
1731: (nvl(px_txn_dtl_rec.lot_number, fnd_api.g_miss_char ) =
1732: nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char ) )
1733: THEN
1727:
1728: IF (nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char ) =
1729: nvl(px_mtl_txn_tbl(l_ind).serial_number , fnd_api.g_miss_char ) )
1730: AND
1731: (nvl(px_txn_dtl_rec.lot_number, fnd_api.g_miss_char ) =
1732: nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char ) )
1733: THEN
1734: x_match_flag := 'Y';
1735: x_match_basis := 'ALL_ATTRIBUTES';
1728: IF (nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char ) =
1729: nvl(px_mtl_txn_tbl(l_ind).serial_number , fnd_api.g_miss_char ) )
1730: AND
1731: (nvl(px_txn_dtl_rec.lot_number, fnd_api.g_miss_char ) =
1732: nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char ) )
1733: THEN
1734: x_match_flag := 'Y';
1735: x_match_basis := 'ALL_ATTRIBUTES';
1736: px_mtl_txn_tbl(l_ind).verified_flag := 'Y';
1748:
1749: /* try matching with serial number alone */
1750: FOR l_ind IN px_mtl_txn_tbl.FIRST .. px_mtl_txn_tbl.LAST
1751: LOOP
1752: IF nvl(px_mtl_txn_tbl(l_ind).lot_number, fnd_api.g_miss_char) = fnd_api.g_miss_char
1753: AND
1754: nvl(px_mtl_txn_tbl(l_ind).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1755: THEN
1756: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1750: FOR l_ind IN px_mtl_txn_tbl.FIRST .. px_mtl_txn_tbl.LAST
1751: LOOP
1752: IF nvl(px_mtl_txn_tbl(l_ind).lot_number, fnd_api.g_miss_char) = fnd_api.g_miss_char
1753: AND
1754: nvl(px_mtl_txn_tbl(l_ind).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1755: THEN
1756: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1757: IF nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char ) =
1758: nvl(px_mtl_txn_tbl(l_ind).serial_number , fnd_api.g_miss_char )
1753: AND
1754: nvl(px_mtl_txn_tbl(l_ind).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1755: THEN
1756: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1757: IF nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char ) =
1758: nvl(px_mtl_txn_tbl(l_ind).serial_number , fnd_api.g_miss_char )
1759: THEN
1760: x_match_flag := 'Y';
1761: x_match_basis := 'SRL_ATTRIBUTE';
1754: nvl(px_mtl_txn_tbl(l_ind).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1755: THEN
1756: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1757: IF nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char ) =
1758: nvl(px_mtl_txn_tbl(l_ind).serial_number , fnd_api.g_miss_char )
1759: THEN
1760: x_match_flag := 'Y';
1761: x_match_basis := 'SRL_ATTRIBUTE';
1762: px_mtl_txn_tbl(l_ind).verified_flag := 'Y';
1762: px_mtl_txn_tbl(l_ind).verified_flag := 'Y';
1763: px_mtl_txn_tbl(l_ind).txn_line_detail_id := px_txn_dtl_rec.txn_line_detail_id;
1764: px_mtl_txn_tbl(l_ind).sub_type_id := px_txn_dtl_rec.sub_type_id;
1765: l_mtl_txn_rec := px_mtl_txn_tbl(l_ind);
1766: IF nvl(px_txn_dtl_rec.instance_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
1767: debug('Entered txn line detail has null Instance_ID. Trying to identify one.');
1768:
1769: -- Add if condition for bug 7207346, only call identify_source_instance for serial controled items
1770:
1773: px_mtl_txn_rec => px_mtl_txn_tbl(l_ind),
1774: p_item_control_rec => p_item_control_rec,
1775: x_return_status => l_return_status);
1776:
1777: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1778: raise fnd_api.g_exc_error;
1779: END IF;
1780: end if;
1781: ELSE
1774: p_item_control_rec => p_item_control_rec,
1775: x_return_status => l_return_status);
1776:
1777: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1778: raise fnd_api.g_exc_error;
1779: END IF;
1780: end if;
1781: ELSE
1782: px_mtl_txn_tbl(l_ind).instance_id := px_txn_dtl_rec.instance_id;
1792:
1793: /* try matching with lot number alone */
1794: FOR l_ind IN px_mtl_txn_tbl.FIRST .. px_mtl_txn_tbl.LAST
1795: LOOP
1796: IF nvl(px_mtl_txn_tbl(l_ind).lot_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char AND
1797: ( nvl(px_mtl_txn_tbl(l_ind).serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char OR -- Added for bug 4244887
1798: nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char ) <> fnd_api.g_miss_char) THEN -- Added for bug 4244887
1799: IF nvl(px_txn_dtl_rec.lot_number, fnd_api.g_miss_char ) =
1800: nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char)
1793: /* try matching with lot number alone */
1794: FOR l_ind IN px_mtl_txn_tbl.FIRST .. px_mtl_txn_tbl.LAST
1795: LOOP
1796: IF nvl(px_mtl_txn_tbl(l_ind).lot_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char AND
1797: ( nvl(px_mtl_txn_tbl(l_ind).serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char OR -- Added for bug 4244887
1798: nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char ) <> fnd_api.g_miss_char) THEN -- Added for bug 4244887
1799: IF nvl(px_txn_dtl_rec.lot_number, fnd_api.g_miss_char ) =
1800: nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char)
1801: AND px_mtl_txn_tbl(l_ind).instance_quantity >= ABS(px_txn_dtl_rec.quantity) -- self bug. Added GT sign
1794: FOR l_ind IN px_mtl_txn_tbl.FIRST .. px_mtl_txn_tbl.LAST
1795: LOOP
1796: IF nvl(px_mtl_txn_tbl(l_ind).lot_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char AND
1797: ( nvl(px_mtl_txn_tbl(l_ind).serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char OR -- Added for bug 4244887
1798: nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char ) <> fnd_api.g_miss_char) THEN -- Added for bug 4244887
1799: IF nvl(px_txn_dtl_rec.lot_number, fnd_api.g_miss_char ) =
1800: nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char)
1801: AND px_mtl_txn_tbl(l_ind).instance_quantity >= ABS(px_txn_dtl_rec.quantity) -- self bug. Added GT sign
1802: THEN
1795: LOOP
1796: IF nvl(px_mtl_txn_tbl(l_ind).lot_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char AND
1797: ( nvl(px_mtl_txn_tbl(l_ind).serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char OR -- Added for bug 4244887
1798: nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char ) <> fnd_api.g_miss_char) THEN -- Added for bug 4244887
1799: IF nvl(px_txn_dtl_rec.lot_number, fnd_api.g_miss_char ) =
1800: nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char)
1801: AND px_mtl_txn_tbl(l_ind).instance_quantity >= ABS(px_txn_dtl_rec.quantity) -- self bug. Added GT sign
1802: THEN
1803: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1796: IF nvl(px_mtl_txn_tbl(l_ind).lot_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char AND
1797: ( nvl(px_mtl_txn_tbl(l_ind).serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char OR -- Added for bug 4244887
1798: nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char ) <> fnd_api.g_miss_char) THEN -- Added for bug 4244887
1799: IF nvl(px_txn_dtl_rec.lot_number, fnd_api.g_miss_char ) =
1800: nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char)
1801: AND px_mtl_txn_tbl(l_ind).instance_quantity >= ABS(px_txn_dtl_rec.quantity) -- self bug. Added GT sign
1802: THEN
1803: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1804: IF nvl(px_txn_dtl_rec.lot_number, fnd_api.g_miss_char ) =
1800: nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char)
1801: AND px_mtl_txn_tbl(l_ind).instance_quantity >= ABS(px_txn_dtl_rec.quantity) -- self bug. Added GT sign
1802: THEN
1803: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1804: IF nvl(px_txn_dtl_rec.lot_number, fnd_api.g_miss_char ) =
1805: nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char )
1806: THEN
1807: x_match_flag := 'Y';
1808: x_match_basis := 'LOT_ATTRIBUTE';
1801: AND px_mtl_txn_tbl(l_ind).instance_quantity >= ABS(px_txn_dtl_rec.quantity) -- self bug. Added GT sign
1802: THEN
1803: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1804: IF nvl(px_txn_dtl_rec.lot_number, fnd_api.g_miss_char ) =
1805: nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char )
1806: THEN
1807: x_match_flag := 'Y';
1808: x_match_basis := 'LOT_ATTRIBUTE';
1809: IF px_mtl_txn_tbl(l_ind).transaction_quantity >= p_match_qty THEN
1817: px_mtl_txn_rec => px_mtl_txn_tbl(l_ind),
1818: p_item_control_rec => p_item_control_rec,
1819: x_return_status => l_return_status);
1820:
1821: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1822: raise fnd_api.g_exc_error;
1823: END IF;
1824: l_mtl_txn_rec := px_mtl_txn_tbl(l_ind);
1825: --end of fix for bug5159276
1818: p_item_control_rec => p_item_control_rec,
1819: x_return_status => l_return_status);
1820:
1821: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1822: raise fnd_api.g_exc_error;
1823: END IF;
1824: l_mtl_txn_rec := px_mtl_txn_tbl(l_ind);
1825: --end of fix for bug5159276
1826: exit;
1837: l_found := 'N';
1838:
1839: FOR l_ind IN px_mtl_txn_tbl.FIRST .. px_mtl_txn_tbl.LAST
1840: LOOP
1841: IF nvl(px_txn_dtl_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
1842: IF nvl(p_item_control_rec.mult_srl_control_flag, fnd_api.g_miss_char) = 'Y' THEN
1843: IF p_item_control_rec.serial_control_code <> 1 THEN
1844: IF nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
1845: debug('Serial control codes are different. Non serial item instances referenced');
1838:
1839: FOR l_ind IN px_mtl_txn_tbl.FIRST .. px_mtl_txn_tbl.LAST
1840: LOOP
1841: IF nvl(px_txn_dtl_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
1842: IF nvl(p_item_control_rec.mult_srl_control_flag, fnd_api.g_miss_char) = 'Y' THEN
1843: IF p_item_control_rec.serial_control_code <> 1 THEN
1844: IF nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
1845: debug('Serial control codes are different. Non serial item instances referenced');
1846: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1840: LOOP
1841: IF nvl(px_txn_dtl_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
1842: IF nvl(p_item_control_rec.mult_srl_control_flag, fnd_api.g_miss_char) = 'Y' THEN
1843: IF p_item_control_rec.serial_control_code <> 1 THEN
1844: IF nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
1845: debug('Serial control codes are different. Non serial item instances referenced');
1846: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1847: i_index := NVL(px_tld_inst_tbl.LAST,0) + 1 ;
1848: IF px_tld_inst_tbl.count > 0 THEN
1866: END IF;
1867: END IF;
1868: ELSE
1869: -- Non serialized
1870: IF nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1871: THEN
1872: debug('Serial control codes are different. Serialized item instances referenced');
1873: debug('Transaction Details count: '||px_tld_inst_tbl.count);
1874: IF px_tld_inst_tbl.count > 0 THEN
1902: END IF;
1903: END IF;
1904: END IF;
1905: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1906: IF nvl(abs(px_txn_dtl_rec.quantity), fnd_api.g_miss_num ) =
1907: nvl(px_mtl_txn_tbl(l_ind).instance_quantity , fnd_api.g_miss_num ) AND
1908: nvl(px_mtl_txn_tbl(l_ind).serial_number,fnd_api.g_miss_char)= fnd_api.g_miss_char THEN -- Added For BUG 4244887
1909:
1910: px_mtl_txn_tbl(l_ind).instance_id := px_txn_dtl_rec.instance_id;
1903: END IF;
1904: END IF;
1905: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1906: IF nvl(abs(px_txn_dtl_rec.quantity), fnd_api.g_miss_num ) =
1907: nvl(px_mtl_txn_tbl(l_ind).instance_quantity , fnd_api.g_miss_num ) AND
1908: nvl(px_mtl_txn_tbl(l_ind).serial_number,fnd_api.g_miss_char)= fnd_api.g_miss_char THEN -- Added For BUG 4244887
1909:
1910: px_mtl_txn_tbl(l_ind).instance_id := px_txn_dtl_rec.instance_id;
1911: px_mtl_txn_tbl(l_ind).txn_line_detail_id := px_txn_dtl_rec.txn_line_detail_id;
1904: END IF;
1905: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
1906: IF nvl(abs(px_txn_dtl_rec.quantity), fnd_api.g_miss_num ) =
1907: nvl(px_mtl_txn_tbl(l_ind).instance_quantity , fnd_api.g_miss_num ) AND
1908: nvl(px_mtl_txn_tbl(l_ind).serial_number,fnd_api.g_miss_char)= fnd_api.g_miss_char THEN -- Added For BUG 4244887
1909:
1910: px_mtl_txn_tbl(l_ind).instance_id := px_txn_dtl_rec.instance_id;
1911: px_mtl_txn_tbl(l_ind).txn_line_detail_id := px_txn_dtl_rec.txn_line_detail_id;
1912: px_mtl_txn_tbl(l_ind).sub_type_id := px_txn_dtl_rec.sub_type_id;
1917: identify_source_instance(
1918: px_mtl_txn_rec => px_mtl_txn_tbl(l_ind),
1919: p_item_control_rec => p_item_control_rec,
1920: x_return_status => l_return_status);
1921: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1922: px_mtl_txn_tbl(l_ind).verified_flag := 'N';
1923: x_match_flag := 'N';
1924: l_mtl_txn_rec := px_mtl_txn_tbl(l_ind);
1925: ELSE
1926: x_match_flag := 'Y';
1927: x_match_basis := 'MTL_ATTRIBUTE';
1928: px_mtl_txn_tbl(l_ind).verified_flag := 'Y';
1929: END IF;
1930: IF px_mtl_txn_tbl(l_ind).instance_id = fnd_api.g_miss_num THEN
1931: px_mtl_txn_tbl(l_ind).instance_id := NULL;
1932: END IF;
1933: ELSIF nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
1934: x_match_flag := 'Y';
1929: END IF;
1930: IF px_mtl_txn_tbl(l_ind).instance_id = fnd_api.g_miss_num THEN
1931: px_mtl_txn_tbl(l_ind).instance_id := NULL;
1932: END IF;
1933: ELSIF nvl(px_txn_dtl_rec.serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
1934: x_match_flag := 'Y';
1935: x_match_basis := 'QTY_ATTRIBUTE';
1936: IF px_mtl_txn_tbl(l_ind).transaction_quantity >= p_match_qty THEN
1937: px_mtl_txn_tbl(l_ind).verified_flag := 'Y';
1960:
1961: /*-- End: Added filer conditions for bug 4006563 --*/
1962:
1963: -- px_txn_dtl_rec.quantity := l_mtl_txn_rec.instance_quantity;
1964: IF l_mtl_txn_rec.instance_id <> fnd_api.g_miss_num THEN
1965: IF p_item_control_rec.serial_control_code = 1 THEN -- non serilized / lot
1966: Begin
1967: Select quantity
1968: into l_inst_qty
1974: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
1975: fnd_message.set_token('API_NAME','match_mtl_txn_for_txn_dtl');
1976: fnd_message.set_token('SQL_ERROR',substr(sqlerrm, 1, 240));
1977: fnd_msg_pub.add;
1978: raise fnd_api.g_exc_error;
1979: End;
1980:
1981: IF p_item_control_rec.lot_control_code = 2 THEN
1982: IF l_inst_qty < l_mtl_txn_rec.instance_quantity THEN -- self bug
2015: debug('Could not match the entered installation details with the material txn info.');
2016: END IF;
2017:
2018: EXCEPTION
2019: WHEN fnd_api.g_exc_error THEN
2020: x_return_status := fnd_api.g_ret_sts_error;
2021: END match_mtl_txn_for_txn_dtl;
2022:
2023:
2016: END IF;
2017:
2018: EXCEPTION
2019: WHEN fnd_api.g_exc_error THEN
2020: x_return_status := fnd_api.g_ret_sts_error;
2021: END match_mtl_txn_for_txn_dtl;
2022:
2023:
2024: PROCEDURE split_mtl_txn_tbl(
2028: x_return_status OUT NOCOPY varchar2)
2029: IS
2030: l_new_quantity number;
2031: l_new_ind binary_integer := 0;
2032: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2033: BEGIN
2034:
2035: api_log('split_mtl_txn_tbl');
2036:
2043: LOOP
2044: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
2045: l_new_quantity := px_mtl_txn_tbl(l_ind).instance_quantity -
2046: abs(px_line_dtl_tbl(l_t_ind).quantity);
2047: IF nvl(px_mtl_txn_tbl(l_ind).instance_id, fnd_api.g_miss_num)
2048: = fnd_api.g_miss_num
2049: AND ( p_item_control_rec.serial_control_code <> 1) THEN
2050:
2051: identify_source_instance(
2044: IF px_mtl_txn_tbl(l_ind).verified_flag <> 'Y' THEN
2045: l_new_quantity := px_mtl_txn_tbl(l_ind).instance_quantity -
2046: abs(px_line_dtl_tbl(l_t_ind).quantity);
2047: IF nvl(px_mtl_txn_tbl(l_ind).instance_id, fnd_api.g_miss_num)
2048: = fnd_api.g_miss_num
2049: AND ( p_item_control_rec.serial_control_code <> 1) THEN
2050:
2051: identify_source_instance(
2052: px_mtl_txn_rec => px_mtl_txn_tbl(l_ind),
2052: px_mtl_txn_rec => px_mtl_txn_tbl(l_ind),
2053: p_item_control_rec => p_item_control_rec,
2054: x_return_status => l_return_status);
2055: END IF;
2056: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2057: raise fnd_api.g_exc_error;
2058: END IF;
2059: -- px_mtl_txn_tbl(l_ind).instance_id := px_line_dtl_tbl(l_t_ind).instance_id;
2060: IF p_item_control_rec.serial_control_code = 1 THEN
2053: p_item_control_rec => p_item_control_rec,
2054: x_return_status => l_return_status);
2055: END IF;
2056: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2057: raise fnd_api.g_exc_error;
2058: END IF;
2059: -- px_mtl_txn_tbl(l_ind).instance_id := px_line_dtl_tbl(l_t_ind).instance_id;
2060: IF p_item_control_rec.serial_control_code = 1 THEN
2061: IF p_item_control_rec.lot_control_code <> 1 THEN
2058: END IF;
2059: -- px_mtl_txn_tbl(l_ind).instance_id := px_line_dtl_tbl(l_t_ind).instance_id;
2060: IF p_item_control_rec.serial_control_code = 1 THEN
2061: IF p_item_control_rec.lot_control_code <> 1 THEN
2062: IF nvl(px_line_dtl_tbl(l_t_ind).lot_number, fnd_api.g_miss_char )
2063: = nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char ) THEN
2064: px_mtl_txn_tbl(l_ind).instance_id := px_line_dtl_tbl(l_t_ind).instance_id;
2065: ELSE
2066: l_return_status := fnd_api.g_ret_sts_error;
2059: -- px_mtl_txn_tbl(l_ind).instance_id := px_line_dtl_tbl(l_t_ind).instance_id;
2060: IF p_item_control_rec.serial_control_code = 1 THEN
2061: IF p_item_control_rec.lot_control_code <> 1 THEN
2062: IF nvl(px_line_dtl_tbl(l_t_ind).lot_number, fnd_api.g_miss_char )
2063: = nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char ) THEN
2064: px_mtl_txn_tbl(l_ind).instance_id := px_line_dtl_tbl(l_t_ind).instance_id;
2065: ELSE
2066: l_return_status := fnd_api.g_ret_sts_error;
2067: debug('Lot number referenced on the transaction line detail is different from the one being received..');
2062: IF nvl(px_line_dtl_tbl(l_t_ind).lot_number, fnd_api.g_miss_char )
2063: = nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char ) THEN
2064: px_mtl_txn_tbl(l_ind).instance_id := px_line_dtl_tbl(l_t_ind).instance_id;
2065: ELSE
2066: l_return_status := fnd_api.g_ret_sts_error;
2067: debug('Lot number referenced on the transaction line detail is different from the one being received..');
2068: fnd_message.set_name('CSI','CSI_TXN_PARAM_IGNORED_WARN');
2069: fnd_message.set_token('PARAM','Lot Number');
2070: fnd_message.set_token('VALUE',px_line_dtl_tbl(l_t_ind).lot_number);
2069: fnd_message.set_token('PARAM','Lot Number');
2070: fnd_message.set_token('VALUE',px_line_dtl_tbl(l_t_ind).lot_number);
2071: fnd_message.set_token('REASON','The Lot number and/or instance referenced on the transaction details is different from the one received. Pl. correct it and reprocess the error');
2072: fnd_msg_pub.add;
2073: raise fnd_api.g_exc_error;
2074: END IF;
2075: ELSE
2076: px_mtl_txn_tbl(l_ind).instance_id := px_line_dtl_tbl(l_t_ind).instance_id;
2077: px_line_dtl_tbl(l_t_ind).processing_status := 'IN_PROCESS';
2094: END IF;
2095: END LOOP;
2096: END IF;
2097: Exception
2098: when fnd_api.g_exc_error then
2099: debug('fnd_api.g_exc_error raised in split_mtl_txn_tbl');
2100: x_return_status := l_return_status;
2101: END split_mtl_txn_tbl;
2102:
2095: END LOOP;
2096: END IF;
2097: Exception
2098: when fnd_api.g_exc_error then
2099: debug('fnd_api.g_exc_error raised in split_mtl_txn_tbl');
2100: x_return_status := l_return_status;
2101: END split_mtl_txn_tbl;
2102:
2103: PROCEDURE sync_txn_dtls_and_mtl_txn(
2127: l_u_eav_tbl csi_t_datastructures_grp.txn_ext_attrib_vals_tbl;
2128:
2129: u_td_ind binary_integer;
2130:
2131: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2132: l_msg_count number;
2133: l_msg_data varchar2(2000);
2134: l_new_ind binary_integer := 0;
2135: l_tld_inst_tbl tld_inst_tbl;
2136: l_txn_sub_type_id number; -- Added for bug 4244887
2137:
2138: BEGIN
2139:
2140: x_return_status := fnd_api.g_ret_sts_success;
2141:
2142: api_log('sync_txn_dtls_and_mtl_txn');
2143:
2144: l_mtl_txn_tbl := px_mtl_txn_tbl;
2163: FOR l_td_ind IN px_line_dtl_tbl.FIRST .. px_line_dtl_tbl.LAST
2164: LOOP
2165: FOR l_ind IN px_mtl_txn_tbl.FIRST .. px_mtl_txn_tbl.LAST
2166: LOOP
2167: IF nvl(px_mtl_txn_tbl(l_ind).lot_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
2168: IF px_mtl_txn_tbl(l_ind).verified_flag = 'N' THEN
2169: IF nvl(px_line_dtl_tbl(l_td_ind).lot_number, fnd_api.g_miss_char )
2170: = nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char ) THEN
2171: IF px_mtl_txn_tbl(l_ind).instance_quantity > abs(px_line_dtl_tbl(l_td_ind).quantity) THEN
2165: FOR l_ind IN px_mtl_txn_tbl.FIRST .. px_mtl_txn_tbl.LAST
2166: LOOP
2167: IF nvl(px_mtl_txn_tbl(l_ind).lot_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
2168: IF px_mtl_txn_tbl(l_ind).verified_flag = 'N' THEN
2169: IF nvl(px_line_dtl_tbl(l_td_ind).lot_number, fnd_api.g_miss_char )
2170: = nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char ) THEN
2171: IF px_mtl_txn_tbl(l_ind).instance_quantity > abs(px_line_dtl_tbl(l_td_ind).quantity) THEN
2172: l_new_ind := px_mtl_txn_tbl.count + 1;
2173: px_mtl_txn_tbl(l_new_ind) := px_mtl_txn_tbl(l_ind);
2166: LOOP
2167: IF nvl(px_mtl_txn_tbl(l_ind).lot_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
2168: IF px_mtl_txn_tbl(l_ind).verified_flag = 'N' THEN
2169: IF nvl(px_line_dtl_tbl(l_td_ind).lot_number, fnd_api.g_miss_char )
2170: = nvl(px_mtl_txn_tbl(l_ind).lot_number , fnd_api.g_miss_char ) THEN
2171: IF px_mtl_txn_tbl(l_ind).instance_quantity > abs(px_line_dtl_tbl(l_td_ind).quantity) THEN
2172: l_new_ind := px_mtl_txn_tbl.count + 1;
2173: px_mtl_txn_tbl(l_new_ind) := px_mtl_txn_tbl(l_ind);
2174: px_mtl_txn_tbl(l_new_ind).instance_quantity :=
2205: x_match_flag => l_match_flag,
2206: x_match_basis => l_match_basis,
2207: x_return_status => l_return_status);
2208:
2209: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2210: debug('Errors while matching txn del with mtl txn.');
2211: RAISE fnd_api.g_exc_error;
2212: END IF;
2213:
2207: x_return_status => l_return_status);
2208:
2209: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2210: debug('Errors while matching txn del with mtl txn.');
2211: RAISE fnd_api.g_exc_error;
2212: END IF;
2213:
2214: END IF;
2215:
2242: IF px_mtl_txn_tbl.COUNT > 0 THEN
2243: FOR m_ind IN px_mtl_txn_tbl.FIRST .. px_mtl_txn_tbl.LAST
2244: LOOP
2245: /*-- Added for bug 4244887 --*/ -- Assigning sub-type to mtl_txn table if sub-type is null
2246: IF nvl(px_mtl_txn_tbl(m_ind).sub_type_id,fnd_api.g_miss_num) = fnd_api.g_miss_num AND
2247: l_txn_sub_type_id IS NOT NULL THEN
2248: px_mtl_txn_tbl(m_ind).sub_type_id := l_txn_sub_type_id;
2249: END IF;
2250: /*-- End: Added for bug 4244887 --*/
2269: l_u_txn_line_rec.transaction_line_id := px_line_dtl_tbl(1).transaction_line_id;
2270:
2271: csi_t_txn_details_grp.update_txn_line_dtls(
2272: p_api_version => 1.0,
2273: p_commit => fnd_api.g_false,
2274: p_init_msg_list => fnd_api.g_true,
2275: p_validation_level => fnd_api.g_valid_level_full,
2276: p_txn_line_rec => l_u_txn_line_rec,
2277: p_txn_line_detail_tbl => l_u_line_dtl_tbl,
2270:
2271: csi_t_txn_details_grp.update_txn_line_dtls(
2272: p_api_version => 1.0,
2273: p_commit => fnd_api.g_false,
2274: p_init_msg_list => fnd_api.g_true,
2275: p_validation_level => fnd_api.g_valid_level_full,
2276: p_txn_line_rec => l_u_txn_line_rec,
2277: p_txn_line_detail_tbl => l_u_line_dtl_tbl,
2278: px_txn_ii_rltns_tbl => l_u_ii_rltns_tbl,
2271: csi_t_txn_details_grp.update_txn_line_dtls(
2272: p_api_version => 1.0,
2273: p_commit => fnd_api.g_false,
2274: p_init_msg_list => fnd_api.g_true,
2275: p_validation_level => fnd_api.g_valid_level_full,
2276: p_txn_line_rec => l_u_txn_line_rec,
2277: p_txn_line_detail_tbl => l_u_line_dtl_tbl,
2278: px_txn_ii_rltns_tbl => l_u_ii_rltns_tbl,
2279: px_txn_party_detail_tbl => l_u_pty_dtl_tbl,
2283: x_return_status => l_return_status,
2284: x_msg_count => l_msg_count,
2285: x_msg_data => l_msg_data);
2286:
2287: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2288: debug('Update txn line dtls failed while matching txn del with mtl txn.');
2289: RAISE fnd_api.g_exc_error;
2290: END IF;
2291:
2285: x_msg_data => l_msg_data);
2286:
2287: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2288: debug('Update txn line dtls failed while matching txn del with mtl txn.');
2289: RAISE fnd_api.g_exc_error;
2290: END IF;
2291:
2292: ELSE
2293:
2303: px_mtl_txn_tbl => px_mtl_txn_tbl,
2304: p_item_control_rec => p_item_control_rec,
2305: x_return_status => l_return_status);
2306:
2307: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2308: raise fnd_api.g_exc_error;
2309: END IF;
2310: -- END IF;
2311:
2304: p_item_control_rec => p_item_control_rec,
2305: x_return_status => l_return_status);
2306:
2307: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2308: raise fnd_api.g_exc_error;
2309: END IF;
2310: -- END IF;
2311:
2312: /*
2325: px_mtl_txn_rec => px_mtl_txn_tbl(l_ind),
2326: p_item_control_rec => p_item_control_rec,
2327: x_return_status => l_return_status);
2328:
2329: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2330: raise fnd_api.g_exc_error;
2331: END IF;
2332:
2333: IF nvl(px_mtl_txn_tbl(l_ind).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
2326: p_item_control_rec => p_item_control_rec,
2327: x_return_status => l_return_status);
2328:
2329: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2330: raise fnd_api.g_exc_error;
2331: END IF;
2332:
2333: IF nvl(px_mtl_txn_tbl(l_ind).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
2334: AND px_line_dtl_tbl(1).instance_id <> px_mtl_txn_tbl(l_ind).instance_id
2329: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2330: raise fnd_api.g_exc_error;
2331: END IF;
2332:
2333: IF nvl(px_mtl_txn_tbl(l_ind).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
2334: AND px_line_dtl_tbl(1).instance_id <> px_mtl_txn_tbl(l_ind).instance_id
2335: THEN
2336: --Added for bug 9446607--
2337: IF p_item_control_rec.serial_control_code = 6 THEN
2346: for bug 4570399*/
2347: px_line_dtl_tbl(1).processing_status:='IN_PROCESS';
2348:
2349: --fix for bug 5898987
2350: /* IF px_mtl_txn_tbl(1).instance_id <> fnd_api.g_miss_num AND p_item_control_rec.serial_control_code <> 6 THEN -- modified for bug 9446607
2351: px_line_dtl_tbl(1).instance_id := px_mtl_txn_tbl(1).instance_id;
2352: ELSE
2353: px_line_dtl_tbl(1).instance_id := NULL;
2354: END IF;*/
2357: --px_line_dtl_tbl(1).serial_number := NULL;
2358: --end of fix for bug 5898987
2359:
2360: --fix for bug 14846647
2361: IF px_line_dtl_tbl(1).instance_id is not null and px_line_dtl_tbl(1).instance_id <> fnd_api.g_miss_num
2362: and px_mtl_txn_tbl(l_ind).instance_id <> fnd_api.g_miss_num AND p_item_control_rec.serial_control_code <> 6 THEN -- modified for bug 9446607
2363: px_line_dtl_tbl(1).instance_id := px_mtl_txn_tbl(l_ind).instance_id;
2364: px_line_dtl_tbl(1).serial_number := px_mtl_txn_tbl(l_ind).serial_number;
2365: ELSE
2358: --end of fix for bug 5898987
2359:
2360: --fix for bug 14846647
2361: IF px_line_dtl_tbl(1).instance_id is not null and px_line_dtl_tbl(1).instance_id <> fnd_api.g_miss_num
2362: and px_mtl_txn_tbl(l_ind).instance_id <> fnd_api.g_miss_num AND p_item_control_rec.serial_control_code <> 6 THEN -- modified for bug 9446607
2363: px_line_dtl_tbl(1).instance_id := px_mtl_txn_tbl(l_ind).instance_id;
2364: px_line_dtl_tbl(1).serial_number := px_mtl_txn_tbl(l_ind).serial_number;
2365: ELSE
2366: px_line_dtl_tbl(1).instance_id := NULL;
2386: px_mtl_txn_rec => px_mtl_txn_tbl(1),
2387: p_item_control_rec => p_item_control_rec,
2388: x_return_status => l_return_status);
2389:
2390: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2391: raise fnd_api.g_exc_error;
2392: END IF;
2393: IF nvl(px_mtl_txn_tbl(1).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
2394: AND px_line_dtl_tbl(1).instance_id <> px_mtl_txn_tbl(1).instance_id
2387: p_item_control_rec => p_item_control_rec,
2388: x_return_status => l_return_status);
2389:
2390: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2391: raise fnd_api.g_exc_error;
2392: END IF;
2393: IF nvl(px_mtl_txn_tbl(1).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
2394: AND px_line_dtl_tbl(1).instance_id <> px_mtl_txn_tbl(1).instance_id
2395: THEN
2389:
2390: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2391: raise fnd_api.g_exc_error;
2392: END IF;
2393: IF nvl(px_mtl_txn_tbl(1).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
2394: AND px_line_dtl_tbl(1).instance_id <> px_mtl_txn_tbl(1).instance_id
2395: THEN
2396: px_line_dtl_tbl(1).instance_id := px_mtl_txn_tbl(1).instance_id;
2397:
2400: selects only the transaction sub type and source instance reference is not required
2401: for bug 4570399*/
2402: px_line_dtl_tbl(1).processing_status:='IN_PROCESS';
2403: --fix for bug 14545975
2404: IF px_mtl_txn_tbl(1).instance_id <> fnd_api.g_miss_num THEN
2405: px_line_dtl_tbl(1).instance_id := px_mtl_txn_tbl(1).instance_id;
2406: ELSE
2407: px_line_dtl_tbl(1).instance_id := NULL;
2408: END IF;
2418: ELSIF p_item_control_rec.serial_control_code = 1 THEN -- qty mismatch + txn dtl qty also mismatch with the total mmt qty!!!
2419: debug('The combination of Transaction Details entered could not be matched with the multiple material transaction records.');
2420: /* serialized items should be processed no matter what txn details
2421: are entered. hence handled separately at the end */
2422: l_return_status := fnd_api.g_ret_sts_error;
2423: RAISE fnd_api.g_exc_error;
2424: END IF;
2425: END IF;
2426: ELSE -- qty mismatch with txn dtl qty - Error!!
2419: debug('The combination of Transaction Details entered could not be matched with the multiple material transaction records.');
2420: /* serialized items should be processed no matter what txn details
2421: are entered. hence handled separately at the end */
2422: l_return_status := fnd_api.g_ret_sts_error;
2423: RAISE fnd_api.g_exc_error;
2424: END IF;
2425: END IF;
2426: ELSE -- qty mismatch with txn dtl qty - Error!!
2427: debug('Transaction Details quantity does not be match with the material transaction');
2433: FOR m IN px_mtl_txn_tbl.FIRST .. px_mtl_txn_tbl.LAST
2434: LOOP
2435: IF ( px_mtl_txn_tbl(m).verified_flag <> 'S' and
2436: px_line_dtl_tbl(t).instance_id is not null) THEN
2437: IF nvl(px_line_dtl_tbl(t).lot_number, fnd_api.g_miss_char )
2438: = nvl(px_mtl_txn_tbl(m).lot_number , fnd_api.g_miss_char ) THEN
2439: px_line_dtl_tbl(t).quantity := -1*(px_mtl_txn_tbl(m).lot_primary_quantity);
2440: px_mtl_txn_tbl(m).verified_flag := 'S';
2441: px_mtl_txn_tbl(m).instance_quantity := abs(px_line_dtl_tbl(t).quantity);
2434: LOOP
2435: IF ( px_mtl_txn_tbl(m).verified_flag <> 'S' and
2436: px_line_dtl_tbl(t).instance_id is not null) THEN
2437: IF nvl(px_line_dtl_tbl(t).lot_number, fnd_api.g_miss_char )
2438: = nvl(px_mtl_txn_tbl(m).lot_number , fnd_api.g_miss_char ) THEN
2439: px_line_dtl_tbl(t).quantity := -1*(px_mtl_txn_tbl(m).lot_primary_quantity);
2440: px_mtl_txn_tbl(m).verified_flag := 'S';
2441: px_mtl_txn_tbl(m).instance_quantity := abs(px_line_dtl_tbl(t).quantity);
2442: px_mtl_txn_tbl(m).instance_id := px_line_dtl_tbl(t).instance_id;
2450: END LOOP;
2451: END LOOP; -- match_flag = 'Y'
2452: END IF;
2453: IF l_match_flag <> 'Y' THEN
2454: l_return_status := fnd_api.g_ret_sts_error;
2455: RAISE fnd_api.g_exc_error;
2456: END IF;
2457: ELSIF p_item_control_rec.serial_control_code = 1 THEN
2458: /* serialized items should be processed no matter what txn details
2451: END LOOP; -- match_flag = 'Y'
2452: END IF;
2453: IF l_match_flag <> 'Y' THEN
2454: l_return_status := fnd_api.g_ret_sts_error;
2455: RAISE fnd_api.g_exc_error;
2456: END IF;
2457: ELSIF p_item_control_rec.serial_control_code = 1 THEN
2458: /* serialized items should be processed no matter what txn details
2459: are entered. hence handled separately - build_process..*/
2457: ELSIF p_item_control_rec.serial_control_code = 1 THEN
2458: /* serialized items should be processed no matter what txn details
2459: are entered. hence handled separately - build_process..*/
2460: /*ported for bug 3686818-Check For Partial receipt on Non-Serialized Item */
2461: IF nvl(p_item_control_rec.mult_srl_control_flag,fnd_api.g_miss_char) = 'Y' THEN
2462: IF x_tld_inst_tbl.count > 0 THEN
2463: null;-- process these in the next routine
2464: END IF;
2465: ELSIF px_mtl_txn_tbl.COUNT = 1 AND px_line_dtl_tbl.COUNT = 1 THEN
2463: null;-- process these in the next routine
2464: END IF;
2465: ELSIF px_mtl_txn_tbl.COUNT = 1 AND px_line_dtl_tbl.COUNT = 1 THEN
2466: IF ( px_line_dtl_tbl(1).instance_id IS NOT NULL
2467: AND nvl(px_line_dtl_tbl(1).serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char) THEN
2468: px_line_dtl_tbl(1).quantity := -1*(px_mtl_txn_tbl(1).instance_quantity);
2469: px_mtl_txn_tbl(1).verified_flag := 'S';
2470: px_mtl_txn_tbl(1).instance_quantity := abs(px_line_dtl_tbl(1).quantity);
2471: px_mtl_txn_tbl(1).instance_id := px_line_dtl_tbl(1).instance_id;
2474: l_match_flag := 'Y';
2475: debug('match basis: '||'NS_ATTRIBUTE');
2476: END IF;
2477: ELSE -- modified for bug 3644297. non serial qty matches need to error out...
2478: l_return_status := fnd_api.g_ret_sts_error;
2479: RAISE fnd_api.g_exc_error;
2480: END IF;
2481:
2482: --Fix for bug 4125459:To take sub transaction type from txn details in the case of partial receipt
2475: debug('match basis: '||'NS_ATTRIBUTE');
2476: END IF;
2477: ELSE -- modified for bug 3644297. non serial qty matches need to error out...
2478: l_return_status := fnd_api.g_ret_sts_error;
2479: RAISE fnd_api.g_exc_error;
2480: END IF;
2481:
2482: --Fix for bug 4125459:To take sub transaction type from txn details in the case of partial receipt
2483: ELSIF p_item_control_rec.serial_control_code <> 1 THEN
2492: l_u_txn_line_rec.transaction_line_id := px_line_dtl_tbl(1).transaction_line_id;
2493:
2494: csi_t_txn_details_grp.update_txn_line_dtls(
2495: p_api_version => 1.0,
2496: p_commit => fnd_api.g_false,
2497: p_init_msg_list => fnd_api.g_true,
2498: p_validation_level => fnd_api.g_valid_level_full,
2499: p_txn_line_rec => l_u_txn_line_rec,
2500: p_txn_line_detail_tbl => px_line_dtl_tbl,
2493:
2494: csi_t_txn_details_grp.update_txn_line_dtls(
2495: p_api_version => 1.0,
2496: p_commit => fnd_api.g_false,
2497: p_init_msg_list => fnd_api.g_true,
2498: p_validation_level => fnd_api.g_valid_level_full,
2499: p_txn_line_rec => l_u_txn_line_rec,
2500: p_txn_line_detail_tbl => px_line_dtl_tbl,
2501: px_txn_ii_rltns_tbl => l_u_ii_rltns_tbl,
2494: csi_t_txn_details_grp.update_txn_line_dtls(
2495: p_api_version => 1.0,
2496: p_commit => fnd_api.g_false,
2497: p_init_msg_list => fnd_api.g_true,
2498: p_validation_level => fnd_api.g_valid_level_full,
2499: p_txn_line_rec => l_u_txn_line_rec,
2500: p_txn_line_detail_tbl => px_line_dtl_tbl,
2501: px_txn_ii_rltns_tbl => l_u_ii_rltns_tbl,
2502: px_txn_party_detail_tbl => l_u_pty_dtl_tbl,
2506: x_return_status => l_return_status,
2507: x_msg_count => l_msg_count,
2508: x_msg_data => l_msg_data);
2509:
2510: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2511: debug('Update txn line dtls failed while matching txn del with mtl txn.');
2512: RAISE fnd_api.g_exc_error;
2513: END IF;
2514:
2508: x_msg_data => l_msg_data);
2509:
2510: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2511: debug('Update txn line dtls failed while matching txn del with mtl txn.');
2512: RAISE fnd_api.g_exc_error;
2513: END IF;
2514:
2515: END IF;
2516: END IF;
2514:
2515: END IF;
2516: END IF;
2517: Exception
2518: when fnd_api.g_exc_error then
2519: debug('fnd_api.g_exc_error raised in sync_txn_dtls_and_mtl_txn');
2520: x_return_status := l_return_status;
2521: when others then
2522: debug('when others raised in sync_txn_dtls_and_mtl_txn');
2515: END IF;
2516: END IF;
2517: Exception
2518: when fnd_api.g_exc_error then
2519: debug('fnd_api.g_exc_error raised in sync_txn_dtls_and_mtl_txn');
2520: x_return_status := l_return_status;
2521: when others then
2522: debug('when others raised in sync_txn_dtls_and_mtl_txn');
2523: x_return_status := fnd_api.g_ret_sts_unexp_error;
2519: debug('fnd_api.g_exc_error raised in sync_txn_dtls_and_mtl_txn');
2520: x_return_status := l_return_status;
2521: when others then
2522: debug('when others raised in sync_txn_dtls_and_mtl_txn');
2523: x_return_status := fnd_api.g_ret_sts_unexp_error;
2524: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
2525: fnd_message.set_token('API_NAME','sync_txn_dtls_and_mtl_txn');
2526: fnd_message.set_token('SQL_ERROR',substr(sqlerrm, 1, 240));
2527: fnd_msg_pub.add;
2534: px_trx_error_rec IN OUT NOCOPY csi_datastructures_pub.transaction_error_rec)
2535: IS
2536:
2537: l_api_name varchar2(30) := 'rma_receipt';
2538: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2539: l_msg_count number;
2540: l_msg_data varchar2(2000);
2541:
2542: l_rma_order_rec mtl_trx_type;
2617:
2618: -- process_transaction variables
2619:
2620: l_api_version NUMBER := 1.0;
2621: l_commit VARCHAR2(1) := fnd_api.g_false;
2622: l_init_msg_list VARCHAR2(1) := fnd_api.g_false;
2623: l_validation_level NUMBER := fnd_api.g_valid_level_full;
2624: l_validate_only_flag VARCHAR2(1) := fnd_api.g_false;
2625: l_in_out_flag VARCHAR2(30) := 'IN';
2618: -- process_transaction variables
2619:
2620: l_api_version NUMBER := 1.0;
2621: l_commit VARCHAR2(1) := fnd_api.g_false;
2622: l_init_msg_list VARCHAR2(1) := fnd_api.g_false;
2623: l_validation_level NUMBER := fnd_api.g_valid_level_full;
2624: l_validate_only_flag VARCHAR2(1) := fnd_api.g_false;
2625: l_in_out_flag VARCHAR2(30) := 'IN';
2626:
2619:
2620: l_api_version NUMBER := 1.0;
2621: l_commit VARCHAR2(1) := fnd_api.g_false;
2622: l_init_msg_list VARCHAR2(1) := fnd_api.g_false;
2623: l_validation_level NUMBER := fnd_api.g_valid_level_full;
2624: l_validate_only_flag VARCHAR2(1) := fnd_api.g_false;
2625: l_in_out_flag VARCHAR2(30) := 'IN';
2626:
2627: l_txn_rec csi_datastructures_pub.transaction_rec;
2620: l_api_version NUMBER := 1.0;
2621: l_commit VARCHAR2(1) := fnd_api.g_false;
2622: l_init_msg_list VARCHAR2(1) := fnd_api.g_false;
2623: l_validation_level NUMBER := fnd_api.g_valid_level_full;
2624: l_validate_only_flag VARCHAR2(1) := fnd_api.g_false;
2625: l_in_out_flag VARCHAR2(30) := 'IN';
2626:
2627: l_txn_rec csi_datastructures_pub.transaction_rec;
2628: l_instances_tbl csi_process_txn_grp.txn_instances_tbl;
2685: savepoint rma_receipt;
2686:
2687: fnd_msg_pub.initialize;
2688:
2689: x_return_status := fnd_api.g_ret_sts_success;
2690:
2691: csi_t_gen_utility_pvt.build_file_name(
2692: p_file_segment1 => 'csirmarc',
2693: p_file_segment2 => p_mtl_txn_id);
2732: x_item_control_rec => l_item_control_rec,
2733: x_src_order_rec => l_src_order_rec,
2734: x_return_status => l_return_status);
2735:
2736: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2737: debug('get_mtl_txn_recs Failed.');
2738: RAISE fnd_api.g_exc_error;
2739: END IF;
2740:
2734: x_return_status => l_return_status);
2735:
2736: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2737: debug('get_mtl_txn_recs Failed.');
2738: RAISE fnd_api.g_exc_error;
2739: END IF;
2740:
2741: /* start of ER 2646086 + RMA for Repair with different party */
2742: /* Get the value for the source of truth flag */
2770: l_txn_line_detail_query_rec.source_transaction_flag := 'Y';
2771:
2772: csi_t_txn_details_grp.get_transaction_details(
2773: p_api_version => 1.0,
2774: p_commit => fnd_api.g_false,
2775: p_init_msg_list => fnd_api.g_true,
2776: p_validation_level => fnd_api.g_valid_level_full,
2777: p_txn_line_query_rec => l_txn_line_query_rec,
2778: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
2771:
2772: csi_t_txn_details_grp.get_transaction_details(
2773: p_api_version => 1.0,
2774: p_commit => fnd_api.g_false,
2775: p_init_msg_list => fnd_api.g_true,
2776: p_validation_level => fnd_api.g_valid_level_full,
2777: p_txn_line_query_rec => l_txn_line_query_rec,
2778: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
2779: x_txn_line_detail_tbl => l_line_dtl_tbl,
2772: csi_t_txn_details_grp.get_transaction_details(
2773: p_api_version => 1.0,
2774: p_commit => fnd_api.g_false,
2775: p_init_msg_list => fnd_api.g_true,
2776: p_validation_level => fnd_api.g_valid_level_full,
2777: p_txn_line_query_rec => l_txn_line_query_rec,
2778: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
2779: x_txn_line_detail_tbl => l_line_dtl_tbl,
2780: p_get_parties_flag => fnd_api.g_false,
2776: p_validation_level => fnd_api.g_valid_level_full,
2777: p_txn_line_query_rec => l_txn_line_query_rec,
2778: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
2779: x_txn_line_detail_tbl => l_line_dtl_tbl,
2780: p_get_parties_flag => fnd_api.g_false,
2781: x_txn_party_detail_tbl => l_pty_dtl_tbl,
2782: p_get_pty_accts_flag => fnd_api.g_false,
2783: x_txn_pty_acct_detail_tbl => l_pty_acct_tbl,
2784: p_get_ii_rltns_flag => fnd_api.g_false,
2778: p_txn_line_detail_query_rec => l_txn_line_detail_query_rec,
2779: x_txn_line_detail_tbl => l_line_dtl_tbl,
2780: p_get_parties_flag => fnd_api.g_false,
2781: x_txn_party_detail_tbl => l_pty_dtl_tbl,
2782: p_get_pty_accts_flag => fnd_api.g_false,
2783: x_txn_pty_acct_detail_tbl => l_pty_acct_tbl,
2784: p_get_ii_rltns_flag => fnd_api.g_false,
2785: x_txn_ii_rltns_tbl => l_ii_rltns_tbl,
2786: p_get_org_assgns_flag => fnd_api.g_false,
2780: p_get_parties_flag => fnd_api.g_false,
2781: x_txn_party_detail_tbl => l_pty_dtl_tbl,
2782: p_get_pty_accts_flag => fnd_api.g_false,
2783: x_txn_pty_acct_detail_tbl => l_pty_acct_tbl,
2784: p_get_ii_rltns_flag => fnd_api.g_false,
2785: x_txn_ii_rltns_tbl => l_ii_rltns_tbl,
2786: p_get_org_assgns_flag => fnd_api.g_false,
2787: x_txn_org_assgn_tbl => l_org_assgn_tbl,
2788: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2782: p_get_pty_accts_flag => fnd_api.g_false,
2783: x_txn_pty_acct_detail_tbl => l_pty_acct_tbl,
2784: p_get_ii_rltns_flag => fnd_api.g_false,
2785: x_txn_ii_rltns_tbl => l_ii_rltns_tbl,
2786: p_get_org_assgns_flag => fnd_api.g_false,
2787: x_txn_org_assgn_tbl => l_org_assgn_tbl,
2788: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2789: x_txn_ext_attrib_vals_tbl => l_txn_eav_tbl,
2790: p_get_csi_attribs_flag => fnd_api.g_false,
2784: p_get_ii_rltns_flag => fnd_api.g_false,
2785: x_txn_ii_rltns_tbl => l_ii_rltns_tbl,
2786: p_get_org_assgns_flag => fnd_api.g_false,
2787: x_txn_org_assgn_tbl => l_org_assgn_tbl,
2788: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2789: x_txn_ext_attrib_vals_tbl => l_txn_eav_tbl,
2790: p_get_csi_attribs_flag => fnd_api.g_false,
2791: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
2792: p_get_csi_iea_values_flag => fnd_api.g_false,
2786: p_get_org_assgns_flag => fnd_api.g_false,
2787: x_txn_org_assgn_tbl => l_org_assgn_tbl,
2788: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2789: x_txn_ext_attrib_vals_tbl => l_txn_eav_tbl,
2790: p_get_csi_attribs_flag => fnd_api.g_false,
2791: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
2792: p_get_csi_iea_values_flag => fnd_api.g_false,
2793: x_csi_iea_values_tbl => l_csi_eav_tbl,
2794: p_get_txn_systems_flag => fnd_api.g_false,
2788: p_get_ext_attrib_vals_flag => fnd_api.g_false,
2789: x_txn_ext_attrib_vals_tbl => l_txn_eav_tbl,
2790: p_get_csi_attribs_flag => fnd_api.g_false,
2791: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
2792: p_get_csi_iea_values_flag => fnd_api.g_false,
2793: x_csi_iea_values_tbl => l_csi_eav_tbl,
2794: p_get_txn_systems_flag => fnd_api.g_false,
2795: x_txn_systems_tbl => l_txn_systems_tbl,
2796: x_return_status => l_return_status,
2790: p_get_csi_attribs_flag => fnd_api.g_false,
2791: x_csi_ext_attribs_tbl => l_csi_ea_tbl,
2792: p_get_csi_iea_values_flag => fnd_api.g_false,
2793: x_csi_iea_values_tbl => l_csi_eav_tbl,
2794: p_get_txn_systems_flag => fnd_api.g_false,
2795: x_txn_systems_tbl => l_txn_systems_tbl,
2796: x_return_status => l_return_status,
2797: x_msg_count => l_msg_count,
2798: x_msg_data => l_msg_data);
2796: x_return_status => l_return_status,
2797: x_msg_count => l_msg_count,
2798: x_msg_data => l_msg_data);
2799:
2800: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2801: debug('Error getting transaction details for RMA Receipt to IB Interface.');
2802: raise fnd_api.g_exc_error;
2803: END IF;
2804:
2798: x_msg_data => l_msg_data);
2799:
2800: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2801: debug('Error getting transaction details for RMA Receipt to IB Interface.');
2802: raise fnd_api.g_exc_error;
2803: END IF;
2804:
2805: /* check if instance reference is specified */
2806:
2812: /* bug 2291543. added the serial code check here to allow the serial
2813: installation details without instance reference
2814: */
2815: IF l_item_control_rec.serial_control_code = 1 THEN
2816: IF nvl(l_line_dtl_tbl(l_ind).instance_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
2817: debug('No instance reference in Txn Details for non serial item.');
2818: fnd_message.set_name('CSI', 'CSI_INST_REF_NOT_ENTERED');
2819: fnd_msg_pub.add;
2820: RAISE fnd_api.g_exc_error;
2816: IF nvl(l_line_dtl_tbl(l_ind).instance_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
2817: debug('No instance reference in Txn Details for non serial item.');
2818: fnd_message.set_name('CSI', 'CSI_INST_REF_NOT_ENTERED');
2819: fnd_msg_pub.add;
2820: RAISE fnd_api.g_exc_error;
2821: END IF;
2822: END IF;
2823:
2824: END LOOP;
2831: x_tld_inst_tbl => l_tld_inst_tbl,
2832: p_item_control_rec => l_item_control_rec,
2833: x_return_status => l_return_status);
2834:
2835: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2836: fnd_message.set_name('CSI','CSI_TXN_PARAM_IGNORED_WARN');
2837: fnd_message.set_token('PARAM','Item attributes');
2838: fnd_message.set_token('VALUE','Lot / Serial');
2839: fnd_message.set_token('REASON','The transaction details entered do not match the inventory material transaction for one or more of the attributes. Pl. correct it and reprocess the error');
2837: fnd_message.set_token('PARAM','Item attributes');
2838: fnd_message.set_token('VALUE','Lot / Serial');
2839: fnd_message.set_token('REASON','The transaction details entered do not match the inventory material transaction for one or more of the attributes. Pl. correct it and reprocess the error');
2840: fnd_msg_pub.add;
2841: RAISE fnd_api.g_exc_error;
2842: END IF;
2843:
2844: build_process_tables_TD(
2845: p_mtl_txn_tbl => l_src_mtl_txn_tbl,
2856: x_ii_relationships_tbl => l_ii_relationships_tbl,
2857: x_dest_location_rec => l_dest_location_rec,
2858: x_return_status => l_return_status);
2859:
2860: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2861: RAISE fnd_api.g_exc_error;
2862: END IF;
2863:
2864: IF l_tld_inst_tbl.count > 0 THEN
2857: x_dest_location_rec => l_dest_location_rec,
2858: x_return_status => l_return_status);
2859:
2860: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2861: RAISE fnd_api.g_exc_error;
2862: END IF;
2863:
2864: IF l_tld_inst_tbl.count > 0 THEN
2865: debug('Instance updates to be processed for Multiple serial control codes.. '||l_tld_inst_tbl.count);
2886: END IF;
2887: For i in 1 .. l_i_ind Loop
2888: -- this is done to ensure that the number of srl item instances updated are limited
2889: --to only the total transacted quantity for nsrl items
2890: IF nvl(l_tld_inst_tbl(i).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
2891: AND nvl(l_tld_inst_tbl(i).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char
2892: THEN
2893: l_inst_pa_rec.instance_id := l_tld_inst_tbl(i).instance_id;
2894: get_instance_pa_dtls(
2887: For i in 1 .. l_i_ind Loop
2888: -- this is done to ensure that the number of srl item instances updated are limited
2889: --to only the total transacted quantity for nsrl items
2890: IF nvl(l_tld_inst_tbl(i).instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
2891: AND nvl(l_tld_inst_tbl(i).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char
2892: THEN
2893: l_inst_pa_rec.instance_id := l_tld_inst_tbl(i).instance_id;
2894: get_instance_pa_dtls(
2895: p_transaction_type_id => l_txn_rec.transaction_type_id,
2897: px_inst_pa_rec => l_inst_pa_rec,
2898: x_sub_type_rec => l_sub_type_rec,
2899: x_return_status => l_return_status);
2900:
2901: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2902: RAISE fnd_api.g_exc_error;
2903: END IF;
2904: Begin
2905: SELECT object_version_number, active_end_date
2898: x_sub_type_rec => l_sub_type_rec,
2899: x_return_status => l_return_status);
2900:
2901: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2902: RAISE fnd_api.g_exc_error;
2903: END IF;
2904: Begin
2905: SELECT object_version_number, active_end_date
2906: INTO l_obj_ver_num, l_end_date
2944: IF l_pi_ind > 0 THEN
2945: l_count := 0;
2946: For k in l_instances_tbl.first .. l_instances_tbl.last Loop
2947: --Only loop through till for the actual qty received...
2948: IF nvl(l_instances_tbl(k).instance_id,fnd_api.g_miss_num)
2949: = nvl(l_tld_inst_tbl(i).instance_id,fnd_api.g_miss_num) THEN
2950: l_instances_tbl(k).instance_id := fnd_api.g_miss_num;
2951: l_instances_tbl(k).serial_number := fnd_api.g_miss_char;
2952: l_count := l_count + 1;
2945: l_count := 0;
2946: For k in l_instances_tbl.first .. l_instances_tbl.last Loop
2947: --Only loop through till for the actual qty received...
2948: IF nvl(l_instances_tbl(k).instance_id,fnd_api.g_miss_num)
2949: = nvl(l_tld_inst_tbl(i).instance_id,fnd_api.g_miss_num) THEN
2950: l_instances_tbl(k).instance_id := fnd_api.g_miss_num;
2951: l_instances_tbl(k).serial_number := fnd_api.g_miss_char;
2952: l_count := l_count + 1;
2953: IF l_count >= l_pi_ind THEN
2946: For k in l_instances_tbl.first .. l_instances_tbl.last Loop
2947: --Only loop through till for the actual qty received...
2948: IF nvl(l_instances_tbl(k).instance_id,fnd_api.g_miss_num)
2949: = nvl(l_tld_inst_tbl(i).instance_id,fnd_api.g_miss_num) THEN
2950: l_instances_tbl(k).instance_id := fnd_api.g_miss_num;
2951: l_instances_tbl(k).serial_number := fnd_api.g_miss_char;
2952: l_count := l_count + 1;
2953: IF l_count >= l_pi_ind THEN
2954: exit;
2947: --Only loop through till for the actual qty received...
2948: IF nvl(l_instances_tbl(k).instance_id,fnd_api.g_miss_num)
2949: = nvl(l_tld_inst_tbl(i).instance_id,fnd_api.g_miss_num) THEN
2950: l_instances_tbl(k).instance_id := fnd_api.g_miss_num;
2951: l_instances_tbl(k).serial_number := fnd_api.g_miss_char;
2952: l_count := l_count + 1;
2953: IF l_count >= l_pi_ind THEN
2954: exit;
2955: END IF;
2962: ELSIF l_item_control_rec.serial_control_code <> 1 THEN
2963: u_ind := 0 ;
2964: l_nsrl_qty := 0;
2965: For j in 1 .. l_instances_tbl.count Loop
2966: IF nvl(l_instances_tbl(j).instance_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
2967: l_nsrl_qty := l_nsrl_qty + 1;
2968: END IF;
2969: End Loop;
2970: l_rem_qty := l_nsrl_qty;
2969: End Loop;
2970: l_rem_qty := l_nsrl_qty;
2971:
2972: For l in 1 .. l_instances_tbl.count Loop
2973: IF nvl(l_instances_tbl(l).instance_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
2974: For m in l_tld_inst_tbl.first .. l_tld_inst_tbl.last Loop
2975: IF nvl(l_tld_inst_tbl(m).processed_flag, 'N') = 'N' THEN
2976: u_ind := u_ind + 1;
2977: IF abs(l_tld_inst_tbl(m).quantity) >= l_rem_qty THEN
3010: p_csi_instance_rec => l_split_nsrc_inst_rec);
3011:
3012: csi_item_instance_pvt.split_item_instance (
3013: p_api_version => 1.0,
3014: p_commit => fnd_api.g_false,
3015: p_init_msg_list => fnd_api.g_true,
3016: p_validation_level => fnd_api.g_valid_level_full,
3017: p_source_instance_rec => l_split_nsrc_inst_rec,
3018: p_quantity1 => l_quantity1 - l_quantity2 ,
3011:
3012: csi_item_instance_pvt.split_item_instance (
3013: p_api_version => 1.0,
3014: p_commit => fnd_api.g_false,
3015: p_init_msg_list => fnd_api.g_true,
3016: p_validation_level => fnd_api.g_valid_level_full,
3017: p_source_instance_rec => l_split_nsrc_inst_rec,
3018: p_quantity1 => l_quantity1 - l_quantity2 ,
3019: p_quantity2 => l_quantity2,
3012: csi_item_instance_pvt.split_item_instance (
3013: p_api_version => 1.0,
3014: p_commit => fnd_api.g_false,
3015: p_init_msg_list => fnd_api.g_true,
3016: p_validation_level => fnd_api.g_valid_level_full,
3017: p_source_instance_rec => l_split_nsrc_inst_rec,
3018: p_quantity1 => l_quantity1 - l_quantity2 ,
3019: p_quantity2 => l_quantity2,
3020: p_copy_ext_attribs => fnd_api.g_true,
3016: p_validation_level => fnd_api.g_valid_level_full,
3017: p_source_instance_rec => l_split_nsrc_inst_rec,
3018: p_quantity1 => l_quantity1 - l_quantity2 ,
3019: p_quantity2 => l_quantity2,
3020: p_copy_ext_attribs => fnd_api.g_true,
3021: p_copy_org_assignments => fnd_api.g_true,
3022: p_copy_parties => fnd_api.g_true,
3023: p_copy_accounts => fnd_api.g_true,
3024: p_copy_asset_assignments => fnd_api.g_true,
3017: p_source_instance_rec => l_split_nsrc_inst_rec,
3018: p_quantity1 => l_quantity1 - l_quantity2 ,
3019: p_quantity2 => l_quantity2,
3020: p_copy_ext_attribs => fnd_api.g_true,
3021: p_copy_org_assignments => fnd_api.g_true,
3022: p_copy_parties => fnd_api.g_true,
3023: p_copy_accounts => fnd_api.g_true,
3024: p_copy_asset_assignments => fnd_api.g_true,
3025: p_copy_pricing_attribs => fnd_api.g_true,
3018: p_quantity1 => l_quantity1 - l_quantity2 ,
3019: p_quantity2 => l_quantity2,
3020: p_copy_ext_attribs => fnd_api.g_true,
3021: p_copy_org_assignments => fnd_api.g_true,
3022: p_copy_parties => fnd_api.g_true,
3023: p_copy_accounts => fnd_api.g_true,
3024: p_copy_asset_assignments => fnd_api.g_true,
3025: p_copy_pricing_attribs => fnd_api.g_true,
3026: p_txn_rec => l_txn_rec,
3019: p_quantity2 => l_quantity2,
3020: p_copy_ext_attribs => fnd_api.g_true,
3021: p_copy_org_assignments => fnd_api.g_true,
3022: p_copy_parties => fnd_api.g_true,
3023: p_copy_accounts => fnd_api.g_true,
3024: p_copy_asset_assignments => fnd_api.g_true,
3025: p_copy_pricing_attribs => fnd_api.g_true,
3026: p_txn_rec => l_txn_rec,
3027: x_new_instance_rec => l_new_nsrc_inst_rec,
3020: p_copy_ext_attribs => fnd_api.g_true,
3021: p_copy_org_assignments => fnd_api.g_true,
3022: p_copy_parties => fnd_api.g_true,
3023: p_copy_accounts => fnd_api.g_true,
3024: p_copy_asset_assignments => fnd_api.g_true,
3025: p_copy_pricing_attribs => fnd_api.g_true,
3026: p_txn_rec => l_txn_rec,
3027: x_new_instance_rec => l_new_nsrc_inst_rec,
3028: x_return_status => l_return_status,
3021: p_copy_org_assignments => fnd_api.g_true,
3022: p_copy_parties => fnd_api.g_true,
3023: p_copy_accounts => fnd_api.g_true,
3024: p_copy_asset_assignments => fnd_api.g_true,
3025: p_copy_pricing_attribs => fnd_api.g_true,
3026: p_txn_rec => l_txn_rec,
3027: x_new_instance_rec => l_new_nsrc_inst_rec,
3028: x_return_status => l_return_status,
3029: x_msg_count => l_msg_count,
3028: x_return_status => l_return_status,
3029: x_msg_count => l_msg_count,
3030: x_msg_data => l_msg_data);
3031:
3032: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3033: debug('csi_item_instance_pvt.split_item_instance raised errors');
3034: raise fnd_api.g_exc_error;
3035: END IF;
3036:
3030: x_msg_data => l_msg_data);
3031:
3032: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3033: debug('csi_item_instance_pvt.split_item_instance raised errors');
3034: raise fnd_api.g_exc_error;
3035: END IF;
3036:
3037: debug('New Instance ID: '||l_new_nsrc_inst_rec.instance_id
3038: ||' New Instance Qty.: '||l_new_nsrc_inst_rec.quantity);
3087: p_csi_instance_rec => l_u_instance_rec);
3088:
3089: csi_item_instance_pub.update_item_instance(
3090: p_api_version => 1.0,
3091: p_commit => fnd_api.g_false,
3092: p_init_msg_list => fnd_api.g_true,
3093: p_validation_level => fnd_api.g_valid_level_full,
3094: p_instance_rec => l_u_instance_rec,
3095: p_ext_attrib_values_tbl => l_u_ext_attrib_val_tbl,
3088:
3089: csi_item_instance_pub.update_item_instance(
3090: p_api_version => 1.0,
3091: p_commit => fnd_api.g_false,
3092: p_init_msg_list => fnd_api.g_true,
3093: p_validation_level => fnd_api.g_valid_level_full,
3094: p_instance_rec => l_u_instance_rec,
3095: p_ext_attrib_values_tbl => l_u_ext_attrib_val_tbl,
3096: p_party_tbl => l_u_party_tbl,
3089: csi_item_instance_pub.update_item_instance(
3090: p_api_version => 1.0,
3091: p_commit => fnd_api.g_false,
3092: p_init_msg_list => fnd_api.g_true,
3093: p_validation_level => fnd_api.g_valid_level_full,
3094: p_instance_rec => l_u_instance_rec,
3095: p_ext_attrib_values_tbl => l_u_ext_attrib_val_tbl,
3096: p_party_tbl => l_u_party_tbl,
3097: p_account_tbl => l_u_party_acct_tbl,
3103: x_return_status => l_return_status,
3104: x_msg_count => l_msg_count,
3105: x_msg_data => l_msg_data );
3106:
3107: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3108: RAISE fnd_api.g_exc_error;
3109: END IF;
3110: End Loop;
3111: END IF;
3104: x_msg_count => l_msg_count,
3105: x_msg_data => l_msg_data );
3106:
3107: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3108: RAISE fnd_api.g_exc_error;
3109: END IF;
3110: End Loop;
3111: END IF;
3112: END IF;
3117: IF l_item_control_rec.serial_control_code = 1 THEN
3118: debug('NON Serialized item and installation details not entered.');
3119: fnd_message.set_name('CSI', 'CSI_INST_DTLS_NOT_ENTERED');
3120: fnd_msg_pub.add;
3121: RAISE fnd_api.g_exc_error;
3122: ELSE
3123: -- serialized item, so figure out the owner's instance
3124: identify_source_instances(
3125: px_mtl_txn_tbl => l_src_mtl_txn_tbl,
3125: px_mtl_txn_tbl => l_src_mtl_txn_tbl,
3126: p_item_control_rec => l_item_control_rec,
3127: x_return_status => l_return_status);
3128:
3129: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3130: RAISE fnd_api.g_exc_error;
3131: END IF;
3132: END IF;
3133:
3126: p_item_control_rec => l_item_control_rec,
3127: x_return_status => l_return_status);
3128:
3129: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3130: RAISE fnd_api.g_exc_error;
3131: END IF;
3132: END IF;
3133:
3134: -- build the process transaction pl/sql tables using the mtl txn info
3146: x_ii_relationships_tbl => l_ii_relationships_tbl,
3147: x_dest_location_rec => l_dest_location_rec,
3148: x_return_status => l_return_status);
3149:
3150: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3151: RAISE fnd_api.g_exc_error;
3152: END IF;
3153:
3154: END IF;
3147: x_dest_location_rec => l_dest_location_rec,
3148: x_return_status => l_return_status);
3149:
3150: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3151: RAISE fnd_api.g_exc_error;
3152: END IF;
3153:
3154: END IF;
3155:
3158: p_sub_type_id => l_txn_rec.txn_sub_type_id,
3159: x_sub_type_rec => l_sub_type_rec,
3160: x_return_status => l_return_status);
3161:
3162: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3163: raise fnd_api.g_exc_error;
3164: END IF;
3165:
3166: /* start of ER 2646086 + RMA for Repair with different party */
3159: x_sub_type_rec => l_sub_type_rec,
3160: x_return_status => l_return_status);
3161:
3162: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3163: raise fnd_api.g_exc_error;
3164: END IF;
3165:
3166: /* start of ER 2646086 + RMA for Repair with different party */
3167: /* Get the value for the source of truth flag */
3189: /* serialized instances. */
3190:
3191: debug('Check if owner needs to be overridden. Return from a different guy.');
3192:
3193: IF nvl(l_instances_tbl(i_ind).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
3194: THEN
3195:
3196: l_error_rec.instance_id := l_instances_tbl(i_ind).instance_id;
3197:
3228: END;
3229: EXCEPTION
3230: WHEN no_data_found THEN
3231: --## to seed some error message appropriately
3232: RAISE fnd_api.g_exc_error;
3233: END;
3234:
3235: debug(' Instance ID :'||l_instances_tbl(i_ind).instance_id);
3236: debug(' Internal Party ID :'||l_internal_party_id);
3253: fnd_message.set_token('INSTANCE_ID', l_instances_tbl(i_ind).instance_id );
3254: fnd_message.set_token('OLD_PARTY_ID', l_cur_owner_party_id );
3255: fnd_message.set_token('NEW_PARTY_ID', l_src_order_rec.party_id );
3256: fnd_msg_pub.add;
3257: RAISE fnd_api.g_exc_error;
3258: END IF;
3259:
3260: /* end of ER 2646086 + RMA for Repair with different party */
3261:
3330: l_upd_parties_tbl(1).party_source_table := 'HZ_PARTIES';
3331: -- l_upd_parties_tbl(1).party_id := l_src_order_rec.party_id;
3332: l_upd_parties_tbl(1).relationship_type_code := 'OWNER';
3333: l_upd_parties_tbl(1).contact_flag := 'N';
3334: l_upd_parties_tbl(1).call_contracts := fnd_api.g_false;
3335:
3336: l_upd_pty_accts_tbl(1).ip_account_id := l_owner_acct_ipa_id;
3337: l_upd_pty_accts_tbl(1).instance_party_id := l_owner_pty_ip_id;
3338: l_upd_pty_accts_tbl(1).object_version_number:= l_owner_acct_obj_ver_num;
3338: l_upd_pty_accts_tbl(1).object_version_number:= l_owner_acct_obj_ver_num;
3339: l_upd_pty_accts_tbl(1).parent_tbl_index := 1;
3340: --l_upd_pty_accts_tbl(1).party_account_id := l_src_order_rec.customer_account_id;
3341: l_upd_pty_accts_tbl(1).relationship_type_code := 'OWNER';
3342: l_upd_pty_accts_tbl(1).call_contracts := fnd_api.g_false;
3343:
3344: /* Commented the call as part of fix for Bug 2733128. Added call to Update_Item_Instance instead
3345: csi_t_gen_utility_pvt.dump_api_info(
3346: p_pkg_name => 'csi_party_relationships_pub',
3347: p_api_name => 'update_inst_party_relationship');
3348:
3349: csi_party_relationships_pub.update_inst_party_relationship (
3350: p_api_version => 1.0,
3351: p_commit => fnd_api.g_false,
3352: p_init_msg_list => fnd_api.g_true,
3353: p_validation_level => fnd_api.g_valid_level_full,
3354: p_party_tbl => l_upd_parties_tbl,
3355: p_party_account_tbl => l_upd_pty_accts_tbl,
3348:
3349: csi_party_relationships_pub.update_inst_party_relationship (
3350: p_api_version => 1.0,
3351: p_commit => fnd_api.g_false,
3352: p_init_msg_list => fnd_api.g_true,
3353: p_validation_level => fnd_api.g_valid_level_full,
3354: p_party_tbl => l_upd_parties_tbl,
3355: p_party_account_tbl => l_upd_pty_accts_tbl,
3356: p_txn_rec => l_txn_rec,
3349: csi_party_relationships_pub.update_inst_party_relationship (
3350: p_api_version => 1.0,
3351: p_commit => fnd_api.g_false,
3352: p_init_msg_list => fnd_api.g_true,
3353: p_validation_level => fnd_api.g_valid_level_full,
3354: p_party_tbl => l_upd_parties_tbl,
3355: p_party_account_tbl => l_upd_pty_accts_tbl,
3356: p_txn_rec => l_txn_rec,
3357: x_return_status => l_return_status,
3364: p_api_name => 'update_item_instance');
3365:
3366: csi_item_instance_pub.update_item_instance(
3367: p_api_version => 1.0,
3368: p_commit => fnd_api.g_false,
3369: p_init_msg_list => fnd_api.g_true,
3370: p_validation_level => fnd_api.g_valid_level_full,
3371: p_instance_rec => l_chg_instance_rec,
3372: p_ext_attrib_values_tbl => l_chg_ext_attrib_val_tbl,
3365:
3366: csi_item_instance_pub.update_item_instance(
3367: p_api_version => 1.0,
3368: p_commit => fnd_api.g_false,
3369: p_init_msg_list => fnd_api.g_true,
3370: p_validation_level => fnd_api.g_valid_level_full,
3371: p_instance_rec => l_chg_instance_rec,
3372: p_ext_attrib_values_tbl => l_chg_ext_attrib_val_tbl,
3373: p_party_tbl => l_upd_parties_tbl,
3366: csi_item_instance_pub.update_item_instance(
3367: p_api_version => 1.0,
3368: p_commit => fnd_api.g_false,
3369: p_init_msg_list => fnd_api.g_true,
3370: p_validation_level => fnd_api.g_valid_level_full,
3371: p_instance_rec => l_chg_instance_rec,
3372: p_ext_attrib_values_tbl => l_chg_ext_attrib_val_tbl,
3373: p_party_tbl => l_upd_parties_tbl,
3374: p_account_tbl => l_upd_pty_accts_tbl,
3380: x_return_status => l_return_status,
3381: x_msg_count => l_msg_count,
3382: x_msg_data => l_msg_data);
3383:
3384: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3385: RAISE fnd_api.g_exc_error;
3386: END IF;
3387:
3388: debug('Ownership Changed Successfully.');
3381: x_msg_count => l_msg_count,
3382: x_msg_data => l_msg_data);
3383:
3384: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3385: RAISE fnd_api.g_exc_error;
3386: END IF;
3387:
3388: debug('Ownership Changed Successfully.');
3389:
3425: px_mtl_txn_rec => l_mtl_txn_rec,
3426: p_item_control_rec => l_item_control_rec,
3427: x_return_status => l_return_status);
3428:
3429: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3430: RAISE fnd_api.g_exc_error;
3431: END IF;
3432:
3433: IF l_mtl_txn_rec.instance_id = fnd_api.g_miss_num THEN
3426: p_item_control_rec => l_item_control_rec,
3427: x_return_status => l_return_status);
3428:
3429: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3430: RAISE fnd_api.g_exc_error;
3431: END IF;
3432:
3433: IF l_mtl_txn_rec.instance_id = fnd_api.g_miss_num THEN
3434:
3429: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3430: RAISE fnd_api.g_exc_error;
3431: END IF;
3432:
3433: IF l_mtl_txn_rec.instance_id = fnd_api.g_miss_num THEN
3434:
3435: debug('Create a source serialized instance. Looks like first time IB creation.');
3436:
3437: l_crt_instance_rec.instance_id := fnd_api.g_miss_num;
3433: IF l_mtl_txn_rec.instance_id = fnd_api.g_miss_num THEN
3434:
3435: debug('Create a source serialized instance. Looks like first time IB creation.');
3436:
3437: l_crt_instance_rec.instance_id := fnd_api.g_miss_num;
3438: l_crt_instance_rec.instance_number := fnd_api.g_miss_char;
3439: l_crt_instance_rec.inventory_item_id := l_instances_tbl(i_ind).inventory_item_id;
3440: l_crt_instance_rec.inventory_revision := l_instances_tbl(i_ind).inventory_revision;
3441: l_crt_instance_rec.serial_number := l_instances_tbl(i_ind).serial_number;
3434:
3435: debug('Create a source serialized instance. Looks like first time IB creation.');
3436:
3437: l_crt_instance_rec.instance_id := fnd_api.g_miss_num;
3438: l_crt_instance_rec.instance_number := fnd_api.g_miss_char;
3439: l_crt_instance_rec.inventory_item_id := l_instances_tbl(i_ind).inventory_item_id;
3440: l_crt_instance_rec.inventory_revision := l_instances_tbl(i_ind).inventory_revision;
3441: l_crt_instance_rec.serial_number := l_instances_tbl(i_ind).serial_number;
3442: l_crt_instance_rec.mfg_serial_number_flag := 'Y';
3451: l_crt_instance_rec.last_oe_rma_line_id := l_instances_tbl(i_ind).last_oe_rma_line_id;
3452: l_crt_instance_rec.customer_view_flag := 'N';
3453: l_crt_instance_rec.merchant_view_flag := 'Y';
3454: l_crt_instance_rec.object_version_number := 1;
3455: l_crt_instance_rec.call_contracts := fnd_api.g_false;
3456: --fix for bug5086652
3457: l_crt_instance_rec.active_start_date := l_instances_tbl(i_ind).mtl_txn_creation_date;
3458:
3459: l_crt_parties_tbl(1).instance_party_id := fnd_api.g_miss_num;
3455: l_crt_instance_rec.call_contracts := fnd_api.g_false;
3456: --fix for bug5086652
3457: l_crt_instance_rec.active_start_date := l_instances_tbl(i_ind).mtl_txn_creation_date;
3458:
3459: l_crt_parties_tbl(1).instance_party_id := fnd_api.g_miss_num;
3460: l_crt_parties_tbl(1).party_source_table := 'HZ_PARTIES';
3461: l_crt_parties_tbl(1).party_id := l_src_order_rec.party_id;
3462: l_crt_parties_tbl(1).relationship_type_code:= 'OWNER';
3463: l_crt_parties_tbl(1).contact_flag := 'N';
3460: l_crt_parties_tbl(1).party_source_table := 'HZ_PARTIES';
3461: l_crt_parties_tbl(1).party_id := l_src_order_rec.party_id;
3462: l_crt_parties_tbl(1).relationship_type_code:= 'OWNER';
3463: l_crt_parties_tbl(1).contact_flag := 'N';
3464: l_crt_parties_tbl(1).call_contracts := fnd_api.g_false;
3465:
3466: l_crt_pty_accts_tbl(1).ip_account_id := fnd_api.g_miss_num;
3467: l_crt_pty_accts_tbl(1).parent_tbl_index := 1;
3468: l_crt_pty_accts_tbl(1).party_account_id := l_src_order_rec.customer_account_id;
3462: l_crt_parties_tbl(1).relationship_type_code:= 'OWNER';
3463: l_crt_parties_tbl(1).contact_flag := 'N';
3464: l_crt_parties_tbl(1).call_contracts := fnd_api.g_false;
3465:
3466: l_crt_pty_accts_tbl(1).ip_account_id := fnd_api.g_miss_num;
3467: l_crt_pty_accts_tbl(1).parent_tbl_index := 1;
3468: l_crt_pty_accts_tbl(1).party_account_id := l_src_order_rec.customer_account_id;
3469: l_crt_pty_accts_tbl(1).relationship_type_code := 'OWNER';
3470: l_crt_pty_accts_tbl(1).call_contracts := fnd_api.g_false;
3466: l_crt_pty_accts_tbl(1).ip_account_id := fnd_api.g_miss_num;
3467: l_crt_pty_accts_tbl(1).parent_tbl_index := 1;
3468: l_crt_pty_accts_tbl(1).party_account_id := l_src_order_rec.customer_account_id;
3469: l_crt_pty_accts_tbl(1).relationship_type_code := 'OWNER';
3470: l_crt_pty_accts_tbl(1).call_contracts := fnd_api.g_false;
3471:
3472: csi_t_gen_utility_pvt.dump_csi_instance_rec(
3473: p_csi_instance_rec => l_crt_instance_rec);
3474:
3477: p_api_name => 'create_item_instance');
3478:
3479: csi_item_instance_pub.create_item_instance(
3480: p_api_version => 1.0,
3481: p_commit => fnd_api.g_false,
3482: p_init_msg_list => fnd_api.g_true,
3483: p_validation_level => fnd_api.g_valid_level_full,
3484: p_instance_rec => l_crt_instance_rec,
3485: p_party_tbl => l_crt_parties_tbl,
3478:
3479: csi_item_instance_pub.create_item_instance(
3480: p_api_version => 1.0,
3481: p_commit => fnd_api.g_false,
3482: p_init_msg_list => fnd_api.g_true,
3483: p_validation_level => fnd_api.g_valid_level_full,
3484: p_instance_rec => l_crt_instance_rec,
3485: p_party_tbl => l_crt_parties_tbl,
3486: p_account_tbl => l_crt_pty_accts_tbl,
3479: csi_item_instance_pub.create_item_instance(
3480: p_api_version => 1.0,
3481: p_commit => fnd_api.g_false,
3482: p_init_msg_list => fnd_api.g_true,
3483: p_validation_level => fnd_api.g_valid_level_full,
3484: p_instance_rec => l_crt_instance_rec,
3485: p_party_tbl => l_crt_parties_tbl,
3486: p_account_tbl => l_crt_pty_accts_tbl,
3487: p_org_assignments_tbl => l_crt_org_units_tbl,
3492: x_return_status => l_return_status,
3493: x_msg_count => l_msg_count,
3494: x_msg_data => l_msg_data );
3495:
3496: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3497: raise fnd_api.g_exc_error;
3498: END IF;
3499:
3500: l_instances_tbl(i_ind).instance_id := l_crt_instance_rec.instance_id;
3493: x_msg_count => l_msg_count,
3494: x_msg_data => l_msg_data );
3495:
3496: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3497: raise fnd_api.g_exc_error;
3498: END IF;
3499:
3500: l_instances_tbl(i_ind).instance_id := l_crt_instance_rec.instance_id;
3501:
3525: l_i_parties_tbl(i_p_ind).contact_flag := 'N';
3526:
3527: END IF;
3528:
3529: END IF; -- instance_id = fnd_api.g_miss_num
3530:
3531: ELSE -- Non_Serialized Item in INV , serial code = 1
3532: IF nvl(l_instances_tbl(i_ind).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
3533: /* Split the instance at source for Non serialized items */
3528:
3529: END IF; -- instance_id = fnd_api.g_miss_num
3530:
3531: ELSE -- Non_Serialized Item in INV , serial code = 1
3532: IF nvl(l_instances_tbl(i_ind).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
3533: /* Split the instance at source for Non serialized items */
3534: THEN
3535:
3536: BEGIN
3543:
3544: EXCEPTION
3545: WHEN no_data_found THEN
3546: debug('Failed to retrieve Instance data');
3547: raise fnd_api.g_exc_error;
3548: END;
3549:
3550: IF l_quantity2 > l_instances_tbl(i_ind).quantity THEN -- inst qty > txn qty
3551: IF (l_active_end_date is NOT NULL) AND (l_active_end_date <= sysdate)
3554: -- Contracts shouldn't be called while unexpiring
3555:
3556: csi_process_txn_pvt.unexpire_instance(
3557: p_instance_id => l_instances_tbl(i_ind).instance_id,
3558: p_call_contracts => fnd_api.g_false,
3559: p_transaction_rec => l_txn_rec,
3560: x_return_status => l_return_status);
3561:
3562: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3558: p_call_contracts => fnd_api.g_false,
3559: p_transaction_rec => l_txn_rec,
3560: x_return_status => l_return_status);
3561:
3562: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3563: RAISE fnd_api.g_exc_error;
3564: END IF;
3565: END IF;
3566:
3559: p_transaction_rec => l_txn_rec,
3560: x_return_status => l_return_status);
3561:
3562: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3563: RAISE fnd_api.g_exc_error;
3564: END IF;
3565: END IF;
3566:
3567: l_quantity1 := l_quantity2 - l_instances_tbl(i_ind).quantity ;
3578: p_api_name => 'split_item_instance');
3579:
3580: csi_item_instance_pvt.split_item_instance (
3581: p_api_version => 1.0,
3582: p_commit => fnd_api.g_false,
3583: p_init_msg_list => fnd_api.g_true,
3584: p_validation_level => fnd_api.g_valid_level_full,
3585: p_source_instance_rec => l_split_src_inst_rec,
3586: p_quantity1 => l_quantity1,
3579:
3580: csi_item_instance_pvt.split_item_instance (
3581: p_api_version => 1.0,
3582: p_commit => fnd_api.g_false,
3583: p_init_msg_list => fnd_api.g_true,
3584: p_validation_level => fnd_api.g_valid_level_full,
3585: p_source_instance_rec => l_split_src_inst_rec,
3586: p_quantity1 => l_quantity1,
3587: p_quantity2 => l_quantity2,
3580: csi_item_instance_pvt.split_item_instance (
3581: p_api_version => 1.0,
3582: p_commit => fnd_api.g_false,
3583: p_init_msg_list => fnd_api.g_true,
3584: p_validation_level => fnd_api.g_valid_level_full,
3585: p_source_instance_rec => l_split_src_inst_rec,
3586: p_quantity1 => l_quantity1,
3587: p_quantity2 => l_quantity2,
3588: p_copy_ext_attribs => fnd_api.g_true,
3584: p_validation_level => fnd_api.g_valid_level_full,
3585: p_source_instance_rec => l_split_src_inst_rec,
3586: p_quantity1 => l_quantity1,
3587: p_quantity2 => l_quantity2,
3588: p_copy_ext_attribs => fnd_api.g_true,
3589: p_copy_org_assignments => fnd_api.g_true,
3590: p_copy_parties => fnd_api.g_true,
3591: p_copy_accounts => fnd_api.g_true,
3592: p_copy_asset_assignments => fnd_api.g_true,
3585: p_source_instance_rec => l_split_src_inst_rec,
3586: p_quantity1 => l_quantity1,
3587: p_quantity2 => l_quantity2,
3588: p_copy_ext_attribs => fnd_api.g_true,
3589: p_copy_org_assignments => fnd_api.g_true,
3590: p_copy_parties => fnd_api.g_true,
3591: p_copy_accounts => fnd_api.g_true,
3592: p_copy_asset_assignments => fnd_api.g_true,
3593: p_copy_pricing_attribs => fnd_api.g_true,
3586: p_quantity1 => l_quantity1,
3587: p_quantity2 => l_quantity2,
3588: p_copy_ext_attribs => fnd_api.g_true,
3589: p_copy_org_assignments => fnd_api.g_true,
3590: p_copy_parties => fnd_api.g_true,
3591: p_copy_accounts => fnd_api.g_true,
3592: p_copy_asset_assignments => fnd_api.g_true,
3593: p_copy_pricing_attribs => fnd_api.g_true,
3594: p_txn_rec => l_txn_rec,
3587: p_quantity2 => l_quantity2,
3588: p_copy_ext_attribs => fnd_api.g_true,
3589: p_copy_org_assignments => fnd_api.g_true,
3590: p_copy_parties => fnd_api.g_true,
3591: p_copy_accounts => fnd_api.g_true,
3592: p_copy_asset_assignments => fnd_api.g_true,
3593: p_copy_pricing_attribs => fnd_api.g_true,
3594: p_txn_rec => l_txn_rec,
3595: x_new_instance_rec => l_split_new_inst_rec,
3588: p_copy_ext_attribs => fnd_api.g_true,
3589: p_copy_org_assignments => fnd_api.g_true,
3590: p_copy_parties => fnd_api.g_true,
3591: p_copy_accounts => fnd_api.g_true,
3592: p_copy_asset_assignments => fnd_api.g_true,
3593: p_copy_pricing_attribs => fnd_api.g_true,
3594: p_txn_rec => l_txn_rec,
3595: x_new_instance_rec => l_split_new_inst_rec,
3596: x_return_status => l_return_status,
3589: p_copy_org_assignments => fnd_api.g_true,
3590: p_copy_parties => fnd_api.g_true,
3591: p_copy_accounts => fnd_api.g_true,
3592: p_copy_asset_assignments => fnd_api.g_true,
3593: p_copy_pricing_attribs => fnd_api.g_true,
3594: p_txn_rec => l_txn_rec,
3595: x_new_instance_rec => l_split_new_inst_rec,
3596: x_return_status => l_return_status,
3597: x_msg_count => l_msg_count,
3596: x_return_status => l_return_status,
3597: x_msg_count => l_msg_count,
3598: x_msg_data => l_msg_data);
3599:
3600: IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
3601: debug('csi_item_instance_pvt.split_item_instance raised errors');
3602: raise fnd_api.g_exc_error;
3603: END IF;
3604:
3598: x_msg_data => l_msg_data);
3599:
3600: IF NOT(l_return_status = fnd_api.g_ret_sts_success) THEN
3601: debug('csi_item_instance_pvt.split_item_instance raised errors');
3602: raise fnd_api.g_exc_error;
3603: END IF;
3604:
3605: IF (l_active_end_date is NOT NULL) AND (l_active_end_date <= sysdate)
3606: THEN -- expire the instance back.
3610: FROM csi_item_instances
3611: WHERE instance_id = l_instances_tbl(i_ind).instance_id;
3612:
3613: l_exp_instance_rec.instance_id := l_instances_tbl(i_ind).instance_id;
3614: l_exp_instance_rec.call_contracts := fnd_api.g_false;
3615: l_exp_instance_rec.active_end_date := sysdate;
3616: l_exp_instance_rec.last_oe_rma_line_id := l_txn_rec.source_line_ref_id;
3617:
3618: csi_t_gen_utility_pvt.dump_api_info(
3623: p_csi_instance_rec => l_exp_instance_rec);
3624:
3625: csi_item_instance_pub.update_item_instance(
3626: p_api_version => 1.0,
3627: p_commit => fnd_api.g_false,
3628: p_init_msg_list => fnd_api.g_true,
3629: p_validation_level => fnd_api.g_valid_level_full,
3630: p_instance_rec => l_exp_instance_rec,
3631: p_ext_attrib_values_tbl => l_u_ext_attrib_val_tbl,
3624:
3625: csi_item_instance_pub.update_item_instance(
3626: p_api_version => 1.0,
3627: p_commit => fnd_api.g_false,
3628: p_init_msg_list => fnd_api.g_true,
3629: p_validation_level => fnd_api.g_valid_level_full,
3630: p_instance_rec => l_exp_instance_rec,
3631: p_ext_attrib_values_tbl => l_u_ext_attrib_val_tbl,
3632: p_party_tbl => l_u_party_tbl,
3625: csi_item_instance_pub.update_item_instance(
3626: p_api_version => 1.0,
3627: p_commit => fnd_api.g_false,
3628: p_init_msg_list => fnd_api.g_true,
3629: p_validation_level => fnd_api.g_valid_level_full,
3630: p_instance_rec => l_exp_instance_rec,
3631: p_ext_attrib_values_tbl => l_u_ext_attrib_val_tbl,
3632: p_party_tbl => l_u_party_tbl,
3633: p_account_tbl => l_u_party_acct_tbl,
3639: x_return_status => l_return_status,
3640: x_msg_count => l_msg_count,
3641: x_msg_data => l_msg_data );
3642:
3643: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3644: RAISE fnd_api.g_exc_error;
3645: END IF;
3646: END IF;
3647:
3640: x_msg_count => l_msg_count,
3641: x_msg_data => l_msg_data );
3642:
3643: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3644: RAISE fnd_api.g_exc_error;
3645: END IF;
3646: END IF;
3647:
3648: l_instances_tbl(i_ind).instance_id := l_split_new_inst_rec.instance_id ;
3706: x_return_status => l_return_status,
3707: x_msg_count => l_msg_count,
3708: x_msg_data => l_msg_data );
3709:
3710: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3711: debug('Process transaction routine failed.');
3712: RAISE fnd_api.g_exc_error;
3713: END IF;
3714:
3708: x_msg_data => l_msg_data );
3709:
3710: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3711: debug('Process transaction routine failed.');
3712: RAISE fnd_api.g_exc_error;
3713: END IF;
3714:
3715: --update the csi txn line details with the processed status
3716:
3762: p_txn_line_rec => l_split_txn_line_rec);
3763: EXCEPTION
3764: WHEN TOO_MANY_ROWS THEN
3765: debug('Multiple RMA split lines found in OM for the RMA Order.');
3766: RAISE fnd_api.g_exc_error;
3767: l_partial_receipt := FALSE;
3768: l_td_found := FALSE;
3769: WHEN OTHERS THEN
3770: l_partial_receipt := FALSE;
3773:
3774: IF l_partial_receipt AND NOT l_td_found THEN
3775: csi_t_txn_details_grp.split_transaction_details(
3776: p_api_version => 1.0,
3777: p_commit => fnd_api.g_false,
3778: p_init_msg_list => fnd_api.g_true,
3779: p_validation_level => fnd_api.g_valid_level_full,
3780: p_src_txn_line_rec => l_txn_line_rec,
3781: px_split_txn_line_rec => l_split_txn_line_rec,
3774: IF l_partial_receipt AND NOT l_td_found THEN
3775: csi_t_txn_details_grp.split_transaction_details(
3776: p_api_version => 1.0,
3777: p_commit => fnd_api.g_false,
3778: p_init_msg_list => fnd_api.g_true,
3779: p_validation_level => fnd_api.g_valid_level_full,
3780: p_src_txn_line_rec => l_txn_line_rec,
3781: px_split_txn_line_rec => l_split_txn_line_rec,
3782: px_line_dtl_tbl => l_line_dtl_tbl,
3775: csi_t_txn_details_grp.split_transaction_details(
3776: p_api_version => 1.0,
3777: p_commit => fnd_api.g_false,
3778: p_init_msg_list => fnd_api.g_true,
3779: p_validation_level => fnd_api.g_valid_level_full,
3780: p_src_txn_line_rec => l_txn_line_rec,
3781: px_split_txn_line_rec => l_split_txn_line_rec,
3782: px_line_dtl_tbl => l_line_dtl_tbl,
3783: x_pty_dtl_tbl => l_pty_dtl_tbl,
3788: x_return_status => l_return_status,
3789: x_msg_count => l_msg_count,
3790: x_msg_data => l_msg_data);
3791:
3792: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3793: debug(l_msg_data);
3794: Debug(' Failed to post Transaction Details to split RMA Line for partial RMA Cases.');
3795: ELSE
3796: Debug(' Transaction Details succefully posted to split RMA Line.');
3798: END IF;
3799: END IF;
3800:
3801: EXCEPTION
3802: WHEN fnd_api.g_exc_error THEN
3803:
3804: rollback to rma_receipt;
3805:
3806: x_return_status := fnd_api.g_ret_sts_error;
3802: WHEN fnd_api.g_exc_error THEN
3803:
3804: rollback to rma_receipt;
3805:
3806: x_return_status := fnd_api.g_ret_sts_error;
3807: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
3808: debug('Error:(E) '||l_error_rec.error_text);
3809: px_trx_error_rec := l_error_rec;
3810:
3810:
3811: WHEN others THEN
3812: rollback to rma_receipt;
3813:
3814: x_return_status := fnd_api.g_ret_sts_unexp_error;
3815: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
3816: fnd_message.set_token('API_NAME',l_api_name);
3817: fnd_message.set_token('SQL_ERROR',substr(sqlerrm, 1, 540));
3818: fnd_msg_pub.add;
3830: x_return_status OUT NOCOPY varchar2)
3831: IS
3832: BEGIN
3833:
3834: x_return_status := fnd_api.g_ret_sts_success;
3835:
3836: BEGIN
3837:
3838: SELECT transaction_id,
3850: WHEN no_data_found THEN
3851: fnd_message.set_name('CSI', 'CSI_INT_MTL_TXN_ID_INVALID');
3852: fnd_message.set_token('MTL_TXN_ID', p_transaction_id);
3853: fnd_msg_pub.add;
3854: RAISE fnd_api.g_exc_error;
3855: END;
3856:
3857: BEGIN
3858:
3874: null;
3875: END;
3876:
3877: EXCEPTION
3878: WHEN fnd_api.g_exc_error THEN
3879: x_error_message := fnd_msg_pub.get;
3880: x_return_status := fnd_api.g_ret_sts_error;
3881: END get_rma_info;
3882:
3876:
3877: EXCEPTION
3878: WHEN fnd_api.g_exc_error THEN
3879: x_error_message := fnd_msg_pub.get;
3880: x_return_status := fnd_api.g_ret_sts_error;
3881: END get_rma_info;
3882:
3883:
3884: PROCEDURE decode_message (
3889: x_return_status OUT NOCOPY VARCHAR2)
3890: IS
3891:
3892: l_api_name VARCHAR2(100):= 'csi_wip_trxs_pkg.decode_message';
3893: l_fnd_unexpected VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
3894: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3895: l_mtl_txn_id number;
3896:
3897: BEGIN
3890: IS
3891:
3892: l_api_name VARCHAR2(100):= 'csi_wip_trxs_pkg.decode_message';
3893: l_fnd_unexpected VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
3894: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3895: l_mtl_txn_id number;
3896:
3897: BEGIN
3898:
3897: BEGIN
3898:
3899: xnp_xml_utils.decode(P_Msg_Text, 'MTL_TRANSACTION_ID', l_mtl_txn_id);
3900:
3901: IF nvl(l_mtl_txn_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3902:
3903: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
3904: fnd_message.set_token('MESSAGE',
3905: 'xnp_xml_utils.decode failed for '||p_msg_header.message_id);
3904: fnd_message.set_token('MESSAGE',
3905: 'xnp_xml_utils.decode failed for '||p_msg_header.message_id);
3906: fnd_msg_pub.add;
3907:
3908: RAISE fnd_api.g_exc_error;
3909: END IF;
3910:
3911: get_rma_info(
3912: p_transaction_id => l_mtl_txn_id,
3913: x_mtl_trx_type => x_mtl_trx_rec,
3914: x_error_message => x_error_message,
3915: x_return_status => l_return_status);
3916:
3917: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3918: RAISE fnd_api.g_exc_error;
3919: END IF;
3920:
3921: EXCEPTION
3914: x_error_message => x_error_message,
3915: x_return_status => l_return_status);
3916:
3917: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3918: RAISE fnd_api.g_exc_error;
3919: END IF;
3920:
3921: EXCEPTION
3922:
3919: END IF;
3920:
3921: EXCEPTION
3922:
3923: WHEN fnd_api.g_exc_error THEN
3924: x_error_message := csi_t_gen_utility_pvt.dump_error_stack;
3925: x_return_status := fnd_api.g_ret_sts_error;
3926:
3927: WHEN others THEN
3921: EXCEPTION
3922:
3923: WHEN fnd_api.g_exc_error THEN
3924: x_error_message := csi_t_gen_utility_pvt.dump_error_stack;
3925: x_return_status := fnd_api.g_ret_sts_error;
3926:
3927: WHEN others THEN
3928: fnd_message.set_name('CSI','CSI_UNEXP_SQL_ERROR');
3929: fnd_message.set_token('API_NAME',l_api_name);