[Home] [Help]
49: -- 19-Mar-2001 usingh Created.
50: -- ---------------------------------------------------------
51: G_ARC_IMPORT_HEADER CONSTANT VARCHAR2(30) := 'IMPH';
52: g_pkg_name CONSTANT VARCHAR2(30):='AMS_LISTIMPORT_PVT';
53: g_prof VARCHAR2(50) := fnd_profile.value('HZ_EXECUTE_API_CALLOUTS');
54: --
55: -- This program processes the xml data.
56: --
57: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
964: open party_mapped;
965: fetch party_mapped into G_PARTY_MAPPED;
966: close party_mapped;
967:
968: FND_PROFILE.Get('CONC_REQUEST_ID', l_request_id);
969: AMS_Utility_PVT.Create_Log (
970: x_return_status => l_return_status,
971: p_arc_log_used_by => G_ARC_IMPORT_HEADER,
972: p_log_used_by_id => p_import_list_header_id,
1011: if i_batch_size < 1 then
1012:
1013: --TCA mandate: bug 4587049
1014: --Enable/restore TCA events status
1015: --g_prof := fnd_profile.value('HZ_EXECUTE_API_CALLOUTS');
1016: AMS_Utility_PVT.Create_Log (
1017: x_return_status => l_return_status,
1018: p_arc_log_used_by => G_ARC_IMPORT_HEADER,
1019: p_log_used_by_id => p_import_list_header_id,
1020: p_msg_data => 'Restoring g_prof HZ_EXECUTE_API_CALLOUTS: '|| g_prof,
1021: p_msg_type => 'DEBUG');
1022:
1023: if g_prof <> 'N' then
1024: fnd_profile.put('HZ_EXECUTE_API_CALLOUTS',g_prof);
1025: end if;
1026:
1027: update_cust_import_status(p_import_list_header_id);
1028: end if;
1093: p_msg_type => 'DEBUG');
1094:
1095: --TCA mandate: bug 4587049
1096: --Disable TCA events just before starting list import child to process TCA data
1097: --g_prof := fnd_profile.value('HZ_EXECUTE_API_CALLOUTS');
1098: AMS_Utility_PVT.Create_Log (
1099: x_return_status => l_return_status,
1100: p_arc_log_used_by => G_ARC_IMPORT_HEADER,
1101: p_log_used_by_id => p_import_list_header_id,
1102: p_msg_data => 'Disabling g_prof HZ_EXECUTE_API_CALLOUTS: '|| g_prof,
1103: p_msg_type => 'DEBUG');
1104:
1105: if g_prof <> 'N' then
1106: fnd_profile.put('HZ_EXECUTE_API_CALLOUTS','N');
1107: end if;
1108:
1109: FOR loop_counter IN 1..l_numb_of_inst LOOP
1110: new_request_id := FND_REQUEST.SUBMIT_REQUEST (
2326: -- in the API. We will use the short name for both program and program short name.
2327: --
2328: l_short_name := 'AMS' || FND_GLOBAL.LOGIN_ID || 'IMP' || p_import_list_header_id;
2329: x_import_list_header_id := p_import_list_header_id;
2330: x_hz_dup_check := fnd_profile.value('AMS_HZ_DEDUPE_RULE');
2331: if x_hz_dup_check <> 'Y' then
2332: x_hz_dup_check := 'N';
2333: end if;
2334:
3615: cursor c_imptype is
3616: select import_type from ams_imp_list_headers_all where import_list_header_id = p_import_list_header_id;
3617:
3618: BEGIN
3619: -- x_prof_file_size := fnd_profile.value('AMS_IMP_CLIENT_FILE_SIZE');
3620: open c_prof_file_size;
3621: fetch c_prof_file_size into x_client_file_size,x_file_type;
3622: close c_prof_file_size;
3623: open c_imptype;
4920:
4921:
4922: begin
4923:
4924: x_gen_party_site_number := fnd_profile.value('HZ_GENERATE_PARTY_SITE_NUMBER');
4925: x_hz_dup_check := fnd_profile.value('AMS_HZ_DEDUPE_RULE');
4926: if x_hz_dup_check <> 'Y' then
4927: x_hz_dup_check := 'N';
4928: end if;
4921:
4922: begin
4923:
4924: x_gen_party_site_number := fnd_profile.value('HZ_GENERATE_PARTY_SITE_NUMBER');
4925: x_hz_dup_check := fnd_profile.value('AMS_HZ_DEDUPE_RULE');
4926: if x_hz_dup_check <> 'Y' then
4927: x_hz_dup_check := 'N';
4928: end if;
4929: -- Checks if it's B2B or B2C party type.
7741:
7742: begin
7743: FND_MESSAGE.set_name('AMS', 'AMS_IMP_FLD_DATE_VAL_ERROR_CHK');
7744: l_invalid_date := FND_MESSAGE.get;
7745: x_date_format := fnd_profile.value('ICX_DATE_FORMAT_MASK');
7746: open c_file_type;
7747: fetch c_file_type into l_file_type;
7748: close c_file_type;
7749:
13569: x_gen_party_site_number VARCHAR2(1);
13570: psite_rec hz_party_site_v2pub.party_site_rec_type := p_psite_rec;
13571:
13572: begin
13573: x_gen_party_site_number := fnd_profile.value('HZ_GENERATE_PARTY_SITE_NUMBER');
13574: x_party_site_number := null;
13575: select hz_party_sites_s.nextval into x_party_site_id from dual;
13576: if x_gen_party_site_number = 'N' then
13577: select hz_party_site_number_s.nextval into x_party_site_number from dual;
13736: AND hd.import_list_header_id = p_import_list_header_id;
13737:
13738: begin
13739: x_import_list_header_id := p_import_list_header_id;
13740: x_hz_dup_check := fnd_profile.value('AMS_HZ_DEDUPE_RULE');
13741: if x_hz_dup_check <> 'Y' then
13742: x_hz_dup_check := 'N';
13743: end if;
13744: