129: p_actual_flag IN VARCHAR2,
130: p_doc_type IN VARCHAR2,
131: p_ret_status OUT NOCOPY VARCHAR2,
132: p_batch_result_code OUT NOCOPY VARCHAR2,
133: p_debug IN VARCHAR2:=FND_API.G_FALSE,
134: p_conc_proc IN VARCHAR2:=FND_API.G_FALSE
135: /*Commented Packet ID for SLA Uptake*/
136: -- p_packet_id IN NUMBER
137: ) RETURN BOOLEAN IS
130: p_doc_type IN VARCHAR2,
131: p_ret_status OUT NOCOPY VARCHAR2,
132: p_batch_result_code OUT NOCOPY VARCHAR2,
133: p_debug IN VARCHAR2:=FND_API.G_FALSE,
134: p_conc_proc IN VARCHAR2:=FND_API.G_FALSE
135: /*Commented Packet ID for SLA Uptake*/
136: -- p_packet_id IN NUMBER
137: ) RETURN BOOLEAN IS
138:
180: FND_MSG_PUB.initialize;
181:
182: --Initialize global variables
183:
184: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(p_debug);
185:
186: -- debug information
187:
188: -- IF (NOT IGC_MSGS_PKG.g_debug_mode) OR (upper(fnd_profile.value('IGC_DEBUG_ENABLED')) ='Y') THEN
187:
188: -- IF (NOT IGC_MSGS_PKG.g_debug_mode) OR (upper(fnd_profile.value('IGC_DEBUG_ENABLED')) ='Y') THEN
189: -- IGC_MSGS_PKG.g_debug_mode:=TRUE;
190: -- END IF;
191: /*IF (g_debug_mode <> 'Y') AND (p_debug = FND_API.G_TRUE)
192: IF(g_debug_mode <> 'Y')
193: THEN
194: g_debug_mode := 'Y';
195: END IF;*/
216:
217: --Call PA API and check setup
218: l_flag := Check_PA_BC(c_acct_info_rec.project_id);
219:
220: IF FND_API.TO_BOOLEAN(l_flag) THEN
221: IF (g_debug_mode = 'Y') THEN
222: Put_Debug_Msg(l_full_path, 'Project Bc enabled');
223: END IF;
224: l_pa_bc_required:=TRUE;
499: RETURN TRUE;
500:
501: EXCEPTION
502:
503: WHEN FND_API.G_EXC_ERROR THEN
504:
505: IF (g_debug_mode = 'Y') THEN
506: Put_Debug_Msg(l_full_path, 'Execution error occured');
507: END IF;
513:
514: p_batch_result_code := NULL;
515:
516: IF (g_excep_level >= g_debug_level ) THEN
517: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_ERROR Exception Raised');
518: END IF;
519:
520: RETURN(FALSE);
521:
518: END IF;
519:
520: RETURN(FALSE);
521:
522: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
523:
524: IF (g_debug_mode = 'Y') THEN
525: Put_Debug_Msg(l_full_path, 'Unexpected error occured');
526: END IF;
532:
533: p_batch_result_code := NULL;
534:
535: IF (g_excep_level >= g_debug_level ) THEN
536: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
537: END IF;
538:
539: RETURN(FALSE);
540:
645: -- Exception handler section for the Put_Debug_Msg procedure.
646: -- --------------------------------------------------------------------
647: EXCEPTION
648:
649: /*WHEN FND_API.G_EXC_ERROR THEN
650: RETURN;*/
651:
652: WHEN OTHERS THEN
653: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
937:
938: IF PA_BUDGET_FUND_PKG.Is_bdgt_intg_enabled (p_project_id => p_project_id,
939: p_mode => 'C' )
940: THEN
941: RETURN FND_API.G_TRUE;
942: END IF;
943:
944: RETURN FND_API.G_FALSE;
945:
940: THEN
941: RETURN FND_API.G_TRUE;
942: END IF;
943:
944: RETURN FND_API.G_FALSE;
945:
946: END Check_PA_BC;
947:
948: FUNCTION Check_PA (