[Home] [Help]
43: fnd_message.set_name('CSI','CSI_INT_DEST_SUBINV_INVALID');
44: fnd_message.set_token('INV_ORG_ID',p_organization_id);
45: fnd_message.set_token('SUBINV_ID',p_subinventory_code);
46: fnd_msg_pub.add;
47: RAISE fnd_api.g_exc_error;
48: END;
49:
50: IF l_location_id is null THEN
51: BEGIN
57: WHEN no_data_found THEN
58: fnd_message.set_name('CSI','CSI_INT_DEST_ORG_ID_INVALID');
59: fnd_message.set_token('INV_ORG_ID',p_organization_id);
60: fnd_msg_pub.add;
61: RAISE fnd_api.g_exc_error;
62: END;
63: END IF;
64:
65: x_location_id := l_location_id;
64:
65: x_location_id := l_location_id;
66:
67: EXCEPTION
68: WHEN fnd_api.g_exc_error THEN
69: x_return_status := fnd_api.g_ret_sts_error;
70: END get_dfl_inv_location;
71:
72: PROCEDURE validate_dest_location_rec(
65: x_location_id := l_location_id;
66:
67: EXCEPTION
68: WHEN fnd_api.g_exc_error THEN
69: x_return_status := fnd_api.g_ret_sts_error;
70: END get_dfl_inv_location;
71:
72: PROCEDURE validate_dest_location_rec(
73: p_in_out_flag IN varchar2,
73: p_in_out_flag IN varchar2,
74: p_dest_location_rec IN OUT NOCOPY csi_process_txn_grp.dest_location_rec,
75: x_return_status OUT NOCOPY varchar2)
76: IS
77: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
78: BEGIN
79:
80: x_return_status := fnd_api.g_ret_sts_success;
81:
76: IS
77: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
78: BEGIN
79:
80: x_return_status := fnd_api.g_ret_sts_success;
81:
82: IF p_in_out_flag = 'IN' THEN
83:
84: csi_t_vldn_routines_pvt.check_reqd_param(
93: p_organization_id => p_dest_location_rec.inv_organization_id,
94: x_location_id => p_dest_location_rec.location_id,
95: x_return_status => l_return_status);
96:
97: IF l_return_status <> fnd_api.g_ret_sts_success THEN
98: RAISE fnd_api.g_exc_error;
99: END IF;
100:
101: END IF;
94: x_location_id => p_dest_location_rec.location_id,
95: x_return_status => l_return_status);
96:
97: IF l_return_status <> fnd_api.g_ret_sts_success THEN
98: RAISE fnd_api.g_exc_error;
99: END IF;
100:
101: END IF;
102:
102:
103: END IF;
104:
105: EXCEPTION
106: WHEN fnd_api.g_exc_error THEN
107: x_return_status := fnd_api.g_ret_sts_error;
108:
109: END validate_dest_location_rec;
110:
103: END IF;
104:
105: EXCEPTION
106: WHEN fnd_api.g_exc_error THEN
107: x_return_status := fnd_api.g_ret_sts_error;
108:
109: END validate_dest_location_rec;
110:
111: PROCEDURE get_sub_type_rec(
118: l_sub_type_rec csi_txn_sub_types%rowtype;
119:
120: BEGIN
121:
122: x_return_status := fnd_api.g_ret_sts_success;
123:
124: SELECT *
125: INTO l_sub_type_rec
126: FROM csi_txn_sub_types
127: WHERE transaction_type_id = p_txn_type_id
128: AND sub_type_id = p_sub_type_id;
129:
130: IF l_sub_type_rec.src_status_id is null THEN
131: l_sub_type_rec.src_status_id := fnd_api.g_miss_num;
132: END IF;
133:
134: l_sub_type_rec.src_change_owner := nvl(l_sub_type_rec.src_change_owner, 'N');
135: l_sub_type_rec.non_src_change_owner := nvl(l_sub_type_rec.non_src_change_owner, 'N');
143: fnd_message.set_token('SUB_TYPE_ID',p_sub_type_id);
144: fnd_message.set_token('TRANSACTION_TYPE_ID',p_txn_type_id);
145: fnd_msg_pub.add;
146:
147: x_return_status := fnd_api.g_ret_sts_error;
148: END get_sub_type_rec;
149:
150:
151:
191: fnd_message.set_name('CSI','CSI_TXN_SRC_REF_NOT_FOUND');
192: fnd_message.set_token('REF_TYPE',l_reference_code);
193: fnd_msg_pub.add;
194:
195: RAISE fnd_api.g_exc_error;
196:
197: END IF;
198:
199: EXCEPTION
196:
197: END IF;
198:
199: EXCEPTION
200: when fnd_api.g_exc_error THEN
201: x_return_status := fnd_api.g_ret_sts_error;
202: END validate_reference;
203:
204:
197: END IF;
198:
199: EXCEPTION
200: when fnd_api.g_exc_error THEN
201: x_return_status := fnd_api.g_ret_sts_error;
202: END validate_reference;
203:
204:
205: /* --------------------------------------------------------------- */
218:
219: l_owner_found boolean;
220: l_internal_party_id number;
221:
222: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
223:
224: BEGIN
225:
226: csi_t_gen_utility_pvt.dump_api_info(
226: csi_t_gen_utility_pvt.dump_api_info(
227: p_pkg_name => g_pkg_name,
228: p_api_name => 'validate_owner_reference');
229:
230: x_return_status := fnd_api.g_ret_sts_success;
231:
232: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
233:
234: IF p_txn_instances_tbl.COUNT > 0 THEN
262: fnd_message.set_name('CSI','CSI_INT_INV_PTY_ID');
263: fnd_message.set_token('PARTY_ID',p_txn_i_parties_tbl(l_p_ind).party_id);
264: fnd_message.set_token('INTERNAL_PARTY_ID',l_internal_party_id);
265: fnd_msg_pub.add;
266: RAISE fnd_api.g_exc_error;
267:
268: END IF;
269:
270: exit;
277: fnd_message.set_name('CSI','CSI_TXN_OWNER_NOT_FOUND');
278: fnd_message.set_token('INDEX',l_i_ind);
279: fnd_message.set_token('ITEM_ID',p_txn_instances_tbl(l_i_ind).inventory_item_id);
280: fnd_msg_pub.add;
281: RAISE fnd_api.g_exc_error;
282: END IF;
283:
284: END IF;
285:
286: END LOOP;
287: END IF;
288:
289: EXCEPTION
290: WHEN fnd_api.g_exc_error THEN
291: x_return_status := fnd_api.g_ret_sts_error;
292: END validate_owner_reference;
293:
294: /* --------------------------------------------------------------- */
287: END IF;
288:
289: EXCEPTION
290: WHEN fnd_api.g_exc_error THEN
291: x_return_status := fnd_api.g_ret_sts_error;
292: END validate_owner_reference;
293:
294: /* --------------------------------------------------------------- */
295: /* all the sub type specific validations handled in this routine */
300: p_txn_instances_tbl IN csi_process_txn_grp.txn_instances_tbl,
301: p_txn_i_parties_tbl IN csi_process_txn_grp.txn_i_parties_tbl,
302: x_return_status OUT NOCOPY varchar2)
303: IS
304: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
305: BEGIN
306:
307: x_return_status := fnd_api.g_ret_sts_success;
308:
303: IS
304: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
305: BEGIN
306:
307: x_return_status := fnd_api.g_ret_sts_success;
308:
309: csi_t_gen_utility_pvt.dump_api_info(
310: p_pkg_name => g_pkg_name,
311: p_api_name => 'sub_type_validations');
319: p_reference_type => 'S',
320: p_txn_instances_tbl => p_txn_instances_tbl,
321: x_return_status => l_return_status);
322:
323: IF l_return_status <> fnd_api.g_ret_sts_success THEN
324: RAISE fnd_api.g_exc_error;
325: END IF;
326:
327: END IF;
320: p_txn_instances_tbl => p_txn_instances_tbl,
321: x_return_status => l_return_status);
322:
323: IF l_return_status <> fnd_api.g_ret_sts_success THEN
324: RAISE fnd_api.g_exc_error;
325: END IF;
326:
327: END IF;
328:
332: p_reference_type => 'N',
333: p_txn_instances_tbl => p_txn_instances_tbl,
334: x_return_status => l_return_status);
335:
336: IF l_return_status <> fnd_api.g_ret_sts_success THEN
337: RAISE fnd_api.g_exc_error;
338: END IF;
339:
340: END IF;
333: p_txn_instances_tbl => p_txn_instances_tbl,
334: x_return_status => l_return_status);
335:
336: IF l_return_status <> fnd_api.g_ret_sts_success THEN
337: RAISE fnd_api.g_exc_error;
338: END IF;
339:
340: END IF;
341:
345: p_reference_type => 'P',
346: p_txn_instances_tbl => p_txn_instances_tbl,
347: x_return_status => l_return_status);
348:
349: IF l_return_status <> fnd_api.g_ret_sts_success THEN
350: RAISE fnd_api.g_exc_error;
351: END IF;
352:
353: END IF;
346: p_txn_instances_tbl => p_txn_instances_tbl,
347: x_return_status => l_return_status);
348:
349: IF l_return_status <> fnd_api.g_ret_sts_success THEN
350: RAISE fnd_api.g_exc_error;
351: END IF;
352:
353: END IF;
354:
360: p_txn_instances_tbl => p_txn_instances_tbl,
361: p_txn_i_parties_tbl => p_txn_i_parties_tbl,
362: x_return_status => l_return_status);
363:
364: IF l_return_status <> fnd_api.g_ret_sts_success THEN
365: RAISE fnd_api.g_exc_error;
366: END IF;
367:
368: END IF;
361: p_txn_i_parties_tbl => p_txn_i_parties_tbl,
362: x_return_status => l_return_status);
363:
364: IF l_return_status <> fnd_api.g_ret_sts_success THEN
365: RAISE fnd_api.g_exc_error;
366: END IF;
367:
368: END IF;
369:
375: p_txn_instances_tbl => p_txn_instances_tbl,
376: p_txn_i_parties_tbl => p_txn_i_parties_tbl,
377: x_return_status => l_return_status);
378:
379: IF l_return_status <> fnd_api.g_ret_sts_success THEN
380: RAISE fnd_api.g_exc_error;
381: END IF;
382:
383: END IF;
376: p_txn_i_parties_tbl => p_txn_i_parties_tbl,
377: x_return_status => l_return_status);
378:
379: IF l_return_status <> fnd_api.g_ret_sts_success THEN
380: RAISE fnd_api.g_exc_error;
381: END IF;
382:
383: END IF;
384:
382:
383: END IF;
384:
385: EXCEPTION
386: WHEN fnd_api.g_exc_error THEN
387: x_return_status := fnd_api.g_ret_sts_error;
388: END sub_type_validations;
389:
390:
383: END IF;
384:
385: EXCEPTION
386: WHEN fnd_api.g_exc_error THEN
387: x_return_status := fnd_api.g_ret_sts_error;
388: END sub_type_validations;
389:
390:
391: /* -------------------------------------------------------------------- */
418: csi_t_gen_utility_pvt.dump_api_info(
419: p_pkg_name => g_pkg_name,
420: p_api_name => 'get_item_attributes');
421:
422: x_return_status := fnd_api.g_ret_sts_success;
423:
424: BEGIN
425:
426: SELECT serial_number_control_code,
451: fnd_message.set_name('CSI','CSI_INT_ITEM_ID_MISSING');
452: fnd_message.set_token('INVENTORY_ITEM_ID',p_inventory_item_id);
453: fnd_message.set_token('INV_ORGANIZATION_ID',p_organization_id);
454: fnd_msg_pub.add;
455: RAISE fnd_api.g_exc_error;
456: END;
457:
458: IF l_serial_code = 1 THEN
459: l_item_attr_rec.src_serial_control_flag := 'N';
511:
512: x_item_attr_rec := l_item_attr_rec;
513:
514: EXCEPTION
515: WHEN fnd_api.g_exc_error THEN
516: x_return_status := fnd_api.g_ret_sts_error;
517: END get_item_attributes;
518:
519:
512: x_item_attr_rec := l_item_attr_rec;
513:
514: EXCEPTION
515: WHEN fnd_api.g_exc_error THEN
516: x_return_status := fnd_api.g_ret_sts_error;
517: END get_item_attributes;
518:
519:
520: /* -------------------------------------------------------------------- */
533: csi_t_gen_utility_pvt.dump_api_info(
534: p_pkg_name => g_pkg_name,
535: p_api_name => 'validate_instance_rec');
536:
537: x_return_status := fnd_api.g_ret_sts_success;
538:
539: -- serial control
540: IF p_item_attr_rec.src_serial_control_flag = 'Y'
541: OR
541: OR
542: p_item_attr_rec.dst_serial_control_flag = 'Y'
543: THEN
544:
545: IF nvl(p_instance_rec.serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
546:
547: fnd_message.set_name('CSI','CSI_TXN_SERIAL_NUM_MISSING');
548: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
549: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
547: fnd_message.set_name('CSI','CSI_TXN_SERIAL_NUM_MISSING');
548: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
549: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
550: fnd_msg_pub.add;
551: RAISE fnd_api.g_exc_error;
552:
553: END IF;
554:
555: END IF;
555: END IF;
556:
557: -- lot control
558: IF p_item_attr_rec.lot_control_flag = 'Y' THEN
559: IF nvl(p_instance_rec.lot_number, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
560: fnd_message.set_name('CSI','CSI_TXN_LOT_NUM_MISSING');
561: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
562: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
563: fnd_msg_pub.add;
560: fnd_message.set_name('CSI','CSI_TXN_LOT_NUM_MISSING');
561: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
562: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
563: fnd_msg_pub.add;
564: RAISE fnd_api.g_exc_error;
565: END IF;
566: END IF;
567:
568: -- revision control
566: END IF;
567:
568: -- revision control
569: IF p_item_attr_rec.revision_control_flag = 'Y' THEN
570: IF nvl(p_instance_rec.inventory_revision, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
571: fnd_message.set_name('CSI','CSI_TXN_ITEM_REV_MISSING');
572: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
573: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
574: fnd_msg_pub.add;
571: fnd_message.set_name('CSI','CSI_TXN_ITEM_REV_MISSING');
572: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
573: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
574: fnd_msg_pub.add;
575: RAISE fnd_api.g_exc_error;
576: END IF;
577: END IF;
578:
579: -- locator control
579: -- locator control
580: /*
581: -- elliminated this validation as core API does this
582: IF p_item_attr_rec.locator_control_flag = 'Y' THEN
583: IF nvl(p_instance_rec.inv_locator_id , fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
584: fnd_message.set_name('CSI','CSI_TXN_LOCATOR_MISSING');
585: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
586: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
587: fnd_msg_pub.add;
584: fnd_message.set_name('CSI','CSI_TXN_LOCATOR_MISSING');
585: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
586: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
587: fnd_msg_pub.add;
588: RAISE fnd_api.g_exc_error;
589: END IF;
590: END IF;
591: */
592:
590: END IF;
591: */
592:
593: EXCEPTION
594: WHEN fnd_api.g_exc_error THEN
595: x_return_status := fnd_api.g_ret_sts_error;
596: END validate_instance_rec;
597:
598:
591: */
592:
593: EXCEPTION
594: WHEN fnd_api.g_exc_error THEN
595: x_return_status := fnd_api.g_ret_sts_error;
596: END validate_instance_rec;
597:
598:
599: /* ----------------------------------------------------------------------- */
616: l_inst_query_rec csi_datastructures_pub.instance_query_rec;
617:
618: BEGIN
619:
620: x_return_status := fnd_api.g_ret_sts_success;
621:
622: csi_t_gen_utility_pvt.dump_api_info(
623: p_pkg_name => g_pkg_name,
624: p_api_name => 'build_instance_query_rec');
685: END IF;
686:
687: IF l_inst_query_rec.location_type_code = 'INVENTORY' THEN
688: l_inst_query_rec.instance_usage_code := 'IN_INVENTORY';
689: l_inst_query_rec.location_id := fnd_api.g_miss_num;
690: END IF;
691:
692: x_instance_query_rec := l_inst_query_rec;
693:
696: csi_t_gen_utility_pvt.dump_instance_query_rec(
697: p_instance_query_rec => x_instance_query_rec);
698:
699: EXCEPTION
700: WHEN fnd_api.g_exc_error THEN
701: x_return_status := fnd_api.g_ret_sts_error;
702: END build_instance_query_rec;
703:
704:
697: p_instance_query_rec => x_instance_query_rec);
698:
699: EXCEPTION
700: WHEN fnd_api.g_exc_error THEN
701: x_return_status := fnd_api.g_ret_sts_error;
702: END build_instance_query_rec;
703:
704:
705: PROCEDURE get_negative_code(
707: x_negative_code OUT NOCOPY number,
708: x_return_status OUT NOCOPY varchar2)
709: IS
710: BEGIN
711: x_return_status := fnd_api.g_ret_sts_success;
712: SELECT negative_inv_receipt_code
713: INTO x_negative_code
714: FROM mtl_parameters
715: WHERE organization_id = p_organization_id;
714: FROM mtl_parameters
715: WHERE organization_id = p_organization_id;
716: EXCEPTION
717: WHEN others then
718: x_return_status := fnd_api.g_ret_sts_error;
719: END get_negative_code;
720:
721: PROCEDURE create_zero_qty_instance(
722: p_instance_rec in csi_process_txn_grp.txn_instance_rec,
744: l_u_pricing_tbl csi_datastructures_pub.pricing_attribs_tbl;
745: l_u_assets_tbl csi_datastructures_pub.instance_asset_tbl;
746: l_instance_ids_list csi_datastructures_pub.id_tbl;
747:
748: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
749: l_msg_count number;
750: l_msg_data varchar2(2000);
751:
752: BEGIN
749: l_msg_count number;
750: l_msg_data varchar2(2000);
751:
752: BEGIN
753: x_return_status := fnd_api.g_ret_sts_success;
754:
755: api_log('create_zero_qty_instance');
756:
757: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
759: l_instance_rec.inventory_item_id := p_instance_rec.inventory_item_id;
760: l_instance_rec.inventory_revision := p_instance_rec.inventory_revision;
761: l_instance_rec.inv_subinventory_name := p_instance_rec.inv_subinventory_name;
762: -- this is always a non serial instance
763: l_instance_rec.serial_number := fnd_api.g_miss_char;
764: l_instance_rec.lot_number := p_instance_rec.lot_number;
765: l_instance_rec.quantity := 1;
766: l_instance_rec.active_start_date := sysdate;
767: l_instance_rec.active_end_date := null;
767: l_instance_rec.active_end_date := null;
768: l_instance_rec.unit_of_measure := p_instance_rec.unit_of_measure;
769: l_instance_rec.location_type_code := 'INVENTORY';
770: l_instance_rec.location_id := p_instance_rec.location_id;
771: IF nvl(l_instance_rec.location_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
772: get_dfl_inv_location(
773: p_subinventory_code => p_instance_rec.inv_subinventory_name,
774: p_organization_id => p_instance_rec.inv_organization_id,
775: x_location_id => l_instance_rec.location_id,
796:
797: -- creation of zero quantity instance
798: csi_item_instance_pub.create_item_instance(
799: p_api_version => 1.0,
800: p_commit => fnd_api.g_false,
801: p_init_msg_list => fnd_api.g_true,
802: p_validation_level => fnd_api.g_valid_level_full,
803: p_instance_rec => l_instance_rec,
804: p_party_tbl => l_parties_tbl,
797: -- creation of zero quantity instance
798: csi_item_instance_pub.create_item_instance(
799: p_api_version => 1.0,
800: p_commit => fnd_api.g_false,
801: p_init_msg_list => fnd_api.g_true,
802: p_validation_level => fnd_api.g_valid_level_full,
803: p_instance_rec => l_instance_rec,
804: p_party_tbl => l_parties_tbl,
805: p_account_tbl => l_pty_accts_tbl,
798: csi_item_instance_pub.create_item_instance(
799: p_api_version => 1.0,
800: p_commit => fnd_api.g_false,
801: p_init_msg_list => fnd_api.g_true,
802: p_validation_level => fnd_api.g_valid_level_full,
803: p_instance_rec => l_instance_rec,
804: p_party_tbl => l_parties_tbl,
805: p_account_tbl => l_pty_accts_tbl,
806: p_org_assignments_tbl => l_org_units_tbl,
812: x_msg_count => l_msg_count,
813: x_msg_data => l_msg_data );
814:
815: -- For Bug 4057183
816: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
817: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
818: raise fnd_api.g_exc_error;
819: END IF;
820:
813: x_msg_data => l_msg_data );
814:
815: -- For Bug 4057183
816: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
817: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
818: raise fnd_api.g_exc_error;
819: END IF;
820:
821: x_instance_id := l_instance_rec.instance_id;
814:
815: -- For Bug 4057183
816: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
817: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
818: raise fnd_api.g_exc_error;
819: END IF;
820:
821: x_instance_id := l_instance_rec.instance_id;
822:
834:
835: -- update to make a zero quantity instance
836: csi_item_instance_pub.update_item_instance(
837: p_api_version => 1.0,
838: p_commit => fnd_api.g_false,
839: p_init_msg_list => fnd_api.g_true,
840: p_validation_level => fnd_api.g_valid_level_full,
841: p_instance_rec => l_u_instance_rec,
842: p_party_tbl => l_u_parties_tbl,
835: -- update to make a zero quantity instance
836: csi_item_instance_pub.update_item_instance(
837: p_api_version => 1.0,
838: p_commit => fnd_api.g_false,
839: p_init_msg_list => fnd_api.g_true,
840: p_validation_level => fnd_api.g_valid_level_full,
841: p_instance_rec => l_u_instance_rec,
842: p_party_tbl => l_u_parties_tbl,
843: p_account_tbl => l_u_pty_accts_tbl,
836: csi_item_instance_pub.update_item_instance(
837: p_api_version => 1.0,
838: p_commit => fnd_api.g_false,
839: p_init_msg_list => fnd_api.g_true,
840: p_validation_level => fnd_api.g_valid_level_full,
841: p_instance_rec => l_u_instance_rec,
842: p_party_tbl => l_u_parties_tbl,
843: p_account_tbl => l_u_pty_accts_tbl,
844: p_org_assignments_tbl => l_u_org_units_tbl,
851: x_msg_count => l_msg_count,
852: x_msg_data => l_msg_data);
853:
854: -- For Bug 4057183
855: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
856: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
857: RAISE fnd_api.g_exc_error;
858: END IF;
859:
852: x_msg_data => l_msg_data);
853:
854: -- For Bug 4057183
855: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
856: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
857: RAISE fnd_api.g_exc_error;
858: END IF;
859:
860: EXCEPTION
853:
854: -- For Bug 4057183
855: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
856: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
857: RAISE fnd_api.g_exc_error;
858: END IF;
859:
860: EXCEPTION
861: WHEN fnd_api.g_exc_error THEN
857: RAISE fnd_api.g_exc_error;
858: END IF;
859:
860: EXCEPTION
861: WHEN fnd_api.g_exc_error THEN
862: x_return_status := fnd_api.g_ret_sts_error;
863: END create_zero_qty_instance;
864:
865: /* ---------------------------------------------------------------------- */
858: END IF;
859:
860: EXCEPTION
861: WHEN fnd_api.g_exc_error THEN
862: x_return_status := fnd_api.g_ret_sts_error;
863: END create_zero_qty_instance;
864:
865: /* ---------------------------------------------------------------------- */
866: /* core routine that gets the item instance from the installed base. this */
891:
892: instance_not_found exception;
893: skip_instance_search exception;
894:
895: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
896: l_msg_count number;
897: l_msg_data varchar2(2000);
898:
899: BEGIN
901: csi_t_gen_utility_pvt.dump_api_info(
902: p_pkg_name => g_pkg_name,
903: p_api_name => 'get_src_instance_id');
904:
905: x_return_status := fnd_api.g_ret_sts_success;
906:
907: /* for WIP component return transaction the source instance will be processed
908: in the WIP pice of code itself
909: */
907: /* for WIP component return transaction the source instance will be processed
908: in the WIP pice of code itself
909: */
910: IF p_in_out_flag = 'INT' and p_instance_rec.location_type_code = 'WIP' THEN
911: x_instance_id := fnd_api.g_miss_num;
912: RAISE skip_instance_search;
913: END IF;
914:
915: validate_instance_rec(
916: p_instance_rec => p_instance_rec,
917: p_item_attr_rec => p_item_attr_rec,
918: x_return_status => l_return_status);
919:
920: IF l_return_status <> fnd_api.g_ret_sts_success THEN
921: RAISE fnd_api.g_exc_error;
922: END IF;
923:
924: build_instance_query_rec(
917: p_item_attr_rec => p_item_attr_rec,
918: x_return_status => l_return_status);
919:
920: IF l_return_status <> fnd_api.g_ret_sts_success THEN
921: RAISE fnd_api.g_exc_error;
922: END IF;
923:
924: build_instance_query_rec(
925: p_query_criteria => 'SOURCE',
930: p_item_attr_rec => p_item_attr_rec,
931: x_instance_query_rec => l_instance_query_rec,
932: x_return_status => l_return_status);
933:
934: IF l_return_status <> fnd_api.g_ret_sts_success THEN
935: RAISE fnd_api.g_exc_error;
936: END IF;
937:
938: csi_item_instance_pub.get_item_instances(
931: x_instance_query_rec => l_instance_query_rec,
932: x_return_status => l_return_status);
933:
934: IF l_return_status <> fnd_api.g_ret_sts_success THEN
935: RAISE fnd_api.g_exc_error;
936: END IF;
937:
938: csi_item_instance_pub.get_item_instances(
939: p_api_version => 1.0,
936: END IF;
937:
938: csi_item_instance_pub.get_item_instances(
939: p_api_version => 1.0,
940: p_commit => fnd_api.g_false,
941: p_init_msg_list => fnd_api.g_true,
942: p_validation_level => fnd_api.g_valid_level_full,
943: p_instance_query_rec => l_instance_query_rec,
944: p_party_query_rec => l_party_query_rec,
937:
938: csi_item_instance_pub.get_item_instances(
939: p_api_version => 1.0,
940: p_commit => fnd_api.g_false,
941: p_init_msg_list => fnd_api.g_true,
942: p_validation_level => fnd_api.g_valid_level_full,
943: p_instance_query_rec => l_instance_query_rec,
944: p_party_query_rec => l_party_query_rec,
945: p_account_query_rec => l_pty_acct_query_rec,
938: csi_item_instance_pub.get_item_instances(
939: p_api_version => 1.0,
940: p_commit => fnd_api.g_false,
941: p_init_msg_list => fnd_api.g_true,
942: p_validation_level => fnd_api.g_valid_level_full,
943: p_instance_query_rec => l_instance_query_rec,
944: p_party_query_rec => l_party_query_rec,
945: p_account_query_rec => l_pty_acct_query_rec,
946: p_transaction_id => NULL,
943: p_instance_query_rec => l_instance_query_rec,
944: p_party_query_rec => l_party_query_rec,
945: p_account_query_rec => l_pty_acct_query_rec,
946: p_transaction_id => NULL,
947: p_resolve_id_columns => fnd_api.g_false,
948: p_active_instance_only => fnd_api.g_false,
949: x_instance_header_tbl => l_instance_header_tbl,
950: x_return_status => l_return_status,
951: x_msg_count => l_msg_count,
944: p_party_query_rec => l_party_query_rec,
945: p_account_query_rec => l_pty_acct_query_rec,
946: p_transaction_id => NULL,
947: p_resolve_id_columns => fnd_api.g_false,
948: p_active_instance_only => fnd_api.g_false,
949: x_instance_header_tbl => l_instance_header_tbl,
950: x_return_status => l_return_status,
951: x_msg_count => l_msg_count,
952: x_msg_data => l_msg_data );
950: x_return_status => l_return_status,
951: x_msg_count => l_msg_count,
952: x_msg_data => l_msg_data );
953:
954: IF l_return_status <> fnd_api.g_ret_sts_success THEN
955: RAISE fnd_api.g_exc_error;
956: END IF;
957:
958: l_change_owner := p_sub_type_rec.src_change_owner;
951: x_msg_count => l_msg_count,
952: x_msg_data => l_msg_data );
953:
954: IF l_return_status <> fnd_api.g_ret_sts_success THEN
955: RAISE fnd_api.g_exc_error;
956: END IF;
957:
958: l_change_owner := p_sub_type_rec.src_change_owner;
959: l_owner_to_code := p_sub_type_rec.src_change_owner_to_code;
961: debug('Instance table count :'||l_instance_header_tbl.COUNT);
962:
963: IF l_instance_header_tbl.COUNT = 0 THEN
964:
965: x_instance_id := fnd_api.g_miss_num;
966:
967: /* here are the conditions where instance ref is reqd If a reference */
968: /* cannot be obtained then it is an error condition. Either the query */
969: /* criteria (Item, Rev, Org, Subinv, Locator, Lot Num, Serial Num) is */
973: /* issue to projects /issue to wip job/misc issue/wip comp return */
974: IF p_in_out_flag = 'INT' and l_change_owner = 'N' THEN
975:
976: /* wip comp return */
977: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'WIP' THEN
978: x_instance_id := fnd_api.g_miss_num;
979:
980: ELSE
981: /* wip comp issue or for anything the source is inventory */
974: IF p_in_out_flag = 'INT' and l_change_owner = 'N' THEN
975:
976: /* wip comp return */
977: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'WIP' THEN
978: x_instance_id := fnd_api.g_miss_num;
979:
980: ELSE
981: /* wip comp issue or for anything the source is inventory */
982: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'INVENTORY' THEN
978: x_instance_id := fnd_api.g_miss_num;
979:
980: ELSE
981: /* wip comp issue or for anything the source is inventory */
982: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'INVENTORY' THEN
983: get_negative_code(
984: p_organization_id => p_instance_rec.inv_organization_id,
985: x_negative_code => l_negative_code,
986: x_return_status => l_return_status);
983: get_negative_code(
984: p_organization_id => p_instance_rec.inv_organization_id,
985: x_negative_code => l_negative_code,
986: x_return_status => l_return_status);
987: IF l_return_status <> fnd_api.g_ret_sts_success THEN
988: raise fnd_api.g_exc_error;
989: END IF;
990: -- for wip comp issue override it with the backflush profile value
991: IF l_negative_code = 2 AND p_transaction_rec.transaction_type_id = 71 THEN
984: p_organization_id => p_instance_rec.inv_organization_id,
985: x_negative_code => l_negative_code,
986: x_return_status => l_return_status);
987: IF l_return_status <> fnd_api.g_ret_sts_success THEN
988: raise fnd_api.g_exc_error;
989: END IF;
990: -- for wip comp issue override it with the backflush profile value
991: IF l_negative_code = 2 AND p_transaction_rec.transaction_type_id = 71 THEN
992: l_negative_code := nvl(fnd_profile.value('inv_override_neg_for_backflush'), 2);
997: p_instance_rec => p_instance_rec,
998: p_txn_rec => p_transaction_rec,
999: x_instance_id => x_instance_id,
1000: x_return_status => l_return_status);
1001: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1002: RAISE fnd_api.g_exc_error;
1003: END IF;
1004: ELSE
1005: raise instance_not_found;
998: p_txn_rec => p_transaction_rec,
999: x_instance_id => x_instance_id,
1000: x_return_status => l_return_status);
1001: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1002: RAISE fnd_api.g_exc_error;
1003: END IF;
1004: ELSE
1005: raise instance_not_found;
1006: END IF;
1016:
1017: IF l_change_owner = 'N' THEN
1018:
1019: -- exclude misc receipt (source location attributes are null)
1020: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
1021: OR
1022: nvl(p_instance_rec.location_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1023: OR
1024: nvl(p_instance_rec.inv_organization_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1018:
1019: -- exclude misc receipt (source location attributes are null)
1020: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
1021: OR
1022: nvl(p_instance_rec.location_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1023: OR
1024: nvl(p_instance_rec.inv_organization_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1025: OR
1026: nvl(p_instance_rec.inv_subinventory_name, fnd_api.g_miss_char)<> fnd_api.g_miss_char
1020: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
1021: OR
1022: nvl(p_instance_rec.location_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1023: OR
1024: nvl(p_instance_rec.inv_organization_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1025: OR
1026: nvl(p_instance_rec.inv_subinventory_name, fnd_api.g_miss_char)<> fnd_api.g_miss_char
1027: THEN
1028: -- if it is return for repair from customer and item is serialized and
1022: nvl(p_instance_rec.location_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1023: OR
1024: nvl(p_instance_rec.inv_organization_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1025: OR
1026: nvl(p_instance_rec.inv_subinventory_name, fnd_api.g_miss_char)<> fnd_api.g_miss_char
1027: THEN
1028: -- if it is return for repair from customer and item is serialized and
1029: -- the CSI Profile to process the txn is set to 'Y' then a source instance is not required
1030: -- Added this for the ER 2482219. Return for repair
1039: AND
1040: nvl(l_pty_override_flag, 'N') = 'Y'
1041: THEN
1042: debug(' return for repair and no instance found:: marking for create');
1043: x_instance_id := fnd_api.g_miss_num;
1044: ELSE
1045: /* for subinventory transfer the source instance ref is required */
1046: raise instance_not_found;
1047: END IF;
1046: raise instance_not_found;
1047: END IF;
1048: ELSE
1049: /* for miscellaneous receipt source instance is not required */
1050: x_instance_id := fnd_api.g_miss_num;
1051: END IF;
1052:
1053: /* receipt in from customer - return for credit case */
1054: ELSIF l_change_owner = 'Y' THEN
1051: END IF;
1052:
1053: /* receipt in from customer - return for credit case */
1054: ELSIF l_change_owner = 'Y' THEN
1055: x_instance_id := fnd_api.g_miss_num;
1056: END IF;
1057:
1058: END IF;
1059:
1063: /* this logic is added to fix bug 2260019. This is the case when onhand balance is 0
1064: and there is no instance in ib as source and the inv org allows negative balances
1065: when the quantity goes to -ive create a 0 qty instance and use it to decrement qty
1066: */
1067: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'INVENTORY' THEN
1068: get_negative_code(
1069: p_organization_id => p_instance_rec.inv_organization_id,
1070: x_negative_code => l_negative_code,
1071: x_return_status => l_return_status);
1068: get_negative_code(
1069: p_organization_id => p_instance_rec.inv_organization_id,
1070: x_negative_code => l_negative_code,
1071: x_return_status => l_return_status);
1072: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1073: raise fnd_api.g_exc_error;
1074: END IF;
1075: IF l_negative_code = 1 and p_item_attr_rec.src_serial_control_flag = 'N' THEN
1076: debug('Org allows negative quantities. So creating an instance with 0 quantity.');
1069: p_organization_id => p_instance_rec.inv_organization_id,
1070: x_negative_code => l_negative_code,
1071: x_return_status => l_return_status);
1072: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1073: raise fnd_api.g_exc_error;
1074: END IF;
1075: IF l_negative_code = 1 and p_item_attr_rec.src_serial_control_flag = 'N' THEN
1076: debug('Org allows negative quantities. So creating an instance with 0 quantity.');
1077: csi_process_txn_pvt.create_zero_qty_instance(
1078: p_instance_rec => p_instance_rec,
1079: p_txn_rec => p_transaction_rec,
1080: x_instance_id => x_instance_id,
1081: x_return_status => l_return_status);
1082: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1083: RAISE fnd_api.g_exc_error;
1084: END IF;
1085: ELSE
1086: raise instance_not_found;
1079: p_txn_rec => p_transaction_rec,
1080: x_instance_id => x_instance_id,
1081: x_return_status => l_return_status);
1082: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1083: RAISE fnd_api.g_exc_error;
1084: END IF;
1085: ELSE
1086: raise instance_not_found;
1087: END IF;
1096:
1097: /* doing this because the wip instance can be returned even if there is no
1098: quantity in WIP -- srini knows the scenario
1099: */
1100: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'WIP'
1101: AND l_instance_header_tbl(1).quantity = 0 THEN
1102: x_instance_id := fnd_api.g_miss_num;
1103: END IF;
1104:
1098: quantity in WIP -- srini knows the scenario
1099: */
1100: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'WIP'
1101: AND l_instance_header_tbl(1).quantity = 0 THEN
1102: x_instance_id := fnd_api.g_miss_num;
1103: END IF;
1104:
1105: ELSE --[Multiple instances found]
1106:
1105: ELSE --[Multiple instances found]
1106:
1107: /* receive from customer */
1108: IF p_in_out_flag = 'IN' and l_change_owner = 'Y' THEN
1109: x_instance_id := fnd_api.g_miss_num;
1110: ELSE
1111: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1112: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
1113: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
1113: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
1114: fnd_message.set_token('SUBINV',p_instance_rec.inv_subinventory_name);
1115: fnd_message.set_token('LOCATOR',p_instance_rec.inv_locator_id);
1116: fnd_msg_pub.add;
1117: RAISE fnd_api.g_exc_error;
1118: END IF;
1119:
1120: END IF;
1121:
1120: END IF;
1121:
1122: EXCEPTION
1123: WHEN skip_instance_search THEN
1124: x_return_status := fnd_api.g_ret_sts_success;
1125: WHEN instance_not_found THEN
1126: fnd_message.set_name('CSI','CSI_TXN_INST_NOT_FOUND');
1127: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
1128: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
1126: fnd_message.set_name('CSI','CSI_TXN_INST_NOT_FOUND');
1127: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
1128: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
1129: fnd_msg_pub.add;
1130: x_return_status := fnd_api.g_ret_sts_error;
1131:
1132: WHEN fnd_api.g_exc_error THEN
1133: x_return_status := fnd_api.g_ret_sts_error;
1134: END get_src_instance_id;
1128: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
1129: fnd_msg_pub.add;
1130: x_return_status := fnd_api.g_ret_sts_error;
1131:
1132: WHEN fnd_api.g_exc_error THEN
1133: x_return_status := fnd_api.g_ret_sts_error;
1134: END get_src_instance_id;
1135:
1136:
1129: fnd_msg_pub.add;
1130: x_return_status := fnd_api.g_ret_sts_error;
1131:
1132: WHEN fnd_api.g_exc_error THEN
1133: x_return_status := fnd_api.g_ret_sts_error;
1134: END get_src_instance_id;
1135:
1136:
1137: PROCEDURE get_dest_instance_id(
1154: l_owner_to_code varchar2(1);
1155:
1156: instance_not_found exception;
1157:
1158: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1159: l_msg_count number;
1160: l_msg_data varchar2(2000);
1161:
1162: BEGIN
1164: csi_t_gen_utility_pvt.dump_api_info(
1165: p_pkg_name => g_pkg_name,
1166: p_api_name => 'get_dest_instance_id');
1167:
1168: x_return_status := fnd_api.g_ret_sts_success;
1169:
1170: build_instance_query_rec(
1171: p_query_criteria => 'DESTINATION',
1172: p_in_out_flag => p_in_out_flag,
1176: p_item_attr_rec => p_item_attr_rec,
1177: x_instance_query_rec => l_instance_query_rec,
1178: x_return_status => l_return_status);
1179:
1180: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1181: RAISE fnd_api.g_exc_error;
1182: END IF;
1183:
1184: csi_t_gen_utility_pvt.dump_api_info(
1177: x_instance_query_rec => l_instance_query_rec,
1178: x_return_status => l_return_status);
1179:
1180: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1181: RAISE fnd_api.g_exc_error;
1182: END IF;
1183:
1184: csi_t_gen_utility_pvt.dump_api_info(
1185: p_pkg_name => 'csi_item_instance_pub',
1186: p_api_name => 'get_item_instances');
1187:
1188: csi_item_instance_pub.get_item_instances(
1189: p_api_version => 1.0,
1190: p_commit => fnd_api.g_false,
1191: p_init_msg_list => fnd_api.g_true,
1192: p_validation_level => fnd_api.g_valid_level_full,
1193: p_instance_query_rec => l_instance_query_rec,
1194: p_party_query_rec => l_party_query_rec,
1187:
1188: csi_item_instance_pub.get_item_instances(
1189: p_api_version => 1.0,
1190: p_commit => fnd_api.g_false,
1191: p_init_msg_list => fnd_api.g_true,
1192: p_validation_level => fnd_api.g_valid_level_full,
1193: p_instance_query_rec => l_instance_query_rec,
1194: p_party_query_rec => l_party_query_rec,
1195: p_account_query_rec => l_pty_acct_query_rec,
1188: csi_item_instance_pub.get_item_instances(
1189: p_api_version => 1.0,
1190: p_commit => fnd_api.g_false,
1191: p_init_msg_list => fnd_api.g_true,
1192: p_validation_level => fnd_api.g_valid_level_full,
1193: p_instance_query_rec => l_instance_query_rec,
1194: p_party_query_rec => l_party_query_rec,
1195: p_account_query_rec => l_pty_acct_query_rec,
1196: p_transaction_id => NULL,
1193: p_instance_query_rec => l_instance_query_rec,
1194: p_party_query_rec => l_party_query_rec,
1195: p_account_query_rec => l_pty_acct_query_rec,
1196: p_transaction_id => NULL,
1197: p_resolve_id_columns => fnd_api.g_false,
1198: p_active_instance_only => fnd_api.g_false,
1199: x_instance_header_tbl => l_instance_header_tbl,
1200: x_return_status => l_return_status,
1201: x_msg_count => l_msg_count,
1194: p_party_query_rec => l_party_query_rec,
1195: p_account_query_rec => l_pty_acct_query_rec,
1196: p_transaction_id => NULL,
1197: p_resolve_id_columns => fnd_api.g_false,
1198: p_active_instance_only => fnd_api.g_false,
1199: x_instance_header_tbl => l_instance_header_tbl,
1200: x_return_status => l_return_status,
1201: x_msg_count => l_msg_count,
1202: x_msg_data => l_msg_data );
1200: x_return_status => l_return_status,
1201: x_msg_count => l_msg_count,
1202: x_msg_data => l_msg_data );
1203:
1204: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1205: RAISE fnd_api.g_exc_error;
1206: END IF;
1207:
1208: l_change_owner := p_sub_type_rec.src_change_owner;
1201: x_msg_count => l_msg_count,
1202: x_msg_data => l_msg_data );
1203:
1204: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1205: RAISE fnd_api.g_exc_error;
1206: END IF;
1207:
1208: l_change_owner := p_sub_type_rec.src_change_owner;
1209: l_owner_to_code := p_sub_type_rec.src_change_owner_to_code;
1211: debug('Instance table count :'||l_instance_header_tbl.COUNT);
1212:
1213: IF l_instance_header_tbl.COUNT = 0 THEN
1214:
1215: x_instance_id := fnd_api.g_miss_num;
1216:
1217: ELSIF l_instance_header_tbl.COUNT = 1 THEN
1218: x_instance_id := l_instance_header_tbl(1).instance_id;
1219: ELSE
1224: fnd_message.set_token('SUBINV',p_dest_location_rec.inv_subinventory_name);
1225: fnd_message.set_token('LOCATOR',p_dest_location_rec.inv_locator_id);
1226:
1227: fnd_msg_pub.add;
1228: RAISE fnd_api.g_exc_error;
1229:
1230: END IF;
1231:
1232: EXCEPTION
1234: fnd_message.set_name('CSI','CSI_TXN_INST_NOT_FOUND');
1235: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
1236: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
1237: fnd_msg_pub.add;
1238: x_return_status := fnd_api.g_ret_sts_error;
1239:
1240: WHEN fnd_api.g_exc_error THEN
1241: x_return_status := fnd_api.g_ret_sts_error;
1242: END get_dest_instance_id;
1236: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
1237: fnd_msg_pub.add;
1238: x_return_status := fnd_api.g_ret_sts_error;
1239:
1240: WHEN fnd_api.g_exc_error THEN
1241: x_return_status := fnd_api.g_ret_sts_error;
1242: END get_dest_instance_id;
1243:
1244:
1237: fnd_msg_pub.add;
1238: x_return_status := fnd_api.g_ret_sts_error;
1239:
1240: WHEN fnd_api.g_exc_error THEN
1241: x_return_status := fnd_api.g_ret_sts_error;
1242: END get_dest_instance_id;
1243:
1244:
1245: /* ---------------------------------------------------------------------*/
1260: l_instance_rec csi_datastructures_pub.instance_rec;
1261: l_process_mode varchar2(30);
1262: BEGIN
1263:
1264: x_return_status := fnd_api.g_ret_sts_success;
1265:
1266: l_instance_rec.instance_id := p_instance_rec.instance_id;
1267:
1268: /* the derived instance id would be in the new_instance_id column */
1265:
1266: l_instance_rec.instance_id := p_instance_rec.instance_id;
1267:
1268: /* the derived instance id would be in the new_instance_id column */
1269: IF nvl(p_instance_rec.instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
1270: l_instance_rec.instance_id := p_instance_rec.new_instance_id;
1271: END IF;
1272:
1273: IF nvl(l_instance_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
1269: IF nvl(p_instance_rec.instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
1270: l_instance_rec.instance_id := p_instance_rec.new_instance_id;
1271: END IF;
1272:
1273: IF nvl(l_instance_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
1274: l_process_mode := 'UPDATE';
1275: ELSE
1276: l_process_mode := 'CREATE';
1277: END IF;
1358: END IF;
1359:
1360: IF p_item_attr_rec.src_serial_control_flag = 'Y' AND
1361: p_item_attr_rec.dst_serial_control_flag = 'Y' THEN
1362: IF nvl(l_instance_rec.instance_status_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
1363: l_instance_rec.instance_status_id := p_sub_type_rec.src_status_id;
1364: END IF;
1365: END IF;
1366:
1367: x_instance_rec := l_instance_rec;
1368: x_process_mode := l_process_mode;
1369:
1370: EXCEPTION
1371: WHEN fnd_api.g_exc_error THEN
1372: x_return_status := fnd_api.g_ret_sts_error;
1373: END build_instance_rec;
1374:
1375:
1368: x_process_mode := l_process_mode;
1369:
1370: EXCEPTION
1371: WHEN fnd_api.g_exc_error THEN
1372: x_return_status := fnd_api.g_ret_sts_error;
1373: END build_instance_rec;
1374:
1375:
1376: /* --------------------------------------------------------------------- */
1840: l_pricing_tbl csi_datastructures_pub.pricing_attribs_tbl;
1841: l_assets_tbl csi_datastructures_pub.instance_asset_tbl;
1842:
1843: l_debug_level number;
1844: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1845: l_msg_count number;
1846: l_msg_data varchar2(2000);
1847:
1848: l_location_type_code varchar2(30);
1849: l_instance_expire_flag boolean := FALSE;
1850:
1851: BEGIN
1852:
1853: x_return_status := fnd_api.g_ret_sts_success;
1854:
1855: api_log('get_ids_for_instance');
1856:
1857: l_location_type_code := p_instance_rec.location_type_code;
1855: api_log('get_ids_for_instance');
1856:
1857: l_location_type_code := p_instance_rec.location_type_code;
1858:
1859: IF nvl(l_location_type_code,fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
1860: SELECT location_type_code
1861: INTO l_location_type_code
1862: FROM csi_item_instances
1863: WHERE instance_id = p_instance_rec.instance_id;
1884: AND nvl(active_end_date, sysdate+1);
1885:
1886: ELSE
1887:
1888: p_parties_tbl(l_ind).instance_party_id := fnd_api.g_miss_num;
1889: p_parties_tbl(l_ind).object_version_number := 1;
1890:
1891: END IF;
1892:
1913: AND nvl(active_end_date, sysdate+1);
1914:
1915: EXCEPTION
1916: WHEN no_data_found THEN
1917: p_pty_accts_tbl(l_a_ind).ip_account_id := fnd_api.g_miss_num;
1918: p_pty_accts_tbl(l_a_ind).object_version_number := 1;
1919: END;
1920: ELSE
1921: p_pty_accts_tbl(l_a_ind).ip_account_id := fnd_api.g_miss_num;
1917: p_pty_accts_tbl(l_a_ind).ip_account_id := fnd_api.g_miss_num;
1918: p_pty_accts_tbl(l_a_ind).object_version_number := 1;
1919: END;
1920: ELSE
1921: p_pty_accts_tbl(l_a_ind).ip_account_id := fnd_api.g_miss_num;
1922: p_pty_accts_tbl(l_a_ind).object_version_number := 1;
1923: END IF;
1924:
1925: debug(' IP Account ID :'||p_pty_accts_tbl(l_a_ind).ip_account_id);
1929: END IF;
1930:
1931: EXCEPTION
1932: WHEN no_data_found THEN
1933: p_parties_tbl(l_ind).instance_party_id := fnd_api.g_miss_num;
1934: END;
1935:
1936: END LOOP;
1937: END IF;
1952: AND nvl(active_end_date, sysdate+1);
1953:
1954: EXCEPTION
1955: WHEN no_data_found THEN
1956: p_org_units_tbl(l_ind).operating_unit_id := fnd_api.g_miss_num;
1957: p_org_units_tbl(l_ind).object_version_number := 1;
1958: END;
1959: END LOOP;
1960: END IF;
1974: AND fa_book_type_code = p_assets_tbl(l_ind).fa_book_type_code
1975: AND rownum = 1;
1976: EXCEPTION
1977: WHEN no_data_found THEN
1978: p_assets_tbl(l_ind).instance_asset_id := fnd_api.g_miss_num;
1979: p_assets_tbl(l_ind).object_version_number := 1;
1980: END;
1981: END LOOP;
1982: END IF;
2077: l_instance_party_id number;
2078: l_object_version_number number;
2079: BEGIN
2080:
2081: x_return_status := fnd_api.g_ret_sts_success;
2082:
2083: api_log('get_internal_party_tbl');
2084:
2085: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
2100: p_parties_tbl(1).relationship_type_code:= 'OWNER';
2101: p_parties_tbl(1).contact_flag := 'N';
2102:
2103: EXCEPTION
2104: WHEN fnd_api.g_exc_error THEN
2105: x_return_status := fnd_api.g_ret_sts_error;
2106: END get_internal_party_tbl;
2107:
2108: -- unexpire the instance
2101: p_parties_tbl(1).contact_flag := 'N';
2102:
2103: EXCEPTION
2104: WHEN fnd_api.g_exc_error THEN
2105: x_return_status := fnd_api.g_ret_sts_error;
2106: END get_internal_party_tbl;
2107:
2108: -- unexpire the instance
2109: -- code modification for 3681856;parameter added to determine whether or not to invoke contracts API
2108: -- unexpire the instance
2109: -- code modification for 3681856;parameter added to determine whether or not to invoke contracts API
2110: PROCEDURE unexpire_instance(
2111: p_instance_id IN number,
2112: p_call_contracts IN varchar2 := fnd_api.g_true,
2113: p_transaction_rec IN OUT nocopy csi_datastructures_pub.transaction_rec,
2114: x_return_status OUT nocopy varchar2)
2115: IS
2116: l_u_instance_rec csi_datastructures_pub.instance_rec;
2121: l_u_pricing_tbl csi_datastructures_pub.pricing_attribs_tbl;
2122: l_u_assets_tbl csi_datastructures_pub.instance_asset_tbl;
2123: l_instance_ids_list csi_datastructures_pub.id_tbl;
2124:
2125: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2126: l_msg_count number;
2127: l_msg_data varchar2(2000);
2128: BEGIN
2129:
2126: l_msg_count number;
2127: l_msg_data varchar2(2000);
2128: BEGIN
2129:
2130: x_return_status := fnd_api.g_ret_sts_success;
2131: api_log('unexpire_instance');
2132:
2133: IF nvl(p_instance_id , fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
2134:
2129:
2130: x_return_status := fnd_api.g_ret_sts_success;
2131: api_log('unexpire_instance');
2132:
2133: IF nvl(p_instance_id , fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
2134:
2135: l_u_instance_rec.instance_id := p_instance_id;
2136: l_u_instance_rec.active_end_date := null;
2137: l_u_instance_rec.call_contracts := p_call_contracts;
2149:
2150: -- unexpire instance call.
2151: csi_item_instance_pub.update_item_instance(
2152: p_api_version => 1.0,
2153: p_commit => fnd_api.g_false,
2154: p_init_msg_list => fnd_api.g_true,
2155: p_validation_level => fnd_api.g_valid_level_full,
2156: p_instance_rec => l_u_instance_rec,
2157: p_party_tbl => l_u_parties_tbl,
2150: -- unexpire instance call.
2151: csi_item_instance_pub.update_item_instance(
2152: p_api_version => 1.0,
2153: p_commit => fnd_api.g_false,
2154: p_init_msg_list => fnd_api.g_true,
2155: p_validation_level => fnd_api.g_valid_level_full,
2156: p_instance_rec => l_u_instance_rec,
2157: p_party_tbl => l_u_parties_tbl,
2158: p_account_tbl => l_u_pty_accts_tbl,
2151: csi_item_instance_pub.update_item_instance(
2152: p_api_version => 1.0,
2153: p_commit => fnd_api.g_false,
2154: p_init_msg_list => fnd_api.g_true,
2155: p_validation_level => fnd_api.g_valid_level_full,
2156: p_instance_rec => l_u_instance_rec,
2157: p_party_tbl => l_u_parties_tbl,
2158: p_account_tbl => l_u_pty_accts_tbl,
2159: p_org_assignments_tbl => l_u_org_units_tbl,
2166: x_msg_count => l_msg_count,
2167: x_msg_data => l_msg_data);
2168:
2169: -- For Bug 4057183
2170: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2171: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2172: RAISE fnd_api.g_exc_error;
2173: END IF;
2174: END IF;
2167: x_msg_data => l_msg_data);
2168:
2169: -- For Bug 4057183
2170: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2171: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2172: RAISE fnd_api.g_exc_error;
2173: END IF;
2174: END IF;
2175: EXCEPTION
2168:
2169: -- For Bug 4057183
2170: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2171: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2172: RAISE fnd_api.g_exc_error;
2173: END IF;
2174: END IF;
2175: EXCEPTION
2176: WHEN fnd_api.g_exc_error THEN
2172: RAISE fnd_api.g_exc_error;
2173: END IF;
2174: END IF;
2175: EXCEPTION
2176: WHEN fnd_api.g_exc_error THEN
2177: x_return_status := fnd_api.g_ret_sts_error;
2178: END unexpire_instance;
2179:
2180: PROCEDURE preserve_ownership(
2173: END IF;
2174: END IF;
2175: EXCEPTION
2176: WHEN fnd_api.g_exc_error THEN
2177: x_return_status := fnd_api.g_ret_sts_error;
2178: END unexpire_instance;
2179:
2180: PROCEDURE preserve_ownership(
2181: p_item_attr_rec IN csi_process_txn_pvt.item_attr_rec,
2190: l_pty_accts_tbl csi_datastructures_pub.party_account_tbl;
2191: l_pa_ind binary_integer := 0;
2192: BEGIN
2193:
2194: x_return_status := fnd_api.g_ret_sts_success;
2195: api_log('preserve_ownership');
2196:
2197: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
2198:
2195: api_log('preserve_ownership');
2196:
2197: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
2198:
2199: IF nvl(p_instance_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
2200:
2201: IF p_item_attr_rec.src_serial_control_flag = 'Y' AND
2202: p_item_attr_rec.dst_serial_control_flag = 'Y'
2203: THEN
2347: l_config_return varchar2(1) := 'N';
2348:
2349: l_current_procedure varchar2(30);
2350: l_debug_level number;
2351: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2352: l_msg_count number;
2353: l_msg_data varchar2(2000);
2354:
2355: BEGIN
2353: l_msg_data varchar2(2000);
2354:
2355: BEGIN
2356:
2357: x_return_status := fnd_api.g_ret_sts_success;
2358: l_debug_level := csi_t_gen_utility_pvt.g_debug_level;
2359:
2360: /* debug messages */
2361:
2392: x_instance_rec => l_instance_rec,
2393: x_process_mode => l_process_mode,
2394: x_return_status => l_return_status);
2395:
2396: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2397: RAISE fnd_api.g_exc_error;
2398: END IF;
2399:
2400: l_current_procedure := 'build_parties_for_index';
2393: x_process_mode => l_process_mode,
2394: x_return_status => l_return_status);
2395:
2396: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2397: RAISE fnd_api.g_exc_error;
2398: END IF;
2399:
2400: l_current_procedure := 'build_parties_for_index';
2401:
2410: x_return_status => l_return_status);
2411:
2412: debug('Processing instance x pty tbl count'|| l_parties_tbl.count||'x accts tbl'||l_pty_accts_tbl.count);
2413:
2414: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2415: RAISE fnd_api.g_exc_error;
2416: END IF;
2417:
2418: l_current_procedure := 'build_org_units_for_index';
2411:
2412: debug('Processing instance x pty tbl count'|| l_parties_tbl.count||'x accts tbl'||l_pty_accts_tbl.count);
2413:
2414: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2415: RAISE fnd_api.g_exc_error;
2416: END IF;
2417:
2418: l_current_procedure := 'build_org_units_for_index';
2419:
2422: p_org_units_tbl => p_org_units_tbl,
2423: x_org_units_tbl => l_org_units_tbl,
2424: x_return_status => l_return_status);
2425:
2426: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2427: RAISE fnd_api.g_exc_error;
2428: END IF;
2429:
2430: l_current_procedure := 'build_ext_vals_for_index';
2423: x_org_units_tbl => l_org_units_tbl,
2424: x_return_status => l_return_status);
2425:
2426: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2427: RAISE fnd_api.g_exc_error;
2428: END IF;
2429:
2430: l_current_procedure := 'build_ext_vals_for_index';
2431:
2434: p_ext_attrib_vals_tbl => p_ext_attrib_vals_tbl,
2435: x_ea_values_tbl => l_ea_values_tbl,
2436: x_return_status => l_return_status);
2437:
2438: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2439: RAISE fnd_api.g_exc_error;
2440: END IF;
2441:
2442: l_current_procedure := 'build_price_tbl_for_index';
2435: x_ea_values_tbl => l_ea_values_tbl,
2436: x_return_status => l_return_status);
2437:
2438: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2439: RAISE fnd_api.g_exc_error;
2440: END IF;
2441:
2442: l_current_procedure := 'build_price_tbl_for_index';
2443:
2446: p_pricing_attribs_tbl => p_pricing_attribs_tbl,
2447: x_pricing_tbl => l_pricing_tbl,
2448: x_return_status => l_return_status);
2449:
2450: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2451: RAISE fnd_api.g_exc_error;
2452: END IF;
2453:
2454: l_current_procedure := 'build_assets_for_index';
2447: x_pricing_tbl => l_pricing_tbl,
2448: x_return_status => l_return_status);
2449:
2450: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2451: RAISE fnd_api.g_exc_error;
2452: END IF;
2453:
2454: l_current_procedure := 'build_assets_for_index';
2455:
2458: p_instance_asset_tbl => p_instance_asset_tbl,
2459: x_assets_tbl => l_assets_tbl,
2460: x_return_status => l_return_status);
2461:
2462: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2463: RAISE fnd_api.g_exc_error;
2464: END IF;
2465:
2466: IF l_process_mode = 'CREATE' THEN
2459: x_assets_tbl => l_assets_tbl,
2460: x_return_status => l_return_status);
2461:
2462: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2463: RAISE fnd_api.g_exc_error;
2464: END IF;
2465:
2466: IF l_process_mode = 'CREATE' THEN
2467:
2478: l_instance_rec.inv_subinventory_name := p_dest_location_rec.inv_subinventory_name;
2479: l_instance_rec.inv_locator_id := p_dest_location_rec.inv_locator_id;
2480: l_instance_rec.active_end_date := null;
2481: l_instance_rec.last_oe_rma_line_id := p_instance_rec.last_oe_rma_line_id;
2482: IF nvl(p_dest_location_rec.instance_usage_code, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
2483: l_instance_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
2484: ELSE
2485: l_instance_rec.instance_usage_code := p_dest_location_rec.instance_usage_code;
2486: END IF;
2496:
2497: -- create destination instance (when there is only creation of destination)
2498: csi_item_instance_pub.create_item_instance(
2499: p_api_version => 1.0,
2500: p_commit => fnd_api.g_false,
2501: p_init_msg_list => fnd_api.g_true,
2502: p_validation_level => fnd_api.g_valid_level_full,
2503: p_instance_rec => l_instance_rec,
2504: p_party_tbl => l_parties_tbl,
2497: -- create destination instance (when there is only creation of destination)
2498: csi_item_instance_pub.create_item_instance(
2499: p_api_version => 1.0,
2500: p_commit => fnd_api.g_false,
2501: p_init_msg_list => fnd_api.g_true,
2502: p_validation_level => fnd_api.g_valid_level_full,
2503: p_instance_rec => l_instance_rec,
2504: p_party_tbl => l_parties_tbl,
2505: p_account_tbl => l_pty_accts_tbl,
2498: csi_item_instance_pub.create_item_instance(
2499: p_api_version => 1.0,
2500: p_commit => fnd_api.g_false,
2501: p_init_msg_list => fnd_api.g_true,
2502: p_validation_level => fnd_api.g_valid_level_full,
2503: p_instance_rec => l_instance_rec,
2504: p_party_tbl => l_parties_tbl,
2505: p_account_tbl => l_pty_accts_tbl,
2506: p_org_assignments_tbl => l_org_units_tbl,
2512: x_msg_count => l_msg_count,
2513: x_msg_data => l_msg_data );
2514:
2515: -- For Bug 4057183
2516: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2517: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2518: RAISE fnd_api.g_exc_error;
2519: END IF;
2520:
2513: x_msg_data => l_msg_data );
2514:
2515: -- For Bug 4057183
2516: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2517: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2518: RAISE fnd_api.g_exc_error;
2519: END IF;
2520:
2521: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
2514:
2515: -- For Bug 4057183
2516: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2517: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2518: RAISE fnd_api.g_exc_error;
2519: END IF;
2520:
2521: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
2522:
2539: p_item_attr_rec => p_item_attr_rec,
2540: x_instance_id => l_dest_instance_id,
2541: x_return_status => l_return_status);
2542:
2543: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2544: debug('csi_process_txn_pvt.get_dest_instance_id Failed.');
2545: RAISE fnd_api.g_exc_error;
2546: END IF;
2547:
2541: x_return_status => l_return_status);
2542:
2543: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2544: debug('csi_process_txn_pvt.get_dest_instance_id Failed.');
2545: RAISE fnd_api.g_exc_error;
2546: END IF;
2547:
2548: IF nvl(l_dest_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
2549:
2544: debug('csi_process_txn_pvt.get_dest_instance_id Failed.');
2545: RAISE fnd_api.g_exc_error;
2546: END IF;
2547:
2548: IF nvl(l_dest_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
2549:
2550: debug('Destination instance not found. So Creating one.');
2551:
2552: l_instance_rec.location_type_code := p_dest_location_rec.location_type_code;
2566: l_instance_rec.instance_usage_code := 'IN_WIP';
2567: END IF;
2568:
2569: -- 4524712 viasat and xerox
2570: IF nvl(p_dest_location_rec.wip_job_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
2571: l_instance_rec.wip_job_id := p_dest_location_rec.wip_job_id;
2572: END IF;
2573:
2574: IF p_item_attr_rec.dst_serial_control_flag = 'N' THEN
2572: END IF;
2573:
2574: IF p_item_attr_rec.dst_serial_control_flag = 'N' THEN
2575: l_instance_rec.mfg_serial_number_flag := 'N';
2576: l_instance_rec.serial_number := fnd_api.g_miss_char;
2577: ELSE
2578: l_instance_rec.return_by_date := p_instance_rec.return_by_date;
2579: l_instance_rec.actual_return_date := p_instance_rec.actual_return_date;
2580: END IF;
2588: p_api_name => 'create_item_instance');
2589:
2590: csi_item_instance_pub.create_item_instance(
2591: p_api_version => 1.0,
2592: p_commit => fnd_api.g_false,
2593: p_init_msg_list => fnd_api.g_true,
2594: p_validation_level => fnd_api.g_valid_level_full,
2595: p_instance_rec => l_instance_rec,
2596: p_party_tbl => l_parties_tbl,
2589:
2590: csi_item_instance_pub.create_item_instance(
2591: p_api_version => 1.0,
2592: p_commit => fnd_api.g_false,
2593: p_init_msg_list => fnd_api.g_true,
2594: p_validation_level => fnd_api.g_valid_level_full,
2595: p_instance_rec => l_instance_rec,
2596: p_party_tbl => l_parties_tbl,
2597: p_account_tbl => l_pty_accts_tbl,
2590: csi_item_instance_pub.create_item_instance(
2591: p_api_version => 1.0,
2592: p_commit => fnd_api.g_false,
2593: p_init_msg_list => fnd_api.g_true,
2594: p_validation_level => fnd_api.g_valid_level_full,
2595: p_instance_rec => l_instance_rec,
2596: p_party_tbl => l_parties_tbl,
2597: p_account_tbl => l_pty_accts_tbl,
2598: p_org_assignments_tbl => l_org_units_tbl,
2604: x_msg_count => l_msg_count,
2605: x_msg_data => l_msg_data );
2606:
2607: -- For Bug 4057183
2608: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2609: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2610: RAISE fnd_api.g_exc_error;
2611: END IF;
2612:
2605: x_msg_data => l_msg_data );
2606:
2607: -- For Bug 4057183
2608: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2609: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2610: RAISE fnd_api.g_exc_error;
2611: END IF;
2612:
2613: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
2606:
2607: -- For Bug 4057183
2608: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2609: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2610: RAISE fnd_api.g_exc_error;
2611: END IF;
2612:
2613: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
2614:
2645: l_pty_accts_tbl.DELETE;
2646: END IF;
2647: END IF;
2648:
2649: l_instance_rec.active_start_date := fnd_api.g_miss_date;
2650: l_instance_rec.active_end_date := null;
2651:
2652: get_ids_for_instance(
2653: p_in_out_flag => p_in_out_flag,
2671: l_instance_rec.install_date := null;
2672:
2673: END IF;
2674:
2675: l_instance_rec.location_type_code := fnd_api.g_miss_char;
2676: l_instance_rec.location_id := fnd_api.g_miss_num;
2677: l_instance_rec.inv_organization_id := fnd_api.g_miss_num;
2678: l_instance_rec.inv_subinventory_name := fnd_api.g_miss_char;
2679: l_instance_rec.inv_locator_id := fnd_api.g_miss_num;
2672:
2673: END IF;
2674:
2675: l_instance_rec.location_type_code := fnd_api.g_miss_char;
2676: l_instance_rec.location_id := fnd_api.g_miss_num;
2677: l_instance_rec.inv_organization_id := fnd_api.g_miss_num;
2678: l_instance_rec.inv_subinventory_name := fnd_api.g_miss_char;
2679: l_instance_rec.inv_locator_id := fnd_api.g_miss_num;
2680: l_instance_rec.active_end_date := null;
2673: END IF;
2674:
2675: l_instance_rec.location_type_code := fnd_api.g_miss_char;
2676: l_instance_rec.location_id := fnd_api.g_miss_num;
2677: l_instance_rec.inv_organization_id := fnd_api.g_miss_num;
2678: l_instance_rec.inv_subinventory_name := fnd_api.g_miss_char;
2679: l_instance_rec.inv_locator_id := fnd_api.g_miss_num;
2680: l_instance_rec.active_end_date := null;
2681: l_instance_rec.last_oe_rma_line_id := p_instance_rec.last_oe_rma_line_id;
2674:
2675: l_instance_rec.location_type_code := fnd_api.g_miss_char;
2676: l_instance_rec.location_id := fnd_api.g_miss_num;
2677: l_instance_rec.inv_organization_id := fnd_api.g_miss_num;
2678: l_instance_rec.inv_subinventory_name := fnd_api.g_miss_char;
2679: l_instance_rec.inv_locator_id := fnd_api.g_miss_num;
2680: l_instance_rec.active_end_date := null;
2681: l_instance_rec.last_oe_rma_line_id := p_instance_rec.last_oe_rma_line_id;
2682: l_instance_rec.operational_status_code := p_dest_location_rec.operational_status_code;
2675: l_instance_rec.location_type_code := fnd_api.g_miss_char;
2676: l_instance_rec.location_id := fnd_api.g_miss_num;
2677: l_instance_rec.inv_organization_id := fnd_api.g_miss_num;
2678: l_instance_rec.inv_subinventory_name := fnd_api.g_miss_char;
2679: l_instance_rec.inv_locator_id := fnd_api.g_miss_num;
2680: l_instance_rec.active_end_date := null;
2681: l_instance_rec.last_oe_rma_line_id := p_instance_rec.last_oe_rma_line_id;
2682: l_instance_rec.operational_status_code := p_dest_location_rec.operational_status_code;
2683:
2685: l_instance_rec.instance_usage_code := 'IN_INVENTORY';
2686: ELSIF l_instance_rec.location_type_code = 'WIP' THEN
2687: l_instance_rec.instance_usage_code := 'IN_WIP';
2688: END IF;
2689: IF nvl(l_instance_rec.instance_usage_code, fnd_api.g_miss_char) = fnd_api.g_miss_char
2690: AND
2691: nvl(p_dest_location_rec.instance_usage_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
2692: THEN
2693: l_instance_rec.instance_usage_code := p_dest_location_rec.instance_usage_code;
2687: l_instance_rec.instance_usage_code := 'IN_WIP';
2688: END IF;
2689: IF nvl(l_instance_rec.instance_usage_code, fnd_api.g_miss_char) = fnd_api.g_miss_char
2690: AND
2691: nvl(p_dest_location_rec.instance_usage_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
2692: THEN
2693: l_instance_rec.instance_usage_code := p_dest_location_rec.instance_usage_code;
2694: END IF;
2695:
2694: END IF;
2695:
2696: IF p_item_attr_rec.dst_serial_control_flag = 'N' THEN
2697: l_instance_rec.mfg_serial_number_flag := 'N';
2698: l_instance_rec.serial_number := fnd_api.g_miss_char;
2699: END IF;
2700:
2701: l_current_procedure := 'update_item_instance';
2702:
2708:
2709: -- destination update for IN and INT
2710: csi_item_instance_pub.update_item_instance(
2711: p_api_version => 1.0,
2712: p_commit => fnd_api.g_false,
2713: p_init_msg_list => fnd_api.g_true,
2714: p_validation_level => fnd_api.g_valid_level_full,
2715: p_instance_rec => l_instance_rec,
2716: p_party_tbl => l_parties_tbl,
2709: -- destination update for IN and INT
2710: csi_item_instance_pub.update_item_instance(
2711: p_api_version => 1.0,
2712: p_commit => fnd_api.g_false,
2713: p_init_msg_list => fnd_api.g_true,
2714: p_validation_level => fnd_api.g_valid_level_full,
2715: p_instance_rec => l_instance_rec,
2716: p_party_tbl => l_parties_tbl,
2717: p_account_tbl => l_pty_accts_tbl,
2710: csi_item_instance_pub.update_item_instance(
2711: p_api_version => 1.0,
2712: p_commit => fnd_api.g_false,
2713: p_init_msg_list => fnd_api.g_true,
2714: p_validation_level => fnd_api.g_valid_level_full,
2715: p_instance_rec => l_instance_rec,
2716: p_party_tbl => l_parties_tbl,
2717: p_account_tbl => l_pty_accts_tbl,
2718: p_org_assignments_tbl => l_org_units_tbl,
2725: x_msg_count => l_msg_count,
2726: x_msg_data => l_msg_data);
2727:
2728: -- For Bug 4057183
2729: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2730: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2731: RAISE fnd_api.g_exc_error;
2732: END IF;
2733:
2726: x_msg_data => l_msg_data);
2727:
2728: -- For Bug 4057183
2729: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2730: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2731: RAISE fnd_api.g_exc_error;
2732: END IF;
2733:
2734: debug('Destination Instance Updated successfully. Instance ID: '||l_dest_instance_id);
2727:
2728: -- For Bug 4057183
2729: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2730: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2731: RAISE fnd_api.g_exc_error;
2732: END IF;
2733:
2734: debug('Destination Instance Updated successfully. Instance ID: '||l_dest_instance_id);
2735:
2807: END IF;
2808:
2809: -- END IF; Bug 3746600. Simplifying the Cancellation updates in Process Txn API.
2810:
2811: l_instance_rec.active_start_date := fnd_api.g_miss_date;
2812: l_instance_rec.instance_status_id := p_instance_rec.instance_status_id;
2813: l_instance_rec.last_oe_rma_line_id := p_instance_rec.last_oe_rma_line_id;
2814:
2815: l_instance_rec.return_by_date := p_instance_rec.return_by_date;
2815: l_instance_rec.return_by_date := p_instance_rec.return_by_date;
2816: l_instance_rec.actual_return_date := p_instance_rec.actual_return_date;
2817:
2818: -- logic to get the instance status id
2819: IF nvl(p_instance_rec.instance_status_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
2820: l_instance_rec.instance_status_id := p_sub_type_rec.src_status_id;
2821: END IF;
2822:
2823: -- bug 4285349 forward port of 4055799 moved the check and break outside the if
2826: p_instance_id => l_instance_rec.instance_id,
2827: p_csi_txn_rec => p_transaction_rec,
2828: x_return_status => l_return_status);
2829:
2830: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2831: RAISE fnd_api.g_exc_error;
2832: END IF;
2833:
2834: /* BUG# 2177025 RMA Return not removing the INSTALL information */
2827: p_csi_txn_rec => p_transaction_rec,
2828: x_return_status => l_return_status);
2829:
2830: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2831: RAISE fnd_api.g_exc_error;
2832: END IF;
2833:
2834: /* BUG# 2177025 RMA Return not removing the INSTALL information */
2835: IF p_sub_type_rec.src_change_owner = 'Y'
2853: -- RMA Cancellation, no need to invoke contracts API, so passing false
2854: --code modification start for 3681856--
2855: unexpire_instance(
2856: p_instance_id => l_instance_rec.instance_id,
2857: p_call_contracts => fnd_api.g_false,
2858: p_transaction_rec => p_transaction_rec,
2859: x_return_status => l_return_status);
2860: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2861: RAISE fnd_api.g_exc_error;
2856: p_instance_id => l_instance_rec.instance_id,
2857: p_call_contracts => fnd_api.g_false,
2858: p_transaction_rec => p_transaction_rec,
2859: x_return_status => l_return_status);
2860: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2861: RAISE fnd_api.g_exc_error;
2862: END IF;
2863: END IF;
2864:
2857: p_call_contracts => fnd_api.g_false,
2858: p_transaction_rec => p_transaction_rec,
2859: x_return_status => l_return_status);
2860: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2861: RAISE fnd_api.g_exc_error;
2862: END IF;
2863: END IF;
2864:
2865: l_instance_rec.instance_status_id := p_sub_type_rec.src_status_id;
2926:
2927: -- serialized update at dest
2928: csi_item_instance_pub.update_item_instance(
2929: p_api_version => 1.0,
2930: p_commit => fnd_api.g_false,
2931: p_init_msg_list => fnd_api.g_true,
2932: p_validation_level => fnd_api.g_valid_level_full,
2933: p_instance_rec => l_instance_rec,
2934: p_party_tbl => l_parties_tbl,
2927: -- serialized update at dest
2928: csi_item_instance_pub.update_item_instance(
2929: p_api_version => 1.0,
2930: p_commit => fnd_api.g_false,
2931: p_init_msg_list => fnd_api.g_true,
2932: p_validation_level => fnd_api.g_valid_level_full,
2933: p_instance_rec => l_instance_rec,
2934: p_party_tbl => l_parties_tbl,
2935: p_account_tbl => l_pty_accts_tbl,
2928: csi_item_instance_pub.update_item_instance(
2929: p_api_version => 1.0,
2930: p_commit => fnd_api.g_false,
2931: p_init_msg_list => fnd_api.g_true,
2932: p_validation_level => fnd_api.g_valid_level_full,
2933: p_instance_rec => l_instance_rec,
2934: p_party_tbl => l_parties_tbl,
2935: p_account_tbl => l_pty_accts_tbl,
2936: p_org_assignments_tbl => l_org_units_tbl,
2943: x_msg_count => l_msg_count,
2944: x_msg_data => l_msg_data);
2945:
2946: -- For Bug 4057183
2947: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2948: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2949: RAISE fnd_api.g_exc_error;
2950: END IF;
2951:
2944: x_msg_data => l_msg_data);
2945:
2946: -- For Bug 4057183
2947: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2948: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2949: RAISE fnd_api.g_exc_error;
2950: END IF;
2951:
2952: debug('update instance successful. instance id : '||l_instance_rec.instance_id);
2945:
2946: -- For Bug 4057183
2947: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2948: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2949: RAISE fnd_api.g_exc_error;
2950: END IF;
2951:
2952: debug('update instance successful. instance id : '||l_instance_rec.instance_id);
2953:
2956: -- source inventory instance updation
2957: IF p_in_out_flag IN ('IN', 'INT', 'NONE') THEN
2958: debug('non serialized at either source or destination or both');
2959:
2960: IF nvl(l_instance_rec.instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
2961:
2962: px_txn_error_rec.instance_id := l_instance_rec.instance_id;
2963:
2964: SELECT quantity,
2987:
2988: debug('expired. unexpiring to stamp rma info.');
2989: unexpire_instance(
2990: p_instance_id => l_u_instance_rec.instance_id,
2991: p_call_contracts => fnd_api.g_false,
2992: p_transaction_rec => p_transaction_rec,
2993: x_return_status => l_return_status);
2994: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2995: RAISE fnd_api.g_exc_error;
2990: p_instance_id => l_u_instance_rec.instance_id,
2991: p_call_contracts => fnd_api.g_false,
2992: p_transaction_rec => p_transaction_rec,
2993: x_return_status => l_return_status);
2994: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2995: RAISE fnd_api.g_exc_error;
2996: END IF;
2997:
2998: END IF;
2991: p_call_contracts => fnd_api.g_false,
2992: p_transaction_rec => p_transaction_rec,
2993: x_return_status => l_return_status);
2994: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2995: RAISE fnd_api.g_exc_error;
2996: END IF;
2997:
2998: END IF;
2999:
3015: p_instance_id => l_instance_rec.instance_id,
3016: p_csi_txn_rec => p_transaction_rec,
3017: x_return_status => l_return_status);
3018:
3019: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3020: RAISE fnd_api.g_exc_error;
3021: END IF;
3022: END IF;
3023:
3016: p_csi_txn_rec => p_transaction_rec,
3017: x_return_status => l_return_status);
3018:
3019: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3020: RAISE fnd_api.g_exc_error;
3021: END IF;
3022: END IF;
3023:
3024: IF p_sub_type_rec.src_change_owner = 'Y'
3032: debug(' source instance is expired. unexpiring to stamp rma info.');
3033:
3034: unexpire_instance(
3035: p_instance_id => l_u_instance_rec.instance_id,
3036: p_call_contracts => fnd_api.g_false,
3037: p_transaction_rec => p_transaction_rec,
3038: x_return_status => l_return_status);
3039:
3040: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3036: p_call_contracts => fnd_api.g_false,
3037: p_transaction_rec => p_transaction_rec,
3038: x_return_status => l_return_status);
3039:
3040: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3041: RAISE fnd_api.g_exc_error;
3042: END IF;
3043:
3044: END IF;
3037: p_transaction_rec => p_transaction_rec,
3038: x_return_status => l_return_status);
3039:
3040: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3041: RAISE fnd_api.g_exc_error;
3042: END IF;
3043:
3044: END IF;
3045:
3076: AND relationship_type_code =
3077: l_u_parties_tbl(l_up_ind).relationship_type_code;
3078: EXCEPTION
3079: WHEN no_data_found THEN
3080: l_u_parties_tbl(l_up_ind).instance_party_id := fnd_api.g_miss_num;
3081: l_u_parties_tbl(l_up_ind).object_version_number := 1.0;
3082: END;
3083: END LOOP;
3084: END IF;
3111: p_pricing_tbl => l_u_pricing_tbl,
3112: p_assets_tbl => l_u_assets_tbl,
3113: x_return_status => l_return_status);
3114:
3115: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3116: RAISE fnd_api.g_exc_error;
3117: END IF;
3118:
3119: ELSE /* this is exclusively for the non serialized source instance update */
3112: p_assets_tbl => l_u_assets_tbl,
3113: x_return_status => l_return_status);
3114:
3115: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3116: RAISE fnd_api.g_exc_error;
3117: END IF;
3118:
3119: ELSE /* this is exclusively for the non serialized source instance update */
3120:
3149: p_instance_id => l_u_instance_rec.instance_id,
3150: p_csi_txn_rec => p_transaction_rec,
3151: x_return_status => l_return_status);
3152:
3153: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3154: RAISE fnd_api.g_exc_error;
3155: END IF;
3156:
3157: IF p_sub_type_rec.src_change_owner = 'Y'
3150: p_csi_txn_rec => p_transaction_rec,
3151: x_return_status => l_return_status);
3152:
3153: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3154: RAISE fnd_api.g_exc_error;
3155: END IF;
3156:
3157: IF p_sub_type_rec.src_change_owner = 'Y'
3158: AND
3196: p_instance_id => l_instance_rec.instance_id,
3197: p_transaction_rec => p_transaction_rec,
3198: x_return_status => l_return_status); --4717075
3199:
3200: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3201: RAISE fnd_api.g_exc_error;
3202: END IF;
3203:
3204: END IF;
3197: p_transaction_rec => p_transaction_rec,
3198: x_return_status => l_return_status); --4717075
3199:
3200: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3201: RAISE fnd_api.g_exc_error;
3202: END IF;
3203:
3204: END IF;
3205:
3266:
3267: /* source instance update for srl at so issue and non serial */
3268: csi_item_instance_pub.update_item_instance(
3269: p_api_version => 1.0,
3270: p_commit => fnd_api.g_false,
3271: p_init_msg_list => fnd_api.g_true,
3272: p_validation_level => fnd_api.g_valid_level_full,
3273: p_instance_rec => l_u_instance_rec,
3274: p_party_tbl => l_u_parties_tbl,
3267: /* source instance update for srl at so issue and non serial */
3268: csi_item_instance_pub.update_item_instance(
3269: p_api_version => 1.0,
3270: p_commit => fnd_api.g_false,
3271: p_init_msg_list => fnd_api.g_true,
3272: p_validation_level => fnd_api.g_valid_level_full,
3273: p_instance_rec => l_u_instance_rec,
3274: p_party_tbl => l_u_parties_tbl,
3275: p_account_tbl => l_u_pty_accts_tbl,
3268: csi_item_instance_pub.update_item_instance(
3269: p_api_version => 1.0,
3270: p_commit => fnd_api.g_false,
3271: p_init_msg_list => fnd_api.g_true,
3272: p_validation_level => fnd_api.g_valid_level_full,
3273: p_instance_rec => l_u_instance_rec,
3274: p_party_tbl => l_u_parties_tbl,
3275: p_account_tbl => l_u_pty_accts_tbl,
3276: p_org_assignments_tbl => l_u_org_units_tbl,
3283: x_msg_count => l_msg_count,
3284: x_msg_data => l_msg_data);
3285:
3286: -- For Bug 4057183
3287: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3288: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3289: RAISE fnd_api.g_exc_error;
3290: END IF;
3291:
3284: x_msg_data => l_msg_data);
3285:
3286: -- For Bug 4057183
3287: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3288: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3289: RAISE fnd_api.g_exc_error;
3290: END IF;
3291:
3292: debug('source instance updated successfully. instance_id :'||l_u_instance_rec.instance_id);
3285:
3286: -- For Bug 4057183
3287: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3288: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3289: RAISE fnd_api.g_exc_error;
3290: END IF;
3291:
3292: debug('source instance updated successfully. instance_id :'||l_u_instance_rec.instance_id);
3293:
3298:
3299: debug('figure out the inventory/wip destination instance.');
3300:
3301: IF p_in_out_flag in ('INT') THEN
3302: IF nvl(p_instance_rec.instance_status_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3303: l_instance_rec.instance_status_id := nvl(p_sub_type_rec.src_status_id,fnd_api.g_miss_num);
3304: END IF; --4619398
3305: END IF;
3306:
3299: debug('figure out the inventory/wip destination instance.');
3300:
3301: IF p_in_out_flag in ('INT') THEN
3302: IF nvl(p_instance_rec.instance_status_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3303: l_instance_rec.instance_status_id := nvl(p_sub_type_rec.src_status_id,fnd_api.g_miss_num);
3304: END IF; --4619398
3305: END IF;
3306:
3307: IF (p_transaction_rec.transaction_type_id in (154, 106) AND p_in_out_flag ='INT') THEN -- Modified for 4926773
3324: -- 111 - item move
3325: -- 154 - item install
3326: -- 155 - item uninstall
3327: -- 109 - in service
3328: l_dest_instance_id := fnd_api.g_miss_num;
3329: ELSE
3330: csi_process_txn_pvt.get_dest_instance_id(
3331: p_in_out_flag => p_in_out_flag,
3332: p_sub_type_rec => p_sub_type_rec,
3335: p_item_attr_rec => p_item_attr_rec,
3336: x_instance_id => l_dest_instance_id,
3337: x_return_status => l_return_status);
3338:
3339: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3340: RAISE fnd_api.g_exc_error;
3341: END IF;
3342: END IF;
3343:
3336: x_instance_id => l_dest_instance_id,
3337: x_return_status => l_return_status);
3338:
3339: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3340: RAISE fnd_api.g_exc_error;
3341: END IF;
3342: END IF;
3343:
3344: IF nvl(l_dest_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3340: RAISE fnd_api.g_exc_error;
3341: END IF;
3342: END IF;
3343:
3344: IF nvl(l_dest_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3345:
3346: debug('destination instance could not be identified, so creating one.');
3347:
3348: /* if a destination instance is not found then create a new instance */
3346: debug('destination instance could not be identified, so creating one.');
3347:
3348: /* if a destination instance is not found then create a new instance */
3349:
3350: l_instance_rec.instance_id := fnd_api.g_miss_num;
3351: l_instance_rec.location_type_code := p_dest_location_rec.location_type_code;
3352: l_instance_rec.location_id := p_dest_location_rec.location_id;
3353: l_instance_rec.inv_organization_id := p_dest_location_rec.inv_organization_id;
3354: l_instance_rec.inv_subinventory_name := p_dest_location_rec.inv_subinventory_name;
3352: l_instance_rec.location_id := p_dest_location_rec.location_id;
3353: l_instance_rec.inv_organization_id := p_dest_location_rec.inv_organization_id;
3354: l_instance_rec.inv_subinventory_name := p_dest_location_rec.inv_subinventory_name;
3355: l_instance_rec.inv_locator_id := p_dest_location_rec.inv_locator_id;
3356: l_instance_rec.active_start_date :=nvl(p_transaction_rec.source_transaction_date,fnd_api.g_miss_date); --4620445
3357: l_instance_rec.active_end_date := null;
3358: l_instance_rec.wip_job_id := p_dest_location_rec.wip_job_id;
3359: l_instance_rec.last_oe_rma_line_id := p_instance_rec.last_oe_rma_line_id;
3360: l_instance_rec.operational_status_code := p_dest_location_rec.operational_status_code;
3365:
3366:
3367: IF p_item_attr_rec.dst_serial_control_flag = 'N' THEN
3368: l_instance_rec.mfg_serial_number_flag := 'N';
3369: l_instance_rec.serial_number := fnd_api.g_miss_char;
3370: END IF;
3371:
3372: IF l_instance_rec.location_type_code = 'INVENTORY' THEN
3373: l_instance_rec.instance_usage_code := 'IN_INVENTORY';
3374: ELSIF l_instance_rec.location_type_code = 'WIP' THEN
3375: l_instance_rec.instance_usage_code := 'IN_WIP';
3376: END IF;
3377:
3378: IF nvl(l_instance_rec.instance_usage_code, fnd_api.g_miss_char) = fnd_api.g_miss_char
3379: THEN
3380: l_instance_rec.instance_usage_code := p_dest_location_rec.instance_usage_code;
3381: END IF;
3382:
3403:
3404: /* non serial destination instance create */
3405: csi_item_instance_pub.create_item_instance(
3406: p_api_version => 1.0,
3407: p_commit => fnd_api.g_false,
3408: p_init_msg_list => fnd_api.g_true,
3409: p_validation_level => fnd_api.g_valid_level_full,
3410: p_instance_rec => l_instance_rec,
3411: p_party_tbl => l_parties_tbl,
3404: /* non serial destination instance create */
3405: csi_item_instance_pub.create_item_instance(
3406: p_api_version => 1.0,
3407: p_commit => fnd_api.g_false,
3408: p_init_msg_list => fnd_api.g_true,
3409: p_validation_level => fnd_api.g_valid_level_full,
3410: p_instance_rec => l_instance_rec,
3411: p_party_tbl => l_parties_tbl,
3412: p_account_tbl => l_pty_accts_tbl,
3405: csi_item_instance_pub.create_item_instance(
3406: p_api_version => 1.0,
3407: p_commit => fnd_api.g_false,
3408: p_init_msg_list => fnd_api.g_true,
3409: p_validation_level => fnd_api.g_valid_level_full,
3410: p_instance_rec => l_instance_rec,
3411: p_party_tbl => l_parties_tbl,
3412: p_account_tbl => l_pty_accts_tbl,
3413: p_org_assignments_tbl => l_org_units_tbl,
3419: x_msg_count => l_msg_count,
3420: x_msg_data => l_msg_data );
3421:
3422: -- For Bug 4051783
3423: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3424: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3425: RAISE fnd_api.g_exc_error;
3426: END IF;
3427:
3420: x_msg_data => l_msg_data );
3421:
3422: -- For Bug 4051783
3423: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3424: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3425: RAISE fnd_api.g_exc_error;
3426: END IF;
3427:
3428: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
3421:
3422: -- For Bug 4051783
3423: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3424: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3425: RAISE fnd_api.g_exc_error;
3426: END IF;
3427:
3428: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
3429:
3495:
3496: /* non serial destination instance update */
3497: csi_item_instance_pub.update_item_instance(
3498: p_api_version => 1.0,
3499: p_commit => fnd_api.g_false,
3500: p_init_msg_list => fnd_api.g_true,
3501: p_validation_level => fnd_api.g_valid_level_full,
3502: p_instance_rec => l_u_instance_rec,
3503: p_party_tbl => l_parties_tbl,
3496: /* non serial destination instance update */
3497: csi_item_instance_pub.update_item_instance(
3498: p_api_version => 1.0,
3499: p_commit => fnd_api.g_false,
3500: p_init_msg_list => fnd_api.g_true,
3501: p_validation_level => fnd_api.g_valid_level_full,
3502: p_instance_rec => l_u_instance_rec,
3503: p_party_tbl => l_parties_tbl,
3504: p_account_tbl => l_pty_accts_tbl,
3497: csi_item_instance_pub.update_item_instance(
3498: p_api_version => 1.0,
3499: p_commit => fnd_api.g_false,
3500: p_init_msg_list => fnd_api.g_true,
3501: p_validation_level => fnd_api.g_valid_level_full,
3502: p_instance_rec => l_u_instance_rec,
3503: p_party_tbl => l_parties_tbl,
3504: p_account_tbl => l_pty_accts_tbl,
3505: p_org_assignments_tbl => l_org_units_tbl,
3512: x_msg_count => l_msg_count,
3513: x_msg_data => l_msg_data);
3514:
3515: -- For Bug 4057183
3516: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3517: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3518: RAISE fnd_api.g_exc_error;
3519: END IF;
3520:
3513: x_msg_data => l_msg_data);
3514:
3515: -- For Bug 4057183
3516: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3517: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3518: RAISE fnd_api.g_exc_error;
3519: END IF;
3520:
3521: p_instance_rec.new_instance_id := l_dest_instance_id;
3514:
3515: -- For Bug 4057183
3516: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3517: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3518: RAISE fnd_api.g_exc_error;
3519: END IF;
3520:
3521: p_instance_rec.new_instance_id := l_dest_instance_id;
3522:
3540: p_transaction_rec => p_transaction_rec,
3541: x_instance_id => l_src_instance_id,
3542: x_return_status => l_return_status);
3543:
3544: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3545: RAISE fnd_api.g_exc_error;
3546: END IF;
3547:
3548: IF nvl(l_src_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3541: x_instance_id => l_src_instance_id,
3542: x_return_status => l_return_status);
3543:
3544: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3545: RAISE fnd_api.g_exc_error;
3546: END IF;
3547:
3548: IF nvl(l_src_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3549: debug('source instance not found. create one and decrement.');
3544: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3545: RAISE fnd_api.g_exc_error;
3546: END IF;
3547:
3548: IF nvl(l_src_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3549: debug('source instance not found. create one and decrement.');
3550: -- create a zero qty instance and decrement
3551: null;
3552: ELSE
3592:
3593: -- decrement inv instance for OUT transactions
3594: csi_item_instance_pub.update_item_instance(
3595: p_api_version => 1.0,
3596: p_commit => fnd_api.g_false,
3597: p_init_msg_list => fnd_api.g_true,
3598: p_validation_level => fnd_api.g_valid_level_full,
3599: p_instance_rec => l_u_instance_rec,
3600: p_party_tbl => l_u_parties_tbl,
3593: -- decrement inv instance for OUT transactions
3594: csi_item_instance_pub.update_item_instance(
3595: p_api_version => 1.0,
3596: p_commit => fnd_api.g_false,
3597: p_init_msg_list => fnd_api.g_true,
3598: p_validation_level => fnd_api.g_valid_level_full,
3599: p_instance_rec => l_u_instance_rec,
3600: p_party_tbl => l_u_parties_tbl,
3601: p_account_tbl => l_u_pty_accts_tbl,
3594: csi_item_instance_pub.update_item_instance(
3595: p_api_version => 1.0,
3596: p_commit => fnd_api.g_false,
3597: p_init_msg_list => fnd_api.g_true,
3598: p_validation_level => fnd_api.g_valid_level_full,
3599: p_instance_rec => l_u_instance_rec,
3600: p_party_tbl => l_u_parties_tbl,
3601: p_account_tbl => l_u_pty_accts_tbl,
3602: p_org_assignments_tbl => l_u_org_units_tbl,
3609: x_msg_count => l_msg_count,
3610: x_msg_data => l_msg_data);
3611:
3612: -- For Bug 4057183
3613: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3614: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3615: RAISE fnd_api.g_exc_error;
3616: END IF;
3617:
3610: x_msg_data => l_msg_data);
3611:
3612: -- For Bug 4057183
3613: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3614: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3615: RAISE fnd_api.g_exc_error;
3616: END IF;
3617:
3618: debug('source instance updated successfully. instance id : '||l_u_instance_rec.instance_id);
3611:
3612: -- For Bug 4057183
3613: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3614: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3615: RAISE fnd_api.g_exc_error;
3616: END IF;
3617:
3618: debug('source instance updated successfully. instance id : '||l_u_instance_rec.instance_id);
3619:
3618: debug('source instance updated successfully. instance id : '||l_u_instance_rec.instance_id);
3619:
3620: END IF;
3621:
3622: l_returned_instance_id := fnd_api.g_miss_num;
3623:
3624: IF p_item_attr_rec.dst_serial_control_flag = 'Y' THEN
3625: BEGIN
3626: --check for re-shipment of returned serialized instance
3646: debug(' instance_usage_code : '||l_instance_usage_code);
3647:
3648: EXCEPTION
3649: WHEN no_data_found THEN
3650: l_returned_instance_id := fnd_api.g_miss_num;
3651: l_object_version_number := 1.0;
3652: END;
3653: END IF;
3654:
3654:
3655: /* for sales order shipment just create another instance with the
3656: new party and location information
3657: */
3658: IF nvl(l_returned_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3659:
3660: l_instance_rec.instance_id := fnd_api.g_miss_num;
3661: l_instance_rec.location_type_code := p_dest_location_rec.location_type_code;
3662: l_instance_rec.location_id := p_dest_location_rec.location_id;
3656: new party and location information
3657: */
3658: IF nvl(l_returned_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3659:
3660: l_instance_rec.instance_id := fnd_api.g_miss_num;
3661: l_instance_rec.location_type_code := p_dest_location_rec.location_type_code;
3662: l_instance_rec.location_id := p_dest_location_rec.location_id;
3663: l_instance_rec.install_location_type_code := p_dest_location_rec.location_type_code; --5086636
3664: l_instance_rec.install_location_id := p_dest_location_rec.location_id; --5086636
3701: p_api_name => 'create_item_instance');
3702:
3703: csi_item_instance_pub.create_item_instance(
3704: p_api_version => 1.0,
3705: p_commit => fnd_api.g_false,
3706: p_init_msg_list => fnd_api.g_true,
3707: p_validation_level => fnd_api.g_valid_level_full,
3708: p_instance_rec => l_instance_rec,
3709: p_party_tbl => l_parties_tbl,
3702:
3703: csi_item_instance_pub.create_item_instance(
3704: p_api_version => 1.0,
3705: p_commit => fnd_api.g_false,
3706: p_init_msg_list => fnd_api.g_true,
3707: p_validation_level => fnd_api.g_valid_level_full,
3708: p_instance_rec => l_instance_rec,
3709: p_party_tbl => l_parties_tbl,
3710: p_account_tbl => l_pty_accts_tbl,
3703: csi_item_instance_pub.create_item_instance(
3704: p_api_version => 1.0,
3705: p_commit => fnd_api.g_false,
3706: p_init_msg_list => fnd_api.g_true,
3707: p_validation_level => fnd_api.g_valid_level_full,
3708: p_instance_rec => l_instance_rec,
3709: p_party_tbl => l_parties_tbl,
3710: p_account_tbl => l_pty_accts_tbl,
3711: p_org_assignments_tbl => l_org_units_tbl,
3717: x_msg_count => l_msg_count,
3718: x_msg_data => l_msg_data );
3719:
3720: -- For Bug 4051783
3721: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3722: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3723: RAISE fnd_api.g_exc_error;
3724: END IF;
3725:
3718: x_msg_data => l_msg_data );
3719:
3720: -- For Bug 4051783
3721: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3722: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3723: RAISE fnd_api.g_exc_error;
3724: END IF;
3725:
3726: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
3719:
3720: -- For Bug 4051783
3721: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3722: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3723: RAISE fnd_api.g_exc_error;
3724: END IF;
3725:
3726: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
3727: debug('customer product created successfully. instance id: '||l_instance_rec.instance_id);
3781: p_api_name => 'update_item_instance');
3782:
3783: csi_item_instance_pub.update_item_instance(
3784: p_api_version => 1.0,
3785: p_commit => fnd_api.g_false,
3786: p_init_msg_list => fnd_api.g_true,
3787: p_validation_level => fnd_api.g_valid_level_full,
3788: p_instance_rec => l_instance_rec,
3789: p_party_tbl => l_parties_tbl,
3782:
3783: csi_item_instance_pub.update_item_instance(
3784: p_api_version => 1.0,
3785: p_commit => fnd_api.g_false,
3786: p_init_msg_list => fnd_api.g_true,
3787: p_validation_level => fnd_api.g_valid_level_full,
3788: p_instance_rec => l_instance_rec,
3789: p_party_tbl => l_parties_tbl,
3790: p_account_tbl => l_pty_accts_tbl,
3783: csi_item_instance_pub.update_item_instance(
3784: p_api_version => 1.0,
3785: p_commit => fnd_api.g_false,
3786: p_init_msg_list => fnd_api.g_true,
3787: p_validation_level => fnd_api.g_valid_level_full,
3788: p_instance_rec => l_instance_rec,
3789: p_party_tbl => l_parties_tbl,
3790: p_account_tbl => l_pty_accts_tbl,
3791: p_org_assignments_tbl => l_org_units_tbl,
3798: x_msg_count => l_msg_count,
3799: x_msg_data => l_msg_data);
3800:
3801: -- For Bug 4057183
3802: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3803: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3804: RAISE fnd_api.g_exc_error;
3805: END IF;
3806:
3799: x_msg_data => l_msg_data);
3800:
3801: -- For Bug 4057183
3802: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3803: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3804: RAISE fnd_api.g_exc_error;
3805: END IF;
3806:
3807: debug('returned product updated successfully. instance id: '||l_instance_rec.instance_id);
3800:
3801: -- For Bug 4057183
3802: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3803: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3804: RAISE fnd_api.g_exc_error;
3805: END IF;
3806:
3807: debug('returned product updated successfully. instance id: '||l_instance_rec.instance_id);
3808: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
3814:
3815: END IF; -- l_process_mode = 'UPDATE'
3816:
3817: EXCEPTION
3818: WHEN fnd_api.g_exc_error THEN
3819: x_return_status := fnd_api.g_ret_sts_error;
3820:
3821: WHEN others THEN
3822: x_return_status := fnd_api.g_ret_sts_error;
3815: END IF; -- l_process_mode = 'UPDATE'
3816:
3817: EXCEPTION
3818: WHEN fnd_api.g_exc_error THEN
3819: x_return_status := fnd_api.g_ret_sts_error;
3820:
3821: WHEN others THEN
3822: x_return_status := fnd_api.g_ret_sts_error;
3823:
3818: WHEN fnd_api.g_exc_error THEN
3819: x_return_status := fnd_api.g_ret_sts_error;
3820:
3821: WHEN others THEN
3822: x_return_status := fnd_api.g_ret_sts_error;
3823:
3824: fnd_msg_pub.add_exc_msg(
3825: p_pkg_name => g_pkg_name,
3826: p_procedure_name => l_current_procedure);
3848: l_obj_inst_id number;
3849:
3850: BEGIN
3851:
3852: x_return_status := fnd_api.g_ret_sts_success;
3853:
3854: l_obj_ind := p_txn_ii_rltns_rec.object_index;
3855: l_sub_ind := p_txn_ii_rltns_rec.subject_index;
3856:
3904: csi_t_gen_utility_pvt.dump_txn_ii_rltns_rec(
3905: p_txn_ii_rltns_rec => p_txn_ii_rltns_rec);
3906:
3907: EXCEPTION
3908: WHEN fnd_api.g_exc_error THEN
3909: x_return_status := fnd_api.g_ret_sts_error;
3910:
3911: END build_ii_rltns_rec;
3912:
3905: p_txn_ii_rltns_rec => p_txn_ii_rltns_rec);
3906:
3907: EXCEPTION
3908: WHEN fnd_api.g_exc_error THEN
3909: x_return_status := fnd_api.g_ret_sts_error;
3910:
3911: END build_ii_rltns_rec;
3912:
3913: /* -------------------------------------------------------------------- */
3940: csi_t_gen_utility_pvt.dump_api_info(
3941: p_pkg_name => g_pkg_name,
3942: p_api_name => 'process_relation');
3943:
3944: x_return_status := fnd_api.g_ret_sts_success;
3945:
3946: IF p_ii_relationships_tbl.COUNT > 0 THEN
3947: FOR l_ind IN p_ii_relationships_tbl.FIRST .. p_ii_relationships_tbl.LAST
3948: LOOP
3952: p_instances_tbl => p_instances_tbl,
3953: x_ii_rltns_rec => l_ii_rltns_rec,
3954: x_return_status => l_return_status);
3955:
3956: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3957: RAISE fnd_api.g_exc_error;
3958: END IF;
3959:
3960: IF l_ii_rltns_rec.relationship_type_code = 'COMPONENT-OF' THEN
3953: x_ii_rltns_rec => l_ii_rltns_rec,
3954: x_return_status => l_return_status);
3955:
3956: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3957: RAISE fnd_api.g_exc_error;
3958: END IF;
3959:
3960: IF l_ii_rltns_rec.relationship_type_code = 'COMPONENT-OF' THEN
3961: l_comp_ind := l_comp_ind + 1;
3974: IF l_comp_iir_tbl.COUNT > 0 THEN
3975:
3976: csi_ii_relationships_pub.create_relationship (
3977: p_api_version => 1.0,
3978: p_commit => fnd_api.g_false,
3979: p_init_msg_list => fnd_api.g_true,
3980: p_validation_level => fnd_api.g_valid_level_full,
3981: p_relationship_tbl => l_comp_iir_tbl,
3982: p_txn_rec => p_transaction_rec,
3975:
3976: csi_ii_relationships_pub.create_relationship (
3977: p_api_version => 1.0,
3978: p_commit => fnd_api.g_false,
3979: p_init_msg_list => fnd_api.g_true,
3980: p_validation_level => fnd_api.g_valid_level_full,
3981: p_relationship_tbl => l_comp_iir_tbl,
3982: p_txn_rec => p_transaction_rec,
3983: x_return_status => l_return_status,
3976: csi_ii_relationships_pub.create_relationship (
3977: p_api_version => 1.0,
3978: p_commit => fnd_api.g_false,
3979: p_init_msg_list => fnd_api.g_true,
3980: p_validation_level => fnd_api.g_valid_level_full,
3981: p_relationship_tbl => l_comp_iir_tbl,
3982: p_txn_rec => p_transaction_rec,
3983: x_return_status => l_return_status,
3984: x_msg_count => l_msg_count,
3983: x_return_status => l_return_status,
3984: x_msg_count => l_msg_count,
3985: x_msg_data => l_msg_data );
3986:
3987: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3988: RAISE fnd_api.g_exc_error;
3989: END IF;
3990:
3991: END IF;
3984: x_msg_count => l_msg_count,
3985: x_msg_data => l_msg_data );
3986:
3987: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3988: RAISE fnd_api.g_exc_error;
3989: END IF;
3990:
3991: END IF;
3992:
4005: p_subject_instance_id => l_oth_iir_tbl(l_o_ind).subject_id,
4006: p_trx_rec => p_transaction_rec,
4007: x_return_status => l_return_status);
4008:
4009: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4010: RAISE fnd_api.g_exc_error;
4011: END IF;
4012:
4013: END IF;
4006: p_trx_rec => p_transaction_rec,
4007: x_return_status => l_return_status);
4008:
4009: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4010: RAISE fnd_api.g_exc_error;
4011: END IF;
4012:
4013: END IF;
4014:
4015: END LOOP;
4016: END IF;
4017:
4018: EXCEPTION
4019: WHEN fnd_api.g_exc_error THEN
4020: x_return_status := fnd_api.g_ret_sts_error;
4021:
4022: WHEN others THEN
4023: x_return_status := fnd_api.g_ret_sts_error;
4016: END IF;
4017:
4018: EXCEPTION
4019: WHEN fnd_api.g_exc_error THEN
4020: x_return_status := fnd_api.g_ret_sts_error;
4021:
4022: WHEN others THEN
4023: x_return_status := fnd_api.g_ret_sts_error;
4024:
4019: WHEN fnd_api.g_exc_error THEN
4020: x_return_status := fnd_api.g_ret_sts_error;
4021:
4022: WHEN others THEN
4023: x_return_status := fnd_api.g_ret_sts_error;
4024:
4025: fnd_msg_pub.add_exc_msg(
4026: p_pkg_name => g_pkg_name,
4027: p_procedure_name => l_current_procedure);
4043:
4044: l_exp_relationship_rec csi_datastructures_pub.ii_relationship_rec;
4045: l_instance_id_lst csi_datastructures_pub.id_tbl;
4046:
4047: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4048: l_msg_count number := 0;
4049: l_msg_data varchar2(2000);
4050: l_instance_rev_num NUMBER;
4051: l_lock_id NUMBER;
4072: AND sysdate BETWEEN nvl(cir.active_start_date, sysdate-1)
4073: AND nvl(cir.active_end_date, sysdate+1) );
4074: BEGIN
4075:
4076: x_return_status := fnd_api.g_ret_sts_success;
4077: api_log('check_and_break_relation');
4078:
4079: debug(' subject instance id :'||p_instance_id);
4080:
4083: l_instance_inst_rev_num := null;
4084: l_locked_inst_rev_num := null;
4085: l_locked := FALSE;
4086: --
4087: IF nvl(p_instance_id , fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
4088: -- For RMA processed, need to Check for Locks on the the Item Instance and break the same.
4089: -- Need to notify CZ for such unlocks
4090: IF p_csi_txn_rec.transaction_type_id in (53,54) THEN
4091: l_lock_id := NULL;
4147: debug('Calling Unlock Item Instances for Instance Id '||to_char(p_instance_id));
4148: CSI_ITEM_INSTANCE_GRP.unlock_item_instances
4149: (
4150: p_api_version => 1.0
4151: ,p_commit => fnd_api.g_false
4152: ,p_init_msg_list => fnd_api.g_false
4153: ,p_validation_level => fnd_api.g_valid_level_full
4154: ,p_config_tbl => l_unlock_inst_tbl
4155: ,x_return_status => l_return_status
4148: CSI_ITEM_INSTANCE_GRP.unlock_item_instances
4149: (
4150: p_api_version => 1.0
4151: ,p_commit => fnd_api.g_false
4152: ,p_init_msg_list => fnd_api.g_false
4153: ,p_validation_level => fnd_api.g_valid_level_full
4154: ,p_config_tbl => l_unlock_inst_tbl
4155: ,x_return_status => l_return_status
4156: ,x_msg_count => l_msg_count
4149: (
4150: p_api_version => 1.0
4151: ,p_commit => fnd_api.g_false
4152: ,p_init_msg_list => fnd_api.g_false
4153: ,p_validation_level => fnd_api.g_valid_level_full
4154: ,p_config_tbl => l_unlock_inst_tbl
4155: ,x_return_status => l_return_status
4156: ,x_msg_count => l_msg_count
4157: ,x_msg_data => l_msg_data
4155: ,x_return_status => l_return_status
4156: ,x_msg_count => l_msg_count
4157: ,x_msg_data => l_msg_data
4158: );
4159: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4160: debug('Unlock Item Instances routine failed.');
4161: RAISE fnd_api.g_exc_error;
4162: END IF;
4163: END IF; -- If locked
4157: ,x_msg_data => l_msg_data
4158: );
4159: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4160: debug('Unlock Item Instances routine failed.');
4161: RAISE fnd_api.g_exc_error;
4162: END IF;
4163: END IF; -- If locked
4164: --
4165: -- Call CZ API for Notification
4180: x_return_status => l_return_status,
4181: x_msg_count => l_msg_count,
4182: x_msg_data => l_msg_data
4183: );
4184: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4185: debug('Remove_Returned_Config_Item routine failed.');
4186: RAISE fnd_api.g_exc_error;
4187: END IF;
4188: END IF;
4182: x_msg_data => l_msg_data
4183: );
4184: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4185: debug('Remove_Returned_Config_Item routine failed.');
4186: RAISE fnd_api.g_exc_error;
4187: END IF;
4188: END IF;
4189: END IF; -- Tx Type check
4190: --
4193: debug(' subject instance is expired. unexpiring..');
4194: --code modification for 3681856 , p_call_contracts added; here we pass the default of True
4195: unexpire_instance(
4196: p_instance_id => p_instance_id,
4197: p_call_contracts => fnd_api.g_true,
4198: p_transaction_rec => p_csi_txn_rec,
4199: x_return_status => l_return_status);
4200: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4201: RAISE fnd_api.g_exc_error;
4196: p_instance_id => p_instance_id,
4197: p_call_contracts => fnd_api.g_true,
4198: p_transaction_rec => p_csi_txn_rec,
4199: x_return_status => l_return_status);
4200: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4201: RAISE fnd_api.g_exc_error;
4202: END IF;
4203: exit;
4204: END LOOP;
4197: p_call_contracts => fnd_api.g_true,
4198: p_transaction_rec => p_csi_txn_rec,
4199: x_return_status => l_return_status);
4200: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4201: RAISE fnd_api.g_exc_error;
4202: END IF;
4203: exit;
4204: END LOOP;
4205:
4211: p_api_name => 'get_relationships');
4212:
4213: csi_ii_relationships_pub.get_relationships(
4214: p_api_version => 1.0,
4215: p_commit => fnd_api.g_false,
4216: p_init_msg_list => fnd_api.g_true,
4217: p_validation_level => fnd_api.g_valid_level_full,
4218: p_relationship_query_rec => l_relationship_query_rec,
4219: p_depth => 1,
4212:
4213: csi_ii_relationships_pub.get_relationships(
4214: p_api_version => 1.0,
4215: p_commit => fnd_api.g_false,
4216: p_init_msg_list => fnd_api.g_true,
4217: p_validation_level => fnd_api.g_valid_level_full,
4218: p_relationship_query_rec => l_relationship_query_rec,
4219: p_depth => 1,
4220: p_time_stamp => l_time_stamp,
4213: csi_ii_relationships_pub.get_relationships(
4214: p_api_version => 1.0,
4215: p_commit => fnd_api.g_false,
4216: p_init_msg_list => fnd_api.g_true,
4217: p_validation_level => fnd_api.g_valid_level_full,
4218: p_relationship_query_rec => l_relationship_query_rec,
4219: p_depth => 1,
4220: p_time_stamp => l_time_stamp,
4221: p_active_relationship_only => fnd_api.g_true,
4217: p_validation_level => fnd_api.g_valid_level_full,
4218: p_relationship_query_rec => l_relationship_query_rec,
4219: p_depth => 1,
4220: p_time_stamp => l_time_stamp,
4221: p_active_relationship_only => fnd_api.g_true,
4222: x_relationship_tbl => l_relationship_tbl,
4223: x_return_status => l_return_status,
4224: x_msg_count => l_msg_count,
4225: x_msg_data => l_msg_data);
4223: x_return_status => l_return_status,
4224: x_msg_count => l_msg_count,
4225: x_msg_data => l_msg_data);
4226:
4227: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4228: RAISE fnd_api.g_exc_error;
4229: END IF;
4230:
4231: debug(' relationship table count :'||l_relationship_tbl.COUNT);
4224: x_msg_count => l_msg_count,
4225: x_msg_data => l_msg_data);
4226:
4227: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4228: RAISE fnd_api.g_exc_error;
4229: END IF;
4230:
4231: debug(' relationship table count :'||l_relationship_tbl.COUNT);
4232:
4246: debug(' relationship id :'||l_exp_relationship_rec.relationship_id);
4247:
4248: csi_ii_relationships_pub.expire_relationship(
4249: p_api_version => 1.0,
4250: p_commit => fnd_api.g_false,
4251: p_init_msg_list => fnd_api.g_true,
4252: p_validation_level => fnd_api.g_valid_level_full,
4253: p_relationship_rec => l_exp_relationship_rec,
4254: p_txn_rec => p_csi_txn_rec,
4247:
4248: csi_ii_relationships_pub.expire_relationship(
4249: p_api_version => 1.0,
4250: p_commit => fnd_api.g_false,
4251: p_init_msg_list => fnd_api.g_true,
4252: p_validation_level => fnd_api.g_valid_level_full,
4253: p_relationship_rec => l_exp_relationship_rec,
4254: p_txn_rec => p_csi_txn_rec,
4255: x_instance_id_lst => l_instance_id_lst,
4248: csi_ii_relationships_pub.expire_relationship(
4249: p_api_version => 1.0,
4250: p_commit => fnd_api.g_false,
4251: p_init_msg_list => fnd_api.g_true,
4252: p_validation_level => fnd_api.g_valid_level_full,
4253: p_relationship_rec => l_exp_relationship_rec,
4254: p_txn_rec => p_csi_txn_rec,
4255: x_instance_id_lst => l_instance_id_lst,
4256: x_return_status => l_return_status,
4256: x_return_status => l_return_status,
4257: x_msg_count => l_msg_count,
4258: x_msg_data => l_msg_data);
4259:
4260: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4261: RAISE fnd_api.g_exc_error;
4262: END IF;
4263:
4264: END LOOP;
4257: x_msg_count => l_msg_count,
4258: x_msg_data => l_msg_data);
4259:
4260: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4261: RAISE fnd_api.g_exc_error;
4262: END IF;
4263:
4264: END LOOP;
4265: END IF;
4267:
4268: debug('check and break relation successful.');
4269:
4270: EXCEPTION
4271: WHEN fnd_api.g_exc_error THEN
4272: x_return_status := fnd_api.g_ret_sts_error;
4273: END check_and_break_relation;
4274:
4275: END csi_process_txn_pvt;
4268: debug('check and break relation successful.');
4269:
4270: EXCEPTION
4271: WHEN fnd_api.g_exc_error THEN
4272: x_return_status := fnd_api.g_ret_sts_error;
4273: END check_and_break_relation;
4274:
4275: END csi_process_txn_pvt;