30: l_total NUMBER := 0;
31: l_success NUMBER := 0;
32: l_fail NUMBER := 0;
33:
34: /* variables for dbms_sql */
35: l_cursor INTEGER;
36: l_rows INTEGER;
37: l_count INTEGER;
38: l_where_clause VARCHAR2(2000) := NULL;
64: THEN
65: RAISE INCORRECT_LEASE_OPTION;
66: END IF;
67:
68: l_cursor := dbms_sql.open_cursor;
69:
70: IF p_lease_no_low IS NOT NULL AND p_lease_no_high IS NOT NULL THEN
71: l_lease_no_low := p_lease_no_low;
72: l_lease_no_high := p_lease_no_high;
98: Q_lease_details := Q_lease_details || l_where_clause;
99:
100: /*pnp_debug_pkg.log(' Q_lease_details :'||Q_lease_details);*/
101:
102: dbms_sql.parse(l_cursor, Q_lease_details, dbms_sql.native);
103:
104: IF p_lease_no_low IS NOT NULL AND p_lease_no_high IS NOT NULL THEN
105:
106: dbms_sql.bind_variable
102: dbms_sql.parse(l_cursor, Q_lease_details, dbms_sql.native);
103:
104: IF p_lease_no_low IS NOT NULL AND p_lease_no_high IS NOT NULL THEN
105:
106: dbms_sql.bind_variable
107: (l_cursor,'l_lease_no_low',l_lease_no_low );
108: dbms_sql.bind_variable
109: (l_cursor,'l_lease_no_high',l_lease_no_high );
110:
104: IF p_lease_no_low IS NOT NULL AND p_lease_no_high IS NOT NULL THEN
105:
106: dbms_sql.bind_variable
107: (l_cursor,'l_lease_no_low',l_lease_no_low );
108: dbms_sql.bind_variable
109: (l_cursor,'l_lease_no_high',l_lease_no_high );
110:
111: ELSIF p_lease_no_low IS NOT NULL AND p_lease_no_high IS NULL THEN
112: dbms_sql.bind_variable
108: dbms_sql.bind_variable
109: (l_cursor,'l_lease_no_high',l_lease_no_high );
110:
111: ELSIF p_lease_no_low IS NOT NULL AND p_lease_no_high IS NULL THEN
112: dbms_sql.bind_variable
113: (l_cursor,'l_lease_no_low',l_lease_no_low );
114:
115: ELSIF p_lease_no_high IS NOT NULL AND p_lease_no_low IS NULL THEN
116: dbms_sql.bind_variable
112: dbms_sql.bind_variable
113: (l_cursor,'l_lease_no_low',l_lease_no_low );
114:
115: ELSIF p_lease_no_high IS NOT NULL AND p_lease_no_low IS NULL THEN
116: dbms_sql.bind_variable
117: (l_cursor,'l_lease_no_high',l_lease_no_high );
118: END IF;
119:
120: dbms_sql.define_column (l_cursor, 1,l_lease_id);
116: dbms_sql.bind_variable
117: (l_cursor,'l_lease_no_high',l_lease_no_high );
118: END IF;
119:
120: dbms_sql.define_column (l_cursor, 1,l_lease_id);
121: dbms_sql.define_column (l_cursor, 2,l_lease_status,30);
122: dbms_sql.define_column (l_cursor, 3,l_status,1);
123: dbms_sql.define_column (l_cursor, 4,l_old_ext_dt);
124: dbms_sql.define_column (l_cursor, 5,l_lease_change_id);
117: (l_cursor,'l_lease_no_high',l_lease_no_high );
118: END IF;
119:
120: dbms_sql.define_column (l_cursor, 1,l_lease_id);
121: dbms_sql.define_column (l_cursor, 2,l_lease_status,30);
122: dbms_sql.define_column (l_cursor, 3,l_status,1);
123: dbms_sql.define_column (l_cursor, 4,l_old_ext_dt);
124: dbms_sql.define_column (l_cursor, 5,l_lease_change_id);
125:
118: END IF;
119:
120: dbms_sql.define_column (l_cursor, 1,l_lease_id);
121: dbms_sql.define_column (l_cursor, 2,l_lease_status,30);
122: dbms_sql.define_column (l_cursor, 3,l_status,1);
123: dbms_sql.define_column (l_cursor, 4,l_old_ext_dt);
124: dbms_sql.define_column (l_cursor, 5,l_lease_change_id);
125:
126: l_rows := dbms_sql.execute(l_cursor);
119:
120: dbms_sql.define_column (l_cursor, 1,l_lease_id);
121: dbms_sql.define_column (l_cursor, 2,l_lease_status,30);
122: dbms_sql.define_column (l_cursor, 3,l_status,1);
123: dbms_sql.define_column (l_cursor, 4,l_old_ext_dt);
124: dbms_sql.define_column (l_cursor, 5,l_lease_change_id);
125:
126: l_rows := dbms_sql.execute(l_cursor);
127:
120: dbms_sql.define_column (l_cursor, 1,l_lease_id);
121: dbms_sql.define_column (l_cursor, 2,l_lease_status,30);
122: dbms_sql.define_column (l_cursor, 3,l_status,1);
123: dbms_sql.define_column (l_cursor, 4,l_old_ext_dt);
124: dbms_sql.define_column (l_cursor, 5,l_lease_change_id);
125:
126: l_rows := dbms_sql.execute(l_cursor);
127:
128: LOOP
122: dbms_sql.define_column (l_cursor, 3,l_status,1);
123: dbms_sql.define_column (l_cursor, 4,l_old_ext_dt);
124: dbms_sql.define_column (l_cursor, 5,l_lease_change_id);
125:
126: l_rows := dbms_sql.execute(l_cursor);
127:
128: LOOP
129:
130: l_count := dbms_sql.fetch_rows( l_cursor );
126: l_rows := dbms_sql.execute(l_cursor);
127:
128: LOOP
129:
130: l_count := dbms_sql.fetch_rows( l_cursor );
131: EXIT WHEN l_count <> 1;
132:
133: dbms_sql.column_value (l_cursor, 1,l_lease_id);
134: dbms_sql.column_value (l_cursor, 2,l_lease_status);
129:
130: l_count := dbms_sql.fetch_rows( l_cursor );
131: EXIT WHEN l_count <> 1;
132:
133: dbms_sql.column_value (l_cursor, 1,l_lease_id);
134: dbms_sql.column_value (l_cursor, 2,l_lease_status);
135: dbms_sql.column_value (l_cursor, 3,l_status);
136: dbms_sql.column_value (l_cursor, 4,l_old_ext_dt);
137: dbms_sql.column_value (l_cursor, 5,l_lease_change_id);
130: l_count := dbms_sql.fetch_rows( l_cursor );
131: EXIT WHEN l_count <> 1;
132:
133: dbms_sql.column_value (l_cursor, 1,l_lease_id);
134: dbms_sql.column_value (l_cursor, 2,l_lease_status);
135: dbms_sql.column_value (l_cursor, 3,l_status);
136: dbms_sql.column_value (l_cursor, 4,l_old_ext_dt);
137: dbms_sql.column_value (l_cursor, 5,l_lease_change_id);
138:
131: EXIT WHEN l_count <> 1;
132:
133: dbms_sql.column_value (l_cursor, 1,l_lease_id);
134: dbms_sql.column_value (l_cursor, 2,l_lease_status);
135: dbms_sql.column_value (l_cursor, 3,l_status);
136: dbms_sql.column_value (l_cursor, 4,l_old_ext_dt);
137: dbms_sql.column_value (l_cursor, 5,l_lease_change_id);
138:
139: BEGIN
132:
133: dbms_sql.column_value (l_cursor, 1,l_lease_id);
134: dbms_sql.column_value (l_cursor, 2,l_lease_status);
135: dbms_sql.column_value (l_cursor, 3,l_status);
136: dbms_sql.column_value (l_cursor, 4,l_old_ext_dt);
137: dbms_sql.column_value (l_cursor, 5,l_lease_change_id);
138:
139: BEGIN
140:
133: dbms_sql.column_value (l_cursor, 1,l_lease_id);
134: dbms_sql.column_value (l_cursor, 2,l_lease_status);
135: dbms_sql.column_value (l_cursor, 3,l_status);
136: dbms_sql.column_value (l_cursor, 4,l_old_ext_dt);
137: dbms_sql.column_value (l_cursor, 5,l_lease_change_id);
138:
139: BEGIN
140:
141: l_total := l_total + 1;
209: pnp_debug_pkg.put_log_msg(fnd_message.get);
210:
211: END IF;
212:
213: IF dbms_sql.is_open (l_cursor) THEN
214: dbms_sql.close_cursor (l_cursor);
215: END IF;
216:
217: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_leases +End+ (-)');
210:
211: END IF;
212:
213: IF dbms_sql.is_open (l_cursor) THEN
214: dbms_sql.close_cursor (l_cursor);
215: END IF;
216:
217: pnp_debug_pkg.log('pn_mtm_rollforward_pkg.rollforward_leases +End+ (-)');
218: EXCEPTION