[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: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
970: AMS_Utility_PVT.Create_Log (
971: x_return_status => l_return_status,
972: p_arc_log_used_by => G_ARC_IMPORT_HEADER,
1012: if i_batch_size < 1 then
1013:
1014: --TCA mandate: bug 4587049
1015: --Enable/restore TCA events status
1016: --g_prof := fnd_profile.value('HZ_EXECUTE_API_CALLOUTS');
1017: AMS_Utility_PVT.Create_Log (
1018: x_return_status => l_return_status,
1019: p_arc_log_used_by => G_ARC_IMPORT_HEADER,
1020: p_log_used_by_id => p_import_list_header_id,
1021: p_msg_data => 'Restoring g_prof HZ_EXECUTE_API_CALLOUTS: '|| g_prof,
1022: p_msg_type => 'DEBUG');
1023:
1024: if g_prof <> 'N' then
1025: fnd_profile.put('HZ_EXECUTE_API_CALLOUTS',g_prof);
1026: end if;
1027:
1028: update_cust_import_status(p_import_list_header_id);
1029: end if;
1094: p_msg_type => 'DEBUG');
1095:
1096: --TCA mandate: bug 4587049
1097: --Disable TCA events just before starting list import child to process TCA data
1098: --g_prof := fnd_profile.value('HZ_EXECUTE_API_CALLOUTS');
1099: AMS_Utility_PVT.Create_Log (
1100: x_return_status => l_return_status,
1101: p_arc_log_used_by => G_ARC_IMPORT_HEADER,
1102: p_log_used_by_id => p_import_list_header_id,
1103: p_msg_data => 'Disabling g_prof HZ_EXECUTE_API_CALLOUTS: '|| g_prof,
1104: p_msg_type => 'DEBUG');
1105:
1106: if g_prof <> 'N' then
1107: fnd_profile.put('HZ_EXECUTE_API_CALLOUTS','N');
1108: end if;
1109:
1110: FOR loop_counter IN 1..l_numb_of_inst LOOP
1111: new_request_id := FND_REQUEST.SUBMIT_REQUEST (
2327: -- in the API. We will use the short name for both program and program short name.
2328: --
2329: l_short_name := 'AMS' || FND_GLOBAL.LOGIN_ID || 'IMP' || p_import_list_header_id;
2330: x_import_list_header_id := p_import_list_header_id;
2331: x_hz_dup_check := fnd_profile.value('AMS_HZ_DEDUPE_RULE');
2332: if x_hz_dup_check <> 'Y' then
2333: x_hz_dup_check := 'N';
2334: end if;
2335:
3616: cursor c_imptype is
3617: select import_type from ams_imp_list_headers_all where import_list_header_id = p_import_list_header_id;
3618:
3619: BEGIN
3620: -- x_prof_file_size := fnd_profile.value('AMS_IMP_CLIENT_FILE_SIZE');
3621: open c_prof_file_size;
3622: fetch c_prof_file_size into x_client_file_size,x_file_type;
3623: close c_prof_file_size;
3624: open c_imptype;
4921:
4922:
4923: begin
4924:
4925: x_gen_party_site_number := fnd_profile.value('HZ_GENERATE_PARTY_SITE_NUMBER');
4926: x_hz_dup_check := fnd_profile.value('AMS_HZ_DEDUPE_RULE');
4927: if x_hz_dup_check <> 'Y' then
4928: x_hz_dup_check := 'N';
4929: end if;
4922:
4923: begin
4924:
4925: x_gen_party_site_number := fnd_profile.value('HZ_GENERATE_PARTY_SITE_NUMBER');
4926: x_hz_dup_check := fnd_profile.value('AMS_HZ_DEDUPE_RULE');
4927: if x_hz_dup_check <> 'Y' then
4928: x_hz_dup_check := 'N';
4929: end if;
4930: -- Checks if it's B2B or B2C party type.
7742:
7743: begin
7744: FND_MESSAGE.set_name('AMS', 'AMS_IMP_FLD_DATE_VAL_ERROR_CHK');
7745: l_invalid_date := FND_MESSAGE.get;
7746: x_date_format := fnd_profile.value('ICX_DATE_FORMAT_MASK');
7747: open c_file_type;
7748: fetch c_file_type into l_file_type;
7749: close c_file_type;
7750:
13570: x_gen_party_site_number VARCHAR2(1);
13571: psite_rec hz_party_site_v2pub.party_site_rec_type := p_psite_rec;
13572:
13573: begin
13574: x_gen_party_site_number := fnd_profile.value('HZ_GENERATE_PARTY_SITE_NUMBER');
13575: x_party_site_number := null;
13576: select hz_party_sites_s.nextval into x_party_site_id from dual;
13577: if x_gen_party_site_number = 'N' then
13578: select hz_party_site_number_s.nextval into x_party_site_number from dual;
13737: AND hd.import_list_header_id = p_import_list_header_id;
13738:
13739: begin
13740: x_import_list_header_id := p_import_list_header_id;
13741: x_hz_dup_check := fnd_profile.value('AMS_HZ_DEDUPE_RULE');
13742: if x_hz_dup_check <> 'Y' then
13743: x_hz_dup_check := 'N';
13744: end if;
13745: