Need to create view ( Urgent )

Question

Hi All,
I have one requirement to create a view .Presently we are using a packaged procedure(view_test_123_pkg) to extract part numbers to write to a file using utl_file package.
Now the requirement is to create a single column view to extract part numbers exactly as package (view_test_123_pkg) is extracting .
below is the package details and view which I have created .Please help
CREATE OR REPLACE package APPS.view_test_123_pkg
as
procedure create_part_ref_proc;
end;
CREATE OR REPLACE package body APPS.view_test_123_pkg
as
procedure create_part_ref_proc
as
l_s_part varchar2(50);
L_CUST_PART varchar2(50);
l_cat varchar2(10);
l_partner_id varchar(30);
l_bare_part varchar2(50);
l_last_bare_part varchar2(50);
l_line_print varchar2(500);
l_last_s_part varchar2(50) :='newww';
l_last_c_part varchar2(50) :='newww';
l_last_cat varchar2(10) :='newww';
l_count number;
l_revision varchar2(50);
l_cust_revision varchar2(100);
l_error_code number;
l_error_text varchar2(200);
l_error_msg varchar2(1000) := '';
l_returned number := NULL;
--===================================================================
-- CURSORS TO READ TABLES
--===================================================================
Cursor part_find is
select distinct
customer_part_number,
internal_item_number,
corp_code cat,
bare_item_number,
customer_revision_number revision,
CUSTOMER_PRIORITY
from APPS.customer_part_ref a
where NVL(PUBLISH_YORN,'Y') = 'Y';
-- order by 3,2,6 desc;
BEGIN
l_count := 0;
l_last_bare_part := null;
For rec in find_part
LOOP
l_s_part := rec.internal_item_number;
L_CUST_PART := rec.customer_part_number;
l_cat := rec.cat;
l_bare_part := rec.bare_item_number;
l_revision := rec.revision;
if instr(L_CUST_PART,'~') = 0
THEN
L_COUNT := L_COUNT + 1;
IF l_last_s_part != l_s_part OR
l_last_cat != l_cat
then
IF l_count > 1
then
IF l_last_bare_part is NULL
then
l_line_print := l_line_print||'"';
end if;
l_line_print := l_line_print||l_cust_revision||'"';
write(r_file, l_line_print);
l_last_bare_part := null;
END IF;
l_line_print := L_CUST_PART||'"'||l_s_part||'"'||l_cat||'"';
l_cust_revision := l_revision;
IF l_bare_part is not NULL
THEN
dbms_output.put_line('bare part is not null');
l_line_print := l_line_print||L_BARE_PART||'"';
l_last_bare_part := l_bare_part;
END IF;
END IF;
IF l_last_s_part = l_s_part AND ----------------------need help here for the same internal_number need but diff customer_part_number need to get one string
l_last_cat = l_cat AND --------example CUst_part1 | cust_part2 | internal_part
l_last_c_part != L_CUST_PART
THEN
l_line_print := L_CUST_PART||'|'||l_line_print;
l_cust_revision := l_revision||'|'||l_cust_revision;
END IF;
IF l_last_s_part = l_s_part AND
l_last_cat = l_cat AND
l_last_bare_part is NULL AND
l_bare_part is not NULL
THEN
l_line_print := l_line_print||l_bare_part||'"';
l_last_bare_part := l_bare_part;
END IF;
l_last_c_part := L_CUST_PART;
l_last_s_part := l_s_part;
l_last_cat := l_cat;
END IF; -- End of instr('~')
END LOOP;
IF l_last_bare_part is null
THEN
l_line_print := l_line_print||'"';
dbms_output.put_line(l_line_print);
END IF;
l_line_print := l_line_print||l_cust_revision;
dbms_output.put_line('after loop');
write(r_file, l_line_print);
dbms_output.put_line(l_line_print);
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
raise_application_error(-20999,
'An unknown error has occured ');
END;
end;
view :::
create or replace view test_123_view as select distinct
case when instr(partner_part_number,'~') =0
then
case
when bare_item_number is null
then customer_part_number||'"'||internal_item_number||'"'||corp_code||'"'||bare_item_number||'"'
end
end
as part_string
from APPS.CUSTOMER_PART_REF a
where NVL(PUBLISH_YORN,'Y') = 'Y';
need to amend the if condition
IF l_last_s_part = l_s_part AND
l_last_cat = l_cat AND
L_LAST_C_PART != L_CUST_PART
THEN
to the above view
I appreciate any help .
Regards,
Gopi.ch

Answer 1

Hello Gopi.ch,
if it is really urgend, then you should not write so in the title of your post. This is a forum of volunteers and many of the regulars will just ask you why you think it is more important than the other questions.
Second: you post a lot of unformatted code. This makes it harder to read your question.
CREATE OR REPLACE VIEW test_123_view AS
SELECT  DISTINCT
        CASE WHEN INSTR(partner_part_number,'~') = 0 THEN
            CASE WHEN bare_item_number IS NULL THEN
                customer_part_number||'"'||internal_item_number||'"'||corp_code||'"'||bare_item_number||'"'
            END
        END AS part_string
FROM    apps.customer_part_ref a
WHERE   NVL(publish_yorn,'Y') = 'Y';
need to amend the if condition
IF l_last_s_part = l_s_part
  AND l_last_cat = l_cat
  AND l_last_c_part != l_cust_part
THEN
to the above view I don't want to analyze your package for you, so you might want to tell us where you want to add the condition.
Regards
Marcus