195: RAISE ERROR_IN_PROGRAM;
196: END IF;
197:
198: BEGIN
199: d_sql_p := DBMS_SQL.open_cursor;
200: d_sql_stmt :=
201: 'SELECT count(*) cnt '
202: || 'FROM mtl_billing_rule_lines rule_lines, '
203: || 'mtl_billing_rule_headers_b rule_headers, '
230: END IF;
231: IF g_debug = 1 THEN
232: debug('Prepared the statment ');
233: END IF;
234: DBMS_SQL.parse(d_sql_p, d_sql_stmt, DBMS_SQL.native);
235: DBMS_SQL.define_column(d_sql_p, 1, d_space_seeded_src_used);
236: IF g_debug = 1 THEN
237: debug('Binding the variables ');
238: END IF;
231: IF g_debug = 1 THEN
232: debug('Prepared the statment ');
233: END IF;
234: DBMS_SQL.parse(d_sql_p, d_sql_stmt, DBMS_SQL.native);
235: DBMS_SQL.define_column(d_sql_p, 1, d_space_seeded_src_used);
236: IF g_debug = 1 THEN
237: debug('Binding the variables ');
238: END IF;
239:
236: IF g_debug = 1 THEN
237: debug('Binding the variables ');
238: END IF;
239:
240: DBMS_SQL.bind_variable(d_sql_p, 'OU_Id', p_OU_Id);
241: IF (p_client_id is NOT NULL) THEN
242: DBMS_SQL.bind_variable(d_sql_p, 'client_id', p_client_id);
243: END IF;
244: IF (p_rule_id is NOT NULL) THEN
238: END IF;
239:
240: DBMS_SQL.bind_variable(d_sql_p, 'OU_Id', p_OU_Id);
241: IF (p_client_id is NOT NULL) THEN
242: DBMS_SQL.bind_variable(d_sql_p, 'client_id', p_client_id);
243: END IF;
244: IF (p_rule_id is NOT NULL) THEN
245: DBMS_SQL.bind_variable(d_sql_p, 'rule_id', p_rule_id);
246: END IF;
241: IF (p_client_id is NOT NULL) THEN
242: DBMS_SQL.bind_variable(d_sql_p, 'client_id', p_client_id);
243: END IF;
244: IF (p_rule_id is NOT NULL) THEN
245: DBMS_SQL.bind_variable(d_sql_p, 'rule_id', p_rule_id);
246: END IF;
247: IF (p_contract_id is NOT NULL) THEN
248: DBMS_SQL.bind_variable(d_sql_p, 'contract_id', p_contract_id);
249: END IF;
244: IF (p_rule_id is NOT NULL) THEN
245: DBMS_SQL.bind_variable(d_sql_p, 'rule_id', p_rule_id);
246: END IF;
247: IF (p_contract_id is NOT NULL) THEN
248: DBMS_SQL.bind_variable(d_sql_p, 'contract_id', p_contract_id);
249: END IF;
250: IF (p_item_id is NOT NULL) THEN
251: DBMS_SQL.bind_variable(d_sql_p, 'item_id', p_item_id);
252: END IF;
247: IF (p_contract_id is NOT NULL) THEN
248: DBMS_SQL.bind_variable(d_sql_p, 'contract_id', p_contract_id);
249: END IF;
250: IF (p_item_id is NOT NULL) THEN
251: DBMS_SQL.bind_variable(d_sql_p, 'item_id', p_item_id);
252: END IF;
253:
254: d_sql_rows_processed := DBMS_SQL.EXECUTE(d_sql_p);
255:
250: IF (p_item_id is NOT NULL) THEN
251: DBMS_SQL.bind_variable(d_sql_p, 'item_id', p_item_id);
252: END IF;
253:
254: d_sql_rows_processed := DBMS_SQL.EXECUTE(d_sql_p);
255:
256: LOOP
257: BEGIN
258: IF (DBMS_SQL.fetch_rows(d_sql_p) > 0) THEN
254: d_sql_rows_processed := DBMS_SQL.EXECUTE(d_sql_p);
255:
256: LOOP
257: BEGIN
258: IF (DBMS_SQL.fetch_rows(d_sql_p) > 0) THEN
259: DBMS_SQL.column_value(d_sql_p, 1, d_space_seeded_src_used);
260: IF g_debug = 1 THEN
261: debug('After fetch , d_space_seeded_src_used-> '||d_space_seeded_src_used);
262: END IF;
255:
256: LOOP
257: BEGIN
258: IF (DBMS_SQL.fetch_rows(d_sql_p) > 0) THEN
259: DBMS_SQL.column_value(d_sql_p, 1, d_space_seeded_src_used);
260: IF g_debug = 1 THEN
261: debug('After fetch , d_space_seeded_src_used-> '||d_space_seeded_src_used);
262: END IF;
263: EXIT;
265: d_space_seeded_src_used := 0;
266: IF g_debug = 1 THEN
267: debug('Seeded Space source not used -> '||d_space_seeded_src_used);
268: END IF;
269: DBMS_SQL.close_cursor(d_sql_p);
270: EXIT;
271: END IF;
272: EXCEPTION
273: WHEN OTHERS THEN
276: END IF;
277: EXIT;
278: END;
279: END LOOP;
280: IF DBMS_SQL.is_open(d_sql_p) THEN
281: DBMS_SQL.close_cursor(d_sql_p);
282: END IF;
283: EXCEPTION
284: WHEN OTHERS THEN
277: EXIT;
278: END;
279: END LOOP;
280: IF DBMS_SQL.is_open(d_sql_p) THEN
281: DBMS_SQL.close_cursor(d_sql_p);
282: END IF;
283: EXCEPTION
284: WHEN OTHERS THEN
285: d_space_seeded_src_used := 0;
285: d_space_seeded_src_used := 0;
286: IF g_debug = 1 THEN
287: debug('Exception in dynamic sql for seeded space source -> '||sqlerrm);
288: END IF;
289: IF DBMS_SQL.is_open(d_sql_p) THEN
290: DBMS_SQL.close_cursor(d_sql_p);
291: END IF;
292: END;
293:
286: IF g_debug = 1 THEN
287: debug('Exception in dynamic sql for seeded space source -> '||sqlerrm);
288: END IF;
289: IF DBMS_SQL.is_open(d_sql_p) THEN
290: DBMS_SQL.close_cursor(d_sql_p);
291: END IF;
292: END;
293:
294: IF (d_space_seeded_src_used > 0) THEN
502: debug ('p_client_id -> '|| p_client_id);
503: debug ('p_item_id -> '|| p_item_id);
504: debug ('p_OU_id -> '|| p_OU_id);
505:
506: d_sql_p := DBMS_SQL.open_cursor;
507: d_sql_stmt :=
508: 'SELECT client_id, client_code, client_name, client_number, '
509: || 'contract_id, contract_number, counter_item_id, '
510: || 'last_computation_Date, net_Reading, last_reading, '
540: IF g_debug = 1 THEN
541: debug('Prepared statements for Contracts ');
542: END IF;
543:
544: DBMS_SQL.parse(d_sql_p, d_sql_stmt, DBMS_SQL.native);
545: DBMS_SQL.define_column(d_sql_p, 1, lc_client_id);
546: DBMS_SQL.define_column(d_sql_p, 2, lc_client_code, 10);
547: DBMS_SQL.define_column(d_sql_p, 3, lc_client_name, 360);
548: DBMS_SQL.define_column(d_sql_p, 4, lc_client_number, 30);
541: debug('Prepared statements for Contracts ');
542: END IF;
543:
544: DBMS_SQL.parse(d_sql_p, d_sql_stmt, DBMS_SQL.native);
545: DBMS_SQL.define_column(d_sql_p, 1, lc_client_id);
546: DBMS_SQL.define_column(d_sql_p, 2, lc_client_code, 10);
547: DBMS_SQL.define_column(d_sql_p, 3, lc_client_name, 360);
548: DBMS_SQL.define_column(d_sql_p, 4, lc_client_number, 30);
549: DBMS_SQL.define_column(d_sql_p, 5, lc_contract_id);
542: END IF;
543:
544: DBMS_SQL.parse(d_sql_p, d_sql_stmt, DBMS_SQL.native);
545: DBMS_SQL.define_column(d_sql_p, 1, lc_client_id);
546: DBMS_SQL.define_column(d_sql_p, 2, lc_client_code, 10);
547: DBMS_SQL.define_column(d_sql_p, 3, lc_client_name, 360);
548: DBMS_SQL.define_column(d_sql_p, 4, lc_client_number, 30);
549: DBMS_SQL.define_column(d_sql_p, 5, lc_contract_id);
550: DBMS_SQL.define_column(d_sql_p, 6, lc_contract_number, 120);
543:
544: DBMS_SQL.parse(d_sql_p, d_sql_stmt, DBMS_SQL.native);
545: DBMS_SQL.define_column(d_sql_p, 1, lc_client_id);
546: DBMS_SQL.define_column(d_sql_p, 2, lc_client_code, 10);
547: DBMS_SQL.define_column(d_sql_p, 3, lc_client_name, 360);
548: DBMS_SQL.define_column(d_sql_p, 4, lc_client_number, 30);
549: DBMS_SQL.define_column(d_sql_p, 5, lc_contract_id);
550: DBMS_SQL.define_column(d_sql_p, 6, lc_contract_number, 120);
551: DBMS_SQL.define_column(d_sql_p, 7, lc_counter_item_id);
544: DBMS_SQL.parse(d_sql_p, d_sql_stmt, DBMS_SQL.native);
545: DBMS_SQL.define_column(d_sql_p, 1, lc_client_id);
546: DBMS_SQL.define_column(d_sql_p, 2, lc_client_code, 10);
547: DBMS_SQL.define_column(d_sql_p, 3, lc_client_name, 360);
548: DBMS_SQL.define_column(d_sql_p, 4, lc_client_number, 30);
549: DBMS_SQL.define_column(d_sql_p, 5, lc_contract_id);
550: DBMS_SQL.define_column(d_sql_p, 6, lc_contract_number, 120);
551: DBMS_SQL.define_column(d_sql_p, 7, lc_counter_item_id);
552: DBMS_SQL.define_column(d_sql_p, 8, lc_last_computation_Date);
545: DBMS_SQL.define_column(d_sql_p, 1, lc_client_id);
546: DBMS_SQL.define_column(d_sql_p, 2, lc_client_code, 10);
547: DBMS_SQL.define_column(d_sql_p, 3, lc_client_name, 360);
548: DBMS_SQL.define_column(d_sql_p, 4, lc_client_number, 30);
549: DBMS_SQL.define_column(d_sql_p, 5, lc_contract_id);
550: DBMS_SQL.define_column(d_sql_p, 6, lc_contract_number, 120);
551: DBMS_SQL.define_column(d_sql_p, 7, lc_counter_item_id);
552: DBMS_SQL.define_column(d_sql_p, 8, lc_last_computation_Date);
553: DBMS_SQL.define_column(d_sql_p, 9, lc_net_Reading);
546: DBMS_SQL.define_column(d_sql_p, 2, lc_client_code, 10);
547: DBMS_SQL.define_column(d_sql_p, 3, lc_client_name, 360);
548: DBMS_SQL.define_column(d_sql_p, 4, lc_client_number, 30);
549: DBMS_SQL.define_column(d_sql_p, 5, lc_contract_id);
550: DBMS_SQL.define_column(d_sql_p, 6, lc_contract_number, 120);
551: DBMS_SQL.define_column(d_sql_p, 7, lc_counter_item_id);
552: DBMS_SQL.define_column(d_sql_p, 8, lc_last_computation_Date);
553: DBMS_SQL.define_column(d_sql_p, 9, lc_net_Reading);
554: DBMS_SQL.define_column(d_sql_p, 10, lc_last_reading);
547: DBMS_SQL.define_column(d_sql_p, 3, lc_client_name, 360);
548: DBMS_SQL.define_column(d_sql_p, 4, lc_client_number, 30);
549: DBMS_SQL.define_column(d_sql_p, 5, lc_contract_id);
550: DBMS_SQL.define_column(d_sql_p, 6, lc_contract_number, 120);
551: DBMS_SQL.define_column(d_sql_p, 7, lc_counter_item_id);
552: DBMS_SQL.define_column(d_sql_p, 8, lc_last_computation_Date);
553: DBMS_SQL.define_column(d_sql_p, 9, lc_net_Reading);
554: DBMS_SQL.define_column(d_sql_p, 10, lc_last_reading);
555: DBMS_SQL.define_column(d_sql_p, 11, lc_billing_uom, 3);
548: DBMS_SQL.define_column(d_sql_p, 4, lc_client_number, 30);
549: DBMS_SQL.define_column(d_sql_p, 5, lc_contract_id);
550: DBMS_SQL.define_column(d_sql_p, 6, lc_contract_number, 120);
551: DBMS_SQL.define_column(d_sql_p, 7, lc_counter_item_id);
552: DBMS_SQL.define_column(d_sql_p, 8, lc_last_computation_Date);
553: DBMS_SQL.define_column(d_sql_p, 9, lc_net_Reading);
554: DBMS_SQL.define_column(d_sql_p, 10, lc_last_reading);
555: DBMS_SQL.define_column(d_sql_p, 11, lc_billing_uom, 3);
556: DBMS_SQL.define_column(d_sql_p, 12, lc_service_item_org_id, 200);
549: DBMS_SQL.define_column(d_sql_p, 5, lc_contract_id);
550: DBMS_SQL.define_column(d_sql_p, 6, lc_contract_number, 120);
551: DBMS_SQL.define_column(d_sql_p, 7, lc_counter_item_id);
552: DBMS_SQL.define_column(d_sql_p, 8, lc_last_computation_Date);
553: DBMS_SQL.define_column(d_sql_p, 9, lc_net_Reading);
554: DBMS_SQL.define_column(d_sql_p, 10, lc_last_reading);
555: DBMS_SQL.define_column(d_sql_p, 11, lc_billing_uom, 3);
556: DBMS_SQL.define_column(d_sql_p, 12, lc_service_item_org_id, 200);
557: DBMS_SQL.define_column(d_sql_p, 13, lc_billing_source_id);
550: DBMS_SQL.define_column(d_sql_p, 6, lc_contract_number, 120);
551: DBMS_SQL.define_column(d_sql_p, 7, lc_counter_item_id);
552: DBMS_SQL.define_column(d_sql_p, 8, lc_last_computation_Date);
553: DBMS_SQL.define_column(d_sql_p, 9, lc_net_Reading);
554: DBMS_SQL.define_column(d_sql_p, 10, lc_last_reading);
555: DBMS_SQL.define_column(d_sql_p, 11, lc_billing_uom, 3);
556: DBMS_SQL.define_column(d_sql_p, 12, lc_service_item_org_id, 200);
557: DBMS_SQL.define_column(d_sql_p, 13, lc_billing_source_id);
558: DBMS_SQL.define_column(d_sql_p, 14, lc_billing_source_name, 80);
551: DBMS_SQL.define_column(d_sql_p, 7, lc_counter_item_id);
552: DBMS_SQL.define_column(d_sql_p, 8, lc_last_computation_Date);
553: DBMS_SQL.define_column(d_sql_p, 9, lc_net_Reading);
554: DBMS_SQL.define_column(d_sql_p, 10, lc_last_reading);
555: DBMS_SQL.define_column(d_sql_p, 11, lc_billing_uom, 3);
556: DBMS_SQL.define_column(d_sql_p, 12, lc_service_item_org_id, 200);
557: DBMS_SQL.define_column(d_sql_p, 13, lc_billing_source_id);
558: DBMS_SQL.define_column(d_sql_p, 14, lc_billing_source_name, 80);
559: DBMS_SQL.define_column(d_sql_p, 15, lc_service_line_start_date);
552: DBMS_SQL.define_column(d_sql_p, 8, lc_last_computation_Date);
553: DBMS_SQL.define_column(d_sql_p, 9, lc_net_Reading);
554: DBMS_SQL.define_column(d_sql_p, 10, lc_last_reading);
555: DBMS_SQL.define_column(d_sql_p, 11, lc_billing_uom, 3);
556: DBMS_SQL.define_column(d_sql_p, 12, lc_service_item_org_id, 200);
557: DBMS_SQL.define_column(d_sql_p, 13, lc_billing_source_id);
558: DBMS_SQL.define_column(d_sql_p, 14, lc_billing_source_name, 80);
559: DBMS_SQL.define_column(d_sql_p, 15, lc_service_line_start_date);
560: DBMS_SQL.define_column(d_sql_p, 16, lc_service_line_end_date);
553: DBMS_SQL.define_column(d_sql_p, 9, lc_net_Reading);
554: DBMS_SQL.define_column(d_sql_p, 10, lc_last_reading);
555: DBMS_SQL.define_column(d_sql_p, 11, lc_billing_uom, 3);
556: DBMS_SQL.define_column(d_sql_p, 12, lc_service_item_org_id, 200);
557: DBMS_SQL.define_column(d_sql_p, 13, lc_billing_source_id);
558: DBMS_SQL.define_column(d_sql_p, 14, lc_billing_source_name, 80);
559: DBMS_SQL.define_column(d_sql_p, 15, lc_service_line_start_date);
560: DBMS_SQL.define_column(d_sql_p, 16, lc_service_line_end_date);
561:
554: DBMS_SQL.define_column(d_sql_p, 10, lc_last_reading);
555: DBMS_SQL.define_column(d_sql_p, 11, lc_billing_uom, 3);
556: DBMS_SQL.define_column(d_sql_p, 12, lc_service_item_org_id, 200);
557: DBMS_SQL.define_column(d_sql_p, 13, lc_billing_source_id);
558: DBMS_SQL.define_column(d_sql_p, 14, lc_billing_source_name, 80);
559: DBMS_SQL.define_column(d_sql_p, 15, lc_service_line_start_date);
560: DBMS_SQL.define_column(d_sql_p, 16, lc_service_line_end_date);
561:
562: IF g_debug = 1 THEN
555: DBMS_SQL.define_column(d_sql_p, 11, lc_billing_uom, 3);
556: DBMS_SQL.define_column(d_sql_p, 12, lc_service_item_org_id, 200);
557: DBMS_SQL.define_column(d_sql_p, 13, lc_billing_source_id);
558: DBMS_SQL.define_column(d_sql_p, 14, lc_billing_source_name, 80);
559: DBMS_SQL.define_column(d_sql_p, 15, lc_service_line_start_date);
560: DBMS_SQL.define_column(d_sql_p, 16, lc_service_line_end_date);
561:
562: IF g_debug = 1 THEN
563: debug('Bind the variables');
556: DBMS_SQL.define_column(d_sql_p, 12, lc_service_item_org_id, 200);
557: DBMS_SQL.define_column(d_sql_p, 13, lc_billing_source_id);
558: DBMS_SQL.define_column(d_sql_p, 14, lc_billing_source_name, 80);
559: DBMS_SQL.define_column(d_sql_p, 15, lc_service_line_start_date);
560: DBMS_SQL.define_column(d_sql_p, 16, lc_service_line_end_date);
561:
562: IF g_debug = 1 THEN
563: debug('Bind the variables');
564: END IF;
562: IF g_debug = 1 THEN
563: debug('Bind the variables');
564: END IF;
565:
566: DBMS_SQL.bind_variable(d_sql_p, 'OU_Id', p_OU_Id);
567: IF (p_client_id is NOT NULL) THEN
568: DBMS_SQL.bind_variable(d_sql_p, 'client_id', p_client_id);
569: END IF;
570: IF (p_rule_id is NOT NULL) THEN
564: END IF;
565:
566: DBMS_SQL.bind_variable(d_sql_p, 'OU_Id', p_OU_Id);
567: IF (p_client_id is NOT NULL) THEN
568: DBMS_SQL.bind_variable(d_sql_p, 'client_id', p_client_id);
569: END IF;
570: IF (p_rule_id is NOT NULL) THEN
571: DBMS_SQL.bind_variable(d_sql_p, 'rule_id', p_rule_id);
572: END IF;
567: IF (p_client_id is NOT NULL) THEN
568: DBMS_SQL.bind_variable(d_sql_p, 'client_id', p_client_id);
569: END IF;
570: IF (p_rule_id is NOT NULL) THEN
571: DBMS_SQL.bind_variable(d_sql_p, 'rule_id', p_rule_id);
572: END IF;
573: IF (p_contract_id is NOT NULL) THEN
574: DBMS_SQL.bind_variable(d_sql_p, 'contract_id', p_contract_id);
575: END IF;
570: IF (p_rule_id is NOT NULL) THEN
571: DBMS_SQL.bind_variable(d_sql_p, 'rule_id', p_rule_id);
572: END IF;
573: IF (p_contract_id is NOT NULL) THEN
574: DBMS_SQL.bind_variable(d_sql_p, 'contract_id', p_contract_id);
575: END IF;
576: IF (p_item_id is NOT NULL) THEN
577: DBMS_SQL.bind_variable(d_sql_p, 'item_id', p_item_id);
578: END IF;
573: IF (p_contract_id is NOT NULL) THEN
574: DBMS_SQL.bind_variable(d_sql_p, 'contract_id', p_contract_id);
575: END IF;
576: IF (p_item_id is NOT NULL) THEN
577: DBMS_SQL.bind_variable(d_sql_p, 'item_id', p_item_id);
578: END IF;
579: d_sql_rows_processed := DBMS_SQL.EXECUTE(d_sql_p);
580:
581: IF g_debug = 1 THEN
575: END IF;
576: IF (p_item_id is NOT NULL) THEN
577: DBMS_SQL.bind_variable(d_sql_p, 'item_id', p_item_id);
578: END IF;
579: d_sql_rows_processed := DBMS_SQL.EXECUTE(d_sql_p);
580:
581: IF g_debug = 1 THEN
582: debug('Fetched ref cursor');
583: END IF;
582: debug('Fetched ref cursor');
583: END IF;
584:
585: LOOP
586: IF dbms_sql.fetch_rows(d_sql_p) = 0 THEN
587: EXIT;
588: END IF;
589:
590: dbms_sql.column_value(d_sql_p,1,v_client_id);
586: IF dbms_sql.fetch_rows(d_sql_p) = 0 THEN
587: EXIT;
588: END IF;
589:
590: dbms_sql.column_value(d_sql_p,1,v_client_id);
591: dbms_sql.column_value(d_sql_p,2,v_client_code);
592: dbms_sql.column_value(d_sql_p,3,v_client_name);
593: dbms_sql.column_value(d_sql_p,4,v_client_number);
594: dbms_sql.column_value(d_sql_p,5,v_contract_id);
587: EXIT;
588: END IF;
589:
590: dbms_sql.column_value(d_sql_p,1,v_client_id);
591: dbms_sql.column_value(d_sql_p,2,v_client_code);
592: dbms_sql.column_value(d_sql_p,3,v_client_name);
593: dbms_sql.column_value(d_sql_p,4,v_client_number);
594: dbms_sql.column_value(d_sql_p,5,v_contract_id);
595: dbms_sql.column_value(d_sql_p,6,v_contract_number);
588: END IF;
589:
590: dbms_sql.column_value(d_sql_p,1,v_client_id);
591: dbms_sql.column_value(d_sql_p,2,v_client_code);
592: dbms_sql.column_value(d_sql_p,3,v_client_name);
593: dbms_sql.column_value(d_sql_p,4,v_client_number);
594: dbms_sql.column_value(d_sql_p,5,v_contract_id);
595: dbms_sql.column_value(d_sql_p,6,v_contract_number);
596: dbms_sql.column_value(d_sql_p,7,v_counter_item_id);
589:
590: dbms_sql.column_value(d_sql_p,1,v_client_id);
591: dbms_sql.column_value(d_sql_p,2,v_client_code);
592: dbms_sql.column_value(d_sql_p,3,v_client_name);
593: dbms_sql.column_value(d_sql_p,4,v_client_number);
594: dbms_sql.column_value(d_sql_p,5,v_contract_id);
595: dbms_sql.column_value(d_sql_p,6,v_contract_number);
596: dbms_sql.column_value(d_sql_p,7,v_counter_item_id);
597: dbms_sql.column_value(d_sql_p,8,v_last_computation_Date);
590: dbms_sql.column_value(d_sql_p,1,v_client_id);
591: dbms_sql.column_value(d_sql_p,2,v_client_code);
592: dbms_sql.column_value(d_sql_p,3,v_client_name);
593: dbms_sql.column_value(d_sql_p,4,v_client_number);
594: dbms_sql.column_value(d_sql_p,5,v_contract_id);
595: dbms_sql.column_value(d_sql_p,6,v_contract_number);
596: dbms_sql.column_value(d_sql_p,7,v_counter_item_id);
597: dbms_sql.column_value(d_sql_p,8,v_last_computation_Date);
598: dbms_sql.column_value(d_sql_p,9,v_net_Reading);
591: dbms_sql.column_value(d_sql_p,2,v_client_code);
592: dbms_sql.column_value(d_sql_p,3,v_client_name);
593: dbms_sql.column_value(d_sql_p,4,v_client_number);
594: dbms_sql.column_value(d_sql_p,5,v_contract_id);
595: dbms_sql.column_value(d_sql_p,6,v_contract_number);
596: dbms_sql.column_value(d_sql_p,7,v_counter_item_id);
597: dbms_sql.column_value(d_sql_p,8,v_last_computation_Date);
598: dbms_sql.column_value(d_sql_p,9,v_net_Reading);
599: dbms_sql.column_value(d_sql_p,10,v_last_reading);
592: dbms_sql.column_value(d_sql_p,3,v_client_name);
593: dbms_sql.column_value(d_sql_p,4,v_client_number);
594: dbms_sql.column_value(d_sql_p,5,v_contract_id);
595: dbms_sql.column_value(d_sql_p,6,v_contract_number);
596: dbms_sql.column_value(d_sql_p,7,v_counter_item_id);
597: dbms_sql.column_value(d_sql_p,8,v_last_computation_Date);
598: dbms_sql.column_value(d_sql_p,9,v_net_Reading);
599: dbms_sql.column_value(d_sql_p,10,v_last_reading);
600: dbms_sql.column_value(d_sql_p,11,v_billing_uom);
593: dbms_sql.column_value(d_sql_p,4,v_client_number);
594: dbms_sql.column_value(d_sql_p,5,v_contract_id);
595: dbms_sql.column_value(d_sql_p,6,v_contract_number);
596: dbms_sql.column_value(d_sql_p,7,v_counter_item_id);
597: dbms_sql.column_value(d_sql_p,8,v_last_computation_Date);
598: dbms_sql.column_value(d_sql_p,9,v_net_Reading);
599: dbms_sql.column_value(d_sql_p,10,v_last_reading);
600: dbms_sql.column_value(d_sql_p,11,v_billing_uom);
601: dbms_sql.column_value(d_sql_p,12,v_service_item_org_id);
594: dbms_sql.column_value(d_sql_p,5,v_contract_id);
595: dbms_sql.column_value(d_sql_p,6,v_contract_number);
596: dbms_sql.column_value(d_sql_p,7,v_counter_item_id);
597: dbms_sql.column_value(d_sql_p,8,v_last_computation_Date);
598: dbms_sql.column_value(d_sql_p,9,v_net_Reading);
599: dbms_sql.column_value(d_sql_p,10,v_last_reading);
600: dbms_sql.column_value(d_sql_p,11,v_billing_uom);
601: dbms_sql.column_value(d_sql_p,12,v_service_item_org_id);
602: dbms_sql.column_value(d_sql_p,13,v_billing_source_id);
595: dbms_sql.column_value(d_sql_p,6,v_contract_number);
596: dbms_sql.column_value(d_sql_p,7,v_counter_item_id);
597: dbms_sql.column_value(d_sql_p,8,v_last_computation_Date);
598: dbms_sql.column_value(d_sql_p,9,v_net_Reading);
599: dbms_sql.column_value(d_sql_p,10,v_last_reading);
600: dbms_sql.column_value(d_sql_p,11,v_billing_uom);
601: dbms_sql.column_value(d_sql_p,12,v_service_item_org_id);
602: dbms_sql.column_value(d_sql_p,13,v_billing_source_id);
603: dbms_sql.column_value(d_sql_p,14,v_billing_source_name);
596: dbms_sql.column_value(d_sql_p,7,v_counter_item_id);
597: dbms_sql.column_value(d_sql_p,8,v_last_computation_Date);
598: dbms_sql.column_value(d_sql_p,9,v_net_Reading);
599: dbms_sql.column_value(d_sql_p,10,v_last_reading);
600: dbms_sql.column_value(d_sql_p,11,v_billing_uom);
601: dbms_sql.column_value(d_sql_p,12,v_service_item_org_id);
602: dbms_sql.column_value(d_sql_p,13,v_billing_source_id);
603: dbms_sql.column_value(d_sql_p,14,v_billing_source_name);
604: dbms_sql.column_value(d_sql_p,15,v_service_line_start_date);
597: dbms_sql.column_value(d_sql_p,8,v_last_computation_Date);
598: dbms_sql.column_value(d_sql_p,9,v_net_Reading);
599: dbms_sql.column_value(d_sql_p,10,v_last_reading);
600: dbms_sql.column_value(d_sql_p,11,v_billing_uom);
601: dbms_sql.column_value(d_sql_p,12,v_service_item_org_id);
602: dbms_sql.column_value(d_sql_p,13,v_billing_source_id);
603: dbms_sql.column_value(d_sql_p,14,v_billing_source_name);
604: dbms_sql.column_value(d_sql_p,15,v_service_line_start_date);
605: dbms_sql.column_value(d_sql_p,16,v_service_line_end_date);
598: dbms_sql.column_value(d_sql_p,9,v_net_Reading);
599: dbms_sql.column_value(d_sql_p,10,v_last_reading);
600: dbms_sql.column_value(d_sql_p,11,v_billing_uom);
601: dbms_sql.column_value(d_sql_p,12,v_service_item_org_id);
602: dbms_sql.column_value(d_sql_p,13,v_billing_source_id);
603: dbms_sql.column_value(d_sql_p,14,v_billing_source_name);
604: dbms_sql.column_value(d_sql_p,15,v_service_line_start_date);
605: dbms_sql.column_value(d_sql_p,16,v_service_line_end_date);
606:
599: dbms_sql.column_value(d_sql_p,10,v_last_reading);
600: dbms_sql.column_value(d_sql_p,11,v_billing_uom);
601: dbms_sql.column_value(d_sql_p,12,v_service_item_org_id);
602: dbms_sql.column_value(d_sql_p,13,v_billing_source_id);
603: dbms_sql.column_value(d_sql_p,14,v_billing_source_name);
604: dbms_sql.column_value(d_sql_p,15,v_service_line_start_date);
605: dbms_sql.column_value(d_sql_p,16,v_service_line_end_date);
606:
607: BEGIN
600: dbms_sql.column_value(d_sql_p,11,v_billing_uom);
601: dbms_sql.column_value(d_sql_p,12,v_service_item_org_id);
602: dbms_sql.column_value(d_sql_p,13,v_billing_source_id);
603: dbms_sql.column_value(d_sql_p,14,v_billing_source_name);
604: dbms_sql.column_value(d_sql_p,15,v_service_line_start_date);
605: dbms_sql.column_value(d_sql_p,16,v_service_line_end_date);
606:
607: BEGIN
608: SAVEPOINT process_client;
601: dbms_sql.column_value(d_sql_p,12,v_service_item_org_id);
602: dbms_sql.column_value(d_sql_p,13,v_billing_source_id);
603: dbms_sql.column_value(d_sql_p,14,v_billing_source_name);
604: dbms_sql.column_value(d_sql_p,15,v_service_line_start_date);
605: dbms_sql.column_value(d_sql_p,16,v_service_line_end_date);
606:
607: BEGIN
608: SAVEPOINT process_client;
609: fnd_message.clear;
875: debug('Committed the current record');
876: END IF;
877: END LOOP; /* Main Contract Cursor */
878:
879: IF DBMS_SQL.is_open(d_sql_p) THEN
880: DBMS_SQL.close_cursor(d_sql_p);
881: END IF;
882: RETCODE := 1;
883: IF NOT (l_success) THEN
876: END IF;
877: END LOOP; /* Main Contract Cursor */
878:
879: IF DBMS_SQL.is_open(d_sql_p) THEN
880: DBMS_SQL.close_cursor(d_sql_p);
881: END IF;
882: RETCODE := 1;
883: IF NOT (l_success) THEN
884:
901: RETURN;
902:
903: EXCEPTION
904: WHEN ERROR_IN_PROGRAM THEN
905: IF DBMS_SQL.is_open(d_sql_p) THEN
906: DBMS_SQL.close_cursor(d_sql_p);
907: END IF;
908: RETCODE := 2;
909: IF g_debug = 1 THEN
902:
903: EXCEPTION
904: WHEN ERROR_IN_PROGRAM THEN
905: IF DBMS_SQL.is_open(d_sql_p) THEN
906: DBMS_SQL.close_cursor(d_sql_p);
907: END IF;
908: RETCODE := 2;
909: IF g_debug = 1 THEN
910: debug('Error occurred - '||SQLERRM);
912: l_ret := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',ERRBUF);
913: ROLLBACK;
914: RETURN;
915: WHEN OTHERS THEN
916: IF DBMS_SQL.is_open(d_sql_p) THEN
917: DBMS_SQL.close_cursor(d_sql_p);
918: END IF;
919: RETCODE := 2;
920: IF g_debug = 1 THEN
913: ROLLBACK;
914: RETURN;
915: WHEN OTHERS THEN
916: IF DBMS_SQL.is_open(d_sql_p) THEN
917: DBMS_SQL.close_cursor(d_sql_p);
918: END IF;
919: RETCODE := 2;
920: IF g_debug = 1 THEN
921: debug(' Unexpected error occurred => '||SQLERRM);