[Home] [Help]
42: api_log('get_serial_tagging_control');
43:
44: -- Bug 10415554
45: IF p_inv_txn_typeid_from_cs = - 1 AND
46: NVL(p_mtl_transaction_id, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
47: --SELECT 'Y' INTO p_serial_tagged FROM MTL_SERIAL_TAGGING_ASSIGNMENTS
48: -- WHERE INVENTORY_ITEM_ID = p_inventory_item_id
49: -- AND ORGANIZATION_ID = p_organization_id
50: -- AND TRANSACTION_TYPE_ID IN
102: fnd_message.set_name('CSI','CSI_INT_DEST_SUBINV_INVALID');
103: fnd_message.set_token('INV_ORG_ID',p_organization_id);
104: fnd_message.set_token('SUBINV_ID',p_subinventory_code);
105: fnd_msg_pub.add;
106: RAISE fnd_api.g_exc_error;
107: END;
108:
109: IF l_location_id is null THEN
110: BEGIN
116: WHEN no_data_found THEN
117: fnd_message.set_name('CSI','CSI_INT_DEST_ORG_ID_INVALID');
118: fnd_message.set_token('INV_ORG_ID',p_organization_id);
119: fnd_msg_pub.add;
120: RAISE fnd_api.g_exc_error;
121: END;
122: END IF;
123:
124: x_location_id := l_location_id;
123:
124: x_location_id := l_location_id;
125:
126: EXCEPTION
127: WHEN fnd_api.g_exc_error THEN
128: x_return_status := fnd_api.g_ret_sts_error;
129: END get_dfl_inv_location;
130:
131: PROCEDURE validate_dest_location_rec(
124: x_location_id := l_location_id;
125:
126: EXCEPTION
127: WHEN fnd_api.g_exc_error THEN
128: x_return_status := fnd_api.g_ret_sts_error;
129: END get_dfl_inv_location;
130:
131: PROCEDURE validate_dest_location_rec(
132: p_in_out_flag IN varchar2,
132: p_in_out_flag IN varchar2,
133: p_dest_location_rec IN OUT NOCOPY csi_process_txn_grp.dest_location_rec,
134: x_return_status OUT NOCOPY varchar2)
135: IS
136: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
137: BEGIN
138:
139: x_return_status := fnd_api.g_ret_sts_success;
140:
135: IS
136: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
137: BEGIN
138:
139: x_return_status := fnd_api.g_ret_sts_success;
140:
141: IF p_in_out_flag = 'IN' THEN
142:
143: csi_t_vldn_routines_pvt.check_reqd_param(
152: p_organization_id => p_dest_location_rec.inv_organization_id,
153: x_location_id => p_dest_location_rec.location_id,
154: x_return_status => l_return_status);
155:
156: IF l_return_status <> fnd_api.g_ret_sts_success THEN
157: RAISE fnd_api.g_exc_error;
158: END IF;
159:
160: END IF;
153: x_location_id => p_dest_location_rec.location_id,
154: x_return_status => l_return_status);
155:
156: IF l_return_status <> fnd_api.g_ret_sts_success THEN
157: RAISE fnd_api.g_exc_error;
158: END IF;
159:
160: END IF;
161:
161:
162: END IF;
163:
164: EXCEPTION
165: WHEN fnd_api.g_exc_error THEN
166: x_return_status := fnd_api.g_ret_sts_error;
167:
168: END validate_dest_location_rec;
169:
162: END IF;
163:
164: EXCEPTION
165: WHEN fnd_api.g_exc_error THEN
166: x_return_status := fnd_api.g_ret_sts_error;
167:
168: END validate_dest_location_rec;
169:
170: PROCEDURE get_sub_type_rec(
177: l_sub_type_rec csi_txn_sub_types%rowtype;
178:
179: BEGIN
180:
181: x_return_status := fnd_api.g_ret_sts_success;
182:
183: SELECT *
184: INTO l_sub_type_rec
185: FROM csi_txn_sub_types
186: WHERE transaction_type_id = p_txn_type_id
187: AND sub_type_id = p_sub_type_id;
188:
189: IF l_sub_type_rec.src_status_id is null THEN
190: l_sub_type_rec.src_status_id := fnd_api.g_miss_num;
191: END IF;
192:
193: l_sub_type_rec.src_change_owner := nvl(l_sub_type_rec.src_change_owner, 'N');
194: l_sub_type_rec.non_src_change_owner := nvl(l_sub_type_rec.non_src_change_owner, 'N');
202: fnd_message.set_token('SUB_TYPE_ID',p_sub_type_id);
203: fnd_message.set_token('TRANSACTION_TYPE_ID',p_txn_type_id);
204: fnd_msg_pub.add;
205:
206: x_return_status := fnd_api.g_ret_sts_error;
207: END get_sub_type_rec;
208:
209:
210:
250: fnd_message.set_name('CSI','CSI_TXN_SRC_REF_NOT_FOUND');
251: fnd_message.set_token('REF_TYPE',l_reference_code);
252: fnd_msg_pub.add;
253:
254: RAISE fnd_api.g_exc_error;
255:
256: END IF;
257:
258: EXCEPTION
255:
256: END IF;
257:
258: EXCEPTION
259: when fnd_api.g_exc_error THEN
260: x_return_status := fnd_api.g_ret_sts_error;
261: END validate_reference;
262:
263:
256: END IF;
257:
258: EXCEPTION
259: when fnd_api.g_exc_error THEN
260: x_return_status := fnd_api.g_ret_sts_error;
261: END validate_reference;
262:
263:
264: /* --------------------------------------------------------------- */
277:
278: l_owner_found boolean;
279: l_internal_party_id number;
280:
281: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
282:
283: BEGIN
284:
285: csi_t_gen_utility_pvt.dump_api_info(
285: csi_t_gen_utility_pvt.dump_api_info(
286: p_pkg_name => g_pkg_name,
287: p_api_name => 'validate_owner_reference');
288:
289: x_return_status := fnd_api.g_ret_sts_success;
290:
291: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
292:
293: IF p_txn_instances_tbl.COUNT > 0 THEN
321: fnd_message.set_name('CSI','CSI_INT_INV_PTY_ID');
322: fnd_message.set_token('PARTY_ID',p_txn_i_parties_tbl(l_p_ind).party_id);
323: fnd_message.set_token('INTERNAL_PARTY_ID',l_internal_party_id);
324: fnd_msg_pub.add;
325: RAISE fnd_api.g_exc_error;
326:
327: END IF;
328:
329: exit;
336: fnd_message.set_name('CSI','CSI_TXN_OWNER_NOT_FOUND');
337: fnd_message.set_token('INDEX',l_i_ind);
338: fnd_message.set_token('ITEM_ID',p_txn_instances_tbl(l_i_ind).inventory_item_id);
339: fnd_msg_pub.add;
340: RAISE fnd_api.g_exc_error;
341: END IF;
342:
343: END IF;
344:
345: END LOOP;
346: END IF;
347:
348: EXCEPTION
349: WHEN fnd_api.g_exc_error THEN
350: x_return_status := fnd_api.g_ret_sts_error;
351: END validate_owner_reference;
352:
353: /* --------------------------------------------------------------- */
346: END IF;
347:
348: EXCEPTION
349: WHEN fnd_api.g_exc_error THEN
350: x_return_status := fnd_api.g_ret_sts_error;
351: END validate_owner_reference;
352:
353: /* --------------------------------------------------------------- */
354: /* all the sub type specific validations handled in this routine */
359: p_txn_instances_tbl IN csi_process_txn_grp.txn_instances_tbl,
360: p_txn_i_parties_tbl IN csi_process_txn_grp.txn_i_parties_tbl,
361: x_return_status OUT NOCOPY varchar2)
362: IS
363: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
364: BEGIN
365:
366: x_return_status := fnd_api.g_ret_sts_success;
367:
362: IS
363: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
364: BEGIN
365:
366: x_return_status := fnd_api.g_ret_sts_success;
367:
368: csi_t_gen_utility_pvt.dump_api_info(
369: p_pkg_name => g_pkg_name,
370: p_api_name => 'sub_type_validations');
378: p_reference_type => 'S',
379: p_txn_instances_tbl => p_txn_instances_tbl,
380: x_return_status => l_return_status);
381:
382: IF l_return_status <> fnd_api.g_ret_sts_success THEN
383: RAISE fnd_api.g_exc_error;
384: END IF;
385:
386: END IF;
379: p_txn_instances_tbl => p_txn_instances_tbl,
380: x_return_status => l_return_status);
381:
382: IF l_return_status <> fnd_api.g_ret_sts_success THEN
383: RAISE fnd_api.g_exc_error;
384: END IF;
385:
386: END IF;
387:
391: p_reference_type => 'N',
392: p_txn_instances_tbl => p_txn_instances_tbl,
393: x_return_status => l_return_status);
394:
395: IF l_return_status <> fnd_api.g_ret_sts_success THEN
396: RAISE fnd_api.g_exc_error;
397: END IF;
398:
399: END IF;
392: p_txn_instances_tbl => p_txn_instances_tbl,
393: x_return_status => l_return_status);
394:
395: IF l_return_status <> fnd_api.g_ret_sts_success THEN
396: RAISE fnd_api.g_exc_error;
397: END IF;
398:
399: END IF;
400:
404: p_reference_type => 'P',
405: p_txn_instances_tbl => p_txn_instances_tbl,
406: x_return_status => l_return_status);
407:
408: IF l_return_status <> fnd_api.g_ret_sts_success THEN
409: RAISE fnd_api.g_exc_error;
410: END IF;
411:
412: END IF;
405: p_txn_instances_tbl => p_txn_instances_tbl,
406: x_return_status => l_return_status);
407:
408: IF l_return_status <> fnd_api.g_ret_sts_success THEN
409: RAISE fnd_api.g_exc_error;
410: END IF;
411:
412: END IF;
413:
419: p_txn_instances_tbl => p_txn_instances_tbl,
420: p_txn_i_parties_tbl => p_txn_i_parties_tbl,
421: x_return_status => l_return_status);
422:
423: IF l_return_status <> fnd_api.g_ret_sts_success THEN
424: RAISE fnd_api.g_exc_error;
425: END IF;
426:
427: END IF;
420: p_txn_i_parties_tbl => p_txn_i_parties_tbl,
421: x_return_status => l_return_status);
422:
423: IF l_return_status <> fnd_api.g_ret_sts_success THEN
424: RAISE fnd_api.g_exc_error;
425: END IF;
426:
427: END IF;
428:
434: p_txn_instances_tbl => p_txn_instances_tbl,
435: p_txn_i_parties_tbl => p_txn_i_parties_tbl,
436: x_return_status => l_return_status);
437:
438: IF l_return_status <> fnd_api.g_ret_sts_success THEN
439: RAISE fnd_api.g_exc_error;
440: END IF;
441:
442: END IF;
435: p_txn_i_parties_tbl => p_txn_i_parties_tbl,
436: x_return_status => l_return_status);
437:
438: IF l_return_status <> fnd_api.g_ret_sts_success THEN
439: RAISE fnd_api.g_exc_error;
440: END IF;
441:
442: END IF;
443:
441:
442: END IF;
443:
444: EXCEPTION
445: WHEN fnd_api.g_exc_error THEN
446: x_return_status := fnd_api.g_ret_sts_error;
447: END sub_type_validations;
448:
449:
442: END IF;
443:
444: EXCEPTION
445: WHEN fnd_api.g_exc_error THEN
446: x_return_status := fnd_api.g_ret_sts_error;
447: END sub_type_validations;
448:
449:
450: /* -------------------------------------------------------------------- */
481: csi_t_gen_utility_pvt.dump_api_info(
482: p_pkg_name => g_pkg_name,
483: p_api_name => 'get_item_attributes');
484:
485: x_return_status := fnd_api.g_ret_sts_success;
486:
487: BEGIN
488:
489: SELECT serial_number_control_code,
515: fnd_message.set_name('CSI','CSI_INT_ITEM_ID_MISSING');
516: fnd_message.set_token('INVENTORY_ITEM_ID',p_inventory_item_id);
517: fnd_message.set_token('INV_ORGANIZATION_ID',p_organization_id);
518: fnd_msg_pub.add;
519: RAISE fnd_api.g_exc_error;
520: END;
521:
522: -- Serial Tagging ER 9977630
523: get_serial_tagging_control (
611: debug('l_item_attr_rec.src_serial_control_flag - ' || l_item_attr_rec.src_serial_control_flag);
612: debug('l_item_attr_rec.dst_serial_control_flag - ' || l_item_attr_rec.dst_serial_control_flag);
613:
614: EXCEPTION
615: WHEN fnd_api.g_exc_error THEN
616: x_return_status := fnd_api.g_ret_sts_error;
617: END get_item_attributes;
618:
619:
612: debug('l_item_attr_rec.dst_serial_control_flag - ' || l_item_attr_rec.dst_serial_control_flag);
613:
614: EXCEPTION
615: WHEN fnd_api.g_exc_error THEN
616: x_return_status := fnd_api.g_ret_sts_error;
617: END get_item_attributes;
618:
619:
620: /* -------------------------------------------------------------------- */
633: csi_t_gen_utility_pvt.dump_api_info(
634: p_pkg_name => g_pkg_name,
635: p_api_name => 'validate_instance_rec');
636:
637: x_return_status := fnd_api.g_ret_sts_success;
638:
639: -- serial control
640: IF p_item_attr_rec.src_serial_control_flag = 'Y'
641: OR
641: OR
642: p_item_attr_rec.dst_serial_control_flag = 'Y'
643: THEN
644:
645: IF nvl(p_instance_rec.serial_number, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
646:
647: fnd_message.set_name('CSI','CSI_TXN_SERIAL_NUM_MISSING');
648: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
649: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
647: fnd_message.set_name('CSI','CSI_TXN_SERIAL_NUM_MISSING');
648: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
649: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
650: fnd_msg_pub.add;
651: RAISE fnd_api.g_exc_error;
652:
653: END IF;
654:
655: END IF;
655: END IF;
656:
657: -- lot control
658: IF p_item_attr_rec.lot_control_flag = 'Y' THEN
659: IF nvl(p_instance_rec.lot_number, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
660: fnd_message.set_name('CSI','CSI_TXN_LOT_NUM_MISSING');
661: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
662: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
663: fnd_msg_pub.add;
660: fnd_message.set_name('CSI','CSI_TXN_LOT_NUM_MISSING');
661: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
662: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
663: fnd_msg_pub.add;
664: RAISE fnd_api.g_exc_error;
665: END IF;
666: END IF;
667:
668: -- revision control
666: END IF;
667:
668: -- revision control
669: IF p_item_attr_rec.revision_control_flag = 'Y' THEN
670: IF nvl(p_instance_rec.inventory_revision, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
671: fnd_message.set_name('CSI','CSI_TXN_ITEM_REV_MISSING');
672: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
673: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
674: fnd_msg_pub.add;
671: fnd_message.set_name('CSI','CSI_TXN_ITEM_REV_MISSING');
672: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
673: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
674: fnd_msg_pub.add;
675: RAISE fnd_api.g_exc_error;
676: END IF;
677: END IF;
678:
679: -- locator control
679: -- locator control
680: /*
681: -- elliminated this validation as core API does this
682: IF p_item_attr_rec.locator_control_flag = 'Y' THEN
683: IF nvl(p_instance_rec.inv_locator_id , fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
684: fnd_message.set_name('CSI','CSI_TXN_LOCATOR_MISSING');
685: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
686: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
687: fnd_msg_pub.add;
684: fnd_message.set_name('CSI','CSI_TXN_LOCATOR_MISSING');
685: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
686: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
687: fnd_msg_pub.add;
688: RAISE fnd_api.g_exc_error;
689: END IF;
690: END IF;
691: */
692:
690: END IF;
691: */
692:
693: EXCEPTION
694: WHEN fnd_api.g_exc_error THEN
695: x_return_status := fnd_api.g_ret_sts_error;
696: END validate_instance_rec;
697:
698:
691: */
692:
693: EXCEPTION
694: WHEN fnd_api.g_exc_error THEN
695: x_return_status := fnd_api.g_ret_sts_error;
696: END validate_instance_rec;
697:
698:
699: /* ----------------------------------------------------------------------- */
716: l_inst_query_rec csi_datastructures_pub.instance_query_rec;
717:
718: BEGIN
719:
720: x_return_status := fnd_api.g_ret_sts_success;
721:
722: csi_t_gen_utility_pvt.dump_api_info(
723: p_pkg_name => g_pkg_name,
724: p_api_name => 'build_instance_query_rec');
748: --Added IF condition for bug 13257400 for wip issue cases - when the item is serial
749: --controlled at source serial number alone is enough for querying the source item instances.
750: IF p_sub_type_rec.transaction_type_id = 71
751: AND p_item_attr_rec.src_serial_control_flag = 'Y'
752: AND NVL(l_inst_query_rec.serial_number,fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
753: NULL;
754: ELSE
755: l_inst_query_rec.location_type_code := p_instance_rec.location_type_code;
756: l_inst_query_rec.location_id := p_instance_rec.location_id;
799:
800: END IF;
801:
802: --Bug 12986900 - When searching with serial number, revision number need not be considered
803: IF NVL(l_inst_query_rec.serial_number, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
804: -- revision control
805: IF p_item_attr_rec.revision_control_flag = 'Y' THEN
806: l_inst_query_rec.inventory_revision := p_instance_rec.inventory_revision;
807: ELSE
814: -- Bug 11662461
815: -- When the destination query has serial number, then wip job id is not necessary
816: IF (p_sub_type_rec.transaction_type_id <> 71
817: OR ( p_sub_type_rec.transaction_type_id = 71 AND
818: NVL(l_inst_query_rec.serial_number, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR)) THEN
819: l_inst_query_rec.wip_job_id := p_dest_location_rec.wip_job_id;
820: l_inst_query_rec.instance_usage_code := p_dest_location_rec.instance_usage_code;
821: END IF;
822:
820: l_inst_query_rec.instance_usage_code := p_dest_location_rec.instance_usage_code;
821: END IF;
822:
823: IF l_inst_query_rec.location_type_code = 'WIP'AND (p_sub_type_rec.transaction_type_id <> 71 OR ( p_sub_type_rec.transaction_type_id = 71 AND
824: NVL(l_inst_query_rec.serial_number, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR)) THEN
825: l_inst_query_rec.instance_usage_code := 'IN_WIP';
826: END IF;
827:
828: IF l_inst_query_rec.location_type_code = 'PROJECT' THEN
833: END IF;
834:
835: IF l_inst_query_rec.location_type_code = 'INVENTORY' THEN
836: l_inst_query_rec.instance_usage_code := 'IN_INVENTORY';
837: l_inst_query_rec.location_id := fnd_api.g_miss_num;
838: END IF;
839:
840: x_instance_query_rec := l_inst_query_rec;
841:
844: csi_t_gen_utility_pvt.dump_instance_query_rec(
845: p_instance_query_rec => x_instance_query_rec);
846:
847: EXCEPTION
848: WHEN fnd_api.g_exc_error THEN
849: x_return_status := fnd_api.g_ret_sts_error;
850: END build_instance_query_rec;
851:
852:
845: p_instance_query_rec => x_instance_query_rec);
846:
847: EXCEPTION
848: WHEN fnd_api.g_exc_error THEN
849: x_return_status := fnd_api.g_ret_sts_error;
850: END build_instance_query_rec;
851:
852:
853: PROCEDURE get_negative_code(
855: x_negative_code OUT NOCOPY number,
856: x_return_status OUT NOCOPY varchar2)
857: IS
858: BEGIN
859: x_return_status := fnd_api.g_ret_sts_success;
860: SELECT negative_inv_receipt_code
861: INTO x_negative_code
862: FROM mtl_parameters
863: WHERE organization_id = p_organization_id;
862: FROM mtl_parameters
863: WHERE organization_id = p_organization_id;
864: EXCEPTION
865: WHEN others then
866: x_return_status := fnd_api.g_ret_sts_error;
867: END get_negative_code;
868:
869: PROCEDURE create_zero_qty_instance(
870: p_instance_rec in csi_process_txn_grp.txn_instance_rec,
892: l_u_pricing_tbl csi_datastructures_pub.pricing_attribs_tbl;
893: l_u_assets_tbl csi_datastructures_pub.instance_asset_tbl;
894: l_instance_ids_list csi_datastructures_pub.id_tbl;
895:
896: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
897: l_msg_count number;
898: l_msg_data varchar2(2000);
899:
900: BEGIN
897: l_msg_count number;
898: l_msg_data varchar2(2000);
899:
900: BEGIN
901: x_return_status := fnd_api.g_ret_sts_success;
902:
903: api_log('create_zero_qty_instance');
904:
905: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
907: l_instance_rec.inventory_item_id := p_instance_rec.inventory_item_id;
908: l_instance_rec.inventory_revision := p_instance_rec.inventory_revision;
909: l_instance_rec.inv_subinventory_name := p_instance_rec.inv_subinventory_name;
910: -- this is always a non serial instance
911: l_instance_rec.serial_number := fnd_api.g_miss_char;
912: l_instance_rec.lot_number := p_instance_rec.lot_number;
913: l_instance_rec.quantity := 1;
914: l_instance_rec.active_start_date := sysdate;
915: l_instance_rec.active_end_date := null;
915: l_instance_rec.active_end_date := null;
916: l_instance_rec.unit_of_measure := p_instance_rec.unit_of_measure;
917: l_instance_rec.location_type_code := 'INVENTORY';
918: l_instance_rec.location_id := p_instance_rec.location_id;
919: IF nvl(l_instance_rec.location_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
920: get_dfl_inv_location(
921: p_subinventory_code => p_instance_rec.inv_subinventory_name,
922: p_organization_id => p_instance_rec.inv_organization_id,
923: x_location_id => l_instance_rec.location_id,
944:
945: -- creation of zero quantity instance
946: csi_item_instance_pub.create_item_instance(
947: p_api_version => 1.0,
948: p_commit => fnd_api.g_false,
949: p_init_msg_list => fnd_api.g_true,
950: p_validation_level => fnd_api.g_valid_level_full,
951: p_instance_rec => l_instance_rec,
952: p_party_tbl => l_parties_tbl,
945: -- creation of zero quantity instance
946: csi_item_instance_pub.create_item_instance(
947: p_api_version => 1.0,
948: p_commit => fnd_api.g_false,
949: p_init_msg_list => fnd_api.g_true,
950: p_validation_level => fnd_api.g_valid_level_full,
951: p_instance_rec => l_instance_rec,
952: p_party_tbl => l_parties_tbl,
953: p_account_tbl => l_pty_accts_tbl,
946: csi_item_instance_pub.create_item_instance(
947: p_api_version => 1.0,
948: p_commit => fnd_api.g_false,
949: p_init_msg_list => fnd_api.g_true,
950: p_validation_level => fnd_api.g_valid_level_full,
951: p_instance_rec => l_instance_rec,
952: p_party_tbl => l_parties_tbl,
953: p_account_tbl => l_pty_accts_tbl,
954: p_org_assignments_tbl => l_org_units_tbl,
960: x_msg_count => l_msg_count,
961: x_msg_data => l_msg_data );
962:
963: -- For Bug 4057183
964: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
965: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
966: raise fnd_api.g_exc_error;
967: END IF;
968:
961: x_msg_data => l_msg_data );
962:
963: -- For Bug 4057183
964: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
965: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
966: raise fnd_api.g_exc_error;
967: END IF;
968:
969: x_instance_id := l_instance_rec.instance_id;
962:
963: -- For Bug 4057183
964: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
965: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
966: raise fnd_api.g_exc_error;
967: END IF;
968:
969: x_instance_id := l_instance_rec.instance_id;
970:
982:
983: -- update to make a zero quantity instance
984: csi_item_instance_pub.update_item_instance(
985: p_api_version => 1.0,
986: p_commit => fnd_api.g_false,
987: p_init_msg_list => fnd_api.g_true,
988: p_validation_level => fnd_api.g_valid_level_full,
989: p_instance_rec => l_u_instance_rec,
990: p_party_tbl => l_u_parties_tbl,
983: -- update to make a zero quantity instance
984: csi_item_instance_pub.update_item_instance(
985: p_api_version => 1.0,
986: p_commit => fnd_api.g_false,
987: p_init_msg_list => fnd_api.g_true,
988: p_validation_level => fnd_api.g_valid_level_full,
989: p_instance_rec => l_u_instance_rec,
990: p_party_tbl => l_u_parties_tbl,
991: p_account_tbl => l_u_pty_accts_tbl,
984: csi_item_instance_pub.update_item_instance(
985: p_api_version => 1.0,
986: p_commit => fnd_api.g_false,
987: p_init_msg_list => fnd_api.g_true,
988: p_validation_level => fnd_api.g_valid_level_full,
989: p_instance_rec => l_u_instance_rec,
990: p_party_tbl => l_u_parties_tbl,
991: p_account_tbl => l_u_pty_accts_tbl,
992: p_org_assignments_tbl => l_u_org_units_tbl,
999: x_msg_count => l_msg_count,
1000: x_msg_data => l_msg_data);
1001:
1002: -- For Bug 4057183
1003: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1004: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1005: RAISE fnd_api.g_exc_error;
1006: END IF;
1007:
1000: x_msg_data => l_msg_data);
1001:
1002: -- For Bug 4057183
1003: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1004: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1005: RAISE fnd_api.g_exc_error;
1006: END IF;
1007:
1008: EXCEPTION
1001:
1002: -- For Bug 4057183
1003: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1004: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1005: RAISE fnd_api.g_exc_error;
1006: END IF;
1007:
1008: EXCEPTION
1009: WHEN fnd_api.g_exc_error THEN
1005: RAISE fnd_api.g_exc_error;
1006: END IF;
1007:
1008: EXCEPTION
1009: WHEN fnd_api.g_exc_error THEN
1010: x_return_status := fnd_api.g_ret_sts_error;
1011: END create_zero_qty_instance;
1012:
1013: /* ---------------------------------------------------------------------- */
1006: END IF;
1007:
1008: EXCEPTION
1009: WHEN fnd_api.g_exc_error THEN
1010: x_return_status := fnd_api.g_ret_sts_error;
1011: END create_zero_qty_instance;
1012:
1013: /* ---------------------------------------------------------------------- */
1014: /* core routine that gets the item instance from the installed base. this */
1039:
1040: instance_not_found exception;
1041: skip_instance_search exception;
1042:
1043: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1044: l_msg_count number;
1045: l_msg_data varchar2(2000);
1046:
1047: -- Begin adding code for bug 7207346
1056: csi_t_gen_utility_pvt.dump_api_info(
1057: p_pkg_name => g_pkg_name,
1058: p_api_name => 'get_src_instance_id');
1059:
1060: x_return_status := fnd_api.g_ret_sts_success;
1061:
1062: /* for WIP component return transaction the source instance will be processed
1063: in the WIP pice of code itself
1064: */
1062: /* for WIP component return transaction the source instance will be processed
1063: in the WIP pice of code itself
1064: */
1065: IF p_in_out_flag = 'INT' and p_instance_rec.location_type_code = 'WIP' THEN
1066: x_instance_id := fnd_api.g_miss_num;
1067: RAISE skip_instance_search;
1068: END IF;
1069:
1070: validate_instance_rec(
1071: p_instance_rec => p_instance_rec,
1072: p_item_attr_rec => p_item_attr_rec,
1073: x_return_status => l_return_status);
1074:
1075: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1076: RAISE fnd_api.g_exc_error;
1077: END IF;
1078:
1079: build_instance_query_rec(
1072: p_item_attr_rec => p_item_attr_rec,
1073: x_return_status => l_return_status);
1074:
1075: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1076: RAISE fnd_api.g_exc_error;
1077: END IF;
1078:
1079: build_instance_query_rec(
1080: p_query_criteria => 'SOURCE',
1085: p_item_attr_rec => p_item_attr_rec,
1086: x_instance_query_rec => l_instance_query_rec,
1087: x_return_status => l_return_status);
1088:
1089: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1090: RAISE fnd_api.g_exc_error;
1091: END IF;
1092:
1093: csi_item_instance_pub.get_item_instances(
1086: x_instance_query_rec => l_instance_query_rec,
1087: x_return_status => l_return_status);
1088:
1089: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1090: RAISE fnd_api.g_exc_error;
1091: END IF;
1092:
1093: csi_item_instance_pub.get_item_instances(
1094: p_api_version => 1.0,
1091: END IF;
1092:
1093: csi_item_instance_pub.get_item_instances(
1094: p_api_version => 1.0,
1095: p_commit => fnd_api.g_false,
1096: p_init_msg_list => fnd_api.g_true,
1097: p_validation_level => fnd_api.g_valid_level_full,
1098: p_instance_query_rec => l_instance_query_rec,
1099: p_party_query_rec => l_party_query_rec,
1092:
1093: csi_item_instance_pub.get_item_instances(
1094: p_api_version => 1.0,
1095: p_commit => fnd_api.g_false,
1096: p_init_msg_list => fnd_api.g_true,
1097: p_validation_level => fnd_api.g_valid_level_full,
1098: p_instance_query_rec => l_instance_query_rec,
1099: p_party_query_rec => l_party_query_rec,
1100: p_account_query_rec => l_pty_acct_query_rec,
1093: csi_item_instance_pub.get_item_instances(
1094: p_api_version => 1.0,
1095: p_commit => fnd_api.g_false,
1096: p_init_msg_list => fnd_api.g_true,
1097: p_validation_level => fnd_api.g_valid_level_full,
1098: p_instance_query_rec => l_instance_query_rec,
1099: p_party_query_rec => l_party_query_rec,
1100: p_account_query_rec => l_pty_acct_query_rec,
1101: p_transaction_id => NULL,
1098: p_instance_query_rec => l_instance_query_rec,
1099: p_party_query_rec => l_party_query_rec,
1100: p_account_query_rec => l_pty_acct_query_rec,
1101: p_transaction_id => NULL,
1102: p_resolve_id_columns => fnd_api.g_false,
1103: p_active_instance_only => fnd_api.g_false,
1104: x_instance_header_tbl => l_instance_header_tbl,
1105: x_return_status => l_return_status,
1106: x_msg_count => l_msg_count,
1099: p_party_query_rec => l_party_query_rec,
1100: p_account_query_rec => l_pty_acct_query_rec,
1101: p_transaction_id => NULL,
1102: p_resolve_id_columns => fnd_api.g_false,
1103: p_active_instance_only => fnd_api.g_false,
1104: x_instance_header_tbl => l_instance_header_tbl,
1105: x_return_status => l_return_status,
1106: x_msg_count => l_msg_count,
1107: x_msg_data => l_msg_data );
1105: x_return_status => l_return_status,
1106: x_msg_count => l_msg_count,
1107: x_msg_data => l_msg_data );
1108:
1109: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1110: RAISE fnd_api.g_exc_error;
1111: END IF;
1112:
1113: l_change_owner := p_sub_type_rec.src_change_owner;
1106: x_msg_count => l_msg_count,
1107: x_msg_data => l_msg_data );
1108:
1109: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1110: RAISE fnd_api.g_exc_error;
1111: END IF;
1112:
1113: l_change_owner := p_sub_type_rec.src_change_owner;
1114: l_owner_to_code := p_sub_type_rec.src_change_owner_to_code;
1157: -- End adding code for bug 7207346
1158:
1159: IF l_instance_header_tbl.COUNT = 0 THEN
1160:
1161: x_instance_id := fnd_api.g_miss_num;
1162:
1163: /* here are the conditions where instance ref is reqd If a reference */
1164: /* cannot be obtained then it is an error condition. Either the query */
1165: /* criteria (Item, Rev, Org, Subinv, Locator, Lot Num, Serial Num) is */
1169: /* issue to projects /issue to wip job/misc issue/wip comp return */
1170: IF p_in_out_flag = 'INT' and l_change_owner = 'N' THEN
1171:
1172: /* wip comp return */
1173: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'WIP' THEN
1174: x_instance_id := fnd_api.g_miss_num;
1175:
1176: ELSE
1177: /* wip comp issue or for anything the source is inventory */
1170: IF p_in_out_flag = 'INT' and l_change_owner = 'N' THEN
1171:
1172: /* wip comp return */
1173: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'WIP' THEN
1174: x_instance_id := fnd_api.g_miss_num;
1175:
1176: ELSE
1177: /* wip comp issue or for anything the source is inventory */
1178: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'INVENTORY' THEN
1174: x_instance_id := fnd_api.g_miss_num;
1175:
1176: ELSE
1177: /* wip comp issue or for anything the source is inventory */
1178: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'INVENTORY' THEN
1179: get_negative_code(
1180: p_organization_id => p_instance_rec.inv_organization_id,
1181: x_negative_code => l_negative_code,
1182: x_return_status => l_return_status);
1179: get_negative_code(
1180: p_organization_id => p_instance_rec.inv_organization_id,
1181: x_negative_code => l_negative_code,
1182: x_return_status => l_return_status);
1183: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1184: raise fnd_api.g_exc_error;
1185: END IF;
1186: -- for wip comp issue override it with the backflush profile value
1187: IF l_negative_code = 2 AND p_transaction_rec.transaction_type_id = 71 THEN
1180: p_organization_id => p_instance_rec.inv_organization_id,
1181: x_negative_code => l_negative_code,
1182: x_return_status => l_return_status);
1183: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1184: raise fnd_api.g_exc_error;
1185: END IF;
1186: -- for wip comp issue override it with the backflush profile value
1187: IF l_negative_code = 2 AND p_transaction_rec.transaction_type_id = 71 THEN
1188: l_negative_code := nvl(fnd_profile.value('inv_override_neg_for_backflush'), 2);
1193: p_instance_rec => p_instance_rec,
1194: p_txn_rec => p_transaction_rec,
1195: x_instance_id => x_instance_id,
1196: x_return_status => l_return_status);
1197: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1198: RAISE fnd_api.g_exc_error;
1199: END IF;
1200: ELSE
1201: raise instance_not_found;
1194: p_txn_rec => p_transaction_rec,
1195: x_instance_id => x_instance_id,
1196: x_return_status => l_return_status);
1197: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1198: RAISE fnd_api.g_exc_error;
1199: END IF;
1200: ELSE
1201: raise instance_not_found;
1202: END IF;
1212:
1213: IF l_change_owner = 'N' THEN
1214:
1215: -- exclude misc receipt (source location attributes are null)
1216: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
1217: OR
1218: nvl(p_instance_rec.location_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1219: OR
1220: nvl(p_instance_rec.inv_organization_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1214:
1215: -- exclude misc receipt (source location attributes are null)
1216: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
1217: OR
1218: nvl(p_instance_rec.location_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1219: OR
1220: nvl(p_instance_rec.inv_organization_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1221: OR
1222: nvl(p_instance_rec.inv_subinventory_name, fnd_api.g_miss_char)<> fnd_api.g_miss_char
1216: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
1217: OR
1218: nvl(p_instance_rec.location_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1219: OR
1220: nvl(p_instance_rec.inv_organization_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1221: OR
1222: nvl(p_instance_rec.inv_subinventory_name, fnd_api.g_miss_char)<> fnd_api.g_miss_char
1223: THEN
1224: -- if it is return for repair from customer and item is serialized and
1218: nvl(p_instance_rec.location_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1219: OR
1220: nvl(p_instance_rec.inv_organization_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
1221: OR
1222: nvl(p_instance_rec.inv_subinventory_name, fnd_api.g_miss_char)<> fnd_api.g_miss_char
1223: THEN
1224: -- if it is return for repair from customer and item is serialized and
1225: -- the CSI Profile to process the txn is set to 'Y' then a source instance is not required
1226: -- Added this for the ER 2482219. Return for repair
1235: AND
1236: nvl(l_pty_override_flag, 'N') = 'Y'
1237: THEN
1238: debug(' return for repair and no instance found:: marking for create');
1239: x_instance_id := fnd_api.g_miss_num;
1240: ELSE
1241: /* for subinventory transfer the source instance ref is required */
1242: raise instance_not_found;
1243: END IF;
1242: raise instance_not_found;
1243: END IF;
1244: ELSE
1245: /* for miscellaneous receipt source instance is not required */
1246: x_instance_id := fnd_api.g_miss_num;
1247: END IF;
1248:
1249: /* receipt in from customer - return for credit case */
1250: ELSIF l_change_owner = 'Y' THEN
1247: END IF;
1248:
1249: /* receipt in from customer - return for credit case */
1250: ELSIF l_change_owner = 'Y' THEN
1251: x_instance_id := fnd_api.g_miss_num;
1252: END IF;
1253:
1254: END IF;
1255:
1259: /* this logic is added to fix bug 2260019. This is the case when onhand balance is 0
1260: and there is no instance in ib as source and the inv org allows negative balances
1261: when the quantity goes to -ive create a 0 qty instance and use it to decrement qty
1262: */
1263: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'INVENTORY' THEN
1264: get_negative_code(
1265: p_organization_id => p_instance_rec.inv_organization_id,
1266: x_negative_code => l_negative_code,
1267: x_return_status => l_return_status);
1264: get_negative_code(
1265: p_organization_id => p_instance_rec.inv_organization_id,
1266: x_negative_code => l_negative_code,
1267: x_return_status => l_return_status);
1268: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1269: raise fnd_api.g_exc_error;
1270: END IF;
1271: IF l_negative_code = 1 and p_item_attr_rec.src_serial_control_flag = 'N' THEN
1272: debug('Org allows negative quantities. So creating an instance with 0 quantity.');
1265: p_organization_id => p_instance_rec.inv_organization_id,
1266: x_negative_code => l_negative_code,
1267: x_return_status => l_return_status);
1268: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1269: raise fnd_api.g_exc_error;
1270: END IF;
1271: IF l_negative_code = 1 and p_item_attr_rec.src_serial_control_flag = 'N' THEN
1272: debug('Org allows negative quantities. So creating an instance with 0 quantity.');
1273: csi_process_txn_pvt.create_zero_qty_instance(
1274: p_instance_rec => p_instance_rec,
1275: p_txn_rec => p_transaction_rec,
1276: x_instance_id => x_instance_id,
1277: x_return_status => l_return_status);
1278: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1279: RAISE fnd_api.g_exc_error;
1280: END IF;
1281: ELSE
1282: raise instance_not_found;
1275: p_txn_rec => p_transaction_rec,
1276: x_instance_id => x_instance_id,
1277: x_return_status => l_return_status);
1278: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1279: RAISE fnd_api.g_exc_error;
1280: END IF;
1281: ELSE
1282: raise instance_not_found;
1283: END IF;
1292:
1293: /* doing this because the wip instance can be returned even if there is no
1294: quantity in WIP -- srini knows the scenario
1295: */
1296: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'WIP'
1297: AND l_instance_header_tbl(1).quantity = 0 THEN
1298: x_instance_id := fnd_api.g_miss_num;
1299: END IF;
1300:
1294: quantity in WIP -- srini knows the scenario
1295: */
1296: IF nvl(p_instance_rec.location_type_code,fnd_api.g_miss_char) = 'WIP'
1297: AND l_instance_header_tbl(1).quantity = 0 THEN
1298: x_instance_id := fnd_api.g_miss_num;
1299: END IF;
1300:
1301: ELSIF l_instance_header_tbl.COUNT > 1 AND l_num_unexpired_instances = 1 THEN
1302: debug('only 1 of the '||l_instance_header_tbl.COUNT||' instances found is unexpired');
1304:
1305: /* doing this because the wip instance can be returned even if there is no
1306: quantity in WIP -- srini knows the scenario
1307: */
1308: IF nvl(p_instance_rec.location_type_code, fnd_api.g_miss_char) = 'WIP'
1309: AND l_instance_header_tbl(l_unexpired_instance_index).quantity = 0 THEN
1310: x_instance_id := fnd_api.g_miss_num;
1311: END IF;
1312:
1306: quantity in WIP -- srini knows the scenario
1307: */
1308: IF nvl(p_instance_rec.location_type_code, fnd_api.g_miss_char) = 'WIP'
1309: AND l_instance_header_tbl(l_unexpired_instance_index).quantity = 0 THEN
1310: x_instance_id := fnd_api.g_miss_num;
1311: END IF;
1312:
1313: ELSE --[Multiple instances found]
1314:
1314:
1315:
1316: /* receive from customer */
1317: IF p_in_out_flag = 'IN' and l_change_owner = 'Y' THEN
1318: x_instance_id := fnd_api.g_miss_num;
1319: ELSE
1320: fnd_message.set_name('CSI','CSI_TXN_MULT_INST_FOUND');
1321: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
1322: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
1322: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
1323: fnd_message.set_token('SUBINV',p_instance_rec.inv_subinventory_name);
1324: fnd_message.set_token('LOCATOR',p_instance_rec.inv_locator_id);
1325: fnd_msg_pub.add;
1326: RAISE fnd_api.g_exc_error;
1327: END IF;
1328:
1329: END IF;
1330:
1329: END IF;
1330:
1331: EXCEPTION
1332: WHEN skip_instance_search THEN
1333: x_return_status := fnd_api.g_ret_sts_success;
1334: WHEN instance_not_found THEN
1335: fnd_message.set_name('CSI','CSI_TXN_INST_NOT_FOUND');
1336: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
1337: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
1337: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
1338: fnd_message.set_token('SUBINV',p_instance_rec.inv_subinventory_name);
1339: fnd_message.set_token('LOCATOR',p_instance_rec.inv_locator_id);
1340: fnd_msg_pub.add;
1341: x_return_status := fnd_api.g_ret_sts_error;
1342:
1343: WHEN fnd_api.g_exc_error THEN
1344: x_return_status := fnd_api.g_ret_sts_error;
1345: END get_src_instance_id;
1339: fnd_message.set_token('LOCATOR',p_instance_rec.inv_locator_id);
1340: fnd_msg_pub.add;
1341: x_return_status := fnd_api.g_ret_sts_error;
1342:
1343: WHEN fnd_api.g_exc_error THEN
1344: x_return_status := fnd_api.g_ret_sts_error;
1345: END get_src_instance_id;
1346:
1347:
1340: fnd_msg_pub.add;
1341: x_return_status := fnd_api.g_ret_sts_error;
1342:
1343: WHEN fnd_api.g_exc_error THEN
1344: x_return_status := fnd_api.g_ret_sts_error;
1345: END get_src_instance_id;
1346:
1347:
1348: PROCEDURE get_dest_instance_id(
1365: l_owner_to_code varchar2(1);
1366:
1367: instance_not_found exception;
1368:
1369: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1370: l_msg_count number;
1371: l_msg_data varchar2(2000);
1372:
1373: -- Begin adding code for bug 7207346
1382: csi_t_gen_utility_pvt.dump_api_info(
1383: p_pkg_name => g_pkg_name,
1384: p_api_name => 'get_dest_instance_id');
1385:
1386: x_return_status := fnd_api.g_ret_sts_success;
1387:
1388: build_instance_query_rec(
1389: p_query_criteria => 'DESTINATION',
1390: p_in_out_flag => p_in_out_flag,
1394: p_item_attr_rec => p_item_attr_rec,
1395: x_instance_query_rec => l_instance_query_rec,
1396: x_return_status => l_return_status);
1397:
1398: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1399: RAISE fnd_api.g_exc_error;
1400: END IF;
1401:
1402: csi_t_gen_utility_pvt.dump_api_info(
1395: x_instance_query_rec => l_instance_query_rec,
1396: x_return_status => l_return_status);
1397:
1398: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1399: RAISE fnd_api.g_exc_error;
1400: END IF;
1401:
1402: csi_t_gen_utility_pvt.dump_api_info(
1403: p_pkg_name => 'csi_item_instance_pub',
1404: p_api_name => 'get_item_instances');
1405:
1406: csi_item_instance_pub.get_item_instances(
1407: p_api_version => 1.0,
1408: p_commit => fnd_api.g_false,
1409: p_init_msg_list => fnd_api.g_true,
1410: p_validation_level => fnd_api.g_valid_level_full,
1411: p_instance_query_rec => l_instance_query_rec,
1412: p_party_query_rec => l_party_query_rec,
1405:
1406: csi_item_instance_pub.get_item_instances(
1407: p_api_version => 1.0,
1408: p_commit => fnd_api.g_false,
1409: p_init_msg_list => fnd_api.g_true,
1410: p_validation_level => fnd_api.g_valid_level_full,
1411: p_instance_query_rec => l_instance_query_rec,
1412: p_party_query_rec => l_party_query_rec,
1413: p_account_query_rec => l_pty_acct_query_rec,
1406: csi_item_instance_pub.get_item_instances(
1407: p_api_version => 1.0,
1408: p_commit => fnd_api.g_false,
1409: p_init_msg_list => fnd_api.g_true,
1410: p_validation_level => fnd_api.g_valid_level_full,
1411: p_instance_query_rec => l_instance_query_rec,
1412: p_party_query_rec => l_party_query_rec,
1413: p_account_query_rec => l_pty_acct_query_rec,
1414: p_transaction_id => NULL,
1411: p_instance_query_rec => l_instance_query_rec,
1412: p_party_query_rec => l_party_query_rec,
1413: p_account_query_rec => l_pty_acct_query_rec,
1414: p_transaction_id => NULL,
1415: p_resolve_id_columns => fnd_api.g_false,
1416: p_active_instance_only => fnd_api.g_false,
1417: x_instance_header_tbl => l_instance_header_tbl,
1418: x_return_status => l_return_status,
1419: x_msg_count => l_msg_count,
1412: p_party_query_rec => l_party_query_rec,
1413: p_account_query_rec => l_pty_acct_query_rec,
1414: p_transaction_id => NULL,
1415: p_resolve_id_columns => fnd_api.g_false,
1416: p_active_instance_only => fnd_api.g_false,
1417: x_instance_header_tbl => l_instance_header_tbl,
1418: x_return_status => l_return_status,
1419: x_msg_count => l_msg_count,
1420: x_msg_data => l_msg_data );
1418: x_return_status => l_return_status,
1419: x_msg_count => l_msg_count,
1420: x_msg_data => l_msg_data );
1421:
1422: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1423: RAISE fnd_api.g_exc_error;
1424: END IF;
1425:
1426: l_change_owner := p_sub_type_rec.src_change_owner;
1419: x_msg_count => l_msg_count,
1420: x_msg_data => l_msg_data );
1421:
1422: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1423: RAISE fnd_api.g_exc_error;
1424: END IF;
1425:
1426: l_change_owner := p_sub_type_rec.src_change_owner;
1427: l_owner_to_code := p_sub_type_rec.src_change_owner_to_code;
1470: -- End adding code for bug 7207346
1471:
1472: IF l_instance_header_tbl.COUNT = 0 THEN
1473:
1474: x_instance_id := fnd_api.g_miss_num;
1475:
1476: ELSIF l_instance_header_tbl.COUNT = 1 THEN
1477: x_instance_id := l_instance_header_tbl(1).instance_id;
1478: ELSIF l_instance_header_tbl.COUNT > 1 AND l_num_unexpired_instances = 1 THEN -- Add condition for bug 7207346
1486: fnd_message.set_token('SUBINV',p_dest_location_rec.inv_subinventory_name);
1487: fnd_message.set_token('LOCATOR',p_dest_location_rec.inv_locator_id);
1488:
1489: fnd_msg_pub.add;
1490: RAISE fnd_api.g_exc_error;
1491:
1492: END IF;
1493:
1494: EXCEPTION
1496: fnd_message.set_name('CSI','CSI_TXN_INST_NOT_FOUND');
1497: fnd_message.set_token('INV_ITEM_ID',p_instance_rec.inventory_item_id);
1498: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
1499: fnd_msg_pub.add;
1500: x_return_status := fnd_api.g_ret_sts_error;
1501:
1502: WHEN fnd_api.g_exc_error THEN
1503: x_return_status := fnd_api.g_ret_sts_error;
1504: END get_dest_instance_id;
1498: fnd_message.set_token('INV_ORG_ID',p_instance_rec.inv_organization_id);
1499: fnd_msg_pub.add;
1500: x_return_status := fnd_api.g_ret_sts_error;
1501:
1502: WHEN fnd_api.g_exc_error THEN
1503: x_return_status := fnd_api.g_ret_sts_error;
1504: END get_dest_instance_id;
1505:
1506:
1499: fnd_msg_pub.add;
1500: x_return_status := fnd_api.g_ret_sts_error;
1501:
1502: WHEN fnd_api.g_exc_error THEN
1503: x_return_status := fnd_api.g_ret_sts_error;
1504: END get_dest_instance_id;
1505:
1506:
1507: /* ---------------------------------------------------------------------*/
1522: l_instance_rec csi_datastructures_pub.instance_rec;
1523: l_process_mode varchar2(30);
1524: BEGIN
1525:
1526: x_return_status := fnd_api.g_ret_sts_success;
1527:
1528: l_instance_rec.instance_id := p_instance_rec.instance_id;
1529:
1530: /* the derived instance id would be in the new_instance_id column */
1527:
1528: l_instance_rec.instance_id := p_instance_rec.instance_id;
1529:
1530: /* the derived instance id would be in the new_instance_id column */
1531: IF nvl(p_instance_rec.instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
1532: l_instance_rec.instance_id := p_instance_rec.new_instance_id;
1533: END IF;
1534:
1535: IF nvl(l_instance_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
1531: IF nvl(p_instance_rec.instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
1532: l_instance_rec.instance_id := p_instance_rec.new_instance_id;
1533: END IF;
1534:
1535: IF nvl(l_instance_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
1536: l_process_mode := 'UPDATE';
1537: ELSE
1538: l_process_mode := 'CREATE';
1539: END IF;
1620: END IF;
1621:
1622: IF p_item_attr_rec.src_serial_control_flag = 'Y' AND
1623: p_item_attr_rec.dst_serial_control_flag = 'Y' THEN
1624: IF nvl(l_instance_rec.instance_status_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
1625: l_instance_rec.instance_status_id := p_sub_type_rec.src_status_id;
1626: END IF;
1627: END IF;
1628:
1629: x_instance_rec := l_instance_rec;
1630: x_process_mode := l_process_mode;
1631:
1632: EXCEPTION
1633: WHEN fnd_api.g_exc_error THEN
1634: x_return_status := fnd_api.g_ret_sts_error;
1635: END build_instance_rec;
1636:
1637:
1630: x_process_mode := l_process_mode;
1631:
1632: EXCEPTION
1633: WHEN fnd_api.g_exc_error THEN
1634: x_return_status := fnd_api.g_ret_sts_error;
1635: END build_instance_rec;
1636:
1637:
1638: /* --------------------------------------------------------------------- */
2102: l_pricing_tbl csi_datastructures_pub.pricing_attribs_tbl;
2103: l_assets_tbl csi_datastructures_pub.instance_asset_tbl;
2104:
2105: l_debug_level number;
2106: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2107: l_msg_count number;
2108: l_msg_data varchar2(2000);
2109:
2110: l_location_type_code varchar2(30);
2111: l_instance_expire_flag boolean := FALSE;
2112:
2113: BEGIN
2114:
2115: x_return_status := fnd_api.g_ret_sts_success;
2116:
2117: api_log('get_ids_for_instance');
2118:
2119: l_location_type_code := p_instance_rec.location_type_code;
2117: api_log('get_ids_for_instance');
2118:
2119: l_location_type_code := p_instance_rec.location_type_code;
2120:
2121: IF nvl(l_location_type_code,fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
2122: SELECT location_type_code
2123: INTO l_location_type_code
2124: FROM csi_item_instances
2125: WHERE instance_id = p_instance_rec.instance_id;
2146: AND nvl(active_end_date, sysdate+1);
2147:
2148: ELSE
2149:
2150: p_parties_tbl(l_ind).instance_party_id := fnd_api.g_miss_num;
2151: p_parties_tbl(l_ind).object_version_number := 1;
2152:
2153: END IF;
2154:
2175: AND nvl(active_end_date, sysdate+1);
2176:
2177: EXCEPTION
2178: WHEN no_data_found THEN
2179: p_pty_accts_tbl(l_a_ind).ip_account_id := fnd_api.g_miss_num;
2180: p_pty_accts_tbl(l_a_ind).object_version_number := 1;
2181: END;
2182: ELSE
2183: p_pty_accts_tbl(l_a_ind).ip_account_id := fnd_api.g_miss_num;
2179: p_pty_accts_tbl(l_a_ind).ip_account_id := fnd_api.g_miss_num;
2180: p_pty_accts_tbl(l_a_ind).object_version_number := 1;
2181: END;
2182: ELSE
2183: p_pty_accts_tbl(l_a_ind).ip_account_id := fnd_api.g_miss_num;
2184: p_pty_accts_tbl(l_a_ind).object_version_number := 1;
2185: END IF;
2186:
2187: debug(' IP Account ID :'||p_pty_accts_tbl(l_a_ind).ip_account_id);
2191: END IF;
2192:
2193: EXCEPTION
2194: WHEN no_data_found THEN
2195: p_parties_tbl(l_ind).instance_party_id := fnd_api.g_miss_num;
2196: END;
2197:
2198: END LOOP;
2199: END IF;
2214: AND nvl(active_end_date, sysdate+1);
2215:
2216: EXCEPTION
2217: WHEN no_data_found THEN
2218: p_org_units_tbl(l_ind).operating_unit_id := fnd_api.g_miss_num;
2219: p_org_units_tbl(l_ind).object_version_number := 1;
2220: END;
2221: END LOOP;
2222: END IF;
2236: AND fa_book_type_code = p_assets_tbl(l_ind).fa_book_type_code
2237: AND rownum = 1;
2238: EXCEPTION
2239: WHEN no_data_found THEN
2240: p_assets_tbl(l_ind).instance_asset_id := fnd_api.g_miss_num;
2241: p_assets_tbl(l_ind).object_version_number := 1;
2242: END;
2243: END LOOP;
2244: END IF;
2339: l_instance_party_id number;
2340: l_object_version_number number;
2341: BEGIN
2342:
2343: x_return_status := fnd_api.g_ret_sts_success;
2344:
2345: api_log('get_internal_party_tbl');
2346:
2347: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
2362: p_parties_tbl(1).relationship_type_code:= 'OWNER';
2363: p_parties_tbl(1).contact_flag := 'N';
2364:
2365: EXCEPTION
2366: WHEN fnd_api.g_exc_error THEN
2367: x_return_status := fnd_api.g_ret_sts_error;
2368: END get_internal_party_tbl;
2369:
2370: -- unexpire the instance
2363: p_parties_tbl(1).contact_flag := 'N';
2364:
2365: EXCEPTION
2366: WHEN fnd_api.g_exc_error THEN
2367: x_return_status := fnd_api.g_ret_sts_error;
2368: END get_internal_party_tbl;
2369:
2370: -- unexpire the instance
2371: -- code modification for 3681856;parameter added to determine whether or not to invoke contracts API
2370: -- unexpire the instance
2371: -- code modification for 3681856;parameter added to determine whether or not to invoke contracts API
2372: PROCEDURE unexpire_instance(
2373: p_instance_id IN number,
2374: p_call_contracts IN varchar2 := fnd_api.g_true,
2375: p_transaction_rec IN OUT nocopy csi_datastructures_pub.transaction_rec,
2376: x_return_status OUT nocopy varchar2)
2377: IS
2378: l_u_instance_rec csi_datastructures_pub.instance_rec;
2383: l_u_pricing_tbl csi_datastructures_pub.pricing_attribs_tbl;
2384: l_u_assets_tbl csi_datastructures_pub.instance_asset_tbl;
2385: l_instance_ids_list csi_datastructures_pub.id_tbl;
2386:
2387: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2388: l_msg_count number;
2389: l_msg_data varchar2(2000);
2390: BEGIN
2391:
2388: l_msg_count number;
2389: l_msg_data varchar2(2000);
2390: BEGIN
2391:
2392: x_return_status := fnd_api.g_ret_sts_success;
2393: api_log('unexpire_instance');
2394:
2395: IF nvl(p_instance_id , fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
2396:
2391:
2392: x_return_status := fnd_api.g_ret_sts_success;
2393: api_log('unexpire_instance');
2394:
2395: IF nvl(p_instance_id , fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
2396:
2397: l_u_instance_rec.instance_id := p_instance_id;
2398: l_u_instance_rec.active_end_date := null;
2399: l_u_instance_rec.call_contracts := p_call_contracts;
2411:
2412: -- unexpire instance call.
2413: csi_item_instance_pub.update_item_instance(
2414: p_api_version => 1.0,
2415: p_commit => fnd_api.g_false,
2416: p_init_msg_list => fnd_api.g_true,
2417: p_validation_level => fnd_api.g_valid_level_full,
2418: p_instance_rec => l_u_instance_rec,
2419: p_party_tbl => l_u_parties_tbl,
2412: -- unexpire instance call.
2413: csi_item_instance_pub.update_item_instance(
2414: p_api_version => 1.0,
2415: p_commit => fnd_api.g_false,
2416: p_init_msg_list => fnd_api.g_true,
2417: p_validation_level => fnd_api.g_valid_level_full,
2418: p_instance_rec => l_u_instance_rec,
2419: p_party_tbl => l_u_parties_tbl,
2420: p_account_tbl => l_u_pty_accts_tbl,
2413: csi_item_instance_pub.update_item_instance(
2414: p_api_version => 1.0,
2415: p_commit => fnd_api.g_false,
2416: p_init_msg_list => fnd_api.g_true,
2417: p_validation_level => fnd_api.g_valid_level_full,
2418: p_instance_rec => l_u_instance_rec,
2419: p_party_tbl => l_u_parties_tbl,
2420: p_account_tbl => l_u_pty_accts_tbl,
2421: p_org_assignments_tbl => l_u_org_units_tbl,
2428: x_msg_count => l_msg_count,
2429: x_msg_data => l_msg_data);
2430:
2431: -- For Bug 4057183
2432: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2433: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2434: RAISE fnd_api.g_exc_error;
2435: END IF;
2436: END IF;
2429: x_msg_data => l_msg_data);
2430:
2431: -- For Bug 4057183
2432: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2433: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2434: RAISE fnd_api.g_exc_error;
2435: END IF;
2436: END IF;
2437: EXCEPTION
2430:
2431: -- For Bug 4057183
2432: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2433: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2434: RAISE fnd_api.g_exc_error;
2435: END IF;
2436: END IF;
2437: EXCEPTION
2438: WHEN fnd_api.g_exc_error THEN
2434: RAISE fnd_api.g_exc_error;
2435: END IF;
2436: END IF;
2437: EXCEPTION
2438: WHEN fnd_api.g_exc_error THEN
2439: x_return_status := fnd_api.g_ret_sts_error;
2440: END unexpire_instance;
2441:
2442: PROCEDURE preserve_ownership(
2435: END IF;
2436: END IF;
2437: EXCEPTION
2438: WHEN fnd_api.g_exc_error THEN
2439: x_return_status := fnd_api.g_ret_sts_error;
2440: END unexpire_instance;
2441:
2442: PROCEDURE preserve_ownership(
2443: p_item_attr_rec IN csi_process_txn_pvt.item_attr_rec,
2452: l_pty_accts_tbl csi_datastructures_pub.party_account_tbl;
2453: l_pa_ind binary_integer := 0;
2454: BEGIN
2455:
2456: x_return_status := fnd_api.g_ret_sts_success;
2457: api_log('preserve_ownership');
2458:
2459: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
2460:
2457: api_log('preserve_ownership');
2458:
2459: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
2460:
2461: IF nvl(p_instance_rec.instance_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
2462:
2463: IF p_item_attr_rec.src_serial_control_flag = 'Y' AND
2464: p_item_attr_rec.dst_serial_control_flag = 'Y'
2465: THEN
2609: l_config_return varchar2(1) := 'N';
2610:
2611: l_current_procedure varchar2(30);
2612: l_debug_level number;
2613: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2614: l_msg_count number;
2615: l_msg_data varchar2(2000);
2616:
2617: BEGIN
2615: l_msg_data varchar2(2000);
2616:
2617: BEGIN
2618:
2619: x_return_status := fnd_api.g_ret_sts_success;
2620: l_debug_level := csi_t_gen_utility_pvt.g_debug_level;
2621:
2622: /* debug messages */
2623:
2654: x_instance_rec => l_instance_rec,
2655: x_process_mode => l_process_mode,
2656: x_return_status => l_return_status);
2657:
2658: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2659: RAISE fnd_api.g_exc_error;
2660: END IF;
2661:
2662: l_current_procedure := 'build_parties_for_index';
2655: x_process_mode => l_process_mode,
2656: x_return_status => l_return_status);
2657:
2658: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2659: RAISE fnd_api.g_exc_error;
2660: END IF;
2661:
2662: l_current_procedure := 'build_parties_for_index';
2663:
2672: x_return_status => l_return_status);
2673:
2674: debug('Processing instance x pty tbl count'|| l_parties_tbl.count||'x accts tbl'||l_pty_accts_tbl.count);
2675:
2676: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2677: RAISE fnd_api.g_exc_error;
2678: END IF;
2679:
2680: l_current_procedure := 'build_org_units_for_index';
2673:
2674: debug('Processing instance x pty tbl count'|| l_parties_tbl.count||'x accts tbl'||l_pty_accts_tbl.count);
2675:
2676: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2677: RAISE fnd_api.g_exc_error;
2678: END IF;
2679:
2680: l_current_procedure := 'build_org_units_for_index';
2681:
2684: p_org_units_tbl => p_org_units_tbl,
2685: x_org_units_tbl => l_org_units_tbl,
2686: x_return_status => l_return_status);
2687:
2688: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2689: RAISE fnd_api.g_exc_error;
2690: END IF;
2691:
2692: l_current_procedure := 'build_ext_vals_for_index';
2685: x_org_units_tbl => l_org_units_tbl,
2686: x_return_status => l_return_status);
2687:
2688: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2689: RAISE fnd_api.g_exc_error;
2690: END IF;
2691:
2692: l_current_procedure := 'build_ext_vals_for_index';
2693:
2696: p_ext_attrib_vals_tbl => p_ext_attrib_vals_tbl,
2697: x_ea_values_tbl => l_ea_values_tbl,
2698: x_return_status => l_return_status);
2699:
2700: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2701: RAISE fnd_api.g_exc_error;
2702: END IF;
2703:
2704: l_current_procedure := 'build_price_tbl_for_index';
2697: x_ea_values_tbl => l_ea_values_tbl,
2698: x_return_status => l_return_status);
2699:
2700: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2701: RAISE fnd_api.g_exc_error;
2702: END IF;
2703:
2704: l_current_procedure := 'build_price_tbl_for_index';
2705:
2708: p_pricing_attribs_tbl => p_pricing_attribs_tbl,
2709: x_pricing_tbl => l_pricing_tbl,
2710: x_return_status => l_return_status);
2711:
2712: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2713: RAISE fnd_api.g_exc_error;
2714: END IF;
2715:
2716: l_current_procedure := 'build_assets_for_index';
2709: x_pricing_tbl => l_pricing_tbl,
2710: x_return_status => l_return_status);
2711:
2712: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2713: RAISE fnd_api.g_exc_error;
2714: END IF;
2715:
2716: l_current_procedure := 'build_assets_for_index';
2717:
2720: p_instance_asset_tbl => p_instance_asset_tbl,
2721: x_assets_tbl => l_assets_tbl,
2722: x_return_status => l_return_status);
2723:
2724: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2725: RAISE fnd_api.g_exc_error;
2726: END IF;
2727:
2728: IF l_process_mode = 'CREATE' THEN
2721: x_assets_tbl => l_assets_tbl,
2722: x_return_status => l_return_status);
2723:
2724: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2725: RAISE fnd_api.g_exc_error;
2726: END IF;
2727:
2728: IF l_process_mode = 'CREATE' THEN
2729:
2740: l_instance_rec.inv_subinventory_name := p_dest_location_rec.inv_subinventory_name;
2741: l_instance_rec.inv_locator_id := p_dest_location_rec.inv_locator_id;
2742: l_instance_rec.active_end_date := null;
2743: l_instance_rec.last_oe_rma_line_id := p_instance_rec.last_oe_rma_line_id;
2744: IF nvl(p_dest_location_rec.instance_usage_code, fnd_api.g_miss_char) = fnd_api.g_miss_char THEN
2745: l_instance_rec.instance_usage_code := 'OUT_OF_ENTERPRISE';
2746: ELSE
2747: l_instance_rec.instance_usage_code := p_dest_location_rec.instance_usage_code;
2748: END IF;
2758:
2759: -- create destination instance (when there is only creation of destination)
2760: csi_item_instance_pub.create_item_instance(
2761: p_api_version => 1.0,
2762: p_commit => fnd_api.g_false,
2763: p_init_msg_list => fnd_api.g_true,
2764: p_validation_level => fnd_api.g_valid_level_full,
2765: p_instance_rec => l_instance_rec,
2766: p_party_tbl => l_parties_tbl,
2759: -- create destination instance (when there is only creation of destination)
2760: csi_item_instance_pub.create_item_instance(
2761: p_api_version => 1.0,
2762: p_commit => fnd_api.g_false,
2763: p_init_msg_list => fnd_api.g_true,
2764: p_validation_level => fnd_api.g_valid_level_full,
2765: p_instance_rec => l_instance_rec,
2766: p_party_tbl => l_parties_tbl,
2767: p_account_tbl => l_pty_accts_tbl,
2760: csi_item_instance_pub.create_item_instance(
2761: p_api_version => 1.0,
2762: p_commit => fnd_api.g_false,
2763: p_init_msg_list => fnd_api.g_true,
2764: p_validation_level => fnd_api.g_valid_level_full,
2765: p_instance_rec => l_instance_rec,
2766: p_party_tbl => l_parties_tbl,
2767: p_account_tbl => l_pty_accts_tbl,
2768: p_org_assignments_tbl => l_org_units_tbl,
2774: x_msg_count => l_msg_count,
2775: x_msg_data => l_msg_data );
2776:
2777: -- For Bug 4057183
2778: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2779: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2780: RAISE fnd_api.g_exc_error;
2781: END IF;
2782:
2775: x_msg_data => l_msg_data );
2776:
2777: -- For Bug 4057183
2778: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2779: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2780: RAISE fnd_api.g_exc_error;
2781: END IF;
2782:
2783: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
2776:
2777: -- For Bug 4057183
2778: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2779: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2780: RAISE fnd_api.g_exc_error;
2781: END IF;
2782:
2783: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
2784:
2801: p_item_attr_rec => p_item_attr_rec,
2802: x_instance_id => l_dest_instance_id,
2803: x_return_status => l_return_status);
2804:
2805: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2806: debug('csi_process_txn_pvt.get_dest_instance_id Failed.');
2807: RAISE fnd_api.g_exc_error;
2808: END IF;
2809:
2803: x_return_status => l_return_status);
2804:
2805: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2806: debug('csi_process_txn_pvt.get_dest_instance_id Failed.');
2807: RAISE fnd_api.g_exc_error;
2808: END IF;
2809:
2810: IF nvl(l_dest_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
2811:
2806: debug('csi_process_txn_pvt.get_dest_instance_id Failed.');
2807: RAISE fnd_api.g_exc_error;
2808: END IF;
2809:
2810: IF nvl(l_dest_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
2811:
2812: debug('Destination instance not found. So Creating one.');
2813:
2814: l_instance_rec.location_type_code := p_dest_location_rec.location_type_code;
2828: l_instance_rec.instance_usage_code := 'IN_WIP';
2829: END IF;
2830:
2831: -- 4524712 viasat and xerox
2832: IF nvl(p_dest_location_rec.wip_job_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
2833: l_instance_rec.wip_job_id := p_dest_location_rec.wip_job_id;
2834: END IF;
2835:
2836: IF p_item_attr_rec.dst_serial_control_flag = 'N' THEN
2834: END IF;
2835:
2836: IF p_item_attr_rec.dst_serial_control_flag = 'N' THEN
2837: l_instance_rec.mfg_serial_number_flag := 'N';
2838: l_instance_rec.serial_number := fnd_api.g_miss_char;
2839: ELSE
2840: l_instance_rec.return_by_date := p_instance_rec.return_by_date;
2841: l_instance_rec.actual_return_date := p_instance_rec.actual_return_date;
2842: END IF;
2850: p_api_name => 'create_item_instance');
2851:
2852: csi_item_instance_pub.create_item_instance(
2853: p_api_version => 1.0,
2854: p_commit => fnd_api.g_false,
2855: p_init_msg_list => fnd_api.g_true,
2856: p_validation_level => fnd_api.g_valid_level_full,
2857: p_instance_rec => l_instance_rec,
2858: p_party_tbl => l_parties_tbl,
2851:
2852: csi_item_instance_pub.create_item_instance(
2853: p_api_version => 1.0,
2854: p_commit => fnd_api.g_false,
2855: p_init_msg_list => fnd_api.g_true,
2856: p_validation_level => fnd_api.g_valid_level_full,
2857: p_instance_rec => l_instance_rec,
2858: p_party_tbl => l_parties_tbl,
2859: p_account_tbl => l_pty_accts_tbl,
2852: csi_item_instance_pub.create_item_instance(
2853: p_api_version => 1.0,
2854: p_commit => fnd_api.g_false,
2855: p_init_msg_list => fnd_api.g_true,
2856: p_validation_level => fnd_api.g_valid_level_full,
2857: p_instance_rec => l_instance_rec,
2858: p_party_tbl => l_parties_tbl,
2859: p_account_tbl => l_pty_accts_tbl,
2860: p_org_assignments_tbl => l_org_units_tbl,
2866: x_msg_count => l_msg_count,
2867: x_msg_data => l_msg_data );
2868:
2869: -- For Bug 4057183
2870: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2871: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2872: RAISE fnd_api.g_exc_error;
2873: END IF;
2874:
2867: x_msg_data => l_msg_data );
2868:
2869: -- For Bug 4057183
2870: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2871: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2872: RAISE fnd_api.g_exc_error;
2873: END IF;
2874:
2875: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
2868:
2869: -- For Bug 4057183
2870: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2871: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2872: RAISE fnd_api.g_exc_error;
2873: END IF;
2874:
2875: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
2876:
2907: l_pty_accts_tbl.DELETE;
2908: END IF;
2909: END IF;
2910:
2911: l_instance_rec.active_start_date := fnd_api.g_miss_date;
2912: l_instance_rec.active_end_date := null;
2913:
2914: get_ids_for_instance(
2915: p_in_out_flag => p_in_out_flag,
2933: l_instance_rec.install_date := null;
2934:
2935: END IF;
2936:
2937: l_instance_rec.location_type_code := fnd_api.g_miss_char;
2938: l_instance_rec.location_id := fnd_api.g_miss_num;
2939: l_instance_rec.inv_organization_id := fnd_api.g_miss_num;
2940: l_instance_rec.inv_subinventory_name := fnd_api.g_miss_char;
2941: l_instance_rec.inv_locator_id := fnd_api.g_miss_num;
2934:
2935: END IF;
2936:
2937: l_instance_rec.location_type_code := fnd_api.g_miss_char;
2938: l_instance_rec.location_id := fnd_api.g_miss_num;
2939: l_instance_rec.inv_organization_id := fnd_api.g_miss_num;
2940: l_instance_rec.inv_subinventory_name := fnd_api.g_miss_char;
2941: l_instance_rec.inv_locator_id := fnd_api.g_miss_num;
2942: l_instance_rec.active_end_date := null;
2935: END IF;
2936:
2937: l_instance_rec.location_type_code := fnd_api.g_miss_char;
2938: l_instance_rec.location_id := fnd_api.g_miss_num;
2939: l_instance_rec.inv_organization_id := fnd_api.g_miss_num;
2940: l_instance_rec.inv_subinventory_name := fnd_api.g_miss_char;
2941: l_instance_rec.inv_locator_id := fnd_api.g_miss_num;
2942: l_instance_rec.active_end_date := null;
2943: l_instance_rec.last_oe_rma_line_id := p_instance_rec.last_oe_rma_line_id;
2936:
2937: l_instance_rec.location_type_code := fnd_api.g_miss_char;
2938: l_instance_rec.location_id := fnd_api.g_miss_num;
2939: l_instance_rec.inv_organization_id := fnd_api.g_miss_num;
2940: l_instance_rec.inv_subinventory_name := fnd_api.g_miss_char;
2941: l_instance_rec.inv_locator_id := fnd_api.g_miss_num;
2942: l_instance_rec.active_end_date := null;
2943: l_instance_rec.last_oe_rma_line_id := p_instance_rec.last_oe_rma_line_id;
2944: l_instance_rec.operational_status_code := p_dest_location_rec.operational_status_code;
2937: l_instance_rec.location_type_code := fnd_api.g_miss_char;
2938: l_instance_rec.location_id := fnd_api.g_miss_num;
2939: l_instance_rec.inv_organization_id := fnd_api.g_miss_num;
2940: l_instance_rec.inv_subinventory_name := fnd_api.g_miss_char;
2941: l_instance_rec.inv_locator_id := fnd_api.g_miss_num;
2942: l_instance_rec.active_end_date := null;
2943: l_instance_rec.last_oe_rma_line_id := p_instance_rec.last_oe_rma_line_id;
2944: l_instance_rec.operational_status_code := p_dest_location_rec.operational_status_code;
2945:
2947: l_instance_rec.instance_usage_code := 'IN_INVENTORY';
2948: ELSIF l_instance_rec.location_type_code = 'WIP' THEN
2949: l_instance_rec.instance_usage_code := 'IN_WIP';
2950: END IF;
2951: IF nvl(l_instance_rec.instance_usage_code, fnd_api.g_miss_char) = fnd_api.g_miss_char
2952: AND
2953: nvl(p_dest_location_rec.instance_usage_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
2954: THEN
2955: l_instance_rec.instance_usage_code := p_dest_location_rec.instance_usage_code;
2949: l_instance_rec.instance_usage_code := 'IN_WIP';
2950: END IF;
2951: IF nvl(l_instance_rec.instance_usage_code, fnd_api.g_miss_char) = fnd_api.g_miss_char
2952: AND
2953: nvl(p_dest_location_rec.instance_usage_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
2954: THEN
2955: l_instance_rec.instance_usage_code := p_dest_location_rec.instance_usage_code;
2956: END IF;
2957:
2956: END IF;
2957:
2958: IF p_item_attr_rec.dst_serial_control_flag = 'N' THEN
2959: l_instance_rec.mfg_serial_number_flag := 'N';
2960: l_instance_rec.serial_number := fnd_api.g_miss_char;
2961: END IF;
2962:
2963: l_current_procedure := 'update_item_instance';
2964:
2970:
2971: -- destination update for IN and INT
2972: csi_item_instance_pub.update_item_instance(
2973: p_api_version => 1.0,
2974: p_commit => fnd_api.g_false,
2975: p_init_msg_list => fnd_api.g_true,
2976: p_validation_level => fnd_api.g_valid_level_full,
2977: p_instance_rec => l_instance_rec,
2978: p_party_tbl => l_parties_tbl,
2971: -- destination update for IN and INT
2972: csi_item_instance_pub.update_item_instance(
2973: p_api_version => 1.0,
2974: p_commit => fnd_api.g_false,
2975: p_init_msg_list => fnd_api.g_true,
2976: p_validation_level => fnd_api.g_valid_level_full,
2977: p_instance_rec => l_instance_rec,
2978: p_party_tbl => l_parties_tbl,
2979: p_account_tbl => l_pty_accts_tbl,
2972: csi_item_instance_pub.update_item_instance(
2973: p_api_version => 1.0,
2974: p_commit => fnd_api.g_false,
2975: p_init_msg_list => fnd_api.g_true,
2976: p_validation_level => fnd_api.g_valid_level_full,
2977: p_instance_rec => l_instance_rec,
2978: p_party_tbl => l_parties_tbl,
2979: p_account_tbl => l_pty_accts_tbl,
2980: p_org_assignments_tbl => l_org_units_tbl,
2987: x_msg_count => l_msg_count,
2988: x_msg_data => l_msg_data);
2989:
2990: -- For Bug 4057183
2991: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2992: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2993: RAISE fnd_api.g_exc_error;
2994: END IF;
2995:
2988: x_msg_data => l_msg_data);
2989:
2990: -- For Bug 4057183
2991: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2992: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2993: RAISE fnd_api.g_exc_error;
2994: END IF;
2995:
2996: debug('Destination Instance Updated successfully. Instance ID: '||l_dest_instance_id);
2989:
2990: -- For Bug 4057183
2991: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2992: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2993: RAISE fnd_api.g_exc_error;
2994: END IF;
2995:
2996: debug('Destination Instance Updated successfully. Instance ID: '||l_dest_instance_id);
2997:
3076: END IF;
3077:
3078: -- END IF; Bug 3746600. Simplifying the Cancellation updates in Process Txn API.
3079:
3080: l_instance_rec.active_start_date := fnd_api.g_miss_date;
3081: l_instance_rec.instance_status_id := p_instance_rec.instance_status_id;
3082: l_instance_rec.last_oe_rma_line_id := p_instance_rec.last_oe_rma_line_id;
3083:
3084: l_instance_rec.return_by_date := p_instance_rec.return_by_date;
3084: l_instance_rec.return_by_date := p_instance_rec.return_by_date;
3085: l_instance_rec.actual_return_date := p_instance_rec.actual_return_date;
3086:
3087: -- logic to get the instance status id
3088: IF nvl(p_instance_rec.instance_status_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3089: l_instance_rec.instance_status_id := p_sub_type_rec.src_status_id;
3090: END IF;
3091:
3092: -- bug 4285349 forward port of 4055799 moved the check and break outside the if
3095: p_instance_id => l_instance_rec.instance_id,
3096: p_csi_txn_rec => p_transaction_rec,
3097: x_return_status => l_return_status);
3098:
3099: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3100: RAISE fnd_api.g_exc_error;
3101: END IF;
3102:
3103: /* BUG# 2177025 RMA Return not removing the INSTALL information */
3096: p_csi_txn_rec => p_transaction_rec,
3097: x_return_status => l_return_status);
3098:
3099: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3100: RAISE fnd_api.g_exc_error;
3101: END IF;
3102:
3103: /* BUG# 2177025 RMA Return not removing the INSTALL information */
3104: IF p_sub_type_rec.src_change_owner = 'Y'
3123: -- RMA Cancellation, no need to invoke contracts API, so passing false
3124: --code modification start for 3681856--
3125: unexpire_instance(
3126: p_instance_id => l_instance_rec.instance_id,
3127: p_call_contracts => fnd_api.g_false,
3128: p_transaction_rec => p_transaction_rec,
3129: x_return_status => l_return_status);
3130: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3131: RAISE fnd_api.g_exc_error;
3126: p_instance_id => l_instance_rec.instance_id,
3127: p_call_contracts => fnd_api.g_false,
3128: p_transaction_rec => p_transaction_rec,
3129: x_return_status => l_return_status);
3130: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3131: RAISE fnd_api.g_exc_error;
3132: END IF;
3133: END IF;
3134:
3127: p_call_contracts => fnd_api.g_false,
3128: p_transaction_rec => p_transaction_rec,
3129: x_return_status => l_return_status);
3130: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3131: RAISE fnd_api.g_exc_error;
3132: END IF;
3133: END IF;
3134:
3135: l_instance_rec.instance_status_id := p_sub_type_rec.src_status_id;
3196:
3197: -- serialized update at dest
3198: csi_item_instance_pub.update_item_instance(
3199: p_api_version => 1.0,
3200: p_commit => fnd_api.g_false,
3201: p_init_msg_list => fnd_api.g_true,
3202: p_validation_level => fnd_api.g_valid_level_full,
3203: p_instance_rec => l_instance_rec,
3204: p_party_tbl => l_parties_tbl,
3197: -- serialized update at dest
3198: csi_item_instance_pub.update_item_instance(
3199: p_api_version => 1.0,
3200: p_commit => fnd_api.g_false,
3201: p_init_msg_list => fnd_api.g_true,
3202: p_validation_level => fnd_api.g_valid_level_full,
3203: p_instance_rec => l_instance_rec,
3204: p_party_tbl => l_parties_tbl,
3205: p_account_tbl => l_pty_accts_tbl,
3198: csi_item_instance_pub.update_item_instance(
3199: p_api_version => 1.0,
3200: p_commit => fnd_api.g_false,
3201: p_init_msg_list => fnd_api.g_true,
3202: p_validation_level => fnd_api.g_valid_level_full,
3203: p_instance_rec => l_instance_rec,
3204: p_party_tbl => l_parties_tbl,
3205: p_account_tbl => l_pty_accts_tbl,
3206: p_org_assignments_tbl => l_org_units_tbl,
3213: x_msg_count => l_msg_count,
3214: x_msg_data => l_msg_data);
3215:
3216: -- For Bug 4057183
3217: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3218: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3219: RAISE fnd_api.g_exc_error;
3220: END IF;
3221:
3214: x_msg_data => l_msg_data);
3215:
3216: -- For Bug 4057183
3217: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3218: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3219: RAISE fnd_api.g_exc_error;
3220: END IF;
3221:
3222: debug('update instance successful. instance id : '||l_instance_rec.instance_id);
3215:
3216: -- For Bug 4057183
3217: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3218: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3219: RAISE fnd_api.g_exc_error;
3220: END IF;
3221:
3222: debug('update instance successful. instance id : '||l_instance_rec.instance_id);
3223:
3226: -- source inventory instance updation
3227: IF p_in_out_flag IN ('IN', 'INT', 'NONE') THEN
3228: debug('non serialized at either source or destination or both');
3229:
3230: IF nvl(l_instance_rec.instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
3231:
3232: px_txn_error_rec.instance_id := l_instance_rec.instance_id;
3233:
3234: SELECT quantity,
3257:
3258: debug('expired. unexpiring to stamp rma info.');
3259: unexpire_instance(
3260: p_instance_id => l_u_instance_rec.instance_id,
3261: p_call_contracts => fnd_api.g_false,
3262: p_transaction_rec => p_transaction_rec,
3263: x_return_status => l_return_status);
3264: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3265: RAISE fnd_api.g_exc_error;
3260: p_instance_id => l_u_instance_rec.instance_id,
3261: p_call_contracts => fnd_api.g_false,
3262: p_transaction_rec => p_transaction_rec,
3263: x_return_status => l_return_status);
3264: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3265: RAISE fnd_api.g_exc_error;
3266: END IF;
3267:
3268: END IF;
3261: p_call_contracts => fnd_api.g_false,
3262: p_transaction_rec => p_transaction_rec,
3263: x_return_status => l_return_status);
3264: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3265: RAISE fnd_api.g_exc_error;
3266: END IF;
3267:
3268: END IF;
3269:
3285: p_instance_id => l_instance_rec.instance_id,
3286: p_csi_txn_rec => p_transaction_rec,
3287: x_return_status => l_return_status);
3288:
3289: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3290: RAISE fnd_api.g_exc_error;
3291: END IF;
3292: END IF;
3293:
3286: p_csi_txn_rec => p_transaction_rec,
3287: x_return_status => l_return_status);
3288:
3289: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3290: RAISE fnd_api.g_exc_error;
3291: END IF;
3292: END IF;
3293:
3294: IF p_sub_type_rec.src_change_owner = 'Y'
3302: debug(' source instance is expired. unexpiring to stamp rma info.');
3303:
3304: unexpire_instance(
3305: p_instance_id => l_u_instance_rec.instance_id,
3306: p_call_contracts => fnd_api.g_false,
3307: p_transaction_rec => p_transaction_rec,
3308: x_return_status => l_return_status);
3309:
3310: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3306: p_call_contracts => fnd_api.g_false,
3307: p_transaction_rec => p_transaction_rec,
3308: x_return_status => l_return_status);
3309:
3310: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3311: RAISE fnd_api.g_exc_error;
3312: END IF;
3313:
3314: END IF;
3307: p_transaction_rec => p_transaction_rec,
3308: x_return_status => l_return_status);
3309:
3310: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3311: RAISE fnd_api.g_exc_error;
3312: END IF;
3313:
3314: END IF;
3315:
3346: AND relationship_type_code =
3347: l_u_parties_tbl(l_up_ind).relationship_type_code;
3348: EXCEPTION
3349: WHEN no_data_found THEN
3350: l_u_parties_tbl(l_up_ind).instance_party_id := fnd_api.g_miss_num;
3351: l_u_parties_tbl(l_up_ind).object_version_number := 1.0;
3352: END;
3353: END LOOP;
3354: END IF;
3368: p_instance_id => l_instance_rec.instance_id,
3369: p_transaction_rec => p_transaction_rec,
3370: x_return_status => l_return_status); --4717075
3371:
3372: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3373: RAISE fnd_api.g_exc_error;
3374: END IF;
3375: END IF;
3376: --Bug 13951303 end
3369: p_transaction_rec => p_transaction_rec,
3370: x_return_status => l_return_status); --4717075
3371:
3372: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3373: RAISE fnd_api.g_exc_error;
3374: END IF;
3375: END IF;
3376: --Bug 13951303 end
3377:
3382: -- Bug 11726570
3383: l_u_instance_rec.wip_job_id := p_instance_rec.wip_job_id;
3384: --l_u_instance_rec.location_type_code := NULL;
3385: --l_u_instance_rec.location_id := NULL;
3386: l_u_instance_rec.inv_organization_id := FND_API.G_MISS_NUM;
3387: --Commented below two lines for the bug 14226630
3388: -- l_u_instance_rec.inv_subinventory_name := NULL;
3389: --l_u_instance_rec.inv_locator_id := NULL;
3390: l_u_instance_rec.operational_status_code := FND_API.G_MISS_CHAR;
3386: l_u_instance_rec.inv_organization_id := FND_API.G_MISS_NUM;
3387: --Commented below two lines for the bug 14226630
3388: -- l_u_instance_rec.inv_subinventory_name := NULL;
3389: --l_u_instance_rec.inv_locator_id := NULL;
3390: l_u_instance_rec.operational_status_code := FND_API.G_MISS_CHAR;
3391:
3392: --Bug 13951303, quantity of the item instance should be 1 for serialized item instance
3393: --l_u_instance_rec.quantity := l_src_instance_qty - p_instance_rec.quantity;
3394: l_u_instance_rec.quantity := 1;
3422: p_pricing_tbl => l_u_pricing_tbl,
3423: p_assets_tbl => l_u_assets_tbl,
3424: x_return_status => l_return_status);
3425:
3426: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3427: RAISE fnd_api.g_exc_error;
3428: END IF;
3429:
3430: ELSE /* this is exclusively for the non serialized source instance update */
3423: p_assets_tbl => l_u_assets_tbl,
3424: x_return_status => l_return_status);
3425:
3426: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3427: RAISE fnd_api.g_exc_error;
3428: END IF;
3429:
3430: ELSE /* this is exclusively for the non serialized source instance update */
3431:
3460: p_instance_id => l_u_instance_rec.instance_id,
3461: p_csi_txn_rec => p_transaction_rec,
3462: x_return_status => l_return_status);
3463:
3464: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3465: RAISE fnd_api.g_exc_error;
3466: END IF;
3467:
3468: IF p_sub_type_rec.src_change_owner = 'Y'
3461: p_csi_txn_rec => p_transaction_rec,
3462: x_return_status => l_return_status);
3463:
3464: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3465: RAISE fnd_api.g_exc_error;
3466: END IF;
3467:
3468: IF p_sub_type_rec.src_change_owner = 'Y'
3469: AND
3507: p_instance_id => l_instance_rec.instance_id,
3508: p_transaction_rec => p_transaction_rec,
3509: x_return_status => l_return_status); --4717075
3510:
3511: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3512: RAISE fnd_api.g_exc_error;
3513: END IF;
3514:
3515: END IF;
3508: p_transaction_rec => p_transaction_rec,
3509: x_return_status => l_return_status); --4717075
3510:
3511: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3512: RAISE fnd_api.g_exc_error;
3513: END IF;
3514:
3515: END IF;
3516:
3580:
3581: /* source instance update for srl at so issue and non serial */
3582: csi_item_instance_pub.update_item_instance(
3583: p_api_version => 1.0,
3584: p_commit => fnd_api.g_false,
3585: p_init_msg_list => fnd_api.g_true,
3586: p_validation_level => fnd_api.g_valid_level_full,
3587: p_instance_rec => l_u_instance_rec,
3588: p_party_tbl => l_u_parties_tbl,
3581: /* source instance update for srl at so issue and non serial */
3582: csi_item_instance_pub.update_item_instance(
3583: p_api_version => 1.0,
3584: p_commit => fnd_api.g_false,
3585: p_init_msg_list => fnd_api.g_true,
3586: p_validation_level => fnd_api.g_valid_level_full,
3587: p_instance_rec => l_u_instance_rec,
3588: p_party_tbl => l_u_parties_tbl,
3589: p_account_tbl => l_u_pty_accts_tbl,
3582: csi_item_instance_pub.update_item_instance(
3583: p_api_version => 1.0,
3584: p_commit => fnd_api.g_false,
3585: p_init_msg_list => fnd_api.g_true,
3586: p_validation_level => fnd_api.g_valid_level_full,
3587: p_instance_rec => l_u_instance_rec,
3588: p_party_tbl => l_u_parties_tbl,
3589: p_account_tbl => l_u_pty_accts_tbl,
3590: p_org_assignments_tbl => l_u_org_units_tbl,
3597: x_msg_count => l_msg_count,
3598: x_msg_data => l_msg_data);
3599:
3600: -- For Bug 4057183
3601: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3602: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3603: RAISE fnd_api.g_exc_error;
3604: END IF;
3605:
3598: x_msg_data => l_msg_data);
3599:
3600: -- For Bug 4057183
3601: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3602: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3603: RAISE fnd_api.g_exc_error;
3604: END IF;
3605:
3606: debug('source instance updated successfully. instance_id :'||l_u_instance_rec.instance_id);
3599:
3600: -- For Bug 4057183
3601: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3602: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3603: RAISE fnd_api.g_exc_error;
3604: END IF;
3605:
3606: debug('source instance updated successfully. instance_id :'||l_u_instance_rec.instance_id);
3607:
3612:
3613: debug('Find out the inventory/wip destination instance.');
3614:
3615: IF p_in_out_flag in ('INT') THEN
3616: IF nvl(p_instance_rec.instance_status_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3617: l_instance_rec.instance_status_id := nvl(p_sub_type_rec.src_status_id,fnd_api.g_miss_num);
3618: END IF; --4619398
3619: END IF;
3620:
3613: debug('Find out the inventory/wip destination instance.');
3614:
3615: IF p_in_out_flag in ('INT') THEN
3616: IF nvl(p_instance_rec.instance_status_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3617: l_instance_rec.instance_status_id := nvl(p_sub_type_rec.src_status_id,fnd_api.g_miss_num);
3618: END IF; --4619398
3619: END IF;
3620:
3621: IF (p_transaction_rec.transaction_type_id in (154, 106) AND p_in_out_flag ='INT') THEN -- Modified for 4926773
3638: -- 111 - item move
3639: -- 154 - item install
3640: -- 155 - item uninstall
3641: -- 109 - in service
3642: l_dest_instance_id := fnd_api.g_miss_num;
3643: ELSE
3644: csi_process_txn_pvt.get_dest_instance_id(
3645: p_in_out_flag => p_in_out_flag,
3646: p_sub_type_rec => p_sub_type_rec,
3649: p_item_attr_rec => p_item_attr_rec,
3650: x_instance_id => l_dest_instance_id,
3651: x_return_status => l_return_status);
3652:
3653: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3654: RAISE fnd_api.g_exc_error;
3655: END IF;
3656: END IF;
3657:
3650: x_instance_id => l_dest_instance_id,
3651: x_return_status => l_return_status);
3652:
3653: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3654: RAISE fnd_api.g_exc_error;
3655: END IF;
3656: END IF;
3657:
3658: IF nvl(l_dest_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3654: RAISE fnd_api.g_exc_error;
3655: END IF;
3656: END IF;
3657:
3658: IF nvl(l_dest_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3659:
3660: debug('destination instance could not be identified, so creating one.');
3661:
3662: /* if a destination instance is not found then create a new instance */
3660: debug('destination instance could not be identified, so creating one.');
3661:
3662: /* if a destination instance is not found then create a new instance */
3663:
3664: l_instance_rec.instance_id := fnd_api.g_miss_num;
3665: l_instance_rec.location_type_code := p_dest_location_rec.location_type_code;
3666: l_instance_rec.location_id := p_dest_location_rec.location_id;
3667: l_instance_rec.inv_organization_id := p_dest_location_rec.inv_organization_id;
3668: l_instance_rec.inv_subinventory_name := p_dest_location_rec.inv_subinventory_name;
3666: l_instance_rec.location_id := p_dest_location_rec.location_id;
3667: l_instance_rec.inv_organization_id := p_dest_location_rec.inv_organization_id;
3668: l_instance_rec.inv_subinventory_name := p_dest_location_rec.inv_subinventory_name;
3669: l_instance_rec.inv_locator_id := p_dest_location_rec.inv_locator_id;
3670: l_instance_rec.active_start_date :=nvl(p_transaction_rec.source_transaction_date,fnd_api.g_miss_date); --4620445
3671: l_instance_rec.active_end_date := null;
3672: l_instance_rec.wip_job_id := p_dest_location_rec.wip_job_id;
3673: l_instance_rec.last_oe_rma_line_id := p_instance_rec.last_oe_rma_line_id;
3674: l_instance_rec.operational_status_code := p_dest_location_rec.operational_status_code;
3679:
3680:
3681: IF p_item_attr_rec.dst_serial_control_flag = 'N' THEN
3682: l_instance_rec.mfg_serial_number_flag := 'N';
3683: l_instance_rec.serial_number := fnd_api.g_miss_char;
3684: -- Serial Tagging 9977630
3685: ELSIF p_item_attr_rec.dst_serial_control_flag = 'Y' THEN
3686: l_instance_rec.mfg_serial_number_flag := 'Y';
3687: l_instance_rec.serial_number := p_instance_rec.serial_number;
3692: ELSIF l_instance_rec.location_type_code = 'WIP' THEN
3693: l_instance_rec.instance_usage_code := 'IN_WIP';
3694: END IF;
3695:
3696: IF nvl(l_instance_rec.instance_usage_code, fnd_api.g_miss_char) = fnd_api.g_miss_char
3697: THEN
3698: l_instance_rec.instance_usage_code := p_dest_location_rec.instance_usage_code;
3699: END IF;
3700:
3726: --Nullifying attribute_value_id so that it will take its value from sequence
3727:
3728: IF l_ea_values_tbl.Count > 0 THEN
3729: FOR ea_ind IN l_ea_values_tbl.first..l_ea_values_tbl.last LOOP
3730: l_ea_values_tbl(ea_ind).attribute_value_id := fnd_api.g_miss_num;
3731: END LOOP;
3732:
3733: END IF;
3734:
3744:
3745: /* non serial destination instance create */
3746: csi_item_instance_pub.create_item_instance(
3747: p_api_version => 1.0,
3748: p_commit => fnd_api.g_false,
3749: p_init_msg_list => fnd_api.g_true,
3750: p_validation_level => fnd_api.g_valid_level_full,
3751: p_instance_rec => l_instance_rec,
3752: p_party_tbl => l_parties_tbl,
3745: /* non serial destination instance create */
3746: csi_item_instance_pub.create_item_instance(
3747: p_api_version => 1.0,
3748: p_commit => fnd_api.g_false,
3749: p_init_msg_list => fnd_api.g_true,
3750: p_validation_level => fnd_api.g_valid_level_full,
3751: p_instance_rec => l_instance_rec,
3752: p_party_tbl => l_parties_tbl,
3753: p_account_tbl => l_pty_accts_tbl,
3746: csi_item_instance_pub.create_item_instance(
3747: p_api_version => 1.0,
3748: p_commit => fnd_api.g_false,
3749: p_init_msg_list => fnd_api.g_true,
3750: p_validation_level => fnd_api.g_valid_level_full,
3751: p_instance_rec => l_instance_rec,
3752: p_party_tbl => l_parties_tbl,
3753: p_account_tbl => l_pty_accts_tbl,
3754: p_org_assignments_tbl => l_org_units_tbl,
3760: x_msg_count => l_msg_count,
3761: x_msg_data => l_msg_data );
3762:
3763: -- For Bug 4051783
3764: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3765: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3766: RAISE fnd_api.g_exc_error;
3767: END IF;
3768:
3761: x_msg_data => l_msg_data );
3762:
3763: -- For Bug 4051783
3764: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3765: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3766: RAISE fnd_api.g_exc_error;
3767: END IF;
3768:
3769: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
3762:
3763: -- For Bug 4051783
3764: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3765: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3766: RAISE fnd_api.g_exc_error;
3767: END IF;
3768:
3769: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
3770:
3829: ||') with quanity more than 1');
3830: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
3831: FND_MESSAGE.SET_TOKEN('QUANTITY',l_u_instance_rec.quantity);
3832: FND_MSG_PUB.Add;
3833: RAISE fnd_api.g_exc_error;
3834: END IF;
3835:
3836: /* this routine derived the primary key references of the child */
3837: /* entities like party, party account etc.. */
3859:
3860: /* non serial destination instance update */
3861: csi_item_instance_pub.update_item_instance(
3862: p_api_version => 1.0,
3863: p_commit => fnd_api.g_false,
3864: p_init_msg_list => fnd_api.g_true,
3865: p_validation_level => fnd_api.g_valid_level_full,
3866: p_instance_rec => l_u_instance_rec,
3867: p_party_tbl => l_parties_tbl,
3860: /* non serial destination instance update */
3861: csi_item_instance_pub.update_item_instance(
3862: p_api_version => 1.0,
3863: p_commit => fnd_api.g_false,
3864: p_init_msg_list => fnd_api.g_true,
3865: p_validation_level => fnd_api.g_valid_level_full,
3866: p_instance_rec => l_u_instance_rec,
3867: p_party_tbl => l_parties_tbl,
3868: p_account_tbl => l_pty_accts_tbl,
3861: csi_item_instance_pub.update_item_instance(
3862: p_api_version => 1.0,
3863: p_commit => fnd_api.g_false,
3864: p_init_msg_list => fnd_api.g_true,
3865: p_validation_level => fnd_api.g_valid_level_full,
3866: p_instance_rec => l_u_instance_rec,
3867: p_party_tbl => l_parties_tbl,
3868: p_account_tbl => l_pty_accts_tbl,
3869: p_org_assignments_tbl => l_org_units_tbl,
3876: x_msg_count => l_msg_count,
3877: x_msg_data => l_msg_data);
3878:
3879: -- For Bug 4057183
3880: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3881: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3882: RAISE fnd_api.g_exc_error;
3883: END IF;
3884:
3877: x_msg_data => l_msg_data);
3878:
3879: -- For Bug 4057183
3880: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3881: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3882: RAISE fnd_api.g_exc_error;
3883: END IF;
3884:
3885: p_instance_rec.new_instance_id := l_dest_instance_id;
3878:
3879: -- For Bug 4057183
3880: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3881: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3882: RAISE fnd_api.g_exc_error;
3883: END IF;
3884:
3885: p_instance_rec.new_instance_id := l_dest_instance_id;
3886:
3904: p_transaction_rec => p_transaction_rec,
3905: x_instance_id => l_src_instance_id,
3906: x_return_status => l_return_status);
3907:
3908: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3909: RAISE fnd_api.g_exc_error;
3910: END IF;
3911:
3912: IF nvl(l_src_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3905: x_instance_id => l_src_instance_id,
3906: x_return_status => l_return_status);
3907:
3908: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3909: RAISE fnd_api.g_exc_error;
3910: END IF;
3911:
3912: IF nvl(l_src_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3913: debug('source instance not found. create one and decrement.');
3908: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3909: RAISE fnd_api.g_exc_error;
3910: END IF;
3911:
3912: IF nvl(l_src_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
3913: debug('source instance not found. create one and decrement.');
3914: -- create a zero qty instance and decrement
3915: null;
3916: ELSE
3956:
3957: -- decrement inv instance for OUT transactions
3958: csi_item_instance_pub.update_item_instance(
3959: p_api_version => 1.0,
3960: p_commit => fnd_api.g_false,
3961: p_init_msg_list => fnd_api.g_true,
3962: p_validation_level => fnd_api.g_valid_level_full,
3963: p_instance_rec => l_u_instance_rec,
3964: p_party_tbl => l_u_parties_tbl,
3957: -- decrement inv instance for OUT transactions
3958: csi_item_instance_pub.update_item_instance(
3959: p_api_version => 1.0,
3960: p_commit => fnd_api.g_false,
3961: p_init_msg_list => fnd_api.g_true,
3962: p_validation_level => fnd_api.g_valid_level_full,
3963: p_instance_rec => l_u_instance_rec,
3964: p_party_tbl => l_u_parties_tbl,
3965: p_account_tbl => l_u_pty_accts_tbl,
3958: csi_item_instance_pub.update_item_instance(
3959: p_api_version => 1.0,
3960: p_commit => fnd_api.g_false,
3961: p_init_msg_list => fnd_api.g_true,
3962: p_validation_level => fnd_api.g_valid_level_full,
3963: p_instance_rec => l_u_instance_rec,
3964: p_party_tbl => l_u_parties_tbl,
3965: p_account_tbl => l_u_pty_accts_tbl,
3966: p_org_assignments_tbl => l_u_org_units_tbl,
3973: x_msg_count => l_msg_count,
3974: x_msg_data => l_msg_data);
3975:
3976: -- For Bug 4057183
3977: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3978: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3979: RAISE fnd_api.g_exc_error;
3980: END IF;
3981:
3974: x_msg_data => l_msg_data);
3975:
3976: -- For Bug 4057183
3977: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3978: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3979: RAISE fnd_api.g_exc_error;
3980: END IF;
3981:
3982: debug('source instance updated successfully. instance id : '||l_u_instance_rec.instance_id);
3975:
3976: -- For Bug 4057183
3977: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
3978: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
3979: RAISE fnd_api.g_exc_error;
3980: END IF;
3981:
3982: debug('source instance updated successfully. instance id : '||l_u_instance_rec.instance_id);
3983:
3982: debug('source instance updated successfully. instance id : '||l_u_instance_rec.instance_id);
3983:
3984: END IF;
3985:
3986: l_returned_instance_id := fnd_api.g_miss_num;
3987:
3988: IF p_item_attr_rec.dst_serial_control_flag = 'Y' THEN
3989: BEGIN
3990: --check for re-shipment of returned serialized instance
4010: debug(' instance_usage_code : '||l_instance_usage_code);
4011:
4012: EXCEPTION
4013: WHEN no_data_found THEN
4014: l_returned_instance_id := fnd_api.g_miss_num;
4015: l_object_version_number := 1.0;
4016: END;
4017: END IF;
4018:
4018:
4019: /* for sales order shipment just create another instance with the
4020: new party and location information
4021: */
4022: IF nvl(l_returned_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
4023:
4024: l_instance_rec.instance_id := fnd_api.g_miss_num;
4025: l_instance_rec.location_type_code := p_dest_location_rec.location_type_code;
4026: l_instance_rec.location_id := p_dest_location_rec.location_id;
4020: new party and location information
4021: */
4022: IF nvl(l_returned_instance_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
4023:
4024: l_instance_rec.instance_id := fnd_api.g_miss_num;
4025: l_instance_rec.location_type_code := p_dest_location_rec.location_type_code;
4026: l_instance_rec.location_id := p_dest_location_rec.location_id;
4027: l_instance_rec.install_location_type_code := p_dest_location_rec.location_type_code; --5086636
4028: l_instance_rec.install_location_id := p_dest_location_rec.location_id; --5086636
4065: p_api_name => 'create_item_instance');
4066:
4067: csi_item_instance_pub.create_item_instance(
4068: p_api_version => 1.0,
4069: p_commit => fnd_api.g_false,
4070: p_init_msg_list => fnd_api.g_true,
4071: p_validation_level => fnd_api.g_valid_level_full,
4072: p_instance_rec => l_instance_rec,
4073: p_party_tbl => l_parties_tbl,
4066:
4067: csi_item_instance_pub.create_item_instance(
4068: p_api_version => 1.0,
4069: p_commit => fnd_api.g_false,
4070: p_init_msg_list => fnd_api.g_true,
4071: p_validation_level => fnd_api.g_valid_level_full,
4072: p_instance_rec => l_instance_rec,
4073: p_party_tbl => l_parties_tbl,
4074: p_account_tbl => l_pty_accts_tbl,
4067: csi_item_instance_pub.create_item_instance(
4068: p_api_version => 1.0,
4069: p_commit => fnd_api.g_false,
4070: p_init_msg_list => fnd_api.g_true,
4071: p_validation_level => fnd_api.g_valid_level_full,
4072: p_instance_rec => l_instance_rec,
4073: p_party_tbl => l_parties_tbl,
4074: p_account_tbl => l_pty_accts_tbl,
4075: p_org_assignments_tbl => l_org_units_tbl,
4081: x_msg_count => l_msg_count,
4082: x_msg_data => l_msg_data );
4083:
4084: -- For Bug 4051783
4085: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4086: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4087: RAISE fnd_api.g_exc_error;
4088: END IF;
4089:
4082: x_msg_data => l_msg_data );
4083:
4084: -- For Bug 4051783
4085: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4086: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4087: RAISE fnd_api.g_exc_error;
4088: END IF;
4089:
4090: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
4083:
4084: -- For Bug 4051783
4085: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4086: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4087: RAISE fnd_api.g_exc_error;
4088: END IF;
4089:
4090: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
4091: debug('customer product created successfully. instance id: '||l_instance_rec.instance_id);
4145: p_api_name => 'update_item_instance');
4146:
4147: csi_item_instance_pub.update_item_instance(
4148: p_api_version => 1.0,
4149: p_commit => fnd_api.g_false,
4150: p_init_msg_list => fnd_api.g_true,
4151: p_validation_level => fnd_api.g_valid_level_full,
4152: p_instance_rec => l_instance_rec,
4153: p_party_tbl => l_parties_tbl,
4146:
4147: csi_item_instance_pub.update_item_instance(
4148: p_api_version => 1.0,
4149: p_commit => fnd_api.g_false,
4150: p_init_msg_list => fnd_api.g_true,
4151: p_validation_level => fnd_api.g_valid_level_full,
4152: p_instance_rec => l_instance_rec,
4153: p_party_tbl => l_parties_tbl,
4154: p_account_tbl => l_pty_accts_tbl,
4147: csi_item_instance_pub.update_item_instance(
4148: p_api_version => 1.0,
4149: p_commit => fnd_api.g_false,
4150: p_init_msg_list => fnd_api.g_true,
4151: p_validation_level => fnd_api.g_valid_level_full,
4152: p_instance_rec => l_instance_rec,
4153: p_party_tbl => l_parties_tbl,
4154: p_account_tbl => l_pty_accts_tbl,
4155: p_org_assignments_tbl => l_org_units_tbl,
4162: x_msg_count => l_msg_count,
4163: x_msg_data => l_msg_data);
4164:
4165: -- For Bug 4057183
4166: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4167: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4168: RAISE fnd_api.g_exc_error;
4169: END IF;
4170:
4163: x_msg_data => l_msg_data);
4164:
4165: -- For Bug 4057183
4166: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4167: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4168: RAISE fnd_api.g_exc_error;
4169: END IF;
4170:
4171: debug('returned product updated successfully. instance id: '||l_instance_rec.instance_id);
4164:
4165: -- For Bug 4057183
4166: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
4167: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
4168: RAISE fnd_api.g_exc_error;
4169: END IF;
4170:
4171: debug('returned product updated successfully. instance id: '||l_instance_rec.instance_id);
4172: p_instance_rec.new_instance_id := l_instance_rec.instance_id;
4178:
4179: END IF; -- l_process_mode = 'UPDATE'
4180:
4181: EXCEPTION
4182: WHEN fnd_api.g_exc_error THEN
4183: x_return_status := fnd_api.g_ret_sts_error;
4184:
4185: WHEN others THEN
4186: x_return_status := fnd_api.g_ret_sts_error;
4179: END IF; -- l_process_mode = 'UPDATE'
4180:
4181: EXCEPTION
4182: WHEN fnd_api.g_exc_error THEN
4183: x_return_status := fnd_api.g_ret_sts_error;
4184:
4185: WHEN others THEN
4186: x_return_status := fnd_api.g_ret_sts_error;
4187:
4182: WHEN fnd_api.g_exc_error THEN
4183: x_return_status := fnd_api.g_ret_sts_error;
4184:
4185: WHEN others THEN
4186: x_return_status := fnd_api.g_ret_sts_error;
4187:
4188: fnd_msg_pub.add_exc_msg(
4189: p_pkg_name => g_pkg_name,
4190: p_procedure_name => l_current_procedure);
4212: l_obj_inst_id number;
4213:
4214: BEGIN
4215:
4216: x_return_status := fnd_api.g_ret_sts_success;
4217:
4218: l_obj_ind := p_txn_ii_rltns_rec.object_index;
4219: l_sub_ind := p_txn_ii_rltns_rec.subject_index;
4220:
4268: csi_t_gen_utility_pvt.dump_txn_ii_rltns_rec(
4269: p_txn_ii_rltns_rec => p_txn_ii_rltns_rec);
4270:
4271: EXCEPTION
4272: WHEN fnd_api.g_exc_error THEN
4273: x_return_status := fnd_api.g_ret_sts_error;
4274:
4275: END build_ii_rltns_rec;
4276:
4269: p_txn_ii_rltns_rec => p_txn_ii_rltns_rec);
4270:
4271: EXCEPTION
4272: WHEN fnd_api.g_exc_error THEN
4273: x_return_status := fnd_api.g_ret_sts_error;
4274:
4275: END build_ii_rltns_rec;
4276:
4277: /* -------------------------------------------------------------------- */
4304: csi_t_gen_utility_pvt.dump_api_info(
4305: p_pkg_name => g_pkg_name,
4306: p_api_name => 'process_relation');
4307:
4308: x_return_status := fnd_api.g_ret_sts_success;
4309:
4310: IF p_ii_relationships_tbl.COUNT > 0 THEN
4311: FOR l_ind IN p_ii_relationships_tbl.FIRST .. p_ii_relationships_tbl.LAST
4312: LOOP
4316: p_instances_tbl => p_instances_tbl,
4317: x_ii_rltns_rec => l_ii_rltns_rec,
4318: x_return_status => l_return_status);
4319:
4320: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4321: RAISE fnd_api.g_exc_error;
4322: END IF;
4323:
4324: IF l_ii_rltns_rec.relationship_type_code = 'COMPONENT-OF' THEN
4317: x_ii_rltns_rec => l_ii_rltns_rec,
4318: x_return_status => l_return_status);
4319:
4320: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4321: RAISE fnd_api.g_exc_error;
4322: END IF;
4323:
4324: IF l_ii_rltns_rec.relationship_type_code = 'COMPONENT-OF' THEN
4325: l_comp_ind := l_comp_ind + 1;
4338: IF l_comp_iir_tbl.COUNT > 0 THEN
4339:
4340: csi_ii_relationships_pub.create_relationship (
4341: p_api_version => 1.0,
4342: p_commit => fnd_api.g_false,
4343: p_init_msg_list => fnd_api.g_true,
4344: p_validation_level => fnd_api.g_valid_level_full,
4345: p_relationship_tbl => l_comp_iir_tbl,
4346: p_txn_rec => p_transaction_rec,
4339:
4340: csi_ii_relationships_pub.create_relationship (
4341: p_api_version => 1.0,
4342: p_commit => fnd_api.g_false,
4343: p_init_msg_list => fnd_api.g_true,
4344: p_validation_level => fnd_api.g_valid_level_full,
4345: p_relationship_tbl => l_comp_iir_tbl,
4346: p_txn_rec => p_transaction_rec,
4347: x_return_status => l_return_status,
4340: csi_ii_relationships_pub.create_relationship (
4341: p_api_version => 1.0,
4342: p_commit => fnd_api.g_false,
4343: p_init_msg_list => fnd_api.g_true,
4344: p_validation_level => fnd_api.g_valid_level_full,
4345: p_relationship_tbl => l_comp_iir_tbl,
4346: p_txn_rec => p_transaction_rec,
4347: x_return_status => l_return_status,
4348: x_msg_count => l_msg_count,
4347: x_return_status => l_return_status,
4348: x_msg_count => l_msg_count,
4349: x_msg_data => l_msg_data );
4350:
4351: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4352: RAISE fnd_api.g_exc_error;
4353: END IF;
4354:
4355: END IF;
4348: x_msg_count => l_msg_count,
4349: x_msg_data => l_msg_data );
4350:
4351: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4352: RAISE fnd_api.g_exc_error;
4353: END IF;
4354:
4355: END IF;
4356:
4369: p_subject_instance_id => l_oth_iir_tbl(l_o_ind).subject_id,
4370: p_trx_rec => p_transaction_rec,
4371: x_return_status => l_return_status);
4372:
4373: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4374: RAISE fnd_api.g_exc_error;
4375: END IF;
4376:
4377: END IF;
4370: p_trx_rec => p_transaction_rec,
4371: x_return_status => l_return_status);
4372:
4373: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4374: RAISE fnd_api.g_exc_error;
4375: END IF;
4376:
4377: END IF;
4378:
4379: END LOOP;
4380: END IF;
4381:
4382: EXCEPTION
4383: WHEN fnd_api.g_exc_error THEN
4384: x_return_status := fnd_api.g_ret_sts_error;
4385:
4386: WHEN others THEN
4387: x_return_status := fnd_api.g_ret_sts_error;
4380: END IF;
4381:
4382: EXCEPTION
4383: WHEN fnd_api.g_exc_error THEN
4384: x_return_status := fnd_api.g_ret_sts_error;
4385:
4386: WHEN others THEN
4387: x_return_status := fnd_api.g_ret_sts_error;
4388:
4383: WHEN fnd_api.g_exc_error THEN
4384: x_return_status := fnd_api.g_ret_sts_error;
4385:
4386: WHEN others THEN
4387: x_return_status := fnd_api.g_ret_sts_error;
4388:
4389: fnd_msg_pub.add_exc_msg(
4390: p_pkg_name => g_pkg_name,
4391: p_procedure_name => l_current_procedure);
4407:
4408: l_exp_relationship_rec csi_datastructures_pub.ii_relationship_rec;
4409: l_instance_id_lst csi_datastructures_pub.id_tbl;
4410:
4411: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4412: l_msg_count number := 0;
4413: l_msg_data varchar2(2000);
4414: l_instance_rev_num NUMBER;
4415: l_lock_id NUMBER;
4436: AND sysdate BETWEEN nvl(cir.active_start_date, sysdate-1)
4437: AND nvl(cir.active_end_date, sysdate+1) );
4438: BEGIN
4439:
4440: x_return_status := fnd_api.g_ret_sts_success;
4441: api_log('check_and_break_relation');
4442:
4443: debug(' subject instance id :'||p_instance_id);
4444:
4447: l_instance_inst_rev_num := null;
4448: l_locked_inst_rev_num := null;
4449: l_locked := FALSE;
4450: --
4451: IF nvl(p_instance_id , fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
4452: -- For RMA processed, need to Check for Locks on the the Item Instance and break the same.
4453: -- Need to notify CZ for such unlocks
4454: IF p_csi_txn_rec.transaction_type_id in (53,54) THEN
4455: l_lock_id := NULL;
4511: debug('Calling Unlock Item Instances for Instance Id '||to_char(p_instance_id));
4512: CSI_ITEM_INSTANCE_GRP.unlock_item_instances
4513: (
4514: p_api_version => 1.0
4515: ,p_commit => fnd_api.g_false
4516: ,p_init_msg_list => fnd_api.g_false
4517: ,p_validation_level => fnd_api.g_valid_level_full
4518: ,p_config_tbl => l_unlock_inst_tbl
4519: ,x_return_status => l_return_status
4512: CSI_ITEM_INSTANCE_GRP.unlock_item_instances
4513: (
4514: p_api_version => 1.0
4515: ,p_commit => fnd_api.g_false
4516: ,p_init_msg_list => fnd_api.g_false
4517: ,p_validation_level => fnd_api.g_valid_level_full
4518: ,p_config_tbl => l_unlock_inst_tbl
4519: ,x_return_status => l_return_status
4520: ,x_msg_count => l_msg_count
4513: (
4514: p_api_version => 1.0
4515: ,p_commit => fnd_api.g_false
4516: ,p_init_msg_list => fnd_api.g_false
4517: ,p_validation_level => fnd_api.g_valid_level_full
4518: ,p_config_tbl => l_unlock_inst_tbl
4519: ,x_return_status => l_return_status
4520: ,x_msg_count => l_msg_count
4521: ,x_msg_data => l_msg_data
4519: ,x_return_status => l_return_status
4520: ,x_msg_count => l_msg_count
4521: ,x_msg_data => l_msg_data
4522: );
4523: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4524: debug('Unlock Item Instances routine failed.');
4525: RAISE fnd_api.g_exc_error;
4526: END IF;
4527: END IF; -- If locked
4521: ,x_msg_data => l_msg_data
4522: );
4523: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4524: debug('Unlock Item Instances routine failed.');
4525: RAISE fnd_api.g_exc_error;
4526: END IF;
4527: END IF; -- If locked
4528: --
4529: -- Call CZ API for Notification
4544: x_return_status => l_return_status,
4545: x_msg_count => l_msg_count,
4546: x_msg_data => l_msg_data
4547: );
4548: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4549: debug('Remove_Returned_Config_Item routine failed.');
4550: RAISE fnd_api.g_exc_error;
4551: END IF;
4552: END IF;
4546: x_msg_data => l_msg_data
4547: );
4548: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4549: debug('Remove_Returned_Config_Item routine failed.');
4550: RAISE fnd_api.g_exc_error;
4551: END IF;
4552: END IF;
4553: END IF; -- Tx Type check
4554: --
4557: debug(' subject instance is expired. unexpiring..');
4558: --code modification for 3681856 , p_call_contracts added; here we pass the default of True
4559: unexpire_instance(
4560: p_instance_id => p_instance_id,
4561: p_call_contracts => fnd_api.g_true,
4562: p_transaction_rec => p_csi_txn_rec,
4563: x_return_status => l_return_status);
4564: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4565: RAISE fnd_api.g_exc_error;
4560: p_instance_id => p_instance_id,
4561: p_call_contracts => fnd_api.g_true,
4562: p_transaction_rec => p_csi_txn_rec,
4563: x_return_status => l_return_status);
4564: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4565: RAISE fnd_api.g_exc_error;
4566: END IF;
4567: exit;
4568: END LOOP;
4561: p_call_contracts => fnd_api.g_true,
4562: p_transaction_rec => p_csi_txn_rec,
4563: x_return_status => l_return_status);
4564: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4565: RAISE fnd_api.g_exc_error;
4566: END IF;
4567: exit;
4568: END LOOP;
4569:
4575: p_api_name => 'get_relationships');
4576:
4577: csi_ii_relationships_pub.get_relationships(
4578: p_api_version => 1.0,
4579: p_commit => fnd_api.g_false,
4580: p_init_msg_list => fnd_api.g_true,
4581: p_validation_level => fnd_api.g_valid_level_full,
4582: p_relationship_query_rec => l_relationship_query_rec,
4583: p_depth => 1,
4576:
4577: csi_ii_relationships_pub.get_relationships(
4578: p_api_version => 1.0,
4579: p_commit => fnd_api.g_false,
4580: p_init_msg_list => fnd_api.g_true,
4581: p_validation_level => fnd_api.g_valid_level_full,
4582: p_relationship_query_rec => l_relationship_query_rec,
4583: p_depth => 1,
4584: p_time_stamp => l_time_stamp,
4577: csi_ii_relationships_pub.get_relationships(
4578: p_api_version => 1.0,
4579: p_commit => fnd_api.g_false,
4580: p_init_msg_list => fnd_api.g_true,
4581: p_validation_level => fnd_api.g_valid_level_full,
4582: p_relationship_query_rec => l_relationship_query_rec,
4583: p_depth => 1,
4584: p_time_stamp => l_time_stamp,
4585: p_active_relationship_only => fnd_api.g_true,
4581: p_validation_level => fnd_api.g_valid_level_full,
4582: p_relationship_query_rec => l_relationship_query_rec,
4583: p_depth => 1,
4584: p_time_stamp => l_time_stamp,
4585: p_active_relationship_only => fnd_api.g_true,
4586: x_relationship_tbl => l_relationship_tbl,
4587: x_return_status => l_return_status,
4588: x_msg_count => l_msg_count,
4589: x_msg_data => l_msg_data);
4587: x_return_status => l_return_status,
4588: x_msg_count => l_msg_count,
4589: x_msg_data => l_msg_data);
4590:
4591: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4592: RAISE fnd_api.g_exc_error;
4593: END IF;
4594:
4595: debug(' relationship table count :'||l_relationship_tbl.COUNT);
4588: x_msg_count => l_msg_count,
4589: x_msg_data => l_msg_data);
4590:
4591: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4592: RAISE fnd_api.g_exc_error;
4593: END IF;
4594:
4595: debug(' relationship table count :'||l_relationship_tbl.COUNT);
4596:
4610: debug(' relationship id :'||l_exp_relationship_rec.relationship_id);
4611:
4612: csi_ii_relationships_pub.expire_relationship(
4613: p_api_version => 1.0,
4614: p_commit => fnd_api.g_false,
4615: p_init_msg_list => fnd_api.g_true,
4616: p_validation_level => fnd_api.g_valid_level_full,
4617: p_relationship_rec => l_exp_relationship_rec,
4618: p_txn_rec => p_csi_txn_rec,
4611:
4612: csi_ii_relationships_pub.expire_relationship(
4613: p_api_version => 1.0,
4614: p_commit => fnd_api.g_false,
4615: p_init_msg_list => fnd_api.g_true,
4616: p_validation_level => fnd_api.g_valid_level_full,
4617: p_relationship_rec => l_exp_relationship_rec,
4618: p_txn_rec => p_csi_txn_rec,
4619: x_instance_id_lst => l_instance_id_lst,
4612: csi_ii_relationships_pub.expire_relationship(
4613: p_api_version => 1.0,
4614: p_commit => fnd_api.g_false,
4615: p_init_msg_list => fnd_api.g_true,
4616: p_validation_level => fnd_api.g_valid_level_full,
4617: p_relationship_rec => l_exp_relationship_rec,
4618: p_txn_rec => p_csi_txn_rec,
4619: x_instance_id_lst => l_instance_id_lst,
4620: x_return_status => l_return_status,
4620: x_return_status => l_return_status,
4621: x_msg_count => l_msg_count,
4622: x_msg_data => l_msg_data);
4623:
4624: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4625: RAISE fnd_api.g_exc_error;
4626: END IF;
4627:
4628: END LOOP;
4621: x_msg_count => l_msg_count,
4622: x_msg_data => l_msg_data);
4623:
4624: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4625: RAISE fnd_api.g_exc_error;
4626: END IF;
4627:
4628: END LOOP;
4629: END IF;
4631:
4632: debug('check and break relation successful.');
4633:
4634: EXCEPTION
4635: WHEN fnd_api.g_exc_error THEN
4636: x_return_status := fnd_api.g_ret_sts_error;
4637: END check_and_break_relation;
4638:
4639: END csi_process_txn_pvt;
4632: debug('check and break relation successful.');
4633:
4634: EXCEPTION
4635: WHEN fnd_api.g_exc_error THEN
4636: x_return_status := fnd_api.g_ret_sts_error;
4637: END check_and_break_relation;
4638:
4639: END csi_process_txn_pvt;