448: IF l_budget_versions_rec.budget_version_id IS NULL THEN
449: --
450: -- invalid budget_version id
451: --
452: FND_MESSAGE.SET_NAME('PQH','PQH_INV_BDG_VERSION_ID');
453: -- APP_EXCEPTION.RAISE_EXCEPTION; /* Fix for bug 2714555 */
454: l_message_text_out := FND_MESSAGE.GET;
455: --
456: IF l_error_flag = 'Y' THEN
450: -- invalid budget_version id
451: --
452: FND_MESSAGE.SET_NAME('PQH','PQH_INV_BDG_VERSION_ID');
453: -- APP_EXCEPTION.RAISE_EXCEPTION; /* Fix for bug 2714555 */
454: l_message_text_out := FND_MESSAGE.GET;
455: --
456: IF l_error_flag = 'Y' THEN
457: --
458: -- there is already an error so append the message
478: --
479: /**
480: IF NVL(l_budget_versions_rec.gl_status,'X') <>'POST' THEN
481: --
482: FND_MESSAGE.SET_NAME('PQH','PQH_BUDGET_VERSION_NOT_POSTED');
483: APP_EXCEPTION.RAISE_EXCEPTION;
484: --
485: END IF;
486: **/
489: -- posted.
490: --
491: IF NVL(l_budget_versions_rec.commitment_gl_status,'X') = 'POST' THEN
492: --
493: FND_MESSAGE.SET_NAME('PQH','PQH_BUDGET_VER_CMMTMNT_POSTED');
494: -- APP_EXCEPTION.RAISE_EXCEPTION; /* Fix for bug 2714555 */
495: l_message_text_out := FND_MESSAGE.GET;
496: --
497: IF l_error_flag = 'Y' THEN
491: IF NVL(l_budget_versions_rec.commitment_gl_status,'X') = 'POST' THEN
492: --
493: FND_MESSAGE.SET_NAME('PQH','PQH_BUDGET_VER_CMMTMNT_POSTED');
494: -- APP_EXCEPTION.RAISE_EXCEPTION; /* Fix for bug 2714555 */
495: l_message_text_out := FND_MESSAGE.GET;
496: --
497: IF l_error_flag = 'Y' THEN
498: --
499: -- there is already an error so append the message
514: --
515: -- Raise error if the commitment for this budget version is already
516: -- posted.
517: --
518: FND_MESSAGE.SET_NAME('PQH','PQH_BDGT_VER_CMMTMNT_CALC_ERR');
519: -- APP_EXCEPTION.RAISE_EXCEPTION; /* Fix for bug 2714555 */
520: l_message_text_out := FND_MESSAGE.GET;
521: --
522: IF l_error_flag = 'Y' THEN
516: -- posted.
517: --
518: FND_MESSAGE.SET_NAME('PQH','PQH_BDGT_VER_CMMTMNT_CALC_ERR');
519: -- APP_EXCEPTION.RAISE_EXCEPTION; /* Fix for bug 2714555 */
520: l_message_text_out := FND_MESSAGE.GET;
521: --
522: IF l_error_flag = 'Y' THEN
523: --
524: -- there is already an error so append the message
579: -- Raise error if set_of_books_id IS NULL
580: --
581: IF g_set_of_books_id IS NULL THEN
582: --
583: FND_MESSAGE.SET_NAME('PQH','PQH_INVALID_GL_SET_BOOKS');
584: l_message_text_out := FND_MESSAGE.GET;
585: --
586: IF l_error_flag = 'Y' THEN
587: --
580: --
581: IF g_set_of_books_id IS NULL THEN
582: --
583: FND_MESSAGE.SET_NAME('PQH','PQH_INVALID_GL_SET_BOOKS');
584: l_message_text_out := FND_MESSAGE.GET;
585: --
586: IF l_error_flag = 'Y' THEN
587: --
588: -- there is already an error so append the message
603: -- CHECK : if g_bgt_currency_code IS NOT NULL
604: IF g_bgt_currency_code IS NULL THEN
605: -- get message text for PQH_INVALID_BGT_CURR_CODE
606: -- message : Currency Code is not defined for the budget
607: FND_MESSAGE.SET_NAME('PQH','PQH_INVALID_BGT_CURR_CODE');
608: l_message_text_out := FND_MESSAGE.GET;
609:
610: IF l_error_flag = 'Y' THEN
611: -- there is already an error so append the message
604: IF g_bgt_currency_code IS NULL THEN
605: -- get message text for PQH_INVALID_BGT_CURR_CODE
606: -- message : Currency Code is not defined for the budget
607: FND_MESSAGE.SET_NAME('PQH','PQH_INVALID_BGT_CURR_CODE');
608: l_message_text_out := FND_MESSAGE.GET;
609:
610: IF l_error_flag = 'Y' THEN
611: -- there is already an error so append the message
612:
638: IF NVL(l_transfer_to_gl_flag,'N') <> 'Y' THEN
639: --
640: IF NVL(g_transfer_to_grants_flag,'N') <> 'Y' THEN
641: --
642: FND_MESSAGE.SET_NAME('PQH','PQH_BUDGET_TRANSFER_FLAG');
643: l_message_text_out := FND_MESSAGE.GET;
644: --
645: IF l_error_flag = 'Y' THEN
646: --
639: --
640: IF NVL(g_transfer_to_grants_flag,'N') <> 'Y' THEN
641: --
642: FND_MESSAGE.SET_NAME('PQH','PQH_BUDGET_TRANSFER_FLAG');
643: l_message_text_out := FND_MESSAGE.GET;
644: --
645: IF l_error_flag = 'Y' THEN
646: --
647: -- there is already an error so append the message
668:
669: -- get message text for PQH_BUDGET_GL_MAP
670: -- message: Some of the GL segments are not mapped with cost segments.
671: -- You must map all the GL segments with cost segments
672: FND_MESSAGE.SET_NAME('PQH','PQH_BUDGET_COST_SEGMENT_NULL');
673: l_message_text_out := FND_MESSAGE.GET;
674:
675: IF l_error_flag = 'Y' THEN
676: -- there is already an error so append the message
669: -- get message text for PQH_BUDGET_GL_MAP
670: -- message: Some of the GL segments are not mapped with cost segments.
671: -- You must map all the GL segments with cost segments
672: FND_MESSAGE.SET_NAME('PQH','PQH_BUDGET_COST_SEGMENT_NULL');
673: l_message_text_out := FND_MESSAGE.GET;
674:
675: IF l_error_flag = 'Y' THEN
676: -- there is already an error so append the message
677:
698: IF NVL(l_count,0) = 0 THEN
699: -- get message text for PQH_BUDGET_GL_MAP
700: -- message : Mapping with GL segments not defined for the budget
701: --
702: FND_MESSAGE.SET_NAME('PQH','PQH_BUDGET_GL_MAP');
703: l_message_text_out := FND_MESSAGE.GET;
704:
705: IF l_error_flag = 'Y' THEN
706: --
699: -- get message text for PQH_BUDGET_GL_MAP
700: -- message : Mapping with GL segments not defined for the budget
701: --
702: FND_MESSAGE.SET_NAME('PQH','PQH_BUDGET_GL_MAP');
703: l_message_text_out := FND_MESSAGE.GET;
704:
705: IF l_error_flag = 'Y' THEN
706: --
707: -- there is already an error so append the message
734: -- CHECK : if gl_budget_version_id exists else error
735: --
736: IF g_gl_budget_version_id IS NULL THEN
737: --
738: FND_MESSAGE.SET_NAME('PQH','PQH_GL_BUDGET_INVALID');
739: l_message_text_out := FND_MESSAGE.GET;
740: --
741: IF l_error_flag = 'Y' THEN
742: --
735: --
736: IF g_gl_budget_version_id IS NULL THEN
737: --
738: FND_MESSAGE.SET_NAME('PQH','PQH_GL_BUDGET_INVALID');
739: l_message_text_out := FND_MESSAGE.GET;
740: --
741: IF l_error_flag = 'Y' THEN
742: --
743: -- there is already an error so append the message
761: fetch csr_gl_encumbrance_types into l_gl_encumbrance_type_id;
762: close csr_gl_encumbrance_types;
763: if l_gl_encumbrance_type_id is null then
764: --
765: FND_MESSAGE.SET_NAME('PQH','PQH_GL_ENC_TYP_INVALID');
766: l_message_text_out := FND_MESSAGE.GET;
767: --
768: IF l_error_flag = 'Y' THEN
769: --
762: close csr_gl_encumbrance_types;
763: if l_gl_encumbrance_type_id is null then
764: --
765: FND_MESSAGE.SET_NAME('PQH','PQH_GL_ENC_TYP_INVALID');
766: l_message_text_out := FND_MESSAGE.GET;
767: --
768: IF l_error_flag = 'Y' THEN
769: --
770: -- there is already an error so append the message
811: -- CHECK : if g_user_je_source_name IS NOT NULL
812: --
813: IF g_user_je_source_name IS NULL THEN
814: --
815: FND_MESSAGE.SET_NAME('PQH','PQH_INVALID_JE_SOURCE_NAME');
816: l_message_text_out := FND_MESSAGE.GET;
817: --
818: IF l_error_flag = 'Y' THEN
819: --
812: --
813: IF g_user_je_source_name IS NULL THEN
814: --
815: FND_MESSAGE.SET_NAME('PQH','PQH_INVALID_JE_SOURCE_NAME');
816: l_message_text_out := FND_MESSAGE.GET;
817: --
818: IF l_error_flag = 'Y' THEN
819: --
820: -- there is already an error so append the message
843: -- CHECK : if g_user_je_category_name IS NOT NULL
844: --
845: IF g_user_je_category_name IS NULL THEN
846: --
847: FND_MESSAGE.SET_NAME('PQH','PQH_INVALID_JE_CATEGORY_NAME');
848: l_message_text_out := FND_MESSAGE.GET;
849: --
850: IF l_error_flag = 'Y' THEN
851: --
844: --
845: IF g_user_je_category_name IS NULL THEN
846: --
847: FND_MESSAGE.SET_NAME('PQH','PQH_INVALID_JE_CATEGORY_NAME');
848: l_message_text_out := FND_MESSAGE.GET;
849: --
850: IF l_error_flag = 'Y' THEN
851: --
852: -- there is already an error so append the message
2088: );
2089: --
2090: -- Get the error message.
2091: --
2092: FND_MESSAGE.SET_NAME('PQH','PQH_INVALID_GL_BUDGET_PERIOD');
2093: l_message_text := FND_MESSAGE.GET;
2094: --
2095: -- insert error into process log
2096: --
2089: --
2090: -- Get the error message.
2091: --
2092: FND_MESSAGE.SET_NAME('PQH','PQH_INVALID_GL_BUDGET_PERIOD');
2093: l_message_text := FND_MESSAGE.GET;
2094: --
2095: -- insert error into process log
2096: --
2097: pqh_process_batch_log.insert_log
2146: p_level => 2,
2147: p_log_context => l_log_context
2148: );
2149: --
2150: FND_MESSAGE.SET_NAME('PQH','PQH_INVALID_GL_BUDGET_ACCOUNT');
2151: l_message_text := FND_MESSAGE.GET;
2152: --
2153: -- insert error
2154: --
2147: p_log_context => l_log_context
2148: );
2149: --
2150: FND_MESSAGE.SET_NAME('PQH','PQH_INVALID_GL_BUDGET_ACCOUNT');
2151: l_message_text := FND_MESSAGE.GET;
2152: --
2153: -- insert error
2154: --
2155: pqh_process_batch_log.insert_log
2861: --
2862: -- STEP 1: Log the Error Message
2863: -- get the error message which is populated in case of fatal error i.e l_fc_return = T
2864: --
2865: l_fc_message := fnd_message.get;
2866: --
2867: -- if the above error message is null then get from result code
2868: --
2869: IF l_fc_message IS NULL THEN
3682: --
3683: -- Raise Error , budget_version is not a CONTROL BUDGET_VERSION.
3684: --
3685: Close csr_check_budget_is_ctrlbgt;
3686: FND_MESSAGE.SET_NAME('PQH','PQH_INVALID_CTRL_BDGT_VERSION');
3687: APP_EXCEPTION.RAISE_EXCEPTION;
3688: End if;
3689:
3690: Close csr_check_budget_is_ctrlbgt;
4686: --
4687: hr_utility.set_message(8302,'PQH_TR_GMS_IMP_FAILED');
4688: populate_globals_error
4689: (
4690: p_message_text => FND_MESSAGE.get
4691: );
4692: RAISE g_error_exception;
4693: --
4694: ELSE
5008: IF not l_call_status THEN
5009: hr_utility.set_message(8302,'PQH_TR_GMS_IMP_FAILED');
5010: populate_globals_error
5011: (
5012: p_message_text => FND_MESSAGE.get
5013: );
5014: RAISE g_error_exception;
5015: END IF;
5016: END IF;
5024: hr_utility.set_message_token('VALUE',l_value);
5025: hr_utility.set_message_token('TABLE',l_table);
5026: populate_globals_error
5027: (
5028: p_message_text => FND_MESSAGE.get
5029: );
5030: RAISE g_error_exception;
5031:
5032: WHEN tran_setup_exception THEN
5051: -- insert error
5052: pqh_process_batch_log.insert_log
5053: (
5054: p_message_type_cd => 'ERROR',
5055: p_message_text => fnd_message.get
5056: );
5057: RAISE g_error_exception;
5058: WHEN g_error_exception THEN
5059: RAISE ;