Sales Api Is not working After Intializing(Please help it's urgent)

Question

Hi all,
When i am executing an sales api to create lead in sql+ it s executing fine,but when i am executing the same api after intializing in SQL+ or in concurrent request,it is troughing an error like
AS_SALES_MEMBER_PVT Using Fn....
Please help Me and also look into the code...
DECLARE
q_sales_lead_id NUMBER (8);
q_sales_lead_line_out_tb VARCHAR2 (300);
q_sales_lead_cnt_out_tbl VARCHAR2 (500);
q_return_status VARCHAR2 (10);
q_msg_count NUMBER (10);
q_msg_data VARCHAR2 (800);
a_return_status VARCHAR2 (10);
a_msg_count NUMBER (10);
a_msg_data VARCHAR2 (800);
q_noteid NUMBER (4);
x_sales_lead_line_out_tbl as_sales_leads_pub.sales_lead_line_out_tbl_type;
x_sales_lead_cnt_out_tbl as_sales_leads_pub.sales_lead_cnt_out_tbl_type;
l_sales_lead_rec as_sales_leads_pub.sales_lead_rec_type;
l_sales_lead_line_tb1 as_sales_leads_pub.sales_lead_line_tbl_type;
v_party_id NUMBER (10);
v_resource_id NUMBER (10);
v_group_id NUMBER (10);
v_person_id NUMBER (10);
v_org_id NUMBER (10);
v_customer_id NUMBER (10);
v_primary_application VARCHAR2 (150);
v_secondary_application VARCHAR2 (150);
v_lead_provider_type VARCHAR2 (150);
v_nomenclature_final VARCHAR2 (150);
v_segment VARCHAR2 (150);
v_nomenclature VARCHAR2 (150);
v_nomenclature_1 VARCHAR2 (150);
v_segment_1 VARCHAR2 (150);
v_fleet_mix VARCHAR2 (150);
v_category_set_id NUMBER (10);
v_category_id NUMBER (10);
e_msg VARCHAR2 (500);
v_party_name VARCHAR2(150);
out_param VARCHAR2(150);
CURSOR c1 IS
SELECT a.*, ROWID
FROM al_vendor_sms_crmlead_in a
WHERE a.msg_flag = 'N' AND a.customer_code IS NOT NULL
AND a.models IS NOT NULL
AND a.fleet_mix IS NOT NULL
AND a.segments IS NOT NULL
AND a.lead_provider IS NOT NULL
AND a.secondary_app IS NOT NULL
AND a.cp_mobile_no IS NOT NULL
AND a.id='L';
BEGIN
For i in c1 LOOP
BEGIN
out_param :='phone validation';
SELECT ppf.party_id
INTO v_party_id
FROM per_phones pp, per_all_people_f ppf
WHERE ppf.person_id = pp.parent_id
AND pp.phone_type = 'M'
AND pp.phone_number = i.cp_mobile_no
               and rownum<=1;
out_param:='Resource_invalid';
SELECT jtf.resource_id, jtm.GROUP_ID, jtf.source_business_grp_id,
jtf.source_id
INTO v_resource_id, v_group_id, v_org_id,
v_person_id
FROM apps.jtf_rs_resource_extns jtf, apps.jtf_rs_group_members jtm
WHERE jtf.resource_id = jtm.resource_id
AND jtf.end_date_active IS NULL
AND jtm.delete_flag = 'N'
AND jtf.user_name NOT LIKE 'ALM%'
--AND jtf.attribute5='Sales'
AND jtf.person_party_id = v_party_id
AND ROWNUM <= 1;
out_param:='Party_invalid';
SELECT party_id,party_name
INTO v_customer_id,v_party_name
FROM apps.hz_parties
WHERE status = 'A' AND party_number = i.customer_code;
out_param:='Sec_prim_application_invalid';
SELECT parent_flex_value_low, flex_value
INTO v_primary_application, v_secondary_application
FROM apps.fnd_flex_values_vl
WHERE parent_flex_value_low IN (
SELECT flex_value
FROM apps.fnd_flex_values_vl
WHERE flex_value_set_id = 1009667
AND enabled_flag = 'Y')
AND enabled_flag = 'Y'
AND TO_NUMBER (TRUNC (SUBSTR (attribute1, 1, 2))) =
i.secondary_app ;
out_param:='Segment_map_invalid';
SELECT Upper(REPLACE (regexp_replace (i.models, '(\s*[[:punct:]])'), ' '))
INTO v_nomenclature
FROM DUAL;
SELECT flex_value
INTO v_nomenclature_final
FROM apps.fnd_flex_values_vl
WHERE flex_value_set_id = 1009798
AND enabled_flag = 'Y'
AND end_date_active IS NULL
AND REPLACE (regexp_replace (flex_value, '(\s*[[:punct:]])'), ' ') =
v_nomenclature
AND ROWNUM <= 1;
SELECT flex_value
INTO v_segment
FROM apps.fnd_flex_values_vl
WHERE flex_value_set_id = 1009632
AND enabled_flag = 'Y'
AND end_date_active IS NULL
AND TO_NUMBER (TRUNC (SUBSTR (flex_value, 1, 2))) = i.SEGMENTS;
SELECT ffvh.flex_value, ffv.flex_value
INTO v_nomenclature_1, v_segment_1
FROM apps.fnd_flex_values_vl ffvh, apps.fnd_flex_values_vl ffv
WHERE ffv.flex_value = ffvh.parent_flex_value_low
AND ffvh.enabled_flag = 'Y'
AND ffv.flex_value_set_id = 1009632
AND ffv.enabled_flag = 'Y'
AND ffvh.flex_value_set_id = 1009798
AND ffvh.parent_flex_value_low = v_segment
AND ffvh.flex_value = v_nomenclature_final;
out_param:='Lead_provider_invalid';
SELECT flex_value
INTO v_lead_provider_type
FROM apps.fnd_flex_values_vl
WHERE flex_value_set_id = 1009718
AND end_date_active IS NULL
AND TO_NUMBER (TRUNC (SUBSTR (flex_value, 1, 2))) =
i.lead_provider;
out_param:='vehicle_res_invalid';
SELECT lookup_code
INTO v_fleet_mix
FROM apps.fnd_lookup_values_vl
WHERE lookup_type = 'VEHICLE_RESPONSE_CODE'
AND enabled_flag = 'Y'
AND TO_NUMBER (TRUNC (SUBSTR (description, 1, 2))) = i.fleet_mix;
out_param:='Category_invalid';
SELECT mic.category_set_id, mic.category_id
INTO v_category_set_id, v_category_id
FROM apps.mtl_item_categories mic, apps.mtl_categories_tl mc
WHERE mic.category_id = mc.category_id
AND organization_id = 106
AND description = v_nomenclature_final
AND ROWNUM <= 1;
out_param:='api-Error';
l_sales_lead_rec.customer_id := v_customer_id;
l_sales_lead_rec.status_code := 'NEW';
l_sales_lead_rec.attribute15 := v_segment_1;
l_sales_lead_rec.attribute12:=To_Char( i.expected_closedate,'YYYY/MM/DD HH24:MI:SS');
l_sales_lead_rec.attribute10 := v_lead_provider_type;
l_sales_lead_rec.attribute9 := v_secondary_application;
l_sales_lead_rec.attribute8 := v_primary_application;
l_sales_lead_rec.assign_to_salesforce_id := v_resource_id;
l_sales_lead_rec.assign_sales_group_id := v_group_id;
l_sales_lead_rec.assign_to_person_id := v_person_id;
l_sales_lead_rec.vehicle_response_code := v_fleet_mix;
l_sales_lead_rec.description:=v_party_name||' '||v_nomenclature;
l_sales_lead_line_tb1 (1).category_id := v_category_id;
l_sales_lead_line_tb1 (1).category_set_id := v_category_set_id;
l_sales_lead_line_tb1 (1).organization_id := v_org_id;
l_sales_lead_line_tb1 (1).quantity:=1;
as_sales_leads_pub.create_sales_lead
(p_api_version_number => 2.0,
p_init_msg_list => fnd_api.g_false,
p_commit => fnd_api.g_true,
p_validation_level => fnd_api.g_valid_level_full,
p_check_access_flag => 'Y',
p_admin_flag => 'Y',
p_admin_group_id => v_group_id,
p_identity_salesforce_id => v_resource_id,
p_sales_lead_profile_tbl => as_utility_pub.g_miss_profile_tbl,
p_sales_lead_rec => l_sales_lead_rec,
p_sales_lead_line_tbl => l_sales_lead_line_tb1,
p_sales_lead_contact_tbl => as_sales_leads_pub.g_miss_sales_lead_contact_tbl,
x_sales_lead_id => q_sales_lead_id,
x_sales_lead_line_out_tbl => x_sales_lead_line_out_tbl,
x_sales_lead_cnt_out_tbl => x_sales_lead_cnt_out_tbl,
x_return_status => q_return_status,
x_msg_count => q_msg_count,
x_msg_data => q_msg_data);
as_sales_leads_pub.Build_Lead_Sales_Team (
P_Api_Version_Number =>2.0,
P_Init_Msg_List=>FND_API.G_TRUE,
p_Commit=>FND_API.G_TRUE,
p_Validation_Level=> FND_API.G_VALID_LEVEL_FULL,
P_Admin_Group_Id =>v_group_id,
P_identity_salesforce_id=>v_resource_id,
P_salesgroup_id=> v_group_id,
P_Sales_Lead_Id=>q_sales_lead_id,
X_Return_Status=>q_return_status,
X_Msg_Count=>a_msg_count,
X_Msg_Data =>a_msg_data);
IF q_return_status = 'S'
THEN
UPDATE al_vendor_sms_crmlead_in
SET conv_status = 'S'
WHERE unique_identifier = i.unique_identifier AND ROWID = i.ROWID;
ELSE
UPDATE al_vendor_sms_crmlead_in
SET conv_status = 'E' WHERE unique_identifier = i.unique_identifier AND ROWID = i.ROWID;
END IF;
EXCEPTION
WHEN No_Data_Found THEN
UPDATE al_vendor_sms_crmlead_in a
SET a.conv_status = 'ERROR',error_description=out_param
WHERE unique_identifier = i.unique_identifier AND ROWID = i.ROWID;
COMMIT;
END;
UPDATE al_vendor_sms_crmlead_in SET msg_flag='Y' WHERE unique_identifier = i.unique_identifier AND ROWID = i.ROWID;
END LOOP;
END;

Answer 1

Please post this question in the CRM On Demand Integration Development forum.