208: p_actual_flag IN VARCHAR2,
209: p_doc_type IN VARCHAR2,
210: p_ret_status OUT NOCOPY VARCHAR2,
211: p_batch_result_code OUT NOCOPY VARCHAR2,
212: p_debug IN VARCHAR2:=FND_API.G_FALSE,
213: p_conc_proc IN VARCHAR2:=FND_API.G_FALSE
214: -- p_packet_id IN NUMBER
215: ) RETURN BOOLEAN IS
216: CURSOR c_cc_interface IS --All records for CBC from interface table
209: p_doc_type IN VARCHAR2,
210: p_ret_status OUT NOCOPY VARCHAR2,
211: p_batch_result_code OUT NOCOPY VARCHAR2,
212: p_debug IN VARCHAR2:=FND_API.G_FALSE,
213: p_conc_proc IN VARCHAR2:=FND_API.G_FALSE
214: -- p_packet_id IN NUMBER
215: ) RETURN BOOLEAN IS
216: CURSOR c_cc_interface IS --All records for CBC from interface table
217: SELECT cc_header_id,
304: g_actual_flag := p_actual_flag;
305: g_cc_header_id := p_header_id;
306: g_set_of_books_id := p_sobid ;
307: -- g_cbc_ledger_id := 2599; /*Get from GL table based on p_sobid TO DO*/
308: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(p_debug);
309: g_conc_proc := FND_API.TO_BOOLEAN(p_conc_proc);
310: /*Bug No 6341012. Need to modify the below procedure*/
311: g_doc_type := p_doc_type;
312: g_batch_result_code := 9999;
305: g_cc_header_id := p_header_id;
306: g_set_of_books_id := p_sobid ;
307: -- g_cbc_ledger_id := 2599; /*Get from GL table based on p_sobid TO DO*/
308: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(p_debug);
309: g_conc_proc := FND_API.TO_BOOLEAN(p_conc_proc);
310: /*Bug No 6341012. Need to modify the below procedure*/
311: g_doc_type := p_doc_type;
312: g_batch_result_code := 9999;
313: g_validation_error := FALSE;
338: g_cbc_enabled := IGC_LEDGER_UTILS.is_dual_bc_enabled(g_set_of_books_id);
339: IF (g_debug_mode = 'Y') THEN
340: Put_Debug_Msg(l_full_path, 'CBC Enabled Flag: ' || g_cbc_enabled);
341: END IF;
342: IF (g_debug_mode <> 'Y') AND (p_debug = FND_API.G_TRUE)
343: THEN
344: g_debug_mode := 'Y';
345: END IF;
346: IF (g_debug_mode = 'Y') THEN
389: p_cbc_flag => l_cbc_flag,
390: p_sbc_flag => l_sbc_flag
391: -- p_packet_id => g_p_packet_id
392: ) ;
393: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
394: RAISE FND_API.G_EXC_ERROR;
395: END IF;
396: g_cbc_flag := FND_API.TO_BOOLEAN(l_cbc_flag);
397: g_sbc_flag := FND_API.TO_BOOLEAN(l_sbc_flag);
390: p_sbc_flag => l_sbc_flag
391: -- p_packet_id => g_p_packet_id
392: ) ;
393: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
394: RAISE FND_API.G_EXC_ERROR;
395: END IF;
396: g_cbc_flag := FND_API.TO_BOOLEAN(l_cbc_flag);
397: g_sbc_flag := FND_API.TO_BOOLEAN(l_sbc_flag);
398: IF NOT(g_cbc_flag) AND NOT(g_sbc_flag) THEN
392: ) ;
393: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
394: RAISE FND_API.G_EXC_ERROR;
395: END IF;
396: g_cbc_flag := FND_API.TO_BOOLEAN(l_cbc_flag);
397: g_sbc_flag := FND_API.TO_BOOLEAN(l_sbc_flag);
398: IF NOT(g_cbc_flag) AND NOT(g_sbc_flag) THEN
399: --No rows - return success.
400: IF (g_debug_mode = 'Y') THEN
393: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
394: RAISE FND_API.G_EXC_ERROR;
395: END IF;
396: g_cbc_flag := FND_API.TO_BOOLEAN(l_cbc_flag);
397: g_sbc_flag := FND_API.TO_BOOLEAN(l_sbc_flag);
398: IF NOT(g_cbc_flag) AND NOT(g_sbc_flag) THEN
399: --No rows - return success.
400: IF (g_debug_mode = 'Y') THEN
401: Put_Debug_Msg(l_full_path, 'Now rows found - return success');