62: IS
63: l_count NUMBER;
64: l_next_value NUMBER;
65: l_procedure_name VARCHAR2(30) := 'Create_Seq';
66: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
67: l_proc_level NUMBER := fnd_log.level_procedure;
68:
69: CURSOR c_chk_seq_exist IS
70: SELECT
63: l_count NUMBER;
64: l_next_value NUMBER;
65: l_procedure_name VARCHAR2(30) := 'Create_Seq';
66: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
67: l_proc_level NUMBER := fnd_log.level_procedure;
68:
69: CURSOR c_chk_seq_exist IS
70: SELECT
71: COUNT(*)
75: BEGIN
76: --logging for debug
77: IF (l_proc_level >= l_dbg_level)
78: THEN
79: fnd_log.STRING(l_proc_level
80: ,g_module_prefix || l_procedure_name || '.begin'
81: ,'enter procedure');
82: END IF;
83:
121:
122: --logging for debug
123: IF (l_proc_level >= l_dbg_level)
124: THEN
125: fnd_log.STRING(l_proc_level
126: ,g_module_prefix || l_procedure_name || '.end'
127: ,'end procedure');
128: END IF;
129: END Create_Seq;
160: )
161: IS
162: l_count NUMBER;
163: l_procedure_name VARCHAR2(30) := 'Set_Nextval';
164: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
165: l_proc_level NUMBER := fnd_log.level_procedure;
166:
167: CURSOR c_chk_seq_exist IS
168: SELECT COUNT(*)
161: IS
162: l_count NUMBER;
163: l_procedure_name VARCHAR2(30) := 'Set_Nextval';
164: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
165: l_proc_level NUMBER := fnd_log.level_procedure;
166:
167: CURSOR c_chk_seq_exist IS
168: SELECT COUNT(*)
169: FROM ar_gta_batch_numbering
172: BEGIN
173: --logging for debug
174: IF (l_proc_level >= l_dbg_level)
175: THEN
176: fnd_log.STRING(l_proc_level
177: ,g_module_prefix || l_procedure_name || '.begin'
178: ,'enter procedure');
179: END IF;
180:
198:
199: --logging for debug
200: IF (l_proc_level >= l_dbg_level)
201: THEN
202: fnd_log.STRING(l_proc_level
203: ,g_module_prefix || l_procedure_name || '.end'
204: ,'end procedure');
205: END IF;
206: END Set_Nextval;
239:
240: l_batch_flag VARCHAR2(1);
241: l_next_val NUMBER;
242: l_procedure_name VARCHAR2(30) := 'next_value';
243: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
244: l_proc_level NUMBER := fnd_log.level_procedure;
245:
246: CURSOR c_autobatch IS
247: SELECT auto_batch_numbering_flag
240: l_batch_flag VARCHAR2(1);
241: l_next_val NUMBER;
242: l_procedure_name VARCHAR2(30) := 'next_value';
243: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
244: l_proc_level NUMBER := fnd_log.level_procedure;
245:
246: CURSOR c_autobatch IS
247: SELECT auto_batch_numbering_flag
248: FROM ar_gta_system_parameters
257: BEGIN
258: --logging for debug
259: IF (l_proc_level >= l_dbg_level)
260: THEN
261: fnd_log.STRING(l_proc_level
262: ,g_module_prefix || l_procedure_name || '.begin'
263: ,'enter function');
264: END IF;
265:
295:
296: --logging for debug
297: IF (l_proc_level >= l_dbg_level)
298: THEN
299: fnd_log.STRING(l_proc_level
300: ,g_module_prefix || l_procedure_name || '.end'
301: ,'end function');
302: END IF;
303: END Next_Value;
329: )
330: IS
331: l_count NUMBER;
332: l_procedure_name VARCHAR2(30) := 'next_value';
333: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
334: l_proc_level NUMBER := fnd_log.level_procedure;
335: CURSOR c_chk_seq_exist IS
336: SELECT COUNT(*)
337: FROM ar_gta_batch_numbering
330: IS
331: l_count NUMBER;
332: l_procedure_name VARCHAR2(30) := 'next_value';
333: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
334: l_proc_level NUMBER := fnd_log.level_procedure;
335: CURSOR c_chk_seq_exist IS
336: SELECT COUNT(*)
337: FROM ar_gta_batch_numbering
338: WHERE org_id = p_org_id;
340:
341: --logging for debug
342: IF (l_proc_level >= l_dbg_level)
343: THEN
344: fnd_log.STRING(l_proc_level
345: ,g_module_prefix || l_procedure_name || '.begin'
346: ,'enter procedure');
347: END IF;
348:
363:
364: --logging for debug
365: IF (l_proc_level >= l_dbg_level)
366: THEN
367: fnd_log.STRING(l_proc_level
368: ,g_module_prefix || l_procedure_name || '.end'
369: ,'end procedure');
370: END IF;
371: END Drop_Seq;
399: RETURN NUMBER
400: IS
401: l_number_value NUMBER;
402: l_procedure_name VARCHAR2(30) := 'next_value';
403: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
404: l_proc_level NUMBER := fnd_log.level_procedure;
405: BEGIN
406:
407: --logging for debug
400: IS
401: l_number_value NUMBER;
402: l_procedure_name VARCHAR2(30) := 'next_value';
403: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
404: l_proc_level NUMBER := fnd_log.level_procedure;
405: BEGIN
406:
407: --logging for debug
408: IF (l_proc_level >= l_dbg_level)
406:
407: --logging for debug
408: IF (l_proc_level >= l_dbg_level)
409: THEN
410: fnd_log.STRING(l_proc_level
411: ,g_module_prefix || l_procedure_name || '.begin'
412: ,'enter function');
413: END IF;
414:
421:
422: --logging for debug
423: IF (l_proc_level >= l_dbg_level)
424: THEN
425: fnd_log.STRING(l_proc_level
426: ,g_module_prefix || l_procedure_name || '.end'
427: ,'end function');
428: END IF;
429:
464: RETURN VARCHAR2
465: IS
466: l_count NUMBER;
467: l_procedure_name VARCHAR2(30) := 'next_value';
468: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
469: l_proc_level NUMBER := fnd_log.level_procedure;
470:
471: -- Fix bug 5291644
472: -- next batch number must large than any existing batch number
465: IS
466: l_count NUMBER;
467: l_procedure_name VARCHAR2(30) := 'next_value';
468: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
469: l_proc_level NUMBER := fnd_log.level_procedure;
470:
471: -- Fix bug 5291644
472: -- next batch number must large than any existing batch number
473: CURSOR c_gta_batch_number IS
481: BEGIN
482: --logging for debug
483: IF (l_proc_level >= l_dbg_level)
484: THEN
485: fnd_log.STRING(l_proc_level
486: ,g_module_prefix || l_procedure_name || '.begin'
487: ,'enter function');
488: END IF;
489:
493:
494: --logging for debug
495: IF (l_proc_level >= l_dbg_level)
496: THEN
497: fnd_log.STRING(l_proc_level
498: ,g_module_prefix || l_procedure_name || '.end'
499: ,'end function');
500: END IF;
501:
535: RETURN VARCHAR2
536: IS
537: l_count NUMBER;
538: l_procedure_name VARCHAR2(30) := 'next_value';
539: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
540: l_proc_level NUMBER := fnd_log.level_procedure;
541: CURSOR c_chk_seq_exist IS
542: SELECT
543: COUNT(*)
536: IS
537: l_count NUMBER;
538: l_procedure_name VARCHAR2(30) := 'next_value';
539: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
540: l_proc_level NUMBER := fnd_log.level_procedure;
541: CURSOR c_chk_seq_exist IS
542: SELECT
543: COUNT(*)
544: FROM
547: BEGIN
548: --logging for debug
549: IF (l_proc_level >= l_dbg_level)
550: THEN
551: fnd_log.STRING(l_proc_level
552: ,g_module_prefix || l_procedure_name || '.begin'
553: ,'enter function');
554: END IF;
555:
559:
560: --logging for debug
561: IF (l_proc_level >= l_dbg_level)
562: THEN
563: fnd_log.STRING(l_proc_level
564: ,g_module_prefix || l_procedure_name || '.end'
565: ,'end function');
566: END IF;
567:
600: RETURN NUMBER
601: IS
602: l_number NUMBER := -1;
603: l_procedure_name VARCHAR2(30) := 'next_value';
604: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
605: l_proc_level NUMBER := fnd_log.level_procedure;
606: CURSOR c_seq IS
607: SELECT
608: next_value
601: IS
602: l_number NUMBER := -1;
603: l_procedure_name VARCHAR2(30) := 'next_value';
604: l_dbg_level NUMBER := fnd_log.g_current_runtime_level;
605: l_proc_level NUMBER := fnd_log.level_procedure;
606: CURSOR c_seq IS
607: SELECT
608: next_value
609: FROM
612: BEGIN
613: --logging for debug
614: IF (l_proc_level >= l_dbg_level)
615: THEN
616: fnd_log.STRING(l_proc_level
617: ,g_module_prefix || l_procedure_name || '.begin'
618: ,'enter function');
619: END IF;
620:
624:
625: --logging for debug
626: IF (l_proc_level >= l_dbg_level)
627: THEN
628: fnd_log.STRING(l_proc_level
629: ,g_module_prefix || l_procedure_name || '.end'
630: ,'end function');
631: END IF;
632: