In Apps 10
Trying to create a custom menu on a business lead that searches for an address. If no address throw an error if an address exists then continue with conversion. Here is the code:
DECLARE
lead_id_ varchar2(100) := &LEAD_ID;
found_ number := 0;
p0_ VARCHAR2(32000) := NULL;
p1_ VARCHAR2(32000) := &LEAD_ID;
p2_ VARCHAR2(32000) := &NAME;
p3_ VARCHAR2(32000) := NULL;
p4_ VARCHAR2(32000) := 'Prospect';
p5_ VARCHAR2(32000) := NULL;
p6_ VARCHAR2(32000) := '10';
p7_ VARCHAR2(32000) := 'FALSE';
p8_ VARCHAR2(32000) := 'TRUE';
p9_ VARCHAR2(32000) := '*';
CURSOR get_add is
select 1 from &AO.BUSINESS_LEAD_ADDRESS
where lead_id = lead_id_;
BEGIN
open get_add;
fetch get_add into found_;
close get_add;
if found_ = 0 then
error_sys.record_general('Sales Process' , 'Add an Address');
else
&AO.Business_Lead_API.Convert_Lead__(p0_,p1_,p2_,p3_,p4_,p5_,p6_,p7_ ,p8_,p9_);
end if;
END;
I keep getting the error message