[Home] [Help]
343: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
344: 'GL_ACCOUNT',
345: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_segment_num) THEN
346: FND_MESSAGE.SET_NAME(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_NO_NATURAL_ACCT_SEG');
347: RAISE APP_EXCEPTION.application_exception;
348: END IF;
349:
350: --
351: -- Get the balancing segment data
355: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
356: 'GL_BALANCING',
357: JG_JOURNAL_ALLOCATIONS_PKG.G_bal_segment_num) THEN
358: FND_MESSAGE.SET_NAME(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_NO_BALANCING_SEGMENT');
359: RAISE APP_EXCEPTION.application_exception;
360: END IF;
361:
362: --
363: -- consider each segment separately
373: x_prompt => G_acct_flex_segmt_arr(j).segment_prompt,
374: x_value_set_name => G_acct_flex_segmt_arr(j).segment_vset_name)) THEN
375: FND_MESSAGE.set_name(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_MISSING_SEGMENT_INFO');
376: FND_MESSAGE.set_token('SEGMENT_NUM', TO_CHAR(j));
377: RAISE APP_EXCEPTION.application_exception;
378: ELSE
379: --
380: -- Determine the format type of the value set associated with the segment. If it is numeric, then
381: -- the low and high range values should be converted to numeric also before
775: -- then the program should be aborted
776: --
777: IF NOT JG_JOURNAL_ALLOCATIONS_PKG.valid_rule_set(l_err_msg_code, l_acct_rnge_offset) THEN
778: FND_MESSAGE.set_name(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, l_err_msg_code);
779: RAISE APP_EXCEPTION.application_exception;
780: END IF;
781:
782: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only = 'N') THEN
783: --
792: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_start_date,
793: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_end_date,
794: errbuf);
795: IF (errbuf IS NOT NULL) THEN
796: RAISE APP_EXCEPTION.application_exception;
797: END IF;
798: END IF;
799: --
800: -- Get set of books name from source set of books id for reporting purposes
810: -- Offset acct range totals are also zero-filled, so check for these also.
811: --
812: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_destn_segment_method = 'ZF' OR l_acct_rnge_offset) THEN
813: IF (NOT JG_JOURNAL_ALLOCATIONS_PKG.validate_have_zero_fills) THEN
814: RAISE APP_EXCEPTION.application_exception;
815: END IF;
816: END IF;
817:
818: JG_UTILITY_PKG.debug(TO_CHAR(SYSDATE, 'HH24:MI:SS'));
829: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_run_journal_import = 'Y' AND
830: JG_CREATE_JOURNALS_PKG.i <> 0 AND
831: JG_JOURNAL_ALLOCATIONS_PKG.G_Validate_Only = 'N') THEN
832: IF NOT JG_JOURNAL_ALLOCATIONS_PKG.run_journal_import THEN
833: RAISE APP_EXCEPTION.application_exception;
834: END IF;
835: END IF;
836: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
837: JG_UTILITY_PKG.debug( 'retcode = '||retcode);
836: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
837: JG_UTILITY_PKG.debug( 'retcode = '||retcode);
838: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.main');
839: EXCEPTION
840: WHEN APP_EXCEPTION.application_exception THEN
841: JG_UTILITY_PKG.log('< Application_Exception clause');
842: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
843: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
844: IF JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf IS NULL THEN
937:
938: JG_UTILITY_PKG.debug('retcode = '||retcode);
939: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.main');
940: EXCEPTION
941: WHEN APP_EXCEPTION.application_exception THEN
942: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
943: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
944: IF JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf IS NULL THEN
945: errbuf := FND_MESSAGE.get;