165: RETURN (1);
166: EXCEPTION
167: WHEN not_bus_day THEN
168: -- Cannot increment the day DAY because it is not a business day
169: fnd_message.set_name('SQLGL', 'GL_SCH_INC_NONBUS_DATE');
170: fnd_message.set_token('DAY', TO_CHAR(v_last_para_date, 'DD-MON-YYYY'));
171: error_buffer := fnd_message.get;
172: RETURN error_code;
173: WHEN cant_find_bus_day THEN
166: EXCEPTION
167: WHEN not_bus_day THEN
168: -- Cannot increment the day DAY because it is not a business day
169: fnd_message.set_name('SQLGL', 'GL_SCH_INC_NONBUS_DATE');
170: fnd_message.set_token('DAY', TO_CHAR(v_last_para_date, 'DD-MON-YYYY'));
171: error_buffer := fnd_message.get;
172: RETURN error_code;
173: WHEN cant_find_bus_day THEN
174: -- Cannot find a business day to use for the next request after incrementing DAY
167: WHEN not_bus_day THEN
168: -- Cannot increment the day DAY because it is not a business day
169: fnd_message.set_name('SQLGL', 'GL_SCH_INC_NONBUS_DATE');
170: fnd_message.set_token('DAY', TO_CHAR(v_last_para_date, 'DD-MON-YYYY'));
171: error_buffer := fnd_message.get;
172: RETURN error_code;
173: WHEN cant_find_bus_day THEN
174: -- Cannot find a business day to use for the next request after incrementing DAY
175: fnd_message.set_name('SQLGL', 'GL_SCH_INC_NO_NEXT_DAY');
171: error_buffer := fnd_message.get;
172: RETURN error_code;
173: WHEN cant_find_bus_day THEN
174: -- Cannot find a business day to use for the next request after incrementing DAY
175: fnd_message.set_name('SQLGL', 'GL_SCH_INC_NO_NEXT_DAY');
176: fnd_message.set_token('DAY', TO_CHAR(v_last_para_date, 'DD-MON-YYYY'));
177: error_buffer := fnd_message.get;
178: RETURN error_code;
179: WHEN OTHERS THEN
172: RETURN error_code;
173: WHEN cant_find_bus_day THEN
174: -- Cannot find a business day to use for the next request after incrementing DAY
175: fnd_message.set_name('SQLGL', 'GL_SCH_INC_NO_NEXT_DAY');
176: fnd_message.set_token('DAY', TO_CHAR(v_last_para_date, 'DD-MON-YYYY'));
177: error_buffer := fnd_message.get;
178: RETURN error_code;
179: WHEN OTHERS THEN
180: error_buffer := 'gl_srs_incrementor_api error #'
173: WHEN cant_find_bus_day THEN
174: -- Cannot find a business day to use for the next request after incrementing DAY
175: fnd_message.set_name('SQLGL', 'GL_SCH_INC_NO_NEXT_DAY');
176: fnd_message.set_token('DAY', TO_CHAR(v_last_para_date, 'DD-MON-YYYY'));
177: error_buffer := fnd_message.get;
178: RETURN error_code;
179: WHEN OTHERS THEN
180: error_buffer := 'gl_srs_incrementor_api error #'
181: || TO_CHAR(error_code)
359: EXCEPTION
360: WHEN no_period_this_run THEN
361: -- Cannot find a period to use for the next request after period increment
362: error_buffer :=
363: fnd_message.get_string('SQLGL', 'GL_SCH_INC_NO_NEXT_PERIOD');
364: RETURN (error_code);
365: WHEN OTHERS THEN
366: IF error_code = -11 THEN
367: -- Cannot increment an adjusting period
365: WHEN OTHERS THEN
366: IF error_code = -11 THEN
367: -- Cannot increment an adjusting period
368: error_buffer :=
369: fnd_message.get_string('SQLGL', 'GL_SCH_INC_ADJ_PERIOD');
370: error_buffer :=
371: SUBSTR(error_buffer, 1, 100)
372: || SUBSTR(SQLERRM, 1, 100);
373: ELSIF error_code = -12 THEN
371: SUBSTR(error_buffer, 1, 100)
372: || SUBSTR(SQLERRM, 1, 100);
373: ELSIF error_code = -12 THEN
374: -- The schedule start date DAY must map to a period in your calendar.
375: fnd_message.set_name('SQLGL', 'GL_SCH_INC_START_DAY_NO_PERIOD');
376: fnd_message.set_token(
377: 'DAY',
378: TO_CHAR(x_start_date_last_run, 'DD-MON-YYYY'));
379: error_buffer := fnd_message.get;
372: || SUBSTR(SQLERRM, 1, 100);
373: ELSIF error_code = -12 THEN
374: -- The schedule start date DAY must map to a period in your calendar.
375: fnd_message.set_name('SQLGL', 'GL_SCH_INC_START_DAY_NO_PERIOD');
376: fnd_message.set_token(
377: 'DAY',
378: TO_CHAR(x_start_date_last_run, 'DD-MON-YYYY'));
379: error_buffer := fnd_message.get;
380: error_buffer :=
375: fnd_message.set_name('SQLGL', 'GL_SCH_INC_START_DAY_NO_PERIOD');
376: fnd_message.set_token(
377: 'DAY',
378: TO_CHAR(x_start_date_last_run, 'DD-MON-YYYY'));
379: error_buffer := fnd_message.get;
380: error_buffer :=
381: SUBSTR(error_buffer, 1, 100)
382: || SUBSTR(SQLERRM, 1, 100);
383: ELSIF error_code = -13 THEN
382: || SUBSTR(SQLERRM, 1, 100);
383: ELSIF error_code = -13 THEN
384: -- The resubmission schedule start date DAY must map
385: -- to a period in your calendar.
386: fnd_message.set_name('SQLGL', 'GL_SCH_INC_RESUB_DAY_NO_PERIOD');
387: fnd_message.set_token(
388: 'DAY',
389: TO_CHAR(x_start_date_this_run, 'DD-MON-YYYY'));
390: error_buffer := fnd_message.get;
383: ELSIF error_code = -13 THEN
384: -- The resubmission schedule start date DAY must map
385: -- to a period in your calendar.
386: fnd_message.set_name('SQLGL', 'GL_SCH_INC_RESUB_DAY_NO_PERIOD');
387: fnd_message.set_token(
388: 'DAY',
389: TO_CHAR(x_start_date_this_run, 'DD-MON-YYYY'));
390: error_buffer := fnd_message.get;
391: error_buffer :=
386: fnd_message.set_name('SQLGL', 'GL_SCH_INC_RESUB_DAY_NO_PERIOD');
387: fnd_message.set_token(
388: 'DAY',
389: TO_CHAR(x_start_date_this_run, 'DD-MON-YYYY'));
390: error_buffer := fnd_message.get;
391: error_buffer :=
392: SUBSTR(error_buffer, 1, 100)
393: || SUBSTR(SQLERRM, 1, 100);
394: ELSE
439: IF fnd_resub.get_param_number(x_period_para, period_pnum) <> 0 THEN
440: error_code := -230;
441: -- Cannot get parameter number for PARA. Please check your
442: -- concurrent program definition
443: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
444: fnd_message.set_token('PARA', x_period_para);
445: error_buffer := fnd_message.get;
446: RAISE exit_fail;
447: END IF;
440: error_code := -230;
441: -- Cannot get parameter number for PARA. Please check your
442: -- concurrent program definition
443: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
444: fnd_message.set_token('PARA', x_period_para);
445: error_buffer := fnd_message.get;
446: RAISE exit_fail;
447: END IF;
448:
441: -- Cannot get parameter number for PARA. Please check your
442: -- concurrent program definition
443: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
444: fnd_message.set_token('PARA', x_period_para);
445: error_buffer := fnd_message.get;
446: RAISE exit_fail;
447: END IF;
448:
449: v_last_period := fnd_resub.get_parameter(period_pnum);
469: AND period_name = v_period;
470:
471: IF fnd_resub.get_param_number(x_je_date_para, je_date_pnum) <> 0 THEN
472: error_code := -210;
473: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
474: fnd_message.set_token('PARA', x_je_date_para);
475: error_buffer := fnd_message.get;
476: RAISE exit_fail;
477: ELSE
470:
471: IF fnd_resub.get_param_number(x_je_date_para, je_date_pnum) <> 0 THEN
472: error_code := -210;
473: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
474: fnd_message.set_token('PARA', x_je_date_para);
475: error_buffer := fnd_message.get;
476: RAISE exit_fail;
477: ELSE
478: IF fnd_resub.get_param_number(x_calc_date_para, calc_date_pnum) <> 0 THEN
471: IF fnd_resub.get_param_number(x_je_date_para, je_date_pnum) <> 0 THEN
472: error_code := -210;
473: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
474: fnd_message.set_token('PARA', x_je_date_para);
475: error_buffer := fnd_message.get;
476: RAISE exit_fail;
477: ELSE
478: IF fnd_resub.get_param_number(x_calc_date_para, calc_date_pnum) <> 0 THEN
479: error_code := -220;
476: RAISE exit_fail;
477: ELSE
478: IF fnd_resub.get_param_number(x_calc_date_para, calc_date_pnum) <> 0 THEN
479: error_code := -220;
480: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
481: fnd_message.set_token('PARA', x_calc_date_para);
482: error_buffer := fnd_message.get;
483: RAISE exit_fail;
484: END IF;
477: ELSE
478: IF fnd_resub.get_param_number(x_calc_date_para, calc_date_pnum) <> 0 THEN
479: error_code := -220;
480: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
481: fnd_message.set_token('PARA', x_calc_date_para);
482: error_buffer := fnd_message.get;
483: RAISE exit_fail;
484: END IF;
485: END IF;
478: IF fnd_resub.get_param_number(x_calc_date_para, calc_date_pnum) <> 0 THEN
479: error_code := -220;
480: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
481: fnd_message.set_token('PARA', x_calc_date_para);
482: error_buffer := fnd_message.get;
483: RAISE exit_fail;
484: END IF;
485: END IF;
486:
536: IF fnd_resub.get_param_number(x_period_para, period_pnum) <> 0 THEN
537: error_code := -100;
538: -- Cannot get parameter number for PARA. Please check your
539: -- concurrent program definition
540: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
541: fnd_message.set_token('PARA', x_period_para);
542: error_buffer := fnd_message.get;
543: RAISE exit_fail;
544: END IF;
537: error_code := -100;
538: -- Cannot get parameter number for PARA. Please check your
539: -- concurrent program definition
540: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
541: fnd_message.set_token('PARA', x_period_para);
542: error_buffer := fnd_message.get;
543: RAISE exit_fail;
544: END IF;
545:
538: -- Cannot get parameter number for PARA. Please check your
539: -- concurrent program definition
540: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
541: fnd_message.set_token('PARA', x_period_para);
542: error_buffer := fnd_message.get;
543: RAISE exit_fail;
544: END IF;
545:
546: v_last_period := fnd_resub.get_parameter(period_pnum);
610: IF fnd_resub.get_param_number(x_period_para, period_pnum) <> 0 THEN
611: error_code := -310;
612: -- Cannot get parameter number for PARA. Please check your
613: -- concurrent program definition
614: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
615: fnd_message.set_token('PARA', x_period_para);
616: error_buffer := fnd_message.get;
617: RAISE exit_fail;
618: END IF;
611: error_code := -310;
612: -- Cannot get parameter number for PARA. Please check your
613: -- concurrent program definition
614: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
615: fnd_message.set_token('PARA', x_period_para);
616: error_buffer := fnd_message.get;
617: RAISE exit_fail;
618: END IF;
619:
612: -- Cannot get parameter number for PARA. Please check your
613: -- concurrent program definition
614: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
615: fnd_message.set_token('PARA', x_period_para);
616: error_buffer := fnd_message.get;
617: RAISE exit_fail;
618: END IF;
619:
620: IF fnd_resub.get_param_number(x_je_date_para, je_date_pnum) <> 0 THEN
618: END IF;
619:
620: IF fnd_resub.get_param_number(x_je_date_para, je_date_pnum) <> 0 THEN
621: error_code := -320;
622: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
623: fnd_message.set_token('PARA', x_je_date_para);
624: error_buffer := fnd_message.get;
625: RAISE exit_fail;
626: ELSE
619:
620: IF fnd_resub.get_param_number(x_je_date_para, je_date_pnum) <> 0 THEN
621: error_code := -320;
622: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
623: fnd_message.set_token('PARA', x_je_date_para);
624: error_buffer := fnd_message.get;
625: RAISE exit_fail;
626: ELSE
627: IF fnd_resub.get_param_number(x_calc_date_para, calc_date_pnum) <> 0 THEN
620: IF fnd_resub.get_param_number(x_je_date_para, je_date_pnum) <> 0 THEN
621: error_code := -320;
622: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
623: fnd_message.set_token('PARA', x_je_date_para);
624: error_buffer := fnd_message.get;
625: RAISE exit_fail;
626: ELSE
627: IF fnd_resub.get_param_number(x_calc_date_para, calc_date_pnum) <> 0 THEN
628: error_code := -330;
625: RAISE exit_fail;
626: ELSE
627: IF fnd_resub.get_param_number(x_calc_date_para, calc_date_pnum) <> 0 THEN
628: error_code := -330;
629: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
630: fnd_message.set_token('PARA', x_calc_date_para);
631: error_buffer := fnd_message.get;
632: RAISE exit_fail;
633: END IF;
626: ELSE
627: IF fnd_resub.get_param_number(x_calc_date_para, calc_date_pnum) <> 0 THEN
628: error_code := -330;
629: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
630: fnd_message.set_token('PARA', x_calc_date_para);
631: error_buffer := fnd_message.get;
632: RAISE exit_fail;
633: END IF;
634: END IF;
627: IF fnd_resub.get_param_number(x_calc_date_para, calc_date_pnum) <> 0 THEN
628: error_code := -330;
629: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
630: fnd_message.set_token('PARA', x_calc_date_para);
631: error_buffer := fnd_message.get;
632: RAISE exit_fail;
633: END IF;
634: END IF;
635:
741:
742: IF (program_name = 'GLCRVL') THEN
743: IF fnd_resub.get_param_number('Ledger Id',ledger_pnum) <> 0 THEN
744: error_code := -31;
745: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
746: fnd_message.set_token('PARA','Ledger Id');
747: error_buffer := fnd_message.get;
748: RAISE exit_fail;
749: END IF;
742: IF (program_name = 'GLCRVL') THEN
743: IF fnd_resub.get_param_number('Ledger Id',ledger_pnum) <> 0 THEN
744: error_code := -31;
745: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
746: fnd_message.set_token('PARA','Ledger Id');
747: error_buffer := fnd_message.get;
748: RAISE exit_fail;
749: END IF;
750: v_ledger_id := fnd_resub.get_parameter(ledger_pnum);
743: IF fnd_resub.get_param_number('Ledger Id',ledger_pnum) <> 0 THEN
744: error_code := -31;
745: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
746: fnd_message.set_token('PARA','Ledger Id');
747: error_buffer := fnd_message.get;
748: RAISE exit_fail;
749: END IF;
750: v_ledger_id := fnd_resub.get_parameter(ledger_pnum);
751: increment_date('Effective Date', 'Y', 'Period', v_ledger_id);
752: increment_date('Rate Date', 'N', NULL, v_ledger_id);
753: ELSIF program_name = 'GLPRJE' THEN
754: IF fnd_resub.get_param_number('Recurring Batch Id',batch_pnum) <>0 THEN
755: error_code := -32;
756: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
757: fnd_message.set_token('PARA','Recurring Batch Id');
758: error_buffer := fnd_message.get;
759: RAISE exit_fail;
760: END IF;
753: ELSIF program_name = 'GLPRJE' THEN
754: IF fnd_resub.get_param_number('Recurring Batch Id',batch_pnum) <>0 THEN
755: error_code := -32;
756: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
757: fnd_message.set_token('PARA','Recurring Batch Id');
758: error_buffer := fnd_message.get;
759: RAISE exit_fail;
760: END IF;
761: v_batch_id := fnd_resub.get_parameter(batch_pnum);
754: IF fnd_resub.get_param_number('Recurring Batch Id',batch_pnum) <>0 THEN
755: error_code := -32;
756: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
757: fnd_message.set_token('PARA','Recurring Batch Id');
758: error_buffer := fnd_message.get;
759: RAISE exit_fail;
760: END IF;
761: v_batch_id := fnd_resub.get_parameter(batch_pnum);
762:
762:
763: IF(con_ledger_flag = 'Y') THEN
764: IF fnd_resub.get_param_number('Average Journal Flag',usage_pnum) <>0 THEN
765: error_code := -33;
766: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
767: fnd_message.set_token('PARA','Average Journal Flag');
768: error_buffer := fnd_message.get;
769: RAISE exit_fail;
770: END IF;
763: IF(con_ledger_flag = 'Y') THEN
764: IF fnd_resub.get_param_number('Average Journal Flag',usage_pnum) <>0 THEN
765: error_code := -33;
766: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
767: fnd_message.set_token('PARA','Average Journal Flag');
768: error_buffer := fnd_message.get;
769: RAISE exit_fail;
770: END IF;
771: usage_flag := fnd_resub.get_parameter(usage_pnum);
764: IF fnd_resub.get_param_number('Average Journal Flag',usage_pnum) <>0 THEN
765: error_code := -33;
766: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
767: fnd_message.set_token('PARA','Average Journal Flag');
768: error_buffer := fnd_message.get;
769: RAISE exit_fail;
770: END IF;
771: usage_flag := fnd_resub.get_parameter(usage_pnum);
772: ELSE
839: END IF;
840: ELSIF (program_name = 'GLAMAS') THEN
841: IF fnd_resub.get_param_number('allocation_batch_id',batch_pnum) <>0 THEN
842: error_code := -34;
843: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
844: fnd_message.set_token('PARA','allocation_batch_id');
845: error_buffer := fnd_message.get;
846: RAISE exit_fail;
847: END IF;
840: ELSIF (program_name = 'GLAMAS') THEN
841: IF fnd_resub.get_param_number('allocation_batch_id',batch_pnum) <>0 THEN
842: error_code := -34;
843: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
844: fnd_message.set_token('PARA','allocation_batch_id');
845: error_buffer := fnd_message.get;
846: RAISE exit_fail;
847: END IF;
848:
841: IF fnd_resub.get_param_number('allocation_batch_id',batch_pnum) <>0 THEN
842: error_code := -34;
843: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
844: fnd_message.set_token('PARA','allocation_batch_id');
845: error_buffer := fnd_message.get;
846: RAISE exit_fail;
847: END IF;
848:
849: v_batch_id := fnd_resub.get_parameter(batch_pnum);
848:
849: v_batch_id := fnd_resub.get_parameter(batch_pnum);
850: IF fnd_resub.get_param_number('ledger_override_id',ledger_pnum) <> 0 THEN
851: error_code := -35;
852: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
853: fnd_message.set_token('PARA','ledger_override_id');
854: error_buffer := fnd_message.get;
855: RAISE exit_fail;
856: END IF;
849: v_batch_id := fnd_resub.get_parameter(batch_pnum);
850: IF fnd_resub.get_param_number('ledger_override_id',ledger_pnum) <> 0 THEN
851: error_code := -35;
852: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
853: fnd_message.set_token('PARA','ledger_override_id');
854: error_buffer := fnd_message.get;
855: RAISE exit_fail;
856: END IF;
857: v_ledger_id := fnd_resub.get_parameter(ledger_pnum);
850: IF fnd_resub.get_param_number('ledger_override_id',ledger_pnum) <> 0 THEN
851: error_code := -35;
852: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
853: fnd_message.set_token('PARA','ledger_override_id');
854: error_buffer := fnd_message.get;
855: RAISE exit_fail;
856: END IF;
857: v_ledger_id := fnd_resub.get_parameter(ledger_pnum);
858:
858:
859: IF(con_ledger_flag = 'Y') THEN
860: IF fnd_resub.get_param_number('average_je_flag',usage_pnum) <>0 THEN
861: error_code := -36;
862: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
863: fnd_message.set_token('PARA','average_je_flag');
864: error_buffer := fnd_message.get;
865: RAISE exit_fail;
866: END IF;
859: IF(con_ledger_flag = 'Y') THEN
860: IF fnd_resub.get_param_number('average_je_flag',usage_pnum) <>0 THEN
861: error_code := -36;
862: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
863: fnd_message.set_token('PARA','average_je_flag');
864: error_buffer := fnd_message.get;
865: RAISE exit_fail;
866: END IF;
867: usage_flag := fnd_resub.get_parameter(usage_pnum);
860: IF fnd_resub.get_param_number('average_je_flag',usage_pnum) <>0 THEN
861: error_code := -36;
862: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
863: fnd_message.set_token('PARA','average_je_flag');
864: error_buffer := fnd_message.get;
865: RAISE exit_fail;
866: END IF;
867: usage_flag := fnd_resub.get_parameter(usage_pnum);
868: ELSE
957: END IF;
958: ELSIF program_name = 'GLALGEN' THEN
959: IF fnd_resub.get_param_number('allocation_set_id',batch_pnum)<> 0 THEN
960: error_code := -37;
961: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
962: fnd_message.set_token('PARA','allocation_set_id');
963: error_buffer := fnd_message.get;
964: RAISE exit_fail;
965: END IF;
958: ELSIF program_name = 'GLALGEN' THEN
959: IF fnd_resub.get_param_number('allocation_set_id',batch_pnum)<> 0 THEN
960: error_code := -37;
961: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
962: fnd_message.set_token('PARA','allocation_set_id');
963: error_buffer := fnd_message.get;
964: RAISE exit_fail;
965: END IF;
966:
959: IF fnd_resub.get_param_number('allocation_set_id',batch_pnum)<> 0 THEN
960: error_code := -37;
961: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
962: fnd_message.set_token('PARA','allocation_set_id');
963: error_buffer := fnd_message.get;
964: RAISE exit_fail;
965: END IF;
966:
967: v_batch_id := fnd_resub.get_parameter(batch_pnum);
967: v_batch_id := fnd_resub.get_parameter(batch_pnum);
968:
969: IF fnd_resub.get_param_number('LEDGER_ID',ledger_pnum) <>0 THEN
970: error_code := -38;
971: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
972: fnd_message.set_token('PARA','LEDGER_ID');
973: error_buffer := fnd_message.get;
974: RAISE exit_fail;
975: END IF;
968:
969: IF fnd_resub.get_param_number('LEDGER_ID',ledger_pnum) <>0 THEN
970: error_code := -38;
971: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
972: fnd_message.set_token('PARA','LEDGER_ID');
973: error_buffer := fnd_message.get;
974: RAISE exit_fail;
975: END IF;
976:
969: IF fnd_resub.get_param_number('LEDGER_ID',ledger_pnum) <>0 THEN
970: error_code := -38;
971: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
972: fnd_message.set_token('PARA','LEDGER_ID');
973: error_buffer := fnd_message.get;
974: RAISE exit_fail;
975: END IF;
976:
977: v_ledger_id := fnd_resub.get_parameter(ledger_pnum);
978:
979: IF(con_ledger_flag = 'Y') THEN
980: IF fnd_resub.get_param_number('average_journal_flag',usage_pnum) <>0 THEN
981: error_code := -39;
982: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
983: fnd_message.set_token('PARA','average_journal_flag');
984: error_buffer := fnd_message.get;
985: RAISE exit_fail;
986: END IF;
979: IF(con_ledger_flag = 'Y') THEN
980: IF fnd_resub.get_param_number('average_journal_flag',usage_pnum) <>0 THEN
981: error_code := -39;
982: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
983: fnd_message.set_token('PARA','average_journal_flag');
984: error_buffer := fnd_message.get;
985: RAISE exit_fail;
986: END IF;
987: usage_flag := fnd_resub.get_parameter(usage_pnum);
980: IF fnd_resub.get_param_number('average_journal_flag',usage_pnum) <>0 THEN
981: error_code := -39;
982: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
983: fnd_message.set_token('PARA','average_journal_flag');
984: error_buffer := fnd_message.get;
985: RAISE exit_fail;
986: END IF;
987: usage_flag := fnd_resub.get_parameter(usage_pnum);
988: ELSE
1134:
1135: ELSIF program_name = 'GLPRBE' THEN
1136: IF fnd_resub.get_param_number('Budget Batch Id',batch_pnum) <> 0 THEN
1137: error_code := -40;
1138: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
1139: fnd_message.set_token('PARA','Ledger Id');
1140: error_buffer := fnd_message.get;
1141: RAISE exit_fail;
1142: END IF;
1135: ELSIF program_name = 'GLPRBE' THEN
1136: IF fnd_resub.get_param_number('Budget Batch Id',batch_pnum) <> 0 THEN
1137: error_code := -40;
1138: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
1139: fnd_message.set_token('PARA','Ledger Id');
1140: error_buffer := fnd_message.get;
1141: RAISE exit_fail;
1142: END IF;
1143:
1136: IF fnd_resub.get_param_number('Budget Batch Id',batch_pnum) <> 0 THEN
1137: error_code := -40;
1138: fnd_message.set_name('SQLGL','GL_SCH_INC_GET_PARA_NUM');
1139: fnd_message.set_token('PARA','Ledger Id');
1140: error_buffer := fnd_message.get;
1141: RAISE exit_fail;
1142: END IF;
1143:
1144: v_batch_id := fnd_resub.get_parameter(batch_pnum);
1197: IF fnd_resub.get_param_number(x_date_para, date_pnum) <> 0 THEN
1198: error_code := -400;
1199: -- Cannot get parameter number for PARA. Please check your
1200: -- concurrent program definition
1201: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
1202: fnd_message.set_token('PARA', x_date_para);
1203: error_buffer := fnd_message.get;
1204: RAISE exit_fail;
1205: END IF;
1198: error_code := -400;
1199: -- Cannot get parameter number for PARA. Please check your
1200: -- concurrent program definition
1201: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
1202: fnd_message.set_token('PARA', x_date_para);
1203: error_buffer := fnd_message.get;
1204: RAISE exit_fail;
1205: END IF;
1206:
1199: -- Cannot get parameter number for PARA. Please check your
1200: -- concurrent program definition
1201: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
1202: fnd_message.set_token('PARA', x_date_para);
1203: error_buffer := fnd_message.get;
1204: RAISE exit_fail;
1205: END IF;
1206:
1207: temp_date := fnd_resub.get_parameter(date_pnum);
1225: AND p.adjustment_period_flag = 'N';
1226: EXCEPTION
1227: WHEN NO_DATA_FOUND THEN
1228: error_code := -410;
1229: fnd_message.set_name('SQLGL', 'GL_SCH_INC_ADJ_PERIOD');
1230: error_buffer := fnd_message.get;
1231: RAISE exit_fail;
1232: END;
1233:
1226: EXCEPTION
1227: WHEN NO_DATA_FOUND THEN
1228: error_code := -410;
1229: fnd_message.set_name('SQLGL', 'GL_SCH_INC_ADJ_PERIOD');
1230: error_buffer := fnd_message.get;
1231: RAISE exit_fail;
1232: END;
1233:
1234: IF fnd_resub.get_param_number(x_period_para, period_pnum) <> 0 THEN
1234: IF fnd_resub.get_param_number(x_period_para, period_pnum) <> 0 THEN
1235: error_code := -420;
1236: -- Cannot get parameter number for PARA. Please check your
1237: -- concurrent program definition
1238: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
1239: fnd_message.set_token('PARA', x_period_para);
1240: error_buffer := fnd_message.get;
1241: RAISE exit_fail;
1242: END IF;
1235: error_code := -420;
1236: -- Cannot get parameter number for PARA. Please check your
1237: -- concurrent program definition
1238: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
1239: fnd_message.set_token('PARA', x_period_para);
1240: error_buffer := fnd_message.get;
1241: RAISE exit_fail;
1242: END IF;
1243:
1236: -- Cannot get parameter number for PARA. Please check your
1237: -- concurrent program definition
1238: fnd_message.set_name('SQLGL', 'GL_SCH_INC_GET_PARA_NUM');
1239: fnd_message.set_token('PARA', x_period_para);
1240: error_buffer := fnd_message.get;
1241: RAISE exit_fail;
1242: END IF;
1243:
1244: fnd_resub.set_parameter(period_pnum, c_start_period);