[Home] [Help]
15:
16: --
17:
18: --Variables for ATG Central logging
19: g_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
20: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
21: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
23: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: --
17:
18: --Variables for ATG Central logging
19: g_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
20: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
21: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
23: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
24: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
17:
18: --Variables for ATG Central logging
19: g_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
20: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
21: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
23: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
24: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
25: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
18: --Variables for ATG Central logging
19: g_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
20: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
21: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
23: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
24: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
25: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
26: g_path VARCHAR2(255) := 'IGC.PLSQL.IGCCBCLB.IGC_CC_BUDGETARY_CTRL_PKG.';
19: g_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
20: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
21: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
23: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
24: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
25: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
26: g_path VARCHAR2(255) := 'IGC.PLSQL.IGCCBCLB.IGC_CC_BUDGETARY_CTRL_PKG.';
27:
20: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
21: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
23: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
24: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
25: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
26: g_path VARCHAR2(255) := 'IGC.PLSQL.IGCCBCLB.IGC_CC_BUDGETARY_CTRL_PKG.';
27:
28: -- Generic Procedure for putting out debug information
21: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
23: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
24: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
25: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
26: g_path VARCHAR2(255) := 'IGC.PLSQL.IGCCBCLB.IGC_CC_BUDGETARY_CTRL_PKG.';
27:
28: -- Generic Procedure for putting out debug information
29: --
106: IF (l_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
107: raise FND_API.G_EXC_ERROR;
108: END IF;*/
109: IF(g_state_level >= g_debug_level) THEN
110: FND_LOG.STRING(g_state_level, p_path, p_debug_msg);
111: END IF;
112:
113: RETURN;
114:
245: IF ( g_unexp_level >= g_debug_level ) THEN
246: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
247: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
248: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
249: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
250: END IF;
251: RETURN;
252:
253: END Account_Line_Wrapper;
355: IF ( g_unexp_level >= g_debug_level ) THEN
356: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
357: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
358: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
359: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
360: END IF;
361: RETURN;
362:
363: END Det_Pf_Wrapper;
481: IF ( g_unexp_level >= g_debug_level ) THEN
482: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
483: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
484: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
485: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
486: END IF;
487: RETURN;
488:
489: END Header_Wrapper;
868: fnd_message.set_name('IGC', 'IGC_INVALID_CC_HEADER_STATE');
869: fnd_message.set_token('HEADER_STATE', l_cc_headers_rec.cc_state);
870: fnd_message.set_token('CC_NUM_VAL', l_cc_headers_rec.cc_num);
871: IF(g_error_level >= g_debug_level) THEN
872: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
873: END IF;
874: fnd_msg_pub.add;
875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
876:
1077: fnd_message.set_name('IGC', 'IGC_INVALID_CC_HEADER_STATE');
1078: fnd_message.set_token('HEADER_STATE', l_cc_headers_rec.cc_state);
1079: fnd_message.set_token('CC_NUM_VAL', l_cc_headers_rec.cc_num);
1080: IF(g_error_level >= g_debug_level) THEN
1081: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
1082: END IF;
1083: fnd_msg_pub.add;
1084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1085:
1147: fnd_message.set_name('IGC', 'IGC_INVALID_CC_HEADER_STATE');
1148: fnd_message.set_token('HEADER_STATE', l_cc_headers_rec.cc_state);
1149: fnd_message.set_token('CC_NUM_VAL', l_cc_headers_rec.cc_num);
1150: IF(g_error_level >= g_debug_level) THEN
1151: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
1152: END IF;
1153: fnd_msg_pub.add;
1154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1155:
1226:
1227: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1228: p_data => x_msg_data );
1229: IF (g_excep_level >= g_debug_level ) THEN
1230: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_ERROR Exception Raised');
1231: END IF;
1232:
1233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1234: THEN
1249: END IF;
1250: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1251: p_data => x_msg_data );
1252: IF (g_excep_level >= g_debug_level ) THEN
1253: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
1254: END IF;
1255:
1256: WHEN OTHERS
1257: THEN
1282: IF ( g_unexp_level >= g_debug_level ) THEN
1283: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1284: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1285: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1286: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1287: END IF;
1288:
1289: END Execute_Rel_Budgetary_Ctrl;
1290:
1417: IF ( g_unexp_level >= g_debug_level ) THEN
1418: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1419: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1420: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1421: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1422: END IF;
1423:
1424: END Insert_Interface_Row;
1425:
1977: p_data => x_msg_data );
1978:
1979: RETURN;
1980: IF (g_excep_level >= g_debug_level ) THEN
1981: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_ERROR Exception Raised');
1982: END IF;
1983:
1984: WHEN OTHERS
1985: THEN
1997: IF ( g_unexp_level >= g_debug_level ) THEN
1998: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1999: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
2000: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
2001: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
2002: END IF;
2003: RETURN;
2004:
2005: END Process_Interface_Row;
2324: THEN
2325: fnd_message.set_name('IGC', 'IGC_CC_INVALID_MODE');
2326: fnd_message.set_token('MODE', p_mode,TRUE);
2327: IF(g_error_level >= g_debug_level) THEN
2328: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
2329: END IF;
2330: fnd_msg_pub.add;
2331: RAISE E_INVALID_MODE;
2332: END IF;
2344: THEN
2345: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
2346: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
2347: IF(g_error_level >= g_debug_level) THEN
2348: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
2349: END IF;
2350: fnd_msg_pub.add;
2351: RAISE E_CC_NOT_FOUND;
2352:
2405: IF ( g_unexp_level >= g_debug_level ) THEN
2406: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2407: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
2408: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
2409: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
2410: END IF;
2411: RAISE E_DELETE;
2412: END;
2413: END IF;
2460: WHEN NO_DATA_FOUND
2461: THEN
2462: fnd_message.set_name('IGC', 'IGC_CC_INVALID_GL_DATA');
2463: IF(g_error_level >= g_debug_level) THEN
2464: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
2465: END IF;
2466: fnd_msg_pub.add;
2467: RAISE E_CC_INVALID_SET_UP;
2468: END;
2543: WHEN OTHERS THEN
2544: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
2545: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
2546: IF(g_error_level >= g_debug_level) THEN
2547: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
2548: END IF;
2549: fnd_msg_pub.add;
2550: RAISE E_CC_NOT_FOUND;
2551: END;
3352: IF ( g_unexp_level >= g_debug_level ) THEN
3353: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3354: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3355: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3356: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3357: END IF;
3358:
3359: RAISE E_UPDATE_CC_TABLES;
3360: END;
3640: IF (l_batch_result_code = 'HXX')
3641: THEN
3642: fnd_message.set_name('IGC', 'IGC_CC_CBC_RESULT_CODE_INVALID');
3643: IF(g_state_level >= g_debug_level) THEN
3644: FND_LOG.MESSAGE(g_state_level, l_full_path, FALSE);
3645: END IF;
3646: fnd_msg_pub.add;
3647: ELSE
3648: fnd_message.set_name('IGC', 'IGC_CC_CBC_RESULT_CODE_'||l_batch_result_code);
3646: fnd_msg_pub.add;
3647: ELSE
3648: fnd_message.set_name('IGC', 'IGC_CC_CBC_RESULT_CODE_'||l_batch_result_code);
3649: IF(g_state_level >= g_debug_level) THEN
3650: FND_LOG.MESSAGE(g_state_level, l_full_path, FALSE);
3651: END IF;
3652: fnd_msg_pub.add;
3653: END IF;
3654:
3692:
3693: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3694: p_data => x_msg_data );
3695: IF (g_excep_level >= g_debug_level ) THEN
3696: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR OR E_CC_NOT_FOUND OR E_INVALID_MODE OR E_UPDATE OR E_DELETE Exception Raised');
3697: END IF;
3698:
3699: WHEN E_PROCESS_ROW
3700: THEN
3755:
3756: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3757: p_data => x_msg_data );
3758: IF (g_excep_level >= g_debug_level ) THEN
3759: FND_LOG.STRING (g_excep_level,l_full_path,'E_PROCESS_ROW Exception Raised');
3760: END IF;
3761:
3762: WHEN E_CC_INVALID_SET_UP OR E_NO_BUDGETARY_CONTROL
3763: OR E_SBC_DATA OR E_SBC_DATA1 OR E_CBC_DATA OR E_CBC_DATA1 OR E_CHECK_BUDG_CTRL
3820:
3821: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3822: p_data => x_msg_data );
3823: IF (g_excep_level >= g_debug_level ) THEN
3824: FND_LOG.STRING (g_excep_level,l_full_path,
3825: 'E_CC_INVALID_SET_UP OR E_NO_BUDGETARY_CONTROLOR E_SBC_DATA OR E_SBC_DATA1 OR E_CBC_DATA OR E_CBC_DATA1 OR E_CHECK_BUDG_CTRL');
3826: END IF;
3827:
3828: WHEN E_BC_EXECUTION /*OR E_UPDATE_CC_TABLES */
3889:
3890: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3891: p_data => x_msg_data );
3892: IF (g_excep_level >= g_debug_level ) THEN
3893: FND_LOG.STRING (g_excep_level,l_full_path,'E_BC_EXECUTION Exception Raised');
3894: END IF;
3895:
3896: WHEN OTHERS
3897: THEN
3962: IF ( g_unexp_level >= g_debug_level ) THEN
3963: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3964: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3965: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3966: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3967: END IF;
3968:
3969: END Execute_Budgetary_Ctrl;
3970:
4025: IF (p_org_id IS NULL)
4026: THEN
4027: fnd_message.set_name('IGC', 'IGC_CC_NO_ORG_ID');
4028: IF(g_error_level >= g_debug_level) THEN
4029: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
4030: END IF;
4031: fnd_msg_pub.add;
4032: RAISE E_NULL_PARAMETER;
4033: END IF;
4035: IF (p_sob_id IS NULL)
4036: THEN
4037: fnd_message.set_name('IGC', 'IGC_CC_NO_SOB_ID');
4038: IF(g_error_level >= g_debug_level) THEN
4039: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
4040: END IF;
4041: fnd_msg_pub.add;
4042: RAISE E_NULL_PARAMETER;
4043: END IF;
4045: IF (p_cc_state IS NULL)
4046: THEN
4047: fnd_message.set_name('IGC', 'IGC_CC_NO_CC_STATE');
4048: IF(g_error_level >= g_debug_level) THEN
4049: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
4050: END IF;
4051: fnd_msg_pub.add;
4052: RAISE E_NULL_PARAMETER;
4053: END IF;
4066: WHEN NO_DATA_FOUND
4067: THEN
4068: fnd_message.set_name('IGC', 'IGC_CC_INVALID_GL_DATA');
4069: IF(g_error_level >= g_debug_level) THEN
4070: FND_LOG.MESSAGE(g_error_level, l_full_path || 'Msg4', FALSE);
4071: END IF;
4072: fnd_msg_pub.add;
4073: RAISE E_CC_INVALID_SET_UP;
4074: END;
4132: x_encumbrance_on := FND_API.G_FALSE;
4133: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4134: p_data => x_msg_data );
4135: IF (g_excep_level >= g_debug_level ) THEN
4136: FND_LOG.STRING (g_excep_level,l_full_path,'E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP OR E_GL_DATA OR E_NULL_PARAMETER Exception Raised');
4137: END IF;
4138:
4139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4140: THEN
4143:
4144: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4145: p_data => x_msg_data );
4146: IF (g_excep_level >= g_debug_level ) THEN
4147: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
4148: END IF;
4149:
4150: WHEN OTHERS
4151: THEN
4163: IF ( g_unexp_level >= g_debug_level ) THEN
4164: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4165: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
4166: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
4167: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
4168: END IF;
4169:
4170: END Check_Budgetary_Ctrl_On;
4171:
4388: THEN
4389: fnd_message.set_name('IGC', 'IGC_CC_INVALID_STATUS_CODE');
4390: fnd_message.set_token('CODE', p_encumbrance_status_code,TRUE);
4391: IF(g_error_level >= g_debug_level) THEN
4392: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
4393: END IF;
4394: fnd_msg_pub.add;
4395: RAISE E_INVALID_STATUS_CODE;
4396:
4409: THEN
4410: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
4411: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
4412: IF(g_excep_level >= g_debug_level) THEN
4413: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
4414: END IF;
4415: fnd_msg_pub.add;
4416: RAISE E_CC_NOT_FOUND;
4417:
4587: END IF;
4588: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4589: p_data => x_msg_data );
4590: IF (g_excep_level >= g_debug_level ) THEN
4591: FND_LOG.STRING (g_excep_level,l_full_path,'E_CC_NOT_FOUND OR E_INVALID_STATUS_CODE Exception Raised');
4592: END IF;
4593:
4594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4595: THEN
4609: END IF;
4610: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4611: p_data => x_msg_data );
4612: IF (g_excep_level >= g_debug_level ) THEN
4613: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
4614: END IF;
4615:
4616: WHEN OTHERS
4617: THEN
4641: IF ( g_unexp_level >= g_debug_level ) THEN
4642: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4643: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
4644: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
4645: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
4646: END IF;
4647:
4648: END Set_Encumbrance_Status;
4649:
4886: x_valid_cc := FND_API.G_FALSE;
4887: x_return_status := FND_API.G_RET_STS_ERROR;
4888: fnd_message.set_name('IGC', 'IGC_CC_INVALID_GL_DATA');
4889: IF(g_error_level >= g_debug_level) THEN
4890: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
4891: END IF;
4892: fnd_msg_pub.add;
4893: RAISE E_CC_INVALID_SET_UP;
4894: END;
4957: x_return_status := FND_API.G_RET_STS_ERROR;
4958: fnd_message.set_name('IGC', 'IGC_CC_EFFECTIVE_START_DATE');
4959: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
4960: IF(g_state_level >= g_debug_level) THEN
4961: FND_LOG.MESSAGE(g_state_level, l_full_path, FALSE);
4962: END IF;
4963: fnd_msg_pub.add;
4964: END IF;
4965: END IF;
4994: x_return_status := FND_API.G_RET_STS_ERROR;
4995: fnd_message.set_name('IGC', 'IGC_CC_EFF_CCPER_START_DATE');
4996: fnd_message.set_token('STARTDATE', FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
4997: IF(g_state_level >= g_debug_level) THEN
4998: FND_LOG.MESSAGE(g_state_level, l_full_path, FALSE);
4999: END IF;
5000: fnd_msg_pub.add;
5001: END IF;
5002:
5034: IF ( g_unexp_level >= g_debug_level ) THEN
5035: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5036: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
5037: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
5038: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5039: END IF;
5040: END;
5041:
5042: IF (NVL(l_COUNT,0) = 0) THEN
5044: x_return_status := FND_API.G_RET_STS_ERROR;
5045: fnd_message.set_name('IGC', 'IGC_CC_EFF_CCGLPER_START_DATE');
5046: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(p_start_date),FALSE);
5047: IF(g_error_level >= g_debug_level) THEN
5048: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5049: END IF;
5050: fnd_msg_pub.add;
5051: END IF;
5052:
5072: x_return_status := FND_API.G_RET_STS_ERROR;
5073: fnd_message.set_name('IGC', 'IGC_CC_EFF_COVER_START_DATE');
5074: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5075: IF(g_error_level >= g_debug_level) THEN
5076: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5077: END IF;
5078: fnd_msg_pub.add;
5079: END IF;
5080: END IF; -- Commitment Type is Cover
5098: x_return_status := FND_API.G_RET_STS_ERROR;
5099: fnd_message.set_name('IGC', 'IGC_CC_EFF_REL_START_DATE');
5100: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5101: IF(g_error_level >= g_debug_level) THEN
5102: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5103: END IF;
5104: fnd_msg_pub.add;
5105: END IF;
5106: END IF; -- Commitment Type is Release.
5109: x_valid_cc := FND_API.G_FALSE;
5110: x_return_status := FND_API.G_RET_STS_ERROR;
5111: fnd_message.set_name('IGC', 'IGC_CC_NO_START_DATE');
5112: IF(g_error_level >= g_debug_level) THEN
5113: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5114: END IF;
5115: fnd_msg_pub.add;
5116:
5117: END IF; -- Start Date is Not Null. Start Date Validations ends here.
5126: fnd_message.set_name('IGC', 'IGC_CC_EFFECTIVE_END_DATE');
5127: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5128: fnd_message.set_token('ENDDATE',FND_DATE.DATE_TO_CHARDATE (P_END_DATE),FALSE);
5129: IF(g_error_level >= g_debug_level) THEN
5130: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5131: END IF;
5132: fnd_msg_pub.add;
5133: END IF;
5134:
5150: x_valid_cc := FND_API.G_FALSE;
5151: x_return_status := FND_API.G_RET_STS_ERROR;
5152: fnd_message.set_name('IGC', 'IGC_CC_EFF_COVER_END_DATE');
5153: IF(g_error_level >= g_debug_level) THEN
5154: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5155: END IF;
5156: fnd_msg_pub.add;
5157: END IF;
5158: END IF; -- Commitment Type is Cover
5174: x_valid_cc := FND_API.G_FALSE;
5175: x_return_status := FND_API.G_RET_STS_ERROR;
5176: fnd_message.set_name('IGC', 'IGC_CC_EFF_REL_END_DATE');
5177: IF(g_error_level >= g_debug_level) THEN
5178: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5179: END IF;
5180: fnd_msg_pub.add;
5181: END IF;
5182: END IF; -- Commitment Type is Release
5194: x_return_status := FND_API.G_RET_STS_ERROR;
5195: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
5196: fnd_message.set_token('PFDATE',FND_DATE.DATE_TO_CHARDATE(p_cc_det_pf_date),FALSE);
5197: IF(g_error_level >= g_debug_level) THEN
5198: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5199: END IF;
5200: fnd_msg_pub.add;
5201: END IF;
5202: IF ( (p_cc_det_pf_date > p_end_date) AND
5206: x_return_status := FND_API.G_RET_STS_ERROR;
5207: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
5208: fnd_message.set_token('PFDATE',FND_DATE.DATE_TO_CHARDATE(p_cc_det_pf_date),FALSE);
5209: IF(g_error_level >= g_debug_level) THEN
5210: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5211: END IF;
5212: fnd_msg_pub.add;
5213: END IF;
5214:
5239: IF ( g_unexp_level >= g_debug_level ) THEN
5240: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5241: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
5242: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
5243: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5244: END IF;
5245: END;
5246: IF NVL(l_COUNT,0) = 0 THEN
5247: x_valid_cc := FND_API.G_FALSE;
5247: x_valid_cc := FND_API.G_FALSE;
5248: x_return_status := FND_API.G_RET_STS_ERROR;
5249: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
5250: IF(g_error_level >= g_debug_level) THEN
5251: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5252: END IF;
5253: fnd_msg_pub.add;
5254: END IF;
5255: END IF; -- Budgetary Control turned on.
5276: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5277: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5278: fnd_message.set_token('ENDDATE',FND_DATE.DATE_TO_CHARDATE(P_END_DATE),FALSE);
5279: IF(g_error_level >= g_debug_level) THEN
5280: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5281: END IF;
5282: fnd_msg_pub.add;
5283: END IF;
5284:
5295: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_CL_CT');
5296: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5297: fnd_message.set_token('PREV_ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_PREV_ACCT_DATE),FALSE);
5298: IF(g_error_level >= g_debug_level) THEN
5299: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5300: END IF;
5301: fnd_msg_pub.add;
5302: END IF;
5303: END IF;
5344: IF ( g_unexp_level >= g_debug_level ) THEN
5345: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5346: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
5347: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
5348: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5349: END IF;
5350:
5351: END;
5352: IF NVL(l_COUNT,0) = 0 THEN
5353: x_valid_cc := FND_API.G_FALSE;
5354: x_return_status := FND_API.G_RET_STS_ERROR;
5355: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_OF');
5356: IF(g_error_level >= g_debug_level) THEN
5357: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5358: END IF;
5359: fnd_msg_pub.add;
5360: END IF;
5361:
5426: x_return_status := FND_API.G_RET_STS_ERROR;
5427: fnd_message.set_name('IGC', 'IGC_CC_ACCT_FISCAL_YRS_NE');
5428: fnd_message.set_TOKEN('PREVACTDATE',FND_DATE.DATE_TO_CHARDATE (p_prev_acct_date),FALSE);
5429: IF(g_error_level >= g_debug_level) THEN
5430: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5431: END IF;
5432: fnd_msg_pub.add;
5433: END IF; -- Fiscal Year Mismatch valdn ends here.
5434: END IF; -- If Previously been encumbered. Bug # 1619201.
5459: IF ( g_unexp_level >= g_debug_level ) THEN
5460: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5461: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
5462: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
5463: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5464: END IF;
5465: END;
5466: IF NVL(l_COUNT,0) = 0 THEN
5467: x_valid_cc := FND_API.G_FALSE;
5467: x_valid_cc := FND_API.G_FALSE;
5468: x_return_status := FND_API.G_RET_STS_ERROR;
5469: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_O');
5470: IF(g_error_level >= g_debug_level) THEN
5471: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5472: END IF;
5473: fnd_msg_pub.add;
5474: END IF;
5475: END IF;
5497: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5498: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5499: fnd_message.set_token('ENDDATE',FND_DATE.DATE_TO_CHARDATE(P_END_DATE),FALSE);
5500: IF(g_error_level >= g_debug_level) THEN
5501: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5502: END IF;
5503: fnd_msg_pub.add;
5504: END IF;
5505:
5516: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_CL_CT');
5517: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5518: fnd_message.set_token('PREV_ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_PREV_ACCT_DATE),FALSE);
5519: IF(g_error_level >= g_debug_level) THEN
5520: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5521: END IF;
5522: fnd_msg_pub.add;
5523: END IF;
5524: END IF;
5565: IF ( g_unexp_level >= g_debug_level ) THEN
5566: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5567: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
5568: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
5569: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5570: END IF;
5571: END;
5572: IF NVL(l_COUNT,0) = 0 THEN
5573: x_valid_cc := FND_API.G_FALSE;
5573: x_valid_cc := FND_API.G_FALSE;
5574: x_return_status := FND_API.G_RET_STS_ERROR;
5575: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_OF');
5576: IF(g_error_level >= g_debug_level) THEN
5577: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5578: END IF;
5579: fnd_msg_pub.add;
5580: END IF;
5581:
5646: x_return_status := FND_API.G_RET_STS_ERROR;
5647: fnd_message.set_name('IGC', 'IGC_CC_ACCT_FISCAL_YRS_NE');
5648: fnd_message.set_TOKEN('PREVACTDATE',FND_DATE.DATE_TO_CHARDATE (p_prev_acct_date),FALSE);
5649: IF(g_error_level >= g_debug_level) THEN
5650: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5651: END IF;
5652: fnd_msg_pub.add;
5653: END IF; -- Fiscal Year Mismatch valdn ends here.
5654: END IF; -- If Previously been encumbered. Bug # 1619201.
5679: IF ( g_unexp_level >= g_debug_level ) THEN
5680: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5681: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
5682: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
5683: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5684: END IF;
5685: END;
5686: IF NVL(l_COUNT,0) = 0 THEN
5687: x_valid_cc := FND_API.G_FALSE;
5687: x_valid_cc := FND_API.G_FALSE;
5688: x_return_status := FND_API.G_RET_STS_ERROR;
5689: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_O');
5690: IF(g_error_level >= g_debug_level) THEN
5691: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5692: END IF;
5693: fnd_msg_pub.add;
5694: END IF;
5695: END IF;
5711: x_return_status := FND_API.G_RET_STS_ERROR;
5712: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
5713: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
5714: IF(g_error_level >= g_debug_level) THEN
5715: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5716: END IF;
5717: l_error_message := fnd_message.get;
5718: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name, l_error_message);
5719: RAISE E_CC_NOT_FOUND;
5768: x_return_status := FND_API.G_RET_STS_ERROR;
5769: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
5770: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
5771: IF(g_error_level >= g_debug_level) THEN
5772: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5773: END IF;
5774: fnd_msg_pub.add;
5775: ELSIF (NVL(l_cc_det_pf_cnt,0) > 0) THEN
5776:
5790: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_ACCT_DATE');
5791: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5792: fnd_message.set_TOKEN('ACCTDATE',FND_DATE.DATE_TO_CHARDATE (p_acct_date),FALSE);
5793: IF(g_error_level >= g_debug_level) THEN
5794: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5795: END IF;
5796: fnd_msg_pub.add;
5797: END IF;
5798:
5812: x_return_status := FND_API.G_RET_STS_ERROR;
5813: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
5814: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
5815: IF(g_error_level >= g_debug_level) THEN
5816: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5817: END IF;
5818: fnd_msg_pub.add;
5819: END IF;
5820: END IF;
5835: x_return_status := FND_API.G_RET_STS_ERROR;
5836: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
5837: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
5838: IF(g_error_level >= g_debug_level) THEN
5839: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5840: END IF;
5841: l_error_message := fnd_message.get;
5842: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name, l_error_message);
5843: RAISE E_CC_NOT_FOUND;
5885: x_return_status := FND_API.G_RET_STS_ERROR;
5886: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
5887: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
5888: IF(g_error_level >= g_debug_level) THEN
5889: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5890: END IF;
5891: fnd_msg_pub.add;
5892: ELSIF (NVL(l_cc_det_pf_cnt,0) > 0) THEN
5893:
5906: x_return_status := FND_API.G_RET_STS_ERROR;
5907: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
5908: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5909: IF (g_error_level >= g_debug_level) THEN
5910: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5911: END IF;
5912: fnd_msg_pub.add;
5913: END IF;
5914:
5921: x_return_status := FND_API.G_RET_STS_ERROR;
5922: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
5923: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5924: IF(g_error_level >= g_debug_level) THEN
5925: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5926: END IF;
5927: fnd_msg_pub.add;
5928: END IF;
5929:
5962: IF ( g_unexp_level >= g_debug_level ) THEN
5963: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5964: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
5965: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
5966: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5967: END IF;
5968: END;
5969: IF NVL(l_COUNT,0) = 0 THEN
5970: x_valid_cc := FND_API.G_FALSE;
5970: x_valid_cc := FND_API.G_FALSE;
5971: x_return_status := FND_API.G_RET_STS_ERROR;
5972: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
5973: IF(g_error_level >= g_debug_level) THEN
5974: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5975: END IF;
5976: fnd_msg_pub.add;
5977: END IF;
5978:
6033: x_return_status := FND_API.G_RET_STS_ERROR;
6034: fnd_message.set_name('IGC','IGC_CC_DET_PF_DATE_NO_UPDATE');
6035: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6036: IF(g_error_level >= g_debug_level) THEN
6037: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6038: END IF;
6039: fnd_msg_pub.add;
6040: END IF;
6041: END IF;
6108: x_return_status := FND_API.G_RET_STS_ERROR;
6109: fnd_message.set_name('IGC', 'IGC_CC_FISCAL_YRS_NE');
6110: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6111: IF(g_error_level >= g_debug_level) THEN
6112: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6113: END IF;
6114: fnd_msg_pub.add;
6115: END IF; -- Fiscal Year Mismatch valdn ends here.
6116: END IF; -- Encumbrance Amt is greater than zero ends here.
6139: x_return_status := FND_API.G_RET_STS_ERROR;
6140: fnd_message.set_name('IGC', 'IGC_CC_AMT_MISMATCH');
6141: fnd_message.set_token('ACCT_NUM',to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6142: IF(g_error_level >= g_debug_level) THEN
6143: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6144: END IF;
6145: fnd_msg_pub.add;
6146: END IF;
6147:
6154: x_return_status := FND_API.G_RET_STS_ERROR;
6155: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
6156: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
6157: IF(g_error_level >= g_debug_level) THEN
6158: FND_LOG.MESSAGE(g_error_level, g_debug_level, FALSE);
6159: END IF;
6160: fnd_msg_pub.add;
6161: END IF;
6162: END IF;
6180: x_return_status := FND_API.G_RET_STS_ERROR;
6181: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
6182: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
6183: IF(g_error_level >= g_debug_level) THEN
6184: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6185: END IF;
6186: l_error_message := fnd_message.get;
6187: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name, l_error_message);
6188: RAISE E_CC_NOT_FOUND;
6221: IF ( g_unexp_level >= g_debug_level ) THEN
6222: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
6223: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
6224: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
6225: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
6226: END IF;
6227: END;
6228: IF (NVL(l_cc_det_pf_cnt ,0) = 0)
6229: AND l_cc_acct_lines_rec.cc_ent_withheld_amt <> l_cc_acct_lines_rec.cc_acct_entered_amt
6235: x_return_status := FND_API.G_RET_STS_ERROR;
6236: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
6237: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6238: IF(g_error_level >= g_debug_level) THEN
6239: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6240: END IF;
6241: fnd_msg_pub.add;
6242: ELSIF (NVL(l_cc_det_pf_cnt,0) > 0) THEN
6243:
6256: x_return_status := FND_API.G_RET_STS_ERROR;
6257: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
6258: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
6259: IF(g_error_level >= g_debug_level) THEN
6260: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6261: END IF;
6262: fnd_msg_pub.add;
6263: END IF;
6264:
6271: x_return_status := FND_API.G_RET_STS_ERROR;
6272: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
6273: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
6274: IF(g_error_level >= g_debug_level) THEN
6275: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6276: END IF;
6277: fnd_msg_pub.add;
6278: END IF;
6279:
6312: IF ( g_unexp_level >= g_debug_level ) THEN
6313: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
6314: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
6315: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
6316: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
6317: END IF;
6318: END;
6319: IF NVL(l_COUNT,0) = 0 THEN
6320: x_valid_cc := FND_API.G_FALSE;
6320: x_valid_cc := FND_API.G_FALSE;
6321: x_return_status := FND_API.G_RET_STS_ERROR;
6322: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
6323: IF(g_error_level >= g_debug_level) THEN
6324: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6325: END IF;
6326: fnd_msg_pub.add;
6327: END IF;
6328:
6383: fnd_message.set_name('IGC',
6384: 'IGC_CC_DET_PF_DATE_NO_UPDATE');
6385: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6386: IF(g_error_level >= g_debug_level) THEN
6387: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6388: END IF;
6389: fnd_msg_pub.add;
6390: END IF;
6391: END IF;
6458: x_return_status := FND_API.G_RET_STS_ERROR;
6459: fnd_message.set_name('IGC', 'IGC_CC_FISCAL_YRS_NE');
6460: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6461: IF(g_error_level >= g_debug_level) THEN
6462: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6463: END IF;
6464: fnd_msg_pub.add;
6465: END IF; -- Fiscal Year Mismatch valdn ends here.
6466: END IF; -- Encumbrance Amt is greater than zero ends here.
6488: x_return_status := FND_API.G_RET_STS_ERROR;
6489: fnd_message.set_name('IGC', 'IGC_CC_AMT_MISMATCH');
6490: fnd_message.set_token('ACCT_NUM',to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6491: IF(g_error_level >= g_debug_level) THEN
6492: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6493: END IF;
6494: fnd_msg_pub.add;
6495: END IF;
6496:
6503: x_return_status := FND_API.G_RET_STS_ERROR;
6504: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
6505: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
6506: IF(g_error_level >= g_debug_level) THEN
6507: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6508: END IF;
6509: fnd_msg_pub.add;
6510: END IF;
6511:
6522: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6523: p_data => x_msg_data );
6524: CLOSE c_account_lines;
6525: IF (g_excep_level >= g_debug_level ) THEN
6526: FND_LOG.STRING (g_excep_level,l_full_path,'E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP Exception Raised');
6527: END IF;
6528:
6529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6532: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6533: p_data => x_msg_data );
6534: CLOSE c_account_lines;
6535: IF (g_excep_level >= g_debug_level ) THEN
6536: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
6537: END IF;
6538:
6539: WHEN OTHERS THEN
6540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6552: IF ( g_unexp_level >= g_debug_level ) THEN
6553: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
6554: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
6555: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
6556: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
6557: END IF;
6558:
6559: END Validate_CC;
6560:
6626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6627: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6628: p_data => x_msg_data );
6629: IF (g_excep_level >= g_debug_level ) THEN
6630: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
6631: END IF;
6632:
6633: WHEN OTHERS THEN
6634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6644: IF ( g_unexp_level >= g_debug_level ) THEN
6645: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
6646: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
6647: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
6648: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
6649: END IF;
6650:
6651: END calculate_nonrec_tax;
6652: