Calling a Procedure and Variables with a : vs. a ?

Question

Sorry, this is a long one, but I'm trying to provide as much background as possible.
The below code (from a procedure called view_ibba_for_maint) is a snippet of code from a much larger SQL package. The package is called from a web browser.
htp.tableOpen('CELLSPACING=1 CELLPADDING=1 width="50%"
bordercolor="#669966"', calign=>'center');
htp.tableRowOpen;
htp.tableData(fontx||htf.anchor(owa_util.get_owa_service_path||
*'nfdw_budadmn.del_ibba_warn:2'||'fyear='||fyear||'&'||*
*'budorg='||budorg||'&'||'appr_unit='||appr_unit||'&'||*
*'obje_ocat='||obje_ocat||'&'||*
*'bud_auth_amount='||bud_auth_amount||'&'||*
*'appr_name='||appr_name||'&'||*
*'fy_id='||fycode||'&'||*
*'borg_id='||borg_id||'&'||*
*'appr_id='||appr_id||'&'||*
*'obje_id='||obje_id||*
*'"onMouseOver=" window.status=''Click to Remove IBBA Budget Line.'';*
return true','Remove Budget'),calign=>'CENTER');
htp.tableData(fontx||htf.anchor(owa_util.get_owa_service_path||
*'nfdw_budadmn.mod_ibba_inp'||*
*'"onMouseOver=" window.status=''Click to Return to Query Form.'';*
return true','Return To Query Form'),calign=>'CENTER');
htp.tableRowClose;
htp.tableClose;
This portion of code calls a procedure called del_ibba_warn (in the nfdw_budadmn package). Both procedures are in the nfdw_budadmn package. view_ibba_for_maint calls del_ibba_warn a few times in the procedure. Anyway, when we were on Oracle 8i, the package and procedures worked fine. However, when we upgraded to 10g, it fails. (see the following web_browser link and error that is generated)
Internet Explorer Address Bar:     http://orasrv2/fdotdwat/nfdw_budadmn.del_ibba_warn:2fyear=2008&budorg=B065&appr_unit=466026&obje_ocat=8130&bud_auth_amount=0&appr_name=INFORMATION%20SERVICES&fy_id=6497&borg_id=65775&appr_id=263566&obje_id=23968
Error:
Bad Request
Your browser sent a request that this server could not understand.
mod_plsql: /fdotdwat/nfdw_budadmn.del_ibba_warn:2fyear=2008&budorg=B065&appr_unit=466026&obje_ocat=8130&bud_auth_amount=0&appr_name=INFORMATION SERVICES&fy_id=6497&borg_id=65775&appr_id=263566&obje_id=23968 HTTP-400 Name "nfdw_budadmn.del_ibba_warn:2fyear=2008&budorg=B065&appr_unit=466026&obje_ocat=8130&bud_auth_amount=0&appr_name=INFORMATION SERVICES&fy_id=6497&borg_id=65775&appr_id=263566&obje_id=23968" is longer than 30 chars
We believe it is a problem with the way del_ibba_warn is called. In the original code it is called like this: 'nfdw_budadmn.del_ibba_warn:2'. So I try to replace the :2 with a ? (like this: 'nfdw_budadmn.del_ibba_warn?' (also tried nfdw_budadmn.del_ibba_warn?2'), but it still fails. The program actually replaces the new ? that I put into the code with a :1 in the internet explorer address bar when I run it.. (Not sure why a :1 and not a :2.) But, if I go and substitute the :1 with a ? in the address bar that is generated after I attempt to call the procedure, it works. I change the address bar to this:
http://orasrv2/fdotdwat/nfdw_budadmn.del_ibba_warn?fyear=2008&budorg=B065&appr_unit=466026&obje_ocat=8130&bud_auth_amount= 0&appr_name=INFORMATION%20SERVICES&fy_id=6497&borg_id=65775&appr_id=263566&obje_id=23968
Hit enter, and the procedure goes forward like it should. So, the overall question is why is the IE address bar forcing the :2 or :1 to show up in the address bar? Why won't it take my ? I put in? Why was it necessary for the original programer to label the del_ibba_warn calls with a : or a :2 at all? (Again, del_ibba_warn is called a few times in the procedure). And, it used to work when we were on 8i.
We have been trying to figure this out (on and off) for some time now. We feel like we're right there for figuring this out, but can't quite get it. Any ideas? Please let me know if I can provide any additional info. Thanks!

Answer 1

Darn, didn't work. I still get the same error.......
The address bar:
http://orasrv2/fdotdwat/nfdw_budadmn.del_ibba_warn:2fyear=2008&budorg=B065&appr_unit=466026&obje_ocat=8130&bud_auth_amount=0&appr_name=INFORMATION%20SERVICES&fy_id=6497&borg_id=65775&appr_id=263566&obje_id=23968
The Error:
Bad Request
Your browser sent a request that this server could not understand.
mod_plsql: /fdotdwat/nfdw_budadmn.del_ibba_warn:2fyear=2008&budorg=B065&appr_unit=466026&obje_ocat=8130&bud_auth_amount=0&appr_name=INFORMATION SERVICES&fy_id=6497&borg_id=65775&appr_id=263566&obje_id=23968 HTTP-400 Name "nfdw_budadmn.del_ibba_warn:2fyear=2008&budorg=B065&appr_unit=466026&obje_ocat=8130&bud_auth_amount=0&appr_name=INFORMATION SERVICES&fy_id=6497&borg_id=65775&appr_id=263566&obje_id=23968" is longer than 30 chars
Now, I pasted the changes you suggested and the package did compile. But notice how it forces the ":2" into the address bar and the error message? That, I just don't get. Would it help if I posted the two procedures involved? I'll avoid posting the whole package (it's way big).
Here are the two procedures involved.
view_ibba_for_maint (before I made your suggested changes) & del_ibba_warn
procedure view_ibba_for_maint(
fyear IN VARCHAR2,
budorg IN VARCHAR2,
appr_unit IN VARCHAR2,
obje_ocat IN VARCHAR2,
password IN VARCHAR2)
IS
CURSOR c1 (c1_fyr_id IN NUMBER,
c1_borg_id IN NUMBER,
c1_appr_id IN NUMBER,
c1_obje_id IN NUMBER,
c1_fmonth IN NUMBER) IS
select appr_budget_account_code, appr_budget_account_category, appr_name,
orga_organization, obje_object_code, ibba_budget_authorized_amount
from internal_budget_balances, appropriations, organizations, objects
where ibba_fiscal_year_code = c1_fyr_id
and ibba_fiscal_month_code = c1_fmonth
and ibba_organization_id = c1_borg_id
and orga_organization_id = ibba_organization_id
and ibba_appropriation_id = c1_appr_id
and appr_appropriation_id = ibba_appropriation_id
and ibba_object_id = c1_obje_id
and obje_object_id = ibba_object_id
order by orga_organization,
appr_budget_account_code||appr_budget_account_category,
obje_object_code;
CURSOR c2 (c2_fyr_id IN NUMBER,
c2_borg_id IN NUMBER,
c2_appr_id IN NUMBER,
c2_ocat IN VARCHAR2,
c2_fmonth IN NUMBER) IS
select appr_budget_account_code, appr_budget_account_category, appr_name,
orga_organization, ibba_budget_authorized_amount,
ibba_object_category
from internal_budget_balances, appropriations, organizations
where ibba_fiscal_year_code = c2_fyr_id
and ibba_fiscal_month_code = c2_fmonth
and ibba_organization_id = c2_borg_id
and orga_organization_id = ibba_organization_id
and ibba_appropriation_id = c2_appr_id
and appr_appropriation_id = ibba_appropriation_id
and ibba_object_category = c2_ocat
order by orga_organization,
appr_budget_account_code||appr_budget_account_category,
ibba_object_category;
p_app VARCHAR2(40) :='nfdw_budadmn.mod_ibba_inp';
c1_rec c1%ROWTYPE;
c2_rec c2%ROWTYPE;
dh_aelg_rec application_error_log%ROWTYPE;
its_an_obje VARCHAR2(1) := 'F';
valid_combo number := 0;
obje_id objects.obje_object_id%TYPE;
obje_name objects.obje_name%TYPE;
borg_id organizations.orga_organization_id%TYPE;
appr_id appropriations.appr_appropriation_id%TYPE;
appr_name appropriations.appr_name%TYPE;
report_date VARCHAR2(35) := to_char(sysdate, 'Month DD, YYYY');
bud_auth_amount internal_budget_balances.ibba_budget_authorized_amount%TYPE;
password_upper VARCHAR2(10);
v_budadmn_password VARCHAR2(10);
fmcode time.time_time_code%TYPE;
fycode time.time_time_code%TYPE;
fonth     VARCHAR2(100) :=
'<font face="Verdana, Arial, Helvetica, sans-serif" size=2>';
fontx VARCHAR2(100) :=
'<font face="Verdana, Arial, Helvetica, sans-serif" size=3>';
NULL_EXCEPTION EXCEPTION;
INVALID_DOC EXCEPTION;
PASSWORD_FAIL EXCEPTION;
BEGIN
SELECT distinct budadmn_password
INTO v_budadmn_password
FROM budadmn_password;
v_budadmn_password := upper(v_budadmn_password);
v_budadmn_password := rtrim(v_budadmn_password);
password_upper := upper(password);
password_upper := rtrim(password_upper);
IF password_upper = v_budadmn_password
THEN
NULL;
ELSE
RAISE PASSWORD_FAIL;
END IF;
dh_aelg_rec.app_marker := 'GFYD';
nfdw_budadmn.get_fiscal_data('NONE', fyear, fmcode, fycode, dh_aelg_rec);
IF dh_aelg_rec.app_error_mesg = 'FAIL'
THEN
RAISE NULL_EXCEPTION;
END IF;
-- get appr id
dh_aelg_rec.app_marker := 'APPR';
nbdm_web.g_appr_id(substr(appr_unit,1,4), substr(appr_unit,5,2), fyear,
appr_id, dh_aelg_rec);
IF dh_aelg_rec.app_error_mesg = 'FAIL'
THEN
RAISE NULL_EXCEPTION;
END IF;
-- get budget org id
dh_aelg_rec.app_marker := 'ORGA';
nbdm_web.g_orga_id(budorg, fyear, borg_id, dh_aelg_rec);
IF dh_aelg_rec.app_error_mesg = 'FAIL'
THEN
RAISE NULL_EXCEPTION;
END IF;
-- determine id search is by obje or ocat.
IF length(obje_ocat) > 2
THEN
its_an_obje := 'T';
dh_aelg_rec.app_marker := 'OBJE';
nbdm_web.g_obje_id(obje_ocat, fyear, obje_id, obje_name,
substr(appr_unit,1,4), dh_aelg_rec);
IF dh_aelg_rec.app_error_mesg = 'FAIL'
THEN
RAISE NULL_EXCEPTION;
END IF;
END IF;
IF its_an_obje = 'T'
THEN
dh_aelg_rec.app_marker := 'CHK1';
SELECT COUNT(1)
INTO valid_combo
FROM internal_budget_balances
WHERE ibba_fiscal_year_code = fycode
AND ibba_organization_id = borg_id
AND ibba_appropriation_id = appr_id
AND ibba_object_id = obje_id;
ELSE
dh_aelg_rec.app_marker := 'CHK2';
SELECT COUNT(1)
INTO valid_combo
FROM internal_budget_balances
WHERE ibba_fiscal_year_code = fycode
AND ibba_organization_id = borg_id
AND ibba_appropriation_id = appr_id
AND ibba_object_category = obje_ocat;
END IF;
IF valid_combo < 1
THEN
RAISE INVALID_DOC;
END IF;
IF its_an_obje = 'T'
THEN
-- Get max(ibba_fiscal_month_code)
dh_aelg_rec.app_marker := 'FMC1';
select max(ibba_fiscal_month_code)
into fmcode
from internal_budget_balances
where ibba_fiscal_year_code = fycode
and ibba_organization_id = borg_id
and ibba_appropriation_id = appr_id
and ibba_object_id = obje_id;
nfdw_budadmn.nfdw_budadmn_rep_head(
'Budget Maintenance',
'BMAINT02',
fyear,
'N',
'B',
'N',
'N');
htp.tableOpen('border cellspacing=1 cellpadding=1');
htp.p('<tr bgcolor=lightblue>');
htp.tableHeader(fonth||(htf.bold('Orgn')), cattributes=>'WIDTH="2%"',
calign=>'center');
htp.tableHeader(fonth||(htf.bold('Appr Unit')),cnowrap=>'nowrap',
cattributes=>'WIDTH="4%"',calign=>'center');
htp.tableHeader(fonth||(htf.bold('Appr Name')),cnowrap=>'nowrap',
cattributes=>'WIDTH="4%"',calign=>'center');
htp.tableHeader(fonth||(htf.bold('Obje/Cat')),cattributes=>'WIDTH="2%"',
calign=>'center');
htp.tableHeader(fonth||(htf.bold('Auth Budget Amount')),
cattributes=>'WIDTH="2%"', calign=>'center');
htp.tableRowClose;
OPEN c1(fycode, borg_id, appr_id, obje_id, fmcode);
LOOP
FETCH c1 INTO c1_rec;
EXIT WHEN c1%NOTFOUND;
BEGIN
-- Create HTP
htp.tableRowOpen;
htp.tableData(fonth||nvl(c1_rec.orga_organization,'-'),
cnowrap=>'nowrap', calign=>'center');
htp.tableData(fonth||nvl(c1_rec.appr_budget_account_code||
c1_rec.appr_budget_account_category,'-'),
cnowrap=>'nowrap', calign=>'center');
htp.tableData(fonth||nvl(c1_rec.appr_name,'-'),
cnowrap=>'nowrap', calign=>'center');
appr_name := c1_rec.appr_name;
htp.tableData(fonth||nvl(obje_ocat,'-'),
cnowrap=>'nowrap', calign=>'center');
htp.tableData(fonth||to_char(c1_rec.ibba_budget_authorized_amount,
'9,999,999,999.99'), cnowrap=>'nowrap', calign=>'right');
bud_auth_amount := c1_rec.ibba_budget_authorized_amount;
htp.tableRowClose;
htp.tableClose;
END;
END LOOP;
CLOSE c1;
ELSE
-- Get max(ibba_fiscal_month_code)
dh_aelg_rec.app_marker := 'FMC2';
select max(ibba_fiscal_month_code)
into fmcode
from internal_budget_balances
where ibba_fiscal_year_code = fycode
and ibba_organization_id = borg_id
and ibba_appropriation_id = appr_id
and ibba_object_category = obje_ocat;
nfdw_budadmn.nfdw_budadmn_rep_head(
'Budget Maintenance',
'BMAINT02',
fyear,
'N',
'B',
'N',
'N');
htp.tableOpen('border cellspacing=1 cellpadding=1');
htp.p('<tr bgcolor=lightblue>');
htp.tableHeader(fonth||(htf.bold('Orgn')), cattributes=>'WIDTH="2%"',
calign=>'center');
htp.tableHeader(fonth||(htf.bold('Appr Unit')),cnowrap=>'nowrap',
cattributes=>'WIDTH="4%"',calign=>'center');
htp.tableHeader(fonth||(htf.bold('Appr Name')),cnowrap=>'nowrap',
cattributes=>'WIDTH="4%"',calign=>'center');
htp.tableHeader(fonth||(htf.bold('Obje/Cat')),cattributes=>'WIDTH="2%"',
calign=>'center');
htp.tableHeader(fonth||(htf.bold('Auth Budget Amount')),
cattributes=>'WIDTH="2%"', calign=>'center');
htp.tableRowClose;
OPEN c2(fycode, borg_id, appr_id, obje_ocat, fmcode);
LOOP
FETCH c2 INTO c2_rec;
EXIT WHEN c2%NOTFOUND;
BEGIN
-- Create HTP
htp.tableRowOpen;
htp.tableData(fonth||nvl(c2_rec.orga_organization,'-'),
cnowrap=>'nowrap', calign=>'center');
htp.tableData(fonth||nvl(c2_rec.appr_budget_account_code||
c2_rec.appr_budget_account_category,'-'),
cnowrap=>'nowrap', calign=>'center');
htp.tableData(fonth||nvl(c2_rec.appr_name,'-'),
cnowrap=>'nowrap', calign=>'center');
appr_name := c2_rec.appr_name;
htp.tableData(fonth||nvl(c2_rec.ibba_object_category,'-'),
cnowrap=>'nowrap', calign=>'center');
htp.tableData(fonth||to_char(c2_rec.ibba_budget_authorized_amount,
'9,999,999,999.99'), cnowrap=>'nowrap', calign=>'right');
bud_auth_amount := c2_rec.ibba_budget_authorized_amount;
htp.tableRowClose;
htp.tableClose;
END;
END LOOP;
CLOSE c2;
END IF;
-- Links
htp.br;
htp.br;
htp.br;
htp.line;
htp.tableOpen('CELLSPACING=1 CELLPADDING=1 width="50%"
bordercolor="#669966"', calign=>'center');
htp.tableRowOpen;
htp.tableData(fontx||htf.anchor(owa_util.get_owa_service_path||
'nfdw_budadmn.del_ibba_warn:2'||'fyear='||fyear||'&'||
'budorg='||budorg||'&'||'appr_unit='||appr_unit||'&'||
'obje_ocat='||obje_ocat||'&'||
'bud_auth_amount='||bud_auth_amount||'&'||
'appr_name='||appr_name||'&'||
'fy_id='||fycode||'&'||
'borg_id='||borg_id||'&'||
'appr_id='||appr_id||'&'||
'obje_id='||obje_id||
'"onMouseOver=" window.status=''Click to Remove IBBA Budget Line.'';
return true','Remove Budget'),calign=>'CENTER');
htp.tableData(fontx||htf.anchor(owa_util.get_owa_service_path||
'nfdw_budadmn.mod_ibba_inp'||
'"onMouseOver=" window.status=''Click to Return to Query Form.'';
return true','Return To Query Form'),calign=>'CENTER');
htp.tableRowClose;
htp.tableClose;
EXCEPTION
WHEN NULL_EXCEPTION THEN
dh_aelg_rec.app_error_mesg := 'FAIL';
dh_aelg_rec.comments :=
'Parameters are: fyear='||fyear||
', budorg='||budorg||
', appr_unit='||appr_unit||
', obje_ocat='||obje_ocat||
', password='||password;
dh_aelg_rec.app_hierarchy := ' nfdw_budadmn.view_ibba_for_maint:';
util_web.util_return_page
('An application error has occurred.',
'Please contact the I.S. Helpdesk.',
p_app);
WHEN INVALID_DOC THEN
util_web.util_return_page
('Requested Data Is Not Available.',
'Check Request and Try Again.',
p_app);
WHEN PASSWORD_FAIL THEN
util_web.util_return_page
('Invalid Password.',
'Please Reenter.',
p_app);
WHEN OTHERS THEN
dh_aelg_rec.app_error_mesg := 'FAIL';
dh_aelg_rec.ora_error_number := SQLCODE;
dh_aelg_rec.ora_error_mesg := substr(SQLERRM, 1, 100);
dh_aelg_rec.comments :=
'Parameters are: fyear='||fyear||
', budorg='||budorg||
', appr_unit='||appr_unit||
', obje_ocat='||obje_ocat||
', password='||password;
dh_aelg_rec.app_hierarchy := ' nfdw_budadmn.view_ibba_for_maint:';
util_web.util_log_app_error(dh_aelg_rec);
util_web.util_return_page
('An application error has occurred.',
'Please contact the I.S. Helpdesk.',
p_app);
END view_ibba_for_maint;
procedure del_ibba_warn(
fyear IN VARCHAR2,
budorg IN VARCHAR2,
appr_unit IN VARCHAR2,
obje_ocat IN VARCHAR2,
bud_auth_amount IN NUMBER,
appr_name IN VARCHAR2,
fy_id IN NUMBER,
borg_id IN NUMBER,
appr_id IN NUMBER,
obje_id IN NUMBER)
IS
p_app          VARCHAR2(40) :='nfdw_budadmn.mod_ibba_inp';
exp_ck     number := 0;
dh_aelg_rec     application_error_log%ROWTYPE;
fontx          VARCHAR2(100) :=
'<font face="Verdana, Arial, Helvetica, sans-serif" size=3>';
fonth          VARCHAR2(100) :=
'<font face="Verdana, Arial, Helvetica, sans-serif" size=2>';
BEGIN
-- Check if budget line has expenditures in the NOEM.
IF length(obje_ocat) > 2
THEN
dh_aelg_rec.app_marker := 'SEL1';
SELECT count(1)
INTO exp_ck
FROM nbdm_object_expense_fmon
WHERE fiscal_year = fyear
AND fiscal_month = '12'
AND budget_org = budorg
AND budget_account = substr(appr_unit,1,4)
AND budget_category = substr(appr_unit,5,2)
AND object = obje_ocat
AND fytd_expended_amount > 0;
ELSE
dh_aelg_rec.app_marker := 'SEL2';
SELECT count(1)
INTO exp_ck
FROM nbdm_object_expense_fmon
WHERE fiscal_year = fyear
AND fiscal_month = '12'
AND budget_org = budorg
AND budget_account = substr(appr_unit,1,4)
AND budget_category = substr(appr_unit,5,2)
AND object_category = obje_ocat
AND fytd_expended_amount > 0;
END IF;
htp.p('<BR>');
htp.p('<BR>');
htp.tableOpen('BORDER=0 BGCOLOR=WHITE', calign=>'center');
htp.tableRowOpen;
htp.tableData(fontx||htf.bold('WARNING!! WARNING!! WARNING'));
htp.tableRowClose;
htp.tableClose;
htp.p('<BR>');
IF exp_ck > 0
THEN
htp.tableOpen('BORDER=0 BGCOLOR=WHITE', calign=>'center');
htp.tableRowOpen;
htp.tableData(fontx||htf.bold('THE CHOSEN BUDGET HAS VALID EXPENDITURES '));
htp.tableData(fontx||htf.bold('AND CANNOT BE REMOVED'));
htp.tableRowClose;
htp.tableClose;
ELSE
htp.tableOpen('BORDER=0 BGCOLOR=WHITE', calign=>'center');
htp.tableRowOpen;
htp.tableData(fontx||htf.bold('YOU ARE ABOUT TO PERMANANTLY REMOVE '));
htp.tableData(fontx||htf.bold('THE FOLLOWING'));
htp.tableRowClose;
htp.tableClose;
htp.tableOpen('BORDER=0 BGCOLOR=WHITE', calign=>'center');
htp.tableRowOpen;
htp.tableData(fontx||htf.bold('AUTHORIZED BUDGET FROM THE NDOT'));
htp.tableData(fontx||htf.bold('FINANCIAL DATA WAREHOUSE'));
htp.tableRowClose;
htp.tableClose;
htp.p('<BR>');
END IF;
htp.tableOpen('border cellspacing=1 cellpadding=1');
htp.p('<tr bgcolor=lightblue>');
htp.tableHeader(fonth||(htf.bold('Orgn')), cattributes=>'WIDTH="2%"',
calign=>'center');
htp.tableHeader(fonth||(htf.bold('Appr Unit')),cnowrap=>'nowrap',
cattributes=>'WIDTH="4%"',calign=>'center');
htp.tableHeader(fonth||(htf.bold('Appr Name')),cnowrap=>'nowrap',
cattributes=>'WIDTH="4%"',calign=>'center');
htp.tableHeader(fonth||(htf.bold('Obje/Cat')),cattributes=>'WIDTH="2%"',
calign=>'center');
htp.tableHeader(fonth||(htf.bold('Auth Budget Amount')),
cattributes=>'WIDTH="2%"', calign=>'center');
htp.tableRowClose;
htp.tableRowOpen;
htp.tableData(fonth||nvl(budorg,'-'),
cnowrap=>'nowrap', calign=>'center');
htp.tableData(fonth||nvl(appr_unit,'-'),
cnowrap=>'nowrap', calign=>'center');
htp.tableData(fonth||nvl(appr_name,'-'),
cnowrap=>'nowrap', calign=>'center');
htp.tableData(fonth||nvl(obje_ocat,'-'),
cnowrap=>'nowrap', calign=>'center');
htp.tableData(fonth||to_char(bud_auth_amount,
'9,999,999,999.99'), cnowrap=>'nowrap', calign=>'right');
htp.tableRowClose;
htp.tableClose;
htp.br;
htp.br;
htp.br;
htp.line;
IF exp_ck > 0
THEN
htp.tableOpen('CELLSPACING=1 CELLPADDING=1 width="50%"
bordercolor="#669966"', calign=>'center');
htp.tableRowOpen;
htp.tableData(fontx||htf.anchor(owa_util.get_owa_service_path||
'nfdw_budadmn.mod_ibba_inp'||
'"onMouseOver=" window.status=''Click to Return to Query Form.'';
return true','Return To Query Form'),calign=>'CENTER');
htp.tableRowClose;
ELSE
htp.tableOpen('CELLSPACING=1 CELLPADDING=1 width="50%"
bordercolor="#669966"', calign=>'center');
htp.tableRowOpen;
htp.tableData(fontx||htf.anchor(owa_util.get_owa_service_path||
'nfdw_budadmn.del_ibba_line:1'||
'fy_id='||fy_id||'&'||
'borg_id='||borg_id||'&'||
'appr_id='||appr_id||'&'||
'obje_id='||obje_id||'&'||
'obje_ocat='||obje_ocat||'&'||
'fyear='||fyear||'&'||
'budorg='||budorg||'&'||
'appr_unit='||appr_unit||
'"onMouseOver=" window.status=''Click to Remove IBBA Budget Line.'';
return true','Remove Budget'),calign=>'CENTER');
htp.tableData(fontx||htf.anchor(owa_util.get_owa_service_path||
'nfdw_budadmn.mod_ibba_inp'||
'"onMouseOver=" window.status=''Click to Return to Query Form.'';
return true','Return To Query Form'),calign=>'CENTER');
htp.tableRowClose;
END IF;
htp.tableClose;
EXCEPTION
WHEN OTHERS THEN
dh_aelg_rec.app_error_mesg := 'FAIL';
dh_aelg_rec.ora_error_number := SQLCODE;
dh_aelg_rec.ora_error_mesg := substr(SQLERRM, 1, 100);
dh_aelg_rec.app_hierarchy := ' nfdw_budadmn.del_ibba_warn:';
dh_aelg_rec.comments :=
'Parameters are: fyear='||fyear||
', budorg='||budorg||
', appr_unit='||appr_unit||
', obje_ocat='||obje_ocat||
', bud_auth_amount='||bud_auth_amount||
', appr_name='||appr_name||
', fy_id='||fy_id||
', borg_id='||borg_id||
', appr_id='||appr_id||
', obje_id='||obje_id;
util_web.util_log_app_error(dh_aelg_rec);
util_web.util_return_page
('An application error has occurred.',
'Please contact the I.S. Helpdesk.',
p_app);
END del_ibba_warn;