[Home] [Help]
1: PACKAGE BODY qa_results_api AS
2: /* $Header: qltrsiub.plb 120.7.12010000.1 2008/07/25 09:22:15 appldev ship $ */
3:
4:
5: PROCEDURE enable_and_fire_action (p_collection_id IN NUMBER ) IS
5: PROCEDURE enable_and_fire_action (p_collection_id IN NUMBER ) IS
6:
7: BEGIN
8:
9: UPDATE qa_results
10: SET status=2
11: WHERE collection_id = p_collection_id;
12:
13: commit_qa_results(p_collection_id);
9: UPDATE qa_results
10: SET status=2
11: WHERE collection_id = p_collection_id;
12:
13: commit_qa_results(p_collection_id);
14:
15: END enable_and_fire_action;
16:
17:
14:
15: END enable_and_fire_action;
16:
17:
18: PROCEDURE commit_qa_results(p_collection_id IN NUMBER ) IS
19:
20: actions_request_id NUMBER;
21:
22: BEGIN
37: NULL, FALSE, to_char(-p_collection_id));
38:
39: COMMIT;
40:
41: END commit_qa_results;
42:
43: --
44: -- 12.1 QWB Usability Improvements
45: -- added a new parameter, p_ssqr_opperation to ensure
181: p_error_found := FALSE;
182:
183: -- construct INSERT sql part
184: -- e.g insert statement trying to build INSERT INTO
185: -- qa_results (collection_id, occurrence) VALUES (111, 222);
186:
187: insert_string := 'INSERT INTO qa_results (
188: collection_id,
189: occurrence,
183: -- construct INSERT sql part
184: -- e.g insert statement trying to build INSERT INTO
185: -- qa_results (collection_id, occurrence) VALUES (111, 222);
186:
187: insert_string := 'INSERT INTO qa_results (
188: collection_id,
189: occurrence,
190: last_update_date,
191: qa_last_update_date,
216: --
217: -- Bug 5912439.
218: -- Performance issue due to the use of literals in the SQL below.
219: -- Modified the SQL string to include bind variables. This is used
220: -- to insert data in QA_RESULTS.
221: -- skolluku Mon Apr 23 23:39:10 PDT 2007.
222: --
223:
224: -- construct VALUES sql part
586:
587: p_error_found := FALSE;
588:
589:
590: update_string := 'UPDATE QA_RESULTS ';
591:
592: -- Bug 3776542. Performance issue due to the use of literals in the SQL below.
593: -- Modified the SQL string to include bind variables.This where_clause is used
594: -- to update/insert data in QA_RESULTS and QA_RESULTS_UPDATE_HISTORY.
590: update_string := 'UPDATE QA_RESULTS ';
591:
592: -- Bug 3776542. Performance issue due to the use of literals in the SQL below.
593: -- Modified the SQL string to include bind variables.This where_clause is used
594: -- to update/insert data in QA_RESULTS and QA_RESULTS_UPDATE_HISTORY.
595: -- srhariha. Thu Jul 29 00:27:59 PDT 2004.
596: where_clause := 'WHERE collection_id = '||':x_collection_id'||
597: ' AND '||'occurrence = '||':p_occurrence'||
598: ' AND '||'plan_id = '||':p_plan_id';
613: ' qa_last_updated_by = '|| ':updated_by'||', '||
614: ' last_update_login = '|| ':update_login'||', '||
615: ' txn_header_id = '|| ':txn_hdr_id';
616:
617: insert_qruh := ' INSERT INTO qa_results_update_history (creation_date,
618: last_update_date,
619: created_by,
620: last_update_login,
621: last_updated_by,
656: ELSE
657: value_string := value_string || ', ' || column_name || ' = ' || ':X' || to_char(k) || ' ';
658: END IF;
659:
660: SELECT QA_RESULTS_UPDATE_HISTORY_S.NEXTVAL INTO x_update_id FROM DUAL;
661:
662: -- Bug 3776542. Performance issue due to the use of literals in the SQL below.
663: -- Modified the string to include bind variables.
664: -- srhariha. Thu Jul 29 00:27:59 PDT 2004.
663: -- Modified the string to include bind variables.
664: -- srhariha. Thu Jul 29 00:27:59 PDT 2004.
665:
666: sql_qruh := insert_qruh|| value_qruh||':x_update_id'||', '||column_name||','||
667: ':element_id'||' FROM QA_RESULTS '||where_clause ||' )';
668:
669: -- Bug 3776542. Performance issue due to the use of literals in the SQL .
670: -- Binding the variables with corresponding values.
671: -- srhariha. Thu Jul 29 00:27:59 PDT 2004.
786: PROCEDURE enable (p_collection_id IN NUMBER ) IS
787:
788: BEGIN
789:
790: UPDATE qa_results
791: SET status=2
792: WHERE collection_id = p_collection_id;
793:
794: EXCEPTION when others then
795: raise;
796:
797: END enable;
798:
799: END qa_results_api;
800: