[Home] [Help]
404: -- Cursors
405: CURSOR selected_instance_csr (p_txn_line_id IN NUMBER) IS
406: SELECT ctld.instance_id
407: ,ctld.transaction_line_id
408: ,nvl(ctld.location_id, FND_API.G_MISS_NUM) location_id
409: ,nvl(ctld.location_type_code, FND_API.G_MISS_CHAR) location_type_code
410: ,nvl(ctld.install_location_id, FND_API.G_MISS_NUM) install_location_id
411: ,nvl(ctld.install_location_type_code, FND_API.G_MISS_CHAR) install_location_type_code
412: ,cii.object_version_number
405: CURSOR selected_instance_csr (p_txn_line_id IN NUMBER) IS
406: SELECT ctld.instance_id
407: ,ctld.transaction_line_id
408: ,nvl(ctld.location_id, FND_API.G_MISS_NUM) location_id
409: ,nvl(ctld.location_type_code, FND_API.G_MISS_CHAR) location_type_code
410: ,nvl(ctld.install_location_id, FND_API.G_MISS_NUM) install_location_id
411: ,nvl(ctld.install_location_type_code, FND_API.G_MISS_CHAR) install_location_type_code
412: ,cii.object_version_number
413: ,cii.instance_usage_code
406: SELECT ctld.instance_id
407: ,ctld.transaction_line_id
408: ,nvl(ctld.location_id, FND_API.G_MISS_NUM) location_id
409: ,nvl(ctld.location_type_code, FND_API.G_MISS_CHAR) location_type_code
410: ,nvl(ctld.install_location_id, FND_API.G_MISS_NUM) install_location_id
411: ,nvl(ctld.install_location_type_code, FND_API.G_MISS_CHAR) install_location_type_code
412: ,cii.object_version_number
413: ,cii.instance_usage_code
414: FROM csi_t_txn_line_details ctld,
407: ,ctld.transaction_line_id
408: ,nvl(ctld.location_id, FND_API.G_MISS_NUM) location_id
409: ,nvl(ctld.location_type_code, FND_API.G_MISS_CHAR) location_type_code
410: ,nvl(ctld.install_location_id, FND_API.G_MISS_NUM) install_location_id
411: ,nvl(ctld.install_location_type_code, FND_API.G_MISS_CHAR) install_location_type_code
412: ,cii.object_version_number
413: ,cii.instance_usage_code
414: FROM csi_t_txn_line_details ctld,
415: csi_item_instances cii
479: d_ext_attrib_tbl csi_t_datastructures_grp.txn_ext_attrib_vals_tbl;
480: d_csi_ea_tbl csi_t_datastructures_grp.csi_ext_attribs_tbl;
481: d_csi_eav_tbl csi_t_datastructures_grp.csi_ext_attrib_vals_tbl;
482: d_txn_systems_tbl csi_t_datastructures_grp.txn_systems_tbl;
483: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
484: l_msg_count NUMBER;
485: l_msg_data VARCHAR2(2000);
486:
487: -- New Tables for the selected instances in the batch
601: debug(' ');
602: errbuf := 'E';
603: WHEN OTHERS THEN
604: debug('When others exception from Mass Edit Entry processing query..'||to_char(sqlcode)||'-'||substr(sqlerrm, 1, 255));
605: raise fnd_api.g_exc_error;
606: END;
607:
608: debug(' Processing Mass Edit Batch :'||l_name);
609: debug(' Batch Id : '||p_entry_id);
641: errbuf := 'E';
642: debug(' ');
643: WHEN OTHERS THEN
644: debug('When others exception from Mass Edit Entry processing query..'||to_char(sqlcode)||'-'||substr(sqlerrm, 1, 255));
645: raise fnd_api.g_exc_error;
646: END;
647:
648: IF l_found_batch is not null
649: THEN
679: x_return_status => l_return_status
680: );
681: debug('Return status from validation routine : '|| l_return_status);
682:
683: If l_return_status <> fnd_api.g_ret_sts_success
684: Then
685: If l_medit_error_tbl.count > 0
686: Then
687: l_temp_merror_tbl.delete;
737: d_txn_line_detail_query_rec.instance_exists_flag := 'N';
738:
739: csi_t_txn_details_grp.get_transaction_details(
740: p_api_version => 1.0,
741: p_commit => fnd_api.g_false,
742: p_init_msg_list => fnd_api.g_true,
743: p_validation_level => fnd_api.g_valid_level_full,
744: p_txn_line_query_rec => d_txn_line_query_rec,
745: p_txn_line_detail_query_rec => d_txn_line_detail_query_rec,
738:
739: csi_t_txn_details_grp.get_transaction_details(
740: p_api_version => 1.0,
741: p_commit => fnd_api.g_false,
742: p_init_msg_list => fnd_api.g_true,
743: p_validation_level => fnd_api.g_valid_level_full,
744: p_txn_line_query_rec => d_txn_line_query_rec,
745: p_txn_line_detail_query_rec => d_txn_line_detail_query_rec,
746: x_txn_line_detail_tbl => d_line_dtl_tbl,
739: csi_t_txn_details_grp.get_transaction_details(
740: p_api_version => 1.0,
741: p_commit => fnd_api.g_false,
742: p_init_msg_list => fnd_api.g_true,
743: p_validation_level => fnd_api.g_valid_level_full,
744: p_txn_line_query_rec => d_txn_line_query_rec,
745: p_txn_line_detail_query_rec => d_txn_line_detail_query_rec,
746: x_txn_line_detail_tbl => d_line_dtl_tbl,
747: p_get_parties_flag => fnd_api.g_true,
743: p_validation_level => fnd_api.g_valid_level_full,
744: p_txn_line_query_rec => d_txn_line_query_rec,
745: p_txn_line_detail_query_rec => d_txn_line_detail_query_rec,
746: x_txn_line_detail_tbl => d_line_dtl_tbl,
747: p_get_parties_flag => fnd_api.g_true,
748: x_txn_party_detail_tbl => d_pty_dtl_tbl,
749: p_get_pty_accts_flag => fnd_api.g_true,
750: x_txn_pty_acct_detail_tbl => d_pty_acct_tbl,
751: p_get_ii_rltns_flag => fnd_api.g_true,
745: p_txn_line_detail_query_rec => d_txn_line_detail_query_rec,
746: x_txn_line_detail_tbl => d_line_dtl_tbl,
747: p_get_parties_flag => fnd_api.g_true,
748: x_txn_party_detail_tbl => d_pty_dtl_tbl,
749: p_get_pty_accts_flag => fnd_api.g_true,
750: x_txn_pty_acct_detail_tbl => d_pty_acct_tbl,
751: p_get_ii_rltns_flag => fnd_api.g_true,
752: x_txn_ii_rltns_tbl => d_ii_rltns_tbl,
753: p_get_org_assgns_flag => fnd_api.g_true,
747: p_get_parties_flag => fnd_api.g_true,
748: x_txn_party_detail_tbl => d_pty_dtl_tbl,
749: p_get_pty_accts_flag => fnd_api.g_true,
750: x_txn_pty_acct_detail_tbl => d_pty_acct_tbl,
751: p_get_ii_rltns_flag => fnd_api.g_true,
752: x_txn_ii_rltns_tbl => d_ii_rltns_tbl,
753: p_get_org_assgns_flag => fnd_api.g_true,
754: x_txn_org_assgn_tbl => d_org_assgn_tbl,
755: p_get_ext_attrib_vals_flag => fnd_api.g_true,
749: p_get_pty_accts_flag => fnd_api.g_true,
750: x_txn_pty_acct_detail_tbl => d_pty_acct_tbl,
751: p_get_ii_rltns_flag => fnd_api.g_true,
752: x_txn_ii_rltns_tbl => d_ii_rltns_tbl,
753: p_get_org_assgns_flag => fnd_api.g_true,
754: x_txn_org_assgn_tbl => d_org_assgn_tbl,
755: p_get_ext_attrib_vals_flag => fnd_api.g_true,
756: x_txn_ext_attrib_vals_tbl => d_ext_attrib_tbl,
757: p_get_csi_attribs_flag => fnd_api.g_false,
751: p_get_ii_rltns_flag => fnd_api.g_true,
752: x_txn_ii_rltns_tbl => d_ii_rltns_tbl,
753: p_get_org_assgns_flag => fnd_api.g_true,
754: x_txn_org_assgn_tbl => d_org_assgn_tbl,
755: p_get_ext_attrib_vals_flag => fnd_api.g_true,
756: x_txn_ext_attrib_vals_tbl => d_ext_attrib_tbl,
757: p_get_csi_attribs_flag => fnd_api.g_false,
758: x_csi_ext_attribs_tbl => d_csi_ea_tbl,
759: p_get_csi_iea_values_flag => fnd_api.g_false,
753: p_get_org_assgns_flag => fnd_api.g_true,
754: x_txn_org_assgn_tbl => d_org_assgn_tbl,
755: p_get_ext_attrib_vals_flag => fnd_api.g_true,
756: x_txn_ext_attrib_vals_tbl => d_ext_attrib_tbl,
757: p_get_csi_attribs_flag => fnd_api.g_false,
758: x_csi_ext_attribs_tbl => d_csi_ea_tbl,
759: p_get_csi_iea_values_flag => fnd_api.g_false,
760: x_csi_iea_values_tbl => d_csi_eav_tbl,
761: p_get_txn_systems_flag => fnd_api.g_false,
755: p_get_ext_attrib_vals_flag => fnd_api.g_true,
756: x_txn_ext_attrib_vals_tbl => d_ext_attrib_tbl,
757: p_get_csi_attribs_flag => fnd_api.g_false,
758: x_csi_ext_attribs_tbl => d_csi_ea_tbl,
759: p_get_csi_iea_values_flag => fnd_api.g_false,
760: x_csi_iea_values_tbl => d_csi_eav_tbl,
761: p_get_txn_systems_flag => fnd_api.g_false,
762: x_txn_systems_tbl => d_txn_systems_tbl,
763: x_return_status => l_return_status,
757: p_get_csi_attribs_flag => fnd_api.g_false,
758: x_csi_ext_attribs_tbl => d_csi_ea_tbl,
759: p_get_csi_iea_values_flag => fnd_api.g_false,
760: x_csi_iea_values_tbl => d_csi_eav_tbl,
761: p_get_txn_systems_flag => fnd_api.g_false,
762: x_txn_systems_tbl => d_txn_systems_tbl,
763: x_return_status => l_return_status,
764: x_msg_count => l_msg_count,
765: x_msg_data => l_msg_data);
763: x_return_status => l_return_status,
764: x_msg_count => l_msg_count,
765: x_msg_data => l_msg_data);
766:
767: IF l_return_status <> fnd_api.g_ret_sts_success THEN
768: RAISE fnd_api.g_exc_error;
769: END IF;
770:
771: debug('After get_transaction_details :');
764: x_msg_count => l_msg_count,
765: x_msg_data => l_msg_data);
766:
767: IF l_return_status <> fnd_api.g_ret_sts_success THEN
768: RAISE fnd_api.g_exc_error;
769: END IF;
770:
771: debug('After get_transaction_details :');
772: debug(' line_dtl_tbl.count :'||d_line_dtl_tbl.count);
791: n_inst_ind := n_inst_ind + 1;
792: n_instance_tbl(n_inst_ind).instance_id := l_instance_csr.instance_id;
793: n_instance_tbl(n_inst_ind).object_version_number := l_instance_csr.object_version_number;
794: -- System
795: If nvl(d_line_dtl_tbl(1).csi_system_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
796: Then
797: n_instance_tbl(n_inst_ind).system_id := d_line_dtl_tbl(1).csi_system_id;
798: End If;
799: -- Instance Status
796: Then
797: n_instance_tbl(n_inst_ind).system_id := d_line_dtl_tbl(1).csi_system_id;
798: End If;
799: -- Instance Status
800: If nvl(d_line_dtl_tbl(1).instance_status_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
801: Then
802: n_instance_tbl(n_inst_ind).instance_status_id := d_line_dtl_tbl(1).instance_status_id;
803: End If;
804: -- External Reference
801: Then
802: n_instance_tbl(n_inst_ind).instance_status_id := d_line_dtl_tbl(1).instance_status_id;
803: End If;
804: -- External Reference
805: If nvl(d_line_dtl_tbl(1).external_reference,fnd_api.g_miss_char) <> fnd_api.g_miss_char
806: Then
807: n_instance_tbl(n_inst_ind).external_reference := d_line_dtl_tbl(1).external_reference;
808: End If;
809: -- Version Label
806: Then
807: n_instance_tbl(n_inst_ind).external_reference := d_line_dtl_tbl(1).external_reference;
808: End If;
809: -- Version Label
810: If nvl(d_line_dtl_tbl(1).version_label,fnd_api.g_miss_char) <> fnd_api.g_miss_char
811: Then
812: n_instance_tbl(n_inst_ind).version_label := d_line_dtl_tbl(1).version_label;
813: End If ;
814: -- Transfer Date
811: Then
812: n_instance_tbl(n_inst_ind).version_label := d_line_dtl_tbl(1).version_label;
813: End If ;
814: -- Transfer Date
815: IF nvl(d_line_dtl_tbl(1).active_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date
816: Then
817: n_instance_tbl(n_inst_ind).active_start_date := d_line_dtl_tbl(1).active_start_date;
818: End If;
819: -- Termination Date
816: Then
817: n_instance_tbl(n_inst_ind).active_start_date := d_line_dtl_tbl(1).active_start_date;
818: End If;
819: -- Termination Date
820: IF nvl(d_line_dtl_tbl(1).active_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date
821: Then
822: n_instance_tbl(n_inst_ind).active_end_date := d_line_dtl_tbl(1).active_end_date;
823: End If;
824:
821: Then
822: n_instance_tbl(n_inst_ind).active_end_date := d_line_dtl_tbl(1).active_end_date;
823: End If;
824:
825: IF nvl(d_line_dtl_tbl(1).active_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date THEN
826: debug('Setting Termination Date in instance Rec');
827: n_txn_rec.source_transaction_date := d_line_dtl_tbl(1).active_end_date;
828: End If;
829: debug('Termination Date.........................:'||n_txn_rec.source_transaction_date);
828: End If;
829: debug('Termination Date.........................:'||n_txn_rec.source_transaction_date);
830:
831: -- Install Date
832: IF nvl(d_line_dtl_tbl(1).installation_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date
833: Then
834: n_instance_tbl(n_inst_ind).install_date := d_line_dtl_tbl(1).installation_date;
835: End If;
836:
836:
837: -- Install and Current Location Changes
838: IF l_batch_type in ('XFER','MOVE')
839: Then
840: IF nvl(l_instance_csr.instance_usage_code,fnd_api.g_miss_char) = 'IN_RELATIONSHIP'
841: Then
842: n_instance_tbl(n_inst_ind).location_id := fnd_api.g_miss_num;
843: n_instance_tbl(n_inst_ind).location_type_code := fnd_api.g_miss_char;
844: n_instance_tbl(n_inst_ind).install_location_id := fnd_api.g_miss_num;
838: IF l_batch_type in ('XFER','MOVE')
839: Then
840: IF nvl(l_instance_csr.instance_usage_code,fnd_api.g_miss_char) = 'IN_RELATIONSHIP'
841: Then
842: n_instance_tbl(n_inst_ind).location_id := fnd_api.g_miss_num;
843: n_instance_tbl(n_inst_ind).location_type_code := fnd_api.g_miss_char;
844: n_instance_tbl(n_inst_ind).install_location_id := fnd_api.g_miss_num;
845: n_instance_tbl(n_inst_ind).install_location_type_code := fnd_api.g_miss_char;
846: Else
839: Then
840: IF nvl(l_instance_csr.instance_usage_code,fnd_api.g_miss_char) = 'IN_RELATIONSHIP'
841: Then
842: n_instance_tbl(n_inst_ind).location_id := fnd_api.g_miss_num;
843: n_instance_tbl(n_inst_ind).location_type_code := fnd_api.g_miss_char;
844: n_instance_tbl(n_inst_ind).install_location_id := fnd_api.g_miss_num;
845: n_instance_tbl(n_inst_ind).install_location_type_code := fnd_api.g_miss_char;
846: Else
847: IF nvl(d_line_dtl_tbl(1).location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
840: IF nvl(l_instance_csr.instance_usage_code,fnd_api.g_miss_char) = 'IN_RELATIONSHIP'
841: Then
842: n_instance_tbl(n_inst_ind).location_id := fnd_api.g_miss_num;
843: n_instance_tbl(n_inst_ind).location_type_code := fnd_api.g_miss_char;
844: n_instance_tbl(n_inst_ind).install_location_id := fnd_api.g_miss_num;
845: n_instance_tbl(n_inst_ind).install_location_type_code := fnd_api.g_miss_char;
846: Else
847: IF nvl(d_line_dtl_tbl(1).location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
848: Then
841: Then
842: n_instance_tbl(n_inst_ind).location_id := fnd_api.g_miss_num;
843: n_instance_tbl(n_inst_ind).location_type_code := fnd_api.g_miss_char;
844: n_instance_tbl(n_inst_ind).install_location_id := fnd_api.g_miss_num;
845: n_instance_tbl(n_inst_ind).install_location_type_code := fnd_api.g_miss_char;
846: Else
847: IF nvl(d_line_dtl_tbl(1).location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
848: Then
849: n_instance_tbl(n_inst_ind).location_id := d_line_dtl_tbl(1).location_id;
843: n_instance_tbl(n_inst_ind).location_type_code := fnd_api.g_miss_char;
844: n_instance_tbl(n_inst_ind).install_location_id := fnd_api.g_miss_num;
845: n_instance_tbl(n_inst_ind).install_location_type_code := fnd_api.g_miss_char;
846: Else
847: IF nvl(d_line_dtl_tbl(1).location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
848: Then
849: n_instance_tbl(n_inst_ind).location_id := d_line_dtl_tbl(1).location_id;
850: End If;
851: IF nvl(d_line_dtl_tbl(1).location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
847: IF nvl(d_line_dtl_tbl(1).location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
848: Then
849: n_instance_tbl(n_inst_ind).location_id := d_line_dtl_tbl(1).location_id;
850: End If;
851: IF nvl(d_line_dtl_tbl(1).location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
852: Then
853: n_instance_tbl(n_inst_ind).location_type_code := d_line_dtl_tbl(1).location_type_code;
854: End If;
855: IF nvl(d_line_dtl_tbl(1).install_location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
851: IF nvl(d_line_dtl_tbl(1).location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
852: Then
853: n_instance_tbl(n_inst_ind).location_type_code := d_line_dtl_tbl(1).location_type_code;
854: End If;
855: IF nvl(d_line_dtl_tbl(1).install_location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
856: Then
857: n_instance_tbl(n_inst_ind).install_location_id := d_line_dtl_tbl(1).install_location_id;
858: End If;
859: IF nvl(d_line_dtl_tbl(1).install_location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
855: IF nvl(d_line_dtl_tbl(1).install_location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
856: Then
857: n_instance_tbl(n_inst_ind).install_location_id := d_line_dtl_tbl(1).install_location_id;
858: End If;
859: IF nvl(d_line_dtl_tbl(1).install_location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
860: Then
861: n_instance_tbl(n_inst_ind).install_location_type_code := d_line_dtl_tbl(1).install_location_type_code;
862: End If;
863: End If;
894: LOOP
895: -- Building New owner party
896: IF d_pty_dtl_tbl(j).relationship_type_code = 'OWNER'
897: AND
898: nvl(d_pty_dtl_tbl(j).contact_flag,fnd_api.g_miss_char) = 'N'
899: AND
900: l_batch_type = 'XFER'
901: THEN
902: l_pty_index := l_pty_index + 1;
909: n_party_tbl(l_pty_index).object_version_number := l_core_inst_pty_det.pty_obj_version_number;
910: n_party_tbl(l_pty_index).contact_flag := 'N';
911:
912:
913: IF nvl(d_pty_dtl_tbl(j).active_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date THEN
914: debug('Setting Party Transfer Date in Transaction Rec');
915: n_txn_rec.source_transaction_date := d_pty_dtl_tbl(j).active_start_date;
916: End If;
917: debug('Transfer Date.........................:'||n_txn_rec.source_transaction_date);
929: n_party_account_tbl(l_acct_index).ship_to_address := l_acct_ship_to;
930: n_party_account_tbl(l_acct_index).object_version_number := l_core_inst_pty_det.pty_acct_obj_version_number;
931: ELSIF d_pty_dtl_tbl(j).relationship_type_code = 'OWNER'
932: AND
933: nvl(d_pty_dtl_tbl(j).contact_flag,fnd_api.g_miss_char) = 'N'
934: AND
935: l_batch_type = 'MOVE'
936: THEN
937: l_pty_index := l_pty_index + 1;
959:
960: -- Building New Party other than owner
961: ELSIF d_pty_dtl_tbl(j).relationship_type_code <> 'OWNER'
962: AND
963: nvl(d_pty_dtl_tbl(j).contact_flag,fnd_api.g_miss_char) = 'N'
964: AND
965: d_pty_dtl_tbl(j).active_end_date is null
966: AND
967: l_batch_type in ('XFER','MOVE','GEN')
977: l_pty_tbl_ind := l_pty_index;
978: -- Building Association to be expired
979: ELSIF d_pty_dtl_tbl(j).relationship_type_code <> 'OWNER'
980: AND
981: nvl(d_pty_dtl_tbl(j).contact_flag,fnd_api.g_miss_char) = 'N'
982: AND
983: nvl(d_pty_dtl_tbl(j).active_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date
984: AND
985: l_batch_type in ('XFER','MOVE','GEN')
979: ELSIF d_pty_dtl_tbl(j).relationship_type_code <> 'OWNER'
980: AND
981: nvl(d_pty_dtl_tbl(j).contact_flag,fnd_api.g_miss_char) = 'N'
982: AND
983: nvl(d_pty_dtl_tbl(j).active_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date
984: AND
985: l_batch_type in ('XFER','MOVE','GEN')
986: THEN
987: FOR l_asso_exp_rec IN curr_asso_csr(l_core_inst_pty_det.pty_instance_id)
1090: debug('Transaction Date in Transaction: '||n_txn_rec.transaction_date);
1091:
1092: csi_item_instance_grp.update_item_instance (
1093: p_api_version => 1.0
1094: ,p_commit => fnd_api.g_false
1095: ,p_init_msg_list => fnd_api.g_true
1096: ,p_validation_level => fnd_api.g_valid_level_full
1097: ,p_instance_tbl => n_instance_tbl
1098: ,p_ext_attrib_values_tbl => n_ext_attrib_values_tbl
1091:
1092: csi_item_instance_grp.update_item_instance (
1093: p_api_version => 1.0
1094: ,p_commit => fnd_api.g_false
1095: ,p_init_msg_list => fnd_api.g_true
1096: ,p_validation_level => fnd_api.g_valid_level_full
1097: ,p_instance_tbl => n_instance_tbl
1098: ,p_ext_attrib_values_tbl => n_ext_attrib_values_tbl
1099: ,p_party_tbl => n_party_tbl
1092: csi_item_instance_grp.update_item_instance (
1093: p_api_version => 1.0
1094: ,p_commit => fnd_api.g_false
1095: ,p_init_msg_list => fnd_api.g_true
1096: ,p_validation_level => fnd_api.g_valid_level_full
1097: ,p_instance_tbl => n_instance_tbl
1098: ,p_ext_attrib_values_tbl => n_ext_attrib_values_tbl
1099: ,p_party_tbl => n_party_tbl
1100: ,p_account_tbl => n_party_account_tbl
1107: ,x_return_status => l_return_status
1108: ,x_msg_count => l_msg_count
1109: ,x_msg_data => l_msg_data);
1110: debug('Group API Return status :'|| l_return_status);
1111: -- IF NOT l_return_status = fnd_api.g_ret_sts_success
1112: -- THEN
1113: -- l_msg_index := 1;
1114: -- l_Error_Message := l_Msg_Data;
1115: -- WHILE l_msg_count > 0
1113: -- l_msg_index := 1;
1114: -- l_Error_Message := l_Msg_Data;
1115: -- WHILE l_msg_count > 0
1116: -- LOOP
1117: -- l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
1118: -- l_msg_index := l_msg_index + 1;
1119: -- l_Msg_Count := l_Msg_Count - 1;
1120: -- END LOOP;
1121: -- RAISE fnd_api.g_exc_error;
1117: -- l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
1118: -- l_msg_index := l_msg_index + 1;
1119: -- l_Msg_Count := l_Msg_Count - 1;
1120: -- END LOOP;
1121: -- RAISE fnd_api.g_exc_error;
1122: -- END IF;
1123: -- END IF;
1124:
1125: If n_grp_error_tbl.count > 0
1123: -- END IF;
1124:
1125: If n_grp_error_tbl.count > 0
1126: Then
1127: l_return_status := fnd_api.g_ret_sts_error;
1128: errbuf := 'E';
1129: -- Added for bug 5169999
1130: Elsif l_return_status = 'W'
1131: Then
1135:
1136: l_warning_message := l_msg_data;
1137: WHILE l_msg_count > 0
1138: LOOP
1139: l_warning_message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
1140: debug_out('Warning message '||l_msg_index||' from OKS API is :'||l_warning_message);
1141: l_msg_index := l_msg_index + 1;
1142: l_msg_count := l_msg_count - 1;
1143: END LOOP;
1143: END LOOP;
1144: End If;
1145:
1146:
1147: If NOT (l_return_status = fnd_api.g_ret_sts_success) AND
1148: errbuf <>'W'
1149: Then
1150: -- Buildinig the error table for sorting and reporting
1151: If nvl(n_grp_error_tbl.count,0) > 0
1184: p_batch_id => p_entry_id,
1185: p_batch_name => l_name
1186: );
1187: debug('Aborting Concurrent Program by raising exception');
1188: RAISE fnd_api.g_exc_error;
1189: Else
1190: -- For each Instance need to Create Notes
1191: IF n_instance_tbl.count > 0
1192: THEN
1199: (
1200: p_parent_note_id => NULL,
1201: p_api_version => 1,
1202: p_init_msg_list => NULL,
1203: p_commit => FND_API.G_FALSE,
1204: p_validation_level => fnd_api.g_valid_level_full, --0,
1205: x_return_status => l_return_status,
1206: x_msg_count => l_msg_count,
1207: x_msg_data => l_msg_data,
1200: p_parent_note_id => NULL,
1201: p_api_version => 1,
1202: p_init_msg_list => NULL,
1203: p_commit => FND_API.G_FALSE,
1204: p_validation_level => fnd_api.g_valid_level_full, --0,
1205: x_return_status => l_return_status,
1206: x_msg_count => l_msg_count,
1207: x_msg_data => l_msg_data,
1208: x_jtf_note_id => l_note_id,
1220: p_created_by => FND_GLOBAL.USER_ID
1221: );
1222:
1223: debug('JTF API Return status :'||l_return_status);
1224: IF NOT(l_return_status = FND_API.G_RET_STS_SUCCESS)
1225: Then
1226: If l_jtf_error = 'N'
1227: Then
1228: l_jtf_error := 'Y';
1232: l_msg_index := 1;
1233: l_Error_Message := l_Msg_Data;
1234: WHILE l_msg_count > 0
1235: LOOP
1236: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
1237: l_msg_index := l_msg_index + 1;
1238: l_Msg_Count := l_Msg_Count - 1;
1239: END LOOP;
1240:
1255: Debug_out('Notes created for instance successfully');
1256: Debug('Checking for system mass update');
1257: Debug_out('Checking for system mass update');
1258: -- Bug 7483403
1259: IF NVL(l_system_cascade, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1260: l_system_cascade := 'N';
1261: END IF; -- NVL(l_system_cascade, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
1262: IF l_system_cascade = 'N' THEN
1263: -- The system cascade is not set
1257: Debug_out('Checking for system mass update');
1258: -- Bug 7483403
1259: IF NVL(l_system_cascade, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1260: l_system_cascade := 'N';
1261: END IF; -- NVL(l_system_cascade, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
1262: IF l_system_cascade = 'N' THEN
1263: -- The system cascade is not set
1264: -- Update the mass update status and exit
1265: -- Updating the status of transaction line for the batch
1313: p_batch_id => p_entry_id,
1314: p_batch_name => l_name
1315: );
1316: debug('Aborting Concurrent Program by raising exception');
1317: RAISE fnd_api.g_exc_error;
1318: End If;
1319: END IF; -- End If for Notes API
1320: END IF; -- End If for Failure/success
1321: END IF; -- End If for Grp APi
1325: -- This block will update systems for transfer owner batch
1326: -- The system will be updated if all the active item instances
1327: -- which are part of the system is included in the transfer owner batch
1328:
1329: IF NVL(l_system_cascade, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1330: l_system_cascade := 'N';
1331: END IF;
1332:
1333: debug('System Cascade : ' || l_system_cascade);
1377: -- 2. After identifying the systems, update them
1378:
1379: PROCESS_SYSTEM_MASS_UPDATE (
1380: p_api_version => 1.0
1381: ,p_commit => fnd_api.g_false
1382: ,p_Entry_id => p_Entry_id
1383: ,p_instance_tbl => n_instance_tbl
1384: ,p_ext_attrib_values_tbl => n_ext_attrib_values_tbl -- Not used, retained for future enhancements
1385: ,p_party_tbl => n_party_tbl
1388: ,x_return_status => l_return_status
1389: ,x_msg_count => l_msg_count
1390: ,x_msg_data => l_msg_data);
1391:
1392: IF NOT l_return_status = fnd_api.g_ret_sts_success
1393: THEN
1394: l_msg_index := 1;
1395: l_Error_Message := l_Msg_Data;
1396: WHILE l_msg_count > 0
1394: l_msg_index := 1;
1395: l_Error_Message := l_Msg_Data;
1396: WHILE l_msg_count > 0
1397: LOOP
1398: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
1399: l_msg_index := l_msg_index + 1;
1400: l_Msg_Count := l_Msg_Count - 1;
1401: END LOOP;
1402: RAISE fnd_api.g_exc_error;
1398: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
1399: l_msg_index := l_msg_index + 1;
1400: l_Msg_Count := l_Msg_Count - 1;
1401: END LOOP;
1402: RAISE fnd_api.g_exc_error;
1403: END IF;
1404: -- END IF;
1405:
1406: IF l_return_status = fnd_api.g_ret_sts_success THEN
1402: RAISE fnd_api.g_exc_error;
1403: END IF;
1404: -- END IF;
1405:
1406: IF l_return_status = fnd_api.g_ret_sts_success THEN
1407: -- Updating the status of transaction line for the batch
1408: UPDATE csi_t_transaction_lines
1409: SET processing_status = 'PROCESSED'
1410: WHERE transaction_line_id = l_txn_line_id;
1455:
1456: UPDATE_MUSYS_ERR_STATUS(p_entry_id);
1457:
1458: debug('Aborting Concurrent Program by raising exception');
1459: RAISE fnd_api.g_exc_error;
1460: END IF; -- l_return_status = fnd_api.g_ret_sts_success
1461:
1462:
1463: END IF; -- n_instance_tbl.count Loop
1456: UPDATE_MUSYS_ERR_STATUS(p_entry_id);
1457:
1458: debug('Aborting Concurrent Program by raising exception');
1459: RAISE fnd_api.g_exc_error;
1460: END IF; -- l_return_status = fnd_api.g_ret_sts_success
1461:
1462:
1463: END IF; -- n_instance_tbl.count Loop
1464: END IF; -- l_batch_type in ('XFER')
1470:
1471: Commit;
1472:
1473: EXCEPTION
1474: WHEN fnd_api.g_exc_error THEN
1475: ROLLBACK TO START_PROCESSING;
1476: debug( 'Program Errored : ');
1477: -- l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
1478: errbuf := 'E';
1475: ROLLBACK TO START_PROCESSING;
1476: debug( 'Program Errored : ');
1477: -- l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
1478: errbuf := 'E';
1479: WHEN fnd_api.g_exc_unexpected_error THEN
1480: ROLLBACK TO START_PROCESSING;
1481: debug( 'Program Errored : ');
1482: -- l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
1483: errbuf := 'E';
1491:
1492: PROCEDURE CREATE_MASS_EDIT_BATCH
1493: (
1494: p_api_version IN NUMBER,
1495: p_commit IN VARCHAR2 := fnd_api.g_false,
1496: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1497: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1498: px_mass_edit_rec IN OUT NOCOPY csi_mass_edit_pub.mass_edit_rec,
1499: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
1492: PROCEDURE CREATE_MASS_EDIT_BATCH
1493: (
1494: p_api_version IN NUMBER,
1495: p_commit IN VARCHAR2 := fnd_api.g_false,
1496: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1497: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1498: px_mass_edit_rec IN OUT NOCOPY csi_mass_edit_pub.mass_edit_rec,
1499: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
1500: px_mass_edit_inst_tbl IN OUT NOCOPY csi_mass_edit_pub.mass_edit_inst_tbl,
1493: (
1494: p_api_version IN NUMBER,
1495: p_commit IN VARCHAR2 := fnd_api.g_false,
1496: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1497: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1498: px_mass_edit_rec IN OUT NOCOPY csi_mass_edit_pub.mass_edit_rec,
1499: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
1500: px_mass_edit_inst_tbl IN OUT NOCOPY csi_mass_edit_pub.mass_edit_inst_tbl,
1501: px_txn_line_detail_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_rec,
1512: l_api_name VARCHAR2(30) := 'CREATE_MASS_EDIT_BATCH_PUB';
1513:
1514: l_debug_level NUMBER;
1515:
1516: l_return_status VARCHAR2(1) := FND_API.G_ret_sts_success;
1517: l_msg_count NUMBER;
1518: l_msg_data VARCHAR2(512);
1519:
1520:
1525: csi_t_gen_utility_pvt.add('API Being Executed : CREATE_MASS_EDIT_BATCH_PUB');
1526: csi_t_gen_utility_pvt.add('Transaction Start Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1527:
1528: -- Initialize message list if p_init_msg_list is set to TRUE.
1529: IF FND_API.To_Boolean( p_init_msg_list ) THEN
1530: FND_MSG_PUB.Initialize;
1531: END IF;
1532:
1533: -- Initialize API return status to success
1530: FND_MSG_PUB.Initialize;
1531: END IF;
1532:
1533: -- Initialize API return status to success
1534: x_return_status := FND_API.G_RET_STS_SUCCESS;
1535:
1536: -- Standard call to check for call compatibility.
1537: IF NOT
1538:
1535:
1536: -- Standard call to check for call compatibility.
1537: IF NOT
1538:
1539: FND_API.Compatible_API_Call (
1540: p_current_version_number => l_api_version,
1541: p_caller_version_number => p_api_version,
1542: p_api_name => l_api_name,
1543: p_pkg_name => g_pkg_name) THEN
1541: p_caller_version_number => p_api_version,
1542: p_api_name => l_api_name,
1543: p_pkg_name => g_pkg_name) THEN
1544:
1545: RAISE FND_API.G_Exc_Unexpected_Error;
1546:
1547: END IF;
1548: -- main code starts here
1549: --
1548: -- main code starts here
1549: --
1550: -- This procedure check if the installed base is active, If not active
1551: -- populates the error message in the message queue and raises the
1552: -- fnd_api.g_exc_error exception
1553: --
1554:
1555: csi_utility_grp.check_ib_active;
1556:
1575: x_msg_data => x_msg_data
1576: );
1577:
1578:
1579: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1580: RAISE fnd_api.g_exc_error;
1581: END IF;
1582:
1583: -- Standard check of p_commit.
1576: );
1577:
1578:
1579: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1580: RAISE fnd_api.g_exc_error;
1581: END IF;
1582:
1583: -- Standard check of p_commit.
1584: IF FND_API.To_Boolean( p_commit ) THEN
1580: RAISE fnd_api.g_exc_error;
1581: END IF;
1582:
1583: -- Standard check of p_commit.
1584: IF FND_API.To_Boolean( p_commit ) THEN
1585: COMMIT WORK;
1586: END IF;
1587:
1588: -- Standard call to get message count and IF count is get message info.
1592: );
1593:
1594: csi_t_gen_utility_pvt.add('Transaction End Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1595: EXCEPTION
1596: WHEN FND_API.G_EXC_ERROR THEN
1597: ROLLBACK TO create_mass_edit_pub;
1598: x_return_status := FND_API.G_RET_STS_ERROR ;
1599: FND_MSG_PUB.Count_And_Get
1600: (p_count => x_msg_count,
1594: csi_t_gen_utility_pvt.add('Transaction End Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1595: EXCEPTION
1596: WHEN FND_API.G_EXC_ERROR THEN
1597: ROLLBACK TO create_mass_edit_pub;
1598: x_return_status := FND_API.G_RET_STS_ERROR ;
1599: FND_MSG_PUB.Count_And_Get
1600: (p_count => x_msg_count,
1601: p_data => x_msg_data
1602: );
1599: FND_MSG_PUB.Count_And_Get
1600: (p_count => x_msg_count,
1601: p_data => x_msg_data
1602: );
1603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1605: ROLLBACK TO create_mass_edit_pub;
1606: FND_MSG_PUB.Count_And_Get
1607: ( p_count => x_msg_count,
1600: (p_count => x_msg_count,
1601: p_data => x_msg_data
1602: );
1603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1605: ROLLBACK TO create_mass_edit_pub;
1606: FND_MSG_PUB.Count_And_Get
1607: ( p_count => x_msg_count,
1608: p_data => x_msg_data
1607: ( p_count => x_msg_count,
1608: p_data => x_msg_data
1609: );
1610: WHEN OTHERS THEN
1611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1612: ROLLBACK TO create_mass_edit_pub;
1613: IF FND_MSG_PUB.Check_Msg_Level
1614: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1615: THEN
1659: END;
1660:
1661: PROCEDURE UPDATE_MASS_EDIT_BATCH (
1662: p_api_version IN NUMBER,
1663: p_commit IN VARCHAR2 := fnd_api.g_false,
1664: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1665: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1666: px_mass_edit_rec IN OUT NOCOPY csi_mass_edit_pub.mass_edit_rec,
1667: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
1660:
1661: PROCEDURE UPDATE_MASS_EDIT_BATCH (
1662: p_api_version IN NUMBER,
1663: p_commit IN VARCHAR2 := fnd_api.g_false,
1664: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1665: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1666: px_mass_edit_rec IN OUT NOCOPY csi_mass_edit_pub.mass_edit_rec,
1667: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
1668: px_mass_edit_inst_tbl IN OUT NOCOPY mass_edit_inst_tbl,
1661: PROCEDURE UPDATE_MASS_EDIT_BATCH (
1662: p_api_version IN NUMBER,
1663: p_commit IN VARCHAR2 := fnd_api.g_false,
1664: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1665: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1666: px_mass_edit_rec IN OUT NOCOPY csi_mass_edit_pub.mass_edit_rec,
1667: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
1668: px_mass_edit_inst_tbl IN OUT NOCOPY mass_edit_inst_tbl,
1669: px_txn_line_detail_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_rec,
1690: csi_t_gen_utility_pvt.add('API Being Executed : UPDATE_MASS_EDIT_BATCH_PUB');
1691: csi_t_gen_utility_pvt.add('Transaction Start Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1692:
1693: -- Initialize message list if p_init_msg_list is set to TRUE.
1694: IF FND_API.To_Boolean( p_init_msg_list ) THEN
1695: FND_MSG_PUB.Initialize;
1696: END IF;
1697:
1698: -- Initialize API return status to success
1695: FND_MSG_PUB.Initialize;
1696: END IF;
1697:
1698: -- Initialize API return status to success
1699: x_return_status := FND_API.G_RET_STS_SUCCESS;
1700:
1701: -- Standard call to check for call compatibility.
1702: IF NOT
1703:
1700:
1701: -- Standard call to check for call compatibility.
1702: IF NOT
1703:
1704: FND_API.Compatible_API_Call (
1705: p_current_version_number => l_api_version,
1706: p_caller_version_number => p_api_version,
1707: p_api_name => l_api_name,
1708: p_pkg_name => g_pkg_name) THEN
1706: p_caller_version_number => p_api_version,
1707: p_api_name => l_api_name,
1708: p_pkg_name => g_pkg_name) THEN
1709:
1710: RAISE FND_API.G_Exc_Unexpected_Error;
1711:
1712: END IF;
1713: -- main code starts here
1714:
1720: IF x_output IS NOT NULL THEN
1721: FND_MESSAGE.set_name('CSI','CSI_MU_DUP_BATCH_INSTANCES');
1722: FND_MESSAGE.set_token('INST_NUM',x_output);
1723: FND_MSG_PUB.add;
1724: RAISE FND_API.g_exc_error;
1725: END IF;
1726:
1727: -- call API to run
1728: csi_t_gen_utility_pvt.add('px_txn_line_detail_tbl.count: '||px_mass_edit_inst_tbl.count);
1747: x_msg_data => l_msg_data
1748: );
1749:
1750:
1751: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1752: RAISE fnd_api.g_exc_error;
1753: END IF;
1754:
1755: -- Standard check of p_commit.
1748: );
1749:
1750:
1751: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1752: RAISE fnd_api.g_exc_error;
1753: END IF;
1754:
1755: -- Standard check of p_commit.
1756: IF FND_API.To_Boolean( p_commit ) THEN
1752: RAISE fnd_api.g_exc_error;
1753: END IF;
1754:
1755: -- Standard check of p_commit.
1756: IF FND_API.To_Boolean( p_commit ) THEN
1757: COMMIT WORK;
1758: END IF;
1759:
1760: csi_t_gen_utility_pvt.add('Transaction End Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1758: END IF;
1759:
1760: csi_t_gen_utility_pvt.add('Transaction End Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1761: EXCEPTION
1762: WHEN FND_API.G_EXC_ERROR THEN
1763: ROLLBACK TO update_mass_edit_pub;
1764: x_return_status := FND_API.G_RET_STS_ERROR ;
1765: FND_MSG_PUB.Count_And_Get
1766: (p_count => x_msg_count,
1760: csi_t_gen_utility_pvt.add('Transaction End Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1761: EXCEPTION
1762: WHEN FND_API.G_EXC_ERROR THEN
1763: ROLLBACK TO update_mass_edit_pub;
1764: x_return_status := FND_API.G_RET_STS_ERROR ;
1765: FND_MSG_PUB.Count_And_Get
1766: (p_count => x_msg_count,
1767: p_data => x_msg_data
1768: );
1765: FND_MSG_PUB.Count_And_Get
1766: (p_count => x_msg_count,
1767: p_data => x_msg_data
1768: );
1769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1771: ROLLBACK TO update_mass_edit_pub;
1772: FND_MSG_PUB.Count_And_Get
1773: ( p_count => x_msg_count,
1766: (p_count => x_msg_count,
1767: p_data => x_msg_data
1768: );
1769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1771: ROLLBACK TO update_mass_edit_pub;
1772: FND_MSG_PUB.Count_And_Get
1773: ( p_count => x_msg_count,
1774: p_data => x_msg_data
1773: ( p_count => x_msg_count,
1774: p_data => x_msg_data
1775: );
1776: WHEN OTHERS THEN
1777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1778: ROLLBACK TO update_mass_edit_pub;
1779: IF FND_MSG_PUB.Check_Msg_Level
1780: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1781: THEN
1793:
1794: PROCEDURE DELETE_MASS_EDIT_BATCH
1795: (
1796: p_api_version IN NUMBER,
1797: p_commit IN VARCHAR2 := fnd_api.g_false,
1798: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1799: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1800: p_mass_edit_rec IN mass_edit_rec,
1801: x_return_status OUT NOCOPY VARCHAR2,
1794: PROCEDURE DELETE_MASS_EDIT_BATCH
1795: (
1796: p_api_version IN NUMBER,
1797: p_commit IN VARCHAR2 := fnd_api.g_false,
1798: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1799: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1800: p_mass_edit_rec IN mass_edit_rec,
1801: x_return_status OUT NOCOPY VARCHAR2,
1802: x_msg_count OUT NOCOPY NUMBER,
1795: (
1796: p_api_version IN NUMBER,
1797: p_commit IN VARCHAR2 := fnd_api.g_false,
1798: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1799: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1800: p_mass_edit_rec IN mass_edit_rec,
1801: x_return_status OUT NOCOPY VARCHAR2,
1802: x_msg_count OUT NOCOPY NUMBER,
1803: x_msg_data OUT NOCOPY VARCHAR2
1818: csi_t_gen_utility_pvt.add('API Being Executed : DELETE_MASS_EDIT_BATCH');
1819: csi_t_gen_utility_pvt.add('Transaction Start Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1820:
1821: -- Initialize message list if p_init_msg_list is set to TRUE.
1822: IF FND_API.To_Boolean( p_init_msg_list ) THEN
1823: FND_MSG_PUB.Initialize;
1824: END IF;
1825:
1826: -- Initialize API return status to success
1823: FND_MSG_PUB.Initialize;
1824: END IF;
1825:
1826: -- Initialize API return status to success
1827: x_return_status := FND_API.G_RET_STS_SUCCESS;
1828:
1829: -- Standard call to check for call compatibility.
1830: IF NOT
1831: FND_API.Compatible_API_Call (
1827: x_return_status := FND_API.G_RET_STS_SUCCESS;
1828:
1829: -- Standard call to check for call compatibility.
1830: IF NOT
1831: FND_API.Compatible_API_Call (
1832: p_current_version_number => l_api_version,
1833: p_caller_version_number => p_api_version,
1834: p_api_name => l_api_name,
1835: p_pkg_name => g_pkg_name) THEN
1833: p_caller_version_number => p_api_version,
1834: p_api_name => l_api_name,
1835: p_pkg_name => g_pkg_name) THEN
1836:
1837: RAISE FND_API.G_Exc_Unexpected_Error;
1838: END IF;
1839: -- This procedure check if the installed base is active, If not active
1840: -- populates the error message in the message queue and raises the
1841: -- fnd_api.g_exc_error exception
1837: RAISE FND_API.G_Exc_Unexpected_Error;
1838: END IF;
1839: -- This procedure check if the installed base is active, If not active
1840: -- populates the error message in the message queue and raises the
1841: -- fnd_api.g_exc_error exception
1842: --
1843: csi_utility_grp.check_ib_active;
1844:
1845: -- check required params
1843: csi_utility_grp.check_ib_active;
1844:
1845: -- check required params
1846: -- either the batch id OR the batch name is required for a delete
1847: IF ( nvl(p_mass_edit_rec.entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
1848: AND nvl(p_mass_edit_rec.name, fnd_api.g_miss_char) = fnd_api.g_miss_char ) THEN
1849:
1850: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
1851: FND_MESSAGE.set_token('API_NAME',l_api_name);
1844:
1845: -- check required params
1846: -- either the batch id OR the batch name is required for a delete
1847: IF ( nvl(p_mass_edit_rec.entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
1848: AND nvl(p_mass_edit_rec.name, fnd_api.g_miss_char) = fnd_api.g_miss_char ) THEN
1849:
1850: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
1851: FND_MESSAGE.set_token('API_NAME',l_api_name);
1852: FND_MESSAGE.set_token('MISSING_PARAM','Batch ID OR Batch Name');
1850: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
1851: FND_MESSAGE.set_token('API_NAME',l_api_name);
1852: FND_MESSAGE.set_token('MISSING_PARAM','Batch ID OR Batch Name');
1853: FND_MSG_PUB.add;
1854: RAISE FND_API.g_exc_error;
1855: END IF;
1856:
1857: csi_mass_edit_pvt.delete_mass_edit_batch (
1858: p_api_version => p_api_version,
1864: x_msg_count => l_msg_count,
1865: x_msg_data => l_msg_data
1866: );
1867:
1868: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1869: RAISE fnd_api.g_exc_error;
1870: END IF;
1871:
1872: -- Standard check of p_commit.
1865: x_msg_data => l_msg_data
1866: );
1867:
1868: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1869: RAISE fnd_api.g_exc_error;
1870: END IF;
1871:
1872: -- Standard check of p_commit.
1873: IF FND_API.To_Boolean( p_commit ) THEN
1869: RAISE fnd_api.g_exc_error;
1870: END IF;
1871:
1872: -- Standard check of p_commit.
1873: IF FND_API.To_Boolean( p_commit ) THEN
1874: COMMIT WORK;
1875: END IF;
1876:
1877: -- Standard call to get message count and IF count is get message info.
1885:
1886: csi_t_gen_utility_pvt.set_debug_off;
1887:
1888: EXCEPTION
1889: WHEN FND_API.G_EXC_ERROR THEN
1890:
1891: ROLLBACK TO Delete_Mass_Edit_Batch;
1892: x_return_status := FND_API.G_RET_STS_ERROR ;
1893: FND_MSG_PUB.Count_And_Get (
1888: EXCEPTION
1889: WHEN FND_API.G_EXC_ERROR THEN
1890:
1891: ROLLBACK TO Delete_Mass_Edit_Batch;
1892: x_return_status := FND_API.G_RET_STS_ERROR ;
1893: FND_MSG_PUB.Count_And_Get (
1894: p_count => x_msg_count,
1895: p_data => x_msg_data);
1896:
1895: p_data => x_msg_data);
1896:
1897: csi_t_gen_utility_pvt.set_debug_off;
1898:
1899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1900:
1901: ROLLBACK TO Delete_Mass_Edit_Batch;
1902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1903:
1898:
1899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1900:
1901: ROLLBACK TO Delete_Mass_Edit_Batch;
1902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1903:
1904: FND_MSG_PUB.Count_And_Get(
1905: p_count => x_msg_count,
1906: p_data => x_msg_data);
1909:
1910: WHEN OTHERS THEN
1911:
1912: ROLLBACK TO Delete_Mass_Edit_Batch;
1913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1914:
1915: IF FND_MSG_PUB.Check_Msg_Level(
1916: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1917:
1933:
1934: PROCEDURE DELETE_MASS_EDIT_BATCHES
1935: (
1936: p_api_version IN NUMBER,
1937: p_commit IN VARCHAR2 := fnd_api.g_false,
1938: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1939: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1940: p_mass_edit_tbl IN mass_edit_tbl,
1941: x_return_status OUT NOCOPY VARCHAR2,
1934: PROCEDURE DELETE_MASS_EDIT_BATCHES
1935: (
1936: p_api_version IN NUMBER,
1937: p_commit IN VARCHAR2 := fnd_api.g_false,
1938: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1939: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1940: p_mass_edit_tbl IN mass_edit_tbl,
1941: x_return_status OUT NOCOPY VARCHAR2,
1942: x_msg_count OUT NOCOPY NUMBER,
1935: (
1936: p_api_version IN NUMBER,
1937: p_commit IN VARCHAR2 := fnd_api.g_false,
1938: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1939: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1940: p_mass_edit_tbl IN mass_edit_tbl,
1941: x_return_status OUT NOCOPY VARCHAR2,
1942: x_msg_count OUT NOCOPY NUMBER,
1943: x_msg_data OUT NOCOPY VARCHAR2
1958: csi_t_gen_utility_pvt.add('API Being Executed : DELETE_MASS_EDIT_BATCHES');
1959: csi_t_gen_utility_pvt.add('Transaction Start Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1960:
1961: -- Initialize message list if p_init_msg_list is set to TRUE.
1962: IF FND_API.To_Boolean( p_init_msg_list ) THEN
1963: FND_MSG_PUB.Initialize;
1964: END IF;
1965:
1966: -- Initialize API return status to success
1963: FND_MSG_PUB.Initialize;
1964: END IF;
1965:
1966: -- Initialize API return status to success
1967: x_return_status := FND_API.G_RET_STS_SUCCESS;
1968:
1969: -- Standard call to check for call compatibility.
1970: IF NOT
1971: FND_API.Compatible_API_Call (
1967: x_return_status := FND_API.G_RET_STS_SUCCESS;
1968:
1969: -- Standard call to check for call compatibility.
1970: IF NOT
1971: FND_API.Compatible_API_Call (
1972: p_current_version_number => l_api_version,
1973: p_caller_version_number => p_api_version,
1974: p_api_name => l_api_name,
1975: p_pkg_name => g_pkg_name) THEN
1973: p_caller_version_number => p_api_version,
1974: p_api_name => l_api_name,
1975: p_pkg_name => g_pkg_name) THEN
1976:
1977: RAISE FND_API.G_Exc_Unexpected_Error;
1978: END IF;
1979: -- This procedure check if the installed base is active, If not active
1980: -- populates the error message in the message queue and raises the
1981: -- fnd_api.g_exc_error exception
1977: RAISE FND_API.G_Exc_Unexpected_Error;
1978: END IF;
1979: -- This procedure check if the installed base is active, If not active
1980: -- populates the error message in the message queue and raises the
1981: -- fnd_api.g_exc_error exception
1982: --
1983: csi_utility_grp.check_ib_active;
1984:
1985: -- check required params
1985: -- check required params
1986: -- either the batch id OR the batch name is required for a delete
1987: IF p_mass_edit_tbl.count > 0 THEN
1988: FOR m_ind in p_mass_edit_tbl.FIRST .. p_mass_edit_tbl.LAST LOOP
1989: IF ( nvl(p_mass_edit_tbl(m_ind).entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
1990: AND nvl(p_mass_edit_tbl(m_ind).name, fnd_api.g_miss_char) = fnd_api.g_miss_char ) THEN
1991:
1992: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
1993: FND_MESSAGE.set_token('API_NAME',l_api_name);
1986: -- either the batch id OR the batch name is required for a delete
1987: IF p_mass_edit_tbl.count > 0 THEN
1988: FOR m_ind in p_mass_edit_tbl.FIRST .. p_mass_edit_tbl.LAST LOOP
1989: IF ( nvl(p_mass_edit_tbl(m_ind).entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
1990: AND nvl(p_mass_edit_tbl(m_ind).name, fnd_api.g_miss_char) = fnd_api.g_miss_char ) THEN
1991:
1992: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
1993: FND_MESSAGE.set_token('API_NAME',l_api_name);
1994: FND_MESSAGE.set_token('MISSING_PARAM','Batch ID OR Batch Name');
1992: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
1993: FND_MESSAGE.set_token('API_NAME',l_api_name);
1994: FND_MESSAGE.set_token('MISSING_PARAM','Batch ID OR Batch Name');
1995: FND_MSG_PUB.add;
1996: RAISE FND_API.g_exc_error;
1997: END IF;
1998:
1999: csi_mass_edit_pvt.delete_mass_edit_batch (
2000: p_api_version => p_api_version,
2006: x_msg_count => l_msg_count,
2007: x_msg_data => l_msg_data
2008: );
2009:
2010: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2011: RAISE fnd_api.g_exc_error;
2012: END IF;
2013: END LOOP;
2014: END IF;
2007: x_msg_data => l_msg_data
2008: );
2009:
2010: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2011: RAISE fnd_api.g_exc_error;
2012: END IF;
2013: END LOOP;
2014: END IF;
2015:
2013: END LOOP;
2014: END IF;
2015:
2016: -- Standard check of p_commit.
2017: IF FND_API.To_Boolean( p_commit ) THEN
2018: COMMIT WORK;
2019: END IF;
2020:
2021: -- Standard call to get message count and IF count is get message info.
2029:
2030: csi_t_gen_utility_pvt.set_debug_off;
2031:
2032: EXCEPTION
2033: WHEN FND_API.G_EXC_ERROR THEN
2034:
2035: ROLLBACK TO Delete_Mass_Edit_Batches;
2036: x_return_status := FND_API.G_RET_STS_ERROR ;
2037: FND_MSG_PUB.Count_And_Get (
2032: EXCEPTION
2033: WHEN FND_API.G_EXC_ERROR THEN
2034:
2035: ROLLBACK TO Delete_Mass_Edit_Batches;
2036: x_return_status := FND_API.G_RET_STS_ERROR ;
2037: FND_MSG_PUB.Count_And_Get (
2038: p_count => x_msg_count,
2039: p_data => x_msg_data);
2040:
2039: p_data => x_msg_data);
2040:
2041: csi_t_gen_utility_pvt.set_debug_off;
2042:
2043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2044:
2045: ROLLBACK TO Delete_Mass_Edit_Batches;
2046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2047:
2042:
2043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2044:
2045: ROLLBACK TO Delete_Mass_Edit_Batches;
2046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2047:
2048: FND_MSG_PUB.Count_And_Get(
2049: p_count => x_msg_count,
2050: p_data => x_msg_data);
2053:
2054: WHEN OTHERS THEN
2055:
2056: ROLLBACK TO Delete_Mass_Edit_Batches;
2057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2058:
2059: IF FND_MSG_PUB.Check_Msg_Level(
2060: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2061:
2078: */
2079:
2080: PROCEDURE GET_MASS_EDIT_DETAILS (
2081: p_api_version IN NUMBER,
2082: p_commit IN VARCHAR2 := fnd_api.g_false,
2083: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2084: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2085: px_mass_edit_rec IN OUT NOCOPY mass_edit_rec,
2086: x_txn_line_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl ,
2079:
2080: PROCEDURE GET_MASS_EDIT_DETAILS (
2081: p_api_version IN NUMBER,
2082: p_commit IN VARCHAR2 := fnd_api.g_false,
2083: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2084: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2085: px_mass_edit_rec IN OUT NOCOPY mass_edit_rec,
2086: x_txn_line_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl ,
2087: x_txn_party_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl,
2080: PROCEDURE GET_MASS_EDIT_DETAILS (
2081: p_api_version IN NUMBER,
2082: p_commit IN VARCHAR2 := fnd_api.g_false,
2083: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2084: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2085: px_mass_edit_rec IN OUT NOCOPY mass_edit_rec,
2086: x_txn_line_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl ,
2087: x_txn_party_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl,
2088: x_txn_pty_acct_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_pty_acct_detail_tbl,
2106: csi_t_gen_utility_pvt.add('API Being Executed : GET_MASS_EDIT_DETAILS');
2107: csi_t_gen_utility_pvt.add('Transaction Start Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
2108:
2109: -- Initialize message list if p_init_msg_list is set to TRUE.
2110: IF FND_API.To_Boolean( p_init_msg_list ) THEN
2111: FND_MSG_PUB.Initialize;
2112: END IF;
2113:
2114: -- Initialize API return status to success
2111: FND_MSG_PUB.Initialize;
2112: END IF;
2113:
2114: -- Initialize API return status to success
2115: x_return_status := FND_API.G_RET_STS_SUCCESS;
2116:
2117: -- Standard call to check for call compatibility.
2118: IF NOT
2119: FND_API.Compatible_API_Call (
2115: x_return_status := FND_API.G_RET_STS_SUCCESS;
2116:
2117: -- Standard call to check for call compatibility.
2118: IF NOT
2119: FND_API.Compatible_API_Call (
2120: p_current_version_number => l_api_version,
2121: p_caller_version_number => p_api_version,
2122: p_api_name => l_api_name,
2123: p_pkg_name => g_pkg_name) THEN
2121: p_caller_version_number => p_api_version,
2122: p_api_name => l_api_name,
2123: p_pkg_name => g_pkg_name) THEN
2124:
2125: RAISE FND_API.G_Exc_Unexpected_Error;
2126: END IF;
2127: -- This procedure check if the installed base is active, If not active
2128: -- populates the error message in the message queue and raises the
2129: -- fnd_api.g_exc_error exception
2125: RAISE FND_API.G_Exc_Unexpected_Error;
2126: END IF;
2127: -- This procedure check if the installed base is active, If not active
2128: -- populates the error message in the message queue and raises the
2129: -- fnd_api.g_exc_error exception
2130: --
2131: csi_utility_grp.check_ib_active;
2132:
2133: -- check required params
2133: -- check required params
2134: -- Currently the Get queries txn details for a given source transaction id (batch). So a unique
2135: -- identifier like the batch id/txn line ID OR the batch name is required for a Get
2136:
2137: IF ( nvl(px_mass_edit_rec.entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2138: AND nvl(px_mass_edit_rec.name, fnd_api.g_miss_char) = fnd_api.g_miss_char
2139: AND nvl(px_mass_edit_rec.txn_line_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2140: ) THEN
2141: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
2134: -- Currently the Get queries txn details for a given source transaction id (batch). So a unique
2135: -- identifier like the batch id/txn line ID OR the batch name is required for a Get
2136:
2137: IF ( nvl(px_mass_edit_rec.entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2138: AND nvl(px_mass_edit_rec.name, fnd_api.g_miss_char) = fnd_api.g_miss_char
2139: AND nvl(px_mass_edit_rec.txn_line_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2140: ) THEN
2141: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
2142: FND_MESSAGE.set_token('API_NAME',l_api_name);
2135: -- identifier like the batch id/txn line ID OR the batch name is required for a Get
2136:
2137: IF ( nvl(px_mass_edit_rec.entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2138: AND nvl(px_mass_edit_rec.name, fnd_api.g_miss_char) = fnd_api.g_miss_char
2139: AND nvl(px_mass_edit_rec.txn_line_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2140: ) THEN
2141: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
2142: FND_MESSAGE.set_token('API_NAME',l_api_name);
2143: FND_MESSAGE.set_token('MISSING_PARAM','Batch ID / Batch Name / Transaction Line ID');
2141: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
2142: FND_MESSAGE.set_token('API_NAME',l_api_name);
2143: FND_MESSAGE.set_token('MISSING_PARAM','Batch ID / Batch Name / Transaction Line ID');
2144: FND_MSG_PUB.add;
2145: RAISE FND_API.g_exc_error;
2146: END IF;
2147:
2148: csi_mass_edit_pvt.get_mass_edit_details (
2149: p_api_version => p_api_version,
2159: x_msg_count => l_msg_count,
2160: x_msg_data => l_msg_data
2161: );
2162:
2163: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2164: RAISE fnd_api.g_exc_error;
2165: END IF;
2166:
2167: -- Standard check of p_commit.
2160: x_msg_data => l_msg_data
2161: );
2162:
2163: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2164: RAISE fnd_api.g_exc_error;
2165: END IF;
2166:
2167: -- Standard check of p_commit.
2168: IF FND_API.To_Boolean( p_commit ) THEN
2164: RAISE fnd_api.g_exc_error;
2165: END IF;
2166:
2167: -- Standard check of p_commit.
2168: IF FND_API.To_Boolean( p_commit ) THEN
2169: COMMIT WORK;
2170: END IF;
2171:
2172: -- Standard call to get message count and IF count is get message info.
2180:
2181: csi_t_gen_utility_pvt.set_debug_off;
2182:
2183: EXCEPTION
2184: WHEN FND_API.G_EXC_ERROR THEN
2185:
2186: ROLLBACK TO Get_mass_edit_details;
2187: x_return_status := FND_API.G_RET_STS_ERROR ;
2188: FND_MSG_PUB.Count_And_Get (
2183: EXCEPTION
2184: WHEN FND_API.G_EXC_ERROR THEN
2185:
2186: ROLLBACK TO Get_mass_edit_details;
2187: x_return_status := FND_API.G_RET_STS_ERROR ;
2188: FND_MSG_PUB.Count_And_Get (
2189: p_count => x_msg_count,
2190: p_data => x_msg_data);
2191:
2190: p_data => x_msg_data);
2191:
2192: csi_t_gen_utility_pvt.set_debug_off;
2193:
2194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2195:
2196: ROLLBACK TO Get_mass_edit_details;
2197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2198:
2193:
2194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2195:
2196: ROLLBACK TO Get_mass_edit_details;
2197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2198:
2199: FND_MSG_PUB.Count_And_Get(
2200: p_count => x_msg_count,
2201: p_data => x_msg_data);
2204:
2205: WHEN OTHERS THEN
2206:
2207: ROLLBACK TO Get_mass_edit_details;
2208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2209:
2210: IF FND_MSG_PUB.Check_Msg_Level(
2211: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2212:
2232:
2233: PROCEDURE PROCESS_SYSTEM_MASS_UPDATE
2234: (
2235: p_api_version IN NUMBER
2236: ,p_commit IN VARCHAR2 := fnd_api.g_false
2237: ,p_entry_id IN NUMBER
2238: ,p_instance_tbl IN OUT NOCOPY csi_datastructures_pub.instance_tbl
2239: ,p_ext_attrib_values_tbl IN OUT NOCOPY csi_datastructures_pub.extend_attrib_values_tbl
2240: ,p_party_tbl IN OUT NOCOPY csi_datastructures_pub.party_tbl
2324:
2325:
2326: l_msg_count NUMBER;
2327: l_msg_data VARCHAR2(2000);
2328: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2329:
2330: BEGIN
2331:
2332: -- Standard Start of API savepoint
2336:
2337: csi_utility_grp.check_ib_active;
2338:
2339: -- Standard call to check for call compatibility.
2340: IF NOT FND_API.Compatible_API_Call (l_api_version,
2341: p_api_version,
2342: l_api_name ,
2343: G_PKG_NAME )
2344: THEN
2341: p_api_version,
2342: l_api_name ,
2343: G_PKG_NAME )
2344: THEN
2345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2346: END IF;
2347:
2348: -- Initialize API return status to success
2349: x_return_status := FND_API.G_RET_STS_SUCCESS;
2345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2346: END IF;
2347:
2348: -- Initialize API return status to success
2349: x_return_status := FND_API.G_RET_STS_SUCCESS;
2350:
2351: -- Check the profile option debug_level for debug message reporting
2352: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
2353:
2372:
2373: EXCEPTION
2374: WHEN NO_DATA_FOUND THEN
2375: debug('No data Found while fetching txn line id for system cascade');
2376: RAISE FND_API.G_EXC_ERROR;
2377: WHEN OTHERS THEN
2378: debug('Others Exception while fetching txn line id for system cascade');
2379: RAISE FND_API.G_EXC_ERROR;
2380: END;
2375: debug('No data Found while fetching txn line id for system cascade');
2376: RAISE FND_API.G_EXC_ERROR;
2377: WHEN OTHERS THEN
2378: debug('Others Exception while fetching txn line id for system cascade');
2379: RAISE FND_API.G_EXC_ERROR;
2380: END;
2381: debug('l_txn_line_id - ' || l_txn_line_id);
2382:
2383: IDENTIFY_SYSTEM_FOR_UPDATE (
2384: p_txn_line_id => l_txn_line_id
2385: ,p_upd_system_tbl => upd_system_tbl
2386: ,x_return_status => l_return_status);
2387:
2388: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2389: RAISE FND_API.G_EXC_ERROR;
2390: END IF;
2391:
2392: IF upd_system_tbl.COUNT > 0 THEN
2385: ,p_upd_system_tbl => upd_system_tbl
2386: ,x_return_status => l_return_status);
2387:
2388: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2389: RAISE FND_API.G_EXC_ERROR;
2390: END IF;
2391:
2392: IF upd_system_tbl.COUNT > 0 THEN
2393:
2397: ,p_txn_line_id => l_txn_line_id
2398: ,p_upd_system_tbl => upd_system_tbl
2399: ,x_return_status => l_return_status);
2400:
2401: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2402: RAISE FND_API.G_EXC_ERROR;
2403: END IF;
2404:
2405: -- System update
2398: ,p_upd_system_tbl => upd_system_tbl
2399: ,x_return_status => l_return_status);
2400:
2401: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2402: RAISE FND_API.G_EXC_ERROR;
2403: END IF;
2404:
2405: -- System update
2406: -- Fetch the new Party Information (Party Id, Account Id)
2411: EXCEPTION
2412: WHEN OTHERS THEN
2413: debug('In to Others Exception while finding new party information');
2414: debug( to_char(SQLCODE)||substr(SQLERRM, 1, 255));
2415: RAISE FND_API.G_EXC_ERROR;
2416: END;
2417:
2418: -- Fetch Customer id from party id and account id
2419: /* BEGIN
2425: fnd_message.set_name('CSI', 'CSI_CUSTOMER_ID_NOT_FOUND');
2426: fnd_message.set_token('PARTY_ID',l_mu_new_party_rec.PartyId);
2427: fnd_message.set_token('ACCOUNT_NUMBER',l_mu_new_party_rec.AccountId);
2428: fnd_msg_pub.add;
2429: RAISE FND_API.G_EXC_ERROR;
2430:
2431: WHEN TOO_MANY_ROWS THEN
2432: fnd_message.set_name('CSI', 'CSI_MULTIPLE_CUSTOMER_ID_FOUND');
2433: fnd_message.set_token('PARTY_ID',l_mu_new_party_rec.PartyId);
2432: fnd_message.set_name('CSI', 'CSI_MULTIPLE_CUSTOMER_ID_FOUND');
2433: fnd_message.set_token('PARTY_ID',l_mu_new_party_rec.PartyId);
2434: fnd_message.set_token('ACCOUNT_NUMBER',l_mu_new_party_rec.AccountId);
2435: fnd_msg_pub.add;
2436: RAISE FND_API.G_EXC_ERROR;
2437: WHEN OTHERS THEN
2438: debug('In to Others Exception while finding customer id');
2439: RAISE FND_API.G_EXC_ERROR;
2440: END;
2435: fnd_msg_pub.add;
2436: RAISE FND_API.G_EXC_ERROR;
2437: WHEN OTHERS THEN
2438: debug('In to Others Exception while finding customer id');
2439: RAISE FND_API.G_EXC_ERROR;
2440: END;
2441: */
2442: FOR system_rec_ind IN upd_system_tbl.FIRST .. upd_system_tbl.LAST
2443: LOOP
2453: -- should be populated here
2454:
2455: -- Important : Also note the base update package has been modified to
2456: -- accept null values update_row_for_mu
2457: l_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2458: l_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2459: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2460: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2461: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2454:
2455: -- Important : Also note the base update package has been modified to
2456: -- accept null values update_row_for_mu
2457: l_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2458: l_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2459: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2460: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2461: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2462: l_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2455: -- Important : Also note the base update package has been modified to
2456: -- accept null values update_row_for_mu
2457: l_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2458: l_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2459: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2460: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2461: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2462: l_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2463: l_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2456: -- accept null values update_row_for_mu
2457: l_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2458: l_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2459: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2460: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2461: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2462: l_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2463: l_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2464:
2457: l_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2458: l_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2459: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2460: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2461: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2462: l_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2463: l_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2464:
2465: -- Fetch the existing values of the system
2458: l_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2459: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2460: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2461: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2462: l_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2463: l_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2464:
2465: -- Fetch the existing values of the system
2466: -- Other information which are non related to the system party owner
2459: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2460: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2461: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2462: l_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2463: l_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2464:
2465: -- Fetch the existing values of the system
2466: -- Other information which are non related to the system party owner
2467: -- is retained
2515: l_t_txn_sys_rec.SYSTEM_NUMBER := l_mu_system_rec.SYSTEM_NUMBER;
2516: -- Bug 7350165
2517: l_t_txn_sys_rec.CUSTOMER_ID := l_mu_new_party_rec.AccountId;
2518: --l_t_txn_sys_rec.CUSTOMER_ID := l_mu_customer_id_rec.CUSTOMER_ID;
2519: l_t_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2520: l_t_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2521: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2522: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2523: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2516: -- Bug 7350165
2517: l_t_txn_sys_rec.CUSTOMER_ID := l_mu_new_party_rec.AccountId;
2518: --l_t_txn_sys_rec.CUSTOMER_ID := l_mu_customer_id_rec.CUSTOMER_ID;
2519: l_t_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2520: l_t_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2521: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2522: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2523: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2524: l_t_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2517: l_t_txn_sys_rec.CUSTOMER_ID := l_mu_new_party_rec.AccountId;
2518: --l_t_txn_sys_rec.CUSTOMER_ID := l_mu_customer_id_rec.CUSTOMER_ID;
2519: l_t_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2520: l_t_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2521: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2522: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2523: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2524: l_t_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2525: l_t_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2518: --l_t_txn_sys_rec.CUSTOMER_ID := l_mu_customer_id_rec.CUSTOMER_ID;
2519: l_t_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2520: l_t_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2521: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2522: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2523: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2524: l_t_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2525: l_t_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2526: l_t_txn_sys_rec.COTERMINATE_DAY_MONTH := l_mu_system_rec.COTERMINATE_DAY_MONTH;
2519: l_t_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2520: l_t_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2521: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2522: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2523: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2524: l_t_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2525: l_t_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2526: l_t_txn_sys_rec.COTERMINATE_DAY_MONTH := l_mu_system_rec.COTERMINATE_DAY_MONTH;
2527: l_t_txn_sys_rec.START_DATE_ACTIVE := l_mu_system_rec.START_DATE_ACTIVE;
2520: l_t_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2521: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2522: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2523: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2524: l_t_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2525: l_t_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2526: l_t_txn_sys_rec.COTERMINATE_DAY_MONTH := l_mu_system_rec.COTERMINATE_DAY_MONTH;
2527: l_t_txn_sys_rec.START_DATE_ACTIVE := l_mu_system_rec.START_DATE_ACTIVE;
2528: l_t_txn_sys_rec.END_DATE_ACTIVE := l_mu_system_rec.END_DATE_ACTIVE;
2521: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2522: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2523: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2524: l_t_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2525: l_t_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2526: l_t_txn_sys_rec.COTERMINATE_DAY_MONTH := l_mu_system_rec.COTERMINATE_DAY_MONTH;
2527: l_t_txn_sys_rec.START_DATE_ACTIVE := l_mu_system_rec.START_DATE_ACTIVE;
2528: l_t_txn_sys_rec.END_DATE_ACTIVE := l_mu_system_rec.END_DATE_ACTIVE;
2529: l_t_txn_sys_rec.CONTEXT := l_txn_line_id;
2546:
2547: debug('Creating system t transaction');
2548: csi_t_txn_systems_pvt.create_txn_system(
2549: p_api_version => 1.0,
2550: p_commit => FND_API.G_FALSE,
2551: p_init_msg_list => FND_API.G_FALSE,
2552: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2553: p_txn_system_rec => l_t_txn_sys_rec,
2554: x_txn_system_id => upd_system_tbl(system_rec_ind).SYSTEM_ID,
2547: debug('Creating system t transaction');
2548: csi_t_txn_systems_pvt.create_txn_system(
2549: p_api_version => 1.0,
2550: p_commit => FND_API.G_FALSE,
2551: p_init_msg_list => FND_API.G_FALSE,
2552: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2553: p_txn_system_rec => l_t_txn_sys_rec,
2554: x_txn_system_id => upd_system_tbl(system_rec_ind).SYSTEM_ID,
2555: x_return_status => l_return_status,
2548: csi_t_txn_systems_pvt.create_txn_system(
2549: p_api_version => 1.0,
2550: p_commit => FND_API.G_FALSE,
2551: p_init_msg_list => FND_API.G_FALSE,
2552: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2553: p_txn_system_rec => l_t_txn_sys_rec,
2554: x_txn_system_id => upd_system_tbl(system_rec_ind).SYSTEM_ID,
2555: x_return_status => l_return_status,
2556: x_msg_count => l_msg_count,
2561: -- Calling CSI_SYSTEMS_PVT to update the system
2562: -- with l_txn_sys_rec as the system parameter
2563: CSI_SYSTEMS_PVT.UPDATE_SYSTEM(
2564: p_api_version => 1.0,
2565: p_commit => FND_API.G_FALSE,
2566: p_init_msg_list => FND_API.G_FALSE,
2567: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2568: p_system_rec => l_txn_sys_rec,
2569: p_txn_rec => p_txn_rec,
2562: -- with l_txn_sys_rec as the system parameter
2563: CSI_SYSTEMS_PVT.UPDATE_SYSTEM(
2564: p_api_version => 1.0,
2565: p_commit => FND_API.G_FALSE,
2566: p_init_msg_list => FND_API.G_FALSE,
2567: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2568: p_system_rec => l_txn_sys_rec,
2569: p_txn_rec => p_txn_rec,
2570: x_return_status => l_return_status,
2563: CSI_SYSTEMS_PVT.UPDATE_SYSTEM(
2564: p_api_version => 1.0,
2565: p_commit => FND_API.G_FALSE,
2566: p_init_msg_list => FND_API.G_FALSE,
2567: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2568: p_system_rec => l_txn_sys_rec,
2569: p_txn_rec => p_txn_rec,
2570: x_return_status => l_return_status,
2571: x_msg_count => l_msg_count,
2570: x_return_status => l_return_status,
2571: x_msg_count => l_msg_count,
2572: x_msg_data => l_msg_data);
2573:
2574: IF NOT l_return_status = fnd_api.g_ret_sts_success
2575: THEN
2576: debug('Error updating systems in PROCESS_SYSTEM_MASS_UPDATE - System ID - ' || upd_system_tbl(system_rec_ind).SYSTEM_ID);
2577: RAISE FND_API.G_EXC_ERROR;
2578: END IF;
2573:
2574: IF NOT l_return_status = fnd_api.g_ret_sts_success
2575: THEN
2576: debug('Error updating systems in PROCESS_SYSTEM_MASS_UPDATE - System ID - ' || upd_system_tbl(system_rec_ind).SYSTEM_ID);
2577: RAISE FND_API.G_EXC_ERROR;
2578: END IF;
2579:
2580: END LOOP; -- upd_system_tbl
2581:
2579:
2580: END LOOP; -- upd_system_tbl
2581:
2582: ELSE -- upd_system_tbl.COUNT > 0
2583: x_return_status := fnd_api.g_ret_sts_success;
2584: END IF; -- upd_system_tbl.COUNT > 0
2585:
2586: EXCEPTION
2587: WHEN FND_API.G_EXC_ERROR THEN
2583: x_return_status := fnd_api.g_ret_sts_success;
2584: END IF; -- upd_system_tbl.COUNT > 0
2585:
2586: EXCEPTION
2587: WHEN FND_API.G_EXC_ERROR THEN
2588: ROLLBACK TO PROCESS_SYSTEM_MASS_UPDATE;
2589: x_return_status := FND_API.G_RET_STS_ERROR ;
2590: FND_MSG_PUB.Count_And_Get
2591: ( p_count => x_msg_count,
2585:
2586: EXCEPTION
2587: WHEN FND_API.G_EXC_ERROR THEN
2588: ROLLBACK TO PROCESS_SYSTEM_MASS_UPDATE;
2589: x_return_status := FND_API.G_RET_STS_ERROR ;
2590: FND_MSG_PUB.Count_And_Get
2591: ( p_count => x_msg_count,
2592: p_data => x_msg_data
2593: );
2591: ( p_count => x_msg_count,
2592: p_data => x_msg_data
2593: );
2594:
2595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2596: ROLLBACK TO PROCESS_SYSTEM_MASS_UPDATE;
2597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2598: FND_MSG_PUB.Count_And_Get
2599: ( p_count => x_msg_count,
2593: );
2594:
2595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2596: ROLLBACK TO PROCESS_SYSTEM_MASS_UPDATE;
2597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2598: FND_MSG_PUB.Count_And_Get
2599: ( p_count => x_msg_count,
2600: p_data => x_msg_data
2601: );
2601: );
2602:
2603: WHEN OTHERS THEN
2604: ROLLBACK TO PROCESS_SYSTEM_MASS_UPDATE;
2605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2606: IF FND_MSG_PUB.Check_Msg_Level
2607: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2608: THEN
2609: FND_MSG_PUB.Add_Exc_Msg
2642:
2643: l_active_instance_count NUMBER := 0;
2644: l_mu_instance_count NUMBER := 0;
2645: l_sys_ind NUMBER := 0;
2646: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2647:
2648:
2649: BEGIN
2650:
2694: END LOOP; -- distinct_system_cur(p_txn_line_id)
2695:
2696: debug('Total Number of Systems to be updated - ' || p_upd_system_tbl.COUNT);
2697: debug_out('Total Number of Systems to be updated - ' || p_upd_system_tbl.COUNT);
2698: x_return_status := FND_API.G_RET_STS_SUCCESS;
2699: debug('End IDENTIFY_SYSTEM_FOR_UPDATE');
2700: EXCEPTION
2701: WHEN OTHERS THEN
2702: debug('Exception in IDENTIFY_SYSTEM_FOR_UPDATE');
2699: debug('End IDENTIFY_SYSTEM_FOR_UPDATE');
2700: EXCEPTION
2701: WHEN OTHERS THEN
2702: debug('Exception in IDENTIFY_SYSTEM_FOR_UPDATE');
2703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2704:
2705: END IDENTIFY_SYSTEM_FOR_UPDATE; -- IDENTIFY_SYSTEM_FOR_UPDATE
2706:
2707: /*----------------------------------------------------*/
2749:
2750: debug('Inside VALIDATE_SYSTEM_BATCH');
2751:
2752: -- Validation logic
2753: x_return_status := FND_API.G_RET_STS_SUCCESS;
2754:
2755: OPEN SYS_ACCOUNT_CSR (p_entry_id);
2756: FETCH SYS_ACCOUNT_CSR INTO l_sys_acct_rec;
2757: CLOSE SYS_ACCOUNT_CSR;
2767: fnd_message.set_name('CSI', 'CSI_CUSTOMER_ID_NOT_FOUND');
2768: fnd_message.set_token('PARTY_ID',l_sys_acct_rec.Party_Id);
2769: fnd_message.set_token('ACCOUNT_NUMBER',l_sys_acct_rec.Account_Id);
2770: fnd_msg_pub.add;
2771: RAISE FND_API.G_EXC_ERROR;
2772:
2773: WHEN TOO_MANY_ROWS THEN
2774: fnd_message.set_name('CSI', 'CSI_MULTIPLE_CUSTOMER_ID_FOUND');
2775: fnd_message.set_token('PARTY_ID',l_sys_acct_rec.Party_Id);
2774: fnd_message.set_name('CSI', 'CSI_MULTIPLE_CUSTOMER_ID_FOUND');
2775: fnd_message.set_token('PARTY_ID',l_sys_acct_rec.Party_Id);
2776: fnd_message.set_token('ACCOUNT_NUMBER',l_sys_acct_rec.Account_Id);
2777: fnd_msg_pub.add;
2778: RAISE FND_API.G_EXC_ERROR;
2779: WHEN OTHERS THEN
2780: debug('In to Others Exception while finding customer id');
2781: RAISE FND_API.G_EXC_ERROR;
2782: END;
2777: fnd_msg_pub.add;
2778: RAISE FND_API.G_EXC_ERROR;
2779: WHEN OTHERS THEN
2780: debug('In to Others Exception while finding customer id');
2781: RAISE FND_API.G_EXC_ERROR;
2782: END;
2783: */
2784: debug('Total Number of Systems qualifying for mass update - ' || p_upd_system_tbl.COUNT);
2785: IF p_upd_system_tbl.COUNT > 0 THEN
2797: -- and system termination date - VLD_SYSTEM_TERM_DATE
2798: -- 4. To check if the system location ids changed after batch was
2799: -- scheduled - VLD_SYSTEM_LOCATION_CHGD
2800:
2801: IF NVL(p_upd_system_tbl(system_rec_ind).SYSTEM_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2802:
2803: -- Whether the System is active or not
2804: debug('Executing VLD_SYSTEM_ACTIVE');
2805: CSI_MASS_EDIT_PVT.VLD_SYSTEM_ACTIVE(
2834: CSI_MASS_EDIT_PVT.VLD_SYSTEM_LOCATION_CHGD(
2835: p_upd_system_tbl(system_rec_ind).SYSTEM_ID,
2836: p_txn_line_id,
2837: l_mu_sys_error_tbl);
2838: END IF; -- NVL(l_system_rec.system_id, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
2839: END LOOP; -- system_rec_ind IN
2840: END IF; -- p_upd_system_tbl.COUNT
2841:
2842: -- Check the Error table
2842: -- Check the Error table
2843: IF l_mu_sys_error_tbl.count > 0 THEN
2844: debug('Total Number of errors after system validation: '||l_mu_sys_error_tbl.count);
2845: FOR f in l_mu_sys_error_tbl.first .. l_mu_sys_error_tbl.last LOOP
2846: IF (l_mu_sys_error_tbl(f).error_code = fnd_api.g_ret_sts_error AND
2847: l_errors_found = 'N') THEN
2848: l_errors_found := 'Y';
2849: debug('Errors found from system validation');
2850: debug('Error message: '||substr(l_mu_sys_error_tbl(f).ERROR_TEXT,1,length(l_mu_sys_error_tbl(f).ERROR_TEXT)));
2864: END LOOP;
2865:
2866: IF (l_errors_found = 'Y' and l_warnings_found = 'Y' OR
2867: l_errors_found = 'Y' and l_warnings_found = 'N') THEN
2868: debug('Errors found from VALIDATE_SYSTEM_BATCH and raising FND_API.G_EXC_ERROR');
2869: RAISE FND_API.G_EXC_ERROR;
2870: ELSIF (l_errors_found = 'N' and l_warnings_found = 'Y') THEN
2871: x_return_status := 'W';
2872: END IF;
2865:
2866: IF (l_errors_found = 'Y' and l_warnings_found = 'Y' OR
2867: l_errors_found = 'Y' and l_warnings_found = 'N') THEN
2868: debug('Errors found from VALIDATE_SYSTEM_BATCH and raising FND_API.G_EXC_ERROR');
2869: RAISE FND_API.G_EXC_ERROR;
2870: ELSIF (l_errors_found = 'N' and l_warnings_found = 'Y') THEN
2871: x_return_status := 'W';
2872: END IF;
2873: debug('Return Status from VALIDATE_SYSTEM_BATCH: '||x_return_status);
2871: x_return_status := 'W';
2872: END IF;
2873: debug('Return Status from VALIDATE_SYSTEM_BATCH: '||x_return_status);
2874: ELSE
2875: x_return_status := fnd_api.g_ret_sts_success;
2876: END IF;
2877:
2878: EXCEPTION
2879: WHEN FND_API.G_EXC_ERROR THEN
2875: x_return_status := fnd_api.g_ret_sts_success;
2876: END IF;
2877:
2878: EXCEPTION
2879: WHEN FND_API.G_EXC_ERROR THEN
2880: debug('Encountered FND_API.G_EXC_ERROR in VALIDATE_SYSTEM_BATCH');
2881: x_return_status := FND_API.G_RET_STS_ERROR ;
2882: WHEN OTHERS THEN
2883: debug('Encountered WHEN OTHERS in VALIDATE_SYSTEM_BATCH');
2876: END IF;
2877:
2878: EXCEPTION
2879: WHEN FND_API.G_EXC_ERROR THEN
2880: debug('Encountered FND_API.G_EXC_ERROR in VALIDATE_SYSTEM_BATCH');
2881: x_return_status := FND_API.G_RET_STS_ERROR ;
2882: WHEN OTHERS THEN
2883: debug('Encountered WHEN OTHERS in VALIDATE_SYSTEM_BATCH');
2884: debug( to_char(SQLCODE)||substr(SQLERRM, 1, 255));
2877:
2878: EXCEPTION
2879: WHEN FND_API.G_EXC_ERROR THEN
2880: debug('Encountered FND_API.G_EXC_ERROR in VALIDATE_SYSTEM_BATCH');
2881: x_return_status := FND_API.G_RET_STS_ERROR ;
2882: WHEN OTHERS THEN
2883: debug('Encountered WHEN OTHERS in VALIDATE_SYSTEM_BATCH');
2884: debug( to_char(SQLCODE)||substr(SQLERRM, 1, 255));
2885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2881: x_return_status := FND_API.G_RET_STS_ERROR ;
2882: WHEN OTHERS THEN
2883: debug('Encountered WHEN OTHERS in VALIDATE_SYSTEM_BATCH');
2884: debug( to_char(SQLCODE)||substr(SQLERRM, 1, 255));
2885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2886:
2887: END VALIDATE_SYSTEM_BATCH; -- VALIDATE_SYSTEM_BATCH
2888:
2889: End CSI_MASS_EDIT_PUB;