DBA Data[Home] [Help]

APPS.QA_LOCATION dependencies on DBMS_SQL

Line 8: -- dbms_sql.parse procedure. This becomes needed if the no. of

4: PROCEDURE qa_predel_validation (p_location_id in number) IS
5: --
6: -- final is the eventual dynamic SQL. I am being extremely
7: -- conservative here to make use of the array variation of
8: -- dbms_sql.parse procedure. This becomes needed if the no. of
9: -- collection plans that contain Location is more than 1,600
10: -- or so.
11: --
12: final dbms_sql.varchar2s;

Line 12: final dbms_sql.varchar2s;

8: -- dbms_sql.parse procedure. This becomes needed if the no. of
9: -- collection plans that contain Location is more than 1,600
10: -- or so.
11: --
12: final dbms_sql.varchar2s;
13: l_most_common varchar2(30);
14: loc_code hr_locations_all.location_code%TYPE; -- Incoming Location Code
15: c integer; -- Cursor
16: n integer; -- No. of rows returned

Line 73: c := dbms_sql.open_cursor;

69:
70: final(0) := 'SELECT 1 FROM qa_plan_chars qpc, qa_results qr
71: WHERE qpc.char_id = :1 AND qpc.plan_id = qr.plan_id AND :2 = ';
72:
73: c := dbms_sql.open_cursor;
74: dbms_sql.parse(c, final, 0, final.last, false, dbms_sql.native);
75: dbms_sql.bind_variable(c, ':1', qa_ss_const.LOCATION);
76: dbms_sql.bind_variable(c, ':2', loc_code);
77: n := dbms_sql.execute_and_fetch(c);

Line 74: dbms_sql.parse(c, final, 0, final.last, false, dbms_sql.native);

70: final(0) := 'SELECT 1 FROM qa_plan_chars qpc, qa_results qr
71: WHERE qpc.char_id = :1 AND qpc.plan_id = qr.plan_id AND :2 = ';
72:
73: c := dbms_sql.open_cursor;
74: dbms_sql.parse(c, final, 0, final.last, false, dbms_sql.native);
75: dbms_sql.bind_variable(c, ':1', qa_ss_const.LOCATION);
76: dbms_sql.bind_variable(c, ':2', loc_code);
77: n := dbms_sql.execute_and_fetch(c);
78: dbms_sql.close_cursor(c);

Line 75: dbms_sql.bind_variable(c, ':1', qa_ss_const.LOCATION);

71: WHERE qpc.char_id = :1 AND qpc.plan_id = qr.plan_id AND :2 = ';
72:
73: c := dbms_sql.open_cursor;
74: dbms_sql.parse(c, final, 0, final.last, false, dbms_sql.native);
75: dbms_sql.bind_variable(c, ':1', qa_ss_const.LOCATION);
76: dbms_sql.bind_variable(c, ':2', loc_code);
77: n := dbms_sql.execute_and_fetch(c);
78: dbms_sql.close_cursor(c);
79:

Line 76: dbms_sql.bind_variable(c, ':2', loc_code);

72:
73: c := dbms_sql.open_cursor;
74: dbms_sql.parse(c, final, 0, final.last, false, dbms_sql.native);
75: dbms_sql.bind_variable(c, ':1', qa_ss_const.LOCATION);
76: dbms_sql.bind_variable(c, ':2', loc_code);
77: n := dbms_sql.execute_and_fetch(c);
78: dbms_sql.close_cursor(c);
79:
80: --

Line 77: n := dbms_sql.execute_and_fetch(c);

73: c := dbms_sql.open_cursor;
74: dbms_sql.parse(c, final, 0, final.last, false, dbms_sql.native);
75: dbms_sql.bind_variable(c, ':1', qa_ss_const.LOCATION);
76: dbms_sql.bind_variable(c, ':2', loc_code);
77: n := dbms_sql.execute_and_fetch(c);
78: dbms_sql.close_cursor(c);
79:
80: --
81: -- n = 1 means yes it is being used, so we

Line 78: dbms_sql.close_cursor(c);

74: dbms_sql.parse(c, final, 0, final.last, false, dbms_sql.native);
75: dbms_sql.bind_variable(c, ':1', qa_ss_const.LOCATION);
76: dbms_sql.bind_variable(c, ':2', loc_code);
77: n := dbms_sql.execute_and_fetch(c);
78: dbms_sql.close_cursor(c);
79:
80: --
81: -- n = 1 means yes it is being used, so we
82: -- veto the deletion by raising an exception.