[Home] [Help]
158: AND mmt.organization_id = haou.organization_id;
159:
160: BEGIN
161:
162: x_return_status := fnd_api.g_ret_sts_success;
163:
164: api_log('get_mmt_info');
165:
166: BEGIN
278: WHEN no_data_found THEN
279: fnd_message.set_name('CSI','CSI_NO_INVENTORY_RECORDS');
280: fnd_message.set_token('MTL_TRANSACTION_ID',p_transaction_id);
281: fnd_msg_pub.add;
282: RAISE fnd_api.g_exc_error;
283: END;
284:
285: debug(' item : '||l_txn_ref.item);
286: debug(' inventory_item_id : '||l_txn_ref.inventory_item_id);
397: IF l_mmt_tbl.COUNT = 0 THEN
398: fnd_message.set_name('CSI','CSI_NO_INVENTORY_RECORDS');
399: fnd_message.set_token('MTL_TRANSACTION_ID',p_transaction_id);
400: fnd_msg_pub.add;
401: RAISE fnd_api.g_exc_error;
402: END IF;
403:
404: dump_mmt_tbl(l_mmt_tbl);
405:
406: x_txn_ref := l_txn_ref;
407: x_mmt_tbl := l_mmt_tbl;
408:
409: EXCEPTION
410: WHEN fnd_api.g_exc_error THEN
411: x_return_status := fnd_api.g_ret_sts_error;
412: END get_mmt_info;
413:
414: PROCEDURE make_non_hdr_rec(
407: x_mmt_tbl := l_mmt_tbl;
408:
409: EXCEPTION
410: WHEN fnd_api.g_exc_error THEN
411: x_return_status := fnd_api.g_ret_sts_error;
412: END get_mmt_info;
413:
414: PROCEDURE make_non_hdr_rec(
415: p_instance_hdr_rec IN csi_datastructures_pub.instance_header_rec,
419:
420: l_instance_hdr_tbl csi_datastructures_pub.instance_header_tbl;
421: l_instance_tbl csi_datastructures_pub.instance_tbl;
422:
423: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
424:
425: BEGIN
426:
427: x_return_status := l_return_status;
435: p_instance_header_tbl => l_instance_hdr_tbl,
436: x_instance_tbl => l_instance_tbl,
437: x_return_status => l_return_status);
438:
439: IF l_return_status <> fnd_api.g_ret_sts_success THEN
440: RAISE fnd_api.g_exc_error;
441: END IF;
442:
443: x_instance_rec := l_instance_tbl(1);
436: x_instance_tbl => l_instance_tbl,
437: x_return_status => l_return_status);
438:
439: IF l_return_status <> fnd_api.g_ret_sts_success THEN
440: RAISE fnd_api.g_exc_error;
441: END IF;
442:
443: x_instance_rec := l_instance_tbl(1);
444:
442:
443: x_instance_rec := l_instance_tbl(1);
444:
445: EXCEPTION
446: WHEN fnd_api.g_exc_error THEN
447: x_return_status := fnd_api.g_ret_sts_error;
448: END make_non_hdr_rec;
449:
450: PROCEDURE increment_comp_instance(
443: x_instance_rec := l_instance_tbl(1);
444:
445: EXCEPTION
446: WHEN fnd_api.g_exc_error THEN
447: x_return_status := fnd_api.g_ret_sts_error;
448: END make_non_hdr_rec;
449:
450: PROCEDURE increment_comp_instance(
451: p_instance_id IN number,
462: l_u_pricing_tbl csi_datastructures_pub.pricing_attribs_tbl;
463: l_u_assets_tbl csi_datastructures_pub.instance_asset_tbl;
464: l_u_instance_ids_list csi_datastructures_pub.id_tbl;
465:
466: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
467: l_msg_count number;
468: l_msg_data varchar2(2000);
469: BEGIN
470:
467: l_msg_count number;
468: l_msg_data varchar2(2000);
469: BEGIN
470:
471: x_return_status := fnd_api.g_ret_sts_success;
472:
473: api_log('increment_comp_instance');
474:
475: l_u_instance_rec.instance_id := p_instance_id;
491:
492: -- update item_instance
493: csi_item_instance_pub.update_item_instance(
494: p_api_version => 1.0,
495: p_commit => fnd_api.g_false,
496: p_init_msg_list => fnd_api.g_true,
497: p_validation_level => fnd_api.g_valid_level_full,
498: p_instance_rec => l_u_instance_rec,
499: p_party_tbl => l_u_parties_tbl,
492: -- update item_instance
493: csi_item_instance_pub.update_item_instance(
494: p_api_version => 1.0,
495: p_commit => fnd_api.g_false,
496: p_init_msg_list => fnd_api.g_true,
497: p_validation_level => fnd_api.g_valid_level_full,
498: p_instance_rec => l_u_instance_rec,
499: p_party_tbl => l_u_parties_tbl,
500: p_account_tbl => l_u_pty_accts_tbl,
493: csi_item_instance_pub.update_item_instance(
494: p_api_version => 1.0,
495: p_commit => fnd_api.g_false,
496: p_init_msg_list => fnd_api.g_true,
497: p_validation_level => fnd_api.g_valid_level_full,
498: p_instance_rec => l_u_instance_rec,
499: p_party_tbl => l_u_parties_tbl,
500: p_account_tbl => l_u_pty_accts_tbl,
501: p_org_assignments_tbl => l_u_org_units_tbl,
508: x_msg_count => l_msg_count,
509: x_msg_data => l_msg_data);
510:
511: -- For Bug 4057183
512: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
513: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
514: RAISE fnd_api.g_exc_error;
515: END IF;
516:
509: x_msg_data => l_msg_data);
510:
511: -- For Bug 4057183
512: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
513: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
514: RAISE fnd_api.g_exc_error;
515: END IF;
516:
517: EXCEPTION
510:
511: -- For Bug 4057183
512: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
513: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
514: RAISE fnd_api.g_exc_error;
515: END IF;
516:
517: EXCEPTION
518: WHEN fnd_api.g_exc_error THEN
514: RAISE fnd_api.g_exc_error;
515: END IF;
516:
517: EXCEPTION
518: WHEN fnd_api.g_exc_error THEN
519: x_return_status := fnd_api.g_ret_sts_error;
520: END increment_comp_instance;
521:
522:
515: END IF;
516:
517: EXCEPTION
518: WHEN fnd_api.g_exc_error THEN
519: x_return_status := fnd_api.g_ret_sts_error;
520: END increment_comp_instance;
521:
522:
523: PROCEDURE decrement_wip_instance(
535: l_u_pricing_tbl csi_datastructures_pub.pricing_attribs_tbl;
536: l_u_assets_tbl csi_datastructures_pub.instance_asset_tbl;
537: l_u_instance_ids_list csi_datastructures_pub.id_tbl;
538:
539: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
540: l_msg_count number;
541: l_msg_data varchar2(2000);
542: BEGIN
543:
540: l_msg_count number;
541: l_msg_data varchar2(2000);
542: BEGIN
543:
544: x_return_status := fnd_api.g_ret_sts_success;
545:
546: api_log('decrement_wip_instance');
547:
548: l_u_instance_rec.instance_id := p_instance_id;
564:
565: -- update item_instance
566: csi_item_instance_pub.update_item_instance(
567: p_api_version => 1.0,
568: p_commit => fnd_api.g_false,
569: p_init_msg_list => fnd_api.g_true,
570: p_validation_level => fnd_api.g_valid_level_full,
571: p_instance_rec => l_u_instance_rec,
572: p_party_tbl => l_u_parties_tbl,
565: -- update item_instance
566: csi_item_instance_pub.update_item_instance(
567: p_api_version => 1.0,
568: p_commit => fnd_api.g_false,
569: p_init_msg_list => fnd_api.g_true,
570: p_validation_level => fnd_api.g_valid_level_full,
571: p_instance_rec => l_u_instance_rec,
572: p_party_tbl => l_u_parties_tbl,
573: p_account_tbl => l_u_pty_accts_tbl,
566: csi_item_instance_pub.update_item_instance(
567: p_api_version => 1.0,
568: p_commit => fnd_api.g_false,
569: p_init_msg_list => fnd_api.g_true,
570: p_validation_level => fnd_api.g_valid_level_full,
571: p_instance_rec => l_u_instance_rec,
572: p_party_tbl => l_u_parties_tbl,
573: p_account_tbl => l_u_pty_accts_tbl,
574: p_org_assignments_tbl => l_u_org_units_tbl,
581: x_msg_count => l_msg_count,
582: x_msg_data => l_msg_data);
583:
584: -- For Bug 4057183
585: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
586: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
587: RAISE fnd_api.g_exc_error;
588: END IF;
589:
582: x_msg_data => l_msg_data);
583:
584: -- For Bug 4057183
585: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
586: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
587: RAISE fnd_api.g_exc_error;
588: END IF;
589:
590: EXCEPTION
583:
584: -- For Bug 4057183
585: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
586: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
587: RAISE fnd_api.g_exc_error;
588: END IF;
589:
590: EXCEPTION
591: WHEN fnd_api.g_exc_error THEN
587: RAISE fnd_api.g_exc_error;
588: END IF;
589:
590: EXCEPTION
591: WHEN fnd_api.g_exc_error THEN
592: x_return_status := fnd_api.g_ret_sts_error;
593: END decrement_wip_instance;
594:
595:
588: END IF;
589:
590: EXCEPTION
591: WHEN fnd_api.g_exc_error THEN
592: x_return_status := fnd_api.g_ret_sts_error;
593: END decrement_wip_instance;
594:
595:
596: PROCEDURE create_wip_instance_as(
601: px_csi_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec,
602: x_return_status OUT NOCOPY varchar2)
603: IS
604:
605: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
606: l_msg_data varchar2(2000);
607: l_msg_count number;
608:
609: -- get_item_instance_details variables
632: c_pa_ind binary_integer := 0;
633:
634: BEGIN
635:
636: x_return_status := fnd_api.g_ret_sts_success;
637: api_log('create_wip_instance_as');
638:
639: l_g_instance_rec.instance_id := p_instance_id;
640:
644:
645: -- get the instance party and party account info
646: csi_item_instance_pub.get_item_instance_details(
647: p_api_version => 1.0,
648: p_commit => fnd_api.g_false,
649: p_init_msg_list => fnd_api.g_true,
650: p_validation_level => fnd_api.g_valid_level_full,
651: p_instance_rec => l_g_instance_rec,
652: p_get_parties => fnd_api.g_true,
645: -- get the instance party and party account info
646: csi_item_instance_pub.get_item_instance_details(
647: p_api_version => 1.0,
648: p_commit => fnd_api.g_false,
649: p_init_msg_list => fnd_api.g_true,
650: p_validation_level => fnd_api.g_valid_level_full,
651: p_instance_rec => l_g_instance_rec,
652: p_get_parties => fnd_api.g_true,
653: p_party_header_tbl => l_g_ph_tbl,
646: csi_item_instance_pub.get_item_instance_details(
647: p_api_version => 1.0,
648: p_commit => fnd_api.g_false,
649: p_init_msg_list => fnd_api.g_true,
650: p_validation_level => fnd_api.g_valid_level_full,
651: p_instance_rec => l_g_instance_rec,
652: p_get_parties => fnd_api.g_true,
653: p_party_header_tbl => l_g_ph_tbl,
654: p_get_accounts => fnd_api.g_true,
648: p_commit => fnd_api.g_false,
649: p_init_msg_list => fnd_api.g_true,
650: p_validation_level => fnd_api.g_valid_level_full,
651: p_instance_rec => l_g_instance_rec,
652: p_get_parties => fnd_api.g_true,
653: p_party_header_tbl => l_g_ph_tbl,
654: p_get_accounts => fnd_api.g_true,
655: p_account_header_tbl => l_g_pah_tbl,
656: p_get_org_assignments => fnd_api.g_false,
650: p_validation_level => fnd_api.g_valid_level_full,
651: p_instance_rec => l_g_instance_rec,
652: p_get_parties => fnd_api.g_true,
653: p_party_header_tbl => l_g_ph_tbl,
654: p_get_accounts => fnd_api.g_true,
655: p_account_header_tbl => l_g_pah_tbl,
656: p_get_org_assignments => fnd_api.g_false,
657: p_org_header_tbl => l_g_ouh_tbl,
658: p_get_pricing_attribs => fnd_api.g_false,
652: p_get_parties => fnd_api.g_true,
653: p_party_header_tbl => l_g_ph_tbl,
654: p_get_accounts => fnd_api.g_true,
655: p_account_header_tbl => l_g_pah_tbl,
656: p_get_org_assignments => fnd_api.g_false,
657: p_org_header_tbl => l_g_ouh_tbl,
658: p_get_pricing_attribs => fnd_api.g_false,
659: p_pricing_attrib_tbl => l_g_pa_tbl,
660: p_get_ext_attribs => fnd_api.g_false,
654: p_get_accounts => fnd_api.g_true,
655: p_account_header_tbl => l_g_pah_tbl,
656: p_get_org_assignments => fnd_api.g_false,
657: p_org_header_tbl => l_g_ouh_tbl,
658: p_get_pricing_attribs => fnd_api.g_false,
659: p_pricing_attrib_tbl => l_g_pa_tbl,
660: p_get_ext_attribs => fnd_api.g_false,
661: p_ext_attrib_tbl => l_g_eav_tbl,
662: p_ext_attrib_def_tbl => l_g_ea_tbl,
656: p_get_org_assignments => fnd_api.g_false,
657: p_org_header_tbl => l_g_ouh_tbl,
658: p_get_pricing_attribs => fnd_api.g_false,
659: p_pricing_attrib_tbl => l_g_pa_tbl,
660: p_get_ext_attribs => fnd_api.g_false,
661: p_ext_attrib_tbl => l_g_eav_tbl,
662: p_ext_attrib_def_tbl => l_g_ea_tbl,
663: p_get_asset_assignments => fnd_api.g_false,
664: p_asset_header_tbl => l_g_iah_tbl,
659: p_pricing_attrib_tbl => l_g_pa_tbl,
660: p_get_ext_attribs => fnd_api.g_false,
661: p_ext_attrib_tbl => l_g_eav_tbl,
662: p_ext_attrib_def_tbl => l_g_ea_tbl,
663: p_get_asset_assignments => fnd_api.g_false,
664: p_asset_header_tbl => l_g_iah_tbl,
665: p_time_stamp => l_g_time_stamp,
666: x_return_status => l_return_status,
667: x_msg_count => l_msg_count,
666: x_return_status => l_return_status,
667: x_msg_count => l_msg_count,
668: x_msg_data => l_msg_data);
669:
670: IF l_return_status <> fnd_api.g_ret_sts_success THEN
671: RAISE fnd_api.g_exc_error;
672: END IF;
673:
674: make_non_hdr_rec(
667: x_msg_count => l_msg_count,
668: x_msg_data => l_msg_data);
669:
670: IF l_return_status <> fnd_api.g_ret_sts_success THEN
671: RAISE fnd_api.g_exc_error;
672: END IF;
673:
674: make_non_hdr_rec(
675: p_instance_hdr_rec => l_g_instance_rec,
680:
681: l_c_instance_rec := l_instance_rec;
682:
683: -- substitute create specific attributes
684: l_c_instance_rec.instance_id := fnd_api.g_miss_num;
685: l_c_instance_rec.instance_number := fnd_api.g_miss_char;
686: l_c_instance_rec.object_version_number := 1.0;
687: l_c_instance_rec.vld_organization_id := p_organization_id;
688: l_c_instance_rec.quantity := p_quantity;
681: l_c_instance_rec := l_instance_rec;
682:
683: -- substitute create specific attributes
684: l_c_instance_rec.instance_id := fnd_api.g_miss_num;
685: l_c_instance_rec.instance_number := fnd_api.g_miss_char;
686: l_c_instance_rec.object_version_number := 1.0;
687: l_c_instance_rec.vld_organization_id := p_organization_id;
688: l_c_instance_rec.quantity := p_quantity;
689:
697:
698: FOR l_pt_ind IN l_g_ph_tbl.FIRST ..l_g_ph_tbl.LAST
699: LOOP
700:
701: l_c_parties_tbl(l_pt_ind).instance_party_id := fnd_api.g_miss_num;
702: l_c_parties_tbl(l_pt_ind).instance_id := fnd_api.g_miss_num;
703: l_c_parties_tbl(l_pt_ind).party_id := l_g_ph_tbl(l_pt_ind).party_id;
704: l_c_parties_tbl(l_pt_ind).party_source_table := l_g_ph_tbl(l_pt_ind).party_source_table;
705: l_c_parties_tbl(l_pt_ind).relationship_type_code :=
698: FOR l_pt_ind IN l_g_ph_tbl.FIRST ..l_g_ph_tbl.LAST
699: LOOP
700:
701: l_c_parties_tbl(l_pt_ind).instance_party_id := fnd_api.g_miss_num;
702: l_c_parties_tbl(l_pt_ind).instance_id := fnd_api.g_miss_num;
703: l_c_parties_tbl(l_pt_ind).party_id := l_g_ph_tbl(l_pt_ind).party_id;
704: l_c_parties_tbl(l_pt_ind).party_source_table := l_g_ph_tbl(l_pt_ind).party_source_table;
705: l_c_parties_tbl(l_pt_ind).relationship_type_code :=
706: l_g_ph_tbl(l_pt_ind).relationship_type_code;
713: IF l_g_pah_tbl(l_pa_ind).instance_party_id = l_g_ph_tbl(l_pt_ind).instance_party_id
714: THEN
715: c_pa_ind := c_pa_ind + 1;
716: l_c_pty_accts_tbl(c_pa_ind).parent_tbl_index := l_pt_ind;
717: l_c_pty_accts_tbl(c_pa_ind).ip_account_id := fnd_api.g_miss_num;
718: l_c_pty_accts_tbl(c_pa_ind).instance_party_id := fnd_api.g_miss_num;
719: l_c_pty_accts_tbl(c_pa_ind).party_account_id :=
720: l_g_pah_tbl(l_pa_ind).party_account_id;
721: l_c_pty_accts_tbl(c_pa_ind).relationship_type_code :=
714: THEN
715: c_pa_ind := c_pa_ind + 1;
716: l_c_pty_accts_tbl(c_pa_ind).parent_tbl_index := l_pt_ind;
717: l_c_pty_accts_tbl(c_pa_ind).ip_account_id := fnd_api.g_miss_num;
718: l_c_pty_accts_tbl(c_pa_ind).instance_party_id := fnd_api.g_miss_num;
719: l_c_pty_accts_tbl(c_pa_ind).party_account_id :=
720: l_g_pah_tbl(l_pa_ind).party_account_id;
721: l_c_pty_accts_tbl(c_pa_ind).relationship_type_code :=
722: l_g_pah_tbl(l_pa_ind).relationship_type_code;
733: p_api_name => 'create_item_instance');
734:
735: csi_item_instance_pub.create_item_instance(
736: p_api_version => 1.0,
737: p_commit => fnd_api.g_false,
738: p_init_msg_list => fnd_api.g_true,
739: p_validation_level => fnd_api.g_valid_level_full,
740: p_instance_rec => l_c_instance_rec,
741: p_party_tbl => l_c_parties_tbl,
734:
735: csi_item_instance_pub.create_item_instance(
736: p_api_version => 1.0,
737: p_commit => fnd_api.g_false,
738: p_init_msg_list => fnd_api.g_true,
739: p_validation_level => fnd_api.g_valid_level_full,
740: p_instance_rec => l_c_instance_rec,
741: p_party_tbl => l_c_parties_tbl,
742: p_account_tbl => l_c_pty_accts_tbl,
735: csi_item_instance_pub.create_item_instance(
736: p_api_version => 1.0,
737: p_commit => fnd_api.g_false,
738: p_init_msg_list => fnd_api.g_true,
739: p_validation_level => fnd_api.g_valid_level_full,
740: p_instance_rec => l_c_instance_rec,
741: p_party_tbl => l_c_parties_tbl,
742: p_account_tbl => l_c_pty_accts_tbl,
743: p_org_assignments_tbl => l_c_org_units_tbl,
749: x_msg_count => l_msg_count,
750: x_msg_data => l_msg_data );
751:
752: -- For Bug 4057183
753: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
754: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
755: RAISE fnd_api.g_exc_error;
756: END IF;
757:
750: x_msg_data => l_msg_data );
751:
752: -- For Bug 4057183
753: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
754: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
755: RAISE fnd_api.g_exc_error;
756: END IF;
757:
758: debug(' new instance_id : '||l_c_instance_rec.instance_id);
751:
752: -- For Bug 4057183
753: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
754: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
755: RAISE fnd_api.g_exc_error;
756: END IF;
757:
758: debug(' new instance_id : '||l_c_instance_rec.instance_id);
759:
759:
760: x_new_instance_id := l_c_instance_rec.instance_id;
761:
762: EXCEPTION
763: WHEN fnd_api.g_exc_error THEN
764: x_return_status := fnd_api.g_ret_sts_error;
765: END create_wip_instance_as;
766:
767: PROCEDURE apportion_always(
760: x_new_instance_id := l_c_instance_rec.instance_id;
761:
762: EXCEPTION
763: WHEN fnd_api.g_exc_error THEN
764: x_return_status := fnd_api.g_ret_sts_error;
765: END create_wip_instance_as;
766:
767: PROCEDURE apportion_always(
768: p_assembly_instances IN csi_datastructures_pub.instance_tbl,
811: AND nvl(mog.end_date_active, sysdate+1);
812:
813: BEGIN
814:
815: x_return_status := fnd_api.g_ret_sts_success;
816:
817: api_log('apportion_always');
818:
819: l_issues_tbl := p_splitted_instances;
985:
986: x_assy_comp_map_tbl := l_ac_mapping_tbl;
987:
988: EXCEPTION
989: WHEN fnd_api.g_exc_error THEN
990: x_return_status := fnd_api.g_ret_sts_error;
991: END apportion_always;
992:
993:
986: x_assy_comp_map_tbl := l_ac_mapping_tbl;
987:
988: EXCEPTION
989: WHEN fnd_api.g_exc_error THEN
990: x_return_status := fnd_api.g_ret_sts_error;
991: END apportion_always;
992:
993:
994: /* this routine gets the instances created for the asssembly completion instances
1018: --
1019: l_instance_hdr_tbl csi_datastructures_pub.instance_header_tbl;
1020: l_instance_tbl csi_datastructures_pub.instance_tbl;
1021:
1022: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1023: l_msg_data varchar2(2000);
1024: l_msg_count number;
1025:
1026: BEGIN
1024: l_msg_count number;
1025:
1026: BEGIN
1027:
1028: x_return_status := fnd_api.g_ret_sts_success;
1029:
1030: api_log('get_assembly_instances');
1031:
1032: l_completion_quantity := p_completion_quantity;
1052: p_pkg_name => 'csi_item_instance_pub');
1053:
1054: csi_item_instance_pub.get_item_instances(
1055: p_api_version => 1.0,
1056: p_commit => fnd_api.g_false,
1057: p_init_msg_list => fnd_api.g_true,
1058: p_validation_level => fnd_api.g_valid_level_full,
1059: p_instance_query_rec => l_inst_query_rec,
1060: p_party_query_rec => l_party_query_rec,
1053:
1054: csi_item_instance_pub.get_item_instances(
1055: p_api_version => 1.0,
1056: p_commit => fnd_api.g_false,
1057: p_init_msg_list => fnd_api.g_true,
1058: p_validation_level => fnd_api.g_valid_level_full,
1059: p_instance_query_rec => l_inst_query_rec,
1060: p_party_query_rec => l_party_query_rec,
1061: p_account_query_rec => l_pty_acct_query_rec,
1054: csi_item_instance_pub.get_item_instances(
1055: p_api_version => 1.0,
1056: p_commit => fnd_api.g_false,
1057: p_init_msg_list => fnd_api.g_true,
1058: p_validation_level => fnd_api.g_valid_level_full,
1059: p_instance_query_rec => l_inst_query_rec,
1060: p_party_query_rec => l_party_query_rec,
1061: p_account_query_rec => l_pty_acct_query_rec,
1062: p_transaction_id => null,
1059: p_instance_query_rec => l_inst_query_rec,
1060: p_party_query_rec => l_party_query_rec,
1061: p_account_query_rec => l_pty_acct_query_rec,
1062: p_transaction_id => null,
1063: p_resolve_id_columns => fnd_api.g_false,
1064: p_active_instance_only => fnd_api.g_true,
1065: x_instance_header_tbl => l_instance_hdr_tbl,
1066: x_return_status => l_return_status,
1067: x_msg_count => l_msg_count,
1060: p_party_query_rec => l_party_query_rec,
1061: p_account_query_rec => l_pty_acct_query_rec,
1062: p_transaction_id => null,
1063: p_resolve_id_columns => fnd_api.g_false,
1064: p_active_instance_only => fnd_api.g_true,
1065: x_instance_header_tbl => l_instance_hdr_tbl,
1066: x_return_status => l_return_status,
1067: x_msg_count => l_msg_count,
1068: x_msg_data => l_msg_data);
1066: x_return_status => l_return_status,
1067: x_msg_count => l_msg_count,
1068: x_msg_data => l_msg_data);
1069:
1070: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1071: RAISE fnd_api.g_exc_error;
1072: END IF;
1073:
1074: debug('Assembly instances count :'||l_instance_hdr_tbl.COUNT);
1067: x_msg_count => l_msg_count,
1068: x_msg_data => l_msg_data);
1069:
1070: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1071: RAISE fnd_api.g_exc_error;
1072: END IF;
1073:
1074: debug('Assembly instances count :'||l_instance_hdr_tbl.COUNT);
1075:
1079: p_instance_header_tbl => l_instance_hdr_tbl,
1080: x_instance_tbl => l_instance_tbl,
1081: x_return_status => l_return_status);
1082:
1083: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1084: RAISE fnd_api.g_exc_error;
1085: END IF;
1086:
1087: END IF;
1080: x_instance_tbl => l_instance_tbl,
1081: x_return_status => l_return_status);
1082:
1083: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1084: RAISE fnd_api.g_exc_error;
1085: END IF;
1086:
1087: END IF;
1088:
1088:
1089: x_instance_tbl := l_instance_tbl;
1090:
1091: EXCEPTION
1092: WHEN fnd_api.g_exc_error THEN
1093: x_return_status := fnd_api.g_ret_sts_error;
1094:
1095: END get_assembly_instances;
1096:
1089: x_instance_tbl := l_instance_tbl;
1090:
1091: EXCEPTION
1092: WHEN fnd_api.g_exc_error THEN
1093: x_return_status := fnd_api.g_ret_sts_error;
1094:
1095: END get_assembly_instances;
1096:
1097: PROCEDURE get_qty_per_assembly(
1103: IS
1104: l_qty_per_assy number;
1105: BEGIN
1106:
1107: x_return_status := fnd_api.g_ret_sts_success;
1108:
1109: api_log('get_qty_per_assembly');
1110:
1111: SELECT sum(nvl(quantity_per_assembly,0))
1119:
1120: x_qty_per_assembly := abs(l_qty_per_assy);
1121:
1122: EXCEPTION
1123: WHEN fnd_api.g_exc_error THEN
1124: x_return_status := fnd_api.g_ret_sts_error;
1125: END get_qty_per_assembly;
1126:
1127: PROCEDURE get_issued_requirements (
1120: x_qty_per_assembly := abs(l_qty_per_assy);
1121:
1122: EXCEPTION
1123: WHEN fnd_api.g_exc_error THEN
1124: x_return_status := fnd_api.g_ret_sts_error;
1125: END get_qty_per_assembly;
1126:
1127: PROCEDURE get_issued_requirements (
1128: p_wip_entity_id IN number,
1181: l_job_quantity number;
1182: l_requirements_tbl requirements_tbl;
1183: l_ind binary_integer;
1184: l_qty_per_assy number;
1185: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1186:
1187: BEGIN
1188:
1189: x_return_status := fnd_api.g_ret_sts_success;
1185: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1186:
1187: BEGIN
1188:
1189: x_return_status := fnd_api.g_ret_sts_success;
1190:
1191: api_log('get_issued_requirements');
1192:
1193: BEGIN
1247: p_component_item_id => req_rec.inventory_item_id,
1248: x_qty_per_assembly => l_qty_per_assy,
1249: x_return_status => l_return_status);
1250:
1251: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1252: RAISE fnd_api.g_exc_error;
1253: END IF;
1254:
1255: l_requirements_tbl(l_ind).quantity_per_assy := l_qty_per_assy;
1248: x_qty_per_assembly => l_qty_per_assy,
1249: x_return_status => l_return_status);
1250:
1251: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1252: RAISE fnd_api.g_exc_error;
1253: END IF;
1254:
1255: l_requirements_tbl(l_ind).quantity_per_assy := l_qty_per_assy;
1256:
1270:
1271: x_requirements_tbl := l_requirements_tbl;
1272:
1273: EXCEPTION
1274: WHEN fnd_api.g_exc_error THEN
1275: x_return_status := fnd_api.g_ret_sts_error;
1276: END get_issued_requirements;
1277:
1278: PROCEDURE get_issued_instances(
1271: x_requirements_tbl := l_requirements_tbl;
1272:
1273: EXCEPTION
1274: WHEN fnd_api.g_exc_error THEN
1275: x_return_status := fnd_api.g_ret_sts_error;
1276: END get_issued_requirements;
1277:
1278: PROCEDURE get_issued_instances(
1279: p_wip_entity_id IN number,
1292: l_instance_hdr_tbl csi_datastructures_pub.instance_header_tbl;
1293:
1294: l_instance_tbl csi_datastructures_pub.instance_tbl;
1295: --
1296: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1297: l_msg_data varchar2(2000);
1298: l_msg_count number;
1299:
1300: BEGIN
1298: l_msg_count number;
1299:
1300: BEGIN
1301:
1302: x_return_status := fnd_api.g_ret_sts_success;
1303:
1304: api_log('get_issued_instances');
1305:
1306: l_inst_query_rec.wip_job_id := p_wip_entity_id;
1314: p_pkg_name => 'csi_item_instance_pub');
1315:
1316: csi_item_instance_pub.get_item_instances(
1317: p_api_version => 1.0,
1318: p_commit => fnd_api.g_false,
1319: p_init_msg_list => fnd_api.g_true,
1320: p_validation_level => fnd_api.g_valid_level_full,
1321: p_instance_query_rec => l_inst_query_rec,
1322: p_party_query_rec => l_party_query_rec,
1315:
1316: csi_item_instance_pub.get_item_instances(
1317: p_api_version => 1.0,
1318: p_commit => fnd_api.g_false,
1319: p_init_msg_list => fnd_api.g_true,
1320: p_validation_level => fnd_api.g_valid_level_full,
1321: p_instance_query_rec => l_inst_query_rec,
1322: p_party_query_rec => l_party_query_rec,
1323: p_account_query_rec => l_pty_acct_query_rec,
1316: csi_item_instance_pub.get_item_instances(
1317: p_api_version => 1.0,
1318: p_commit => fnd_api.g_false,
1319: p_init_msg_list => fnd_api.g_true,
1320: p_validation_level => fnd_api.g_valid_level_full,
1321: p_instance_query_rec => l_inst_query_rec,
1322: p_party_query_rec => l_party_query_rec,
1323: p_account_query_rec => l_pty_acct_query_rec,
1324: p_transaction_id => null,
1321: p_instance_query_rec => l_inst_query_rec,
1322: p_party_query_rec => l_party_query_rec,
1323: p_account_query_rec => l_pty_acct_query_rec,
1324: p_transaction_id => null,
1325: p_resolve_id_columns => fnd_api.g_false,
1326: p_active_instance_only => fnd_api.g_true,
1327: x_instance_header_tbl => l_instance_hdr_tbl,
1328: x_return_status => l_return_status,
1329: x_msg_count => l_msg_count,
1322: p_party_query_rec => l_party_query_rec,
1323: p_account_query_rec => l_pty_acct_query_rec,
1324: p_transaction_id => null,
1325: p_resolve_id_columns => fnd_api.g_false,
1326: p_active_instance_only => fnd_api.g_true,
1327: x_instance_header_tbl => l_instance_hdr_tbl,
1328: x_return_status => l_return_status,
1329: x_msg_count => l_msg_count,
1330: x_msg_data => l_msg_data );
1328: x_return_status => l_return_status,
1329: x_msg_count => l_msg_count,
1330: x_msg_data => l_msg_data );
1331:
1332: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1333: RAISE fnd_api.g_exc_error;
1334: END IF;
1335:
1336: IF l_instance_hdr_tbl.COUNT > 0 THEN
1329: x_msg_count => l_msg_count,
1330: x_msg_data => l_msg_data );
1331:
1332: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1333: RAISE fnd_api.g_exc_error;
1334: END IF;
1335:
1336: IF l_instance_hdr_tbl.COUNT > 0 THEN
1337: debug('Issued instances found for inventory item id: '||p_inventory_item_id);
1343: p_instance_header_tbl => l_instance_hdr_tbl,
1344: x_instance_tbl => l_instance_tbl,
1345: x_return_status => l_return_status);
1346:
1347: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1348: RAISE fnd_api.g_exc_error;
1349: END IF;
1350:
1351: x_instance_tbl := l_instance_tbl;
1344: x_instance_tbl => l_instance_tbl,
1345: x_return_status => l_return_status);
1346:
1347: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1348: RAISE fnd_api.g_exc_error;
1349: END IF;
1350:
1351: x_instance_tbl := l_instance_tbl;
1352:
1350:
1351: x_instance_tbl := l_instance_tbl;
1352:
1353: EXCEPTION
1354: WHEN fnd_api.g_exc_error THEN
1355: x_return_status := fnd_api.g_ret_sts_error;
1356:
1357: END get_issued_instances;
1358:
1351: x_instance_tbl := l_instance_tbl;
1352:
1353: EXCEPTION
1354: WHEN fnd_api.g_exc_error THEN
1355: x_return_status := fnd_api.g_ret_sts_error;
1356:
1357: END get_issued_instances;
1358:
1359: PROCEDURE get_serial_instance(
1371: l_instance_hdr_tbl csi_datastructures_pub.instance_header_tbl;
1372: l_instance_tbl csi_datastructures_pub.instance_tbl;
1373:
1374: --
1375: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1376: l_msg_data varchar2(2000);
1377: l_msg_count number;
1378:
1379: l_t_ind binary_integer := 0;
1380: l_tmp_inst_hdr_tbl csi_datastructures_pub.instance_header_tbl;
1381:
1382: BEGIN
1383:
1384: x_return_status := fnd_api.g_ret_sts_success;
1385:
1386: api_log('get_serial_instance');
1387:
1388: l_inst_query_rec.inventory_item_id := p_inventory_item_id;
1393: p_pkg_name => 'csi_item_instance_pub');
1394:
1395: csi_item_instance_pub.get_item_instances(
1396: p_api_version => 1.0,
1397: p_commit => fnd_api.g_false,
1398: p_init_msg_list => fnd_api.g_true,
1399: p_validation_level => fnd_api.g_valid_level_full,
1400: p_instance_query_rec => l_inst_query_rec,
1401: p_party_query_rec => l_party_query_rec,
1394:
1395: csi_item_instance_pub.get_item_instances(
1396: p_api_version => 1.0,
1397: p_commit => fnd_api.g_false,
1398: p_init_msg_list => fnd_api.g_true,
1399: p_validation_level => fnd_api.g_valid_level_full,
1400: p_instance_query_rec => l_inst_query_rec,
1401: p_party_query_rec => l_party_query_rec,
1402: p_account_query_rec => l_pty_acct_query_rec,
1395: csi_item_instance_pub.get_item_instances(
1396: p_api_version => 1.0,
1397: p_commit => fnd_api.g_false,
1398: p_init_msg_list => fnd_api.g_true,
1399: p_validation_level => fnd_api.g_valid_level_full,
1400: p_instance_query_rec => l_inst_query_rec,
1401: p_party_query_rec => l_party_query_rec,
1402: p_account_query_rec => l_pty_acct_query_rec,
1403: p_transaction_id => null,
1400: p_instance_query_rec => l_inst_query_rec,
1401: p_party_query_rec => l_party_query_rec,
1402: p_account_query_rec => l_pty_acct_query_rec,
1403: p_transaction_id => null,
1404: p_resolve_id_columns => fnd_api.g_false,
1405: p_active_instance_only => fnd_api.g_false,
1406: x_instance_header_tbl => l_instance_hdr_tbl,
1407: x_return_status => l_return_status,
1408: x_msg_count => l_msg_count,
1401: p_party_query_rec => l_party_query_rec,
1402: p_account_query_rec => l_pty_acct_query_rec,
1403: p_transaction_id => null,
1404: p_resolve_id_columns => fnd_api.g_false,
1405: p_active_instance_only => fnd_api.g_false,
1406: x_instance_header_tbl => l_instance_hdr_tbl,
1407: x_return_status => l_return_status,
1408: x_msg_count => l_msg_count,
1409: x_msg_data => l_msg_data);
1407: x_return_status => l_return_status,
1408: x_msg_count => l_msg_count,
1409: x_msg_data => l_msg_data);
1410:
1411: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1412: RAISE fnd_api.g_exc_error;
1413: END IF;
1414:
1415: IF l_instance_hdr_tbl.COUNT > 0 THEN
1408: x_msg_count => l_msg_count,
1409: x_msg_data => l_msg_data);
1410:
1411: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1412: RAISE fnd_api.g_exc_error;
1413: END IF;
1414:
1415: IF l_instance_hdr_tbl.COUNT > 0 THEN
1416: debug('instance tbl count :'||l_instance_hdr_tbl.COUNT);
1438:
1439: x_instance_tbl := l_instance_tbl;
1440:
1441: EXCEPTION
1442: WHEN fnd_api.g_exc_error THEN
1443: x_return_status := fnd_api.g_ret_sts_error;
1444: END get_serial_instance;
1445:
1446: PROCEDURE split_instance_using_ratio(
1439: x_instance_tbl := l_instance_tbl;
1440:
1441: EXCEPTION
1442: WHEN fnd_api.g_exc_error THEN
1443: x_return_status := fnd_api.g_ret_sts_error;
1444: END get_serial_instance;
1445:
1446: PROCEDURE split_instance_using_ratio(
1447: p_instance_id IN number,
1456: l_qty_remaining number;
1457:
1458: l_init_instance_rec csi_datastructures_pub.instance_rec;
1459:
1460: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1461: l_msg_data varchar2(2000);
1462: l_msg_count number;
1463:
1464: l_split_flag boolean := FALSE;
1501: c_pa_ind binary_integer;
1502:
1503: BEGIN
1504:
1505: x_return_status := fnd_api.g_ret_sts_success;
1506:
1507: api_log('split_instance_using_ratio');
1508:
1509: l_s_ind := 0;
1516:
1517: -- get the instance party and party account info
1518: csi_item_instance_pub.get_item_instance_details(
1519: p_api_version => 1.0,
1520: p_commit => fnd_api.g_false,
1521: p_init_msg_list => fnd_api.g_true,
1522: p_validation_level => fnd_api.g_valid_level_full,
1523: p_instance_rec => l_g_instance_rec,
1524: p_get_parties => fnd_api.g_true,
1517: -- get the instance party and party account info
1518: csi_item_instance_pub.get_item_instance_details(
1519: p_api_version => 1.0,
1520: p_commit => fnd_api.g_false,
1521: p_init_msg_list => fnd_api.g_true,
1522: p_validation_level => fnd_api.g_valid_level_full,
1523: p_instance_rec => l_g_instance_rec,
1524: p_get_parties => fnd_api.g_true,
1525: p_party_header_tbl => l_g_ph_tbl,
1518: csi_item_instance_pub.get_item_instance_details(
1519: p_api_version => 1.0,
1520: p_commit => fnd_api.g_false,
1521: p_init_msg_list => fnd_api.g_true,
1522: p_validation_level => fnd_api.g_valid_level_full,
1523: p_instance_rec => l_g_instance_rec,
1524: p_get_parties => fnd_api.g_true,
1525: p_party_header_tbl => l_g_ph_tbl,
1526: p_get_accounts => fnd_api.g_true,
1520: p_commit => fnd_api.g_false,
1521: p_init_msg_list => fnd_api.g_true,
1522: p_validation_level => fnd_api.g_valid_level_full,
1523: p_instance_rec => l_g_instance_rec,
1524: p_get_parties => fnd_api.g_true,
1525: p_party_header_tbl => l_g_ph_tbl,
1526: p_get_accounts => fnd_api.g_true,
1527: p_account_header_tbl => l_g_pah_tbl,
1528: p_get_org_assignments => fnd_api.g_false,
1522: p_validation_level => fnd_api.g_valid_level_full,
1523: p_instance_rec => l_g_instance_rec,
1524: p_get_parties => fnd_api.g_true,
1525: p_party_header_tbl => l_g_ph_tbl,
1526: p_get_accounts => fnd_api.g_true,
1527: p_account_header_tbl => l_g_pah_tbl,
1528: p_get_org_assignments => fnd_api.g_false,
1529: p_org_header_tbl => l_g_ouh_tbl,
1530: p_get_pricing_attribs => fnd_api.g_false,
1524: p_get_parties => fnd_api.g_true,
1525: p_party_header_tbl => l_g_ph_tbl,
1526: p_get_accounts => fnd_api.g_true,
1527: p_account_header_tbl => l_g_pah_tbl,
1528: p_get_org_assignments => fnd_api.g_false,
1529: p_org_header_tbl => l_g_ouh_tbl,
1530: p_get_pricing_attribs => fnd_api.g_false,
1531: p_pricing_attrib_tbl => l_g_pa_tbl,
1532: p_get_ext_attribs => fnd_api.g_false,
1526: p_get_accounts => fnd_api.g_true,
1527: p_account_header_tbl => l_g_pah_tbl,
1528: p_get_org_assignments => fnd_api.g_false,
1529: p_org_header_tbl => l_g_ouh_tbl,
1530: p_get_pricing_attribs => fnd_api.g_false,
1531: p_pricing_attrib_tbl => l_g_pa_tbl,
1532: p_get_ext_attribs => fnd_api.g_false,
1533: p_ext_attrib_tbl => l_g_eav_tbl,
1534: p_ext_attrib_def_tbl => l_g_ea_tbl,
1528: p_get_org_assignments => fnd_api.g_false,
1529: p_org_header_tbl => l_g_ouh_tbl,
1530: p_get_pricing_attribs => fnd_api.g_false,
1531: p_pricing_attrib_tbl => l_g_pa_tbl,
1532: p_get_ext_attribs => fnd_api.g_false,
1533: p_ext_attrib_tbl => l_g_eav_tbl,
1534: p_ext_attrib_def_tbl => l_g_ea_tbl,
1535: p_get_asset_assignments => fnd_api.g_false,
1536: p_asset_header_tbl => l_g_iah_tbl,
1531: p_pricing_attrib_tbl => l_g_pa_tbl,
1532: p_get_ext_attribs => fnd_api.g_false,
1533: p_ext_attrib_tbl => l_g_eav_tbl,
1534: p_ext_attrib_def_tbl => l_g_ea_tbl,
1535: p_get_asset_assignments => fnd_api.g_false,
1536: p_asset_header_tbl => l_g_iah_tbl,
1537: p_time_stamp => l_g_time_stamp,
1538: x_return_status => l_return_status,
1539: x_msg_count => l_msg_count,
1538: x_return_status => l_return_status,
1539: x_msg_count => l_msg_count,
1540: x_msg_data => l_msg_data);
1541:
1542: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1543: RAISE fnd_api.g_exc_error;
1544: END IF;
1545:
1546: make_non_hdr_rec(
1539: x_msg_count => l_msg_count,
1540: x_msg_data => l_msg_data);
1541:
1542: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1543: RAISE fnd_api.g_exc_error;
1544: END IF;
1545:
1546: make_non_hdr_rec(
1547: p_instance_hdr_rec => l_g_instance_rec,
1572:
1573: l_c_instance_rec := l_instance_rec;
1574:
1575: -- substitute create specific attributes
1576: l_c_instance_rec.instance_id := fnd_api.g_miss_num;
1577: l_c_instance_rec.instance_number := fnd_api.g_miss_char;
1578: l_c_instance_rec.object_version_number := 1.0;
1579: l_c_instance_rec.vld_organization_id := p_organization_id;
1580: l_c_instance_rec.quantity := p_qty_ratio;
1573: l_c_instance_rec := l_instance_rec;
1574:
1575: -- substitute create specific attributes
1576: l_c_instance_rec.instance_id := fnd_api.g_miss_num;
1577: l_c_instance_rec.instance_number := fnd_api.g_miss_char;
1578: l_c_instance_rec.object_version_number := 1.0;
1579: l_c_instance_rec.vld_organization_id := p_organization_id;
1580: l_c_instance_rec.quantity := p_qty_ratio;
1581:
1587: IF l_g_ph_tbl.COUNT > 0 THEN
1588:
1589: FOR l_pt_ind IN l_g_ph_tbl.FIRST ..l_g_ph_tbl.LAST
1590: LOOP
1591: l_c_parties_tbl(l_pt_ind).instance_party_id := fnd_api.g_miss_num;
1592: l_c_parties_tbl(l_pt_ind).instance_id := fnd_api.g_miss_num;
1593: l_c_parties_tbl(l_pt_ind).party_id :=
1594: l_g_ph_tbl(l_pt_ind).party_id;
1595: l_c_parties_tbl(l_pt_ind).party_source_table :=
1588:
1589: FOR l_pt_ind IN l_g_ph_tbl.FIRST ..l_g_ph_tbl.LAST
1590: LOOP
1591: l_c_parties_tbl(l_pt_ind).instance_party_id := fnd_api.g_miss_num;
1592: l_c_parties_tbl(l_pt_ind).instance_id := fnd_api.g_miss_num;
1593: l_c_parties_tbl(l_pt_ind).party_id :=
1594: l_g_ph_tbl(l_pt_ind).party_id;
1595: l_c_parties_tbl(l_pt_ind).party_source_table :=
1596: l_g_ph_tbl(l_pt_ind).party_source_table;
1605: IF l_g_pah_tbl(l_pa_ind).instance_party_id = l_g_ph_tbl(l_pt_ind).instance_party_id
1606: THEN
1607: c_pa_ind := c_pa_ind + 1;
1608: l_c_pty_accts_tbl(c_pa_ind).parent_tbl_index := l_pt_ind;
1609: l_c_pty_accts_tbl(c_pa_ind).ip_account_id := fnd_api.g_miss_num;
1610: l_c_pty_accts_tbl(c_pa_ind).instance_party_id := fnd_api.g_miss_num;
1611: l_c_pty_accts_tbl(c_pa_ind).party_account_id :=
1612: l_g_pah_tbl(l_pa_ind).party_account_id;
1613: l_c_pty_accts_tbl(c_pa_ind).relationship_type_code :=
1606: THEN
1607: c_pa_ind := c_pa_ind + 1;
1608: l_c_pty_accts_tbl(c_pa_ind).parent_tbl_index := l_pt_ind;
1609: l_c_pty_accts_tbl(c_pa_ind).ip_account_id := fnd_api.g_miss_num;
1610: l_c_pty_accts_tbl(c_pa_ind).instance_party_id := fnd_api.g_miss_num;
1611: l_c_pty_accts_tbl(c_pa_ind).party_account_id :=
1612: l_g_pah_tbl(l_pa_ind).party_account_id;
1613: l_c_pty_accts_tbl(c_pa_ind).relationship_type_code :=
1614: l_g_pah_tbl(l_pa_ind).relationship_type_code;
1625: p_api_name => 'create_item_instance');
1626:
1627: csi_item_instance_pub.create_item_instance(
1628: p_api_version => 1.0,
1629: p_commit => fnd_api.g_false,
1630: p_init_msg_list => fnd_api.g_true,
1631: p_validation_level => fnd_api.g_valid_level_full,
1632: p_instance_rec => l_c_instance_rec,
1633: p_party_tbl => l_c_parties_tbl,
1626:
1627: csi_item_instance_pub.create_item_instance(
1628: p_api_version => 1.0,
1629: p_commit => fnd_api.g_false,
1630: p_init_msg_list => fnd_api.g_true,
1631: p_validation_level => fnd_api.g_valid_level_full,
1632: p_instance_rec => l_c_instance_rec,
1633: p_party_tbl => l_c_parties_tbl,
1634: p_account_tbl => l_c_pty_accts_tbl,
1627: csi_item_instance_pub.create_item_instance(
1628: p_api_version => 1.0,
1629: p_commit => fnd_api.g_false,
1630: p_init_msg_list => fnd_api.g_true,
1631: p_validation_level => fnd_api.g_valid_level_full,
1632: p_instance_rec => l_c_instance_rec,
1633: p_party_tbl => l_c_parties_tbl,
1634: p_account_tbl => l_c_pty_accts_tbl,
1635: p_org_assignments_tbl => l_c_org_units_tbl,
1641: x_msg_count => l_msg_count,
1642: x_msg_data => l_msg_data );
1643:
1644: -- For Bug 4057183
1645: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1646: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1647: RAISE fnd_api.g_exc_error;
1648: END IF;
1649:
1642: x_msg_data => l_msg_data );
1643:
1644: -- For Bug 4057183
1645: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1646: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1647: RAISE fnd_api.g_exc_error;
1648: END IF;
1649:
1650: debug(' New Instance ID :'||l_c_instance_rec.instance_id);
1643:
1644: -- For Bug 4057183
1645: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1646: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1647: RAISE fnd_api.g_exc_error;
1648: END IF;
1649:
1650: debug(' New Instance ID :'||l_c_instance_rec.instance_id);
1651:
1667: p_api_name => 'update_item_instance');
1668:
1669: csi_item_instance_pub.update_item_instance(
1670: p_api_version => 1.0,
1671: p_commit => fnd_api.g_false,
1672: p_init_msg_list => fnd_api.g_true,
1673: p_validation_level => fnd_api.g_valid_level_full,
1674: p_instance_rec => l_u_instance_rec,
1675: p_party_tbl => l_u_parties_tbl,
1668:
1669: csi_item_instance_pub.update_item_instance(
1670: p_api_version => 1.0,
1671: p_commit => fnd_api.g_false,
1672: p_init_msg_list => fnd_api.g_true,
1673: p_validation_level => fnd_api.g_valid_level_full,
1674: p_instance_rec => l_u_instance_rec,
1675: p_party_tbl => l_u_parties_tbl,
1676: p_account_tbl => l_u_pty_accts_tbl,
1669: csi_item_instance_pub.update_item_instance(
1670: p_api_version => 1.0,
1671: p_commit => fnd_api.g_false,
1672: p_init_msg_list => fnd_api.g_true,
1673: p_validation_level => fnd_api.g_valid_level_full,
1674: p_instance_rec => l_u_instance_rec,
1675: p_party_tbl => l_u_parties_tbl,
1676: p_account_tbl => l_u_pty_accts_tbl,
1677: p_org_assignments_tbl => l_u_org_units_tbl,
1684: x_msg_count => l_msg_count,
1685: x_msg_data => l_msg_data);
1686:
1687: -- For Bug 4057183
1688: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1689: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1690: RAISE fnd_api.g_exc_error;
1691: END IF;
1692:
1685: x_msg_data => l_msg_data);
1686:
1687: -- For Bug 4057183
1688: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1689: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1690: RAISE fnd_api.g_exc_error;
1691: END IF;
1692:
1693: ELSE
1686:
1687: -- For Bug 4057183
1688: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1689: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1690: RAISE fnd_api.g_exc_error;
1691: END IF;
1692:
1693: ELSE
1694:
1724:
1725: x_splitted_instances := l_splitted_instances;
1726:
1727: EXCEPTION
1728: WHEN fnd_api.g_exc_error THEN
1729: x_return_status := fnd_api.g_ret_sts_error;
1730: END split_instance_using_ratio;
1731:
1732:
1725: x_splitted_instances := l_splitted_instances;
1726:
1727: EXCEPTION
1728: WHEN fnd_api.g_exc_error THEN
1729: x_return_status := fnd_api.g_ret_sts_error;
1730: END split_instance_using_ratio;
1731:
1732:
1733: PROCEDURE split_instances_using_ratio(
1738: px_csi_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec,
1739: x_splitted_instances OUT NOCOPY csi_datastructures_pub.instance_tbl,
1740: x_return_status OUT NOCOPY varchar2)
1741: IS
1742: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1743: l_splitted_instances csi_datastructures_pub.instance_tbl;
1744: BEGIN
1745:
1746: x_return_status := fnd_api.g_ret_sts_success;
1742: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1743: l_splitted_instances csi_datastructures_pub.instance_tbl;
1744: BEGIN
1745:
1746: x_return_status := fnd_api.g_ret_sts_success;
1747:
1748: api_log('split_instances_using_ratio');
1749:
1750: IF p_issued_instances.COUNT > 0 THEN
1759: px_csi_txn_rec => px_csi_txn_rec,
1760: x_splitted_instances => l_splitted_instances,
1761: x_return_status => l_return_status);
1762:
1763: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1764: RAISE fnd_api.g_exc_error;
1765: END IF;
1766:
1767: END LOOP;
1760: x_splitted_instances => l_splitted_instances,
1761: x_return_status => l_return_status);
1762:
1763: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1764: RAISE fnd_api.g_exc_error;
1765: END IF;
1766:
1767: END LOOP;
1768: END IF;
1769:
1770: x_splitted_instances := l_splitted_instances;
1771:
1772: EXCEPTION
1773: WHEN fnd_api.g_exc_error THEN
1774: x_return_status := fnd_api.g_ret_sts_success;
1775: END split_instances_using_ratio;
1776:
1777:
1770: x_splitted_instances := l_splitted_instances;
1771:
1772: EXCEPTION
1773: WHEN fnd_api.g_exc_error THEN
1774: x_return_status := fnd_api.g_ret_sts_success;
1775: END split_instances_using_ratio;
1776:
1777:
1778: PROCEDURE split_issued_instances(
1789: l_remaining_quantity number;
1790:
1791: l_new_instance_rec csi_datastructures_pub.instance_rec;
1792:
1793: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
1794: l_msg_data varchar2(2000);
1795: l_msg_count number;
1796:
1797: l_split_counter number;
1834: --
1835:
1836: BEGIN
1837:
1838: x_return_status := fnd_api.g_ret_sts_success;
1839:
1840: api_log('split_issued_instances');
1841:
1842: l_s_ind := 0;
1862:
1863: -- get the instance party and party account info
1864: csi_item_instance_pub.get_item_instance_details(
1865: p_api_version => 1.0,
1866: p_commit => fnd_api.g_false,
1867: p_init_msg_list => fnd_api.g_true,
1868: p_validation_level => fnd_api.g_valid_level_full,
1869: p_instance_rec => l_g_instance_rec,
1870: p_get_parties => fnd_api.g_true,
1863: -- get the instance party and party account info
1864: csi_item_instance_pub.get_item_instance_details(
1865: p_api_version => 1.0,
1866: p_commit => fnd_api.g_false,
1867: p_init_msg_list => fnd_api.g_true,
1868: p_validation_level => fnd_api.g_valid_level_full,
1869: p_instance_rec => l_g_instance_rec,
1870: p_get_parties => fnd_api.g_true,
1871: p_party_header_tbl => l_g_ph_tbl,
1864: csi_item_instance_pub.get_item_instance_details(
1865: p_api_version => 1.0,
1866: p_commit => fnd_api.g_false,
1867: p_init_msg_list => fnd_api.g_true,
1868: p_validation_level => fnd_api.g_valid_level_full,
1869: p_instance_rec => l_g_instance_rec,
1870: p_get_parties => fnd_api.g_true,
1871: p_party_header_tbl => l_g_ph_tbl,
1872: p_get_accounts => fnd_api.g_true,
1866: p_commit => fnd_api.g_false,
1867: p_init_msg_list => fnd_api.g_true,
1868: p_validation_level => fnd_api.g_valid_level_full,
1869: p_instance_rec => l_g_instance_rec,
1870: p_get_parties => fnd_api.g_true,
1871: p_party_header_tbl => l_g_ph_tbl,
1872: p_get_accounts => fnd_api.g_true,
1873: p_account_header_tbl => l_g_pah_tbl,
1874: p_get_org_assignments => fnd_api.g_false,
1868: p_validation_level => fnd_api.g_valid_level_full,
1869: p_instance_rec => l_g_instance_rec,
1870: p_get_parties => fnd_api.g_true,
1871: p_party_header_tbl => l_g_ph_tbl,
1872: p_get_accounts => fnd_api.g_true,
1873: p_account_header_tbl => l_g_pah_tbl,
1874: p_get_org_assignments => fnd_api.g_false,
1875: p_org_header_tbl => l_g_ouh_tbl,
1876: p_get_pricing_attribs => fnd_api.g_false,
1870: p_get_parties => fnd_api.g_true,
1871: p_party_header_tbl => l_g_ph_tbl,
1872: p_get_accounts => fnd_api.g_true,
1873: p_account_header_tbl => l_g_pah_tbl,
1874: p_get_org_assignments => fnd_api.g_false,
1875: p_org_header_tbl => l_g_ouh_tbl,
1876: p_get_pricing_attribs => fnd_api.g_false,
1877: p_pricing_attrib_tbl => l_g_pa_tbl,
1878: p_get_ext_attribs => fnd_api.g_false,
1872: p_get_accounts => fnd_api.g_true,
1873: p_account_header_tbl => l_g_pah_tbl,
1874: p_get_org_assignments => fnd_api.g_false,
1875: p_org_header_tbl => l_g_ouh_tbl,
1876: p_get_pricing_attribs => fnd_api.g_false,
1877: p_pricing_attrib_tbl => l_g_pa_tbl,
1878: p_get_ext_attribs => fnd_api.g_false,
1879: p_ext_attrib_tbl => l_g_eav_tbl,
1880: p_ext_attrib_def_tbl => l_g_ea_tbl,
1874: p_get_org_assignments => fnd_api.g_false,
1875: p_org_header_tbl => l_g_ouh_tbl,
1876: p_get_pricing_attribs => fnd_api.g_false,
1877: p_pricing_attrib_tbl => l_g_pa_tbl,
1878: p_get_ext_attribs => fnd_api.g_false,
1879: p_ext_attrib_tbl => l_g_eav_tbl,
1880: p_ext_attrib_def_tbl => l_g_ea_tbl,
1881: p_get_asset_assignments => fnd_api.g_false,
1882: p_asset_header_tbl => l_g_iah_tbl,
1877: p_pricing_attrib_tbl => l_g_pa_tbl,
1878: p_get_ext_attribs => fnd_api.g_false,
1879: p_ext_attrib_tbl => l_g_eav_tbl,
1880: p_ext_attrib_def_tbl => l_g_ea_tbl,
1881: p_get_asset_assignments => fnd_api.g_false,
1882: p_asset_header_tbl => l_g_iah_tbl,
1883: p_time_stamp => l_g_time_stamp,
1884: x_return_status => l_return_status,
1885: x_msg_count => l_msg_count,
1884: x_return_status => l_return_status,
1885: x_msg_count => l_msg_count,
1886: x_msg_data => l_msg_data);
1887:
1888: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1889: RAISE fnd_api.g_exc_error;
1890: END IF;
1891:
1892: l_remaining_quantity := l_g_instance_rec.quantity;
1885: x_msg_count => l_msg_count,
1886: x_msg_data => l_msg_data);
1887:
1888: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1889: RAISE fnd_api.g_exc_error;
1890: END IF;
1891:
1892: l_remaining_quantity := l_g_instance_rec.quantity;
1893:
1910: -- take all that is in issued instance rec
1911: l_c_instance_rec := l_instance_rec;
1912:
1913: -- substitute create specific attributes
1914: l_c_instance_rec.instance_id := fnd_api.g_miss_num;
1915: l_c_instance_rec.instance_number := fnd_api.g_miss_char;
1916: l_c_instance_rec.object_version_number := 1.0;
1917: l_c_instance_rec.vld_organization_id := p_organization_id;
1918: l_c_instance_rec.quantity := l_allocated_quantity;
1911: l_c_instance_rec := l_instance_rec;
1912:
1913: -- substitute create specific attributes
1914: l_c_instance_rec.instance_id := fnd_api.g_miss_num;
1915: l_c_instance_rec.instance_number := fnd_api.g_miss_char;
1916: l_c_instance_rec.object_version_number := 1.0;
1917: l_c_instance_rec.vld_organization_id := p_organization_id;
1918: l_c_instance_rec.quantity := l_allocated_quantity;
1919:
1924:
1925: IF l_g_ph_tbl.COUNT > 0 THEN
1926: FOR l_pt_ind IN l_g_ph_tbl.FIRST ..l_g_ph_tbl.LAST
1927: LOOP
1928: l_c_parties_tbl(l_pt_ind).instance_party_id := fnd_api.g_miss_num;
1929: l_c_parties_tbl(l_pt_ind).instance_id := fnd_api.g_miss_num;
1930: l_c_parties_tbl(l_pt_ind).party_id :=
1931: l_g_ph_tbl(l_pt_ind).party_id;
1932: l_c_parties_tbl(l_pt_ind).party_source_table :=
1925: IF l_g_ph_tbl.COUNT > 0 THEN
1926: FOR l_pt_ind IN l_g_ph_tbl.FIRST ..l_g_ph_tbl.LAST
1927: LOOP
1928: l_c_parties_tbl(l_pt_ind).instance_party_id := fnd_api.g_miss_num;
1929: l_c_parties_tbl(l_pt_ind).instance_id := fnd_api.g_miss_num;
1930: l_c_parties_tbl(l_pt_ind).party_id :=
1931: l_g_ph_tbl(l_pt_ind).party_id;
1932: l_c_parties_tbl(l_pt_ind).party_source_table :=
1933: l_g_ph_tbl(l_pt_ind).party_source_table;
1944: l_g_ph_tbl(l_pt_ind).instance_party_id
1945: THEN
1946: c_pa_ind := c_pa_ind + 1;
1947: l_c_pty_accts_tbl(c_pa_ind).parent_tbl_index := l_pt_ind;
1948: l_c_pty_accts_tbl(c_pa_ind).ip_account_id := fnd_api.g_miss_num;
1949: l_c_pty_accts_tbl(c_pa_ind).instance_party_id := fnd_api.g_miss_num;
1950: l_c_pty_accts_tbl(c_pa_ind).party_account_id :=
1951: l_g_pah_tbl(l_pa_ind).party_account_id;
1952: l_c_pty_accts_tbl(c_pa_ind).relationship_type_code :=
1945: THEN
1946: c_pa_ind := c_pa_ind + 1;
1947: l_c_pty_accts_tbl(c_pa_ind).parent_tbl_index := l_pt_ind;
1948: l_c_pty_accts_tbl(c_pa_ind).ip_account_id := fnd_api.g_miss_num;
1949: l_c_pty_accts_tbl(c_pa_ind).instance_party_id := fnd_api.g_miss_num;
1950: l_c_pty_accts_tbl(c_pa_ind).party_account_id :=
1951: l_g_pah_tbl(l_pa_ind).party_account_id;
1952: l_c_pty_accts_tbl(c_pa_ind).relationship_type_code :=
1953: l_g_pah_tbl(l_pa_ind).relationship_type_code;
1964: p_api_name => 'create_item_instance');
1965:
1966: csi_item_instance_pub.create_item_instance(
1967: p_api_version => 1.0,
1968: p_commit => fnd_api.g_false,
1969: p_init_msg_list => fnd_api.g_true,
1970: p_validation_level => fnd_api.g_valid_level_full,
1971: p_instance_rec => l_c_instance_rec,
1972: p_party_tbl => l_c_parties_tbl,
1965:
1966: csi_item_instance_pub.create_item_instance(
1967: p_api_version => 1.0,
1968: p_commit => fnd_api.g_false,
1969: p_init_msg_list => fnd_api.g_true,
1970: p_validation_level => fnd_api.g_valid_level_full,
1971: p_instance_rec => l_c_instance_rec,
1972: p_party_tbl => l_c_parties_tbl,
1973: p_account_tbl => l_c_pty_accts_tbl,
1966: csi_item_instance_pub.create_item_instance(
1967: p_api_version => 1.0,
1968: p_commit => fnd_api.g_false,
1969: p_init_msg_list => fnd_api.g_true,
1970: p_validation_level => fnd_api.g_valid_level_full,
1971: p_instance_rec => l_c_instance_rec,
1972: p_party_tbl => l_c_parties_tbl,
1973: p_account_tbl => l_c_pty_accts_tbl,
1974: p_org_assignments_tbl => l_c_org_units_tbl,
1980: x_msg_count => l_msg_count,
1981: x_msg_data => l_msg_data );
1982:
1983: -- For Bug 4057183
1984: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1985: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1986: RAISE fnd_api.g_exc_error;
1987: END IF;
1988:
1981: x_msg_data => l_msg_data );
1982:
1983: -- For Bug 4057183
1984: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1985: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1986: RAISE fnd_api.g_exc_error;
1987: END IF;
1988:
1989: debug(' New Instance ID :'||l_c_instance_rec.instance_id);
1982:
1983: -- For Bug 4057183
1984: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
1985: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
1986: RAISE fnd_api.g_exc_error;
1987: END IF;
1988:
1989: debug(' New Instance ID :'||l_c_instance_rec.instance_id);
1990:
2007: p_api_name => 'update_item_instance');
2008:
2009: csi_item_instance_pub.update_item_instance(
2010: p_api_version => 1.0,
2011: p_commit => fnd_api.g_false,
2012: p_init_msg_list => fnd_api.g_true,
2013: p_validation_level => fnd_api.g_valid_level_full,
2014: p_instance_rec => l_u_instance_rec,
2015: p_party_tbl => l_u_parties_tbl,
2008:
2009: csi_item_instance_pub.update_item_instance(
2010: p_api_version => 1.0,
2011: p_commit => fnd_api.g_false,
2012: p_init_msg_list => fnd_api.g_true,
2013: p_validation_level => fnd_api.g_valid_level_full,
2014: p_instance_rec => l_u_instance_rec,
2015: p_party_tbl => l_u_parties_tbl,
2016: p_account_tbl => l_u_pty_accts_tbl,
2009: csi_item_instance_pub.update_item_instance(
2010: p_api_version => 1.0,
2011: p_commit => fnd_api.g_false,
2012: p_init_msg_list => fnd_api.g_true,
2013: p_validation_level => fnd_api.g_valid_level_full,
2014: p_instance_rec => l_u_instance_rec,
2015: p_party_tbl => l_u_parties_tbl,
2016: p_account_tbl => l_u_pty_accts_tbl,
2017: p_org_assignments_tbl => l_u_org_units_tbl,
2024: x_msg_count => l_msg_count,
2025: x_msg_data => l_msg_data);
2026:
2027: -- For Bug 4057183
2028: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2029: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2030: RAISE fnd_api.g_exc_error;
2031: END IF;
2032:
2025: x_msg_data => l_msg_data);
2026:
2027: -- For Bug 4057183
2028: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2029: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2030: RAISE fnd_api.g_exc_error;
2031: END IF;
2032:
2033: IF l_remaining_quantity <= l_allocated_quantity THEN
2026:
2027: -- For Bug 4057183
2028: -- IF l_return_status <> fnd_api.g_ret_sts_success THEN
2029: IF l_return_status not in (fnd_api.g_ret_sts_success,'W') THEN
2030: RAISE fnd_api.g_exc_error;
2031: END IF;
2032:
2033: IF l_remaining_quantity <= l_allocated_quantity THEN
2034: l_s_ind := l_s_ind + 1;
2052:
2053: x_splitted_instances := l_splitted_instances;
2054:
2055: EXCEPTION
2056: WHEN fnd_api.g_exc_error THEN
2057: x_return_status := fnd_api.g_ret_sts_error;
2058: END split_issued_instances;
2059:
2060: PROCEDURE create_assy_comp_relation(
2053: x_splitted_instances := l_splitted_instances;
2054:
2055: EXCEPTION
2056: WHEN fnd_api.g_exc_error THEN
2057: x_return_status := fnd_api.g_ret_sts_error;
2058: END split_issued_instances;
2059:
2060: PROCEDURE create_assy_comp_relation(
2061: p_assy_comp_map_tbl IN assy_comp_map_tbl,
2064: IS
2065:
2066: l_ii_rltns_tbl csi_datastructures_pub.ii_relationship_tbl;
2067:
2068: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2069: l_msg_count number;
2070: l_msg_data varchar2(2000);
2071: l_rltn_exists varchar2(1) := 'N';
2072:
2073: l_iir_ind binary_integer := 0;
2074:
2075: BEGIN
2076:
2077: x_return_status := fnd_api.g_ret_sts_success;
2078:
2079: api_log('create_assy_comp_relation');
2080:
2081: IF p_assy_comp_map_tbl.COUNT > 0 THEN
2106: END;
2107:
2108: IF l_rltn_exists = 'N' THEN
2109: l_iir_ind := l_iir_ind + 1;
2110: l_ii_rltns_tbl(l_iir_ind).relationship_id := fnd_api.g_miss_num;
2111: l_ii_rltns_tbl(l_iir_ind).subject_id := p_assy_comp_map_tbl(l_ind).comp_instance_id;
2112: l_ii_rltns_tbl(l_iir_ind).object_id := p_assy_comp_map_tbl(l_ind).assy_instance_id;
2113: l_ii_rltns_tbl(l_iir_ind).relationship_type_code := 'COMPONENT-OF';
2114:
2120: p_instance_id => p_assy_comp_map_tbl(l_ind).comp_instance_id,
2121: p_csi_txn_rec => px_csi_txn_rec ,
2122: x_return_status => x_return_status);
2123:
2124: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2125: DEBUG('Error in csi_ii_relationships_pub.create_relationship, call to csi_process_txn_pvt.check_and_break_relation');
2126: RAISE fnd_api.g_exc_error;
2127: END IF;
2128: -- End fix for bug 5655955 ( Bug 13503707)
2122: x_return_status => x_return_status);
2123:
2124: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2125: DEBUG('Error in csi_ii_relationships_pub.create_relationship, call to csi_process_txn_pvt.check_and_break_relation');
2126: RAISE fnd_api.g_exc_error;
2127: END IF;
2128: -- End fix for bug 5655955 ( Bug 13503707)
2129: --End bug#13929565
2130: END IF;
2138: p_api_name => 'create_relationship');
2139:
2140: csi_ii_relationships_pub.create_relationship(
2141: p_api_version => 1.0,
2142: p_commit => fnd_api.g_false,
2143: p_init_msg_list => fnd_api.g_true,
2144: p_validation_level => fnd_api.g_valid_level_full,
2145: p_relationship_tbl => l_ii_rltns_tbl,
2146: p_txn_rec => px_csi_txn_rec,
2139:
2140: csi_ii_relationships_pub.create_relationship(
2141: p_api_version => 1.0,
2142: p_commit => fnd_api.g_false,
2143: p_init_msg_list => fnd_api.g_true,
2144: p_validation_level => fnd_api.g_valid_level_full,
2145: p_relationship_tbl => l_ii_rltns_tbl,
2146: p_txn_rec => px_csi_txn_rec,
2147: x_return_status => l_return_status,
2140: csi_ii_relationships_pub.create_relationship(
2141: p_api_version => 1.0,
2142: p_commit => fnd_api.g_false,
2143: p_init_msg_list => fnd_api.g_true,
2144: p_validation_level => fnd_api.g_valid_level_full,
2145: p_relationship_tbl => l_ii_rltns_tbl,
2146: p_txn_rec => px_csi_txn_rec,
2147: x_return_status => l_return_status,
2148: x_msg_count => l_msg_count,
2147: x_return_status => l_return_status,
2148: x_msg_count => l_msg_count,
2149: x_msg_data => l_msg_data);
2150:
2151: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2152: debug('Error in csi_ii_relationships_pub.create_relationship.');
2153: RAISE fnd_api.g_exc_error;
2154: END IF;
2155:
2149: x_msg_data => l_msg_data);
2150:
2151: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2152: debug('Error in csi_ii_relationships_pub.create_relationship.');
2153: RAISE fnd_api.g_exc_error;
2154: END IF;
2155:
2156:
2157: EXCEPTION
2154: END IF;
2155:
2156:
2157: EXCEPTION
2158: WHEN fnd_api.g_exc_error THEN
2159: x_return_status := fnd_api.g_ret_sts_error;
2160: END create_assy_comp_relation;
2161:
2162: PROCEDURE get_genealogy_children(
2155:
2156:
2157: EXCEPTION
2158: WHEN fnd_api.g_exc_error THEN
2159: x_return_status := fnd_api.g_ret_sts_error;
2160: END create_assy_comp_relation;
2161:
2162: PROCEDURE get_genealogy_children(
2163: px_assembly_instances IN OUT NOCOPY csi_datastructures_pub.instance_tbl,
2192: l_child_instance_id number;
2193:
2194: BEGIN
2195:
2196: x_return_status := fnd_api.g_ret_sts_success;
2197: api_log('get_genealogy_children');
2198:
2199: l_assy_tbl := px_assembly_instances;
2200:
2250: px_assembly_instances := l_assy_tbl;
2251: x_assy_comp_map_tbl := l_ac_map_tbl;
2252:
2253: EXCEPTION
2254: WHEN fnd_api.g_exc_error THEN
2255: x_return_status := fnd_api.g_ret_sts_success;
2256: END get_genealogy_children;
2257:
2258: PROCEDURE get_parent_serial_number(
2251: x_assy_comp_map_tbl := l_ac_map_tbl;
2252:
2253: EXCEPTION
2254: WHEN fnd_api.g_exc_error THEN
2255: x_return_status := fnd_api.g_ret_sts_success;
2256: END get_genealogy_children;
2257:
2258: PROCEDURE get_parent_serial_number(
2259: p_child_item_id IN number,
2266: l_parent_item_id number;
2267: l_parent_serial_number varchar2(80);
2268: BEGIN
2269:
2270: x_return_status := fnd_api.g_ret_sts_success;
2271:
2272: api_log('get_parent_serial_number');
2273:
2274: --Bug#15980871
2285: fnd_message.set_name('CSI','CSI_PARENT_SRL_NOT_FOUND');
2286: fnd_message.set_token('INVENTORY_ITEM_ID',p_child_item_id);
2287: fnd_message.set_token('CHILD_SERIAL_NUM',p_child_serial_number);
2288: fnd_msg_pub.add;
2289: RAISE fnd_api.g_exc_error;
2290: END;
2291: -- Bug#15980871
2292: IF l_parent_serial_number is not null THEN
2293: BEGIN
2319: x_parent_item_id := l_parent_item_id;
2320: x_parent_serial_number := l_parent_serial_number;
2321:
2322: EXCEPTION
2323: WHEN fnd_api.g_exc_error THEN
2324: x_return_status := fnd_api.g_ret_sts_error;
2325: END get_parent_serial_number;
2326:
2327:
2320: x_parent_serial_number := l_parent_serial_number;
2321:
2322: EXCEPTION
2323: WHEN fnd_api.g_exc_error THEN
2324: x_return_status := fnd_api.g_ret_sts_error;
2325: END get_parent_serial_number;
2326:
2327:
2328: PROCEDURE apportion_serialized(
2353:
2354: --Fix for bug 4705806
2355: l_parent_item_id number;
2356: l_parent_serial_number varchar2(80) := null;
2357: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2358:
2359:
2360: FUNCTION alloc_count(p_object_id IN number, p_comp_item_id IN number)
2361: RETURN number
2376: END alloc_count;
2377:
2378: BEGIN
2379:
2380: x_return_status := fnd_api.g_ret_sts_success;
2381: api_log('apportion_serialized');
2382:
2383: l_assy_tbl := p_assembly_instances;
2384: l_comp_tbl := p_component_instances;
2425: p_child_serial_number => l_comp_tbl(l_c_ind).serial_number,
2426: x_parent_item_id => l_parent_item_id,
2427: x_parent_serial_number => l_parent_serial_number,
2428: x_return_status => l_return_status );
2429: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2430: RAISE fnd_api.g_exc_error;
2431: END IF;
2432: IF l_parent_serial_number IS NOT NULL THEN
2433: l_comp_tbl.DELETE(l_c_ind);
2426: x_parent_item_id => l_parent_item_id,
2427: x_parent_serial_number => l_parent_serial_number,
2428: x_return_status => l_return_status );
2429: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2430: RAISE fnd_api.g_exc_error;
2431: END IF;
2432: IF l_parent_serial_number IS NOT NULL THEN
2433: l_comp_tbl.DELETE(l_c_ind);
2434: ELSE --end of bug fix 4705806
2495: p_child_serial_number => l_comp_tbl(l_c_ind).serial_number,
2496: x_parent_item_id => l_parent_item_id,
2497: x_parent_serial_number => l_parent_serial_number,
2498: x_return_status => l_return_status );
2499: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2500: RAISE fnd_api.g_exc_error;
2501: END IF;
2502: IF l_parent_serial_number IS NOT NULL THEN
2503: l_comp_tbl.DELETE(l_c_ind);
2496: x_parent_item_id => l_parent_item_id,
2497: x_parent_serial_number => l_parent_serial_number,
2498: x_return_status => l_return_status );
2499: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2500: RAISE fnd_api.g_exc_error;
2501: END IF;
2502: IF l_parent_serial_number IS NOT NULL THEN
2503: l_comp_tbl.DELETE(l_c_ind);
2504: ELSE --end of bug fix 4705806
2529:
2530: px_assy_comp_map_tbl := l_ac_map_tbl;
2531:
2532: EXCEPTION
2533: WHEN fnd_api.g_exc_error THEN
2534: x_return_status := fnd_api.g_ret_sts_error;
2535: END apportion_serialized;
2536:
2537: PROCEDURE apportion_nonserial_instance(
2530: px_assy_comp_map_tbl := l_ac_map_tbl;
2531:
2532: EXCEPTION
2533: WHEN fnd_api.g_exc_error THEN
2534: x_return_status := fnd_api.g_ret_sts_error;
2535: END apportion_serialized;
2536:
2537: PROCEDURE apportion_nonserial_instance(
2538: p_requirements_flag IN varchar2,
2587: l_u_pricing_tbl csi_datastructures_pub.pricing_attribs_tbl;
2588: l_u_assets_tbl csi_datastructures_pub.instance_asset_tbl;
2589: l_u_instance_ids_list csi_datastructures_pub.id_tbl;
2590:
2591: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2592: l_msg_data varchar2(2000);
2593: l_msg_count number;
2594:
2595: FUNCTION alloc_quantity(p_object_id IN number, p_comp_item_id IN number)
2612: END alloc_quantity;
2613:
2614: BEGIN
2615:
2616: x_return_status := fnd_api.g_ret_sts_success;
2617:
2618: api_log('apportion_nonserial_instance');
2619:
2620: debug(' requirements_flag '||p_requirements_flag);
2678: p_quantity => l_qty_allocated,
2679: px_csi_txn_rec => px_csi_txn_rec,
2680: x_return_status => l_return_status);
2681:
2682: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2683: RAISE fnd_api.g_exc_error;
2684: END IF;
2685:
2686: --decrement the wip instance
2679: px_csi_txn_rec => px_csi_txn_rec,
2680: x_return_status => l_return_status);
2681:
2682: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2683: RAISE fnd_api.g_exc_error;
2684: END IF;
2685:
2686: --decrement the wip instance
2687: decrement_wip_instance(
2689: p_quantity => l_qty_allocated,
2690: px_csi_txn_rec => px_csi_txn_rec,
2691: x_return_status => l_return_status);
2692:
2693: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2694: RAISE fnd_api.g_exc_error;
2695: END IF;
2696:
2697: exit;
2690: px_csi_txn_rec => px_csi_txn_rec,
2691: x_return_status => l_return_status);
2692:
2693: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2694: RAISE fnd_api.g_exc_error;
2695: END IF;
2696:
2697: exit;
2698: END LOOP;
2717: x_new_instance_id => l_new_instance_id,
2718: px_csi_txn_rec => px_csi_txn_rec,
2719: x_return_status => l_return_status);
2720:
2721: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2722: RAISE fnd_api.g_exc_error;
2723: END IF;
2724:
2725: --decrement the wip instance
2718: px_csi_txn_rec => px_csi_txn_rec,
2719: x_return_status => l_return_status);
2720:
2721: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2722: RAISE fnd_api.g_exc_error;
2723: END IF;
2724:
2725: --decrement the wip instance
2726: decrement_wip_instance(
2728: p_quantity => l_qty_allocated,
2729: px_csi_txn_rec => px_csi_txn_rec,
2730: x_return_status => l_return_status);
2731:
2732: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2733: RAISE fnd_api.g_exc_error;
2734: END IF;
2735:
2736: l_ac_ind := l_ac_ind + 1;
2729: px_csi_txn_rec => px_csi_txn_rec,
2730: x_return_status => l_return_status);
2731:
2732: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2733: RAISE fnd_api.g_exc_error;
2734: END IF;
2735:
2736: l_ac_ind := l_ac_ind + 1;
2737: l_ac_map_tbl(l_ac_ind).assy_instance_id := l_assy_tbl(l_a_ind).instance_id;
2755:
2756: x_assy_comp_map_tbl := l_ac_map_tbl;
2757:
2758: EXCEPTION
2759: WHEN fnd_api.g_exc_error THEN
2760: x_return_status := fnd_api.g_ret_sts_error;
2761: END apportion_nonserial_instance;
2762:
2763: PROCEDURE apportion_non_serialized(
2756: x_assy_comp_map_tbl := l_ac_map_tbl;
2757:
2758: EXCEPTION
2759: WHEN fnd_api.g_exc_error THEN
2760: x_return_status := fnd_api.g_ret_sts_error;
2761: END apportion_nonserial_instance;
2762:
2763: PROCEDURE apportion_non_serialized(
2764: p_context IN varchar2,
2781: l_return_status varchar2(1);
2782:
2783: BEGIN
2784:
2785: x_return_status := fnd_api.g_ret_sts_success;
2786: api_log('apportion_non_serialized');
2787:
2788: IF p_component_instances.COUNT > 0 THEN
2789: FOR l_ind IN p_component_instances.FIRST .. p_component_instances.LAST
2801: px_csi_txn_rec => px_csi_txn_rec,
2802: x_assy_comp_map_tbl => l_tmp_ac_map_tbl,
2803: x_return_status => l_return_status);
2804:
2805: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2806: RAISE fnd_api.g_exc_error;
2807: END IF;
2808:
2809: IF l_tmp_ac_map_tbl.COUNT > 0 THEN
2802: x_assy_comp_map_tbl => l_tmp_ac_map_tbl,
2803: x_return_status => l_return_status);
2804:
2805: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2806: RAISE fnd_api.g_exc_error;
2807: END IF;
2808:
2809: IF l_tmp_ac_map_tbl.COUNT > 0 THEN
2810: FOR l_t_ind IN l_tmp_ac_map_tbl.FIRST .. l_tmp_ac_map_tbl.LAST
2821:
2822: x_assy_comp_map_tbl := l_ac_map_tbl;
2823:
2824: EXCEPTION
2825: WHEN fnd_api.g_exc_error THEN
2826: x_return_status := fnd_api.g_ret_sts_error;
2827: END apportion_non_serialized;
2828:
2829: PROCEDURE build_discrete_rltn_at_wipac(
2822: x_assy_comp_map_tbl := l_ac_map_tbl;
2823:
2824: EXCEPTION
2825: WHEN fnd_api.g_exc_error THEN
2826: x_return_status := fnd_api.g_ret_sts_error;
2827: END apportion_non_serialized;
2828:
2829: PROCEDURE build_discrete_rltn_at_wipac(
2830: p_txn_ref IN txn_ref,
2843: l_comp_serial_code number;
2844:
2845: end_process exception;
2846:
2847: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
2848:
2849: l_requirements_flag varchar2(1);
2850: l_serial_tagged VARCHAR2(1) := 'N';
2851: l_serial_tag_control NUMBER := 1;
2851: l_serial_tag_control NUMBER := 1;
2852:
2853: BEGIN
2854:
2855: x_return_status := fnd_api.g_ret_sts_success;
2856:
2857: api_log('build_discrete_rltn_at_wipac');
2858:
2859: l_auto_allocate := csi_datastructures_pub.g_install_param_rec.auto_allocate_comp_at_wip;
2874: p_auto_allocate => l_auto_allocate,
2875: x_requirements_tbl => l_requirements_tbl,
2876: x_return_status => l_return_status);
2877:
2878: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2879: RAISE fnd_api.g_exc_error;
2880: END IF;
2881:
2882: debug('Issued Requirements Count: '||l_requirements_tbl.COUNT);
2875: x_requirements_tbl => l_requirements_tbl,
2876: x_return_status => l_return_status);
2877:
2878: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2879: RAISE fnd_api.g_exc_error;
2880: END IF;
2881:
2882: debug('Issued Requirements Count: '||l_requirements_tbl.COUNT);
2883:
2889: get_issued_instances(
2890: p_wip_entity_id => p_txn_ref.wip_entity_id,
2891: p_organization_id => p_txn_ref.organization_id,
2892: p_inventory_item_id => l_requirements_tbl(l_ind).inventory_item_id,
2893: p_serial_number => fnd_api.g_miss_char,
2894: x_instance_tbl => l_issued_instances,
2895: x_return_status => l_return_status);
2896:
2897: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2893: p_serial_number => fnd_api.g_miss_char,
2894: x_instance_tbl => l_issued_instances,
2895: x_return_status => l_return_status);
2896:
2897: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2898: RAISE fnd_api.g_exc_error;
2899: END IF;
2900:
2901: debug('Issued Instances Count: '||l_issued_instances.COUNT);
2894: x_instance_tbl => l_issued_instances,
2895: x_return_status => l_return_status);
2896:
2897: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2898: RAISE fnd_api.g_exc_error;
2899: END IF;
2900:
2901: debug('Issued Instances Count: '||l_issued_instances.COUNT);
2902:
2955: px_csi_txn_rec => px_csi_txn_rec,
2956: x_splitted_instances => l_splitted_instances,
2957: x_return_status => l_return_status);
2958:
2959: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2960: RAISE fnd_api.g_exc_error;
2961: END IF;
2962:
2963: ELSE
2956: x_splitted_instances => l_splitted_instances,
2957: x_return_status => l_return_status);
2958:
2959: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2960: RAISE fnd_api.g_exc_error;
2961: END IF;
2962:
2963: ELSE
2964:
2974: px_csi_txn_rec => px_csi_txn_rec,
2975: x_splitted_instances => l_splitted_instances,
2976: x_return_status => l_return_status);
2977:
2978: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2979: RAISE fnd_api.g_exc_error;
2980: END IF;
2981: ELSE
2982: l_splitted_instances := l_issued_instances;
2975: x_splitted_instances => l_splitted_instances,
2976: x_return_status => l_return_status);
2977:
2978: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2979: RAISE fnd_api.g_exc_error;
2980: END IF;
2981: ELSE
2982: l_splitted_instances := l_issued_instances;
2983: END IF;
2994: p_comp_serial_code => l_comp_serial_code,
2995: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
2996: x_return_status => l_return_status);
2997:
2998: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2999: RAISE fnd_api.g_exc_error;
3000: END IF;
3001:
3002: ELSE
2995: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
2996: x_return_status => l_return_status);
2997:
2998: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2999: RAISE fnd_api.g_exc_error;
3000: END IF;
3001:
3002: ELSE
3003:
3005: px_assembly_instances => l_assembly_instances,
3006: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3007: x_return_status => l_return_status);
3008:
3009: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3010: RAISE fnd_api.g_exc_error;
3011: END IF;
3012:
3013: IF l_auto_allocate = 'Y' OR p_txn_ref.wip_start_quantity = 1 THEN
3006: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3007: x_return_status => l_return_status);
3008:
3009: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3010: RAISE fnd_api.g_exc_error;
3011: END IF;
3012:
3013: IF l_auto_allocate = 'Y' OR p_txn_ref.wip_start_quantity = 1 THEN
3014:
3029: p_component_instances => l_issued_instances,
3030: px_assy_comp_map_tbl => l_assy_comp_map_tbl,
3031: x_return_status => l_return_status);
3032:
3033: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3034: RAISE fnd_api.g_exc_error;
3035: END IF;
3036:
3037: END IF;
3030: px_assy_comp_map_tbl => l_assy_comp_map_tbl,
3031: x_return_status => l_return_status);
3032:
3033: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3034: RAISE fnd_api.g_exc_error;
3035: END IF;
3036:
3037: END IF;
3038:
3047: p_assy_comp_map_tbl => l_assy_comp_map_tbl,
3048: px_csi_txn_rec => px_csi_txn_rec,
3049: x_return_status => l_return_status);
3050:
3051: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3052: RAISE fnd_api.g_exc_error;
3053: END IF;
3054:
3055: END IF;
3048: px_csi_txn_rec => px_csi_txn_rec,
3049: x_return_status => l_return_status);
3050:
3051: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3052: RAISE fnd_api.g_exc_error;
3053: END IF;
3054:
3055: END IF;
3056:
3062: END IF;
3063:
3064: EXCEPTION
3065: WHEN end_process THEN
3066: x_return_status := fnd_api.g_ret_sts_success;
3067:
3068: WHEN fnd_api.g_exc_error THEN
3069: x_return_status := fnd_api.g_ret_sts_error;
3070: END build_discrete_rltn_at_wipac;
3064: EXCEPTION
3065: WHEN end_process THEN
3066: x_return_status := fnd_api.g_ret_sts_success;
3067:
3068: WHEN fnd_api.g_exc_error THEN
3069: x_return_status := fnd_api.g_ret_sts_error;
3070: END build_discrete_rltn_at_wipac;
3071:
3072: PROCEDURE filter_assembly_instances(
3065: WHEN end_process THEN
3066: x_return_status := fnd_api.g_ret_sts_success;
3067:
3068: WHEN fnd_api.g_exc_error THEN
3069: x_return_status := fnd_api.g_ret_sts_error;
3070: END build_discrete_rltn_at_wipac;
3071:
3072: PROCEDURE filter_assembly_instances(
3073: p_wip_entity_id IN number,
3095: */
3096:
3097: l_filtered_assy_instances csi_datastructures_pub.instance_tbl;
3098: l_relation_found boolean := FALSE;
3099: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3100: l_f_ind binary_integer := 0;
3101:
3102: l_comp_quantity number;
3103:
3102: l_comp_quantity number;
3103:
3104: BEGIN
3105:
3106: x_return_status := fnd_api.g_ret_sts_success;
3107:
3108: api_log('filter_assembly_instances');
3109:
3110: IF p_assembly_instances.COUNT > 0 THEN
3138:
3139: x_filtered_assy_instances := l_filtered_assy_instances;
3140:
3141: EXCEPTION
3142: WHEN fnd_api.g_exc_error THEN
3143: x_return_status := fnd_api.g_ret_sts_error;
3144: END filter_assembly_instances;
3145:
3146: PROCEDURE get_genealogy_parent(
3139: x_filtered_assy_instances := l_filtered_assy_instances;
3140:
3141: EXCEPTION
3142: WHEN fnd_api.g_exc_error THEN
3143: x_return_status := fnd_api.g_ret_sts_error;
3144: END filter_assembly_instances;
3145:
3146: PROCEDURE get_genealogy_parent(
3147: px_component_instances IN OUT NOCOPY csi_datastructures_pub.instance_tbl,
3152: l_parent_serial_number varchar2(80) := null;
3153:
3154: l_parent_instance_id number;
3155:
3156: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3157: l_a_ind binary_integer := 0;
3158: BEGIN
3159:
3160: x_return_status := fnd_api.g_ret_sts_success;
3156: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3157: l_a_ind binary_integer := 0;
3158: BEGIN
3159:
3160: x_return_status := fnd_api.g_ret_sts_success;
3161:
3162: api_log('get_genealogy_parent');
3163:
3164: IF px_component_instances.COUNT > 0 THEN
3204: END LOOP;
3205: END IF;
3206:
3207: EXCEPTION
3208: WHEN fnd_api.g_exc_error THEN
3209: x_return_status := fnd_api.g_ret_sts_error;
3210: END get_genealogy_parent;
3211:
3212: PROCEDURE get_unprocessed_instances(
3205: END IF;
3206:
3207: EXCEPTION
3208: WHEN fnd_api.g_exc_error THEN
3209: x_return_status := fnd_api.g_ret_sts_error;
3210: END get_genealogy_parent;
3211:
3212: PROCEDURE get_unprocessed_instances(
3213: px_component_instances IN OUT NOCOPY csi_datastructures_pub.instance_tbl,
3216: l_upc_instances csi_datastructures_pub.instance_tbl;
3217: l_upc_ind binary_integer := 0;
3218:
3219: BEGIN
3220: x_return_status := fnd_api.g_ret_sts_success;
3221: api_log('get_unprocessed_instances');
3222:
3223: IF px_component_instances.COUNT > 0 THEN
3224:
3236:
3237: px_component_instances := l_upc_instances;
3238:
3239: EXCEPTION
3240: WHEN fnd_api.g_exc_error THEN
3241: x_return_status := fnd_api.g_ret_sts_error;
3242: END get_unprocessed_instances;
3243:
3244: PROCEDURE build_discrete_rltn_at_wipci(
3237: px_component_instances := l_upc_instances;
3238:
3239: EXCEPTION
3240: WHEN fnd_api.g_exc_error THEN
3241: x_return_status := fnd_api.g_ret_sts_error;
3242: END get_unprocessed_instances;
3243:
3244: PROCEDURE build_discrete_rltn_at_wipci(
3245: p_txn_ref IN txn_ref,
3262: l_serial_tagged VARCHAR2(1) := 'N';
3263: l_serial_tag_control NUMBER := 1;
3264:
3265: process_no_relation exception;
3266: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3267:
3268: BEGIN
3269:
3270: x_return_status := fnd_api.g_ret_sts_success;
3266: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3267:
3268: BEGIN
3269:
3270: x_return_status := fnd_api.g_ret_sts_success;
3271:
3272: api_log('build_discrete_rltn_at_wipci');
3273:
3274: l_auto_allocate := csi_datastructures_pub.g_install_param_rec.auto_allocate_comp_at_wip;
3276: get_issued_instances(
3277: p_wip_entity_id => p_txn_ref.wip_entity_id,
3278: p_organization_id => p_txn_ref.organization_id,
3279: p_inventory_item_id => p_txn_ref.inventory_item_id,
3280: p_serial_number => fnd_api.g_miss_char,
3281: x_instance_tbl => l_issued_instances,
3282: x_return_status => l_return_status);
3283:
3284: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3280: p_serial_number => fnd_api.g_miss_char,
3281: x_instance_tbl => l_issued_instances,
3282: x_return_status => l_return_status);
3283:
3284: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3285: RAISE fnd_api.g_exc_error;
3286: END IF;
3287:
3288: IF l_issued_instances.COUNT > 0 THEN
3281: x_instance_tbl => l_issued_instances,
3282: x_return_status => l_return_status);
3283:
3284: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3285: RAISE fnd_api.g_exc_error;
3286: END IF;
3287:
3288: IF l_issued_instances.COUNT > 0 THEN
3289:
3300: p_location_code => 'ALL',
3301: x_instance_tbl => l_assembly_instances,
3302: x_return_status => l_return_status);
3303:
3304: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3305: RAISE fnd_api.g_exc_error;
3306: END IF;
3307:
3308: IF l_assembly_instances.COUNT > 0 THEN
3301: x_instance_tbl => l_assembly_instances,
3302: x_return_status => l_return_status);
3303:
3304: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3305: RAISE fnd_api.g_exc_error;
3306: END IF;
3307:
3308: IF l_assembly_instances.COUNT > 0 THEN
3309: -- get the ratio of the issued inventory instance
3314: p_component_item_id => p_txn_ref.inventory_item_id,
3315: x_qty_per_assembly => l_qty_per_assy,
3316: x_return_status => l_return_status);
3317:
3318: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3319: RAISE fnd_api.g_exc_error;
3320: END IF;
3321:
3322: IF nvl(l_qty_per_assy,0) > 0 THEN
3315: x_qty_per_assembly => l_qty_per_assy,
3316: x_return_status => l_return_status);
3317:
3318: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3319: RAISE fnd_api.g_exc_error;
3320: END IF;
3321:
3322: IF nvl(l_qty_per_assy,0) > 0 THEN
3323:
3360: p_quantity_ratio => l_qty_per_assy,
3361: x_filtered_assy_instances => l_f_assy_instances,
3362: x_return_status => l_return_status);
3363:
3364: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3365: RAISE fnd_api.g_exc_error;
3366: END IF;
3367:
3368: l_f_assy_count := l_f_assy_instances.COUNT;
3361: x_filtered_assy_instances => l_f_assy_instances,
3362: x_return_status => l_return_status);
3363:
3364: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3365: RAISE fnd_api.g_exc_error;
3366: END IF;
3367:
3368: l_f_assy_count := l_f_assy_instances.COUNT;
3369:
3382: px_csi_txn_rec => px_csi_txn_rec,
3383: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3384: x_return_status => l_return_status);
3385:
3386: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3387: RAISE fnd_api.g_exc_error;
3388: END IF;
3389:
3390: END IF;
3383: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3384: x_return_status => l_return_status);
3385:
3386: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3387: RAISE fnd_api.g_exc_error;
3388: END IF;
3389:
3390: END IF;
3391:
3403: px_component_instances => l_issued_instances,
3404: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3405: x_return_status => l_return_status);
3406:
3407: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3408: RAISE fnd_api.g_exc_error;
3409: END IF;
3410:
3411: -- II
3404: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3405: x_return_status => l_return_status);
3406:
3407: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3408: RAISE fnd_api.g_exc_error;
3409: END IF;
3410:
3411: -- II
3412: IF l_auto_allocate = 'Y' OR p_txn_ref.wip_start_quantity = 1 THEN
3416: get_unprocessed_instances(
3417: px_component_instances => l_issued_instances,
3418: x_return_status => l_return_status);
3419:
3420: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3421: RAISE fnd_api.g_exc_error;
3422: END IF;
3423:
3424: apportion_serialized(
3417: px_component_instances => l_issued_instances,
3418: x_return_status => l_return_status);
3419:
3420: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3421: RAISE fnd_api.g_exc_error;
3422: END IF;
3423:
3424: apportion_serialized(
3425: p_context => 'ISSUE',
3432: p_component_instances => l_issued_instances,
3433: px_assy_comp_map_tbl => l_assy_comp_map_tbl,
3434: x_return_status => l_return_status);
3435:
3436: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3437: RAISE fnd_api.g_exc_error;
3438: END IF;
3439:
3440: END IF;
3433: px_assy_comp_map_tbl => l_assy_comp_map_tbl,
3434: x_return_status => l_return_status);
3435:
3436: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3437: RAISE fnd_api.g_exc_error;
3438: END IF;
3439:
3440: END IF;
3441: END IF;
3473: px_csi_txn_rec => px_csi_txn_rec,
3474: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3475: x_return_status => l_return_status);
3476:
3477: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3478: RAISE fnd_api.g_exc_error;
3479: END IF;
3480:
3481: ELSE
3474: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3475: x_return_status => l_return_status);
3476:
3477: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3478: RAISE fnd_api.g_exc_error;
3479: END IF;
3480:
3481: ELSE
3482:
3484: px_component_instances => l_issued_instances,
3485: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3486: x_return_status => l_return_status);
3487:
3488: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3489: RAISE fnd_api.g_exc_error;
3490: END IF;
3491:
3492: get_unprocessed_instances(
3485: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3486: x_return_status => l_return_status);
3487:
3488: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3489: RAISE fnd_api.g_exc_error;
3490: END IF;
3491:
3492: get_unprocessed_instances(
3493: px_component_instances => l_issued_instances,
3492: get_unprocessed_instances(
3493: px_component_instances => l_issued_instances,
3494: x_return_status => l_return_status);
3495:
3496: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3497: RAISE fnd_api.g_exc_error;
3498: END IF;
3499:
3500: apportion_serialized(
3493: px_component_instances => l_issued_instances,
3494: x_return_status => l_return_status);
3495:
3496: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3497: RAISE fnd_api.g_exc_error;
3498: END IF;
3499:
3500: apportion_serialized(
3501: p_context => 'ISSUE',
3508: p_component_instances => l_issued_instances,
3509: px_assy_comp_map_tbl => l_assy_comp_map_tbl,
3510: x_return_status => l_return_status);
3511:
3512: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3513: RAISE fnd_api.g_exc_error;
3514: END IF;
3515:
3516: END IF;
3509: px_assy_comp_map_tbl => l_assy_comp_map_tbl,
3510: x_return_status => l_return_status);
3511:
3512: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3513: RAISE fnd_api.g_exc_error;
3514: END IF;
3515:
3516: END IF;
3517:
3531: p_assy_comp_map_tbl => l_assy_comp_map_tbl,
3532: px_csi_txn_rec => px_csi_txn_rec,
3533: x_return_status => l_return_status);
3534:
3535: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3536: RAISE fnd_api.g_exc_error;
3537: END IF;
3538:
3539: END IF;
3532: px_csi_txn_rec => px_csi_txn_rec,
3533: x_return_status => l_return_status);
3534:
3535: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3536: RAISE fnd_api.g_exc_error;
3537: END IF;
3538:
3539: END IF;
3540:
3544:
3545: EXCEPTION
3546: WHEN process_no_relation THEN
3547: null;
3548: WHEN fnd_api.g_exc_error THEN
3549: x_return_status := fnd_api.g_ret_sts_error;
3550: END build_discrete_rltn_at_wipci;
3551:
3552:
3545: EXCEPTION
3546: WHEN process_no_relation THEN
3547: null;
3548: WHEN fnd_api.g_exc_error THEN
3549: x_return_status := fnd_api.g_ret_sts_error;
3550: END build_discrete_rltn_at_wipci;
3551:
3552:
3553: PROCEDURE build_wo_less_rltn_at_wipac(
3564: l_issued_instances csi_datastructures_pub.instance_tbl;
3565: l_splitted_instances csi_datastructures_pub.instance_tbl;
3566: l_assy_comp_map_tbl assy_comp_map_tbl;
3567:
3568: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3569: l_comp_serial_code number;
3570: l_qty_ratio number;
3571: l_comp_item varchar2(80);
3572:
3582: BEGIN
3583:
3584: api_log('build_wo_less_rltn_at_wipac');
3585:
3586: x_return_status := fnd_api.g_ret_sts_success;
3587:
3588: l_assembly_instances := p_assembly_instances;
3589:
3590: FOR issue_rec IN issue_cur
3620: get_issued_instances(
3621: p_wip_entity_id => p_wip_entity_id,
3622: p_organization_id => p_organization_id,
3623: p_inventory_item_id => issue_rec.inventory_item_id,
3624: p_serial_number => fnd_api.g_miss_char,
3625: x_instance_tbl => l_issued_instances,
3626: x_return_status => l_return_status);
3627:
3628: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3624: p_serial_number => fnd_api.g_miss_char,
3625: x_instance_tbl => l_issued_instances,
3626: x_return_status => l_return_status);
3627:
3628: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3629: RAISE fnd_api.g_exc_error;
3630: END IF;
3631: --fix for bug 4941800:IF condition added to ensure relationship
3632: --not build if issued instance count = 0
3625: x_instance_tbl => l_issued_instances,
3626: x_return_status => l_return_status);
3627:
3628: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3629: RAISE fnd_api.g_exc_error;
3630: END IF;
3631: --fix for bug 4941800:IF condition added to ensure relationship
3632: --not build if issued instance count = 0
3633: IF l_issued_instances.COUNT > 0 THEN
3645: px_csi_txn_rec => px_csi_txn_rec,
3646: x_splitted_instances => l_splitted_instances,
3647: x_return_status => l_return_status);
3648:
3649: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3650: RAISE fnd_api.g_exc_error;
3651: END IF;
3652:
3653: END IF;
3646: x_splitted_instances => l_splitted_instances,
3647: x_return_status => l_return_status);
3648:
3649: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3650: RAISE fnd_api.g_exc_error;
3651: END IF;
3652:
3653: END IF;
3654: ELSE
3667: p_comp_serial_code => l_comp_serial_code,
3668: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3669: x_return_status => l_return_status);
3670:
3671: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3672: RAISE fnd_api.g_exc_error;
3673: END IF;
3674:
3675: dump_assy_comp_relation(
3668: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3669: x_return_status => l_return_status);
3670:
3671: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3672: RAISE fnd_api.g_exc_error;
3673: END IF;
3674:
3675: dump_assy_comp_relation(
3676: p_assy_comp_map_tbl => l_assy_comp_map_tbl);
3679: p_assy_comp_map_tbl => l_assy_comp_map_tbl,
3680: px_csi_txn_rec => px_csi_txn_rec,
3681: x_return_status => l_return_status);
3682:
3683: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3684: RAISE fnd_api.g_exc_error;
3685: END IF;
3686: ELSE --Fix for bug 4941800
3687: debug('Could not find issued instances. Process continues without building relation.');
3680: px_csi_txn_rec => px_csi_txn_rec,
3681: x_return_status => l_return_status);
3682:
3683: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3684: RAISE fnd_api.g_exc_error;
3685: END IF;
3686: ELSE --Fix for bug 4941800
3687: debug('Could not find issued instances. Process continues without building relation.');
3688: END IF;
3689:
3690: END LOOP;
3691:
3692: EXCEPTION
3693: WHEN fnd_api.g_exc_error THEN
3694: x_return_status := fnd_api.g_ret_sts_error;
3695: END build_wo_less_rltn_at_wipac;
3696:
3697:
3690: END LOOP;
3691:
3692: EXCEPTION
3693: WHEN fnd_api.g_exc_error THEN
3694: x_return_status := fnd_api.g_ret_sts_error;
3695: END build_wo_less_rltn_at_wipac;
3696:
3697:
3698: PROCEDURE build_wo_less_rltn_at_wipci(
3708: l_issued_instances csi_datastructures_pub.instance_tbl;
3709: l_splitted_instances csi_datastructures_pub.instance_tbl;
3710: l_assy_comp_map_tbl assy_comp_map_tbl;
3711:
3712: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3713: l_comp_serial_code number;
3714: l_qty_ratio number;
3715:
3716: CURSOR issue_cur IS
3725: BEGIN
3726:
3727: api_log('build_wo_less_rltn_at_wipci');
3728:
3729: x_return_status := fnd_api.g_ret_sts_success;
3730:
3731: -- get assy instances
3732: get_assembly_instances(
3733: p_wip_entity_id => p_txn_ref.wip_entity_id,
3737: p_location_code => 'INVENTORY',
3738: x_instance_tbl => l_assembly_instances,
3739: x_return_status => l_return_status);
3740:
3741: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3742: RAISE fnd_api.g_exc_error;
3743: END IF;
3744:
3745: IF l_assembly_instances.COUNT > 0 THEN
3738: x_instance_tbl => l_assembly_instances,
3739: x_return_status => l_return_status);
3740:
3741: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3742: RAISE fnd_api.g_exc_error;
3743: END IF;
3744:
3745: IF l_assembly_instances.COUNT > 0 THEN
3746:
3766: p_component_item_id => p_txn_ref.inventory_item_id,
3767: p_quantity_ratio => l_qty_ratio,
3768: x_filtered_assy_instances => l_f_assy_instances,
3769: x_return_status => l_return_status);
3770: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3771: RAISE fnd_api.g_exc_error;
3772: END IF;
3773: --end of fix 5395829
3774:
3767: p_quantity_ratio => l_qty_ratio,
3768: x_filtered_assy_instances => l_f_assy_instances,
3769: x_return_status => l_return_status);
3770: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3771: RAISE fnd_api.g_exc_error;
3772: END IF;
3773: --end of fix 5395829
3774:
3775: l_issued_instances := p_issued_instances;
3784: px_issued_instances => l_issued_instances,
3785: px_csi_txn_rec => px_csi_txn_rec,
3786: x_splitted_instances => l_splitted_instances,
3787: x_return_status => l_return_status);
3788: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3789: RAISE fnd_api.g_exc_error;
3790: END IF;
3791: ELSE
3792: l_splitted_instances := l_issued_instances;
3785: px_csi_txn_rec => px_csi_txn_rec,
3786: x_splitted_instances => l_splitted_instances,
3787: x_return_status => l_return_status);
3788: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3789: RAISE fnd_api.g_exc_error;
3790: END IF;
3791: ELSE
3792: l_splitted_instances := l_issued_instances;
3793: END IF;
3803: p_comp_serial_code => l_comp_serial_code,
3804: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3805: x_return_status => l_return_status);
3806:
3807: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3808: RAISE fnd_api.g_exc_error;
3809: END IF;
3810:
3811: dump_assy_comp_relation(
3804: x_assy_comp_map_tbl => l_assy_comp_map_tbl,
3805: x_return_status => l_return_status);
3806:
3807: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3808: RAISE fnd_api.g_exc_error;
3809: END IF;
3810:
3811: dump_assy_comp_relation(
3812: p_assy_comp_map_tbl => l_assy_comp_map_tbl);
3815: p_assy_comp_map_tbl => l_assy_comp_map_tbl,
3816: px_csi_txn_rec => px_csi_txn_rec,
3817: x_return_status => l_return_status);
3818:
3819: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3820: RAISE fnd_api.g_exc_error;
3821: END IF;
3822:
3823: END IF; -- issued_instances.count > 0
3816: px_csi_txn_rec => px_csi_txn_rec,
3817: x_return_status => l_return_status);
3818:
3819: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3820: RAISE fnd_api.g_exc_error;
3821: END IF;
3822:
3823: END IF; -- issued_instances.count > 0
3824:
3824:
3825: END IF; -- assy_instances.count > 0
3826:
3827: EXCEPTION
3828: WHEN fnd_api.g_exc_error THEN
3829: x_return_status := fnd_api.g_ret_sts_error;
3830: END build_wo_less_rltn_at_wipci;
3831:
3832:
3825: END IF; -- assy_instances.count > 0
3826:
3827: EXCEPTION
3828: WHEN fnd_api.g_exc_error THEN
3829: x_return_status := fnd_api.g_ret_sts_error;
3830: END build_wo_less_rltn_at_wipci;
3831:
3832:
3833: PROCEDURE check_mtl_txn_in_csi(
3841: FROM csi_transactions
3842: WHERE inv_material_transaction_id = p_transaction_id;
3843:
3844: BEGIN
3845: x_return_status := fnd_api.g_ret_sts_success;
3846:
3847: x_txn_found := FALSE;
3848:
3849: FOR csi_txn_rec IN csi_txn_cur
3851: x_txn_found := TRUE;
3852: END LOOP;
3853:
3854: EXCEPTION
3855: WHEN fnd_api.g_exc_error THEN
3856: x_return_status := fnd_api.g_ret_sts_error;
3857: END check_mtl_txn_in_csi;
3858:
3859: PROCEDURE check_prior_wip_txns_in_csi(
3852: END LOOP;
3853:
3854: EXCEPTION
3855: WHEN fnd_api.g_exc_error THEN
3856: x_return_status := fnd_api.g_ret_sts_error;
3857: END check_mtl_txn_in_csi;
3858:
3859: PROCEDURE check_prior_wip_txns_in_csi(
3860: p_mtl_creation_date IN date,
3881: WHERE inventory_item_id = mmt.inventory_item_id
3882: AND creation_date < mmt.creation_date) ;
3883: --Added for bug#14374084 ;
3884:
3885: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3886: l_processed_flag boolean := TRUE;
3887: l_migration_date date;
3888:
3889: BEGIN
3888:
3889: BEGIN
3890: api_log('check_prior_wip_txns_in_csi');
3891:
3892: x_return_status := fnd_api.g_ret_sts_success;
3893:
3894: l_migration_date := csi_datastructures_pub.g_install_param_rec.freeze_date;
3895:
3896: debug(' migration_date :'||l_migration_date);
3902: p_transaction_id => mtl_txn_rec.transaction_id,
3903: x_txn_found => l_processed_flag,
3904: x_return_status => l_return_status);
3905:
3906: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3907: RAISE fnd_api.g_exc_error;
3908: END IF;
3909:
3910: IF NOT( l_processed_flag ) THEN
3903: x_txn_found => l_processed_flag,
3904: x_return_status => l_return_status);
3905:
3906: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3907: RAISE fnd_api.g_exc_error;
3908: END IF;
3909:
3910: IF NOT( l_processed_flag ) THEN
3911:
3913: fnd_message.set_token('WIP_ENTITY_ID', p_wip_entity_id);
3914: fnd_message.set_token('MTL_TXN_ID', mtl_txn_rec.transaction_id);
3915:
3916: fnd_msg_pub.add;
3917: RAISE fnd_api.g_exc_error;
3918: END IF;
3919:
3920: END LOOP;
3921:
3919:
3920: END LOOP;
3921:
3922: EXCEPTION
3923: WHEN fnd_api.g_exc_error THEN
3924: x_return_status := fnd_api.g_ret_sts_error;
3925: END check_prior_wip_txns_in_csi;
3926:
3927:
3920: END LOOP;
3921:
3922: EXCEPTION
3923: WHEN fnd_api.g_exc_error THEN
3924: x_return_status := fnd_api.g_ret_sts_error;
3925: END check_prior_wip_txns_in_csi;
3926:
3927:
3928: PROCEDURE get_order_of_processing(
3955:
3956: BEGIN
3957:
3958: api_log('get_order_of_processing');
3959: x_return_status := fnd_api.g_ret_sts_success;
3960: debug(' Context :'||p_context);
3961: IF p_context = 'ISSUE' THEN
3962: l_completion_found := FALSE;
3963: l_csi_txn_found := 'N';
4012: END IF;
4013:
4014: debug(' Processing Order :'||x_order_of_process);
4015: EXCEPTION
4016: when fnd_api.g_exc_error THEN
4017: x_return_status := fnd_api.g_ret_sts_error;
4018: END get_order_of_processing;
4019:
4020:
4013:
4014: debug(' Processing Order :'||x_order_of_process);
4015: EXCEPTION
4016: when fnd_api.g_exc_error THEN
4017: x_return_status := fnd_api.g_ret_sts_error;
4018: END get_order_of_processing;
4019:
4020:
4021: /* process relationships at the time of WIP assembly completion */
4038:
4039: l_order_of_process varchar2(30);
4040:
4041: l_auto_allocate varchar2(1);
4042: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4043: process_no_relation exception;
4044:
4045: BEGIN
4046:
4061: p_wip_entity_id => p_txn_ref.wip_entity_id,
4062: x_order_of_process => l_order_of_process,
4063: x_return_status => l_return_status);
4064:
4065: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4066: raise fnd_api.g_exc_error;
4067: END IF;
4068:
4069: IF l_order_of_process = 'COMPLETION_FIRST' THEN
4062: x_order_of_process => l_order_of_process,
4063: x_return_status => l_return_status);
4064:
4065: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4066: raise fnd_api.g_exc_error;
4067: END IF;
4068:
4069: IF l_order_of_process = 'COMPLETION_FIRST' THEN
4070: -- completion is the very first txn for this job. issues are not made yet.
4077: p_transaction_id => p_txn_ref.transaction_id,
4078: p_wip_entity_id => p_txn_ref.wip_entity_id,
4079: x_return_status => l_return_status);
4080:
4081: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4082: RAISE fnd_api.g_exc_error;
4083: END IF;
4084:
4085: -- work order less completion -- entity type = 4 (flow schedules)
4078: p_wip_entity_id => p_txn_ref.wip_entity_id,
4079: x_return_status => l_return_status);
4080:
4081: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4082: RAISE fnd_api.g_exc_error;
4083: END IF;
4084:
4085: -- work order less completion -- entity type = 4 (flow schedules)
4086: IF p_txn_ref.wip_entity_type = 4 THEN
4093: p_assembly_instances => p_assembly_instances,
4094: px_csi_txn_rec => px_csi_txn_rec,
4095: x_return_status => l_return_status);
4096:
4097: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4098: RAISE fnd_api.g_exc_error;
4099: END IF;
4100:
4101: ELSE -- wip_entity_type <> 4
4094: px_csi_txn_rec => px_csi_txn_rec,
4095: x_return_status => l_return_status);
4096:
4097: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4098: RAISE fnd_api.g_exc_error;
4099: END IF;
4100:
4101: ELSE -- wip_entity_type <> 4
4102:
4107: p_assembly_instances => p_assembly_instances,
4108: px_csi_txn_rec => px_csi_txn_rec,
4109: x_return_status => l_return_status);
4110:
4111: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4112: RAISE fnd_api.g_exc_error;
4113: END IF;
4114:
4115: ELSE
4108: px_csi_txn_rec => px_csi_txn_rec,
4109: x_return_status => l_return_status);
4110:
4111: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4112: RAISE fnd_api.g_exc_error;
4113: END IF;
4114:
4115: ELSE
4116: debug('no relationship processing for wip_entity_type : '||p_txn_ref.wip_entity_type);
4127:
4128: EXCEPTION
4129: WHEN process_no_relation THEN
4130: null;
4131: WHEN fnd_api.g_exc_error THEN
4132: x_return_status := fnd_api.g_ret_sts_error;
4133: END process_relation_at_wipac;
4134:
4135: PROCEDURE process_relation_at_wipci(
4128: EXCEPTION
4129: WHEN process_no_relation THEN
4130: null;
4131: WHEN fnd_api.g_exc_error THEN
4132: x_return_status := fnd_api.g_ret_sts_error;
4133: END process_relation_at_wipac;
4134:
4135: PROCEDURE process_relation_at_wipci(
4136: p_txn_ref IN txn_ref,
4144:
4145: l_assy_serial_code number;
4146: l_qty_completed number;
4147:
4148: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4149:
4150: process_no_relation exception;
4151:
4152: BEGIN
4150: process_no_relation exception;
4151:
4152: BEGIN
4153:
4154: x_return_status := fnd_api.g_ret_sts_success;
4155:
4156: api_log('process_relation_at_wipci');
4157:
4158: IF nvl(p_txn_ref.wip_assembly_item_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
4154: x_return_status := fnd_api.g_ret_sts_success;
4155:
4156: api_log('process_relation_at_wipci');
4157:
4158: IF nvl(p_txn_ref.wip_assembly_item_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
4159: debug('no relationship processing for repair jobs without assembly.');
4160: RAISE process_no_relation;
4161: END IF;
4162:
4182: p_wip_entity_id => p_txn_ref.wip_entity_id,
4183: x_order_of_process => l_order_of_process,
4184: x_return_status => l_return_status);
4185:
4186: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4187: RAISE fnd_api.g_exc_error;
4188: END IF;
4189:
4190:
4183: x_order_of_process => l_order_of_process,
4184: x_return_status => l_return_status);
4185:
4186: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4187: RAISE fnd_api.g_exc_error;
4188: END IF;
4189:
4190:
4191: IF l_order_of_process = 'ISSUE_FIRST' THEN
4213: p_issued_instances => p_component_instances,
4214: px_csi_txn_rec => px_csi_txn_rec,
4215: x_return_status => l_return_status);
4216:
4217: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4218: RAISE fnd_api.g_exc_error;
4219: END IF;
4220:
4221: ELSE -- wip_entity_type <> 4
4214: px_csi_txn_rec => px_csi_txn_rec,
4215: x_return_status => l_return_status);
4216:
4217: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4218: RAISE fnd_api.g_exc_error;
4219: END IF;
4220:
4221: ELSE -- wip_entity_type <> 4
4222:
4226: p_txn_ref => p_txn_ref,
4227: px_csi_txn_rec => px_csi_txn_rec,
4228: x_return_status => l_return_status);
4229:
4230: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4231: RAISE fnd_api.g_exc_error;
4232: END IF;
4233:
4234: ELSE
4227: px_csi_txn_rec => px_csi_txn_rec,
4228: x_return_status => l_return_status);
4229:
4230: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4231: RAISE fnd_api.g_exc_error;
4232: END IF;
4233:
4234: ELSE
4235: debug('not handling relationship for wip_entity_type : '||p_txn_ref.wip_entity_type);
4246:
4247: EXCEPTION
4248: WHEN process_no_relation THEN
4249: null;
4250: WHEN fnd_api.g_exc_error THEN
4251: x_return_status := fnd_api.g_ret_sts_error;
4252: WHEN OTHERS THEN
4253: null;
4254: END process_relation_at_wipci;
4247: EXCEPTION
4248: WHEN process_no_relation THEN
4249: null;
4250: WHEN fnd_api.g_exc_error THEN
4251: x_return_status := fnd_api.g_ret_sts_error;
4252: WHEN OTHERS THEN
4253: null;
4254: END process_relation_at_wipci;
4255:
4265: l_int_party_id number;
4266: l_wip_loc_id number;
4267: BEGIN
4268:
4269: x_return_status := fnd_api.g_ret_sts_success;
4270:
4271: api_log('bld_inst_tables_for_issue');
4272:
4273: l_int_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
4279: x_dest_loc_rec.wip_job_id := p_txn_ref.wip_entity_id;
4280: x_dest_loc_rec.instance_usage_code := 'IN_WIP';
4281: x_dest_loc_rec.last_wip_job_id := null; --bug 5376024
4282:
4283: x_dest_loc_rec.inv_organization_id := fnd_api.g_miss_num;
4284: x_dest_loc_rec.inv_subinventory_name := fnd_api.g_miss_char;
4285: x_dest_loc_rec.inv_locator_id := fnd_api.g_miss_num;
4286: x_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
4287: x_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
4280: x_dest_loc_rec.instance_usage_code := 'IN_WIP';
4281: x_dest_loc_rec.last_wip_job_id := null; --bug 5376024
4282:
4283: x_dest_loc_rec.inv_organization_id := fnd_api.g_miss_num;
4284: x_dest_loc_rec.inv_subinventory_name := fnd_api.g_miss_char;
4285: x_dest_loc_rec.inv_locator_id := fnd_api.g_miss_num;
4286: x_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
4287: x_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
4288: x_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
4281: x_dest_loc_rec.last_wip_job_id := null; --bug 5376024
4282:
4283: x_dest_loc_rec.inv_organization_id := fnd_api.g_miss_num;
4284: x_dest_loc_rec.inv_subinventory_name := fnd_api.g_miss_char;
4285: x_dest_loc_rec.inv_locator_id := fnd_api.g_miss_num;
4286: x_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
4287: x_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
4288: x_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
4289: x_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
4282:
4283: x_dest_loc_rec.inv_organization_id := fnd_api.g_miss_num;
4284: x_dest_loc_rec.inv_subinventory_name := fnd_api.g_miss_char;
4285: x_dest_loc_rec.inv_locator_id := fnd_api.g_miss_num;
4286: x_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
4287: x_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
4288: x_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
4289: x_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
4290:
4283: x_dest_loc_rec.inv_organization_id := fnd_api.g_miss_num;
4284: x_dest_loc_rec.inv_subinventory_name := fnd_api.g_miss_char;
4285: x_dest_loc_rec.inv_locator_id := fnd_api.g_miss_num;
4286: x_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
4287: x_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
4288: x_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
4289: x_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
4290:
4291: -- build instances
4284: x_dest_loc_rec.inv_subinventory_name := fnd_api.g_miss_char;
4285: x_dest_loc_rec.inv_locator_id := fnd_api.g_miss_num;
4286: x_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
4287: x_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
4288: x_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
4289: x_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
4290:
4291: -- build instances
4292: x_instances_tbl(1).ib_txn_segment_flag := 'S';
4285: x_dest_loc_rec.inv_locator_id := fnd_api.g_miss_num;
4286: x_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
4287: x_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
4288: x_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
4289: x_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
4290:
4291: -- build instances
4292: x_instances_tbl(1).ib_txn_segment_flag := 'S';
4293: x_instances_tbl(1).inventory_item_id := p_mmt_rec.inventory_item_id;
4295: x_instances_tbl(1).vld_organization_id := p_mmt_rec.organization_id;
4296: x_instances_tbl(1).inv_master_organization_id := p_txn_ref.master_organization_id;
4297: x_instances_tbl(1).serial_number := p_mmt_rec.serial_number;
4298:
4299: IF nvl(x_instances_tbl(1).serial_number,fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
4300: x_instances_tbl(1).mfg_serial_number_flag := 'Y';
4301: ELSE
4302: x_instances_tbl(1).mfg_serial_number_flag := 'N';
4303: END IF;
4309:
4310: x_instances_tbl(1).location_type_code := 'INVENTORY';
4311: x_instances_tbl(1).location_id := p_mmt_rec.subinv_location_id;
4312:
4313: IF nvl(x_instances_tbl(1).location_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
4314: x_instances_tbl(1).location_id := p_mmt_rec.hr_location_id;
4315: END IF;
4316:
4317: x_instances_tbl(1).inv_organization_id := p_mmt_rec.organization_id;
4342: px_csi_txn_rec IN OUT nocopy csi_datastructures_pub.transaction_rec,
4343: x_replace_rebuilds OUT nocopy eam_utility_grp.replace_rebuild_tbl_type,
4344: x_return_status OUT nocopy varchar2)
4345: IS
4346: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4347: l_msg_count number;
4348: l_msg_data varchar2(2000);
4349:
4350: l_replace_rebuild_tbl EAM_Utility_GRP.Replace_Rebuild_TBL_Type;
4350: l_replace_rebuild_tbl EAM_Utility_GRP.Replace_Rebuild_TBL_Type;
4351: l_entity_type NUMBER := 0; --Added for bug 7363267
4352: BEGIN
4353:
4354: x_return_status := fnd_api.g_ret_sts_success;
4355:
4356: api_log('delink_replacerebuilds');
4357:
4358: SELECT entity_type
4367: debug('Inside API : eam_utility_grp.get_replacedrebuilds');
4368:
4369: EAM_Utility_Grp.Get_ReplacedRebuilds (
4370: p_api_version => 1.0,
4371: p_commit => fnd_api.g_false,
4372: p_validation_level => fnd_api.g_valid_level_full,
4373: p_init_msg_list => fnd_api.g_true,
4374: p_wip_entity_id => p_wip_entity_id,
4375: p_organization_id => p_organization_id,
4368:
4369: EAM_Utility_Grp.Get_ReplacedRebuilds (
4370: p_api_version => 1.0,
4371: p_commit => fnd_api.g_false,
4372: p_validation_level => fnd_api.g_valid_level_full,
4373: p_init_msg_list => fnd_api.g_true,
4374: p_wip_entity_id => p_wip_entity_id,
4375: p_organization_id => p_organization_id,
4376: x_replaced_rebuild_tbl => l_replace_rebuild_tbl,
4369: EAM_Utility_Grp.Get_ReplacedRebuilds (
4370: p_api_version => 1.0,
4371: p_commit => fnd_api.g_false,
4372: p_validation_level => fnd_api.g_valid_level_full,
4373: p_init_msg_list => fnd_api.g_true,
4374: p_wip_entity_id => p_wip_entity_id,
4375: p_organization_id => p_organization_id,
4376: x_replaced_rebuild_tbl => l_replace_rebuild_tbl,
4377: x_return_status => l_return_status,
4377: x_return_status => l_return_status,
4378: x_msg_count => l_msg_count,
4379: x_msg_data => l_msg_data);
4380:
4381: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4382: RAISE fnd_api.g_exc_error;
4383: END IF;
4384:
4385: debug(' replace_rebuild_tbl.count : '||l_replace_rebuild_tbl.COUNT);
4378: x_msg_count => l_msg_count,
4379: x_msg_data => l_msg_data);
4380:
4381: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4382: RAISE fnd_api.g_exc_error;
4383: END IF;
4384:
4385: debug(' replace_rebuild_tbl.count : '||l_replace_rebuild_tbl.COUNT);
4386:
4392: p_instance_id => l_replace_rebuild_tbl(l_ind).instance_id,
4393: p_csi_txn_rec => px_csi_txn_rec,
4394: x_return_status => l_return_status);
4395:
4396: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4397: RAISE fnd_api.g_exc_error;
4398: END IF;
4399:
4400: END LOOP;
4393: p_csi_txn_rec => px_csi_txn_rec,
4394: x_return_status => l_return_status);
4395:
4396: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4397: RAISE fnd_api.g_exc_error;
4398: END IF;
4399:
4400: END LOOP;
4401: END IF;
4400: END LOOP;
4401: END IF;
4402: END IF;
4403: EXCEPTION
4404: WHEN fnd_api.g_exc_error THEN
4405: x_return_status := fnd_api.g_ret_sts_error;
4406: END Delink_ReplaceRebuilds;
4407:
4408: PROCEDURE wip_issue(
4401: END IF;
4402: END IF;
4403: EXCEPTION
4404: WHEN fnd_api.g_exc_error THEN
4405: x_return_status := fnd_api.g_ret_sts_error;
4406: END Delink_ReplaceRebuilds;
4407:
4408: PROCEDURE wip_issue(
4409: p_mmt_rec IN mtl_material_transactions%rowtype,
4433: l_c_instances_tbl csi_process_txn_grp.txn_instances_tbl;
4434: l_c_parties_tbl csi_process_txn_grp.txn_i_parties_tbl;
4435: l_c_org_units_tbl csi_process_txn_grp.txn_org_units_tbl;
4436:
4437: l_api_success varchar2(1) := fnd_api.g_ret_sts_success;
4438: l_error_message varchar2(2000);
4439: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4440: l_msg_count number;
4441: l_msg_data varchar2(2000);
4435: l_c_org_units_tbl csi_process_txn_grp.txn_org_units_tbl;
4436:
4437: l_api_success varchar2(1) := fnd_api.g_ret_sts_success;
4438: l_error_message varchar2(2000);
4439: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4440: l_msg_count number;
4441: l_msg_data varchar2(2000);
4442:
4443: l_issued_instances csi_datastructures_pub.instance_tbl;
4446: l_error_rec csi_datastructures_pub.transaction_error_rec;
4447:
4448: BEGIN
4449:
4450: x_return_status := fnd_api.g_ret_sts_success;
4451:
4452: api_log('wip_issue');
4453:
4454: l_error_rec := px_trx_error_rec;
4460: x_mmt_tbl => l_mmt_tbl,
4461: x_return_status => l_return_status);
4462:
4463: IF l_return_status <> l_api_success THEN
4464: RAISE fnd_api.g_exc_error;
4465: END IF;
4466:
4467: l_error_rec.source_header_ref := l_txn_ref.wip_entity_name;
4468: l_error_rec.source_header_ref_id := l_txn_ref.wip_entity_id;
4497: x_org_units_tbl => l_c_org_units_tbl,
4498: x_return_status => l_return_status);
4499:
4500: IF l_return_status <> l_api_success THEN
4501: RAISE fnd_api.g_exc_error;
4502: END IF;
4503:
4504: csi_process_txn_grp.process_transaction(
4505: p_api_version => 1.0,
4502: END IF;
4503:
4504: csi_process_txn_grp.process_transaction(
4505: p_api_version => 1.0,
4506: p_commit => fnd_api.g_false,
4507: p_init_msg_list => fnd_api.g_false,
4508: p_validation_level => fnd_api.g_valid_level_full,
4509: p_validate_only_flag => fnd_api.g_false,
4510: p_in_out_flag => l_in_out_flag, -- valid values are 'IN','OUT'
4503:
4504: csi_process_txn_grp.process_transaction(
4505: p_api_version => 1.0,
4506: p_commit => fnd_api.g_false,
4507: p_init_msg_list => fnd_api.g_false,
4508: p_validation_level => fnd_api.g_valid_level_full,
4509: p_validate_only_flag => fnd_api.g_false,
4510: p_in_out_flag => l_in_out_flag, -- valid values are 'IN','OUT'
4511: p_dest_location_rec => l_c_dest_loc_rec,
4504: csi_process_txn_grp.process_transaction(
4505: p_api_version => 1.0,
4506: p_commit => fnd_api.g_false,
4507: p_init_msg_list => fnd_api.g_false,
4508: p_validation_level => fnd_api.g_valid_level_full,
4509: p_validate_only_flag => fnd_api.g_false,
4510: p_in_out_flag => l_in_out_flag, -- valid values are 'IN','OUT'
4511: p_dest_location_rec => l_c_dest_loc_rec,
4512: p_txn_rec => l_csi_txn_rec,
4505: p_api_version => 1.0,
4506: p_commit => fnd_api.g_false,
4507: p_init_msg_list => fnd_api.g_false,
4508: p_validation_level => fnd_api.g_valid_level_full,
4509: p_validate_only_flag => fnd_api.g_false,
4510: p_in_out_flag => l_in_out_flag, -- valid values are 'IN','OUT'
4511: p_dest_location_rec => l_c_dest_loc_rec,
4512: p_txn_rec => l_csi_txn_rec,
4513: p_instances_tbl => l_c_instances_tbl,
4523: x_msg_count => l_msg_count,
4524: x_msg_data => l_msg_data );
4525:
4526: IF l_return_status <> l_api_success THEN
4527: RAISE fnd_api.g_exc_error;
4528: END IF;
4529:
4530: IF l_c_instances_tbl.COUNT > 0 THEN
4531: FOR l_c_ind IN l_c_instances_tbl.FIRST .. l_c_instances_tbl.LAST
4549: p_component_instances => l_issued_instances,
4550: px_csi_txn_rec => l_csi_txn_rec,
4551: x_return_status => l_return_status);
4552:
4553: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4554: RAISE fnd_api.g_exc_error;
4555: END IF;
4556: END IF;
4557:
4550: px_csi_txn_rec => l_csi_txn_rec,
4551: x_return_status => l_return_status);
4552:
4553: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4554: RAISE fnd_api.g_exc_error;
4555: END IF;
4556: END IF;
4557:
4558: END IF;
4557:
4558: END IF;
4559:
4560: EXCEPTION
4561: WHEN fnd_api.g_exc_error THEN
4562: px_trx_error_rec := l_error_rec;
4563: x_return_status := fnd_api.g_ret_sts_error;
4564: END wip_issue;
4565:
4559:
4560: EXCEPTION
4561: WHEN fnd_api.g_exc_error THEN
4562: px_trx_error_rec := l_error_rec;
4563: x_return_status := fnd_api.g_ret_sts_error;
4564: END wip_issue;
4565:
4566: PROCEDURE wip_comp_issue(
4567: p_transaction_id IN number,
4572:
4573: l_mmt_rec mtl_material_transactions%rowtype;
4574: l_csi_txn_rec csi_datastructures_pub.transaction_rec;
4575: l_error_rec csi_datastructures_pub.transaction_error_rec;
4576: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4577:
4578: BEGIN
4579: x_return_status := fnd_api.g_ret_sts_success;
4580:
4575: l_error_rec csi_datastructures_pub.transaction_error_rec;
4576: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4577:
4578: BEGIN
4579: x_return_status := fnd_api.g_ret_sts_success;
4580:
4581: csi_t_gen_utility_pvt.build_file_name(
4582: p_file_segment1 => 'csiwipci',
4583: p_file_segment2 => p_transaction_id);
4605: l_error_rec.source_id := p_transaction_id;
4606: l_error_rec.transaction_type_id := 71;
4607: l_error_rec.message_id := p_message_id;
4608:
4609: l_csi_txn_rec.transaction_id := fnd_api.g_miss_num;
4610: l_csi_txn_rec.transaction_date := sysdate;
4611: l_csi_txn_rec.transaction_type_id := 71;
4612: l_csi_txn_rec.txn_sub_type_id := 3;
4613: l_csi_txn_rec.message_id := p_message_id;
4624: px_csi_txn_rec => l_csi_txn_rec,
4625: px_trx_error_rec => l_error_rec,
4626: x_return_status => l_return_status);
4627:
4628: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4629: RAISE fnd_api.g_exc_error;
4630: END IF;
4631:
4632: debug('wip component issue transaction successful : '||p_transaction_id);
4625: px_trx_error_rec => l_error_rec,
4626: x_return_status => l_return_status);
4627:
4628: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4629: RAISE fnd_api.g_exc_error;
4630: END IF;
4631:
4632: debug('wip component issue transaction successful : '||p_transaction_id);
4633: debug('end timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
4632: debug('wip component issue transaction successful : '||p_transaction_id);
4633: debug('end timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
4634:
4635: EXCEPTION
4636: WHEN fnd_api.g_exc_error THEN
4637: rollback to wip_comp_issue;
4638: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
4639: px_trx_error_rec := l_error_rec;
4640: x_return_status := fnd_api.g_ret_sts_error;
4636: WHEN fnd_api.g_exc_error THEN
4637: rollback to wip_comp_issue;
4638: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
4639: px_trx_error_rec := l_error_rec;
4640: x_return_status := fnd_api.g_ret_sts_error;
4641: debug('Error(E) :'||l_error_rec.error_text);
4642:
4643: WHEN others then
4644: rollback to wip_comp_issue;
4648: fnd_msg_pub.add;
4649:
4650: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
4651: px_trx_error_rec := l_error_rec;
4652: x_return_status := fnd_api.g_ret_sts_unexp_error;
4653: debug('Error(O) :'||l_error_rec.error_text);
4654: END wip_comp_issue;
4655:
4656: PROCEDURE wip_assy_return(
4662:
4663: l_mmt_rec mtl_material_transactions%rowtype;
4664: l_csi_txn_rec csi_datastructures_pub.transaction_rec;
4665: l_error_rec csi_datastructures_pub.transaction_error_rec;
4666: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4667:
4668: BEGIN
4669: x_return_status := fnd_api.g_ret_sts_success;
4670:
4665: l_error_rec csi_datastructures_pub.transaction_error_rec;
4666: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4667:
4668: BEGIN
4669: x_return_status := fnd_api.g_ret_sts_success;
4670:
4671: csi_t_gen_utility_pvt.build_file_name(
4672: p_file_segment1 => 'csiwipar',
4673: p_file_segment2 => p_transaction_id);
4695: l_error_rec.source_id := p_transaction_id;
4696: l_error_rec.transaction_type_id := 74;
4697: l_error_rec.message_id := p_message_id;
4698:
4699: l_csi_txn_rec.transaction_id := fnd_api.g_miss_num;
4700: l_csi_txn_rec.transaction_date := sysdate;
4701: l_csi_txn_rec.transaction_type_id := 74;
4702: l_csi_txn_rec.txn_sub_type_id := 3;
4703: l_csi_txn_rec.message_id := p_message_id;
4714: px_csi_txn_rec => l_csi_txn_rec,
4715: px_trx_error_rec => l_error_rec,
4716: x_return_status => l_return_status);
4717:
4718: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4719: RAISE fnd_api.g_exc_error;
4720: END IF;
4721:
4722: debug('wip assembly return transaction successful : '||p_transaction_id);
4715: px_trx_error_rec => l_error_rec,
4716: x_return_status => l_return_status);
4717:
4718: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4719: RAISE fnd_api.g_exc_error;
4720: END IF;
4721:
4722: debug('wip assembly return transaction successful : '||p_transaction_id);
4723: debug('end timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
4722: debug('wip assembly return transaction successful : '||p_transaction_id);
4723: debug('end timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
4724:
4725: EXCEPTION
4726: WHEN fnd_api.g_exc_error THEN
4727: rollback to wip_assy_return;
4728: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
4729: px_trx_error_rec := l_error_rec;
4730: x_return_status := fnd_api.g_ret_sts_error;
4726: WHEN fnd_api.g_exc_error THEN
4727: rollback to wip_assy_return;
4728: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
4729: px_trx_error_rec := l_error_rec;
4730: x_return_status := fnd_api.g_ret_sts_error;
4731: debug('Error(E) :'||l_error_rec.error_text);
4732:
4733: WHEN others then
4734: rollback to wip_assy_return;
4738: fnd_msg_pub.add;
4739:
4740: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
4741: px_trx_error_rec := l_error_rec;
4742: x_return_status := fnd_api.g_ret_sts_unexp_error;
4743: debug('Error(O) :'||l_error_rec.error_text);
4744: END wip_assy_return;
4745:
4746:
4755:
4756: l_mmt_rec mtl_material_transactions%rowtype;
4757: l_csi_txn_rec csi_datastructures_pub.transaction_rec;
4758: l_error_rec csi_datastructures_pub.transaction_error_rec;
4759: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4760:
4761: BEGIN
4762: x_return_status := fnd_api.g_ret_sts_success;
4763:
4758: l_error_rec csi_datastructures_pub.transaction_error_rec;
4759: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4760:
4761: BEGIN
4762: x_return_status := fnd_api.g_ret_sts_success;
4763:
4764: csi_t_gen_utility_pvt.build_file_name(
4765: p_file_segment1 => 'csiwipbr',
4766: p_file_segment2 => p_transaction_id);
4788: l_error_rec.source_id := p_transaction_id;
4789: l_error_rec.transaction_type_id := 76;
4790: l_error_rec.message_id := p_message_id;
4791:
4792: l_csi_txn_rec.transaction_id := fnd_api.g_miss_num;
4793: l_csi_txn_rec.transaction_date := sysdate;
4794: l_csi_txn_rec.transaction_type_id := 76;
4795: l_csi_txn_rec.txn_sub_type_id := 3;
4796: l_csi_txn_rec.message_id := p_message_id;
4807: px_csi_txn_rec => l_csi_txn_rec,
4808: px_trx_error_rec => l_error_rec,
4809: x_return_status => l_return_status);
4810:
4811: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4812: RAISE fnd_api.g_exc_error;
4813: END IF;
4814:
4815: debug('wip by product return transaction successful : '||p_transaction_id);
4808: px_trx_error_rec => l_error_rec,
4809: x_return_status => l_return_status);
4810:
4811: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4812: RAISE fnd_api.g_exc_error;
4813: END IF;
4814:
4815: debug('wip by product return transaction successful : '||p_transaction_id);
4816: debug('end timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
4815: debug('wip by product return transaction successful : '||p_transaction_id);
4816: debug('end timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
4817:
4818: EXCEPTION
4819: WHEN fnd_api.g_exc_error THEN
4820: rollback to wip_byproduct_return;
4821: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
4822: px_trx_error_rec := l_error_rec;
4823: x_return_status := fnd_api.g_ret_sts_error;
4819: WHEN fnd_api.g_exc_error THEN
4820: rollback to wip_byproduct_return;
4821: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
4822: px_trx_error_rec := l_error_rec;
4823: x_return_status := fnd_api.g_ret_sts_error;
4824: debug('Error(E) :'||l_error_rec.error_text);
4825:
4826: WHEN others then
4827: rollback to wip_byproduct_return;
4831: fnd_msg_pub.add;
4832:
4833: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
4834: px_trx_error_rec := l_error_rec;
4835: x_return_status := fnd_api.g_ret_sts_unexp_error;
4836: debug('Error(O) :'||l_error_rec.error_text);
4837: END wip_byproduct_return;
4838:
4839:
4846:
4847: l_mmt_rec mtl_material_transactions%rowtype;
4848: l_csi_txn_rec csi_datastructures_pub.transaction_rec;
4849: l_error_rec csi_datastructures_pub.transaction_error_rec;
4850: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4851:
4852: BEGIN
4853: x_return_status := fnd_api.g_ret_sts_success;
4854:
4849: l_error_rec csi_datastructures_pub.transaction_error_rec;
4850: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4851:
4852: BEGIN
4853: x_return_status := fnd_api.g_ret_sts_success;
4854:
4855: csi_t_gen_utility_pvt.build_file_name(
4856: p_file_segment1 => 'csiwipnr',
4857: p_file_segment2 => p_transaction_id);
4879: l_error_rec.source_id := p_transaction_id;
4880: l_error_rec.transaction_type_id := 71;
4881: l_error_rec.message_id := p_message_id;
4882:
4883: l_csi_txn_rec.transaction_id := fnd_api.g_miss_num;
4884: l_csi_txn_rec.transaction_date := sysdate;
4885: l_csi_txn_rec.transaction_type_id := 71;
4886: l_csi_txn_rec.txn_sub_type_id := 3;
4887: l_csi_txn_rec.message_id := p_message_id;
4898: px_csi_txn_rec => l_csi_txn_rec,
4899: px_trx_error_rec => l_error_rec,
4900: x_return_status => l_return_status);
4901:
4902: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4903: RAISE fnd_api.g_exc_error;
4904: END IF;
4905:
4906: debug('wip negative component return transaction successful : '||p_transaction_id);
4899: px_trx_error_rec => l_error_rec,
4900: x_return_status => l_return_status);
4901:
4902: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4903: RAISE fnd_api.g_exc_error;
4904: END IF;
4905:
4906: debug('wip negative component return transaction successful : '||p_transaction_id);
4907: debug('end timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
4906: debug('wip negative component return transaction successful : '||p_transaction_id);
4907: debug('end timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
4908:
4909: EXCEPTION
4910: WHEN fnd_api.g_exc_error THEN
4911: rollback to wip_neg_comp_return;
4912: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
4913: px_trx_error_rec := l_error_rec;
4914: x_return_status := fnd_api.g_ret_sts_error;
4910: WHEN fnd_api.g_exc_error THEN
4911: rollback to wip_neg_comp_return;
4912: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
4913: px_trx_error_rec := l_error_rec;
4914: x_return_status := fnd_api.g_ret_sts_error;
4915: debug('Error(E) :'||l_error_rec.error_text);
4916:
4917: WHEN others then
4918: rollback to wip_neg_comp_return;
4922: fnd_msg_pub.add;
4923:
4924: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
4925: px_trx_error_rec := l_error_rec;
4926: x_return_status := fnd_api.g_ret_sts_unexp_error;
4927: debug('Error(O) :'||l_error_rec.error_text);
4928: END wip_neg_comp_return;
4929:
4930: PROCEDURE get_issued_serial_instance(
4935: l_party_query_rec csi_datastructures_pub.party_query_rec;
4936: l_pty_acct_query_rec csi_datastructures_pub.party_account_query_rec;
4937:
4938: l_instance_hdr_tbl csi_datastructures_pub.instance_header_tbl;
4939: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4940: l_msg_count number;
4941: l_msg_data varchar2(2000);
4942:
4943: BEGIN
4941: l_msg_data varchar2(2000);
4942:
4943: BEGIN
4944:
4945: x_return_status := fnd_api.g_ret_sts_success;
4946: api_log('get_issued_serial_instance');
4947:
4948: -- look for a serialized instance in csi_item_instances
4949: -- if it is in customer location then
4952: l_inst_query_rec.serial_number := px_instance_rec.serial_number;
4953:
4954: csi_item_instance_pub.get_item_instances(
4955: p_api_version => 1.0,
4956: p_commit => fnd_api.g_false,
4957: p_init_msg_list => fnd_api.g_true,
4958: p_validation_level => fnd_api.g_valid_level_full,
4959: p_instance_query_rec => l_inst_query_rec,
4960: p_party_query_rec => l_party_query_rec,
4953:
4954: csi_item_instance_pub.get_item_instances(
4955: p_api_version => 1.0,
4956: p_commit => fnd_api.g_false,
4957: p_init_msg_list => fnd_api.g_true,
4958: p_validation_level => fnd_api.g_valid_level_full,
4959: p_instance_query_rec => l_inst_query_rec,
4960: p_party_query_rec => l_party_query_rec,
4961: p_account_query_rec => l_pty_acct_query_rec,
4954: csi_item_instance_pub.get_item_instances(
4955: p_api_version => 1.0,
4956: p_commit => fnd_api.g_false,
4957: p_init_msg_list => fnd_api.g_true,
4958: p_validation_level => fnd_api.g_valid_level_full,
4959: p_instance_query_rec => l_inst_query_rec,
4960: p_party_query_rec => l_party_query_rec,
4961: p_account_query_rec => l_pty_acct_query_rec,
4962: p_transaction_id => NULL,
4959: p_instance_query_rec => l_inst_query_rec,
4960: p_party_query_rec => l_party_query_rec,
4961: p_account_query_rec => l_pty_acct_query_rec,
4962: p_transaction_id => NULL,
4963: p_resolve_id_columns => fnd_api.g_false,
4964: p_active_instance_only => fnd_api.g_false,
4965: x_instance_header_tbl => l_instance_hdr_tbl,
4966: x_return_status => l_return_status,
4967: x_msg_count => l_msg_count,
4960: p_party_query_rec => l_party_query_rec,
4961: p_account_query_rec => l_pty_acct_query_rec,
4962: p_transaction_id => NULL,
4963: p_resolve_id_columns => fnd_api.g_false,
4964: p_active_instance_only => fnd_api.g_false,
4965: x_instance_header_tbl => l_instance_hdr_tbl,
4966: x_return_status => l_return_status,
4967: x_msg_count => l_msg_count,
4968: x_msg_data => l_msg_data );
4966: x_return_status => l_return_status,
4967: x_msg_count => l_msg_count,
4968: x_msg_data => l_msg_data );
4969:
4970: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4971: RAISE fnd_api.g_exc_error;
4972: END IF;
4973:
4974: IF l_instance_hdr_tbl.count = 0 THEN
4967: x_msg_count => l_msg_count,
4968: x_msg_data => l_msg_data );
4969:
4970: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4971: RAISE fnd_api.g_exc_error;
4972: END IF;
4973:
4974: IF l_instance_hdr_tbl.count = 0 THEN
4975: px_instance_rec.instance_id := fnd_api.g_miss_num;
4971: RAISE fnd_api.g_exc_error;
4972: END IF;
4973:
4974: IF l_instance_hdr_tbl.count = 0 THEN
4975: px_instance_rec.instance_id := fnd_api.g_miss_num;
4976: ELSE
4977: IF l_instance_hdr_tbl.count = 1 THEN
4978: px_instance_rec.instance_id := l_instance_hdr_tbl(1).instance_id;
4979: ELSE
4981: END IF;
4982: END IF;
4983:
4984: EXCEPTION
4985: WHEN fnd_api.g_exc_error THEN
4986: x_return_status := fnd_api.g_ret_sts_error;
4987: END get_issued_serial_instance;
4988:
4989: -- handle only the return of WIP instances
4982: END IF;
4983:
4984: EXCEPTION
4985: WHEN fnd_api.g_exc_error THEN
4986: x_return_status := fnd_api.g_ret_sts_error;
4987: END get_issued_serial_instance;
4988:
4989: -- handle only the return of WIP instances
4990: -- after the relations are build you could have multiple
5007: l_instance_hdr_tbl csi_datastructures_pub.instance_header_tbl;
5008: l_instance_tbl csi_datastructures_pub.instance_tbl;
5009:
5010:
5011: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5012: l_msg_count number;
5013: l_msg_data varchar2(2000);
5014:
5015: BEGIN
5021: p_api_name => 'get_item_instances');
5022:
5023: csi_item_instance_pub.get_item_instances(
5024: p_api_version => 1.0,
5025: p_commit => fnd_api.g_false,
5026: p_init_msg_list => fnd_api.g_true,
5027: p_validation_level => fnd_api.g_valid_level_full,
5028: p_instance_query_rec => p_instance_query_rec,
5029: p_party_query_rec => l_party_query_rec,
5022:
5023: csi_item_instance_pub.get_item_instances(
5024: p_api_version => 1.0,
5025: p_commit => fnd_api.g_false,
5026: p_init_msg_list => fnd_api.g_true,
5027: p_validation_level => fnd_api.g_valid_level_full,
5028: p_instance_query_rec => p_instance_query_rec,
5029: p_party_query_rec => l_party_query_rec,
5030: p_account_query_rec => l_pty_acct_query_rec,
5023: csi_item_instance_pub.get_item_instances(
5024: p_api_version => 1.0,
5025: p_commit => fnd_api.g_false,
5026: p_init_msg_list => fnd_api.g_true,
5027: p_validation_level => fnd_api.g_valid_level_full,
5028: p_instance_query_rec => p_instance_query_rec,
5029: p_party_query_rec => l_party_query_rec,
5030: p_account_query_rec => l_pty_acct_query_rec,
5031: p_transaction_id => null,
5028: p_instance_query_rec => p_instance_query_rec,
5029: p_party_query_rec => l_party_query_rec,
5030: p_account_query_rec => l_pty_acct_query_rec,
5031: p_transaction_id => null,
5032: p_resolve_id_columns => fnd_api.g_false,
5033: p_active_instance_only => fnd_api.g_true,
5034: x_instance_header_tbl => l_instance_hdr_tbl,
5035: x_return_status => l_return_status,
5036: x_msg_count => l_msg_count,
5029: p_party_query_rec => l_party_query_rec,
5030: p_account_query_rec => l_pty_acct_query_rec,
5031: p_transaction_id => null,
5032: p_resolve_id_columns => fnd_api.g_false,
5033: p_active_instance_only => fnd_api.g_true,
5034: x_instance_header_tbl => l_instance_hdr_tbl,
5035: x_return_status => l_return_status,
5036: x_msg_count => l_msg_count,
5037: x_msg_data => l_msg_data);
5035: x_return_status => l_return_status,
5036: x_msg_count => l_msg_count,
5037: x_msg_data => l_msg_data);
5038:
5039: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5040: RAISE fnd_api.g_exc_error;
5041: END IF;
5042:
5043: IF l_instance_hdr_tbl.COUNT > 0 THEN
5036: x_msg_count => l_msg_count,
5037: x_msg_data => l_msg_data);
5038:
5039: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5040: RAISE fnd_api.g_exc_error;
5041: END IF;
5042:
5043: IF l_instance_hdr_tbl.COUNT > 0 THEN
5044: csi_utl_pkg.make_non_header_tbl(
5045: p_instance_header_tbl => l_instance_hdr_tbl,
5046: x_instance_tbl => l_instance_tbl,
5047: x_return_status => l_return_status);
5048:
5049: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5050: RAISE fnd_api.g_exc_error;
5051: END IF;
5052: END IF;
5053:
5046: x_instance_tbl => l_instance_tbl,
5047: x_return_status => l_return_status);
5048:
5049: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5050: RAISE fnd_api.g_exc_error;
5051: END IF;
5052: END IF;
5053:
5054: x_instance_tbl := l_instance_tbl;
5053:
5054: x_instance_tbl := l_instance_tbl;
5055:
5056: EXCEPTION
5057: WHEN fnd_api.g_exc_error THEN
5058: x_return_status := fnd_api.g_ret_sts_error;
5059: END get_instances;
5060:
5061:
5054: x_instance_tbl := l_instance_tbl;
5055:
5056: EXCEPTION
5057: WHEN fnd_api.g_exc_error THEN
5058: x_return_status := fnd_api.g_ret_sts_error;
5059: END get_instances;
5060:
5061:
5062: PROCEDURE get_issued_in_wip_instance(
5069: IS
5070:
5071: l_inst_query_rec csi_datastructures_pub.instance_query_rec;
5072: l_inst_tbl csi_datastructures_pub.instance_tbl;
5073: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5074:
5075: BEGIN
5076:
5077: x_return_status := fnd_api.g_ret_sts_success;
5073: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5074:
5075: BEGIN
5076:
5077: x_return_status := fnd_api.g_ret_sts_success;
5078: api_log('get_issued_in_wip_instance');
5079:
5080: -- first get the excess WIP instance that needs to be knocked off
5081: l_inst_query_rec.inventory_item_id := p_component_item_id;
5089: p_instance_query_rec => l_inst_query_rec,
5090: x_instance_tbl => l_inst_tbl,
5091: x_return_status => l_return_status);
5092:
5093: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5094: RAISE fnd_api.g_exc_error;
5095: END IF;
5096:
5097: debug('IN_WIP Instances COUNT :'||l_inst_tbl.COUNT);
5090: x_instance_tbl => l_inst_tbl,
5091: x_return_status => l_return_status);
5092:
5093: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5094: RAISE fnd_api.g_exc_error;
5095: END IF;
5096:
5097: debug('IN_WIP Instances COUNT :'||l_inst_tbl.COUNT);
5098: x_instance_tbl := l_inst_tbl;
5096:
5097: debug('IN_WIP Instances COUNT :'||l_inst_tbl.COUNT);
5098: x_instance_tbl := l_inst_tbl;
5099: EXCEPTION
5100: WHEN fnd_api.g_exc_error THEN
5101: x_return_status := fnd_api.g_ret_sts_error;
5102: END get_issued_in_wip_instance;
5103:
5104:
5097: debug('IN_WIP Instances COUNT :'||l_inst_tbl.COUNT);
5098: x_instance_tbl := l_inst_tbl;
5099: EXCEPTION
5100: WHEN fnd_api.g_exc_error THEN
5101: x_return_status := fnd_api.g_ret_sts_error;
5102: END get_issued_in_wip_instance;
5103:
5104:
5105: PROCEDURE get_issued_in_inv_instances(
5112: IS
5113:
5114: l_inst_query_rec csi_datastructures_pub.instance_query_rec;
5115: l_inst_tbl csi_datastructures_pub.instance_tbl;
5116: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5117:
5118: BEGIN
5119:
5120: x_return_status := fnd_api.g_ret_sts_success;
5116: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5117:
5118: BEGIN
5119:
5120: x_return_status := fnd_api.g_ret_sts_success;
5121: api_log('get_issued_in_inv_instances');
5122:
5123: l_inst_query_rec.inventory_item_id := p_component_item_id;
5124: l_inst_query_rec.last_wip_job_id := p_wip_entity_id;
5129: p_instance_query_rec => l_inst_query_rec,
5130: x_instance_tbl => l_inst_tbl,
5131: x_return_status => l_return_status);
5132:
5133: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5134: RAISE fnd_api.g_exc_error;
5135: END IF;
5136:
5137: debug('wip in_relation instance count: '||l_inst_tbl.COUNT);
5130: x_instance_tbl => l_inst_tbl,
5131: x_return_status => l_return_status);
5132:
5133: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5134: RAISE fnd_api.g_exc_error;
5135: END IF;
5136:
5137: debug('wip in_relation instance count: '||l_inst_tbl.COUNT);
5138:
5154:
5155: x_instance_tbl := l_inst_tbl;
5156:
5157: EXCEPTION
5158: WHEN fnd_api.g_exc_error THEN
5159: x_return_status := fnd_api.g_ret_sts_error;
5160: END get_issued_in_inv_instances;
5161:
5162:
5155: x_instance_tbl := l_inst_tbl;
5156:
5157: EXCEPTION
5158: WHEN fnd_api.g_exc_error THEN
5159: x_return_status := fnd_api.g_ret_sts_error;
5160: END get_issued_in_inv_instances;
5161:
5162:
5163: PROCEDURE get_issued_in_rel_instances(
5170: IS
5171:
5172: l_inst_query_rec csi_datastructures_pub.instance_query_rec;
5173: l_inst_tbl csi_datastructures_pub.instance_tbl;
5174: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5175:
5176: BEGIN
5177:
5178: x_return_status := fnd_api.g_ret_sts_success;
5174: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5175:
5176: BEGIN
5177:
5178: x_return_status := fnd_api.g_ret_sts_success;
5179: api_log('get_issued_in_rel_instances');
5180:
5181: l_inst_query_rec.inventory_item_id := p_component_item_id;
5182: l_inst_query_rec.wip_job_id := p_wip_entity_id;
5187: p_instance_query_rec => l_inst_query_rec,
5188: x_instance_tbl => l_inst_tbl,
5189: x_return_status => l_return_status);
5190:
5191: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5192: RAISE fnd_api.g_exc_error;
5193: END IF;
5194:
5195: debug('repair in_relation instance count: '||l_inst_tbl.COUNT);
5188: x_instance_tbl => l_inst_tbl,
5189: x_return_status => l_return_status);
5190:
5191: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5192: RAISE fnd_api.g_exc_error;
5193: END IF;
5194:
5195: debug('repair in_relation instance count: '||l_inst_tbl.COUNT);
5196: x_instance_tbl := l_inst_tbl;
5195: debug('repair in_relation instance count: '||l_inst_tbl.COUNT);
5196: x_instance_tbl := l_inst_tbl;
5197:
5198: EXCEPTION
5199: WHEN fnd_api.g_exc_error THEN
5200: x_return_status := fnd_api.g_ret_sts_error;
5201: END get_issued_in_rel_instances;
5202:
5203: PROCEDURE deallocate_using_qty_per_assy(
5196: x_instance_tbl := l_inst_tbl;
5197:
5198: EXCEPTION
5199: WHEN fnd_api.g_exc_error THEN
5200: x_return_status := fnd_api.g_ret_sts_error;
5201: END get_issued_in_rel_instances;
5202:
5203: PROCEDURE deallocate_using_qty_per_assy(
5204: p_qty_returned IN number,
5226: l_da_ind binary_integer := 0;
5227: l_da_tbl da_tbl;
5228:
5229: l_parent_instance_id number;
5230: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5231:
5232: BEGIN
5233: x_return_status := fnd_api.g_ret_sts_success;
5234: api_log('deallocate_using_qty_per_assy');
5229: l_parent_instance_id number;
5230: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5231:
5232: BEGIN
5233: x_return_status := fnd_api.g_ret_sts_success;
5234: api_log('deallocate_using_qty_per_assy');
5235:
5236: l_inst_tbl := p_instances_tbl;
5237:
5293: p_quantity => l_qty_dealloc,
5294: px_csi_txn_rec => px_csi_txn_rec,
5295: x_return_status => l_return_status);
5296:
5297: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5298: RAISE fnd_api.g_exc_error;
5299: END IF;
5300:
5301: l_qty_available := l_qty_available - l_qty_dealloc;
5294: px_csi_txn_rec => px_csi_txn_rec,
5295: x_return_status => l_return_status);
5296:
5297: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5298: RAISE fnd_api.g_exc_error;
5299: END IF;
5300:
5301: l_qty_available := l_qty_available - l_qty_dealloc;
5302: l_qty_remaining := l_qty_remaining - l_qty_dealloc;
5312:
5313: x_qty_remaining := l_qty_remaining;
5314:
5315: EXCEPTION
5316: WHEN fnd_api.g_exc_error THEN
5317: x_return_status := fnd_api.g_ret_sts_error;
5318: END deallocate_using_qty_per_assy;
5319:
5320:
5313: x_qty_remaining := l_qty_remaining;
5314:
5315: EXCEPTION
5316: WHEN fnd_api.g_exc_error THEN
5317: x_return_status := fnd_api.g_ret_sts_error;
5318: END deallocate_using_qty_per_assy;
5319:
5320:
5321: PROCEDURE deallocate_wip_instances(
5335: l_qty_per_assy number;
5336: l_total_qty_issued number;
5337:
5338: l_instance_tbl csi_datastructures_pub.instance_tbl;
5339: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5340:
5341: BEGIN
5342:
5343: x_return_status := fnd_api.g_ret_sts_success;
5339: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5340:
5341: BEGIN
5342:
5343: x_return_status := fnd_api.g_ret_sts_success;
5344: api_log('deallocate_wip_instances');
5345:
5346: l_qty_remaining := p_returned_quantity;
5347:
5352: p_lot_number => p_lot_number,
5353: x_instance_tbl => l_instance_tbl,
5354: x_return_status => l_return_status);
5355:
5356: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5357: RAISE fnd_api.g_exc_error;
5358: END IF;
5359:
5360: IF l_instance_tbl.COUNT > 0 THEN
5353: x_instance_tbl => l_instance_tbl,
5354: x_return_status => l_return_status);
5355:
5356: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5357: RAISE fnd_api.g_exc_error;
5358: END IF;
5359:
5360: IF l_instance_tbl.COUNT > 0 THEN
5361: IF l_instance_tbl.COUNT = 1 THEN
5371: p_quantity => l_qty_to_dealloc,
5372: px_csi_txn_rec => px_csi_txn_rec,
5373: x_return_status => l_return_status);
5374:
5375: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5376: RAISE fnd_api.g_exc_error;
5377: END IF;
5378:
5379: l_qty_remaining := l_qty_remaining - l_qty_to_dealloc;
5372: px_csi_txn_rec => px_csi_txn_rec,
5373: x_return_status => l_return_status);
5374:
5375: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5376: RAISE fnd_api.g_exc_error;
5377: END IF;
5378:
5379: l_qty_remaining := l_qty_remaining - l_qty_to_dealloc;
5380:
5393: p_component_item_id => p_component_item_id,
5394: x_qty_per_assembly => l_qty_per_assy,
5395: x_return_status => l_return_status);
5396:
5397: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5398: RAISE fnd_api.g_exc_error;
5399: END IF;
5400:
5401: get_issued_in_inv_instances(
5394: x_qty_per_assembly => l_qty_per_assy,
5395: x_return_status => l_return_status);
5396:
5397: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5398: RAISE fnd_api.g_exc_error;
5399: END IF;
5400:
5401: get_issued_in_inv_instances(
5402: p_wip_entity_id => p_wip_entity_id,
5405: p_lot_number => p_lot_number,
5406: x_instance_tbl => l_instance_tbl,
5407: x_return_status => l_return_status);
5408:
5409: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5410: RAISE fnd_api.g_exc_error;
5411: END IF;
5412:
5413: IF l_qty_per_assy = 0 AND p_auto_allocate = 'Y' THEN
5406: x_instance_tbl => l_instance_tbl,
5407: x_return_status => l_return_status);
5408:
5409: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5410: RAISE fnd_api.g_exc_error;
5411: END IF;
5412:
5413: IF l_qty_per_assy = 0 AND p_auto_allocate = 'Y' THEN
5414:
5425: px_csi_txn_rec => px_csi_txn_rec,
5426: x_qty_remaining => l_qty_remaining,
5427: x_return_status => l_return_status);
5428:
5429: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5430: RAISE fnd_api.g_exc_error;
5431: END IF;
5432:
5433: IF l_qty_remaining > 0 THEN
5426: x_qty_remaining => l_qty_remaining,
5427: x_return_status => l_return_status);
5428:
5429: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5430: RAISE fnd_api.g_exc_error;
5431: END IF;
5432:
5433: IF l_qty_remaining > 0 THEN
5434:
5439: p_lot_number => p_lot_number,
5440: x_instance_tbl => l_instance_tbl,
5441: x_return_status => l_return_status);
5442:
5443: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5444: RAISE fnd_api.g_exc_error;
5445: END IF;
5446:
5447: deallocate_using_qty_per_assy(
5440: x_instance_tbl => l_instance_tbl,
5441: x_return_status => l_return_status);
5442:
5443: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5444: RAISE fnd_api.g_exc_error;
5445: END IF;
5446:
5447: deallocate_using_qty_per_assy(
5448: p_qty_returned => l_qty_remaining,
5451: px_csi_txn_rec => px_csi_txn_rec,
5452: x_qty_remaining => l_qty_remaining,
5453: x_return_status => l_return_status);
5454:
5455: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5456: RAISE fnd_api.g_exc_error;
5457: END IF;
5458: END IF;
5459:
5452: x_qty_remaining => l_qty_remaining,
5453: x_return_status => l_return_status);
5454:
5455: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5456: RAISE fnd_api.g_exc_error;
5457: END IF;
5458: END IF;
5459:
5460: END IF;
5459:
5460: END IF;
5461: END IF;
5462: EXCEPTION
5463: WHEN fnd_api.g_exc_error THEN
5464: x_return_status := fnd_api.g_ret_sts_error;
5465: END deallocate_wip_instances;
5466:
5467:
5460: END IF;
5461: END IF;
5462: EXCEPTION
5463: WHEN fnd_api.g_exc_error THEN
5464: x_return_status := fnd_api.g_ret_sts_error;
5465: END deallocate_wip_instances;
5466:
5467:
5468: PROCEDURE bld_inst_tables_for_return(
5480:
5481: l_int_party_id number;
5482: l_auto_allocate varchar2(1);
5483: l_wip_loc_id number;
5484: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5485: l_instance_id number;
5486:
5487: --Added for bug 5376024--
5488: l_inv_item_id number;
5537:
5538:
5539: BEGIN
5540:
5541: x_return_status := fnd_api.g_ret_sts_success;
5542:
5543: api_log('bld_inst_tables_for_return');
5544:
5545: l_int_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
5549: -- build destination location attribs
5550: l_dest_loc_rec.location_type_code := 'INVENTORY';
5551: l_dest_loc_rec.location_id := p_mmt_rec.subinv_location_id;
5552:
5553: IF nvl(x_dest_loc_rec.location_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
5554: l_dest_loc_rec.location_id := p_mmt_rec.hr_location_id;
5555: END IF;
5556:
5557: l_dest_loc_rec.inv_organization_id := p_mmt_rec.organization_id;
5556:
5557: l_dest_loc_rec.inv_organization_id := p_mmt_rec.organization_id;
5558: l_dest_loc_rec.inv_subinventory_name := p_mmt_rec.subinventory_code;
5559: l_dest_loc_rec.inv_locator_id := p_mmt_rec.locator_id;
5560: l_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
5561: l_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
5562: l_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
5563: l_dest_loc_rec.wip_job_id := fnd_api.g_miss_num;
5564: l_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
5557: l_dest_loc_rec.inv_organization_id := p_mmt_rec.organization_id;
5558: l_dest_loc_rec.inv_subinventory_name := p_mmt_rec.subinventory_code;
5559: l_dest_loc_rec.inv_locator_id := p_mmt_rec.locator_id;
5560: l_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
5561: l_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
5562: l_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
5563: l_dest_loc_rec.wip_job_id := fnd_api.g_miss_num;
5564: l_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
5565: l_dest_loc_rec.instance_usage_code := 'IN_INVENTORY';
5558: l_dest_loc_rec.inv_subinventory_name := p_mmt_rec.subinventory_code;
5559: l_dest_loc_rec.inv_locator_id := p_mmt_rec.locator_id;
5560: l_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
5561: l_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
5562: l_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
5563: l_dest_loc_rec.wip_job_id := fnd_api.g_miss_num;
5564: l_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
5565: l_dest_loc_rec.instance_usage_code := 'IN_INVENTORY';
5566:
5559: l_dest_loc_rec.inv_locator_id := p_mmt_rec.locator_id;
5560: l_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
5561: l_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
5562: l_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
5563: l_dest_loc_rec.wip_job_id := fnd_api.g_miss_num;
5564: l_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
5565: l_dest_loc_rec.instance_usage_code := 'IN_INVENTORY';
5566:
5567: -- build instances
5560: l_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
5561: l_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
5562: l_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
5563: l_dest_loc_rec.wip_job_id := fnd_api.g_miss_num;
5564: l_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
5565: l_dest_loc_rec.instance_usage_code := 'IN_INVENTORY';
5566:
5567: -- build instances
5568: l_instances_tbl(1).ib_txn_segment_flag := 'S';
5571: l_instances_tbl(1).vld_organization_id := p_mmt_rec.organization_id;
5572: l_instances_tbl(1).inv_master_organization_id := p_txn_ref.master_organization_id;
5573: l_instances_tbl(1).serial_number := p_mmt_rec.serial_number;
5574:
5575: IF nvl(l_instances_tbl(1).serial_number,fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
5576: l_instances_tbl(1).mfg_serial_number_flag := 'Y';
5577: ELSE
5578: l_instances_tbl(1).mfg_serial_number_flag := 'N';
5579: END IF;
5582: l_instances_tbl(1).quantity := abs(p_mmt_rec.instance_quantity);
5583: l_instances_tbl(1).unit_of_measure := p_txn_ref.primary_uom_code;
5584:
5585: l_instances_tbl(1).location_type_code := 'WIP';
5586: l_instances_tbl(1).location_id := nvl(p_mmt_rec.organization_id,fnd_api.g_miss_num); --5224875
5587: l_instances_tbl(1).last_wip_job_id := p_mmt_rec.transaction_source_id;
5588:
5589: l_instances_tbl(1).inv_organization_id := fnd_api.g_miss_num;
5590: l_instances_tbl(1).inv_subinventory_name := fnd_api.g_miss_char;
5585: l_instances_tbl(1).location_type_code := 'WIP';
5586: l_instances_tbl(1).location_id := nvl(p_mmt_rec.organization_id,fnd_api.g_miss_num); --5224875
5587: l_instances_tbl(1).last_wip_job_id := p_mmt_rec.transaction_source_id;
5588:
5589: l_instances_tbl(1).inv_organization_id := fnd_api.g_miss_num;
5590: l_instances_tbl(1).inv_subinventory_name := fnd_api.g_miss_char;
5591: l_instances_tbl(1).inv_locator_id := fnd_api.g_miss_num;
5592:
5593: l_instances_tbl(1).active_start_date := p_txn_ref.transaction_date;
5586: l_instances_tbl(1).location_id := nvl(p_mmt_rec.organization_id,fnd_api.g_miss_num); --5224875
5587: l_instances_tbl(1).last_wip_job_id := p_mmt_rec.transaction_source_id;
5588:
5589: l_instances_tbl(1).inv_organization_id := fnd_api.g_miss_num;
5590: l_instances_tbl(1).inv_subinventory_name := fnd_api.g_miss_char;
5591: l_instances_tbl(1).inv_locator_id := fnd_api.g_miss_num;
5592:
5593: l_instances_tbl(1).active_start_date := p_txn_ref.transaction_date;
5594: l_instances_tbl(1).customer_view_flag := 'N';
5587: l_instances_tbl(1).last_wip_job_id := p_mmt_rec.transaction_source_id;
5588:
5589: l_instances_tbl(1).inv_organization_id := fnd_api.g_miss_num;
5590: l_instances_tbl(1).inv_subinventory_name := fnd_api.g_miss_char;
5591: l_instances_tbl(1).inv_locator_id := fnd_api.g_miss_num;
5592:
5593: l_instances_tbl(1).active_start_date := p_txn_ref.transaction_date;
5594: l_instances_tbl(1).customer_view_flag := 'N';
5595: l_instances_tbl(1).merchant_view_flag := 'Y';
5622: get_issued_serial_instance(
5623: px_instance_rec => l_instances_tbl(1),
5624: x_return_status => l_return_status);
5625:
5626: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5627: RAISE fnd_api.g_exc_error;
5628: END IF;
5629:
5630: -- check the location of the instance here before further process.
5623: px_instance_rec => l_instances_tbl(1),
5624: x_return_status => l_return_status);
5625:
5626: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5627: RAISE fnd_api.g_exc_error;
5628: END IF;
5629:
5630: -- check the location of the instance here before further process.
5631:
5629:
5630: -- check the location of the instance here before further process.
5631:
5632: -- any serialized component being returned back to Inv .
5633: IF nvl(l_instances_tbl(1).instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
5634: THEN
5635:
5636: /* 1 - EAM, 2 - AHL 0 - NULL */
5637: IF p_txn_ref.wip_maint_source_code = 2 THEN
5658: ELSE
5659: fnd_message.set_name('CSI', 'CSI_MAINT_JOB_RTN_DISALLOWED');
5660: fnd_message.set_token('PARENT_INSTANCE_ID', l_parent_instance_id);
5661: fnd_msg_pub.add;
5662: RAISE fnd_api.g_exc_error;
5663: END IF;-- NVL(l_active_end_date, sysdate + 1) = sysdate
5664: END IF;
5665: END IF;
5666:
5668: p_instance_id => l_instances_tbl(1).instance_id,
5669: p_csi_txn_rec => p_csi_txn_rec ,
5670: x_return_status => l_return_status);
5671:
5672: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5673: RAISE fnd_api.g_exc_error;
5674: END IF;
5675:
5676: l_parties_tbl.delete;
5669: p_csi_txn_rec => p_csi_txn_rec ,
5670: x_return_status => l_return_status);
5671:
5672: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5673: RAISE fnd_api.g_exc_error;
5674: END IF;
5675:
5676: l_parties_tbl.delete;
5677:
5712: debug('Second no data');
5713: null;
5714: END;
5715:
5716: IF nvl(l_instance_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num THEN
5717: --decrement the wip instance
5718: */
5719: -- Bug 8345922
5720: l_child_instance_count := 0;
5753: x_return_status => l_return_status);
5754:
5755: -- END IF;
5756:
5757: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5758: RAISE fnd_api.g_exc_error;
5759: END IF;
5760: END IF;
5761: l_instances_tbl(1).instance_id := fnd_api.g_miss_num;
5754:
5755: -- END IF;
5756:
5757: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5758: RAISE fnd_api.g_exc_error;
5759: END IF;
5760: END IF;
5761: l_instances_tbl(1).instance_id := fnd_api.g_miss_num;
5762:
5757: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5758: RAISE fnd_api.g_exc_error;
5759: END IF;
5760: END IF;
5761: l_instances_tbl(1).instance_id := fnd_api.g_miss_num;
5762:
5763: END IF;
5764:
5765: x_dest_loc_rec := l_dest_loc_rec;
5767: x_parties_tbl := l_parties_tbl;
5768:
5769:
5770: EXCEPTION
5771: WHEN fnd_api.g_exc_error THEN
5772: x_return_status := fnd_api.g_ret_sts_error;
5773:
5774: END bld_inst_tables_for_return;
5775:
5768:
5769:
5770: EXCEPTION
5771: WHEN fnd_api.g_exc_error THEN
5772: x_return_status := fnd_api.g_ret_sts_error;
5773:
5774: END bld_inst_tables_for_return;
5775:
5776: /* main routine for the wip component return transaction. */
5802: l_c_instances_tbl csi_process_txn_grp.txn_instances_tbl;
5803: l_c_parties_tbl csi_process_txn_grp.txn_i_parties_tbl;
5804: l_c_org_units_tbl csi_process_txn_grp.txn_org_units_tbl;
5805:
5806: l_api_success varchar2(1) := fnd_api.g_ret_sts_success;
5807: l_error_message varchar2(2000);
5808: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5809: l_msg_count number;
5810: l_msg_data varchar2(2000);
5804: l_c_org_units_tbl csi_process_txn_grp.txn_org_units_tbl;
5805:
5806: l_api_success varchar2(1) := fnd_api.g_ret_sts_success;
5807: l_error_message varchar2(2000);
5808: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5809: l_msg_count number;
5810: l_msg_data varchar2(2000);
5811: l_error_rec csi_datastructures_pub.transaction_error_rec;
5812:
5813: BEGIN
5814:
5815: savepoint wip_component_receipt;
5816:
5817: x_return_status := fnd_api.g_ret_sts_success;
5818:
5819: fnd_msg_pub.initialize;
5820:
5821:
5846: x_mmt_tbl => l_mmt_tbl,
5847: x_return_status => l_return_status);
5848:
5849: IF l_return_status <> l_api_success THEN
5850: RAISE fnd_api.g_exc_error;
5851: END IF;
5852:
5853: l_error_rec.source_header_ref := l_txn_ref.wip_entity_name;
5854: l_error_rec.source_header_ref_id := l_txn_ref.wip_entity_id;
5860: l_error_rec.comms_nl_trackable_flag := l_txn_ref.ib_trackable_flag;
5861:
5862: IF l_mmt_tbl.COUNT > 0 THEN
5863:
5864: l_csi_txn_rec.transaction_id := fnd_api.g_miss_num;
5865: l_csi_txn_rec.source_header_ref := l_txn_ref.wip_entity_name;
5866: l_csi_txn_rec.source_header_ref_id := l_txn_ref.wip_entity_id;
5867: l_csi_txn_rec.source_transaction_date := l_txn_ref.transaction_date;
5868:
5892: x_org_units_tbl => l_c_org_units_tbl,
5893: x_return_status => l_return_status);
5894:
5895: IF l_return_status <> l_api_success THEN
5896: RAISE fnd_api.g_exc_error;
5897: END IF;
5898:
5899: csi_process_txn_grp.process_transaction(
5900: p_api_version => 1.0,
5897: END IF;
5898:
5899: csi_process_txn_grp.process_transaction(
5900: p_api_version => 1.0,
5901: p_commit => fnd_api.g_false,
5902: p_init_msg_list => fnd_api.g_false,
5903: p_validation_level => fnd_api.g_valid_level_full,
5904: p_validate_only_flag => fnd_api.g_false,
5905: p_in_out_flag => l_in_out_flag, -- valid values are 'IN','OUT'
5898:
5899: csi_process_txn_grp.process_transaction(
5900: p_api_version => 1.0,
5901: p_commit => fnd_api.g_false,
5902: p_init_msg_list => fnd_api.g_false,
5903: p_validation_level => fnd_api.g_valid_level_full,
5904: p_validate_only_flag => fnd_api.g_false,
5905: p_in_out_flag => l_in_out_flag, -- valid values are 'IN','OUT'
5906: p_dest_location_rec => l_c_dest_loc_rec,
5899: csi_process_txn_grp.process_transaction(
5900: p_api_version => 1.0,
5901: p_commit => fnd_api.g_false,
5902: p_init_msg_list => fnd_api.g_false,
5903: p_validation_level => fnd_api.g_valid_level_full,
5904: p_validate_only_flag => fnd_api.g_false,
5905: p_in_out_flag => l_in_out_flag, -- valid values are 'IN','OUT'
5906: p_dest_location_rec => l_c_dest_loc_rec,
5907: p_txn_rec => l_csi_txn_rec,
5900: p_api_version => 1.0,
5901: p_commit => fnd_api.g_false,
5902: p_init_msg_list => fnd_api.g_false,
5903: p_validation_level => fnd_api.g_valid_level_full,
5904: p_validate_only_flag => fnd_api.g_false,
5905: p_in_out_flag => l_in_out_flag, -- valid values are 'IN','OUT'
5906: p_dest_location_rec => l_c_dest_loc_rec,
5907: p_txn_rec => l_csi_txn_rec,
5908: p_instances_tbl => l_c_instances_tbl,
5918: x_msg_count => l_msg_count,
5919: x_msg_data => l_msg_data );
5920:
5921: IF l_return_status <> l_api_success THEN
5922: RAISE fnd_api.g_exc_error;
5923: END IF;
5924:
5925: END LOOP;
5926: END IF;
5928: debug('wip component return transaction successful : '||p_transaction_id);
5929: debug('end timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
5930:
5931: EXCEPTION
5932: WHEN fnd_api.g_exc_error THEN
5933: rollback to wip_component_receipt;
5934: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
5935: px_trx_error_rec := l_error_rec;
5936: x_return_status := fnd_api.g_ret_sts_error;
5932: WHEN fnd_api.g_exc_error THEN
5933: rollback to wip_component_receipt;
5934: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
5935: px_trx_error_rec := l_error_rec;
5936: x_return_status := fnd_api.g_ret_sts_error;
5937:
5938: debug('Error(E) :'||l_error_rec.error_text);
5939:
5940: WHEN others then
5946: fnd_msg_pub.add;
5947:
5948: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
5949: px_trx_error_rec := l_error_rec;
5950: x_return_status := fnd_api.g_ret_sts_unexp_error;
5951:
5952: debug('Error(O) :'||l_error_rec.error_text);
5953:
5954: END wip_comp_receipt;
5965: IS
5966: l_int_party_id number;
5967: l_comp_is_assy varchar2(1) := 'N';
5968: l_issued_instances csi_datastructures_pub.instance_tbl;
5969: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5970: l_instance_found boolean := FALSE;
5971: BEGIN
5972:
5973: x_return_status := fnd_api.g_ret_sts_success;
5969: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
5970: l_instance_found boolean := FALSE;
5971: BEGIN
5972:
5973: x_return_status := fnd_api.g_ret_sts_success;
5974: api_log('bld_inst_tables_for_compl');
5975:
5976: l_int_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
5977:
5979: x_dest_loc_rec.location_type_code := 'INVENTORY';
5980: x_dest_loc_rec.location_id := p_mmt_rec.subinv_location_id;
5981: x_dest_loc_rec.instance_usage_code := 'IN_INVENTORY';
5982:
5983: IF nvl(x_dest_loc_rec.location_id,fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
5984: x_dest_loc_rec.location_id := p_mmt_rec.hr_location_id;
5985: END IF;
5986:
5987: x_dest_loc_rec.inv_organization_id := p_mmt_rec.organization_id;
5987: x_dest_loc_rec.inv_organization_id := p_mmt_rec.organization_id;
5988: x_dest_loc_rec.inv_subinventory_name := p_mmt_rec.subinventory_code;
5989: x_dest_loc_rec.inv_locator_id := p_mmt_rec.locator_id;
5990:
5991: x_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
5992: x_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
5993: x_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
5994: x_dest_loc_rec.wip_job_id := fnd_api.g_miss_num;
5995: x_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
5988: x_dest_loc_rec.inv_subinventory_name := p_mmt_rec.subinventory_code;
5989: x_dest_loc_rec.inv_locator_id := p_mmt_rec.locator_id;
5990:
5991: x_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
5992: x_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
5993: x_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
5994: x_dest_loc_rec.wip_job_id := fnd_api.g_miss_num;
5995: x_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
5996:
5989: x_dest_loc_rec.inv_locator_id := p_mmt_rec.locator_id;
5990:
5991: x_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
5992: x_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
5993: x_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
5994: x_dest_loc_rec.wip_job_id := fnd_api.g_miss_num;
5995: x_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
5996:
5997: -- instances
5990:
5991: x_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
5992: x_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
5993: x_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
5994: x_dest_loc_rec.wip_job_id := fnd_api.g_miss_num;
5995: x_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
5996:
5997: -- instances
5998: x_instances_tbl(1).ib_txn_segment_flag := 'S';
5991: x_dest_loc_rec.pa_project_id := fnd_api.g_miss_num;
5992: x_dest_loc_rec.pa_project_task_id := fnd_api.g_miss_num;
5993: x_dest_loc_rec.in_transit_order_line_id := fnd_api.g_miss_num;
5994: x_dest_loc_rec.wip_job_id := fnd_api.g_miss_num;
5995: x_dest_loc_rec.po_order_line_id := fnd_api.g_miss_num;
5996:
5997: -- instances
5998: x_instances_tbl(1).ib_txn_segment_flag := 'S';
5999: x_instances_tbl(1).inventory_item_id := p_mmt_rec.inventory_item_id;
6004: x_instances_tbl(1).quantity := abs(p_mmt_rec.instance_quantity);
6005: x_instances_tbl(1).serial_number := p_mmt_rec.serial_number;
6006: x_instances_tbl(1).lot_number := p_mmt_rec.lot_number;
6007:
6008: IF nvl(x_instances_tbl(1).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
6009: x_instances_tbl(1).mfg_serial_number_flag := 'Y';
6010: END IF;
6011:
6012: x_instances_tbl(1).location_type_code := fnd_api.g_miss_char;
6008: IF nvl(x_instances_tbl(1).serial_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
6009: x_instances_tbl(1).mfg_serial_number_flag := 'Y';
6010: END IF;
6011:
6012: x_instances_tbl(1).location_type_code := fnd_api.g_miss_char;
6013: x_instances_tbl(1).location_id := fnd_api.g_miss_num;
6014: x_instances_tbl(1).inv_subinventory_name := fnd_api.g_miss_char;
6015: x_instances_tbl(1).inv_organization_id := fnd_api.g_miss_num;
6016: x_instances_tbl(1).inv_locator_id := fnd_api.g_miss_num;
6009: x_instances_tbl(1).mfg_serial_number_flag := 'Y';
6010: END IF;
6011:
6012: x_instances_tbl(1).location_type_code := fnd_api.g_miss_char;
6013: x_instances_tbl(1).location_id := fnd_api.g_miss_num;
6014: x_instances_tbl(1).inv_subinventory_name := fnd_api.g_miss_char;
6015: x_instances_tbl(1).inv_organization_id := fnd_api.g_miss_num;
6016: x_instances_tbl(1).inv_locator_id := fnd_api.g_miss_num;
6017:
6010: END IF;
6011:
6012: x_instances_tbl(1).location_type_code := fnd_api.g_miss_char;
6013: x_instances_tbl(1).location_id := fnd_api.g_miss_num;
6014: x_instances_tbl(1).inv_subinventory_name := fnd_api.g_miss_char;
6015: x_instances_tbl(1).inv_organization_id := fnd_api.g_miss_num;
6016: x_instances_tbl(1).inv_locator_id := fnd_api.g_miss_num;
6017:
6018: x_instances_tbl(1).last_wip_job_id := p_mmt_rec.transaction_source_id;
6011:
6012: x_instances_tbl(1).location_type_code := fnd_api.g_miss_char;
6013: x_instances_tbl(1).location_id := fnd_api.g_miss_num;
6014: x_instances_tbl(1).inv_subinventory_name := fnd_api.g_miss_char;
6015: x_instances_tbl(1).inv_organization_id := fnd_api.g_miss_num;
6016: x_instances_tbl(1).inv_locator_id := fnd_api.g_miss_num;
6017:
6018: x_instances_tbl(1).last_wip_job_id := p_mmt_rec.transaction_source_id;
6019: x_instances_tbl(1).active_start_date := p_txn_ref.transaction_date;
6012: x_instances_tbl(1).location_type_code := fnd_api.g_miss_char;
6013: x_instances_tbl(1).location_id := fnd_api.g_miss_num;
6014: x_instances_tbl(1).inv_subinventory_name := fnd_api.g_miss_char;
6015: x_instances_tbl(1).inv_organization_id := fnd_api.g_miss_num;
6016: x_instances_tbl(1).inv_locator_id := fnd_api.g_miss_num;
6017:
6018: x_instances_tbl(1).last_wip_job_id := p_mmt_rec.transaction_source_id;
6019: x_instances_tbl(1).active_start_date := p_txn_ref.transaction_date;
6020: x_instances_tbl(1).customer_view_flag := 'N';
6061: p_serial_number => p_mmt_rec.serial_number,
6062: x_instance_tbl => l_issued_instances,
6063: x_return_status => l_return_status);
6064:
6065: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6066: RAISE fnd_api.g_exc_error;
6067: END IF;
6068:
6069: IF l_issued_instances.count = 1 THEN
6062: x_instance_tbl => l_issued_instances,
6063: x_return_status => l_return_status);
6064:
6065: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6066: RAISE fnd_api.g_exc_error;
6067: END IF;
6068:
6069: IF l_issued_instances.count = 1 THEN
6070: debug('Unique wip issued serial instance found. ID :'||l_issued_instances(1).instance_id);
6081: p_inventory_item_id => p_mmt_rec.inventory_item_id,
6082: p_serial_number => p_mmt_rec.serial_number,
6083: x_instance_tbl => l_issued_instances,
6084: x_return_status => l_return_status);
6085: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6086: RAISE fnd_api.g_exc_error;
6087: END IF;
6088: IF l_issued_instances.count = 1 THEN
6089: x_instances_tbl(1).instance_id := l_issued_instances(1).instance_id;
6082: p_serial_number => p_mmt_rec.serial_number,
6083: x_instance_tbl => l_issued_instances,
6084: x_return_status => l_return_status);
6085: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6086: RAISE fnd_api.g_exc_error;
6087: END IF;
6088: IF l_issued_instances.count = 1 THEN
6089: x_instances_tbl(1).instance_id := l_issued_instances(1).instance_id;
6090: l_instance_found := TRUE;
6097: p_instance_id => l_issued_instances(1).instance_id,
6098: p_csi_txn_rec => px_csi_txn_rec ,
6099: x_return_status => l_return_status);
6100:
6101: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6102: RAISE fnd_api.g_exc_error;
6103: END IF;
6104: END IF;
6105: END IF;
6098: p_csi_txn_rec => px_csi_txn_rec ,
6099: x_return_status => l_return_status);
6100:
6101: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6102: RAISE fnd_api.g_exc_error;
6103: END IF;
6104: END IF;
6105: END IF;
6106:
6136: l_ext_attrib_values_tbl csi_process_txn_grp.txn_ext_attrib_values_tbl;
6137: l_pricing_attribs_tbl csi_process_txn_grp.txn_pricing_attribs_tbl;
6138: l_instance_asset_tbl csi_process_txn_grp.txn_instance_asset_tbl;
6139: l_ii_relationships_tbl csi_process_txn_grp.txn_ii_relationships_tbl;
6140: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
6141: l_msg_count number;
6142: l_msg_data varchar2(240);
6143:
6144: l_csi_txn_rec csi_datastructures_pub.transaction_rec;
6147: l_c_instances_tbl csi_process_txn_grp.txn_instances_tbl;
6148: l_c_parties_tbl csi_process_txn_grp.txn_i_parties_tbl;
6149: l_c_org_units_tbl csi_process_txn_grp.txn_org_units_tbl;
6150:
6151: l_api_success varchar2(1) := fnd_api.g_ret_sts_success;
6152: l_error_message varchar2(2000);
6153:
6154: l_completed_instances csi_datastructures_pub.instance_tbl;
6155: l_c_ind binary_integer := 0;
6160: BEGIN
6161:
6162: savepoint wip_byproduct_completion;
6163:
6164: x_return_status := fnd_api.g_ret_sts_success;
6165:
6166: fnd_msg_pub.initialize;
6167:
6168: csi_t_gen_utility_pvt.build_file_name(
6191: x_mmt_tbl => l_mmt_tbl,
6192: x_return_status => l_return_status);
6193:
6194: IF l_return_status <> l_api_success THEN
6195: RAISE fnd_api.g_exc_error;
6196: END IF;
6197:
6198: l_error_rec.source_header_ref := l_txn_ref.wip_entity_name;
6199: l_error_rec.source_header_ref_id := l_txn_ref.wip_entity_id;
6205: l_error_rec.comms_nl_trackable_flag := l_txn_ref.ib_trackable_flag;
6206:
6207: IF l_mmt_tbl.COUNT > 0 THEN
6208:
6209: l_csi_txn_rec.transaction_id := fnd_api.g_miss_num;
6210: l_csi_txn_rec.source_transaction_date := l_txn_ref.transaction_date;
6211: l_csi_txn_rec.source_header_ref := l_txn_ref.wip_entity_name;
6212: l_csi_txn_rec.source_header_ref_id := l_txn_ref.wip_entity_id;
6213:
6230: px_csi_txn_rec => l_csi_txn_rec,
6231: x_replace_rebuilds => l_replace_rebuilds,
6232: x_return_status => l_return_status);
6233:
6234: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6235: RAISE fnd_api.g_exc_error;
6236: END IF;
6237:
6238: END IF;
6231: x_replace_rebuilds => l_replace_rebuilds,
6232: x_return_status => l_return_status);
6233:
6234: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6235: RAISE fnd_api.g_exc_error;
6236: END IF;
6237:
6238: END IF;
6239:
6253: x_org_units_tbl => l_c_org_units_tbl,
6254: x_return_status => l_return_status);
6255:
6256: IF l_return_status <> l_api_success THEN
6257: RAISE fnd_api.g_exc_error;
6258: END IF;
6259:
6260: csi_process_txn_grp.process_transaction(
6261: p_api_version => 1.0,
6258: END IF;
6259:
6260: csi_process_txn_grp.process_transaction(
6261: p_api_version => 1.0,
6262: p_commit => fnd_api.g_false,
6263: p_init_msg_list => fnd_api.g_false,
6264: p_validation_level => fnd_api.g_valid_level_full,
6265: p_validate_only_flag => fnd_api.g_false,
6266: p_in_out_flag => l_in_out_flag,
6259:
6260: csi_process_txn_grp.process_transaction(
6261: p_api_version => 1.0,
6262: p_commit => fnd_api.g_false,
6263: p_init_msg_list => fnd_api.g_false,
6264: p_validation_level => fnd_api.g_valid_level_full,
6265: p_validate_only_flag => fnd_api.g_false,
6266: p_in_out_flag => l_in_out_flag,
6267: p_dest_location_rec => l_c_dest_loc_rec,
6260: csi_process_txn_grp.process_transaction(
6261: p_api_version => 1.0,
6262: p_commit => fnd_api.g_false,
6263: p_init_msg_list => fnd_api.g_false,
6264: p_validation_level => fnd_api.g_valid_level_full,
6265: p_validate_only_flag => fnd_api.g_false,
6266: p_in_out_flag => l_in_out_flag,
6267: p_dest_location_rec => l_c_dest_loc_rec,
6268: p_txn_rec => l_csi_txn_rec,
6261: p_api_version => 1.0,
6262: p_commit => fnd_api.g_false,
6263: p_init_msg_list => fnd_api.g_false,
6264: p_validation_level => fnd_api.g_valid_level_full,
6265: p_validate_only_flag => fnd_api.g_false,
6266: p_in_out_flag => l_in_out_flag,
6267: p_dest_location_rec => l_c_dest_loc_rec,
6268: p_txn_rec => l_csi_txn_rec,
6269: p_instances_tbl => l_c_instances_tbl,
6279: x_msg_count => l_msg_count,
6280: x_msg_data => l_msg_data );
6281:
6282: IF l_return_status <> l_api_success THEN
6283: RAISE fnd_api.g_exc_error;
6284: END IF;
6285:
6286: IF l_c_instances_tbl.COUNT > 0 THEN
6287: FOR l_a_ind IN l_c_instances_tbl.FIRST .. l_c_instances_tbl.LAST
6308: p_assembly_instances => l_completed_instances,
6309: px_csi_txn_rec => l_csi_txn_rec,
6310: x_return_status => l_return_status);
6311:
6312: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6313: RAISE fnd_api.g_exc_error;
6314: END IF;
6315: END IF;
6316:
6309: px_csi_txn_rec => l_csi_txn_rec,
6310: x_return_status => l_return_status);
6311:
6312: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6313: RAISE fnd_api.g_exc_error;
6314: END IF;
6315: END IF;
6316:
6317: END IF;
6318: debug('wip Byproduct completion transaction successful : '||p_transaction_id);
6319: debug('end timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
6320:
6321: EXCEPTION
6322: WHEN fnd_api.g_exc_error THEN
6323: rollback to wip_byproduct_completion;
6324: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
6325: px_trx_error_rec := l_error_rec;
6326: x_return_status := fnd_api.g_ret_sts_error;
6322: WHEN fnd_api.g_exc_error THEN
6323: rollback to wip_byproduct_completion;
6324: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
6325: px_trx_error_rec := l_error_rec;
6326: x_return_status := fnd_api.g_ret_sts_error;
6327: debug('Error(E) :'||l_error_rec.error_text);
6328:
6329: WHEN others then
6330: rollback to wip_byproduct_completion;
6335: fnd_msg_pub.add;
6336:
6337: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
6338: px_trx_error_rec := l_error_rec;
6339: x_return_status := fnd_api.g_ret_sts_unexp_error;
6340: debug('Error(E) :'||l_error_rec.error_text);
6341:
6342: END wip_byproduct_completion;
6343:
6366: l_ext_attrib_values_tbl csi_process_txn_grp.txn_ext_attrib_values_tbl;
6367: l_pricing_attribs_tbl csi_process_txn_grp.txn_pricing_attribs_tbl;
6368: l_instance_asset_tbl csi_process_txn_grp.txn_instance_asset_tbl;
6369: l_ii_relationships_tbl csi_process_txn_grp.txn_ii_relationships_tbl;
6370: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
6371: l_msg_count number;
6372: l_msg_data varchar2(240);
6373:
6374: l_csi_txn_rec csi_datastructures_pub.transaction_rec;
6377: l_c_instances_tbl csi_process_txn_grp.txn_instances_tbl;
6378: l_c_parties_tbl csi_process_txn_grp.txn_i_parties_tbl;
6379: l_c_org_units_tbl csi_process_txn_grp.txn_org_units_tbl;
6380:
6381: l_api_success varchar2(1) := fnd_api.g_ret_sts_success;
6382: l_error_message varchar2(2000);
6383:
6384: l_completed_instances csi_datastructures_pub.instance_tbl;
6385: l_c_ind binary_integer := 0;
6390: BEGIN
6391:
6392: savepoint wip_assy_completion;
6393:
6394: x_return_status := fnd_api.g_ret_sts_success;
6395:
6396: fnd_msg_pub.initialize;
6397:
6398: csi_t_gen_utility_pvt.build_file_name(
6421: x_mmt_tbl => l_mmt_tbl,
6422: x_return_status => l_return_status);
6423:
6424: IF l_return_status <> l_api_success THEN
6425: RAISE fnd_api.g_exc_error;
6426: END IF;
6427:
6428: l_error_rec.source_header_ref := l_txn_ref.wip_entity_name;
6429: l_error_rec.source_header_ref_id := l_txn_ref.wip_entity_id;
6435: l_error_rec.comms_nl_trackable_flag := l_txn_ref.ib_trackable_flag;
6436:
6437: IF l_mmt_tbl.COUNT > 0 THEN
6438:
6439: l_csi_txn_rec.transaction_id := fnd_api.g_miss_num;
6440: l_csi_txn_rec.source_transaction_date := l_txn_ref.transaction_date;
6441: l_csi_txn_rec.source_header_ref := l_txn_ref.wip_entity_name;
6442: l_csi_txn_rec.source_header_ref_id := l_txn_ref.wip_entity_id;
6443:
6460: px_csi_txn_rec => l_csi_txn_rec,
6461: x_replace_rebuilds => l_replace_rebuilds,
6462: x_return_status => l_return_status);
6463:
6464: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6465: RAISE fnd_api.g_exc_error;
6466: END IF;
6467:
6468: END IF;
6461: x_replace_rebuilds => l_replace_rebuilds,
6462: x_return_status => l_return_status);
6463:
6464: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6465: RAISE fnd_api.g_exc_error;
6466: END IF;
6467:
6468: END IF;
6469:
6483: x_org_units_tbl => l_c_org_units_tbl,
6484: x_return_status => l_return_status);
6485:
6486: IF l_return_status <> l_api_success THEN
6487: RAISE fnd_api.g_exc_error;
6488: END IF;
6489:
6490: csi_process_txn_grp.process_transaction(
6491: p_api_version => 1.0,
6488: END IF;
6489:
6490: csi_process_txn_grp.process_transaction(
6491: p_api_version => 1.0,
6492: p_commit => fnd_api.g_false,
6493: p_init_msg_list => fnd_api.g_false,
6494: p_validation_level => fnd_api.g_valid_level_full,
6495: p_validate_only_flag => fnd_api.g_false,
6496: p_in_out_flag => l_in_out_flag,
6489:
6490: csi_process_txn_grp.process_transaction(
6491: p_api_version => 1.0,
6492: p_commit => fnd_api.g_false,
6493: p_init_msg_list => fnd_api.g_false,
6494: p_validation_level => fnd_api.g_valid_level_full,
6495: p_validate_only_flag => fnd_api.g_false,
6496: p_in_out_flag => l_in_out_flag,
6497: p_dest_location_rec => l_c_dest_loc_rec,
6490: csi_process_txn_grp.process_transaction(
6491: p_api_version => 1.0,
6492: p_commit => fnd_api.g_false,
6493: p_init_msg_list => fnd_api.g_false,
6494: p_validation_level => fnd_api.g_valid_level_full,
6495: p_validate_only_flag => fnd_api.g_false,
6496: p_in_out_flag => l_in_out_flag,
6497: p_dest_location_rec => l_c_dest_loc_rec,
6498: p_txn_rec => l_csi_txn_rec,
6491: p_api_version => 1.0,
6492: p_commit => fnd_api.g_false,
6493: p_init_msg_list => fnd_api.g_false,
6494: p_validation_level => fnd_api.g_valid_level_full,
6495: p_validate_only_flag => fnd_api.g_false,
6496: p_in_out_flag => l_in_out_flag,
6497: p_dest_location_rec => l_c_dest_loc_rec,
6498: p_txn_rec => l_csi_txn_rec,
6499: p_instances_tbl => l_c_instances_tbl,
6509: x_msg_count => l_msg_count,
6510: x_msg_data => l_msg_data );
6511:
6512: IF l_return_status <> l_api_success THEN
6513: RAISE fnd_api.g_exc_error;
6514: END IF;
6515:
6516: IF l_c_instances_tbl.COUNT > 0 THEN
6517: FOR l_a_ind IN l_c_instances_tbl.FIRST .. l_c_instances_tbl.LAST
6538: p_assembly_instances => l_completed_instances,
6539: px_csi_txn_rec => l_csi_txn_rec,
6540: x_return_status => l_return_status);
6541:
6542: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6543: RAISE fnd_api.g_exc_error;
6544: END IF;
6545: END IF;
6546:
6539: px_csi_txn_rec => l_csi_txn_rec,
6540: x_return_status => l_return_status);
6541:
6542: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6543: RAISE fnd_api.g_exc_error;
6544: END IF;
6545: END IF;
6546:
6547: END IF;
6548: debug('wip assembly completion transaction successful : '||p_transaction_id);
6549: debug('end timestamp : '||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
6550:
6551: EXCEPTION
6552: WHEN fnd_api.g_exc_error THEN
6553: rollback to wip_assy_completion;
6554: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
6555: px_trx_error_rec := l_error_rec;
6556: x_return_status := fnd_api.g_ret_sts_error;
6552: WHEN fnd_api.g_exc_error THEN
6553: rollback to wip_assy_completion;
6554: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
6555: px_trx_error_rec := l_error_rec;
6556: x_return_status := fnd_api.g_ret_sts_error;
6557: debug('Error(E) :'||l_error_rec.error_text);
6558:
6559: WHEN others then
6560: rollback to wip_assy_completion;
6565: fnd_msg_pub.add;
6566:
6567: l_error_rec.error_text := csi_t_gen_utility_pvt.dump_error_stack;
6568: px_trx_error_rec := l_error_rec;
6569: x_return_status := fnd_api.g_ret_sts_unexp_error;
6570: debug('Error(E) :'||l_error_rec.error_text);
6571:
6572: END wip_assy_completion;
6573:
6593: l_new_instance_qty number;
6594:
6595: l_iir_rec csi_datastructures_pub.ii_relationship_rec;
6596:
6597: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
6598: l_msg_count number;
6599: l_msg_data varchar2(2000);
6600:
6601: BEGIN
6601: BEGIN
6602:
6603: api_log('build_ii_relation_rec');
6604:
6605: x_return_status := fnd_api.g_ret_sts_success;
6606:
6607: IF p_tld_tbl.COUNT > 0 THEN
6608: FOR l_ind IN p_tld_tbl.FIRST .. p_tld_tbl.LAST
6609: LOOP
6635: l_new_instance_qty := l_sub_tld_qty;
6636:
6637: csi_item_instance_pvt.split_item_instance (
6638: p_api_version => 1.0,
6639: p_commit => fnd_api.g_false,
6640: p_init_msg_list => fnd_api.g_true,
6641: p_validation_level => fnd_api.g_valid_level_full,
6642: p_source_instance_rec => l_source_instance_rec,
6643: p_quantity1 => l_source_instance_qty,
6636:
6637: csi_item_instance_pvt.split_item_instance (
6638: p_api_version => 1.0,
6639: p_commit => fnd_api.g_false,
6640: p_init_msg_list => fnd_api.g_true,
6641: p_validation_level => fnd_api.g_valid_level_full,
6642: p_source_instance_rec => l_source_instance_rec,
6643: p_quantity1 => l_source_instance_qty,
6644: p_quantity2 => l_new_instance_qty,
6637: csi_item_instance_pvt.split_item_instance (
6638: p_api_version => 1.0,
6639: p_commit => fnd_api.g_false,
6640: p_init_msg_list => fnd_api.g_true,
6641: p_validation_level => fnd_api.g_valid_level_full,
6642: p_source_instance_rec => l_source_instance_rec,
6643: p_quantity1 => l_source_instance_qty,
6644: p_quantity2 => l_new_instance_qty,
6645: p_copy_ext_attribs => fnd_api.g_true,
6641: p_validation_level => fnd_api.g_valid_level_full,
6642: p_source_instance_rec => l_source_instance_rec,
6643: p_quantity1 => l_source_instance_qty,
6644: p_quantity2 => l_new_instance_qty,
6645: p_copy_ext_attribs => fnd_api.g_true,
6646: p_copy_org_assignments => fnd_api.g_true,
6647: p_copy_parties => fnd_api.g_true,
6648: p_copy_accounts => fnd_api.g_true,
6649: p_copy_asset_assignments => fnd_api.g_true,
6642: p_source_instance_rec => l_source_instance_rec,
6643: p_quantity1 => l_source_instance_qty,
6644: p_quantity2 => l_new_instance_qty,
6645: p_copy_ext_attribs => fnd_api.g_true,
6646: p_copy_org_assignments => fnd_api.g_true,
6647: p_copy_parties => fnd_api.g_true,
6648: p_copy_accounts => fnd_api.g_true,
6649: p_copy_asset_assignments => fnd_api.g_true,
6650: p_copy_pricing_attribs => fnd_api.g_true,
6643: p_quantity1 => l_source_instance_qty,
6644: p_quantity2 => l_new_instance_qty,
6645: p_copy_ext_attribs => fnd_api.g_true,
6646: p_copy_org_assignments => fnd_api.g_true,
6647: p_copy_parties => fnd_api.g_true,
6648: p_copy_accounts => fnd_api.g_true,
6649: p_copy_asset_assignments => fnd_api.g_true,
6650: p_copy_pricing_attribs => fnd_api.g_true,
6651: p_txn_rec => px_txn_rec,
6644: p_quantity2 => l_new_instance_qty,
6645: p_copy_ext_attribs => fnd_api.g_true,
6646: p_copy_org_assignments => fnd_api.g_true,
6647: p_copy_parties => fnd_api.g_true,
6648: p_copy_accounts => fnd_api.g_true,
6649: p_copy_asset_assignments => fnd_api.g_true,
6650: p_copy_pricing_attribs => fnd_api.g_true,
6651: p_txn_rec => px_txn_rec,
6652: x_new_instance_rec => l_new_instance_rec,
6645: p_copy_ext_attribs => fnd_api.g_true,
6646: p_copy_org_assignments => fnd_api.g_true,
6647: p_copy_parties => fnd_api.g_true,
6648: p_copy_accounts => fnd_api.g_true,
6649: p_copy_asset_assignments => fnd_api.g_true,
6650: p_copy_pricing_attribs => fnd_api.g_true,
6651: p_txn_rec => px_txn_rec,
6652: x_new_instance_rec => l_new_instance_rec,
6653: x_return_status => l_return_status,
6646: p_copy_org_assignments => fnd_api.g_true,
6647: p_copy_parties => fnd_api.g_true,
6648: p_copy_accounts => fnd_api.g_true,
6649: p_copy_asset_assignments => fnd_api.g_true,
6650: p_copy_pricing_attribs => fnd_api.g_true,
6651: p_txn_rec => px_txn_rec,
6652: x_new_instance_rec => l_new_instance_rec,
6653: x_return_status => l_return_status,
6654: x_msg_count => l_msg_count,
6653: x_return_status => l_return_status,
6654: x_msg_count => l_msg_count,
6655: x_msg_data => l_msg_data);
6656:
6657: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6658: RAISE fnd_api.g_exc_error;
6659: END IF;
6660: l_sub_instance_id := l_new_instance_rec.instance_id;
6661:
6654: x_msg_count => l_msg_count,
6655: x_msg_data => l_msg_data);
6656:
6657: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6658: RAISE fnd_api.g_exc_error;
6659: END IF;
6660: l_sub_instance_id := l_new_instance_rec.instance_id;
6661:
6662: UPDATE csi_t_txn_line_details
6680: WHERE object_id = l_obj_instance_id
6681: AND subject_id = l_sub_instance_id;
6682: EXCEPTION
6683: WHEN no_data_found THEN
6684: l_iir_rec.relationship_id := fnd_api.g_miss_num;
6685: l_iir_rec.object_version_number := 1.0;
6686: END;
6687:
6688: END IF;
6695:
6696: x_iir_rec := l_iir_rec;
6697:
6698: EXCEPTION
6699: WHEN fnd_api.g_exc_error THEN
6700: x_return_status := fnd_api.g_ret_sts_error;
6701: END build_ii_relation_rec;
6702:
6703: PROCEDURE update_tld_status(
6696: x_iir_rec := l_iir_rec;
6697:
6698: EXCEPTION
6699: WHEN fnd_api.g_exc_error THEN
6700: x_return_status := fnd_api.g_ret_sts_error;
6701: END build_ii_relation_rec;
6702:
6703: PROCEDURE update_tld_status(
6704: p_tld_tbl IN csi_t_datastructures_grp.txn_line_detail_tbl,
6744: l_u_iir_tbl csi_datastructures_pub.ii_relationship_tbl;
6745: l_c_ind binary_integer := 0;
6746: l_u_ind binary_integer := 0;
6747:
6748: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
6749: l_msg_count number;
6750: l_msg_data varchar2(2000);
6751: l_error_message varchar2(2000);
6752:
6768: WHERE wip_entity_id = p_wip_entity_id;
6769:
6770: debug(' wip_entity_name :'||l_wip_entity_name);
6771:
6772: x_return_status := fnd_api.g_ret_sts_success;
6773:
6774: l_tl_query_rec.source_transaction_table := 'WIP_ENTITIES';
6775: l_tl_query_rec.source_transaction_id := p_wip_entity_id;
6776: l_tld_query_rec.processing_status := 'UNPROCESSED';
6777:
6778: --get_transaction_details
6779: csi_t_txn_details_grp.get_transaction_details (
6780: p_api_version => 1.0,
6781: p_commit => fnd_api.g_false,
6782: p_init_msg_list => fnd_api.g_true,
6783: p_validation_level => fnd_api.g_valid_level_full,
6784: p_txn_line_query_rec => l_tl_query_rec,
6785: p_txn_line_detail_query_rec => l_tld_query_rec,
6778: --get_transaction_details
6779: csi_t_txn_details_grp.get_transaction_details (
6780: p_api_version => 1.0,
6781: p_commit => fnd_api.g_false,
6782: p_init_msg_list => fnd_api.g_true,
6783: p_validation_level => fnd_api.g_valid_level_full,
6784: p_txn_line_query_rec => l_tl_query_rec,
6785: p_txn_line_detail_query_rec => l_tld_query_rec,
6786: x_txn_line_detail_tbl => l_tld_tbl,
6779: csi_t_txn_details_grp.get_transaction_details (
6780: p_api_version => 1.0,
6781: p_commit => fnd_api.g_false,
6782: p_init_msg_list => fnd_api.g_true,
6783: p_validation_level => fnd_api.g_valid_level_full,
6784: p_txn_line_query_rec => l_tl_query_rec,
6785: p_txn_line_detail_query_rec => l_tld_query_rec,
6786: x_txn_line_detail_tbl => l_tld_tbl,
6787: p_get_parties_flag => fnd_api.g_false,
6783: p_validation_level => fnd_api.g_valid_level_full,
6784: p_txn_line_query_rec => l_tl_query_rec,
6785: p_txn_line_detail_query_rec => l_tld_query_rec,
6786: x_txn_line_detail_tbl => l_tld_tbl,
6787: p_get_parties_flag => fnd_api.g_false,
6788: x_txn_party_detail_tbl => l_tpty_tbl,
6789: p_get_pty_accts_flag => fnd_api.g_false,
6790: x_txn_pty_acct_detail_tbl => l_tpacct_tbl,
6791: p_get_ii_rltns_flag => fnd_api.g_true,
6785: p_txn_line_detail_query_rec => l_tld_query_rec,
6786: x_txn_line_detail_tbl => l_tld_tbl,
6787: p_get_parties_flag => fnd_api.g_false,
6788: x_txn_party_detail_tbl => l_tpty_tbl,
6789: p_get_pty_accts_flag => fnd_api.g_false,
6790: x_txn_pty_acct_detail_tbl => l_tpacct_tbl,
6791: p_get_ii_rltns_flag => fnd_api.g_true,
6792: x_txn_ii_rltns_tbl => l_tiir_tbl,
6793: p_get_org_assgns_flag => fnd_api.g_false,
6787: p_get_parties_flag => fnd_api.g_false,
6788: x_txn_party_detail_tbl => l_tpty_tbl,
6789: p_get_pty_accts_flag => fnd_api.g_false,
6790: x_txn_pty_acct_detail_tbl => l_tpacct_tbl,
6791: p_get_ii_rltns_flag => fnd_api.g_true,
6792: x_txn_ii_rltns_tbl => l_tiir_tbl,
6793: p_get_org_assgns_flag => fnd_api.g_false,
6794: x_txn_org_assgn_tbl => l_toa_tbl,
6795: p_get_ext_attrib_vals_flag => fnd_api.g_false,
6789: p_get_pty_accts_flag => fnd_api.g_false,
6790: x_txn_pty_acct_detail_tbl => l_tpacct_tbl,
6791: p_get_ii_rltns_flag => fnd_api.g_true,
6792: x_txn_ii_rltns_tbl => l_tiir_tbl,
6793: p_get_org_assgns_flag => fnd_api.g_false,
6794: x_txn_org_assgn_tbl => l_toa_tbl,
6795: p_get_ext_attrib_vals_flag => fnd_api.g_false,
6796: x_txn_ext_attrib_vals_tbl => l_teav_tbl,
6797: p_get_csi_attribs_flag => fnd_api.g_false,
6791: p_get_ii_rltns_flag => fnd_api.g_true,
6792: x_txn_ii_rltns_tbl => l_tiir_tbl,
6793: p_get_org_assgns_flag => fnd_api.g_false,
6794: x_txn_org_assgn_tbl => l_toa_tbl,
6795: p_get_ext_attrib_vals_flag => fnd_api.g_false,
6796: x_txn_ext_attrib_vals_tbl => l_teav_tbl,
6797: p_get_csi_attribs_flag => fnd_api.g_false,
6798: x_csi_ext_attribs_tbl => l_cea_tbl,
6799: p_get_csi_iea_values_flag => fnd_api.g_false,
6793: p_get_org_assgns_flag => fnd_api.g_false,
6794: x_txn_org_assgn_tbl => l_toa_tbl,
6795: p_get_ext_attrib_vals_flag => fnd_api.g_false,
6796: x_txn_ext_attrib_vals_tbl => l_teav_tbl,
6797: p_get_csi_attribs_flag => fnd_api.g_false,
6798: x_csi_ext_attribs_tbl => l_cea_tbl,
6799: p_get_csi_iea_values_flag => fnd_api.g_false,
6800: x_csi_iea_values_tbl => l_ceav_tbl,
6801: p_get_txn_systems_flag => fnd_api.g_false,
6795: p_get_ext_attrib_vals_flag => fnd_api.g_false,
6796: x_txn_ext_attrib_vals_tbl => l_teav_tbl,
6797: p_get_csi_attribs_flag => fnd_api.g_false,
6798: x_csi_ext_attribs_tbl => l_cea_tbl,
6799: p_get_csi_iea_values_flag => fnd_api.g_false,
6800: x_csi_iea_values_tbl => l_ceav_tbl,
6801: p_get_txn_systems_flag => fnd_api.g_false,
6802: x_txn_systems_tbl => l_tsys_tbl,
6803: x_return_status => l_return_status,
6797: p_get_csi_attribs_flag => fnd_api.g_false,
6798: x_csi_ext_attribs_tbl => l_cea_tbl,
6799: p_get_csi_iea_values_flag => fnd_api.g_false,
6800: x_csi_iea_values_tbl => l_ceav_tbl,
6801: p_get_txn_systems_flag => fnd_api.g_false,
6802: x_txn_systems_tbl => l_tsys_tbl,
6803: x_return_status => l_return_status,
6804: x_msg_count => l_msg_count,
6805: x_msg_data => l_msg_data);
6803: x_return_status => l_return_status,
6804: x_msg_count => l_msg_count,
6805: x_msg_data => l_msg_data);
6806:
6807: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6808: RAISE fnd_api.g_exc_error;
6809: END IF;
6810:
6811: debug(' txn_detail.count :'||l_tld_tbl.COUNT);
6804: x_msg_count => l_msg_count,
6805: x_msg_data => l_msg_data);
6806:
6807: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6808: RAISE fnd_api.g_exc_error;
6809: END IF;
6810:
6811: debug(' txn_detail.count :'||l_tld_tbl.COUNT);
6812: debug(' txn_rltns.count :'||l_tiir_tbl.COUNT);
6830: px_txn_rec => l_txn_rec,
6831: x_iir_rec => l_iir_rec,
6832: x_return_status => l_return_status);
6833:
6834: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6835: RAISE fnd_api.g_exc_error;
6836: END IF;
6837:
6838: IF nvl(l_iir_rec.relationship_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
6831: x_iir_rec => l_iir_rec,
6832: x_return_status => l_return_status);
6833:
6834: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6835: RAISE fnd_api.g_exc_error;
6836: END IF;
6837:
6838: IF nvl(l_iir_rec.relationship_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
6839: l_c_ind := l_c_ind + 1;
6834: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6835: RAISE fnd_api.g_exc_error;
6836: END IF;
6837:
6838: IF nvl(l_iir_rec.relationship_id, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
6839: l_c_ind := l_c_ind + 1;
6840: l_c_iir_tbl(l_c_ind) := l_iir_rec;
6841: ELSE
6842: l_u_ind := l_u_ind + 1;
6852: p_api_name => 'create_relationship');
6853:
6854: csi_ii_relationships_pub.create_relationship(
6855: p_api_version => 1.0,
6856: p_commit => fnd_api.g_false,
6857: p_init_msg_list => fnd_api.g_true,
6858: p_validation_level => fnd_api.g_valid_level_full,
6859: p_relationship_tbl => l_c_iir_tbl,
6860: p_txn_rec => l_txn_rec,
6853:
6854: csi_ii_relationships_pub.create_relationship(
6855: p_api_version => 1.0,
6856: p_commit => fnd_api.g_false,
6857: p_init_msg_list => fnd_api.g_true,
6858: p_validation_level => fnd_api.g_valid_level_full,
6859: p_relationship_tbl => l_c_iir_tbl,
6860: p_txn_rec => l_txn_rec,
6861: x_return_status => l_return_status,
6854: csi_ii_relationships_pub.create_relationship(
6855: p_api_version => 1.0,
6856: p_commit => fnd_api.g_false,
6857: p_init_msg_list => fnd_api.g_true,
6858: p_validation_level => fnd_api.g_valid_level_full,
6859: p_relationship_tbl => l_c_iir_tbl,
6860: p_txn_rec => l_txn_rec,
6861: x_return_status => l_return_status,
6862: x_msg_count => l_msg_count,
6861: x_return_status => l_return_status,
6862: x_msg_count => l_msg_count,
6863: x_msg_data => l_msg_data);
6864:
6865: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6866: RAISE fnd_api.g_exc_error;
6867: END IF;
6868: END IF;
6869:
6862: x_msg_count => l_msg_count,
6863: x_msg_data => l_msg_data);
6864:
6865: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6866: RAISE fnd_api.g_exc_error;
6867: END IF;
6868: END IF;
6869:
6870: debug('update_relationship.COUNT :'||l_u_iir_tbl.COUNT);
6875: p_api_name => 'update_relationship');
6876:
6877: debug('No code here yet for update relationship...');
6878:
6879: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6880: RAISE fnd_api.g_exc_error;
6881: END IF;
6882: END IF;
6883:
6876:
6877: debug('No code here yet for update relationship...');
6878:
6879: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6880: RAISE fnd_api.g_exc_error;
6881: END IF;
6882: END IF;
6883:
6884: update_tld_status(
6884: update_tld_status(
6885: p_tld_tbl => l_tld_tbl,
6886: x_return_status => l_return_status);
6887:
6888: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6889: RAISE fnd_api.g_exc_error;
6890: END IF;
6891:
6892: END IF;
6885: p_tld_tbl => l_tld_tbl,
6886: x_return_status => l_return_status);
6887:
6888: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6889: RAISE fnd_api.g_exc_error;
6890: END IF;
6891:
6892: END IF;
6893:
6891:
6892: END IF;
6893:
6894: EXCEPTION
6895: WHEN fnd_api.g_exc_error THEN
6896:
6897: rollback to process_manual_rltns;
6898: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
6899: debug('Error :'||l_error_message);
6898: l_error_message := csi_t_gen_utility_pvt.dump_error_stack;
6899: debug('Error :'||l_error_message);
6900:
6901: x_error_message := l_error_message;
6902: x_return_status := fnd_api.g_ret_sts_error;
6903: END process_manual_rltns;
6904:
6905: PROCEDURE eam_wip_completion(
6906: p_wip_entity_id IN number,
6919: AND msi.organization_id = mmt.organization_id
6920: AND msi.inventory_item_id = mmt.inventory_item_id
6921: AND nvl(msi.comms_nl_trackable_flag, 'N') = 'Y';
6922:
6923: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
6924: l_processed_flag boolean := FALSE;
6925:
6926: CURSOR wip_inst_cur(p_wip_entity_id IN number, p_instance_id IN number) IS
6927: SELECT instance_id,
6960: END replace_rebuild;
6961:
6962: BEGIN
6963:
6964: x_return_status := fnd_api.g_ret_sts_success;
6965:
6966: csi_t_gen_utility_pvt.build_file_name(
6967: p_file_segment1 => 'csieamwc',
6968: p_file_segment2 => p_wip_entity_id);
6998: px_csi_txn_rec => l_csi_txn_rec,
6999: x_replace_rebuilds => l_replace_rebuilds,
7000: x_return_status => l_return_status);
7001:
7002: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7003: RAISE fnd_api.g_exc_error;
7004: END IF;
7005:
7006: FOR mtl_txn_rec IN mtl_txn_cur(
6999: x_replace_rebuilds => l_replace_rebuilds,
7000: x_return_status => l_return_status);
7001:
7002: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7003: RAISE fnd_api.g_exc_error;
7004: END IF;
7005:
7006: FOR mtl_txn_rec IN mtl_txn_cur(
7007: p_wip_entity_id => p_wip_entity_id,
7014: p_transaction_id => mtl_txn_rec.transaction_id,
7015: x_txn_found => l_processed_flag,
7016: x_return_status => l_return_status);
7017:
7018: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7019: RAISE fnd_api.g_exc_error;
7020: END IF;
7021:
7022: IF NOT( l_processed_flag ) THEN
7015: x_txn_found => l_processed_flag,
7016: x_return_status => l_return_status);
7017:
7018: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7019: RAISE fnd_api.g_exc_error;
7020: END IF;
7021:
7022: IF NOT( l_processed_flag ) THEN
7023:
7025: fnd_message.set_token('WIP_ENTITY_ID', p_wip_entity_id);
7026: fnd_message.set_token('MTL_TXN_ID', mtl_txn_rec.transaction_id);
7027:
7028: fnd_msg_pub.add;
7029: RAISE fnd_api.g_exc_error;
7030: END IF;
7031:
7032: END LOOP;
7033:
7051: -- eliminate replace rebuilds that are in the wip location
7052: IF NOT(replace_rebuild(wip_inst_rec.instance_id, l_replace_rebuilds)) THEN
7053:
7054: l_iir_ind := l_iir_ind + 1;
7055: l_ii_rltns_tbl(l_iir_ind).relationship_id := fnd_api.g_miss_num;
7056: l_ii_rltns_tbl(l_iir_ind).object_id := l_instance_id;
7057: l_ii_rltns_tbl(l_iir_ind).subject_id := wip_inst_rec.instance_id;
7058: l_ii_rltns_tbl(l_iir_ind).relationship_type_code := 'COMPONENT-OF';
7059:
7070: api_log(p_pkg_name => 'csi_ii_relationships_pub',p_api_name => 'create_relationship');
7071:
7072: csi_ii_relationships_pub.create_relationship(
7073: p_api_version => 1.0,
7074: p_commit => fnd_api.g_false,
7075: p_init_msg_list => fnd_api.g_true,
7076: p_validation_level => fnd_api.g_valid_level_full,
7077: p_relationship_tbl => l_ii_rltns_tbl,
7078: p_txn_rec => l_csi_txn_rec,
7071:
7072: csi_ii_relationships_pub.create_relationship(
7073: p_api_version => 1.0,
7074: p_commit => fnd_api.g_false,
7075: p_init_msg_list => fnd_api.g_true,
7076: p_validation_level => fnd_api.g_valid_level_full,
7077: p_relationship_tbl => l_ii_rltns_tbl,
7078: p_txn_rec => l_csi_txn_rec,
7079: x_return_status => l_return_status,
7072: csi_ii_relationships_pub.create_relationship(
7073: p_api_version => 1.0,
7074: p_commit => fnd_api.g_false,
7075: p_init_msg_list => fnd_api.g_true,
7076: p_validation_level => fnd_api.g_valid_level_full,
7077: p_relationship_tbl => l_ii_rltns_tbl,
7078: p_txn_rec => l_csi_txn_rec,
7079: x_return_status => l_return_status,
7080: x_msg_count => l_msg_count,
7079: x_return_status => l_return_status,
7080: x_msg_count => l_msg_count,
7081: x_msg_data => l_msg_data);
7082:
7083: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7084: RAISE fnd_api.g_exc_error;
7085: END IF;
7086:
7087: END IF;
7080: x_msg_count => l_msg_count,
7081: x_msg_data => l_msg_data);
7082:
7083: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7084: RAISE fnd_api.g_exc_error;
7085: END IF;
7086:
7087: END IF;
7088:
7088:
7089: debug('eam_wip_completion successful');
7090:
7091: EXCEPTION
7092: WHEN fnd_api.g_exc_error THEN
7093: x_return_status := fnd_api.g_ret_sts_error;
7094: END eam_wip_completion;
7095:
7096: PROCEDURE eam_rebuildable_return(
7089: debug('eam_wip_completion successful');
7090:
7091: EXCEPTION
7092: WHEN fnd_api.g_exc_error THEN
7093: x_return_status := fnd_api.g_ret_sts_error;
7094: END eam_wip_completion;
7095:
7096: PROCEDURE eam_rebuildable_return(
7097: p_wip_entity_id IN number,
7100: px_trx_error_rec OUT nocopy csi_datastructures_pub.transaction_error_rec,
7101: x_return_status OUT nocopy varchar2)
7102: IS
7103: l_csi_txn_rec csi_datastructures_pub.transaction_rec;
7104: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
7105: BEGIN
7106:
7107: x_return_status := fnd_api.g_ret_sts_success;
7108:
7103: l_csi_txn_rec csi_datastructures_pub.transaction_rec;
7104: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
7105: BEGIN
7106:
7107: x_return_status := fnd_api.g_ret_sts_success;
7108:
7109: csi_t_gen_utility_pvt.build_file_name(
7110: p_file_segment1 => 'csieamrr',
7111: p_file_segment2 => p_wip_entity_id);
7140: p_instance_id => p_instance_id,
7141: p_csi_txn_rec => l_csi_txn_rec ,
7142: x_return_status => l_return_status);
7143:
7144: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7145: RAISE fnd_api.g_exc_error;
7146: END IF;
7147:
7148: debug('eam_rebuildable_return successful');
7141: p_csi_txn_rec => l_csi_txn_rec ,
7142: x_return_status => l_return_status);
7143:
7144: IF l_return_status <> fnd_api.g_ret_sts_success THEN
7145: RAISE fnd_api.g_exc_error;
7146: END IF;
7147:
7148: debug('eam_rebuildable_return successful');
7149:
7147:
7148: debug('eam_rebuildable_return successful');
7149:
7150: EXCEPTION
7151: WHEN fnd_api.g_exc_error THEN
7152: x_return_status := fnd_api.g_ret_sts_error;
7153: END eam_rebuildable_return;
7154:
7155: END csi_wip_trxs_pkg;
7148: debug('eam_rebuildable_return successful');
7149:
7150: EXCEPTION
7151: WHEN fnd_api.g_exc_error THEN
7152: x_return_status := fnd_api.g_ret_sts_error;
7153: END eam_rebuildable_return;
7154:
7155: END csi_wip_trxs_pkg;