DBA Data[Home] [Help]

APPS.FUN_BAL_UTILS_GRP dependencies on FUN_BAL_UTILS_GRP

Line 1: PACKAGE BODY FUN_BAL_UTILS_GRP AS

1: PACKAGE BODY FUN_BAL_UTILS_GRP AS
2: /* $Header: fungbalutilb.pls 120.7.12010000.7 2009/02/23 14:35:59 srampure ship $ */
3: g_debug_level NUMBER;
4: g_package_name VARCHAR2(30) := 'FUN_BAL_UTILS_GRP';
5:

Line 4: g_package_name VARCHAR2(30) := 'FUN_BAL_UTILS_GRP';

1: PACKAGE BODY FUN_BAL_UTILS_GRP AS
2: /* $Header: fungbalutilb.pls 120.7.12010000.7 2009/02/23 14:35:59 srampure ship $ */
3: g_debug_level NUMBER;
4: g_package_name VARCHAR2(30) := 'FUN_BAL_UTILS_GRP';
5:
6: CURSOR c_get_le_id (p_ledger_id NUMBER,
7: p_bsv VARCHAR2,
8: p_gl_date DATE)

Line 27: -- API name : FUN_BAL_UTILS_GRP.get_inter_intra_account

23: FROM gl_ledgers ledgers
24: WHERE ledgers.ledger_id = p_ledger_id;
25:
26: /* ----------------------------------------------------------------------------
27: -- API name : FUN_BAL_UTILS_GRP.get_inter_intra_account
28: -- Type : Group
29: -- Pre-reqs : None.
30: -- Function : Given a transacting and trading Balancing segment value, the
31: -- the procedure determines what type of account is required

Line 96: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.begin',

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:
100: -- Standard call to check for call compatibility.

Line 127: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.frm_le',

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:
131:

Line 141: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.to_le',

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:
145: IF Nvl(l_from_le_id,-99) = Nvl(l_to_le_id, -99)

Line 177: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.get',

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:
181: get_intercompany_account (p_api_version => p_api_version,

Line 205: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.get',

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:
209: get_intracompany_account (p_api_version => p_api_version,

Line 232: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.end', 'end');

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

Line 254: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.unexpected_error_norm',

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:
258: x_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 267: 'fun.plsql.fun_bal_utils_grp.get_inter_intra_account.unexpected_error_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:
271: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 283: -- API name : FUN_BAL_UTILS_GRP.get_intercompany_account

279:
280: END get_inter_intra_account;
281:
282: /* ----------------------------------------------------------------------------
283: -- API name : FUN_BAL_UTILS_GRP.get_intercompany_account
284: -- Type : Group
285: -- Pre-reqs : None.
286: -- Function : Given a transacting and trading Balancing segment value,
287: -- the procedure returns the intercompany receivables and

Line 418: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.begin', 'begin');

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,

Line 451: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.get_ccid',

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:
455: -- Rules of precedence is to find matching records for the IC Accts using

Line 474: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.got_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:
478: -- Now get the reciprocal account

Line 489: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.get_recip_ccid',

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:
493: OPEN c_get_ccid (p_ledger_id => p_to_ledger_id,

Line 505: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.got_recip_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:
509: -- Enhancement 7520196 Start

Line 548: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.get_new_ccid',

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;
552:

Line 622: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.get_new_recp_ccid',

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;
626:

Line 717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.end', 'end');

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

Line 739: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.unexpected_error_norm',

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:
743: x_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 752: 'fun.plsql.fun_bal_utils_grp.get_intercompany_account.unexpected_error_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:
756: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 768: -- API name : FUN_BAL_UTILS_GRP.get_intracompany_account

764:
765: END get_intercompany_account;
766:
767: /* ----------------------------------------------------------------------------
768: -- API name : FUN_BAL_UTILS_GRP.get_intracompany_account
769: -- Type : Group
770: -- Pre-reqs : None.
771: -- Function : Given a transacting and trading Balancing segment value, the
772: -- the procedure returns the intracompany credit and debit

Line 918: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.Get_Intracompany_Account.begin', 'begin');

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,

Line 941: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_template',

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;
945:

Line 964: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.got_template',

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:
968: IF l_template_id IS NULL

Line 979: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_ccid',

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:
983: -- Now get the debit or credit account.

Line 998: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.got_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:
1002: -- Now get the reciprocal account

Line 1012: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_recip_ccid',

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:
1016: -- Bug 7409706: For Intracompany Rule

Line 1030: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.got_recip_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:
1034: -- Now we need to generate the new accounts by replacing the intercompany

Line 1052: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_new_ccid',

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;
1056:

Line 1072: 'fun.plsql.fun_bal_utils_grp.get_intracompany_account.get_new_recp_ccid',

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;
1076:

Line 1104: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_utils_grp.Get_Intracompany_Account.end', 'end');

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

Line 1126: 'fun.plsql.fun_bal_utils_grp.Get_Intracompany_Account.unexpected_error_norm',

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:
1130: x_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 1139: 'fun.plsql.fun_bal_utils_grp.Get_Intracompany_Account.unexpected_error_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:
1143: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 1154: END FUN_BAL_UTILS_GRP;

1150: p_data => x_msg_data);
1151:
1152: END get_intracompany_account;
1153:
1154: END FUN_BAL_UTILS_GRP;