Multi Report Filter - HowTo

Question

Hi there
Hope this helps others....solution not perfect but gets results
Only problem - with this, is dealing multipe sessions - on use of temporary tables. Not figured that out.
Aim : Use multiple objects, to filter records.
Solution
Steps
Step 1 - Create - Blank Page
Step 2 - Create - Region 1 - Parameters - HTML Text
Step 3 - Create - Region 2 - Results - SQL Query (PL/SQL ...)(see below details)
Step 4 - Create Objects - Region 1 - Example
P12_PROCESS (multi-select)
Default Value --> -1
List of Values --> Select process_id || '--' || description process, process_id from obe.cis_process
Columns --> 1
Display Null --> Yes
Null return value --> -1
created text field, 3 multi-select items plus 2 select objects (using LOV)
Step 5 - Create Button in Region 1 - P12_GO
Step 6 - Numerous Process for this Page - Had 3 - PL/SQL anon block - On submit - after comp & validations
JestUser selects item(s)..data placed in temp table, used later.
DECLARE
l_selected HTMLDB_APPLICATION_GLOBAL.VC_ARR2;
BEGIN
-- convert the colon separated string of values into
-- a PL/SQL array
l_selected := HTMLDB_UTIL.STRING_TO_TABLE(:P12_EQUIPMENT);
-- clean up the intersection table first
DELETE FROM cis_details_equipment_session;
FOR i IN 1..l_selected.count
LOOP
INSERT INTO OBE.cis_details_equipment_session(EQUIPMENT_NUMBER)
VALUES (l_selected(i));
END LOOP;
END;
Step 3 - further explained
Source Region
Jest : Body of SQL plus WHERE component.
DECLARE
q VARCHAR2(32767); -- query
w VARCHAR2(4000) ; -- where clause
we VARCHAR2(1) := 'N'; -- identifies if where clause exists
BEGIN
q := 'SELECT DISTINCT A.CIP_NUMBER, A.CIP_NUMBER "CIS NUMBER" ,
A.TITLE,
A.FEEDBACK_TYPE,
A.FORM_NUMBER,
A.PROJECT_NUMBER,
A.DESCRIPTION
from
obe.CIS_DETAILS A,
obe.CIS_DETAILS_equipment_session B,
obe.CIS_DETAILS_process_session C,
obe.CIS_DETAILS_system_session D';
--Example of Wildcard
IF :P12_KEYWORD != '- Type Keyword -'
     THEN
     IF we = 'Y'
          THEN
               w := w || ' AND INSTR(A.TITLE,:P12_KEYWORD) <> 0 OR INSTR(A.BACKGROUND_INFORMATION,:P12_KEYWORD) <> 0 OR INSTR(A.REMEDIAL_ACTION,:P12_KEYWORD) <> 0 OR INSTR(A.CORRECTIVE_ACTION,:P12_KEYWORD) <> 0 OR INSTR(A.DESCRIPTION,:P12_KEYWORD) <> 0';
          ELSE
               w := ' INSTR(A.TITLE,:P12_KEYWORD) <> 0 OR INSTR(A.BACKGROUND_INFORMATION,:P12_KEYWORD) <> 0 OR INSTR(A.REMEDIAL_ACTION,:P12_KEYWORD) <> 0 OR INSTR(A.CORRECTIVE_ACTION,:P12_KEYWORD) <> 0 OR INSTR(A.DESCRIPTION,:P12_KEYWORD) <> 0';
               we := 'Y';
     END IF;
END IF;
--Example of Select Object
IF :P12_PROJECT != '-1'
     THEN
     IF we = 'Y'
          THEN
               w := w || ' AND PROJECT_NUMBER = :P12_PROJECT ';
          ELSE
               w := ' PROJECT_NUMBER = :P12_PROJECT ';
               we := 'Y';
     END IF;
END IF;
IF :P12_FORM_TYPE != '-1'
     THEN
     IF we = 'Y'
          THEN
               w := w || ' AND FEEDBACK_TYPE = :P12_FORM_TYPE ';
          ELSE
               w := ' FEEDBACK_TYPE = :P12_FORM_TYPE ';
               we := 'Y';
     END IF;
END IF;
IF :P12_SUPPLIER != '-1'
     THEN
     IF we = 'Y'
          THEN
               w := w || ' AND SUPPLIER = :P12_SUPPLIER ';
          ELSE
               w := ' SUPPLIER = :P12_SUPPLIER ';
               we := 'Y';
     END IF;
END IF;
--Example of Multi-Select
IF :P12_EQUIPMENT != '-1'
     THEN
     IF we = 'Y'
          THEN
          w := w || ' AND INSTR(A.EQUIPMENT,B.EQUIPMENT_NUMBER) <> 0';
          ELSE
               w := ' INSTR(A.EQUIPMENT,B.EQUIPMENT_NUMBER) <> 0';
               we := 'Y';
     END IF;
END IF;
IF :P12_PROCESS != '-1'
     THEN
     IF we = 'Y'
          THEN
          w := w || ' AND INSTR(A.PROCESS,C.PROCESS_NUMBER) <> 0';
          ELSE
               w := ' INSTR(A.PROCESS,C.PROCESS_NUMBER) <> 0';
               we := 'Y';
     END IF;
END IF;
IF :P12_SYSTEM != '-1'
     THEN
     IF we = 'Y'
          THEN
          w := w || ' AND INSTR(A.SYSTEM,D.SYSTEM_NUMBER) <> 0';
          ELSE
               w := ' INSTR(A.SYSTEM,D.SYSTEM_NUMBER) <> 0';
               we := 'Y';
     END IF;
END IF;
IF we = 'Y'
     THEN q := q || ' WHERE '|| w;
END IF;
RETURN q;
END

Answer 1

Hi user547704,
A couple thoughts about your posting. If your intention is to publish a how-to you might want to do a couple things. First, let everyone know what your name is by either signing your posting or changing your forum alias, or both. Second, give a brief introduction at the beginning to explain what it is that the how-to addresses. Something more than 'Multi Report Filter' I guess is what I mean.
A couple sentences that explains what 'Multi Report Filter' means to you and what problem it solves can go a long way to making your posting far more valuable. Othwerwise, you're leaving it to the reader to try to deduce your meaning and that might not happen all the time. Especially with folks from all around the world reading this forum and the problems that language differences insert into the equation.
Either way, welcome to the forum!
Earl