Unsure why this is not working?

Question

Can anyone give me a pointer as to why this is not working? I put the code from line 16 through 50 in the "...before displaying the page" additional pl/sql section of the wizard. The form wizard created the code from 5 through 15 and 51 through 55. The first error I understand because I think the wizard forgot to end the procedure correctly by saying "end beforeModuleDisplay;" instead of just putting "end;".
If I am right, how can I fix this since the wizard is the one putting in this info? I tried putting the correct end statement in where I put the rest of my code, but that created even more errors.
Error creating package SOCSBO_USER.ACCT_INFO
Error creating package SOCSBO_USER.ACCT_INFO
Line/ColumnError
56/5PLS-00103: Encountered the symbol "PROCEDURE" when expecting one of the following: begin declare end exception exit for goto if loop mod null pragma raise return select update while <an identifier> <a double-quoted delimited-identifier> <a bind variable> << close current delete fetch lock insert open rollback savepoint set sql execute commit forall <a single-quoted SQL string> The symbol "declare" was substituted for "PROCEDURE" to continue.
2128/5PLS-00103: Encountered the symbol "END" when expecting one of the following: begin function package pragma procedure form
-- PACKAGE BODY SOCSBO_USER.ACCT_INFO
-- created Monday 05-NOV-2001 16:52
create or replace
1 package body ACCT_INFO as
2 --
3 -- Created by ASAPP using WebDB at 15:16:46, Mar 04, 2002
4 --
5 procedure beforeModuleDisplay
6 (
7 p_block_name in varchar2,
8 p_object_name in varchar2,
9 p_instance in integer,
10 p_event_type in varchar2,
11 p_user_args in varchar2,
12 p_session in out PORTAL30.wwa_api_module_session
13 )
14 is
15 begin
16 declare
17 l_fs varchar2(200);
18 l_cv varchar2(200);
19 l_sv varchar2(200);
20 l_lang varchar2(100);
21 l_idx integer;
22 begin
23 l_lang := portal30.wwctx_api.get_nls_language;
24 l_fs := p_session.get_value_as_varchar2(
25 p_block_name => 'DEFAULT',
26 p_attribute_name => '_FORM_STATE');
27 l_cv := p_session.get_shadow_value(
28 p_block_name => 'DEFAULT',
29 p_attribute_name => 'A_ACCOUNT_COURSE',
30 p_language => l_lang);
31 l_sc := p_session.get_shadow_value(
32 p_block_name => 'DEFAULT',
33 p_attribute_name => 'A_ACCOUNT_SUBPROJECT',
34 p_language => l_lang);
35 if upper(l_fs) = 'UPDATE_AND_DELETE' then
36 l_idx := row_function.get_index('COURSE_BOTTOM');
37 if upper(l_cv) = 'Y' then
38 p_form.items(l_idx).visible := 'Y';
39 else
40 p_form.items(l_idx).visible := 'N';
41 end if;
42 end if;
43 if upper(l_fs) = 'UPDATE_AND_DELETE' then
44 l_idx := row_function.get_index('SUBPROJECT_BOTTOM');
45 if upper(l_sv) = 'Y' then
46 p_form.items(l_idx).visible := 'Y';
47 else
48 p_form.items(l_idx).visible := 'N';
49 end if;
50 end if;
51 exception
52 when others then
53 PORTAL30.wwerr_api_error.add(PORTAL30.wwerr_api_error.DOMAIN_WWV,'app','generic','SOCSBO_USER.ACCT_INFO.beforeModuleDisplay', p1 => sqlerrm);
54 raise;
55 end;
56 procedure row_function
REST OF CODE NOT RELEVANT

Answer 1

Hello Albert,
You open a new pl/sql block on line 16, but you have only one 'end' statement.
You can correct this by adding another 'end' statement after line 55 or you can remove the inner PL/SQL block and place it in the procedure itself. Variables can be declared after 'is' on line 14. In your example it's better to do it this way. See example.
Hope this helps...
Nancy.
Example solution 2:
-- PACKAGE BODY SOCSBO_USER.ACCT_INFO
-- created Monday 05-NOV-2001 16:52
create or replace
1 package body ACCT_INFO as
2 --
3 -- Created by ASAPP using WebDB at 15:16:46, Mar 04, 2002
4 --
5 procedure beforeModuleDisplay
6 (
7 p_block_name in varchar2,
8 p_object_name in varchar2,
9 p_instance in integer,
10 p_event_type in varchar2,
11 p_user_args in varchar2,
12 p_session in out PORTAL30.wwa_api_module_session
13 )
14 is
15 l_fs varchar2(200);
16 l_cv varchar2(200);
17 l_sv varchar2(200);
18 l_lang varchar2(100);
19 l_idx integer;
20
21 begin
22
23 l_lang := portal30.wwctx_api.get_nls_language;
24 l_fs := p_session.get_value_as_varchar2(
25 p_block_name => 'DEFAULT',
26 p_attribute_name => '_FORM_STATE');
27 l_cv := p_session.get_shadow_value(
28 p_block_name => 'DEFAULT',
29 p_attribute_name => 'A_ACCOUNT_COURSE',
30 p_language => l_lang);
31 l_sc := p_session.get_shadow_value(
32 p_block_name => 'DEFAULT',
33 p_attribute_name => 'A_ACCOUNT_SUBPROJECT',
34 p_language => l_lang);
35 if upper(l_fs) = 'UPDATE_AND_DELETE' then
36 l_idx := row_function.get_index('COURSE_BOTTOM');
37 if upper(l_cv) = 'Y' then
38 p_form.items(l_idx).visible := 'Y';
39 else
40 p_form.items(l_idx).visible := 'N';
41 end if;
42 end if;
43 if upper(l_fs) = 'UPDATE_AND_DELETE' then
44 l_idx := row_function.get_index('SUBPROJECT_BOTTOM');
45 if upper(l_sv) = 'Y' then
46 p_form.items(l_idx).visible := 'Y';
47 else
48 p_form.items(l_idx).visible := 'N';
49 end if;
50 end if;
51 exception
52 when others then
53 PORTAL30.wwerr_api_error.add(PORTAL30.wwerr_api_error.DOMAIN_WWV,'app','generic','SOCSBO_USER.ACCT_INFO.beforeModuleDisplay', p1 => sqlerrm);
54 raise;
55 end;
56 procedure row_function
REST OF CODE NOT RELEVANT