[Home] [Help]
477: -- Cursors
478: CURSOR selected_instance_csr (p_txn_line_id IN NUMBER) IS
479: SELECT ctld.instance_id
480: ,ctld.transaction_line_id
481: ,nvl(ctld.location_id, FND_API.G_MISS_NUM) location_id
482: ,nvl(ctld.location_type_code, FND_API.G_MISS_CHAR) location_type_code
483: ,nvl(ctld.install_location_id, FND_API.G_MISS_NUM) install_location_id
484: ,nvl(ctld.install_location_type_code, FND_API.G_MISS_CHAR) install_location_type_code
485: ,cii.object_version_number
478: CURSOR selected_instance_csr (p_txn_line_id IN NUMBER) IS
479: SELECT ctld.instance_id
480: ,ctld.transaction_line_id
481: ,nvl(ctld.location_id, FND_API.G_MISS_NUM) location_id
482: ,nvl(ctld.location_type_code, FND_API.G_MISS_CHAR) location_type_code
483: ,nvl(ctld.install_location_id, FND_API.G_MISS_NUM) install_location_id
484: ,nvl(ctld.install_location_type_code, FND_API.G_MISS_CHAR) install_location_type_code
485: ,cii.object_version_number
486: ,cii.instance_usage_code
479: SELECT ctld.instance_id
480: ,ctld.transaction_line_id
481: ,nvl(ctld.location_id, FND_API.G_MISS_NUM) location_id
482: ,nvl(ctld.location_type_code, FND_API.G_MISS_CHAR) location_type_code
483: ,nvl(ctld.install_location_id, FND_API.G_MISS_NUM) install_location_id
484: ,nvl(ctld.install_location_type_code, FND_API.G_MISS_CHAR) install_location_type_code
485: ,cii.object_version_number
486: ,cii.instance_usage_code
487: FROM csi_t_txn_line_details ctld,
480: ,ctld.transaction_line_id
481: ,nvl(ctld.location_id, FND_API.G_MISS_NUM) location_id
482: ,nvl(ctld.location_type_code, FND_API.G_MISS_CHAR) location_type_code
483: ,nvl(ctld.install_location_id, FND_API.G_MISS_NUM) install_location_id
484: ,nvl(ctld.install_location_type_code, FND_API.G_MISS_CHAR) install_location_type_code
485: ,cii.object_version_number
486: ,cii.instance_usage_code
487: FROM csi_t_txn_line_details ctld,
488: csi_item_instances cii
579: d_ext_attrib_tbl csi_t_datastructures_grp.txn_ext_attrib_vals_tbl;
580: d_csi_ea_tbl csi_t_datastructures_grp.csi_ext_attribs_tbl;
581: d_csi_eav_tbl csi_t_datastructures_grp.csi_ext_attrib_vals_tbl;
582: d_txn_systems_tbl csi_t_datastructures_grp.txn_systems_tbl;
583: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
584: l_msg_count NUMBER;
585: l_msg_data VARCHAR2(2000);
586:
587: -- New Tables for the selected instances in the batch
702: debug(' ');
703: errbuf := 'E';
704: WHEN OTHERS THEN
705: debug('When others exception from Mass Edit Entry processing query..'||to_char(sqlcode)||'-'||substr(sqlerrm, 1, 255));
706: raise fnd_api.g_exc_error;
707: END;
708:
709: debug(' Processing Mass Edit Batch :'||l_name);
710: debug(' Batch Id : '||p_entry_id);
741: errbuf := 'E';
742: debug(' ');
743: WHEN OTHERS THEN
744: debug('When others exception from Mass Edit Entry processing query..'||to_char(sqlcode)||'-'||substr(sqlerrm, 1, 255));
745: raise fnd_api.g_exc_error;
746: END;
747:
748: IF l_found_batch is not null
749: THEN
779: x_return_status => l_return_status
780: );
781: debug('Return status from validation routine : '|| l_return_status);
782:
783: If l_return_status <> fnd_api.g_ret_sts_success
784: Then
785: If l_medit_error_tbl.count > 0
786: Then
787: l_temp_merror_tbl.delete;
837: d_txn_line_detail_query_rec.instance_exists_flag := 'N';
838:
839: csi_t_txn_details_grp.get_transaction_details(
840: p_api_version => 1.0,
841: p_commit => fnd_api.g_false,
842: p_init_msg_list => fnd_api.g_true,
843: p_validation_level => fnd_api.g_valid_level_full,
844: p_txn_line_query_rec => d_txn_line_query_rec,
845: p_txn_line_detail_query_rec => d_txn_line_detail_query_rec,
838:
839: csi_t_txn_details_grp.get_transaction_details(
840: p_api_version => 1.0,
841: p_commit => fnd_api.g_false,
842: p_init_msg_list => fnd_api.g_true,
843: p_validation_level => fnd_api.g_valid_level_full,
844: p_txn_line_query_rec => d_txn_line_query_rec,
845: p_txn_line_detail_query_rec => d_txn_line_detail_query_rec,
846: x_txn_line_detail_tbl => d_line_dtl_tbl,
839: csi_t_txn_details_grp.get_transaction_details(
840: p_api_version => 1.0,
841: p_commit => fnd_api.g_false,
842: p_init_msg_list => fnd_api.g_true,
843: p_validation_level => fnd_api.g_valid_level_full,
844: p_txn_line_query_rec => d_txn_line_query_rec,
845: p_txn_line_detail_query_rec => d_txn_line_detail_query_rec,
846: x_txn_line_detail_tbl => d_line_dtl_tbl,
847: p_get_parties_flag => fnd_api.g_true,
843: p_validation_level => fnd_api.g_valid_level_full,
844: p_txn_line_query_rec => d_txn_line_query_rec,
845: p_txn_line_detail_query_rec => d_txn_line_detail_query_rec,
846: x_txn_line_detail_tbl => d_line_dtl_tbl,
847: p_get_parties_flag => fnd_api.g_true,
848: x_txn_party_detail_tbl => d_pty_dtl_tbl,
849: p_get_pty_accts_flag => fnd_api.g_true,
850: x_txn_pty_acct_detail_tbl => d_pty_acct_tbl,
851: p_get_ii_rltns_flag => fnd_api.g_true,
845: p_txn_line_detail_query_rec => d_txn_line_detail_query_rec,
846: x_txn_line_detail_tbl => d_line_dtl_tbl,
847: p_get_parties_flag => fnd_api.g_true,
848: x_txn_party_detail_tbl => d_pty_dtl_tbl,
849: p_get_pty_accts_flag => fnd_api.g_true,
850: x_txn_pty_acct_detail_tbl => d_pty_acct_tbl,
851: p_get_ii_rltns_flag => fnd_api.g_true,
852: x_txn_ii_rltns_tbl => d_ii_rltns_tbl,
853: p_get_org_assgns_flag => fnd_api.g_true,
847: p_get_parties_flag => fnd_api.g_true,
848: x_txn_party_detail_tbl => d_pty_dtl_tbl,
849: p_get_pty_accts_flag => fnd_api.g_true,
850: x_txn_pty_acct_detail_tbl => d_pty_acct_tbl,
851: p_get_ii_rltns_flag => fnd_api.g_true,
852: x_txn_ii_rltns_tbl => d_ii_rltns_tbl,
853: p_get_org_assgns_flag => fnd_api.g_true,
854: x_txn_org_assgn_tbl => d_org_assgn_tbl,
855: p_get_ext_attrib_vals_flag => fnd_api.g_true,
849: p_get_pty_accts_flag => fnd_api.g_true,
850: x_txn_pty_acct_detail_tbl => d_pty_acct_tbl,
851: p_get_ii_rltns_flag => fnd_api.g_true,
852: x_txn_ii_rltns_tbl => d_ii_rltns_tbl,
853: p_get_org_assgns_flag => fnd_api.g_true,
854: x_txn_org_assgn_tbl => d_org_assgn_tbl,
855: p_get_ext_attrib_vals_flag => fnd_api.g_true,
856: x_txn_ext_attrib_vals_tbl => d_ext_attrib_tbl,
857: p_get_csi_attribs_flag => fnd_api.g_false,
851: p_get_ii_rltns_flag => fnd_api.g_true,
852: x_txn_ii_rltns_tbl => d_ii_rltns_tbl,
853: p_get_org_assgns_flag => fnd_api.g_true,
854: x_txn_org_assgn_tbl => d_org_assgn_tbl,
855: p_get_ext_attrib_vals_flag => fnd_api.g_true,
856: x_txn_ext_attrib_vals_tbl => d_ext_attrib_tbl,
857: p_get_csi_attribs_flag => fnd_api.g_false,
858: x_csi_ext_attribs_tbl => d_csi_ea_tbl,
859: p_get_csi_iea_values_flag => fnd_api.g_false,
853: p_get_org_assgns_flag => fnd_api.g_true,
854: x_txn_org_assgn_tbl => d_org_assgn_tbl,
855: p_get_ext_attrib_vals_flag => fnd_api.g_true,
856: x_txn_ext_attrib_vals_tbl => d_ext_attrib_tbl,
857: p_get_csi_attribs_flag => fnd_api.g_false,
858: x_csi_ext_attribs_tbl => d_csi_ea_tbl,
859: p_get_csi_iea_values_flag => fnd_api.g_false,
860: x_csi_iea_values_tbl => d_csi_eav_tbl,
861: p_get_txn_systems_flag => fnd_api.g_false,
855: p_get_ext_attrib_vals_flag => fnd_api.g_true,
856: x_txn_ext_attrib_vals_tbl => d_ext_attrib_tbl,
857: p_get_csi_attribs_flag => fnd_api.g_false,
858: x_csi_ext_attribs_tbl => d_csi_ea_tbl,
859: p_get_csi_iea_values_flag => fnd_api.g_false,
860: x_csi_iea_values_tbl => d_csi_eav_tbl,
861: p_get_txn_systems_flag => fnd_api.g_false,
862: x_txn_systems_tbl => d_txn_systems_tbl,
863: x_return_status => l_return_status,
857: p_get_csi_attribs_flag => fnd_api.g_false,
858: x_csi_ext_attribs_tbl => d_csi_ea_tbl,
859: p_get_csi_iea_values_flag => fnd_api.g_false,
860: x_csi_iea_values_tbl => d_csi_eav_tbl,
861: p_get_txn_systems_flag => fnd_api.g_false,
862: x_txn_systems_tbl => d_txn_systems_tbl,
863: x_return_status => l_return_status,
864: x_msg_count => l_msg_count,
865: x_msg_data => l_msg_data);
863: x_return_status => l_return_status,
864: x_msg_count => l_msg_count,
865: x_msg_data => l_msg_data);
866:
867: IF l_return_status <> fnd_api.g_ret_sts_success THEN
868: RAISE fnd_api.g_exc_error;
869: END IF;
870:
871: debug('After get_transaction_details :');
864: x_msg_count => l_msg_count,
865: x_msg_data => l_msg_data);
866:
867: IF l_return_status <> fnd_api.g_ret_sts_success THEN
868: RAISE fnd_api.g_exc_error;
869: END IF;
870:
871: debug('After get_transaction_details :');
872: debug(' line_dtl_tbl.count :'||d_line_dtl_tbl.count);
891: n_inst_ind := n_inst_ind + 1;
892: n_instance_tbl(n_inst_ind).instance_id := l_instance_csr.instance_id;
893: n_instance_tbl(n_inst_ind).object_version_number := l_instance_csr.object_version_number;
894: -- System
895: If nvl(d_line_dtl_tbl(1).csi_system_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
896: Then
897: n_instance_tbl(n_inst_ind).system_id := d_line_dtl_tbl(1).csi_system_id;
898: End If;
899: -- Instance Status
896: Then
897: n_instance_tbl(n_inst_ind).system_id := d_line_dtl_tbl(1).csi_system_id;
898: End If;
899: -- Instance Status
900: If nvl(d_line_dtl_tbl(1).instance_status_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
901: Then
902: n_instance_tbl(n_inst_ind).instance_status_id := d_line_dtl_tbl(1).instance_status_id;
903: End If;
904: -- External Reference
901: Then
902: n_instance_tbl(n_inst_ind).instance_status_id := d_line_dtl_tbl(1).instance_status_id;
903: End If;
904: -- External Reference
905: If nvl(d_line_dtl_tbl(1).external_reference,fnd_api.g_miss_char) <> fnd_api.g_miss_char
906: Then
907: n_instance_tbl(n_inst_ind).external_reference := d_line_dtl_tbl(1).external_reference;
908: End If;
909: -- Version Label
906: Then
907: n_instance_tbl(n_inst_ind).external_reference := d_line_dtl_tbl(1).external_reference;
908: End If;
909: -- Version Label
910: If nvl(d_line_dtl_tbl(1).version_label,fnd_api.g_miss_char) <> fnd_api.g_miss_char
911: Then
912: n_instance_tbl(n_inst_ind).version_label := d_line_dtl_tbl(1).version_label;
913: End If ;
914: -- Transfer Date
911: Then
912: n_instance_tbl(n_inst_ind).version_label := d_line_dtl_tbl(1).version_label;
913: End If ;
914: -- Transfer Date
915: IF nvl(d_line_dtl_tbl(1).active_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date
916: Then
917: n_instance_tbl(n_inst_ind).active_start_date := d_line_dtl_tbl(1).active_start_date;
918: End If;
919: -- Termination Date
916: Then
917: n_instance_tbl(n_inst_ind).active_start_date := d_line_dtl_tbl(1).active_start_date;
918: End If;
919: -- Termination Date
920: IF nvl(d_line_dtl_tbl(1).active_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date
921: Then
922: n_instance_tbl(n_inst_ind).active_end_date := d_line_dtl_tbl(1).active_end_date;
923: End If;
924:
921: Then
922: n_instance_tbl(n_inst_ind).active_end_date := d_line_dtl_tbl(1).active_end_date;
923: End If;
924:
925: IF nvl(d_line_dtl_tbl(1).active_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date THEN
926: debug('Setting Termination Date in instance Rec');
927: n_txn_rec.source_transaction_date := d_line_dtl_tbl(1).active_end_date;
928: End If;
929: debug('Termination Date.........................:'||n_txn_rec.source_transaction_date);
928: End If;
929: debug('Termination Date.........................:'||n_txn_rec.source_transaction_date);
930:
931: -- Install Date
932: IF nvl(d_line_dtl_tbl(1).installation_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date
933: Then
934: n_instance_tbl(n_inst_ind).install_date := d_line_dtl_tbl(1).installation_date;
935: End If;
936:
936:
937: -- Install and Current Location Changes
938: IF l_batch_type in ('XFER','MOVE')
939: Then
940: IF nvl(l_instance_csr.instance_usage_code,fnd_api.g_miss_char) = 'IN_RELATIONSHIP'
941: Then
942: n_instance_tbl(n_inst_ind).location_id := fnd_api.g_miss_num;
943: n_instance_tbl(n_inst_ind).location_type_code := fnd_api.g_miss_char;
944: n_instance_tbl(n_inst_ind).install_location_id := fnd_api.g_miss_num;
938: IF l_batch_type in ('XFER','MOVE')
939: Then
940: IF nvl(l_instance_csr.instance_usage_code,fnd_api.g_miss_char) = 'IN_RELATIONSHIP'
941: Then
942: n_instance_tbl(n_inst_ind).location_id := fnd_api.g_miss_num;
943: n_instance_tbl(n_inst_ind).location_type_code := fnd_api.g_miss_char;
944: n_instance_tbl(n_inst_ind).install_location_id := fnd_api.g_miss_num;
945: n_instance_tbl(n_inst_ind).install_location_type_code := fnd_api.g_miss_char;
946: Else
939: Then
940: IF nvl(l_instance_csr.instance_usage_code,fnd_api.g_miss_char) = 'IN_RELATIONSHIP'
941: Then
942: n_instance_tbl(n_inst_ind).location_id := fnd_api.g_miss_num;
943: n_instance_tbl(n_inst_ind).location_type_code := fnd_api.g_miss_char;
944: n_instance_tbl(n_inst_ind).install_location_id := fnd_api.g_miss_num;
945: n_instance_tbl(n_inst_ind).install_location_type_code := fnd_api.g_miss_char;
946: Else
947: IF nvl(d_line_dtl_tbl(1).location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
940: IF nvl(l_instance_csr.instance_usage_code,fnd_api.g_miss_char) = 'IN_RELATIONSHIP'
941: Then
942: n_instance_tbl(n_inst_ind).location_id := fnd_api.g_miss_num;
943: n_instance_tbl(n_inst_ind).location_type_code := fnd_api.g_miss_char;
944: n_instance_tbl(n_inst_ind).install_location_id := fnd_api.g_miss_num;
945: n_instance_tbl(n_inst_ind).install_location_type_code := fnd_api.g_miss_char;
946: Else
947: IF nvl(d_line_dtl_tbl(1).location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
948: Then
941: Then
942: n_instance_tbl(n_inst_ind).location_id := fnd_api.g_miss_num;
943: n_instance_tbl(n_inst_ind).location_type_code := fnd_api.g_miss_char;
944: n_instance_tbl(n_inst_ind).install_location_id := fnd_api.g_miss_num;
945: n_instance_tbl(n_inst_ind).install_location_type_code := fnd_api.g_miss_char;
946: Else
947: IF nvl(d_line_dtl_tbl(1).location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
948: Then
949: n_instance_tbl(n_inst_ind).location_id := d_line_dtl_tbl(1).location_id;
943: n_instance_tbl(n_inst_ind).location_type_code := fnd_api.g_miss_char;
944: n_instance_tbl(n_inst_ind).install_location_id := fnd_api.g_miss_num;
945: n_instance_tbl(n_inst_ind).install_location_type_code := fnd_api.g_miss_char;
946: Else
947: IF nvl(d_line_dtl_tbl(1).location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
948: Then
949: n_instance_tbl(n_inst_ind).location_id := d_line_dtl_tbl(1).location_id;
950: End If;
951: IF nvl(d_line_dtl_tbl(1).location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
947: IF nvl(d_line_dtl_tbl(1).location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
948: Then
949: n_instance_tbl(n_inst_ind).location_id := d_line_dtl_tbl(1).location_id;
950: End If;
951: IF nvl(d_line_dtl_tbl(1).location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
952: Then
953: n_instance_tbl(n_inst_ind).location_type_code := d_line_dtl_tbl(1).location_type_code;
954: End If;
955: IF nvl(d_line_dtl_tbl(1).install_location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
951: IF nvl(d_line_dtl_tbl(1).location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
952: Then
953: n_instance_tbl(n_inst_ind).location_type_code := d_line_dtl_tbl(1).location_type_code;
954: End If;
955: IF nvl(d_line_dtl_tbl(1).install_location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
956: Then
957: n_instance_tbl(n_inst_ind).install_location_id := d_line_dtl_tbl(1).install_location_id;
958: End If;
959: IF nvl(d_line_dtl_tbl(1).install_location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
955: IF nvl(d_line_dtl_tbl(1).install_location_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
956: Then
957: n_instance_tbl(n_inst_ind).install_location_id := d_line_dtl_tbl(1).install_location_id;
958: End If;
959: IF nvl(d_line_dtl_tbl(1).install_location_type_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char
960: Then
961: n_instance_tbl(n_inst_ind).install_location_type_code := d_line_dtl_tbl(1).install_location_type_code;
962: End If;
963: End If;
1037: LOOP
1038: -- Building New owner party
1039: IF d_pty_dtl_tbl(j).relationship_type_code = 'OWNER'
1040: AND
1041: nvl(d_pty_dtl_tbl(j).contact_flag,fnd_api.g_miss_char) = 'N'
1042: AND
1043: l_batch_type = 'XFER'
1044: THEN
1045: l_pty_index := l_pty_index + 1;
1052: n_party_tbl(l_pty_index).object_version_number := l_core_inst_pty_det.pty_obj_version_number;
1053: n_party_tbl(l_pty_index).contact_flag := 'N';
1054:
1055:
1056: IF nvl(d_pty_dtl_tbl(j).active_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date THEN
1057: debug('Setting Party Transfer Date in Transaction Rec');
1058: n_txn_rec.source_transaction_date := d_pty_dtl_tbl(j).active_start_date;
1059: End If;
1060: debug('Transfer Date.........................:'||n_txn_rec.source_transaction_date);
1072: n_party_account_tbl(l_acct_index).ship_to_address := l_acct_ship_to;
1073: n_party_account_tbl(l_acct_index).object_version_number := l_core_inst_pty_det.pty_acct_obj_version_number;
1074: ELSIF d_pty_dtl_tbl(j).relationship_type_code = 'OWNER'
1075: AND
1076: nvl(d_pty_dtl_tbl(j).contact_flag,fnd_api.g_miss_char) = 'N'
1077: AND
1078: l_batch_type = 'MOVE'
1079: THEN
1080: l_pty_index := l_pty_index + 1;
1102:
1103: -- Building New Party other than owner
1104: ELSIF d_pty_dtl_tbl(j).relationship_type_code <> 'OWNER'
1105: AND
1106: nvl(d_pty_dtl_tbl(j).contact_flag,fnd_api.g_miss_char) = 'N'
1107: AND
1108: d_pty_dtl_tbl(j).active_end_date is null
1109: AND
1110: l_batch_type in ('XFER','MOVE','GEN')
1120: l_pty_tbl_ind := l_pty_index;
1121: -- Building Association to be expired
1122: ELSIF d_pty_dtl_tbl(j).relationship_type_code <> 'OWNER'
1123: AND
1124: nvl(d_pty_dtl_tbl(j).contact_flag,fnd_api.g_miss_char) = 'N'
1125: AND
1126: nvl(d_pty_dtl_tbl(j).active_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date
1127: AND
1128: l_batch_type in ('XFER','MOVE','GEN')
1122: ELSIF d_pty_dtl_tbl(j).relationship_type_code <> 'OWNER'
1123: AND
1124: nvl(d_pty_dtl_tbl(j).contact_flag,fnd_api.g_miss_char) = 'N'
1125: AND
1126: nvl(d_pty_dtl_tbl(j).active_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date
1127: AND
1128: l_batch_type in ('XFER','MOVE','GEN')
1129: THEN
1130: FOR l_asso_exp_rec IN curr_asso_csr(l_core_inst_pty_det.pty_instance_id)
1204: debug('Transaction Date in Transaction: '||n_txn_rec.transaction_date);
1205:
1206: csi_item_instance_grp.update_item_instance (
1207: p_api_version => 1.0
1208: ,p_commit => fnd_api.g_false
1209: ,p_init_msg_list => fnd_api.g_true
1210: ,p_validation_level => fnd_api.g_valid_level_full
1211: ,p_instance_tbl => n_instance_tbl
1212: ,p_ext_attrib_values_tbl => n_ext_attrib_values_tbl
1205:
1206: csi_item_instance_grp.update_item_instance (
1207: p_api_version => 1.0
1208: ,p_commit => fnd_api.g_false
1209: ,p_init_msg_list => fnd_api.g_true
1210: ,p_validation_level => fnd_api.g_valid_level_full
1211: ,p_instance_tbl => n_instance_tbl
1212: ,p_ext_attrib_values_tbl => n_ext_attrib_values_tbl
1213: ,p_party_tbl => n_party_tbl
1206: csi_item_instance_grp.update_item_instance (
1207: p_api_version => 1.0
1208: ,p_commit => fnd_api.g_false
1209: ,p_init_msg_list => fnd_api.g_true
1210: ,p_validation_level => fnd_api.g_valid_level_full
1211: ,p_instance_tbl => n_instance_tbl
1212: ,p_ext_attrib_values_tbl => n_ext_attrib_values_tbl
1213: ,p_party_tbl => n_party_tbl
1214: ,p_account_tbl => n_party_account_tbl
1221: ,x_return_status => l_return_status
1222: ,x_msg_count => l_msg_count
1223: ,x_msg_data => l_msg_data);
1224: debug('Group API Return status :'|| l_return_status);
1225: -- IF NOT l_return_status = fnd_api.g_ret_sts_success
1226: -- THEN
1227: -- l_msg_index := 1;
1228: -- l_Error_Message := l_Msg_Data;
1229: -- WHILE l_msg_count > 0
1227: -- l_msg_index := 1;
1228: -- l_Error_Message := l_Msg_Data;
1229: -- WHILE l_msg_count > 0
1230: -- LOOP
1231: -- l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
1232: -- l_msg_index := l_msg_index + 1;
1233: -- l_Msg_Count := l_Msg_Count - 1;
1234: -- END LOOP;
1235: -- RAISE fnd_api.g_exc_error;
1231: -- l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
1232: -- l_msg_index := l_msg_index + 1;
1233: -- l_Msg_Count := l_Msg_Count - 1;
1234: -- END LOOP;
1235: -- RAISE fnd_api.g_exc_error;
1236: -- END IF;
1237: -- END IF;
1238:
1239: If n_grp_error_tbl.count > 0
1237: -- END IF;
1238:
1239: If n_grp_error_tbl.count > 0
1240: Then
1241: l_return_status := fnd_api.g_ret_sts_error;
1242: errbuf := 'E';
1243: -- Added for bug 5169999
1244: Elsif l_return_status = 'W'
1245: Then
1249:
1250: l_warning_message := l_msg_data;
1251: WHILE l_msg_count > 0
1252: LOOP
1253: l_warning_message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
1254: debug_out('Warning message '||l_msg_index||' from OKS API is :'||l_warning_message);
1255: l_msg_index := l_msg_index + 1;
1256: l_msg_count := l_msg_count - 1;
1257: END LOOP;
1257: END LOOP;
1258: End If;
1259:
1260:
1261: If NOT (l_return_status = fnd_api.g_ret_sts_success) AND
1262: errbuf <>'W'
1263: Then
1264: -- Buildinig the error table for sorting and reporting
1265: If nvl(n_grp_error_tbl.count,0) > 0
1298: p_batch_id => p_entry_id,
1299: p_batch_name => l_name
1300: );
1301: debug('Aborting Concurrent Program by raising exception');
1302: RAISE fnd_api.g_exc_error;
1303: Else
1304: -- For each Instance need to Create Notes
1305: IF n_instance_tbl.count > 0
1306: THEN
1313: (
1314: p_parent_note_id => NULL,
1315: p_api_version => 1,
1316: p_init_msg_list => NULL,
1317: p_commit => FND_API.G_FALSE,
1318: p_validation_level => fnd_api.g_valid_level_full, --0,
1319: x_return_status => l_return_status,
1320: x_msg_count => l_msg_count,
1321: x_msg_data => l_msg_data,
1314: p_parent_note_id => NULL,
1315: p_api_version => 1,
1316: p_init_msg_list => NULL,
1317: p_commit => FND_API.G_FALSE,
1318: p_validation_level => fnd_api.g_valid_level_full, --0,
1319: x_return_status => l_return_status,
1320: x_msg_count => l_msg_count,
1321: x_msg_data => l_msg_data,
1322: x_jtf_note_id => l_note_id,
1334: p_created_by => FND_GLOBAL.USER_ID
1335: );
1336:
1337: debug('JTF API Return status :'||l_return_status);
1338: IF NOT(l_return_status = FND_API.G_RET_STS_SUCCESS)
1339: Then
1340: If l_jtf_error = 'N'
1341: Then
1342: l_jtf_error := 'Y';
1346: l_msg_index := 1;
1347: l_Error_Message := l_Msg_Data;
1348: WHILE l_msg_count > 0
1349: LOOP
1350: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
1351: l_msg_index := l_msg_index + 1;
1352: l_Msg_Count := l_Msg_Count - 1;
1353: END LOOP;
1354:
1369: Debug_out('Notes created for instance successfully');
1370: Debug('Checking for system mass update');
1371: Debug_out('Checking for system mass update');
1372: -- Bug 7483403
1373: IF NVL(l_system_cascade, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1374: l_system_cascade := 'N';
1375: END IF; -- NVL(l_system_cascade, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
1376: IF l_system_cascade = 'N' THEN
1377: -- The system cascade is not set
1371: Debug_out('Checking for system mass update');
1372: -- Bug 7483403
1373: IF NVL(l_system_cascade, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1374: l_system_cascade := 'N';
1375: END IF; -- NVL(l_system_cascade, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
1376: IF l_system_cascade = 'N' THEN
1377: -- The system cascade is not set
1378: -- Update the mass update status and exit
1379: -- Updating the status of transaction line for the batch
1427: p_batch_id => p_entry_id,
1428: p_batch_name => l_name
1429: );
1430: debug('Aborting Concurrent Program by raising exception');
1431: RAISE fnd_api.g_exc_error;
1432: End If;
1433: END IF; -- End If for Notes API
1434: END IF; -- End If for Failure/success
1435: END IF; -- End If for Grp APi
1439: -- This block will update systems for transfer owner batch
1440: -- The system will be updated if all the active item instances
1441: -- which are part of the system is included in the transfer owner batch
1442:
1443: IF NVL(l_system_cascade, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1444: l_system_cascade := 'N';
1445: END IF;
1446:
1447: debug('System Cascade : ' || l_system_cascade);
1491: -- 2. After identifying the systems, update them
1492:
1493: PROCESS_SYSTEM_MASS_UPDATE (
1494: p_api_version => 1.0
1495: ,p_commit => fnd_api.g_false
1496: ,p_Entry_id => p_Entry_id
1497: ,p_instance_tbl => n_instance_tbl
1498: ,p_ext_attrib_values_tbl => n_ext_attrib_values_tbl -- Not used, retained for future enhancements
1499: ,p_party_tbl => n_party_tbl
1502: ,x_return_status => l_return_status
1503: ,x_msg_count => l_msg_count
1504: ,x_msg_data => l_msg_data);
1505:
1506: IF NOT l_return_status = fnd_api.g_ret_sts_success
1507: THEN
1508: l_msg_index := 1;
1509: l_Error_Message := l_Msg_Data;
1510: WHILE l_msg_count > 0
1508: l_msg_index := 1;
1509: l_Error_Message := l_Msg_Data;
1510: WHILE l_msg_count > 0
1511: LOOP
1512: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
1513: --debug_out(' ');
1514: l_msg_index := l_msg_index + 1;
1515: l_Msg_Count := l_Msg_Count - 1;
1516: END LOOP;
1513: --debug_out(' ');
1514: l_msg_index := l_msg_index + 1;
1515: l_Msg_Count := l_Msg_Count - 1;
1516: END LOOP;
1517: -- RAISE fnd_api.g_exc_error;
1518: END IF;
1519: -- END IF;
1520:
1521: IF l_return_status = fnd_api.g_ret_sts_success THEN
1517: -- RAISE fnd_api.g_exc_error;
1518: END IF;
1519: -- END IF;
1520:
1521: IF l_return_status = fnd_api.g_ret_sts_success THEN
1522: -- Updating the status of transaction line for the batch
1523: UPDATE csi_t_transaction_lines
1524: SET processing_status = 'PROCESSED'
1525: WHERE transaction_line_id = l_txn_line_id;
1570:
1571: UPDATE_MUSYS_ERR_STATUS(p_entry_id);
1572:
1573: debug('Aborting Concurrent Program by raising exception');
1574: RAISE fnd_api.g_exc_error;
1575: END IF; -- l_return_status = fnd_api.g_ret_sts_success
1576:
1577:
1578: END IF; -- n_instance_tbl.count Loop
1571: UPDATE_MUSYS_ERR_STATUS(p_entry_id);
1572:
1573: debug('Aborting Concurrent Program by raising exception');
1574: RAISE fnd_api.g_exc_error;
1575: END IF; -- l_return_status = fnd_api.g_ret_sts_success
1576:
1577:
1578: END IF; -- n_instance_tbl.count Loop
1579: END IF; -- l_batch_type in ('XFER')
1585:
1586: Commit;
1587:
1588: EXCEPTION
1589: WHEN fnd_api.g_exc_error THEN
1590: ROLLBACK TO START_PROCESSING;
1591: debug( 'Program Errored : ');
1592: -- l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
1593: errbuf := 'E';
1590: ROLLBACK TO START_PROCESSING;
1591: debug( 'Program Errored : ');
1592: -- l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
1593: errbuf := 'E';
1594: WHEN fnd_api.g_exc_unexpected_error THEN
1595: ROLLBACK TO START_PROCESSING;
1596: debug( 'Program Errored : ');
1597: -- l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
1598: errbuf := 'E';
1606:
1607: PROCEDURE CREATE_MASS_EDIT_BATCH
1608: (
1609: p_api_version IN NUMBER,
1610: p_commit IN VARCHAR2 := fnd_api.g_false,
1611: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1612: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1613: px_mass_edit_rec IN OUT NOCOPY csi_mass_edit_pub.mass_edit_rec,
1614: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
1607: PROCEDURE CREATE_MASS_EDIT_BATCH
1608: (
1609: p_api_version IN NUMBER,
1610: p_commit IN VARCHAR2 := fnd_api.g_false,
1611: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1612: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1613: px_mass_edit_rec IN OUT NOCOPY csi_mass_edit_pub.mass_edit_rec,
1614: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
1615: px_mass_edit_inst_tbl IN OUT NOCOPY csi_mass_edit_pub.mass_edit_inst_tbl,
1608: (
1609: p_api_version IN NUMBER,
1610: p_commit IN VARCHAR2 := fnd_api.g_false,
1611: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1612: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1613: px_mass_edit_rec IN OUT NOCOPY csi_mass_edit_pub.mass_edit_rec,
1614: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
1615: px_mass_edit_inst_tbl IN OUT NOCOPY csi_mass_edit_pub.mass_edit_inst_tbl,
1616: px_txn_line_detail_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_rec,
1627: l_api_name VARCHAR2(30) := 'CREATE_MASS_EDIT_BATCH_PUB';
1628:
1629: l_debug_level NUMBER;
1630:
1631: l_return_status VARCHAR2(1) := FND_API.G_ret_sts_success;
1632: l_msg_count NUMBER;
1633: l_msg_data VARCHAR2(512);
1634:
1635:
1640: csi_t_gen_utility_pvt.add('API Being Executed : CREATE_MASS_EDIT_BATCH_PUB');
1641: csi_t_gen_utility_pvt.add('Transaction Start Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1642:
1643: -- Initialize message list if p_init_msg_list is set to TRUE.
1644: IF FND_API.To_Boolean( p_init_msg_list ) THEN
1645: FND_MSG_PUB.Initialize;
1646: END IF;
1647:
1648: -- Initialize API return status to success
1645: FND_MSG_PUB.Initialize;
1646: END IF;
1647:
1648: -- Initialize API return status to success
1649: x_return_status := FND_API.G_RET_STS_SUCCESS;
1650:
1651: -- Standard call to check for call compatibility.
1652: IF NOT
1653:
1650:
1651: -- Standard call to check for call compatibility.
1652: IF NOT
1653:
1654: FND_API.Compatible_API_Call (
1655: p_current_version_number => l_api_version,
1656: p_caller_version_number => p_api_version,
1657: p_api_name => l_api_name,
1658: p_pkg_name => g_pkg_name) THEN
1656: p_caller_version_number => p_api_version,
1657: p_api_name => l_api_name,
1658: p_pkg_name => g_pkg_name) THEN
1659:
1660: RAISE FND_API.G_Exc_Unexpected_Error;
1661:
1662: END IF;
1663: -- main code starts here
1664: --
1663: -- main code starts here
1664: --
1665: -- This procedure check if the installed base is active, If not active
1666: -- populates the error message in the message queue and raises the
1667: -- fnd_api.g_exc_error exception
1668: --
1669:
1670: csi_utility_grp.check_ib_active;
1671:
1690: x_msg_data => x_msg_data
1691: );
1692:
1693:
1694: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1695: RAISE fnd_api.g_exc_error;
1696: END IF;
1697:
1698: -- Standard check of p_commit.
1691: );
1692:
1693:
1694: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1695: RAISE fnd_api.g_exc_error;
1696: END IF;
1697:
1698: -- Standard check of p_commit.
1699: IF FND_API.To_Boolean( p_commit ) THEN
1695: RAISE fnd_api.g_exc_error;
1696: END IF;
1697:
1698: -- Standard check of p_commit.
1699: IF FND_API.To_Boolean( p_commit ) THEN
1700: COMMIT WORK;
1701: END IF;
1702:
1703: -- Standard call to get message count and IF count is get message info.
1707: );
1708:
1709: csi_t_gen_utility_pvt.add('Transaction End Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1710: EXCEPTION
1711: WHEN FND_API.G_EXC_ERROR THEN
1712: ROLLBACK TO create_mass_edit_pub;
1713: x_return_status := FND_API.G_RET_STS_ERROR ;
1714: FND_MSG_PUB.Count_And_Get
1715: (p_count => x_msg_count,
1709: csi_t_gen_utility_pvt.add('Transaction End Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1710: EXCEPTION
1711: WHEN FND_API.G_EXC_ERROR THEN
1712: ROLLBACK TO create_mass_edit_pub;
1713: x_return_status := FND_API.G_RET_STS_ERROR ;
1714: FND_MSG_PUB.Count_And_Get
1715: (p_count => x_msg_count,
1716: p_data => x_msg_data
1717: );
1714: FND_MSG_PUB.Count_And_Get
1715: (p_count => x_msg_count,
1716: p_data => x_msg_data
1717: );
1718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1720: ROLLBACK TO create_mass_edit_pub;
1721: FND_MSG_PUB.Count_And_Get
1722: ( p_count => x_msg_count,
1715: (p_count => x_msg_count,
1716: p_data => x_msg_data
1717: );
1718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1720: ROLLBACK TO create_mass_edit_pub;
1721: FND_MSG_PUB.Count_And_Get
1722: ( p_count => x_msg_count,
1723: p_data => x_msg_data
1722: ( p_count => x_msg_count,
1723: p_data => x_msg_data
1724: );
1725: WHEN OTHERS THEN
1726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1727: ROLLBACK TO create_mass_edit_pub;
1728: IF FND_MSG_PUB.Check_Msg_Level
1729: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1730: THEN
1774: END;
1775:
1776: PROCEDURE UPDATE_MASS_EDIT_BATCH (
1777: p_api_version IN NUMBER,
1778: p_commit IN VARCHAR2 := fnd_api.g_false,
1779: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1780: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1781: px_mass_edit_rec IN OUT NOCOPY csi_mass_edit_pub.mass_edit_rec,
1782: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
1775:
1776: PROCEDURE UPDATE_MASS_EDIT_BATCH (
1777: p_api_version IN NUMBER,
1778: p_commit IN VARCHAR2 := fnd_api.g_false,
1779: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1780: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1781: px_mass_edit_rec IN OUT NOCOPY csi_mass_edit_pub.mass_edit_rec,
1782: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
1783: px_mass_edit_inst_tbl IN OUT NOCOPY mass_edit_inst_tbl,
1776: PROCEDURE UPDATE_MASS_EDIT_BATCH (
1777: p_api_version IN NUMBER,
1778: p_commit IN VARCHAR2 := fnd_api.g_false,
1779: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1780: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1781: px_mass_edit_rec IN OUT NOCOPY csi_mass_edit_pub.mass_edit_rec,
1782: px_txn_line_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_rec ,
1783: px_mass_edit_inst_tbl IN OUT NOCOPY mass_edit_inst_tbl,
1784: px_txn_line_detail_rec IN OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_rec,
1805: csi_t_gen_utility_pvt.add('API Being Executed : UPDATE_MASS_EDIT_BATCH_PUB');
1806: csi_t_gen_utility_pvt.add('Transaction Start Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1807:
1808: -- Initialize message list if p_init_msg_list is set to TRUE.
1809: IF FND_API.To_Boolean( p_init_msg_list ) THEN
1810: FND_MSG_PUB.Initialize;
1811: END IF;
1812:
1813: -- Initialize API return status to success
1810: FND_MSG_PUB.Initialize;
1811: END IF;
1812:
1813: -- Initialize API return status to success
1814: x_return_status := FND_API.G_RET_STS_SUCCESS;
1815:
1816: -- Standard call to check for call compatibility.
1817: IF NOT
1818:
1815:
1816: -- Standard call to check for call compatibility.
1817: IF NOT
1818:
1819: FND_API.Compatible_API_Call (
1820: p_current_version_number => l_api_version,
1821: p_caller_version_number => p_api_version,
1822: p_api_name => l_api_name,
1823: p_pkg_name => g_pkg_name) THEN
1821: p_caller_version_number => p_api_version,
1822: p_api_name => l_api_name,
1823: p_pkg_name => g_pkg_name) THEN
1824:
1825: RAISE FND_API.G_Exc_Unexpected_Error;
1826:
1827: END IF;
1828: -- main code starts here
1829:
1835: IF x_output IS NOT NULL THEN
1836: FND_MESSAGE.set_name('CSI','CSI_MU_DUP_BATCH_INSTANCES');
1837: FND_MESSAGE.set_token('INST_NUM',x_output);
1838: FND_MSG_PUB.add;
1839: RAISE FND_API.g_exc_error;
1840: END IF;
1841:
1842: -- call API to run
1843: csi_t_gen_utility_pvt.add('px_txn_line_detail_tbl.count: '||px_mass_edit_inst_tbl.count);
1862: x_msg_data => l_msg_data
1863: );
1864:
1865:
1866: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1867: RAISE fnd_api.g_exc_error;
1868: END IF;
1869:
1870: -- Standard check of p_commit.
1863: );
1864:
1865:
1866: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1867: RAISE fnd_api.g_exc_error;
1868: END IF;
1869:
1870: -- Standard check of p_commit.
1871: IF FND_API.To_Boolean( p_commit ) THEN
1867: RAISE fnd_api.g_exc_error;
1868: END IF;
1869:
1870: -- Standard check of p_commit.
1871: IF FND_API.To_Boolean( p_commit ) THEN
1872: COMMIT WORK;
1873: END IF;
1874:
1875: csi_t_gen_utility_pvt.add('Transaction End Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1873: END IF;
1874:
1875: csi_t_gen_utility_pvt.add('Transaction End Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1876: EXCEPTION
1877: WHEN FND_API.G_EXC_ERROR THEN
1878: ROLLBACK TO update_mass_edit_pub;
1879: x_return_status := FND_API.G_RET_STS_ERROR ;
1880: FND_MSG_PUB.Count_And_Get
1881: (p_count => x_msg_count,
1875: csi_t_gen_utility_pvt.add('Transaction End Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1876: EXCEPTION
1877: WHEN FND_API.G_EXC_ERROR THEN
1878: ROLLBACK TO update_mass_edit_pub;
1879: x_return_status := FND_API.G_RET_STS_ERROR ;
1880: FND_MSG_PUB.Count_And_Get
1881: (p_count => x_msg_count,
1882: p_data => x_msg_data
1883: );
1880: FND_MSG_PUB.Count_And_Get
1881: (p_count => x_msg_count,
1882: p_data => x_msg_data
1883: );
1884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1886: ROLLBACK TO update_mass_edit_pub;
1887: FND_MSG_PUB.Count_And_Get
1888: ( p_count => x_msg_count,
1881: (p_count => x_msg_count,
1882: p_data => x_msg_data
1883: );
1884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1886: ROLLBACK TO update_mass_edit_pub;
1887: FND_MSG_PUB.Count_And_Get
1888: ( p_count => x_msg_count,
1889: p_data => x_msg_data
1888: ( p_count => x_msg_count,
1889: p_data => x_msg_data
1890: );
1891: WHEN OTHERS THEN
1892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1893: ROLLBACK TO update_mass_edit_pub;
1894: IF FND_MSG_PUB.Check_Msg_Level
1895: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1896: THEN
1908:
1909: PROCEDURE DELETE_MASS_EDIT_BATCH
1910: (
1911: p_api_version IN NUMBER,
1912: p_commit IN VARCHAR2 := fnd_api.g_false,
1913: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1914: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1915: p_mass_edit_rec IN mass_edit_rec,
1916: x_return_status OUT NOCOPY VARCHAR2,
1909: PROCEDURE DELETE_MASS_EDIT_BATCH
1910: (
1911: p_api_version IN NUMBER,
1912: p_commit IN VARCHAR2 := fnd_api.g_false,
1913: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1914: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1915: p_mass_edit_rec IN mass_edit_rec,
1916: x_return_status OUT NOCOPY VARCHAR2,
1917: x_msg_count OUT NOCOPY NUMBER,
1910: (
1911: p_api_version IN NUMBER,
1912: p_commit IN VARCHAR2 := fnd_api.g_false,
1913: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1914: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1915: p_mass_edit_rec IN mass_edit_rec,
1916: x_return_status OUT NOCOPY VARCHAR2,
1917: x_msg_count OUT NOCOPY NUMBER,
1918: x_msg_data OUT NOCOPY VARCHAR2
1933: csi_t_gen_utility_pvt.add('API Being Executed : DELETE_MASS_EDIT_BATCH');
1934: csi_t_gen_utility_pvt.add('Transaction Start Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
1935:
1936: -- Initialize message list if p_init_msg_list is set to TRUE.
1937: IF FND_API.To_Boolean( p_init_msg_list ) THEN
1938: FND_MSG_PUB.Initialize;
1939: END IF;
1940:
1941: -- Initialize API return status to success
1938: FND_MSG_PUB.Initialize;
1939: END IF;
1940:
1941: -- Initialize API return status to success
1942: x_return_status := FND_API.G_RET_STS_SUCCESS;
1943:
1944: -- Standard call to check for call compatibility.
1945: IF NOT
1946: FND_API.Compatible_API_Call (
1942: x_return_status := FND_API.G_RET_STS_SUCCESS;
1943:
1944: -- Standard call to check for call compatibility.
1945: IF NOT
1946: FND_API.Compatible_API_Call (
1947: p_current_version_number => l_api_version,
1948: p_caller_version_number => p_api_version,
1949: p_api_name => l_api_name,
1950: p_pkg_name => g_pkg_name) THEN
1948: p_caller_version_number => p_api_version,
1949: p_api_name => l_api_name,
1950: p_pkg_name => g_pkg_name) THEN
1951:
1952: RAISE FND_API.G_Exc_Unexpected_Error;
1953: END IF;
1954: -- This procedure check if the installed base is active, If not active
1955: -- populates the error message in the message queue and raises the
1956: -- fnd_api.g_exc_error exception
1952: RAISE FND_API.G_Exc_Unexpected_Error;
1953: END IF;
1954: -- This procedure check if the installed base is active, If not active
1955: -- populates the error message in the message queue and raises the
1956: -- fnd_api.g_exc_error exception
1957: --
1958: csi_utility_grp.check_ib_active;
1959:
1960: -- check required params
1958: csi_utility_grp.check_ib_active;
1959:
1960: -- check required params
1961: -- either the batch id OR the batch name is required for a delete
1962: IF ( nvl(p_mass_edit_rec.entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
1963: AND nvl(p_mass_edit_rec.name, fnd_api.g_miss_char) = fnd_api.g_miss_char ) THEN
1964:
1965: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
1966: FND_MESSAGE.set_token('API_NAME',l_api_name);
1959:
1960: -- check required params
1961: -- either the batch id OR the batch name is required for a delete
1962: IF ( nvl(p_mass_edit_rec.entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
1963: AND nvl(p_mass_edit_rec.name, fnd_api.g_miss_char) = fnd_api.g_miss_char ) THEN
1964:
1965: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
1966: FND_MESSAGE.set_token('API_NAME',l_api_name);
1967: FND_MESSAGE.set_token('MISSING_PARAM','Batch ID OR Batch Name');
1965: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
1966: FND_MESSAGE.set_token('API_NAME',l_api_name);
1967: FND_MESSAGE.set_token('MISSING_PARAM','Batch ID OR Batch Name');
1968: FND_MSG_PUB.add;
1969: RAISE FND_API.g_exc_error;
1970: END IF;
1971:
1972: csi_mass_edit_pvt.delete_mass_edit_batch (
1973: p_api_version => p_api_version,
1979: x_msg_count => l_msg_count,
1980: x_msg_data => l_msg_data
1981: );
1982:
1983: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1984: RAISE fnd_api.g_exc_error;
1985: END IF;
1986:
1987: -- Standard check of p_commit.
1980: x_msg_data => l_msg_data
1981: );
1982:
1983: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1984: RAISE fnd_api.g_exc_error;
1985: END IF;
1986:
1987: -- Standard check of p_commit.
1988: IF FND_API.To_Boolean( p_commit ) THEN
1984: RAISE fnd_api.g_exc_error;
1985: END IF;
1986:
1987: -- Standard check of p_commit.
1988: IF FND_API.To_Boolean( p_commit ) THEN
1989: COMMIT WORK;
1990: END IF;
1991:
1992: -- Standard call to get message count and IF count is get message info.
2000:
2001: csi_t_gen_utility_pvt.set_debug_off;
2002:
2003: EXCEPTION
2004: WHEN FND_API.G_EXC_ERROR THEN
2005:
2006: ROLLBACK TO Delete_Mass_Edit_Batch;
2007: x_return_status := FND_API.G_RET_STS_ERROR ;
2008: FND_MSG_PUB.Count_And_Get (
2003: EXCEPTION
2004: WHEN FND_API.G_EXC_ERROR THEN
2005:
2006: ROLLBACK TO Delete_Mass_Edit_Batch;
2007: x_return_status := FND_API.G_RET_STS_ERROR ;
2008: FND_MSG_PUB.Count_And_Get (
2009: p_count => x_msg_count,
2010: p_data => x_msg_data);
2011:
2010: p_data => x_msg_data);
2011:
2012: csi_t_gen_utility_pvt.set_debug_off;
2013:
2014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2015:
2016: ROLLBACK TO Delete_Mass_Edit_Batch;
2017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2018:
2013:
2014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2015:
2016: ROLLBACK TO Delete_Mass_Edit_Batch;
2017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2018:
2019: FND_MSG_PUB.Count_And_Get(
2020: p_count => x_msg_count,
2021: p_data => x_msg_data);
2024:
2025: WHEN OTHERS THEN
2026:
2027: ROLLBACK TO Delete_Mass_Edit_Batch;
2028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2029:
2030: IF FND_MSG_PUB.Check_Msg_Level(
2031: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2032:
2048:
2049: PROCEDURE DELETE_MASS_EDIT_BATCHES
2050: (
2051: p_api_version IN NUMBER,
2052: p_commit IN VARCHAR2 := fnd_api.g_false,
2053: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2054: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2055: p_mass_edit_tbl IN mass_edit_tbl,
2056: x_return_status OUT NOCOPY VARCHAR2,
2049: PROCEDURE DELETE_MASS_EDIT_BATCHES
2050: (
2051: p_api_version IN NUMBER,
2052: p_commit IN VARCHAR2 := fnd_api.g_false,
2053: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2054: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2055: p_mass_edit_tbl IN mass_edit_tbl,
2056: x_return_status OUT NOCOPY VARCHAR2,
2057: x_msg_count OUT NOCOPY NUMBER,
2050: (
2051: p_api_version IN NUMBER,
2052: p_commit IN VARCHAR2 := fnd_api.g_false,
2053: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2054: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2055: p_mass_edit_tbl IN mass_edit_tbl,
2056: x_return_status OUT NOCOPY VARCHAR2,
2057: x_msg_count OUT NOCOPY NUMBER,
2058: x_msg_data OUT NOCOPY VARCHAR2
2073: csi_t_gen_utility_pvt.add('API Being Executed : DELETE_MASS_EDIT_BATCHES');
2074: csi_t_gen_utility_pvt.add('Transaction Start Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
2075:
2076: -- Initialize message list if p_init_msg_list is set to TRUE.
2077: IF FND_API.To_Boolean( p_init_msg_list ) THEN
2078: FND_MSG_PUB.Initialize;
2079: END IF;
2080:
2081: -- Initialize API return status to success
2078: FND_MSG_PUB.Initialize;
2079: END IF;
2080:
2081: -- Initialize API return status to success
2082: x_return_status := FND_API.G_RET_STS_SUCCESS;
2083:
2084: -- Standard call to check for call compatibility.
2085: IF NOT
2086: FND_API.Compatible_API_Call (
2082: x_return_status := FND_API.G_RET_STS_SUCCESS;
2083:
2084: -- Standard call to check for call compatibility.
2085: IF NOT
2086: FND_API.Compatible_API_Call (
2087: p_current_version_number => l_api_version,
2088: p_caller_version_number => p_api_version,
2089: p_api_name => l_api_name,
2090: p_pkg_name => g_pkg_name) THEN
2088: p_caller_version_number => p_api_version,
2089: p_api_name => l_api_name,
2090: p_pkg_name => g_pkg_name) THEN
2091:
2092: RAISE FND_API.G_Exc_Unexpected_Error;
2093: END IF;
2094: -- This procedure check if the installed base is active, If not active
2095: -- populates the error message in the message queue and raises the
2096: -- fnd_api.g_exc_error exception
2092: RAISE FND_API.G_Exc_Unexpected_Error;
2093: END IF;
2094: -- This procedure check if the installed base is active, If not active
2095: -- populates the error message in the message queue and raises the
2096: -- fnd_api.g_exc_error exception
2097: --
2098: csi_utility_grp.check_ib_active;
2099:
2100: -- check required params
2100: -- check required params
2101: -- either the batch id OR the batch name is required for a delete
2102: IF p_mass_edit_tbl.count > 0 THEN
2103: FOR m_ind in p_mass_edit_tbl.FIRST .. p_mass_edit_tbl.LAST LOOP
2104: IF ( nvl(p_mass_edit_tbl(m_ind).entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2105: AND nvl(p_mass_edit_tbl(m_ind).name, fnd_api.g_miss_char) = fnd_api.g_miss_char ) THEN
2106:
2107: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
2108: FND_MESSAGE.set_token('API_NAME',l_api_name);
2101: -- either the batch id OR the batch name is required for a delete
2102: IF p_mass_edit_tbl.count > 0 THEN
2103: FOR m_ind in p_mass_edit_tbl.FIRST .. p_mass_edit_tbl.LAST LOOP
2104: IF ( nvl(p_mass_edit_tbl(m_ind).entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2105: AND nvl(p_mass_edit_tbl(m_ind).name, fnd_api.g_miss_char) = fnd_api.g_miss_char ) THEN
2106:
2107: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
2108: FND_MESSAGE.set_token('API_NAME',l_api_name);
2109: FND_MESSAGE.set_token('MISSING_PARAM','Batch ID OR Batch Name');
2107: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
2108: FND_MESSAGE.set_token('API_NAME',l_api_name);
2109: FND_MESSAGE.set_token('MISSING_PARAM','Batch ID OR Batch Name');
2110: FND_MSG_PUB.add;
2111: RAISE FND_API.g_exc_error;
2112: END IF;
2113:
2114: csi_mass_edit_pvt.delete_mass_edit_batch (
2115: p_api_version => p_api_version,
2121: x_msg_count => l_msg_count,
2122: x_msg_data => l_msg_data
2123: );
2124:
2125: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2126: RAISE fnd_api.g_exc_error;
2127: END IF;
2128: END LOOP;
2129: END IF;
2122: x_msg_data => l_msg_data
2123: );
2124:
2125: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2126: RAISE fnd_api.g_exc_error;
2127: END IF;
2128: END LOOP;
2129: END IF;
2130:
2128: END LOOP;
2129: END IF;
2130:
2131: -- Standard check of p_commit.
2132: IF FND_API.To_Boolean( p_commit ) THEN
2133: COMMIT WORK;
2134: END IF;
2135:
2136: -- Standard call to get message count and IF count is get message info.
2144:
2145: csi_t_gen_utility_pvt.set_debug_off;
2146:
2147: EXCEPTION
2148: WHEN FND_API.G_EXC_ERROR THEN
2149:
2150: ROLLBACK TO Delete_Mass_Edit_Batches;
2151: x_return_status := FND_API.G_RET_STS_ERROR ;
2152: FND_MSG_PUB.Count_And_Get (
2147: EXCEPTION
2148: WHEN FND_API.G_EXC_ERROR THEN
2149:
2150: ROLLBACK TO Delete_Mass_Edit_Batches;
2151: x_return_status := FND_API.G_RET_STS_ERROR ;
2152: FND_MSG_PUB.Count_And_Get (
2153: p_count => x_msg_count,
2154: p_data => x_msg_data);
2155:
2154: p_data => x_msg_data);
2155:
2156: csi_t_gen_utility_pvt.set_debug_off;
2157:
2158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2159:
2160: ROLLBACK TO Delete_Mass_Edit_Batches;
2161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2162:
2157:
2158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2159:
2160: ROLLBACK TO Delete_Mass_Edit_Batches;
2161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2162:
2163: FND_MSG_PUB.Count_And_Get(
2164: p_count => x_msg_count,
2165: p_data => x_msg_data);
2168:
2169: WHEN OTHERS THEN
2170:
2171: ROLLBACK TO Delete_Mass_Edit_Batches;
2172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2173:
2174: IF FND_MSG_PUB.Check_Msg_Level(
2175: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2176:
2193: */
2194:
2195: PROCEDURE GET_MASS_EDIT_DETAILS (
2196: p_api_version IN NUMBER,
2197: p_commit IN VARCHAR2 := fnd_api.g_false,
2198: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2199: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2200: px_mass_edit_rec IN OUT NOCOPY mass_edit_rec,
2201: x_txn_line_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl ,
2194:
2195: PROCEDURE GET_MASS_EDIT_DETAILS (
2196: p_api_version IN NUMBER,
2197: p_commit IN VARCHAR2 := fnd_api.g_false,
2198: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2199: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2200: px_mass_edit_rec IN OUT NOCOPY mass_edit_rec,
2201: x_txn_line_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl ,
2202: x_txn_party_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl,
2195: PROCEDURE GET_MASS_EDIT_DETAILS (
2196: p_api_version IN NUMBER,
2197: p_commit IN VARCHAR2 := fnd_api.g_false,
2198: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2199: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
2200: px_mass_edit_rec IN OUT NOCOPY mass_edit_rec,
2201: x_txn_line_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_line_detail_tbl ,
2202: x_txn_party_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_party_detail_tbl,
2203: x_txn_pty_acct_detail_tbl OUT NOCOPY csi_t_datastructures_grp.txn_pty_acct_detail_tbl,
2221: csi_t_gen_utility_pvt.add('API Being Executed : GET_MASS_EDIT_DETAILS');
2222: csi_t_gen_utility_pvt.add('Transaction Start Time :'||to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
2223:
2224: -- Initialize message list if p_init_msg_list is set to TRUE.
2225: IF FND_API.To_Boolean( p_init_msg_list ) THEN
2226: FND_MSG_PUB.Initialize;
2227: END IF;
2228:
2229: -- Initialize API return status to success
2226: FND_MSG_PUB.Initialize;
2227: END IF;
2228:
2229: -- Initialize API return status to success
2230: x_return_status := FND_API.G_RET_STS_SUCCESS;
2231:
2232: -- Standard call to check for call compatibility.
2233: IF NOT
2234: FND_API.Compatible_API_Call (
2230: x_return_status := FND_API.G_RET_STS_SUCCESS;
2231:
2232: -- Standard call to check for call compatibility.
2233: IF NOT
2234: FND_API.Compatible_API_Call (
2235: p_current_version_number => l_api_version,
2236: p_caller_version_number => p_api_version,
2237: p_api_name => l_api_name,
2238: p_pkg_name => g_pkg_name) THEN
2236: p_caller_version_number => p_api_version,
2237: p_api_name => l_api_name,
2238: p_pkg_name => g_pkg_name) THEN
2239:
2240: RAISE FND_API.G_Exc_Unexpected_Error;
2241: END IF;
2242: -- This procedure check if the installed base is active, If not active
2243: -- populates the error message in the message queue and raises the
2244: -- fnd_api.g_exc_error exception
2240: RAISE FND_API.G_Exc_Unexpected_Error;
2241: END IF;
2242: -- This procedure check if the installed base is active, If not active
2243: -- populates the error message in the message queue and raises the
2244: -- fnd_api.g_exc_error exception
2245: --
2246: csi_utility_grp.check_ib_active;
2247:
2248: -- check required params
2248: -- check required params
2249: -- Currently the Get queries txn details for a given source transaction id (batch). So a unique
2250: -- identifier like the batch id/txn line ID OR the batch name is required for a Get
2251:
2252: IF ( nvl(px_mass_edit_rec.entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2253: AND nvl(px_mass_edit_rec.name, fnd_api.g_miss_char) = fnd_api.g_miss_char
2254: AND nvl(px_mass_edit_rec.txn_line_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2255: ) THEN
2256: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
2249: -- Currently the Get queries txn details for a given source transaction id (batch). So a unique
2250: -- identifier like the batch id/txn line ID OR the batch name is required for a Get
2251:
2252: IF ( nvl(px_mass_edit_rec.entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2253: AND nvl(px_mass_edit_rec.name, fnd_api.g_miss_char) = fnd_api.g_miss_char
2254: AND nvl(px_mass_edit_rec.txn_line_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2255: ) THEN
2256: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
2257: FND_MESSAGE.set_token('API_NAME',l_api_name);
2250: -- identifier like the batch id/txn line ID OR the batch name is required for a Get
2251:
2252: IF ( nvl(px_mass_edit_rec.entry_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2253: AND nvl(px_mass_edit_rec.name, fnd_api.g_miss_char) = fnd_api.g_miss_char
2254: AND nvl(px_mass_edit_rec.txn_line_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
2255: ) THEN
2256: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
2257: FND_MESSAGE.set_token('API_NAME',l_api_name);
2258: FND_MESSAGE.set_token('MISSING_PARAM','Batch ID / Batch Name / Transaction Line ID');
2256: FND_MESSAGE.set_name('CSI','CSI_API_REQD_PARAM_MISSING');
2257: FND_MESSAGE.set_token('API_NAME',l_api_name);
2258: FND_MESSAGE.set_token('MISSING_PARAM','Batch ID / Batch Name / Transaction Line ID');
2259: FND_MSG_PUB.add;
2260: RAISE FND_API.g_exc_error;
2261: END IF;
2262:
2263: csi_mass_edit_pvt.get_mass_edit_details (
2264: p_api_version => p_api_version,
2274: x_msg_count => l_msg_count,
2275: x_msg_data => l_msg_data
2276: );
2277:
2278: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2279: RAISE fnd_api.g_exc_error;
2280: END IF;
2281:
2282: -- Standard check of p_commit.
2275: x_msg_data => l_msg_data
2276: );
2277:
2278: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2279: RAISE fnd_api.g_exc_error;
2280: END IF;
2281:
2282: -- Standard check of p_commit.
2283: IF FND_API.To_Boolean( p_commit ) THEN
2279: RAISE fnd_api.g_exc_error;
2280: END IF;
2281:
2282: -- Standard check of p_commit.
2283: IF FND_API.To_Boolean( p_commit ) THEN
2284: COMMIT WORK;
2285: END IF;
2286:
2287: -- Standard call to get message count and IF count is get message info.
2295:
2296: csi_t_gen_utility_pvt.set_debug_off;
2297:
2298: EXCEPTION
2299: WHEN FND_API.G_EXC_ERROR THEN
2300:
2301: ROLLBACK TO Get_mass_edit_details;
2302: x_return_status := FND_API.G_RET_STS_ERROR ;
2303: FND_MSG_PUB.Count_And_Get (
2298: EXCEPTION
2299: WHEN FND_API.G_EXC_ERROR THEN
2300:
2301: ROLLBACK TO Get_mass_edit_details;
2302: x_return_status := FND_API.G_RET_STS_ERROR ;
2303: FND_MSG_PUB.Count_And_Get (
2304: p_count => x_msg_count,
2305: p_data => x_msg_data);
2306:
2305: p_data => x_msg_data);
2306:
2307: csi_t_gen_utility_pvt.set_debug_off;
2308:
2309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2310:
2311: ROLLBACK TO Get_mass_edit_details;
2312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2313:
2308:
2309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2310:
2311: ROLLBACK TO Get_mass_edit_details;
2312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2313:
2314: FND_MSG_PUB.Count_And_Get(
2315: p_count => x_msg_count,
2316: p_data => x_msg_data);
2319:
2320: WHEN OTHERS THEN
2321:
2322: ROLLBACK TO Get_mass_edit_details;
2323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2324:
2325: IF FND_MSG_PUB.Check_Msg_Level(
2326: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2327:
2347:
2348: PROCEDURE PROCESS_SYSTEM_MASS_UPDATE
2349: (
2350: p_api_version IN NUMBER
2351: ,p_commit IN VARCHAR2 := fnd_api.g_false
2352: ,p_entry_id IN NUMBER
2353: ,p_instance_tbl IN OUT NOCOPY csi_datastructures_pub.instance_tbl
2354: ,p_ext_attrib_values_tbl IN OUT NOCOPY csi_datastructures_pub.extend_attrib_values_tbl
2355: ,p_party_tbl IN OUT NOCOPY csi_datastructures_pub.party_tbl
2439:
2440:
2441: l_msg_count NUMBER;
2442: l_msg_data VARCHAR2(2000);
2443: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2444:
2445: BEGIN
2446:
2447: -- Standard Start of API savepoint
2451:
2452: csi_utility_grp.check_ib_active;
2453:
2454: -- Standard call to check for call compatibility.
2455: IF NOT FND_API.Compatible_API_Call (l_api_version,
2456: p_api_version,
2457: l_api_name ,
2458: G_PKG_NAME )
2459: THEN
2456: p_api_version,
2457: l_api_name ,
2458: G_PKG_NAME )
2459: THEN
2460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2461: END IF;
2462:
2463: -- Initialize API return status to success
2464: x_return_status := FND_API.G_RET_STS_SUCCESS;
2460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2461: END IF;
2462:
2463: -- Initialize API return status to success
2464: x_return_status := FND_API.G_RET_STS_SUCCESS;
2465:
2466: -- Check the profile option debug_level for debug message reporting
2467: l_debug_level:=fnd_profile.value('CSI_DEBUG_LEVEL');
2468:
2487:
2488: EXCEPTION
2489: WHEN NO_DATA_FOUND THEN
2490: debug('No data Found while fetching txn line id for system cascade');
2491: RAISE FND_API.G_EXC_ERROR;
2492: WHEN OTHERS THEN
2493: debug('Others Exception while fetching txn line id for system cascade');
2494: RAISE FND_API.G_EXC_ERROR;
2495: END;
2490: debug('No data Found while fetching txn line id for system cascade');
2491: RAISE FND_API.G_EXC_ERROR;
2492: WHEN OTHERS THEN
2493: debug('Others Exception while fetching txn line id for system cascade');
2494: RAISE FND_API.G_EXC_ERROR;
2495: END;
2496: debug('l_txn_line_id - ' || l_txn_line_id);
2497:
2498: IDENTIFY_SYSTEM_FOR_UPDATE (
2499: p_txn_line_id => l_txn_line_id
2500: ,p_upd_system_tbl => upd_system_tbl
2501: ,x_return_status => l_return_status);
2502:
2503: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2504: RAISE FND_API.G_EXC_ERROR;
2505: END IF;
2506:
2507: IF upd_system_tbl.COUNT > 0 THEN
2500: ,p_upd_system_tbl => upd_system_tbl
2501: ,x_return_status => l_return_status);
2502:
2503: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2504: RAISE FND_API.G_EXC_ERROR;
2505: END IF;
2506:
2507: IF upd_system_tbl.COUNT > 0 THEN
2508:
2512: ,p_txn_line_id => l_txn_line_id
2513: ,p_upd_system_tbl => upd_system_tbl
2514: ,x_return_status => l_return_status);
2515:
2516: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2517: RAISE FND_API.G_EXC_ERROR;
2518: END IF;
2519:
2520: -- System update
2513: ,p_upd_system_tbl => upd_system_tbl
2514: ,x_return_status => l_return_status);
2515:
2516: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2517: RAISE FND_API.G_EXC_ERROR;
2518: END IF;
2519:
2520: -- System update
2521: -- Fetch the new Party Information (Party Id, Account Id)
2526: EXCEPTION
2527: WHEN OTHERS THEN
2528: debug('In to Others Exception while finding new party information');
2529: debug( to_char(SQLCODE)||substr(SQLERRM, 1, 255));
2530: RAISE FND_API.G_EXC_ERROR;
2531: END;
2532:
2533: -- Fetch Customer id from party id and account id
2534: /* BEGIN
2540: fnd_message.set_name('CSI', 'CSI_CUSTOMER_ID_NOT_FOUND');
2541: fnd_message.set_token('PARTY_ID',l_mu_new_party_rec.PartyId);
2542: fnd_message.set_token('ACCOUNT_NUMBER',l_mu_new_party_rec.AccountId);
2543: fnd_msg_pub.add;
2544: RAISE FND_API.G_EXC_ERROR;
2545:
2546: WHEN TOO_MANY_ROWS THEN
2547: fnd_message.set_name('CSI', 'CSI_MULTIPLE_CUSTOMER_ID_FOUND');
2548: fnd_message.set_token('PARTY_ID',l_mu_new_party_rec.PartyId);
2547: fnd_message.set_name('CSI', 'CSI_MULTIPLE_CUSTOMER_ID_FOUND');
2548: fnd_message.set_token('PARTY_ID',l_mu_new_party_rec.PartyId);
2549: fnd_message.set_token('ACCOUNT_NUMBER',l_mu_new_party_rec.AccountId);
2550: fnd_msg_pub.add;
2551: RAISE FND_API.G_EXC_ERROR;
2552: WHEN OTHERS THEN
2553: debug('In to Others Exception while finding customer id');
2554: RAISE FND_API.G_EXC_ERROR;
2555: END;
2550: fnd_msg_pub.add;
2551: RAISE FND_API.G_EXC_ERROR;
2552: WHEN OTHERS THEN
2553: debug('In to Others Exception while finding customer id');
2554: RAISE FND_API.G_EXC_ERROR;
2555: END;
2556: */
2557: FOR system_rec_ind IN upd_system_tbl.FIRST .. upd_system_tbl.LAST
2558: LOOP
2568: -- should be populated here
2569:
2570: -- Important : Also note the base update package has been modified to
2571: -- accept null values update_row_for_mu
2572: l_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2573: l_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2574: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2575: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2576: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2569:
2570: -- Important : Also note the base update package has been modified to
2571: -- accept null values update_row_for_mu
2572: l_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2573: l_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2574: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2575: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2576: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2577: l_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2570: -- Important : Also note the base update package has been modified to
2571: -- accept null values update_row_for_mu
2572: l_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2573: l_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2574: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2575: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2576: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2577: l_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2578: l_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2571: -- accept null values update_row_for_mu
2572: l_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2573: l_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2574: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2575: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2576: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2577: l_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2578: l_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2579:
2572: l_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2573: l_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2574: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2575: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2576: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2577: l_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2578: l_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2579:
2580: -- Fetch the existing values of the system
2573: l_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2574: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2575: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2576: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2577: l_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2578: l_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2579:
2580: -- Fetch the existing values of the system
2581: -- Other information which are non related to the system party owner
2574: l_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2575: l_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2576: l_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2577: l_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2578: l_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2579:
2580: -- Fetch the existing values of the system
2581: -- Other information which are non related to the system party owner
2582: -- is retained
2630: l_t_txn_sys_rec.SYSTEM_NUMBER := l_mu_system_rec.SYSTEM_NUMBER;
2631: -- Bug 7350165
2632: l_t_txn_sys_rec.CUSTOMER_ID := l_mu_new_party_rec.AccountId;
2633: --l_t_txn_sys_rec.CUSTOMER_ID := l_mu_customer_id_rec.CUSTOMER_ID;
2634: l_t_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2635: l_t_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2636: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2637: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2638: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2631: -- Bug 7350165
2632: l_t_txn_sys_rec.CUSTOMER_ID := l_mu_new_party_rec.AccountId;
2633: --l_t_txn_sys_rec.CUSTOMER_ID := l_mu_customer_id_rec.CUSTOMER_ID;
2634: l_t_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2635: l_t_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2636: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2637: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2638: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2639: l_t_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2632: l_t_txn_sys_rec.CUSTOMER_ID := l_mu_new_party_rec.AccountId;
2633: --l_t_txn_sys_rec.CUSTOMER_ID := l_mu_customer_id_rec.CUSTOMER_ID;
2634: l_t_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2635: l_t_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2636: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2637: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2638: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2639: l_t_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2640: l_t_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2633: --l_t_txn_sys_rec.CUSTOMER_ID := l_mu_customer_id_rec.CUSTOMER_ID;
2634: l_t_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2635: l_t_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2636: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2637: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2638: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2639: l_t_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2640: l_t_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2641: l_t_txn_sys_rec.COTERMINATE_DAY_MONTH := l_mu_system_rec.COTERMINATE_DAY_MONTH;
2634: l_t_txn_sys_rec.BILL_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2635: l_t_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2636: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2637: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2638: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2639: l_t_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2640: l_t_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2641: l_t_txn_sys_rec.COTERMINATE_DAY_MONTH := l_mu_system_rec.COTERMINATE_DAY_MONTH;
2642: l_t_txn_sys_rec.START_DATE_ACTIVE := l_mu_system_rec.START_DATE_ACTIVE;
2635: l_t_txn_sys_rec.SHIP_TO_CONTACT_ID := FND_API.G_MISS_NUM;
2636: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2637: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2638: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2639: l_t_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2640: l_t_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2641: l_t_txn_sys_rec.COTERMINATE_DAY_MONTH := l_mu_system_rec.COTERMINATE_DAY_MONTH;
2642: l_t_txn_sys_rec.START_DATE_ACTIVE := l_mu_system_rec.START_DATE_ACTIVE;
2643: l_t_txn_sys_rec.END_DATE_ACTIVE := l_mu_system_rec.END_DATE_ACTIVE;
2636: l_t_txn_sys_rec.TECHNICAL_CONTACT_ID := FND_API.G_MISS_NUM;
2637: l_t_txn_sys_rec.SERVICE_ADMIN_CONTACT_ID := FND_API.G_MISS_NUM;
2638: l_t_txn_sys_rec.SHIP_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2639: l_t_txn_sys_rec.BILL_TO_SITE_USE_ID := FND_API.G_MISS_NUM;
2640: l_t_txn_sys_rec.INSTALL_SITE_USE_ID := FND_API.G_MISS_NUM;
2641: l_t_txn_sys_rec.COTERMINATE_DAY_MONTH := l_mu_system_rec.COTERMINATE_DAY_MONTH;
2642: l_t_txn_sys_rec.START_DATE_ACTIVE := l_mu_system_rec.START_DATE_ACTIVE;
2643: l_t_txn_sys_rec.END_DATE_ACTIVE := l_mu_system_rec.END_DATE_ACTIVE;
2644: l_t_txn_sys_rec.CONTEXT := l_txn_line_id;
2661:
2662: debug('Creating system t transaction');
2663: csi_t_txn_systems_pvt.create_txn_system(
2664: p_api_version => 1.0,
2665: p_commit => FND_API.G_FALSE,
2666: p_init_msg_list => FND_API.G_FALSE,
2667: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2668: p_txn_system_rec => l_t_txn_sys_rec,
2669: x_txn_system_id => upd_system_tbl(system_rec_ind).SYSTEM_ID,
2662: debug('Creating system t transaction');
2663: csi_t_txn_systems_pvt.create_txn_system(
2664: p_api_version => 1.0,
2665: p_commit => FND_API.G_FALSE,
2666: p_init_msg_list => FND_API.G_FALSE,
2667: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2668: p_txn_system_rec => l_t_txn_sys_rec,
2669: x_txn_system_id => upd_system_tbl(system_rec_ind).SYSTEM_ID,
2670: x_return_status => l_return_status,
2663: csi_t_txn_systems_pvt.create_txn_system(
2664: p_api_version => 1.0,
2665: p_commit => FND_API.G_FALSE,
2666: p_init_msg_list => FND_API.G_FALSE,
2667: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2668: p_txn_system_rec => l_t_txn_sys_rec,
2669: x_txn_system_id => upd_system_tbl(system_rec_ind).SYSTEM_ID,
2670: x_return_status => l_return_status,
2671: x_msg_count => l_msg_count,
2676: -- Calling CSI_SYSTEMS_PVT to update the system
2677: -- with l_txn_sys_rec as the system parameter
2678: CSI_SYSTEMS_PVT.UPDATE_SYSTEM(
2679: p_api_version => 1.0,
2680: p_commit => FND_API.G_FALSE,
2681: p_init_msg_list => FND_API.G_FALSE,
2682: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2683: p_system_rec => l_txn_sys_rec,
2684: p_txn_rec => p_txn_rec,
2677: -- with l_txn_sys_rec as the system parameter
2678: CSI_SYSTEMS_PVT.UPDATE_SYSTEM(
2679: p_api_version => 1.0,
2680: p_commit => FND_API.G_FALSE,
2681: p_init_msg_list => FND_API.G_FALSE,
2682: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2683: p_system_rec => l_txn_sys_rec,
2684: p_txn_rec => p_txn_rec,
2685: x_return_status => l_return_status,
2678: CSI_SYSTEMS_PVT.UPDATE_SYSTEM(
2679: p_api_version => 1.0,
2680: p_commit => FND_API.G_FALSE,
2681: p_init_msg_list => FND_API.G_FALSE,
2682: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2683: p_system_rec => l_txn_sys_rec,
2684: p_txn_rec => p_txn_rec,
2685: x_return_status => l_return_status,
2686: x_msg_count => l_msg_count,
2685: x_return_status => l_return_status,
2686: x_msg_count => l_msg_count,
2687: x_msg_data => l_msg_data);
2688:
2689: IF NOT l_return_status = fnd_api.g_ret_sts_success
2690: THEN
2691: debug('Error updating systems in PROCESS_SYSTEM_MASS_UPDATE - System ID - ' || upd_system_tbl(system_rec_ind).SYSTEM_ID);
2692: RAISE FND_API.G_EXC_ERROR;
2693: END IF;
2688:
2689: IF NOT l_return_status = fnd_api.g_ret_sts_success
2690: THEN
2691: debug('Error updating systems in PROCESS_SYSTEM_MASS_UPDATE - System ID - ' || upd_system_tbl(system_rec_ind).SYSTEM_ID);
2692: RAISE FND_API.G_EXC_ERROR;
2693: END IF;
2694:
2695: END LOOP; -- upd_system_tbl
2696:
2694:
2695: END LOOP; -- upd_system_tbl
2696:
2697: ELSE -- upd_system_tbl.COUNT > 0
2698: x_return_status := fnd_api.g_ret_sts_success;
2699: END IF; -- upd_system_tbl.COUNT > 0
2700:
2701: EXCEPTION
2702: WHEN FND_API.G_EXC_ERROR THEN
2698: x_return_status := fnd_api.g_ret_sts_success;
2699: END IF; -- upd_system_tbl.COUNT > 0
2700:
2701: EXCEPTION
2702: WHEN FND_API.G_EXC_ERROR THEN
2703: ROLLBACK TO PROCESS_SYSTEM_MASS_UPDATE;
2704: x_return_status := FND_API.G_RET_STS_ERROR ;
2705: FND_MSG_PUB.Count_And_Get
2706: ( p_count => x_msg_count,
2700:
2701: EXCEPTION
2702: WHEN FND_API.G_EXC_ERROR THEN
2703: ROLLBACK TO PROCESS_SYSTEM_MASS_UPDATE;
2704: x_return_status := FND_API.G_RET_STS_ERROR ;
2705: FND_MSG_PUB.Count_And_Get
2706: ( p_count => x_msg_count,
2707: p_data => x_msg_data
2708: );
2706: ( p_count => x_msg_count,
2707: p_data => x_msg_data
2708: );
2709:
2710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2711: ROLLBACK TO PROCESS_SYSTEM_MASS_UPDATE;
2712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2713: FND_MSG_PUB.Count_And_Get
2714: ( p_count => x_msg_count,
2708: );
2709:
2710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2711: ROLLBACK TO PROCESS_SYSTEM_MASS_UPDATE;
2712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2713: FND_MSG_PUB.Count_And_Get
2714: ( p_count => x_msg_count,
2715: p_data => x_msg_data
2716: );
2716: );
2717:
2718: WHEN OTHERS THEN
2719: ROLLBACK TO PROCESS_SYSTEM_MASS_UPDATE;
2720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2721: IF FND_MSG_PUB.Check_Msg_Level
2722: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2723: THEN
2724: FND_MSG_PUB.Add_Exc_Msg
2757:
2758: l_active_instance_count NUMBER := 0;
2759: l_mu_instance_count NUMBER := 0;
2760: l_sys_ind NUMBER := 0;
2761: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2762:
2763:
2764: BEGIN
2765:
2809: END LOOP; -- distinct_system_cur(p_txn_line_id)
2810:
2811: debug('Total Number of Systems to be updated - ' || p_upd_system_tbl.COUNT);
2812: debug_out('Total Number of Systems to be updated - ' || p_upd_system_tbl.COUNT);
2813: x_return_status := FND_API.G_RET_STS_SUCCESS;
2814: debug('End IDENTIFY_SYSTEM_FOR_UPDATE');
2815: EXCEPTION
2816: WHEN OTHERS THEN
2817: debug('Exception in IDENTIFY_SYSTEM_FOR_UPDATE');
2814: debug('End IDENTIFY_SYSTEM_FOR_UPDATE');
2815: EXCEPTION
2816: WHEN OTHERS THEN
2817: debug('Exception in IDENTIFY_SYSTEM_FOR_UPDATE');
2818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2819:
2820: END IDENTIFY_SYSTEM_FOR_UPDATE; -- IDENTIFY_SYSTEM_FOR_UPDATE
2821:
2822: /*----------------------------------------------------*/
2864:
2865: debug('Inside VALIDATE_SYSTEM_BATCH');
2866:
2867: -- Validation logic
2868: x_return_status := FND_API.G_RET_STS_SUCCESS;
2869:
2870: OPEN SYS_ACCOUNT_CSR (p_entry_id);
2871: FETCH SYS_ACCOUNT_CSR INTO l_sys_acct_rec;
2872: CLOSE SYS_ACCOUNT_CSR;
2882: fnd_message.set_name('CSI', 'CSI_CUSTOMER_ID_NOT_FOUND');
2883: fnd_message.set_token('PARTY_ID',l_sys_acct_rec.Party_Id);
2884: fnd_message.set_token('ACCOUNT_NUMBER',l_sys_acct_rec.Account_Id);
2885: fnd_msg_pub.add;
2886: RAISE FND_API.G_EXC_ERROR;
2887:
2888: WHEN TOO_MANY_ROWS THEN
2889: fnd_message.set_name('CSI', 'CSI_MULTIPLE_CUSTOMER_ID_FOUND');
2890: fnd_message.set_token('PARTY_ID',l_sys_acct_rec.Party_Id);
2889: fnd_message.set_name('CSI', 'CSI_MULTIPLE_CUSTOMER_ID_FOUND');
2890: fnd_message.set_token('PARTY_ID',l_sys_acct_rec.Party_Id);
2891: fnd_message.set_token('ACCOUNT_NUMBER',l_sys_acct_rec.Account_Id);
2892: fnd_msg_pub.add;
2893: RAISE FND_API.G_EXC_ERROR;
2894: WHEN OTHERS THEN
2895: debug('In to Others Exception while finding customer id');
2896: RAISE FND_API.G_EXC_ERROR;
2897: END;
2892: fnd_msg_pub.add;
2893: RAISE FND_API.G_EXC_ERROR;
2894: WHEN OTHERS THEN
2895: debug('In to Others Exception while finding customer id');
2896: RAISE FND_API.G_EXC_ERROR;
2897: END;
2898: */
2899: debug('Total Number of Systems qualifying for mass update - ' || p_upd_system_tbl.COUNT);
2900: IF p_upd_system_tbl.COUNT > 0 THEN
2912: -- and system termination date - VLD_SYSTEM_TERM_DATE
2913: -- 4. To check if the system location ids changed after batch was
2914: -- scheduled - VLD_SYSTEM_LOCATION_CHGD
2915:
2916: IF NVL(p_upd_system_tbl(system_rec_ind).SYSTEM_ID, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2917:
2918: -- Whether the System is active or not
2919: debug('Executing VLD_SYSTEM_ACTIVE');
2920: CSI_MASS_EDIT_PVT.VLD_SYSTEM_ACTIVE(
2949: CSI_MASS_EDIT_PVT.VLD_SYSTEM_LOCATION_CHGD(
2950: p_upd_system_tbl(system_rec_ind).SYSTEM_ID,
2951: p_txn_line_id,
2952: l_mu_sys_error_tbl);
2953: END IF; -- NVL(l_system_rec.system_id, FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
2954: END LOOP; -- system_rec_ind IN
2955: END IF; -- p_upd_system_tbl.COUNT
2956:
2957: -- Check the Error table
2957: -- Check the Error table
2958: IF l_mu_sys_error_tbl.count > 0 THEN
2959: debug('Total Number of errors after system validation: '||l_mu_sys_error_tbl.count);
2960: FOR f in l_mu_sys_error_tbl.first .. l_mu_sys_error_tbl.last LOOP
2961: IF (l_mu_sys_error_tbl(f).error_code = fnd_api.g_ret_sts_error AND
2962: l_errors_found = 'N') THEN
2963: l_errors_found := 'Y';
2964: debug('Errors found from system validation');
2965: debug('Error message: '||substr(l_mu_sys_error_tbl(f).ERROR_TEXT,1,length(l_mu_sys_error_tbl(f).ERROR_TEXT)));
2979: END LOOP;
2980:
2981: IF (l_errors_found = 'Y' and l_warnings_found = 'Y' OR
2982: l_errors_found = 'Y' and l_warnings_found = 'N') THEN
2983: debug('Errors found from VALIDATE_SYSTEM_BATCH and raising FND_API.G_EXC_ERROR');
2984: RAISE FND_API.G_EXC_ERROR;
2985: ELSIF (l_errors_found = 'N' and l_warnings_found = 'Y') THEN
2986: x_return_status := 'W';
2987: END IF;
2980:
2981: IF (l_errors_found = 'Y' and l_warnings_found = 'Y' OR
2982: l_errors_found = 'Y' and l_warnings_found = 'N') THEN
2983: debug('Errors found from VALIDATE_SYSTEM_BATCH and raising FND_API.G_EXC_ERROR');
2984: RAISE FND_API.G_EXC_ERROR;
2985: ELSIF (l_errors_found = 'N' and l_warnings_found = 'Y') THEN
2986: x_return_status := 'W';
2987: END IF;
2988: debug('Return Status from VALIDATE_SYSTEM_BATCH: '||x_return_status);
2986: x_return_status := 'W';
2987: END IF;
2988: debug('Return Status from VALIDATE_SYSTEM_BATCH: '||x_return_status);
2989: ELSE
2990: x_return_status := fnd_api.g_ret_sts_success;
2991: END IF;
2992:
2993: EXCEPTION
2994: WHEN FND_API.G_EXC_ERROR THEN
2990: x_return_status := fnd_api.g_ret_sts_success;
2991: END IF;
2992:
2993: EXCEPTION
2994: WHEN FND_API.G_EXC_ERROR THEN
2995: debug('Encountered FND_API.G_EXC_ERROR in VALIDATE_SYSTEM_BATCH');
2996: x_return_status := FND_API.G_RET_STS_ERROR ;
2997: WHEN OTHERS THEN
2998: debug('Encountered WHEN OTHERS in VALIDATE_SYSTEM_BATCH');
2991: END IF;
2992:
2993: EXCEPTION
2994: WHEN FND_API.G_EXC_ERROR THEN
2995: debug('Encountered FND_API.G_EXC_ERROR in VALIDATE_SYSTEM_BATCH');
2996: x_return_status := FND_API.G_RET_STS_ERROR ;
2997: WHEN OTHERS THEN
2998: debug('Encountered WHEN OTHERS in VALIDATE_SYSTEM_BATCH');
2999: debug( to_char(SQLCODE)||substr(SQLERRM, 1, 255));
2992:
2993: EXCEPTION
2994: WHEN FND_API.G_EXC_ERROR THEN
2995: debug('Encountered FND_API.G_EXC_ERROR in VALIDATE_SYSTEM_BATCH');
2996: x_return_status := FND_API.G_RET_STS_ERROR ;
2997: WHEN OTHERS THEN
2998: debug('Encountered WHEN OTHERS in VALIDATE_SYSTEM_BATCH');
2999: debug( to_char(SQLCODE)||substr(SQLERRM, 1, 255));
3000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2996: x_return_status := FND_API.G_RET_STS_ERROR ;
2997: WHEN OTHERS THEN
2998: debug('Encountered WHEN OTHERS in VALIDATE_SYSTEM_BATCH');
2999: debug( to_char(SQLCODE)||substr(SQLERRM, 1, 255));
3000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3001:
3002: END VALIDATE_SYSTEM_BATCH; -- VALIDATE_SYSTEM_BATCH
3003:
3004:
3014: ) IS
3015:
3016:
3017: px_csi_txn_rec csi_datastructures_pub.transaction_rec;
3018: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3019: l_msg_count number;
3020: l_msg_data varchar2(2000);
3021: l_Error_Message varchar2(2000);
3022: l_crt_count number;
3079:
3080:
3081: csi_transactions_pvt.create_transaction(
3082: p_api_version => 1.0,
3083: p_commit => fnd_api.g_false,
3084: p_init_msg_list => fnd_api.g_true,
3085: p_validation_level => fnd_api.g_valid_level_full,
3086: p_success_if_exists_flag => 'Y',
3087: p_transaction_rec => px_csi_txn_rec,
3080:
3081: csi_transactions_pvt.create_transaction(
3082: p_api_version => 1.0,
3083: p_commit => fnd_api.g_false,
3084: p_init_msg_list => fnd_api.g_true,
3085: p_validation_level => fnd_api.g_valid_level_full,
3086: p_success_if_exists_flag => 'Y',
3087: p_transaction_rec => px_csi_txn_rec,
3088: x_return_status => l_return_status,
3081: csi_transactions_pvt.create_transaction(
3082: p_api_version => 1.0,
3083: p_commit => fnd_api.g_false,
3084: p_init_msg_list => fnd_api.g_true,
3085: p_validation_level => fnd_api.g_valid_level_full,
3086: p_success_if_exists_flag => 'Y',
3087: p_transaction_rec => px_csi_txn_rec,
3088: x_return_status => l_return_status,
3089: x_msg_count => l_msg_count,
3088: x_return_status => l_return_status,
3089: x_msg_count => l_msg_count,
3090: x_msg_data => l_msg_data);
3091:
3092: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3093: debug_out('The transaction record creation failed, please look into Request log for detailed error');
3094: debug('Call to csi_transactions_pvt.create_transaction not successful');
3095: l_msg_index := 1;
3096: l_Error_Message := l_msg_data;
3094: debug('Call to csi_transactions_pvt.create_transaction not successful');
3095: l_msg_index := 1;
3096: l_Error_Message := l_msg_data;
3097: WHILE l_msg_count > 0 LOOP
3098: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
3099: l_msg_index := l_msg_index + 1;
3100: l_msg_count := l_msg_count - 1;
3101: debug_out('Error: ' || l_Error_Message);
3102: END LOOP;
3370: l_covlvl_id NUMBER;
3371: l_cov_line_tbl OKS_IBINT_PUB.k_cov_line_tbl;
3372: l_log_tbl csi_mass_edit_pub.log_tbl;
3373: l_par_instance_id NUMBER;
3374: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3375: l_crt_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3376: l_msg_count number;
3377: l_msg_data varchar2(2000);
3378: l_msg_index NUMBER;
3371: l_cov_line_tbl OKS_IBINT_PUB.k_cov_line_tbl;
3372: l_log_tbl csi_mass_edit_pub.log_tbl;
3373: l_par_instance_id NUMBER;
3374: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3375: l_crt_return_status varchar2(1) := fnd_api.g_ret_sts_success;
3376: l_msg_count number;
3377: l_msg_data varchar2(2000);
3378: l_msg_index NUMBER;
3379: l_error_message VARCHAR2(2000);
3449: END IF;
3450:
3451: --Validating Owner party
3452: IF(l_instance.OWNER_ID IS NULL AND
3453: nvl(l_instance.OWNER_PARTY_TYPE, fnd_api.g_miss_char) <> 'HZ_PARTIES' AND
3454: nvl(l_instance.INTERNALLY_OWNED, 'N') = 'N') THEN
3455: IF(l_instance.OWNER_PARTY_NUM IS NOT NULL AND l_instance.OWNER_NAME IS NOT NULL) THEN
3456: debug_out('In the uploaded create record #' || xls_idx ||
3457: '. For Employee/Vendor party type, Invalid Value(s) or invaid ' ||
3684: END;
3685: END IF;
3686:
3687: --Validating Operational Status Code
3688: IF(nvl(l_instance.OPERATIONAL_STATUS_CODE, FND_API.G_MISS_CHAR) <> 'NOT_USED') THEN
3689: debug_out('In the uploaded create record #' || xls_idx ||
3690: '. Only the value, NOT_USED is supported for column: Operational Status Code');
3691: isRecValid := false;
3692: END IF;
3760: c_instance_tbl(inst_idx).VERSION_LABEL := l_instance.VERSION_LABEL;
3761: c_instance_tbl(inst_idx).CREATION_COMPLETE_FLAG := 'Y'; --Added for Bug 12631458
3762: c_instance_tbl(inst_idx).REC_INDEX := inst_idx; --Added for Bug 10414679
3763: IF(l_instance.CREATE_CONTRACT = 'Y') THEN
3764: c_instance_tbl(inst_idx).CALL_CONTRACTS := FND_API.G_TRUE;
3765: ELSE
3766: c_instance_tbl(inst_idx).CALL_CONTRACTS := FND_API.G_FALSE;
3767: END IF;
3768:
3762: c_instance_tbl(inst_idx).REC_INDEX := inst_idx; --Added for Bug 10414679
3763: IF(l_instance.CREATE_CONTRACT = 'Y') THEN
3764: c_instance_tbl(inst_idx).CALL_CONTRACTS := FND_API.G_TRUE;
3765: ELSE
3766: c_instance_tbl(inst_idx).CALL_CONTRACTS := FND_API.G_FALSE;
3767: END IF;
3768:
3769: --Added for Bug 10414679
3770: l_log_tbl(inst_idx).ITEM_NUMBER := l_instance.ITEM_NUMBER;
3769: --Added for Bug 10414679
3770: l_log_tbl(inst_idx).ITEM_NUMBER := l_instance.ITEM_NUMBER;
3771: l_log_tbl(inst_idx).QUANTITY := l_instance.QUANTITY;
3772: --Corrected the code while making changes for Bug 12631458
3773: IF(nvl(l_instance.EXTERNAL_REF, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR)
3774: THEN
3775: l_log_tbl(inst_idx).EXTERNAL_REFERENCE := l_instance.EXTERNAL_REF;
3776: ELSE
3777: l_log_tbl(inst_idx).EXTERNAL_REFERENCE := ' ';
3776: ELSE
3777: l_log_tbl(inst_idx).EXTERNAL_REFERENCE := ' ';
3778: END IF;
3779:
3780: IF(nvl(l_instance.SERIAL_NUMBER, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR)
3781: THEN
3782: l_log_tbl(inst_idx).SERIAL_NUMBER := l_instance.SERIAL_NUMBER;
3783: ELSE
3784: l_log_tbl(inst_idx).SERIAL_NUMBER := ' ';
3783: ELSE
3784: l_log_tbl(inst_idx).SERIAL_NUMBER := ' ';
3785: END IF;
3786:
3787: IF(nvl(l_instance.LOT_NUMBER, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR)
3788: THEN
3789: l_log_tbl(inst_idx).LOT_NUMBER := l_instance.LOT_NUMBER;
3790: ELSE
3791: l_log_tbl(inst_idx).LOT_NUMBER := ' ';
3790: ELSE
3791: l_log_tbl(inst_idx).LOT_NUMBER := ' ';
3792: END IF;
3793:
3794: IF(nvl(l_instance.SYSTEM_NAME, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR)
3795: THEN
3796: l_log_tbl(inst_idx).SYSTEM_NAME := l_instance.SYSTEM_NAME;
3797: ELSE
3798: l_log_tbl(inst_idx).SYSTEM_NAME := ' ';
3940: INTO l_internal_party_id
3941: FROM csi_install_parameters;
3942: EXCEPTION
3943: WHEN others THEN
3944: raise fnd_api.g_exc_error;
3945: END;
3946:
3947: c_party_tbl(party_idx).party_source_table := 'HZ_PARTIES';
3948: c_party_tbl(party_idx).party_id := l_internal_party_id;
3965: --Account Record
3966: IF l_instance.OWNER_PARTY_TYPE = 'HZ_PARTIES' THEN
3967: debug('Populating owner account details.');
3968: account_idx := account_idx + 1;
3969: c_account_tbl(account_idx).ip_account_id := fnd_api.g_miss_num;
3970: c_account_tbl(account_idx).instance_party_id := fnd_api.g_miss_num;
3971: c_account_tbl(account_idx).parent_tbl_index := party_idx;
3972: c_account_tbl(account_idx).party_account_id := l_instance.OWNER_ACCOUNT_ID;
3973: c_account_tbl(account_idx).relationship_type_code := 'OWNER';
3966: IF l_instance.OWNER_PARTY_TYPE = 'HZ_PARTIES' THEN
3967: debug('Populating owner account details.');
3968: account_idx := account_idx + 1;
3969: c_account_tbl(account_idx).ip_account_id := fnd_api.g_miss_num;
3970: c_account_tbl(account_idx).instance_party_id := fnd_api.g_miss_num;
3971: c_account_tbl(account_idx).parent_tbl_index := party_idx;
3972: c_account_tbl(account_idx).party_account_id := l_instance.OWNER_ACCOUNT_ID;
3973: c_account_tbl(account_idx).relationship_type_code := 'OWNER';
3974: c_account_tbl(account_idx).bill_to_address := l_instance.BILL_TO_LOC_ID;
3974: c_account_tbl(account_idx).bill_to_address := l_instance.BILL_TO_LOC_ID;
3975: c_account_tbl(account_idx).ship_to_address := l_instance.SHIP_TO_LOC_ID;
3976: c_account_tbl(account_idx).OBJECT_VERSION_NUMBER := 1;
3977: IF(l_instance.CREATE_CONTRACT = 'Y') THEN
3978: c_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_TRUE;
3979: ELSE
3980: c_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_FALSE;
3981: END IF;
3982: END IF;
3976: c_account_tbl(account_idx).OBJECT_VERSION_NUMBER := 1;
3977: IF(l_instance.CREATE_CONTRACT = 'Y') THEN
3978: c_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_TRUE;
3979: ELSE
3980: c_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_FALSE;
3981: END IF;
3982: END IF;
3983: END IF;
3984:
4002: c_account_tbl(account_idx).party_account_id := l_instance.ASSOCIATE_BILL_TO_ACCT_ID;
4003: c_account_tbl(account_idx).relationship_type_code := 'BILL_TO';
4004: c_account_tbl(account_idx).OBJECT_VERSION_NUMBER := 1;
4005: IF(l_instance.CREATE_CONTRACT = 'Y') THEN
4006: c_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_TRUE;
4007: ELSE
4008: c_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_FALSE;
4009: END IF;
4010: END IF;
4004: c_account_tbl(account_idx).OBJECT_VERSION_NUMBER := 1;
4005: IF(l_instance.CREATE_CONTRACT = 'Y') THEN
4006: c_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_TRUE;
4007: ELSE
4008: c_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_FALSE;
4009: END IF;
4010: END IF;
4011: END IF;
4012:
4031: c_account_tbl(account_idx).party_account_id := l_instance.ASSOCIATE_SHIP_TO_ACCT_ID;
4032: c_account_tbl(account_idx).relationship_type_code := 'SHIP_TO';
4033: c_account_tbl(account_idx).OBJECT_VERSION_NUMBER := 1;
4034: IF(l_instance.CREATE_CONTRACT = 'Y') THEN
4035: c_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_TRUE;
4036: ELSE
4037: c_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_FALSE;
4038: END IF;
4039: END IF;
4033: c_account_tbl(account_idx).OBJECT_VERSION_NUMBER := 1;
4034: IF(l_instance.CREATE_CONTRACT = 'Y') THEN
4035: c_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_TRUE;
4036: ELSE
4037: c_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_FALSE;
4038: END IF;
4039: END IF;
4040: END IF;
4041:
4060: debug('Number of records populated to call Create API: ' || c_instance_tbl.count);
4061: IF(c_instance_tbl.count > 0) then
4062: csi_item_instance_grp.create_item_instance (
4063: p_api_version => 1.0,
4064: p_commit => fnd_api.g_false,
4065: p_init_msg_list => fnd_api.g_true,
4066: p_validation_level => fnd_api.g_valid_level_full,
4067: p_instance_tbl => c_instance_tbl,
4068: p_ext_attrib_values_tbl => c_ext_attrib_values_tbl,
4061: IF(c_instance_tbl.count > 0) then
4062: csi_item_instance_grp.create_item_instance (
4063: p_api_version => 1.0,
4064: p_commit => fnd_api.g_false,
4065: p_init_msg_list => fnd_api.g_true,
4066: p_validation_level => fnd_api.g_valid_level_full,
4067: p_instance_tbl => c_instance_tbl,
4068: p_ext_attrib_values_tbl => c_ext_attrib_values_tbl,
4069: p_party_tbl => c_party_tbl,
4062: csi_item_instance_grp.create_item_instance (
4063: p_api_version => 1.0,
4064: p_commit => fnd_api.g_false,
4065: p_init_msg_list => fnd_api.g_true,
4066: p_validation_level => fnd_api.g_valid_level_full,
4067: p_instance_tbl => c_instance_tbl,
4068: p_ext_attrib_values_tbl => c_ext_attrib_values_tbl,
4069: p_party_tbl => c_party_tbl,
4070: p_account_tbl => c_account_tbl,
4077: x_return_status => l_crt_return_status,
4078: x_msg_count => l_msg_count,
4079: x_msg_data => l_msg_data);
4080:
4081: IF NOT l_crt_return_status = FND_API.G_RET_STS_SUCCESS
4082: THEN
4083: debug('Call to create_item_instance not successful');
4084: debug_out('Creation of item instances failed, please check the request log for further details');
4085: l_falied_count := l_falied_count + c_instance_tbl.count;
4085: l_falied_count := l_falied_count + c_instance_tbl.count;
4086: l_msg_index := 1;
4087: l_Error_Message := l_Msg_Data;
4088: WHILE l_msg_count > 0 LOOP
4089: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
4090: l_msg_index := l_msg_index + 1;
4091: l_msg_count := l_msg_count - 1;
4092: debug('Error: ' || l_Error_Message);
4093: END LOOP;
4181: JTF_NOTES_PUB.CREATE_NOTE
4182: ( p_parent_note_id => NULL,
4183: p_api_version => 1,
4184: p_init_msg_list => NULL,
4185: p_commit => FND_API.G_FALSE,
4186: p_validation_level => fnd_api.g_valid_level_full,
4187: x_return_status => l_return_status,
4188: x_msg_count => l_msg_count,
4189: x_msg_data => l_msg_data,
4182: ( p_parent_note_id => NULL,
4183: p_api_version => 1,
4184: p_init_msg_list => NULL,
4185: p_commit => FND_API.G_FALSE,
4186: p_validation_level => fnd_api.g_valid_level_full,
4187: x_return_status => l_return_status,
4188: x_msg_count => l_msg_count,
4189: x_msg_data => l_msg_data,
4190: x_jtf_note_id => l_note_id,
4200: p_creation_date => SYSDATE,
4201: p_created_by => FND_GLOBAL.USER_ID
4202: );
4203:
4204: IF NOT(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4205: debug_out('Error occured while creating a note for the created Instance: '
4206: || c_instance_tbl(inst_tab_row).INSTANCE_NUMBER);
4207: debug('Error occured while creating a note for the created Instance: '
4208: || c_instance_tbl(inst_tab_row).INSTANCE_NUMBER);
4209: l_msg_index := 1;
4210: l_Error_Message := l_msg_data;
4211: WHILE l_msg_count > 0
4212: LOOP
4213: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
4214: l_msg_index := l_msg_index + 1;
4215: l_msg_count := l_msg_count - 1;
4216: debug('Error: ' || l_Error_Message);
4217: END LOOP;
4224:
4225: --Populating relationship records with the Instance Ids created and calling ceate API
4226: debug('Number of records populated before filtering, for the call to Create Relationships API: ' ||
4227: c_relationship_tbl.count);
4228: IF (c_relationship_tbl.count > 0 AND l_crt_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4229:
4230: FOR inst_tab_row IN c_relationship_tbl.FIRST .. c_relationship_tbl.LAST
4231: LOOP
4232: IF c_relationship_tbl.EXISTS(inst_tab_row) THEN
4232: IF c_relationship_tbl.EXISTS(inst_tab_row) THEN
4233: c_relationship_tbl(inst_tab_row).subject_id :=
4234: c_instance_tbl(c_relationship_tbl(inst_tab_row).PARENT_TBL_INDEX).INSTANCE_ID;
4235: IF(c_grp_error_tbl(c_relationship_tbl(inst_tab_row).PARENT_TBL_INDEX).Process_Status <> 'E')
4236: AND NOT nvl(c_relationship_tbl(inst_tab_row).subject_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
4237: THEN
4238: l_rel_idx := l_rel_idx + 1;
4239: l_relationship_tbl(l_rel_idx) := c_relationship_tbl(inst_tab_row);
4240: END IF;
4242: END LOOP;
4243: debug('Number of records eligible for call to Create Relationships API: ' || l_relationship_tbl.count);
4244: csi_ii_relationships_pub.create_relationship(
4245: p_api_version => 1.0,
4246: p_commit => fnd_api.g_false,
4247: p_init_msg_list => fnd_api.g_true,
4248: p_validation_level => fnd_api.g_valid_level_full,
4249: p_relationship_tbl => l_relationship_tbl,
4250: p_txn_rec => p_csi_txn_rec,
4243: debug('Number of records eligible for call to Create Relationships API: ' || l_relationship_tbl.count);
4244: csi_ii_relationships_pub.create_relationship(
4245: p_api_version => 1.0,
4246: p_commit => fnd_api.g_false,
4247: p_init_msg_list => fnd_api.g_true,
4248: p_validation_level => fnd_api.g_valid_level_full,
4249: p_relationship_tbl => l_relationship_tbl,
4250: p_txn_rec => p_csi_txn_rec,
4251: x_return_status => l_return_status,
4244: csi_ii_relationships_pub.create_relationship(
4245: p_api_version => 1.0,
4246: p_commit => fnd_api.g_false,
4247: p_init_msg_list => fnd_api.g_true,
4248: p_validation_level => fnd_api.g_valid_level_full,
4249: p_relationship_tbl => l_relationship_tbl,
4250: p_txn_rec => p_csi_txn_rec,
4251: x_return_status => l_return_status,
4252: x_msg_count => l_msg_count,
4250: p_txn_rec => p_csi_txn_rec,
4251: x_return_status => l_return_status,
4252: x_msg_count => l_msg_count,
4253: x_msg_data => l_msg_data);
4254: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS
4255: THEN
4256: debug_out('Error occured, while creating relationship for the newly created instance(s).' ||
4257: 'Please check the request log for further details');
4258: debug('Call to create_relationship while Create is not successful');
4258: debug('Call to create_relationship while Create is not successful');
4259: l_msg_index := 1;
4260: l_Error_Message := l_Msg_Data;
4261: WHILE l_msg_count > 0 LOOP
4262: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
4263: l_msg_index := l_msg_index + 1;
4264: l_msg_count := l_msg_count - 1;
4265: debug('Error: ' || l_Error_Message);
4266: END LOOP;
4270: END IF;
4271:
4272: --Populating contract records with the Instance Ids created and calling OKS API
4273: debug('Number of records populated to call OKS API: ' || l_cov_line_tbl.count);
4274: IF (l_cov_line_tbl.count > 0 AND l_crt_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4275:
4276: FOR tab_row IN l_cov_line_tbl.FIRST .. l_cov_line_tbl.LAST
4277: LOOP
4278: IF l_cov_line_tbl.EXISTS(tab_row) THEN
4278: IF l_cov_line_tbl.EXISTS(tab_row) THEN
4279: l_cov_line_tbl(tab_row).customer_product_id :=
4280: c_instance_tbl(l_cov_line_tbl(tab_row).parent_tbl_idx).INSTANCE_ID;
4281: IF(c_grp_error_tbl(l_cov_line_tbl(tab_row).parent_tbl_idx).Process_Status <> 'E')
4282: AND NOT nvl(l_cov_line_tbl(tab_row).customer_product_id, FND_API.G_MISS_NUM)
4283: = FND_API.G_MISS_NUM
4284: THEN
4285: l_covlvl_id := NULL;
4286: OKS_IBINT_PUB.create_k_covered_levels_webadi(
4279: l_cov_line_tbl(tab_row).customer_product_id :=
4280: c_instance_tbl(l_cov_line_tbl(tab_row).parent_tbl_idx).INSTANCE_ID;
4281: IF(c_grp_error_tbl(l_cov_line_tbl(tab_row).parent_tbl_idx).Process_Status <> 'E')
4282: AND NOT nvl(l_cov_line_tbl(tab_row).customer_product_id, FND_API.G_MISS_NUM)
4283: = FND_API.G_MISS_NUM
4284: THEN
4285: l_covlvl_id := NULL;
4286: OKS_IBINT_PUB.create_k_covered_levels_webadi(
4287: p_chr_id => l_chr_id_tbl(tab_row),
4292: x_msg_count => l_msg_count,
4293: x_msg_data => l_msg_data
4294: );
4295:
4296: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS
4297: THEN
4298: debug('Error Occured in call to OKS_IBINT_PUB.create_k_covered_levels_webadi ' ||
4299: 'for the Instance: ' ||
4300: c_instance_tbl(l_cov_line_tbl(tab_row).parent_tbl_idx).INSTANCE_NUMBER);
4318: END IF;
4319:
4320: --Populating Pricing attr records with the Instance Ids created and Calling Pricing Attributes API
4321: debug('Number of records populated to call create Pricing attributes API: ' || c_pricing_attribs_tbl.count);
4322: IF (c_pricing_attribs_tbl.count > 0 AND l_crt_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4323:
4324: FOR tab_row IN c_pricing_attribs_tbl.FIRST .. c_pricing_attribs_tbl.LAST
4325: LOOP
4326: IF c_pricing_attribs_tbl.EXISTS(tab_row) THEN
4326: IF c_pricing_attribs_tbl.EXISTS(tab_row) THEN
4327: c_pricing_attribs_tbl(tab_row).instance_id :=
4328: c_instance_tbl(c_pricing_attribs_tbl(tab_row).parent_tbl_index).INSTANCE_ID;
4329: IF(c_grp_error_tbl(c_pricing_attribs_tbl(tab_row).parent_tbl_index).Process_Status <> 'E')
4330: AND NOT nvl(c_pricing_attribs_tbl(tab_row).instance_id, FND_API.G_MISS_NUM)
4331: = FND_API.G_MISS_NUM
4332: THEN
4333: csi_pricing_attribs_pvt.create_pricing_attribs(
4334: p_api_version => 1.0,
4327: c_pricing_attribs_tbl(tab_row).instance_id :=
4328: c_instance_tbl(c_pricing_attribs_tbl(tab_row).parent_tbl_index).INSTANCE_ID;
4329: IF(c_grp_error_tbl(c_pricing_attribs_tbl(tab_row).parent_tbl_index).Process_Status <> 'E')
4330: AND NOT nvl(c_pricing_attribs_tbl(tab_row).instance_id, FND_API.G_MISS_NUM)
4331: = FND_API.G_MISS_NUM
4332: THEN
4333: csi_pricing_attribs_pvt.create_pricing_attribs(
4334: p_api_version => 1.0,
4335: p_commit => fnd_api.g_false,
4331: = FND_API.G_MISS_NUM
4332: THEN
4333: csi_pricing_attribs_pvt.create_pricing_attribs(
4334: p_api_version => 1.0,
4335: p_commit => fnd_api.g_false,
4336: p_init_msg_list => fnd_api.g_true,
4337: p_validation_level => fnd_api.g_valid_level_full,
4338: p_pricing_attribs_rec => c_pricing_attribs_tbl(tab_row),
4339: p_txn_rec => p_csi_txn_rec,
4332: THEN
4333: csi_pricing_attribs_pvt.create_pricing_attribs(
4334: p_api_version => 1.0,
4335: p_commit => fnd_api.g_false,
4336: p_init_msg_list => fnd_api.g_true,
4337: p_validation_level => fnd_api.g_valid_level_full,
4338: p_pricing_attribs_rec => c_pricing_attribs_tbl(tab_row),
4339: p_txn_rec => p_csi_txn_rec,
4340: x_return_status => l_return_status,
4333: csi_pricing_attribs_pvt.create_pricing_attribs(
4334: p_api_version => 1.0,
4335: p_commit => fnd_api.g_false,
4336: p_init_msg_list => fnd_api.g_true,
4337: p_validation_level => fnd_api.g_valid_level_full,
4338: p_pricing_attribs_rec => c_pricing_attribs_tbl(tab_row),
4339: p_txn_rec => p_csi_txn_rec,
4340: x_return_status => l_return_status,
4341: x_msg_count => l_msg_count,
4339: p_txn_rec => p_csi_txn_rec,
4340: x_return_status => l_return_status,
4341: x_msg_count => l_msg_count,
4342: x_msg_data => l_msg_data);
4343: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS
4344: THEN
4345: debug_out('Error occured, while creating Pricing attributes, for the newly created instance ' ||
4346: c_instance_tbl(c_pricing_attribs_tbl(tab_row).parent_tbl_index).INSTANCE_NUMBER ||
4347: '. Please check the request log for further details');
4351:
4352: l_msg_index := 1;
4353: l_Error_Message := l_msg_data;
4354: WHILE l_msg_count > 0 LOOP
4355: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
4356: l_msg_index := l_msg_index + 1;
4357: l_msg_count := l_msg_count - 1;
4358: debug('Error: ' || l_Error_Message);
4359: END LOOP;
4606: l_attach2_line_id_tbl number_tbl;
4607: l_covlvl_id NUMBER;
4608: l_cov_line_tbl OKS_IBINT_PUB.k_cov_line_tbl;
4609: l_split_new_inst_rec csi_datastructures_pub.instance_rec;
4610: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
4611: l_msg_count number;
4612: l_msg_data varchar2(2000);
4613: inst_idx PLS_INTEGER;
4614: party_idx PLS_INTEGER;
4692: xls_idx := xls_idx + 1;
4693:
4694: --Validating Owner party
4695: IF(l_instance.OWNER_ID IS NULL AND
4696: nvl(l_instance.OWNER_PARTY_TYPE, fnd_api.g_miss_char) <> 'HZ_PARTIES') THEN
4697: IF(l_instance.OWNER_PARTY_NUM IS NOT NULL AND l_instance.OWNER_NAME IS NOT NULL) THEN
4698: debug_out('In the uploaded update record #' || xls_idx ||
4699: '. For Employee/Vendor party type, invalid Value(s) or invaid combination of' ||
4700: ' values for columns: Owner Party Num, Owner Name.');
5058: debug_out('In the uploaded update record #' || xls_idx ||
5059: '. Invalid value for hidden column: Instance Id.');
5060: isRecValid := false;
5061: END;
5062: IF(nvl(l_instance.OPERATIONAL_STATUS_CODE, FND_API.G_MISS_CHAR) <>
5063: nvl(l_operational_status_code, FND_API.G_MISS_CHAR)) THEN
5064: debug_out('In the uploaded update record #' || xls_idx ||
5065: '. Change of value is not supported for the column: Operational Status Code');
5066: isRecValid := false;
5059: '. Invalid value for hidden column: Instance Id.');
5060: isRecValid := false;
5061: END;
5062: IF(nvl(l_instance.OPERATIONAL_STATUS_CODE, FND_API.G_MISS_CHAR) <>
5063: nvl(l_operational_status_code, FND_API.G_MISS_CHAR)) THEN
5064: debug_out('In the uploaded update record #' || xls_idx ||
5065: '. Change of value is not supported for the column: Operational Status Code');
5066: isRecValid := false;
5067: END IF;
5136:
5137: u_instance_tbl(inst_idx).OBJECT_VERSION_NUMBER := l_object_version_number;
5138: u_instance_tbl(inst_idx).VLD_ORGANIZATION_ID := l_last_vld_organization_id;
5139: IF(is_party_change) THEN
5140: u_instance_tbl(inst_idx).CALL_CONTRACTS := FND_API.G_FALSE;
5141: ELSE
5142: u_instance_tbl(inst_idx).CALL_CONTRACTS := FND_API.G_TRUE;
5143: END IF;
5144: --Populating Version label, if it is changed wrt to the old version label
5138: u_instance_tbl(inst_idx).VLD_ORGANIZATION_ID := l_last_vld_organization_id;
5139: IF(is_party_change) THEN
5140: u_instance_tbl(inst_idx).CALL_CONTRACTS := FND_API.G_FALSE;
5141: ELSE
5142: u_instance_tbl(inst_idx).CALL_CONTRACTS := FND_API.G_TRUE;
5143: END IF;
5144: --Populating Version label, if it is changed wrt to the old version label
5145: IF l_instance.VERSION_LABEL IS NOT NULL THEN
5146: BEGIN
5217: debug('Error: ' || to_char(SQLCODE)||substr(SQLERRM, 1, 255));
5218: debug_out('Could not create/update Pricing attributes for Instance: ' ||
5219: l_instance.PRODUCT_NUMBER ||
5220: '. Please check the request log, for further error details');
5221: l_pricing_attribute_id := FND_API.G_MISS_NUM;
5222: END;
5223:
5224: IF(l_instance.Pricing_context IS NOT NULL) THEN
5225: IF(l_pricing_attribute_id IS NULL) THEN
5362: := l_instance.INSTANCE_ID;
5363: c_pricing_attribs_tbl(c_pa_idx).parent_tbl_index
5364: := inst_idx;
5365: ELSIF(l_pricing_attribute_id IS NOT NULL
5366: AND l_pricing_attribute_id <> FND_API.G_MISS_NUM) THEN
5367: u_pa_idx := u_pa_idx + 1;
5368: u_pricing_attribs_tbl(u_pa_idx).pricing_context
5369: := l_instance.Pricing_context;
5370: u_pricing_attribs_tbl(u_pa_idx).Pricing_attribute1
5515: INTO l_internal_party_id
5516: FROM csi_install_parameters;
5517: EXCEPTION
5518: WHEN others THEN
5519: raise fnd_api.g_exc_error;
5520: END;
5521:
5522: --Party Record
5523: party_idx := party_idx + 1;
5531: u_party_tbl(party_idx).party_id := l_instance.OWNER_ID;
5532: u_party_tbl(party_idx).CASCADE_OWNERSHIP_FLAG := l_instance.CASCADE_UPDATE;
5533: --Account Record
5534: IF l_instance.OWNER_PARTY_TYPE = 'HZ_PARTIES'
5535: AND nvl(l_internal_party_id, fnd_api.g_miss_num) <>
5536: nvl(l_instance.OWNER_ID, fnd_api.g_miss_num) THEN
5537: debug('Populating owner account details.');
5538: account_idx := account_idx + 1;
5539: u_account_tbl(account_idx).ip_account_id := l_ip_account_id;
5532: u_party_tbl(party_idx).CASCADE_OWNERSHIP_FLAG := l_instance.CASCADE_UPDATE;
5533: --Account Record
5534: IF l_instance.OWNER_PARTY_TYPE = 'HZ_PARTIES'
5535: AND nvl(l_internal_party_id, fnd_api.g_miss_num) <>
5536: nvl(l_instance.OWNER_ID, fnd_api.g_miss_num) THEN
5537: debug('Populating owner account details.');
5538: account_idx := account_idx + 1;
5539: u_account_tbl(account_idx).ip_account_id := l_ip_account_id;
5540: u_account_tbl(account_idx).instance_party_id := l_instance_party_id;
5545: u_account_tbl(account_idx).ship_to_address := l_instance.SHIP_TO_LOC_ID;
5546: u_account_tbl(account_idx).OBJECT_VERSION_NUMBER := l_act_obj_ver;
5547: u_account_tbl(account_idx).CASCADE_OWNERSHIP_FLAG := l_instance.CASCADE_UPDATE;
5548: IF(is_party_change) THEN
5549: u_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_FALSE;
5550: ELSE
5551: u_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_TRUE;
5552: END IF;
5553: END IF;
5547: u_account_tbl(account_idx).CASCADE_OWNERSHIP_FLAG := l_instance.CASCADE_UPDATE;
5548: IF(is_party_change) THEN
5549: u_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_FALSE;
5550: ELSE
5551: u_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_TRUE;
5552: END IF;
5553: END IF;
5554:
5555:
5594: u_account_tbl(account_idx).parent_tbl_index := party_idx;
5595: u_account_tbl(account_idx).party_account_id := l_instance.ASSOCIATE_BILL_TO_ACCT_ID;
5596: u_account_tbl(account_idx).relationship_type_code := 'BILL_TO';
5597: u_account_tbl(account_idx).OBJECT_VERSION_NUMBER := 1;
5598: u_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_FALSE;
5599: END IF;
5600: ELSE
5601: debug_out('Bill To party relationship with party, ' || l_instance.ASSOCIATE_BILL_TO_PARTY_NUMBER ||
5602: ' already exists with the Instance ' || l_instance.PRODUCT_NUMBER);
5644: u_account_tbl(account_idx).parent_tbl_index := party_idx;
5645: u_account_tbl(account_idx).party_account_id := l_instance.ASSOCIATE_SHIP_TO_ACCT_ID;
5646: u_account_tbl(account_idx).relationship_type_code := 'SHIP_TO';
5647: u_account_tbl(account_idx).OBJECT_VERSION_NUMBER := 1;
5648: u_account_tbl(account_idx).CALL_CONTRACTS := FND_API.G_FALSE;
5649: END IF;
5650: ELSE
5651: debug_out('Ship To party relationship with party, ' || l_instance.ASSOCIATE_SHIP_TO_PARTY_NUMBER ||
5652: ' already exists with the Instance ' || l_instance.PRODUCT_NUMBER);
5655:
5656: --Txn Rec
5657: u_csi_txn_tbl(inst_idx) := p_csi_txn_rec;
5658:
5659: IF (Nvl(l_instance.PARENT_INSTANCE,FND_API.G_MISS_NUM) <> Nvl(l_instance.OLD_PARENT_INSTANCE, FND_API.G_MISS_NUM)) THEN
5660: IF l_instance.OLD_PARENT_INSTANCE IS NOT NULL THEN
5661: --Building the expire records
5662: BEGIN
5663: SELECT RELATIONSHIP_ID, OBJECT_VERSION_NUMBER
5696: IF(u_instance_tbl.count > 0) then
5697:
5698: csi_item_instance_grp.update_item_instance (
5699: p_api_version => 1.0,
5700: p_commit => fnd_api.g_false,
5701: p_init_msg_list => fnd_api.g_true,
5702: p_validation_level => fnd_api.g_valid_level_full,
5703: p_instance_tbl => u_instance_tbl,
5704: p_ext_attrib_values_tbl => u_ext_attrib_values_tbl,
5697:
5698: csi_item_instance_grp.update_item_instance (
5699: p_api_version => 1.0,
5700: p_commit => fnd_api.g_false,
5701: p_init_msg_list => fnd_api.g_true,
5702: p_validation_level => fnd_api.g_valid_level_full,
5703: p_instance_tbl => u_instance_tbl,
5704: p_ext_attrib_values_tbl => u_ext_attrib_values_tbl,
5705: p_party_tbl => u_party_tbl,
5698: csi_item_instance_grp.update_item_instance (
5699: p_api_version => 1.0,
5700: p_commit => fnd_api.g_false,
5701: p_init_msg_list => fnd_api.g_true,
5702: p_validation_level => fnd_api.g_valid_level_full,
5703: p_instance_tbl => u_instance_tbl,
5704: p_ext_attrib_values_tbl => u_ext_attrib_values_tbl,
5705: p_party_tbl => u_party_tbl,
5706: p_account_tbl => u_account_tbl,
5713: x_return_status => l_return_status,
5714: x_msg_count => l_msg_count,
5715: x_msg_data => l_msg_data);
5716:
5717: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS
5718: THEN
5719: debug('Call to update_item_instance not successful');
5720: debug_out('Update of the instances not successful, please check the request log for further details.');
5721: l_msg_index := 1;
5720: debug_out('Update of the instances not successful, please check the request log for further details.');
5721: l_msg_index := 1;
5722: l_Error_Message := l_msg_Data;
5723: WHILE l_msg_count > 0 LOOP
5724: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
5725: l_msg_index := l_msg_index + 1;
5726: l_msg_count := l_msg_count - 1;
5727: debug('Error: ' || l_Error_Message);
5728: END LOOP;
5748: JTF_NOTES_PUB.CREATE_NOTE
5749: ( p_parent_note_id => NULL,
5750: p_api_version => 1,
5751: p_init_msg_list => NULL,
5752: p_commit => FND_API.G_FALSE,
5753: p_validation_level => fnd_api.g_valid_level_full,
5754: x_return_status => l_return_status,
5755: x_msg_count => l_msg_count,
5756: x_msg_data => l_msg_data,
5749: ( p_parent_note_id => NULL,
5750: p_api_version => 1,
5751: p_init_msg_list => NULL,
5752: p_commit => FND_API.G_FALSE,
5753: p_validation_level => fnd_api.g_valid_level_full,
5754: x_return_status => l_return_status,
5755: x_msg_count => l_msg_count,
5756: x_msg_data => l_msg_data,
5757: x_jtf_note_id => l_note_id,
5767: p_creation_date => SYSDATE,
5768: p_created_by => FND_GLOBAL.USER_ID
5769: );
5770:
5771: IF NOT(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5772: debug_out('Error occured while creating a note for the ' ||
5773: 'update record Instance: ' || l_instance_number);
5774: debug('Error occured while creating a note for the ' ||
5775: 'update record Instance: ' || l_instance_number);
5776: l_msg_index := 1;
5777: l_Error_Message := l_msg_data;
5778: WHILE l_msg_count > 0
5779: LOOP
5780: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
5781: l_msg_index := l_msg_index + 1;
5782: l_msg_count := l_msg_count - 1;
5783: debug('Error: ' || l_Error_Message);
5784: END LOOP;
5834: LOOP
5835: IF e_relationship_tbl.EXISTS(tab_row) THEN
5836: csi_ii_relationships_pub.expire_relationship(
5837: p_api_version => 1.0,
5838: p_commit => fnd_api.g_false,
5839: p_init_msg_list => fnd_api.g_true,
5840: p_validation_level => fnd_api.g_valid_level_full,
5841: p_relationship_rec => e_relationship_tbl(tab_row),
5842: p_txn_rec => p_csi_txn_rec,
5835: IF e_relationship_tbl.EXISTS(tab_row) THEN
5836: csi_ii_relationships_pub.expire_relationship(
5837: p_api_version => 1.0,
5838: p_commit => fnd_api.g_false,
5839: p_init_msg_list => fnd_api.g_true,
5840: p_validation_level => fnd_api.g_valid_level_full,
5841: p_relationship_rec => e_relationship_tbl(tab_row),
5842: p_txn_rec => p_csi_txn_rec,
5843: x_instance_id_lst => l_rel_instance_id_lst,
5836: csi_ii_relationships_pub.expire_relationship(
5837: p_api_version => 1.0,
5838: p_commit => fnd_api.g_false,
5839: p_init_msg_list => fnd_api.g_true,
5840: p_validation_level => fnd_api.g_valid_level_full,
5841: p_relationship_rec => e_relationship_tbl(tab_row),
5842: p_txn_rec => p_csi_txn_rec,
5843: x_instance_id_lst => l_rel_instance_id_lst,
5844: x_return_status => l_return_status,
5844: x_return_status => l_return_status,
5845: x_msg_count => l_msg_count,
5846: x_msg_data => l_msg_data);
5847:
5848: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS
5849: THEN
5850: debug_out('Expire relationship not successful for Instance: ' ||
5851: e_relationship_tbl(tab_row).subject_id ||
5852: '. Check request log for further details.');
5853: debug('Call to csi_ii_relationships_pub.expire_relationship falied.');
5854: l_msg_index := 1;
5855: l_Error_Message := l_Msg_Data;
5856: WHILE l_msg_count > 0 LOOP
5857: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
5858: l_msg_index := l_msg_index + 1;
5859: l_msg_count := l_msg_count - 1;
5860: debug('Error: ' || l_Error_Message);
5861: END LOOP;
5871: || c_relationship_tbl.count);
5872: IF(c_relationship_tbl.Count > 0) THEN
5873: csi_ii_relationships_pub.create_relationship(
5874: p_api_version => 1.0,
5875: p_commit => fnd_api.g_false,
5876: p_init_msg_list => fnd_api.g_true,
5877: p_validation_level => fnd_api.g_valid_level_full,
5878: p_relationship_tbl => c_relationship_tbl,
5879: p_txn_rec => p_csi_txn_rec,
5872: IF(c_relationship_tbl.Count > 0) THEN
5873: csi_ii_relationships_pub.create_relationship(
5874: p_api_version => 1.0,
5875: p_commit => fnd_api.g_false,
5876: p_init_msg_list => fnd_api.g_true,
5877: p_validation_level => fnd_api.g_valid_level_full,
5878: p_relationship_tbl => c_relationship_tbl,
5879: p_txn_rec => p_csi_txn_rec,
5880: x_return_status => l_return_status,
5873: csi_ii_relationships_pub.create_relationship(
5874: p_api_version => 1.0,
5875: p_commit => fnd_api.g_false,
5876: p_init_msg_list => fnd_api.g_true,
5877: p_validation_level => fnd_api.g_valid_level_full,
5878: p_relationship_tbl => c_relationship_tbl,
5879: p_txn_rec => p_csi_txn_rec,
5880: x_return_status => l_return_status,
5881: x_msg_count => l_msg_count,
5880: x_return_status => l_return_status,
5881: x_msg_count => l_msg_count,
5882: x_msg_data => l_msg_data);
5883:
5884: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS
5885: THEN
5886: debug_out('Error occured while creating new relationships, please check the request log for detailed error');
5887: debug('Call to csi_ii_relationships_pub.create_relationship not successful');
5888: l_msg_index := 1;
5887: debug('Call to csi_ii_relationships_pub.create_relationship not successful');
5888: l_msg_index := 1;
5889: l_Error_Message := l_Msg_Data;
5890: WHILE l_msg_count > 0 LOOP
5891: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
5892: l_msg_index := l_msg_index + 1;
5893: l_msg_count := l_msg_count - 1;
5894: debug('Error: ' || l_Error_Message);
5895: END LOOP;
5919: l_quantity2 := l_splitqty;
5920:
5921: csi_item_instance_pvt.split_item_instance (
5922: p_api_version => 1.0,
5923: p_commit => fnd_api.g_false,
5924: p_init_msg_list => fnd_api.g_true,
5925: p_validation_level => fnd_api.g_valid_level_full,
5926: p_source_instance_rec => l_instance_split_tbl(inst_tab_row),
5927: p_quantity1 => l_quantity1,
5920:
5921: csi_item_instance_pvt.split_item_instance (
5922: p_api_version => 1.0,
5923: p_commit => fnd_api.g_false,
5924: p_init_msg_list => fnd_api.g_true,
5925: p_validation_level => fnd_api.g_valid_level_full,
5926: p_source_instance_rec => l_instance_split_tbl(inst_tab_row),
5927: p_quantity1 => l_quantity1,
5928: p_quantity2 => l_quantity2,
5921: csi_item_instance_pvt.split_item_instance (
5922: p_api_version => 1.0,
5923: p_commit => fnd_api.g_false,
5924: p_init_msg_list => fnd_api.g_true,
5925: p_validation_level => fnd_api.g_valid_level_full,
5926: p_source_instance_rec => l_instance_split_tbl(inst_tab_row),
5927: p_quantity1 => l_quantity1,
5928: p_quantity2 => l_quantity2,
5929: p_copy_ext_attribs => fnd_api.g_true,
5925: p_validation_level => fnd_api.g_valid_level_full,
5926: p_source_instance_rec => l_instance_split_tbl(inst_tab_row),
5927: p_quantity1 => l_quantity1,
5928: p_quantity2 => l_quantity2,
5929: p_copy_ext_attribs => fnd_api.g_true,
5930: p_copy_org_assignments => fnd_api.g_true,
5931: p_copy_parties => fnd_api.g_true,
5932: p_copy_accounts => fnd_api.g_true,
5933: p_copy_asset_assignments => fnd_api.g_true,
5926: p_source_instance_rec => l_instance_split_tbl(inst_tab_row),
5927: p_quantity1 => l_quantity1,
5928: p_quantity2 => l_quantity2,
5929: p_copy_ext_attribs => fnd_api.g_true,
5930: p_copy_org_assignments => fnd_api.g_true,
5931: p_copy_parties => fnd_api.g_true,
5932: p_copy_accounts => fnd_api.g_true,
5933: p_copy_asset_assignments => fnd_api.g_true,
5934: p_copy_pricing_attribs => fnd_api.g_true,
5927: p_quantity1 => l_quantity1,
5928: p_quantity2 => l_quantity2,
5929: p_copy_ext_attribs => fnd_api.g_true,
5930: p_copy_org_assignments => fnd_api.g_true,
5931: p_copy_parties => fnd_api.g_true,
5932: p_copy_accounts => fnd_api.g_true,
5933: p_copy_asset_assignments => fnd_api.g_true,
5934: p_copy_pricing_attribs => fnd_api.g_true,
5935: p_txn_rec => p_csi_txn_rec,
5928: p_quantity2 => l_quantity2,
5929: p_copy_ext_attribs => fnd_api.g_true,
5930: p_copy_org_assignments => fnd_api.g_true,
5931: p_copy_parties => fnd_api.g_true,
5932: p_copy_accounts => fnd_api.g_true,
5933: p_copy_asset_assignments => fnd_api.g_true,
5934: p_copy_pricing_attribs => fnd_api.g_true,
5935: p_txn_rec => p_csi_txn_rec,
5936: x_new_instance_rec => l_split_new_inst_rec,
5929: p_copy_ext_attribs => fnd_api.g_true,
5930: p_copy_org_assignments => fnd_api.g_true,
5931: p_copy_parties => fnd_api.g_true,
5932: p_copy_accounts => fnd_api.g_true,
5933: p_copy_asset_assignments => fnd_api.g_true,
5934: p_copy_pricing_attribs => fnd_api.g_true,
5935: p_txn_rec => p_csi_txn_rec,
5936: x_new_instance_rec => l_split_new_inst_rec,
5937: x_return_status => l_return_status,
5930: p_copy_org_assignments => fnd_api.g_true,
5931: p_copy_parties => fnd_api.g_true,
5932: p_copy_accounts => fnd_api.g_true,
5933: p_copy_asset_assignments => fnd_api.g_true,
5934: p_copy_pricing_attribs => fnd_api.g_true,
5935: p_txn_rec => p_csi_txn_rec,
5936: x_new_instance_rec => l_split_new_inst_rec,
5937: x_return_status => l_return_status,
5938: x_msg_count => l_msg_count,
5937: x_return_status => l_return_status,
5938: x_msg_count => l_msg_count,
5939: x_msg_data => l_msg_data);
5940:
5941: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS
5942: THEN
5943: debug_out('Error Occured while splitting the Instance ' ||
5944: l_split_inst_num_tbl(inst_tab_row) ||
5945: '. Check request log for further details.');
5947: l_split_inst_num_tbl(inst_tab_row) );
5948: l_msg_index := 1;
5949: l_Error_Message := l_Msg_Data;
5950: WHILE l_msg_count > 0 LOOP
5951: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
5952: l_msg_index := l_msg_index + 1;
5953: l_msg_count := l_msg_count - 1;
5954: debug('Error: ' || l_Error_Message);
5955: END LOOP;
5978: x_msg_count => l_msg_count,
5979: x_msg_data => l_msg_data
5980: );
5981:
5982: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS
5983: THEN
5984: debug('Error Occured in call to OKS_IBINT_PUB.create_k_covered_levels_webadi ' ||
5985: 'for the Instance: ' || l_oks_inst_num_tbl(tab_row));
5986: debug('Error: ' || l_msg_data);
6003: LOOP
6004: IF c_pricing_attribs_tbl.EXISTS(tab_row) THEN
6005: csi_pricing_attribs_pvt.create_pricing_attribs(
6006: p_api_version => 1.0,
6007: p_commit => fnd_api.g_false,
6008: p_init_msg_list => fnd_api.g_true,
6009: p_validation_level => fnd_api.g_valid_level_full,
6010: p_pricing_attribs_rec => c_pricing_attribs_tbl(tab_row),
6011: p_txn_rec => p_csi_txn_rec,
6004: IF c_pricing_attribs_tbl.EXISTS(tab_row) THEN
6005: csi_pricing_attribs_pvt.create_pricing_attribs(
6006: p_api_version => 1.0,
6007: p_commit => fnd_api.g_false,
6008: p_init_msg_list => fnd_api.g_true,
6009: p_validation_level => fnd_api.g_valid_level_full,
6010: p_pricing_attribs_rec => c_pricing_attribs_tbl(tab_row),
6011: p_txn_rec => p_csi_txn_rec,
6012: x_return_status => l_return_status,
6005: csi_pricing_attribs_pvt.create_pricing_attribs(
6006: p_api_version => 1.0,
6007: p_commit => fnd_api.g_false,
6008: p_init_msg_list => fnd_api.g_true,
6009: p_validation_level => fnd_api.g_valid_level_full,
6010: p_pricing_attribs_rec => c_pricing_attribs_tbl(tab_row),
6011: p_txn_rec => p_csi_txn_rec,
6012: x_return_status => l_return_status,
6013: x_msg_count => l_msg_count,
6012: x_return_status => l_return_status,
6013: x_msg_count => l_msg_count,
6014: x_msg_data => l_msg_data);
6015: l_instance_number := null;
6016: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS
6017: THEN
6018: BEGIN
6019: SELECT instance_number
6020: INTO l_instance_number
6031: debug('Error: ');
6032: l_msg_index := 1;
6033: l_Error_Message := l_msg_data;
6034: WHILE l_msg_count > 0 LOOP
6035: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
6036: l_msg_index := l_msg_index + 1;
6037: l_msg_count := l_msg_count - 1;
6038: debug('Error: ' || l_Error_Message);
6039: END LOOP;
6051: LOOP
6052: IF u_pricing_attribs_tbl.EXISTS(tab_row) THEN
6053: csi_pricing_attribs_pvt.update_pricing_attribs(
6054: p_api_version => 1.0,
6055: p_commit => fnd_api.g_false,
6056: p_init_msg_list => fnd_api.g_true,
6057: p_validation_level => fnd_api.g_valid_level_full,
6058: p_pricing_attribs_rec => u_pricing_attribs_tbl(tab_row),
6059: p_txn_rec => p_csi_txn_rec,
6052: IF u_pricing_attribs_tbl.EXISTS(tab_row) THEN
6053: csi_pricing_attribs_pvt.update_pricing_attribs(
6054: p_api_version => 1.0,
6055: p_commit => fnd_api.g_false,
6056: p_init_msg_list => fnd_api.g_true,
6057: p_validation_level => fnd_api.g_valid_level_full,
6058: p_pricing_attribs_rec => u_pricing_attribs_tbl(tab_row),
6059: p_txn_rec => p_csi_txn_rec,
6060: x_return_status => l_return_status,
6053: csi_pricing_attribs_pvt.update_pricing_attribs(
6054: p_api_version => 1.0,
6055: p_commit => fnd_api.g_false,
6056: p_init_msg_list => fnd_api.g_true,
6057: p_validation_level => fnd_api.g_valid_level_full,
6058: p_pricing_attribs_rec => u_pricing_attribs_tbl(tab_row),
6059: p_txn_rec => p_csi_txn_rec,
6060: x_return_status => l_return_status,
6061: x_msg_count => l_msg_count,
6060: x_return_status => l_return_status,
6061: x_msg_count => l_msg_count,
6062: x_msg_data => l_msg_data);
6063: l_instance_number := null;
6064: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS
6065: THEN
6066: BEGIN
6067: SELECT instance_number
6068: INTO l_instance_number
6078: l_instance_number);
6079: l_msg_index := 1;
6080: l_Error_Message := l_msg_data;
6081: WHILE l_msg_count > 0 LOOP
6082: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
6083: l_msg_index := l_msg_index + 1;
6084: l_msg_count := l_msg_count - 1;
6085: debug('Error: ' || l_Error_Message);
6086: END LOOP;
6115: l_txn_pty_acct_detail_tbl csi_t_datastructures_grp.txn_pty_acct_detail_tbl;
6116: l_txn_ext_attrib_vals_tbl csi_t_datastructures_grp.txn_ext_attrib_vals_tbl;
6117: l_mass_edit_error_tbl csi_mass_edit_pub.mass_edit_error_tbl;
6118:
6119: l_return_status varchar2(1) := fnd_api.g_ret_sts_success;
6120: l_msg_count number;
6121: l_msg_data varchar2(2000);
6122: l_msg_index NUMBER;
6123: l_error_message VARCHAR2(2000);
6147:
6148: debug('Calling API csi_mass_edit_pub.CREATE_MASS_EDIT_BATCH.');
6149: csi_mass_edit_pub.CREATE_MASS_EDIT_BATCH
6150: (p_api_version => 1.0,
6151: p_commit => fnd_api.g_false,
6152: p_init_msg_list => fnd_api.g_true,
6153: p_validation_level => fnd_api.g_valid_level_full,
6154: px_mass_edit_rec => l_mass_edit_rec,
6155: px_txn_line_rec => l_txn_line_rec,
6148: debug('Calling API csi_mass_edit_pub.CREATE_MASS_EDIT_BATCH.');
6149: csi_mass_edit_pub.CREATE_MASS_EDIT_BATCH
6150: (p_api_version => 1.0,
6151: p_commit => fnd_api.g_false,
6152: p_init_msg_list => fnd_api.g_true,
6153: p_validation_level => fnd_api.g_valid_level_full,
6154: px_mass_edit_rec => l_mass_edit_rec,
6155: px_txn_line_rec => l_txn_line_rec,
6156: px_mass_edit_inst_tbl => l_mass_edit_inst_tbl,
6149: csi_mass_edit_pub.CREATE_MASS_EDIT_BATCH
6150: (p_api_version => 1.0,
6151: p_commit => fnd_api.g_false,
6152: p_init_msg_list => fnd_api.g_true,
6153: p_validation_level => fnd_api.g_valid_level_full,
6154: px_mass_edit_rec => l_mass_edit_rec,
6155: px_txn_line_rec => l_txn_line_rec,
6156: px_mass_edit_inst_tbl => l_mass_edit_inst_tbl,
6157: px_txn_line_detail_rec => l_txn_line_detail_rec,
6162: x_return_status => l_return_status,
6163: x_msg_count => l_msg_count,
6164: x_msg_data => l_msg_data);
6165:
6166: IF NOT l_return_status = FND_API.G_RET_STS_SUCCESS
6167: THEN
6168: debug_out('Error occured while creating new batch for re-upload, please check ' ||
6169: 'the request log for detailed error.');
6170: debug('Call to CREATE_MASS_EDIT_BATCH for new re-upload batch not successful');
6170: debug('Call to CREATE_MASS_EDIT_BATCH for new re-upload batch not successful');
6171: l_msg_index := 1;
6172: l_Error_Message := l_Msg_Data;
6173: WHILE l_msg_count > 0 LOOP
6174: l_Error_Message := FND_MSG_PUB.GET(l_msg_index, FND_API.G_FALSE);
6175: l_msg_index := l_msg_index + 1;
6176: l_msg_count := l_msg_count - 1;
6177: debug('Error: ' || l_Error_Message);
6178: END LOOP;
6438: WHERE okch.sts_code = sts.code
6439: AND okch.scs_code IN ('SERVICE','WARRANTY') AND sts.ste_code = 'ENTERED'
6440: AND okch.id = k_party.chr_id AND k_party.jtot_object1_code IN ('OKX_PARTY')
6441: AND contract_number = cws.ASSOCIATE_CONTRACT_NUMBER
6442: AND Nvl(contract_number_modifier, fnd_api.g_miss_char)
6443: = Nvl(cws.ASSOCIATE_CONTRACT_MODIFIER, fnd_api.g_miss_char)
6444: AND EXISTS (SELECT 1 FROM HZ_CUST_ACCOUNTS CA1
6445: WHERE CA1.party_id = k_party.object1_id1 AND CA1.status = 'A'
6446: AND CA1.account_number = cws.OWNER_ACCOUNT_NUMBER
6439: AND okch.scs_code IN ('SERVICE','WARRANTY') AND sts.ste_code = 'ENTERED'
6440: AND okch.id = k_party.chr_id AND k_party.jtot_object1_code IN ('OKX_PARTY')
6441: AND contract_number = cws.ASSOCIATE_CONTRACT_NUMBER
6442: AND Nvl(contract_number_modifier, fnd_api.g_miss_char)
6443: = Nvl(cws.ASSOCIATE_CONTRACT_MODIFIER, fnd_api.g_miss_char)
6444: AND EXISTS (SELECT 1 FROM HZ_CUST_ACCOUNTS CA1
6445: WHERE CA1.party_id = k_party.object1_id1 AND CA1.status = 'A'
6446: AND CA1.account_number = cws.OWNER_ACCOUNT_NUMBER
6447: UNION ALL
6475: AND mtl.organization_id = oki.object1_id2
6476: AND oki.jtot_object1_code = 'OKX_SERVICE'
6477: AND okl.chr_id = okh.id AND okl.lse_id IN (1,19)
6478: AND okh.contract_number= cws.ASSOCIATE_CONTRACT_NUMBER
6479: AND nvl(okh.contract_number_modifier, fnd_api.g_miss_char)
6480: = nvl(cws.ASSOCIATE_CONTRACT_MODIFIER, fnd_api.g_miss_char)
6481: AND okl.line_number = cws.ASSOCIATE_SERVICE_LINE
6482: )
6483: WHERE cws.batch_id = p_Entry_id;
6476: AND oki.jtot_object1_code = 'OKX_SERVICE'
6477: AND okl.chr_id = okh.id AND okl.lse_id IN (1,19)
6478: AND okh.contract_number= cws.ASSOCIATE_CONTRACT_NUMBER
6479: AND nvl(okh.contract_number_modifier, fnd_api.g_miss_char)
6480: = nvl(cws.ASSOCIATE_CONTRACT_MODIFIER, fnd_api.g_miss_char)
6481: AND okl.line_number = cws.ASSOCIATE_SERVICE_LINE
6482: )
6483: WHERE cws.batch_id = p_Entry_id;
6484: debug('Populated ASSOCIATE_SERVICE_LINE_ID column');