87:
88: BEGIN
89:
90: -- variable p_validation_level is not used .
91: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
92:
93: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
94: THEN
95: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
89:
90: -- variable p_validation_level is not used .
91: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
92:
93: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
94: THEN
95: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
96: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.begin',
97: 'begin');
91: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
92:
93: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
94: THEN
95: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
96: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.begin',
97: 'begin');
98: END IF;
99:
120: p_gl_date => p_gl_date);
121: FETCH c_get_le_id INTO l_from_le_id;
122: CLOSE c_get_le_id;
123:
124: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
125: THEN
126: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
127: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.frm_le',
128: 'Fetched From LE Id : ' || l_from_le_id);
122: CLOSE c_get_le_id;
123:
124: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
125: THEN
126: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
127: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.frm_le',
128: 'Fetched From LE Id : ' || l_from_le_id);
129: END IF;
130:
134: p_gl_date => p_gl_date);
135: FETCH c_get_le_id INTO l_to_le_id;
136: CLOSE c_get_le_id;
137:
138: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
139: THEN
140: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
141: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.to_le',
142: 'Fetching To LE Id : ' ||l_to_le_id);
136: CLOSE c_get_le_id;
137:
138: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
139: THEN
140: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
141: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.to_le',
142: 'Fetching To LE Id : ' ||l_to_le_id);
143: END IF;
144:
170: ELSE
171: l_acct_type := 'P';
172: END IF;
173:
174: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
175: THEN
176: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
177: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.get',
178: 'Fetching intercompany account ');
172: END IF;
173:
174: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
175: THEN
176: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
177: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.get',
178: 'Fetching intercompany account ');
179: END IF;
180:
198:
199: IF l_intra_txn
200: THEN
201:
202: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
203: THEN
204: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
205: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.get',
206: 'Fetching the intracompany ccid');
200: THEN
201:
202: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
203: THEN
204: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
205: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.get',
206: 'Fetching the intracompany ccid');
207: END IF;
208:
227: -- Standard call to get message count and if count is 1, get message info.
228: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
229: p_data => x_msg_data);
230:
231: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
232: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.end', 'end');
233: END IF;
234:
235: EXCEPTION
228: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
229: p_data => x_msg_data);
230:
231: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
232: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.end', 'end');
233: END IF;
234:
235: EXCEPTION
236: WHEN FND_API.G_EXC_ERROR
234:
235: EXCEPTION
236: WHEN FND_API.G_EXC_ERROR
237: THEN
238: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
239: THEN
240: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
241: 'fun.plsql.fun_bal_pkg.get_inter_intra_account.error',
242: SUBSTR(SQLERRM,1, 4000));
236: WHEN FND_API.G_EXC_ERROR
237: THEN
238: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
239: THEN
240: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
241: 'fun.plsql.fun_bal_pkg.get_inter_intra_account.error',
242: SUBSTR(SQLERRM,1, 4000));
243: END IF;
244:
247: p_data => x_msg_data);
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
250: THEN
251: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
252: THEN
253: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
254: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.unexpected_error_norm',
255: SUBSTR(SQLCODE ||' : ' || SQLERRM,1, 4000));
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
250: THEN
251: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
252: THEN
253: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
254: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.unexpected_error_norm',
255: SUBSTR(SQLCODE ||' : ' || SQLERRM,1, 4000));
256: END IF;
257:
260: p_data => x_msg_data);
261:
262: WHEN OTHERS
263: THEN
264: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
265: THEN
266: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
267: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.unexpected_error_others',
268: SUBSTR(SQLCODE ||' : ' || SQLERRM,1, 4000));
262: WHEN OTHERS
263: THEN
264: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
265: THEN
266: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
267: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.unexpected_error_others',
268: SUBSTR(SQLCODE ||' : ' || SQLERRM,1, 4000));
269: END IF;
270:
411:
412: BEGIN
413:
414: -- variable p_validation_level is not used .
415: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
416:
417: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
418: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.begin', 'begin');
419: END IF;
413:
414: -- variable p_validation_level is not used .
415: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
416:
417: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
418: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.begin', 'begin');
419: END IF;
420:
421: -- Standard call to check for call compatibility.
414: -- variable p_validation_level is not used .
415: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
416:
417: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
418: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.begin', 'begin');
419: END IF;
420:
421: -- Standard call to check for call compatibility.
422: IF NOT FND_API.Compatible_API_Call ( l_api_version,
444: END IF;
445:
446: IF x_status = FND_API.G_RET_STS_SUCCESS
447: THEN
448: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
449: THEN
450: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
451: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.get_ccid',
452: 'Fetching the ccid');
446: IF x_status = FND_API.G_RET_STS_SUCCESS
447: THEN
448: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
449: THEN
450: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
451: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.get_ccid',
452: 'Fetching the ccid');
453: END IF;
454:
467: p_gl_date => p_gl_date);
468: FETCH c_get_ccid INTO l_setup_ccid;
469: CLOSE c_get_ccid;
470:
471: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
472: THEN
473: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
474: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.got_ccid',
475: 'Fetched the ccid : ' || l_setup_ccid);
469: CLOSE c_get_ccid;
470:
471: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level)
472: THEN
473: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
474: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.got_ccid',
475: 'Fetched the ccid : ' || l_setup_ccid);
476: END IF;
477:
483: ELSE
484: l_recip_acct_type := 'R';
485: END IF;
486:
487: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
488: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
489: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.get_recip_ccid',
490: 'Fetching the reciprocal ccid');
491: END IF;
484: l_recip_acct_type := 'R';
485: END IF;
486:
487: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
488: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
489: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.get_recip_ccid',
490: 'Fetching the reciprocal ccid');
491: END IF;
492:
499: p_gl_date => p_gl_date);
500: FETCH c_get_ccid INTO l_setup_recp_ccid ;
501: CLOSE c_get_ccid;
502:
503: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
504: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
505: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.got_recip_ccid',
506: 'Fetched the reciprocal ccid : ' || l_setup_recp_ccid);
507: END IF;
500: FETCH c_get_ccid INTO l_setup_recp_ccid ;
501: CLOSE c_get_ccid;
502:
503: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
504: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
505: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.got_recip_ccid',
506: 'Fetched the reciprocal ccid : ' || l_setup_recp_ccid);
507: END IF;
508:
542: -- Now we need to generate the new accounts by replacing the intercompany
543: -- segments and the balancing segments
544: -- First find out the segment numbers for the Balancing segment
545:
546: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
547: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
548: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.get_new_ccid',
549: 'Generating new acc using ccid : '||l_setup_ccid ||
550: 'Bal BSV :'||p_from_bsv||'IC BSV :' ||p_to_bsv);
543: -- segments and the balancing segments
544: -- First find out the segment numbers for the Balancing segment
545:
546: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
547: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
548: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.get_new_ccid',
549: 'Generating new acc using ccid : '||l_setup_ccid ||
550: 'Bal BSV :'||p_from_bsv||'IC BSV :' ||p_to_bsv);
551: END IF;
616: );
617: END IF;
618: END IF;
619:
620: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
621: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
622: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.get_new_recp_ccid',
623: 'Generating new reciprocal acc using ccid : '||l_setup_recp_ccid ||
624: 'Bal BSV :'||p_to_bsv||'IC BSV :' ||p_from_bsv);
617: END IF;
618: END IF;
619:
620: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
621: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
622: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.get_new_recp_ccid',
623: 'Generating new reciprocal acc using ccid : '||l_setup_recp_ccid ||
624: 'Bal BSV :'||p_to_bsv||'IC BSV :' ||p_from_bsv);
625: END IF;
712: -- Standard call to get message count and if count is 1, get message info.
713: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
714: p_data => x_msg_data);
715:
716: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.end', 'end');
718: END IF;
719:
720: EXCEPTION
713: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
714: p_data => x_msg_data);
715:
716: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.end', 'end');
718: END IF;
719:
720: EXCEPTION
721: WHEN FND_API.G_EXC_ERROR
719:
720: EXCEPTION
721: WHEN FND_API.G_EXC_ERROR
722: THEN
723: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
724: THEN
725: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
726: 'fun.plsql.fun_bal_pkg.get_intercompany_account.error',
727: SUBSTR(SQLERRM,1, 4000));
721: WHEN FND_API.G_EXC_ERROR
722: THEN
723: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
724: THEN
725: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
726: 'fun.plsql.fun_bal_pkg.get_intercompany_account.error',
727: SUBSTR(SQLERRM,1, 4000));
728: END IF;
729:
732: p_data => x_msg_data);
733:
734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
735: THEN
736: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
737: THEN
738: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
739: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.unexpected_error_norm',
740: SUBSTR(SQLCODE ||' : ' || SQLERRM,1, 4000));
734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
735: THEN
736: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
737: THEN
738: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
739: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.unexpected_error_norm',
740: SUBSTR(SQLCODE ||' : ' || SQLERRM,1, 4000));
741: END IF;
742:
745: p_data => x_msg_data);
746:
747: WHEN OTHERS
748: THEN
749: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
750: THEN
751: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
752: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.unexpected_error_others',
753: SUBSTR(SQLCODE ||' : ' || SQLERRM,1, 4000));
747: WHEN OTHERS
748: THEN
749: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
750: THEN
751: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
752: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.unexpected_error_others',
753: SUBSTR(SQLCODE ||' : ' || SQLERRM,1, 4000));
754: END IF;
755:
911: END IF;
912: -- Bug 7193385 End
913:
914: -- variable p_validation_level is not used .
915: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
916:
917: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
918: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.Get_Intracompany_Account.begin', 'begin');
919: END IF;
913:
914: -- variable p_validation_level is not used .
915: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
916:
917: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
918: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.Get_Intracompany_Account.begin', 'begin');
919: END IF;
920:
921: -- Standard call to check for call compatibility.
914: -- variable p_validation_level is not used .
915: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
916:
917: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
918: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.Get_Intracompany_Account.begin', 'begin');
919: END IF;
920:
921: -- Standard call to check for call compatibility.
922: IF NOT FND_API.Compatible_API_Call ( l_api_version,
935:
936: -- Initialize API return status to success
937: x_status := FND_API.G_RET_STS_SUCCESS;
938:
939: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
940: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
941: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_template',
942: 'Fetching the template id');
943:
936: -- Initialize API return status to success
937: x_status := FND_API.G_RET_STS_SUCCESS;
938:
939: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
940: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
941: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_template',
942: 'Fetching the template id');
943:
944: END IF;
958: p_category_name => l_category);
959: FETCH c_get_template INTO l_template_id;
960: CLOSE c_get_template;
961:
962: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
963: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
964: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.got_template',
965: 'Template id is '||l_template_id );
966: END IF;
959: FETCH c_get_template INTO l_template_id;
960: CLOSE c_get_template;
961:
962: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
963: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
964: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.got_template',
965: 'Template id is '||l_template_id );
966: END IF;
967:
973: END IF;
974:
975: IF x_status = FND_API.G_RET_STS_SUCCESS
976: THEN
977: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
978: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
979: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_ccid',
980: 'Fetching the ccid');
981: END IF;
974:
975: IF x_status = FND_API.G_RET_STS_SUCCESS
976: THEN
977: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
978: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
979: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_ccid',
980: 'Fetching the ccid');
981: END IF;
982:
992: p_acct_type => p_acct_type);
993: FETCH c_get_ccid INTO l_setup_ccid;
994: CLOSE c_get_ccid ;
995:
996: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
997: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
998: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.got_ccid',
999: 'Fetched the ccid : '|| l_setup_ccid);
1000: END IF;
993: FETCH c_get_ccid INTO l_setup_ccid;
994: CLOSE c_get_ccid ;
995:
996: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
997: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
998: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.got_ccid',
999: 'Fetched the ccid : '|| l_setup_ccid);
1000: END IF;
1001:
1006: ELSE
1007: l_recip_acct_type := 'D';
1008: END IF;
1009:
1010: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
1011: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1012: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_recip_ccid',
1013: 'Fetching the reciprocal ccid');
1014: END IF;
1007: l_recip_acct_type := 'D';
1008: END IF;
1009:
1010: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
1011: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1012: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_recip_ccid',
1013: 'Fetching the reciprocal ccid');
1014: END IF;
1015:
1024: p_acct_type => l_recip_acct_type);
1025: FETCH c_get_ccid INTO l_setup_recp_ccid;
1026: CLOSE c_get_ccid ;
1027:
1028: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
1029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1030: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.got_recip_ccid',
1031: 'Fetched the reciprocal ccid : ' || l_setup_recp_ccid);
1032: END IF;
1025: FETCH c_get_ccid INTO l_setup_recp_ccid;
1026: CLOSE c_get_ccid ;
1027:
1028: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
1029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1030: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.got_recip_ccid',
1031: 'Fetched the reciprocal ccid : ' || l_setup_recp_ccid);
1032: END IF;
1033:
1046: FETCH c_get_seg_num INTO l_ic_seg_num,
1047: l_dummy;
1048: CLOSE c_get_seg_num;
1049:
1050: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
1051: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1052: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_new_ccid',
1053: 'Generating new acc using ccid : '||l_setup_ccid ||
1054: 'Bal BSV :'||p_dr_bsv||'IC BSV :' ||p_cr_bsv);
1047: l_dummy;
1048: CLOSE c_get_seg_num;
1049:
1050: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
1051: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1052: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_new_ccid',
1053: 'Generating new acc using ccid : '||l_setup_ccid ||
1054: 'Bal BSV :'||p_dr_bsv||'IC BSV :' ||p_cr_bsv);
1055: END IF;
1066: bal_seg_column_number => l_bal_seg_num,
1067: intercompany_column_number => l_ic_seg_num,
1068: gl_date => p_gl_date);
1069:
1070: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
1071: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1072: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_new_recp_ccid',
1073: 'Generating new reciprocal acc using ccid : '||l_setup_recp_ccid ||
1074: 'Bal BSV :'||p_cr_bsv||'IC BSV :' ||p_dr_bsv);
1067: intercompany_column_number => l_ic_seg_num,
1068: gl_date => p_gl_date);
1069:
1070: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
1071: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1072: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_new_recp_ccid',
1073: 'Generating new reciprocal acc using ccid : '||l_setup_recp_ccid ||
1074: 'Bal BSV :'||p_cr_bsv||'IC BSV :' ||p_dr_bsv);
1075: END IF;
1099: -- Standard call to get message count and if count is 1, get message info.
1100: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1101: p_data => x_msg_data);
1102:
1103: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
1104: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.Get_Intracompany_Account.end', 'end');
1105: END IF;
1106:
1107: EXCEPTION
1100: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1101: p_data => x_msg_data);
1102:
1103: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
1104: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.Get_Intracompany_Account.end', 'end');
1105: END IF;
1106:
1107: EXCEPTION
1108: WHEN FND_API.G_EXC_ERROR
1106:
1107: EXCEPTION
1108: WHEN FND_API.G_EXC_ERROR
1109: THEN
1110: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
1111: THEN
1112: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1113: 'fun.plsql.fun_bal_pkg.Get_Intracompany_Account.error',
1114: SUBSTR(SQLERRM,1, 4000));
1108: WHEN FND_API.G_EXC_ERROR
1109: THEN
1110: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
1111: THEN
1112: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1113: 'fun.plsql.fun_bal_pkg.Get_Intracompany_Account.error',
1114: SUBSTR(SQLERRM,1, 4000));
1115: END IF;
1116:
1119: p_data => x_msg_data);
1120:
1121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1122: THEN
1123: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
1124: THEN
1125: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1126: 'fun.plsql.fun_bal_utils_grp.Get_Intracompany_Account.unexpected_error_norm',
1127: SUBSTR(SQLCODE ||' : ' || SQLERRM,1, 4000));
1121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1122: THEN
1123: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
1124: THEN
1125: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1126: 'fun.plsql.fun_bal_utils_grp.Get_Intracompany_Account.unexpected_error_norm',
1127: SUBSTR(SQLCODE ||' : ' || SQLERRM,1, 4000));
1128: END IF;
1129:
1132: p_data => x_msg_data);
1133:
1134: WHEN OTHERS
1135: THEN
1136: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
1137: THEN
1138: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1139: 'fun.plsql.fun_bal_utils_grp.Get_Intracompany_Account.unexpected_error_others',
1140: SUBSTR(SQLCODE ||' : ' || SQLERRM,1, 4000));
1134: WHEN OTHERS
1135: THEN
1136: IF (FND_LOG.LEVEL_ERROR>= g_debug_level)
1137: THEN
1138: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
1139: 'fun.plsql.fun_bal_utils_grp.Get_Intracompany_Account.unexpected_error_others',
1140: SUBSTR(SQLCODE ||' : ' || SQLERRM,1, 4000));
1141: END IF;
1142: