259: -- dbms_output.put_line(substr(sql_str,1,255));
260: -- dbms_output.put_line(substr(sql_str,256,255));
261: -- dbms_output.put_line(substr(sql_str,513,255));
262:
263: cid := dbms_sql.open_cursor;
264:
265: dbms_sql.parse(cid, sql_str , dbms_sql.native);
266:
267: dbms_sql.define_column(cid,1,p_pay_record.payment_term_name,55);
261: -- dbms_output.put_line(substr(sql_str,513,255));
262:
263: cid := dbms_sql.open_cursor;
264:
265: dbms_sql.parse(cid, sql_str , dbms_sql.native);
266:
267: dbms_sql.define_column(cid,1,p_pay_record.payment_term_name,55);
268: dbms_sql.define_column(cid,2,p_pay_record.payment_term_id);
269:
263: cid := dbms_sql.open_cursor;
264:
265: dbms_sql.parse(cid, sql_str , dbms_sql.native);
266:
267: dbms_sql.define_column(cid,1,p_pay_record.payment_term_name,55);
268: dbms_sql.define_column(cid,2,p_pay_record.payment_term_id);
269:
270: IF NOT pay_name_null THEN
271:
264:
265: dbms_sql.parse(cid, sql_str , dbms_sql.native);
266:
267: dbms_sql.define_column(cid,1,p_pay_record.payment_term_name,55);
268: dbms_sql.define_column(cid,2,p_pay_record.payment_term_id);
269:
270: IF NOT pay_name_null THEN
271:
272: dbms_sql.bind_variable(cid,'v_pay_name',p_pay_record.payment_term_name);
268: dbms_sql.define_column(cid,2,p_pay_record.payment_term_id);
269:
270: IF NOT pay_name_null THEN
271:
272: dbms_sql.bind_variable(cid,'v_pay_name',p_pay_record.payment_term_name);
273:
274: END IF;
275:
276: IF NOT pay_id_null THEN
274: END IF;
275:
276: IF NOT pay_id_null THEN
277:
278: dbms_sql.bind_variable(cid,'v_pay_id',p_pay_record.payment_term_id);
279:
280: END IF;
281:
282: rows_processed := dbms_sql.execute_and_fetch(cid);
278: dbms_sql.bind_variable(cid,'v_pay_id',p_pay_record.payment_term_id);
279:
280: END IF;
281:
282: rows_processed := dbms_sql.execute_and_fetch(cid);
283:
284: IF rows_processed = 1 THEN
285:
286: IF pay_name_null THEN
283:
284: IF rows_processed = 1 THEN
285:
286: IF pay_name_null THEN
287: dbms_sql.column_value(cid,1,p_pay_record.payment_term_name);
288: END IF;
289:
290: IF pay_id_null THEN
291: dbms_sql.column_value(cid,2,p_pay_record.payment_term_id);
287: dbms_sql.column_value(cid,1,p_pay_record.payment_term_name);
288: END IF;
289:
290: IF pay_id_null THEN
291: dbms_sql.column_value(cid,2,p_pay_record.payment_term_id);
292: END IF;
293:
294: p_pay_record.error_record.error_status := 'S';
295:
302: p_pay_record.error_record.error_status := 'W';
303:
304: END IF;
305:
306: IF dbms_sql.is_open(cid) THEN
307: dbms_sql.close_cursor(cid);
308: END IF;
309:
310: EXCEPTION
303:
304: END IF;
305:
306: IF dbms_sql.is_open(cid) THEN
307: dbms_sql.close_cursor(cid);
308: END IF;
309:
310: EXCEPTION
311: WHEN others THEN
309:
310: EXCEPTION
311: WHEN others THEN
312:
313: IF dbms_sql.is_open(cid) THEN
314: dbms_sql.close_cursor(cid);
315: END IF;
316:
317: p_pay_record.error_record.error_status := 'U';
310: EXCEPTION
311: WHEN others THEN
312:
313: IF dbms_sql.is_open(cid) THEN
314: dbms_sql.close_cursor(cid);
315: END IF;
316:
317: p_pay_record.error_record.error_status := 'U';
318: p_pay_record.error_record.error_message := sqlerrm;
376: -- dbms_output.put_line(substr(X_sql_str,1,255));
377: -- dbms_output.put_line(substr(X_sql_str,256,255));
378: -- dbms_output.put_line(substr(X_sql_str,513,255));
379:
380: X_cid := dbms_sql.open_cursor;
381:
382: dbms_sql.parse(X_cid, X_sql_str , dbms_sql.native);
383:
384: dbms_sql.define_column(X_cid,1,X_start_date_active);
378: -- dbms_output.put_line(substr(X_sql_str,513,255));
379:
380: X_cid := dbms_sql.open_cursor;
381:
382: dbms_sql.parse(X_cid, X_sql_str , dbms_sql.native);
383:
384: dbms_sql.define_column(X_cid,1,X_start_date_active);
385: dbms_sql.define_column(X_cid,2,X_end_date_active);
386: dbms_sql.define_column(X_cid,3,X_enabled_flag,1);
380: X_cid := dbms_sql.open_cursor;
381:
382: dbms_sql.parse(X_cid, X_sql_str , dbms_sql.native);
383:
384: dbms_sql.define_column(X_cid,1,X_start_date_active);
385: dbms_sql.define_column(X_cid,2,X_end_date_active);
386: dbms_sql.define_column(X_cid,3,X_enabled_flag,1);
387:
388: IF NOT X_pay_name_null THEN
381:
382: dbms_sql.parse(X_cid, X_sql_str , dbms_sql.native);
383:
384: dbms_sql.define_column(X_cid,1,X_start_date_active);
385: dbms_sql.define_column(X_cid,2,X_end_date_active);
386: dbms_sql.define_column(X_cid,3,X_enabled_flag,1);
387:
388: IF NOT X_pay_name_null THEN
389:
382: dbms_sql.parse(X_cid, X_sql_str , dbms_sql.native);
383:
384: dbms_sql.define_column(X_cid,1,X_start_date_active);
385: dbms_sql.define_column(X_cid,2,X_end_date_active);
386: dbms_sql.define_column(X_cid,3,X_enabled_flag,1);
387:
388: IF NOT X_pay_name_null THEN
389:
390: dbms_sql.bind_variable(X_cid,'v_pay_name',p_pay_record.payment_term_name);
386: dbms_sql.define_column(X_cid,3,X_enabled_flag,1);
387:
388: IF NOT X_pay_name_null THEN
389:
390: dbms_sql.bind_variable(X_cid,'v_pay_name',p_pay_record.payment_term_name);
391:
392: END IF;
393:
394: IF NOT X_pay_id_null THEN
392: END IF;
393:
394: IF NOT X_pay_id_null THEN
395:
396: dbms_sql.bind_variable(X_cid,'v_pay_id',p_pay_record.payment_term_id);
397:
398: END IF;
399:
400: X_rows_processed := dbms_sql.execute_and_fetch(X_cid);
396: dbms_sql.bind_variable(X_cid,'v_pay_id',p_pay_record.payment_term_id);
397:
398: END IF;
399:
400: X_rows_processed := dbms_sql.execute_and_fetch(X_cid);
401:
402: IF X_rows_processed = 1 THEN
403:
404: dbms_sql.column_value(X_cid,1,X_start_date_active);
400: X_rows_processed := dbms_sql.execute_and_fetch(X_cid);
401:
402: IF X_rows_processed = 1 THEN
403:
404: dbms_sql.column_value(X_cid,1,X_start_date_active);
405: dbms_sql.column_value(X_cid,2,X_end_date_active);
406: dbms_sql.column_value(X_cid,3,X_enabled_flag);
407:
408: IF NOT (X_sysdate between nvl(X_start_date_active, X_sysdate -1) and
401:
402: IF X_rows_processed = 1 THEN
403:
404: dbms_sql.column_value(X_cid,1,X_start_date_active);
405: dbms_sql.column_value(X_cid,2,X_end_date_active);
406: dbms_sql.column_value(X_cid,3,X_enabled_flag);
407:
408: IF NOT (X_sysdate between nvl(X_start_date_active, X_sysdate -1) and
409: nvl(X_end_date_active, X_sysdate + 1) and
402: IF X_rows_processed = 1 THEN
403:
404: dbms_sql.column_value(X_cid,1,X_start_date_active);
405: dbms_sql.column_value(X_cid,2,X_end_date_active);
406: dbms_sql.column_value(X_cid,3,X_enabled_flag);
407:
408: IF NOT (X_sysdate between nvl(X_start_date_active, X_sysdate -1) and
409: nvl(X_end_date_active, X_sysdate + 1) and
410: nvl(X_enabled_flag,'Y') = 'Y') THEN
414: END IF;
415: p_pay_record.error_record.error_status := 'E';
416: p_pay_record.error_record.error_message := 'RCV_PAY_TERMS_DISABLED';
417:
418: IF dbms_sql.is_open(X_cid) THEN
419: dbms_sql.close_cursor(X_cid);
420: END IF;
421:
422: RETURN;
415: p_pay_record.error_record.error_status := 'E';
416: p_pay_record.error_record.error_message := 'RCV_PAY_TERMS_DISABLED';
417:
418: IF dbms_sql.is_open(X_cid) THEN
419: dbms_sql.close_cursor(X_cid);
420: END IF;
421:
422: RETURN;
423:
430:
431: p_pay_record.error_record.error_status := 'E';
432: p_pay_record.error_record.error_message := 'RCV_PAY_TERMS_ID';
433:
434: IF dbms_sql.is_open(X_cid) THEN
435: dbms_sql.close_cursor(X_cid);
436: END IF;
437:
438: RETURN;
431: p_pay_record.error_record.error_status := 'E';
432: p_pay_record.error_record.error_message := 'RCV_PAY_TERMS_ID';
433:
434: IF dbms_sql.is_open(X_cid) THEN
435: dbms_sql.close_cursor(X_cid);
436: END IF;
437:
438: RETURN;
439:
441:
442: p_pay_record.error_record.error_status := 'E';
443: p_pay_record.error_record.error_message := 'Too many rows';
444:
445: IF dbms_sql.is_open(X_cid) THEN
446: dbms_sql.close_cursor(X_cid);
447: END IF;
448:
449: RETURN;
442: p_pay_record.error_record.error_status := 'E';
443: p_pay_record.error_record.error_message := 'Too many rows';
444:
445: IF dbms_sql.is_open(X_cid) THEN
446: dbms_sql.close_cursor(X_cid);
447: END IF;
448:
449: RETURN;
450:
449: RETURN;
450:
451: END IF;
452:
453: IF dbms_sql.is_open(X_cid) THEN
454: dbms_sql.close_cursor(X_cid);
455: END IF;
456:
457: EXCEPTION
450:
451: END IF;
452:
453: IF dbms_sql.is_open(X_cid) THEN
454: dbms_sql.close_cursor(X_cid);
455: END IF;
456:
457: EXCEPTION
458: WHEN others THEN
455: END IF;
456:
457: EXCEPTION
458: WHEN others THEN
459: IF dbms_sql.is_open(X_cid) THEN
460: dbms_sql.close_cursor(X_cid);
461: END IF;
462:
463: p_pay_record.error_record.error_status := 'U';
456:
457: EXCEPTION
458: WHEN others THEN
459: IF dbms_sql.is_open(X_cid) THEN
460: dbms_sql.close_cursor(X_cid);
461: END IF;
462:
463: p_pay_record.error_record.error_status := 'U';
464: p_pay_record.error_record.error_message := sqlerrm;