[Home] [Help]
35:
36: PROCEDURE Account_Line_Wrapper
37: (
38: p_api_version IN NUMBER,
39: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
40: p_commit IN VARCHAR2 := FND_API.G_FALSE,
41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
42: x_return_status OUT NOCOPY VARCHAR2,
43: x_msg_count OUT NOCOPY NUMBER,
36: PROCEDURE Account_Line_Wrapper
37: (
38: p_api_version IN NUMBER,
39: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
40: p_commit IN VARCHAR2 := FND_API.G_FALSE,
41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
42: x_return_status OUT NOCOPY VARCHAR2,
43: x_msg_count OUT NOCOPY NUMBER,
44: x_msg_data OUT NOCOPY VARCHAR2,
37: (
38: p_api_version IN NUMBER,
39: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
40: p_commit IN VARCHAR2 := FND_API.G_FALSE,
41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
42: x_return_status OUT NOCOPY VARCHAR2,
43: x_msg_count OUT NOCOPY NUMBER,
44: x_msg_data OUT NOCOPY VARCHAR2,
45: x_rowid IN OUT NOCOPY VARCHAR2,
50:
51: PROCEDURE Det_Pf_Wrapper
52: (
53: p_api_version IN NUMBER,
54: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
55: p_commit IN VARCHAR2 := FND_API.G_FALSE,
56: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
57: x_return_status OUT NOCOPY VARCHAR2,
58: x_msg_count OUT NOCOPY NUMBER,
51: PROCEDURE Det_Pf_Wrapper
52: (
53: p_api_version IN NUMBER,
54: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
55: p_commit IN VARCHAR2 := FND_API.G_FALSE,
56: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
57: x_return_status OUT NOCOPY VARCHAR2,
58: x_msg_count OUT NOCOPY NUMBER,
59: x_msg_data OUT NOCOPY VARCHAR2,
52: (
53: p_api_version IN NUMBER,
54: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
55: p_commit IN VARCHAR2 := FND_API.G_FALSE,
56: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
57: x_return_status OUT NOCOPY VARCHAR2,
58: x_msg_count OUT NOCOPY NUMBER,
59: x_msg_data OUT NOCOPY VARCHAR2,
60: x_rowid IN OUT NOCOPY VARCHAR2,
65:
66: PROCEDURE Header_Wrapper
67: (
68: p_api_version IN NUMBER,
69: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
70: p_commit IN VARCHAR2 := FND_API.G_FALSE,
71: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
72: x_return_status OUT NOCOPY VARCHAR2,
73: x_msg_count OUT NOCOPY NUMBER,
66: PROCEDURE Header_Wrapper
67: (
68: p_api_version IN NUMBER,
69: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
70: p_commit IN VARCHAR2 := FND_API.G_FALSE,
71: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
72: x_return_status OUT NOCOPY VARCHAR2,
73: x_msg_count OUT NOCOPY NUMBER,
74: x_msg_data OUT NOCOPY VARCHAR2,
67: (
68: p_api_version IN NUMBER,
69: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
70: p_commit IN VARCHAR2 := FND_API.G_FALSE,
71: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
72: x_return_status OUT NOCOPY VARCHAR2,
73: x_msg_count OUT NOCOPY NUMBER,
74: x_msg_data OUT NOCOPY VARCHAR2,
75: x_rowid IN OUT NOCOPY VARCHAR2,
102: p_filename_val => NULL,
103: x_Return_Status => l_Return_Status
104: );
105:
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);
103: x_Return_Status => l_Return_Status
104: );
105:
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;
116: -- Exception handler section for the Output_Debug procedure.
117: -- --------------------------------------------------------------------
118: EXCEPTION
119:
120: /*WHEN FND_API.G_EXC_ERROR THEN
121: RETURN;*/
122:
123: WHEN OTHERS THEN
124: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
133:
134: PROCEDURE Account_Line_Wrapper
135: (
136: p_api_version IN NUMBER,
137: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
138: p_commit IN VARCHAR2 := FND_API.G_FALSE,
139: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
140: x_return_status OUT NOCOPY VARCHAR2,
141: x_msg_count OUT NOCOPY NUMBER,
134: PROCEDURE Account_Line_Wrapper
135: (
136: p_api_version IN NUMBER,
137: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
138: p_commit IN VARCHAR2 := FND_API.G_FALSE,
139: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
140: x_return_status OUT NOCOPY VARCHAR2,
141: x_msg_count OUT NOCOPY NUMBER,
142: x_msg_data OUT NOCOPY VARCHAR2,
135: (
136: p_api_version IN NUMBER,
137: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
138: p_commit IN VARCHAR2 := FND_API.G_FALSE,
139: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
140: x_return_status OUT NOCOPY VARCHAR2,
141: x_msg_count OUT NOCOPY NUMBER,
142: x_msg_data OUT NOCOPY VARCHAR2,
143: x_rowid IN OUT NOCOPY VARCHAR2,
152: BEGIN
153:
154: l_full_path := g_path || 'Account_Line_Wrapper';
155:
156: x_return_status := FND_API.G_RET_STS_SUCCESS;
157:
158: -- ---------------------------------------------------------------------------------
159: -- Make sure that the action requested to be performed is to UPDATE a row.
160: -- ---------------------------------------------------------------------------------
222:
223: -- ------------------------------------------------------------------------------------
224: -- Handle exception where the action flag is NOT Valid. Return Status of Failure
225: -- ------------------------------------------------------------------------------------
226: x_return_status := FND_API.G_RET_STS_ERROR;
227:
228: END IF;
229:
230: RETURN;
232: EXCEPTION
233:
234: WHEN OTHERS THEN
235:
236: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
237: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
238: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
239: l_api_name);
240: END if;
255:
256: PROCEDURE Det_Pf_Wrapper
257: (
258: p_api_version IN NUMBER,
259: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
260: p_commit IN VARCHAR2 := FND_API.G_FALSE,
261: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
262: x_return_status OUT NOCOPY VARCHAR2,
263: x_msg_count OUT NOCOPY NUMBER,
256: PROCEDURE Det_Pf_Wrapper
257: (
258: p_api_version IN NUMBER,
259: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
260: p_commit IN VARCHAR2 := FND_API.G_FALSE,
261: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
262: x_return_status OUT NOCOPY VARCHAR2,
263: x_msg_count OUT NOCOPY NUMBER,
264: x_msg_data OUT NOCOPY VARCHAR2,
257: (
258: p_api_version IN NUMBER,
259: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
260: p_commit IN VARCHAR2 := FND_API.G_FALSE,
261: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
262: x_return_status OUT NOCOPY VARCHAR2,
263: x_msg_count OUT NOCOPY NUMBER,
264: x_msg_data OUT NOCOPY VARCHAR2,
265: x_rowid IN OUT NOCOPY VARCHAR2,
274: BEGIN
275:
276: l_full_path := g_path || 'Det_Pf_Wrapper';
277:
278: x_return_status := FND_API.G_RET_STS_SUCCESS;
279:
280: -- ---------------------------------------------------------------------------------
281: -- Make sure that the action requested to be performed is to UPDATE a row.
282: -- ---------------------------------------------------------------------------------
332:
333: -- ------------------------------------------------------------------------------------
334: -- Handle exception where the action flag is NOT Valid. Return Status of Failure
335: -- ------------------------------------------------------------------------------------
336: x_return_status := FND_API.G_RET_STS_ERROR;
337:
338: END IF;
339:
340: RETURN;
342: EXCEPTION
343:
344: WHEN OTHERS THEN
345:
346: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
348: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
349: l_api_name);
350: END if;
364:
365: PROCEDURE Header_Wrapper
366: (
367: p_api_version IN NUMBER,
368: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
369: p_commit IN VARCHAR2 := FND_API.G_FALSE,
370: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
371: x_return_status OUT NOCOPY VARCHAR2,
372: x_msg_count OUT NOCOPY NUMBER,
365: PROCEDURE Header_Wrapper
366: (
367: p_api_version IN NUMBER,
368: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
369: p_commit IN VARCHAR2 := FND_API.G_FALSE,
370: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
371: x_return_status OUT NOCOPY VARCHAR2,
372: x_msg_count OUT NOCOPY NUMBER,
373: x_msg_data OUT NOCOPY VARCHAR2,
366: (
367: p_api_version IN NUMBER,
368: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
369: p_commit IN VARCHAR2 := FND_API.G_FALSE,
370: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
371: x_return_status OUT NOCOPY VARCHAR2,
372: x_msg_count OUT NOCOPY NUMBER,
373: x_msg_data OUT NOCOPY VARCHAR2,
374: x_rowid IN OUT NOCOPY VARCHAR2,
383: BEGIN
384:
385: l_full_path := g_path || 'Header_Wrapper';
386:
387: x_return_status := FND_API.G_RET_STS_SUCCESS;
388:
389: -- ---------------------------------------------------------------------------------
390: -- Make sure that the action requested to be performed is to UPDATE a row.
391: -- ---------------------------------------------------------------------------------
458:
459: -- ------------------------------------------------------------------------------------
460: -- Handle exception where the action flag is NOT Valid. Return Status of Failure
461: -- ------------------------------------------------------------------------------------
462: x_return_status := FND_API.G_RET_STS_ERROR;
463:
464: END IF;
465:
466: RETURN;
468: EXCEPTION
469:
470: WHEN OTHERS THEN
471:
472: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
474: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
475: l_api_name);
476: END if;
491:
492: PROCEDURE Execute_Rel_Budgetary_Ctrl
493: (
494: p_api_version IN NUMBER,
495: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
496: p_commit IN VARCHAR2 := FND_API.G_FALSE,
497: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
498: x_return_status OUT NOCOPY VARCHAR2,
499: x_msg_count OUT NOCOPY NUMBER,
492: PROCEDURE Execute_Rel_Budgetary_Ctrl
493: (
494: p_api_version IN NUMBER,
495: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
496: p_commit IN VARCHAR2 := FND_API.G_FALSE,
497: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
498: x_return_status OUT NOCOPY VARCHAR2,
499: x_msg_count OUT NOCOPY NUMBER,
500: x_msg_data OUT NOCOPY VARCHAR2,
493: (
494: p_api_version IN NUMBER,
495: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
496: p_commit IN VARCHAR2 := FND_API.G_FALSE,
497: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
498: x_return_status OUT NOCOPY VARCHAR2,
499: x_msg_count OUT NOCOPY NUMBER,
500: x_msg_data OUT NOCOPY VARCHAR2,
501: p_cc_header_id IN NUMBER,
690: l_full_path := g_path || 'Execute_Rel_Budgetary_Ctrl';
691:
692: SAVEPOINT Execute_Rel_Budgetary_Ctrl;
693:
694: IF FND_API.to_Boolean(p_init_msg_list)
695: THEN
696: FND_MSG_PUB.initialize;
697: END IF;
698:
695: THEN
696: FND_MSG_PUB.initialize;
697: END IF;
698:
699: IF NOT FND_API.Compatible_API_Call(l_api_version,
700: p_api_version,
701: l_api_name,
702: G_PKG_NAME)
703: THEN
700: p_api_version,
701: l_api_name,
702: G_PKG_NAME)
703: THEN
704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
705: END IF;
706:
707: x_return_status := FND_API.G_RET_STS_SUCCESS;
708: l_validation_level := p_validation_level;
703: THEN
704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
705: END IF;
706:
707: x_return_status := FND_API.G_RET_STS_SUCCESS;
708: l_validation_level := p_validation_level;
709: l_update_login := FND_GLOBAL.LOGIN_ID;
710: l_update_by := FND_GLOBAL.USER_ID;
711:
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:
877: END IF;
878:
879: SELECT rowid
881: FROM igc_cc_acct_lines
882: WHERE cc_acct_line_id = l_acct_line_rec.cc_acct_line_id;
883:
884: Account_Line_Wrapper (p_api_version => l_api_version,
885: p_init_msg_list => FND_API.G_FALSE,
886: p_commit => FND_API.G_FALSE,
887: p_validation_level => l_validation_level,
888: x_return_status => l_return_status,
889: x_msg_count => l_msg_count,
882: WHERE cc_acct_line_id = l_acct_line_rec.cc_acct_line_id;
883:
884: Account_Line_Wrapper (p_api_version => l_api_version,
885: p_init_msg_list => FND_API.G_FALSE,
886: p_commit => FND_API.G_FALSE,
887: p_validation_level => l_validation_level,
888: x_return_status => l_return_status,
889: x_msg_count => l_msg_count,
890: x_msg_data => l_msg_data,
893: p_cc_acct_lines_rec => l_acct_line_rec,
894: p_update_flag => l_update_flag
895: );
896:
897: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
898: x_msg_data := l_msg_data;
899: x_msg_count := l_msg_count;
900: RAISE FND_API.G_EXC_ERROR;
901: END IF;
896:
897: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
898: x_msg_data := l_msg_data;
899: x_msg_count := l_msg_count;
900: RAISE FND_API.G_EXC_ERROR;
901: END IF;
902: -- END IF;
903:
904:
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:
1086: END IF;
1087:
1088: SELECT rowid
1090: FROM igc_cc_det_pf
1091: WHERE cc_det_pf_line_id = l_det_pf_rec.cc_det_pf_line_id;
1092:
1093: Det_Pf_Wrapper (p_api_version => l_api_version,
1094: p_init_msg_list => FND_API.G_FALSE,
1095: p_commit => FND_API.G_FALSE,
1096: p_validation_level => l_validation_level,
1097: x_return_status => l_return_status,
1098: x_msg_count => l_msg_count,
1091: WHERE cc_det_pf_line_id = l_det_pf_rec.cc_det_pf_line_id;
1092:
1093: Det_Pf_Wrapper (p_api_version => l_api_version,
1094: p_init_msg_list => FND_API.G_FALSE,
1095: p_commit => FND_API.G_FALSE,
1096: p_validation_level => l_validation_level,
1097: x_return_status => l_return_status,
1098: x_msg_count => l_msg_count,
1099: x_msg_data => l_msg_data,
1102: p_cc_pmt_fcst_rec => l_det_pf_rec,
1103: p_update_flag => l_update_flag
1104: );
1105:
1106: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1107: x_msg_data := l_msg_data;
1108: x_msg_count := l_msg_count;
1109: RAISE FND_API.G_EXC_ERROR;
1110: END IF;
1105:
1106: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1107: x_msg_data := l_msg_data;
1108: x_msg_count := l_msg_count;
1109: RAISE FND_API.G_EXC_ERROR;
1110: END IF;
1111:
1112: END LOOP;
1113:
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:
1156: END IF;
1157:
1158: SELECT rowid
1162:
1163: l_cc_headers_rec.cc_acct_date := p_accounting_date;
1164:
1165: Header_Wrapper (p_api_version => l_api_version,
1166: p_init_msg_list => FND_API.G_FALSE,
1167: p_commit => FND_API.G_FALSE,
1168: p_validation_level => l_validation_level,
1169: x_return_status => l_return_status,
1170: x_msg_count => l_msg_count,
1163: l_cc_headers_rec.cc_acct_date := p_accounting_date;
1164:
1165: Header_Wrapper (p_api_version => l_api_version,
1166: p_init_msg_list => FND_API.G_FALSE,
1167: p_commit => FND_API.G_FALSE,
1168: p_validation_level => l_validation_level,
1169: x_return_status => l_return_status,
1170: x_msg_count => l_msg_count,
1171: x_msg_data => l_msg_data,
1174: p_cc_header_rec => l_cc_headers_rec,
1175: p_update_flag => l_update_flag
1176: );
1177:
1178: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1179: x_msg_data := l_msg_data;
1180: x_msg_count := l_msg_count;
1181: RAISE FND_API.G_EXC_ERROR;
1182: END IF;
1177:
1178: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1179: x_msg_data := l_msg_data;
1180: x_msg_count := l_msg_count;
1181: RAISE FND_API.G_EXC_ERROR;
1182: END IF;
1183:
1184: IF FND_API.To_Boolean(p_commit)
1185: THEN
1180: x_msg_count := l_msg_count;
1181: RAISE FND_API.G_EXC_ERROR;
1182: END IF;
1183:
1184: IF FND_API.To_Boolean(p_commit)
1185: THEN
1186: COMMIT WORK;
1187: END IF;
1188:
1205: RETURN;
1206:
1207: EXCEPTION
1208:
1209: WHEN FND_API.G_EXC_ERROR
1210: THEN
1211: ROLLBACK TO Execute_Rel_Budgetary_Ctrl;
1212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1213:
1208:
1209: WHEN FND_API.G_EXC_ERROR
1210: THEN
1211: ROLLBACK TO Execute_Rel_Budgetary_Ctrl;
1212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1213:
1214: IF (c_account_lines%ISOPEN) THEN
1215: CLOSE c_account_lines;
1216: END IF;
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
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
1235: ROLLBACK TO Execute_Rel_Budgetary_Ctrl;
1236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1237:
1232:
1233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1234: THEN
1235: ROLLBACK TO Execute_Rel_Budgetary_Ctrl;
1236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1237:
1238: IF (c_account_lines%ISOPEN) THEN
1239: CLOSE c_account_lines;
1240: END IF;
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
1255:
1256: WHEN OTHERS
1257: THEN
1258: ROLLBACK TO Execute_Rel_Budgetary_Ctrl;
1259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1260:
1261: IF (c_account_lines%ISOPEN) THEN
1262: CLOSE c_account_lines;
1263: END IF;
1301: BEGIN
1302:
1303: l_full_path := g_path || 'Insert_Interface_Row';
1304:
1305: x_return_status := FND_API.G_RET_STS_SUCCESS;
1306:
1307: INSERT
1308: INTO igc_cc_interface (
1309: batch_line_num,
1403: EXCEPTION
1404:
1405: WHEN OTHERS
1406: THEN
1407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1408:
1409: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1410: THEN
1411: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1460: BEGIN
1461:
1462: l_full_path := g_path || 'Process_Interface_Row';
1463:
1464: x_return_status := FND_API.G_RET_STS_SUCCESS;
1465:
1466: -- Bug 1914745, clean up any old records before, more than 2 days old
1467: -- processing new ones.
1468: -- DELETE FROM igc_cc_interface
1646: -- Bug 2409502, On the 3 amounts, calculate the non recoverable tax
1647: -- Calculate on the l_enc_amt
1648: /* igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1649: (p_api_version => 1.0,
1650: p_init_msg_list => FND_API.G_FALSE,
1651: p_commit => FND_API.G_FALSE,
1652: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1653: x_return_status => l_return_status,
1654: x_msg_count => l_msg_count,
1647: -- Calculate on the l_enc_amt
1648: /* igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1649: (p_api_version => 1.0,
1650: p_init_msg_list => FND_API.G_FALSE,
1651: p_commit => FND_API.G_FALSE,
1652: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1653: x_return_status => l_return_status,
1654: x_msg_count => l_msg_count,
1655: x_msg_data => l_msg_data,
1648: /* igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1649: (p_api_version => 1.0,
1650: p_init_msg_list => FND_API.G_FALSE,
1651: p_commit => FND_API.G_FALSE,
1652: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1653: x_return_status => l_return_status,
1654: x_msg_count => l_msg_count,
1655: x_msg_data => l_msg_data,
1656: p_tax_id => p_cc_acct_lines_rec.tax_id,
1668: P_Line_Id =>l_cc_interface_rec.cc_acct_line_id,
1669: P_Tax_Amount =>l_enc_tax_amt,
1670: P_Return_Status =>l_return_status,
1671: P_Error_Code =>P_Error_Code);
1672: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
1673: THEN
1674: RAISE FND_API.G_EXC_ERROR;
1675: END IF;
1676: END IF;
1670: P_Return_Status =>l_return_status,
1671: P_Error_Code =>P_Error_Code);
1672: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
1673: THEN
1674: RAISE FND_API.G_EXC_ERROR;
1675: END IF;
1676: END IF;
1677: l_enc_amt := l_enc_amt + Nvl(l_enc_tax_amt,0);
1678:
1678:
1679: -- Calculate on the l_func_amt
1680: /*igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1681: (p_api_version => 1.0,
1682: p_init_msg_list => FND_API.G_FALSE,
1683: p_commit => FND_API.G_FALSE,
1684: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1685: x_return_status => l_return_status,
1686: x_msg_count => l_msg_count,
1679: -- Calculate on the l_func_amt
1680: /*igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1681: (p_api_version => 1.0,
1682: p_init_msg_list => FND_API.G_FALSE,
1683: p_commit => FND_API.G_FALSE,
1684: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1685: x_return_status => l_return_status,
1686: x_msg_count => l_msg_count,
1687: x_msg_data => l_msg_data,
1680: /*igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1681: (p_api_version => 1.0,
1682: p_init_msg_list => FND_API.G_FALSE,
1683: p_commit => FND_API.G_FALSE,
1684: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1685: x_return_status => l_return_status,
1686: x_msg_count => l_msg_count,
1687: x_msg_data => l_msg_data,
1688: p_tax_id => p_cc_acct_lines_rec.tax_id,
1699: P_Line_Id =>l_cc_interface_rec.cc_acct_line_id,
1700: P_Tax_Amount =>l_func_tax_amt,
1701: P_Return_Status =>l_return_status,
1702: P_Error_Code =>P_Error_Code);
1703: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
1704: THEN
1705: RAISE FND_API.G_EXC_ERROR;
1706: END IF;
1707: END IF;
1701: P_Return_Status =>l_return_status,
1702: P_Error_Code =>P_Error_Code);
1703: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
1704: THEN
1705: RAISE FND_API.G_EXC_ERROR;
1706: END IF;
1707: END IF;
1708: l_func_amt := l_func_amt + Nvl(l_func_tax_amt,0);
1709:
1709:
1710: -- Calculate on the l_unbilled_amt
1711: /*igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1712: (p_api_version => 1.0,
1713: p_init_msg_list => FND_API.G_FALSE,
1714: p_commit => FND_API.G_FALSE,
1715: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1716: x_return_status => l_return_status,
1717: x_msg_count => l_msg_count,
1710: -- Calculate on the l_unbilled_amt
1711: /*igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1712: (p_api_version => 1.0,
1713: p_init_msg_list => FND_API.G_FALSE,
1714: p_commit => FND_API.G_FALSE,
1715: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1716: x_return_status => l_return_status,
1717: x_msg_count => l_msg_count,
1718: x_msg_data => l_msg_data,
1711: /*igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1712: (p_api_version => 1.0,
1713: p_init_msg_list => FND_API.G_FALSE,
1714: p_commit => FND_API.G_FALSE,
1715: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1716: x_return_status => l_return_status,
1717: x_msg_count => l_msg_count,
1718: x_msg_data => l_msg_data,
1719: p_tax_id => p_cc_acct_lines_rec.tax_id,
1730: P_Line_Id =>l_cc_interface_rec.cc_acct_line_id,
1731: P_Tax_Amount =>l_unbilled_tax_amt,
1732: P_Return_Status =>l_return_status,
1733: P_Error_Code =>P_Error_Code);
1734: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
1735: THEN
1736: RAISE FND_API.G_EXC_ERROR;
1737: END IF;
1738: END IF;
1732: P_Return_Status =>l_return_status,
1733: P_Error_Code =>P_Error_Code);
1734: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
1735: THEN
1736: RAISE FND_API.G_EXC_ERROR;
1737: END IF;
1738: END IF;
1739: /*EB Tax uptake - Bug No : 6472296 END*/
1740: l_unbilled_amt := l_unbilled_amt + Nvl(l_unbilled_tax_amt,0);
1775: x_msg_count,
1776: x_msg_data,
1777: l_return_status);
1778:
1779: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1780: RAISE FND_API.G_EXC_ERROR;
1781: END IF;
1782:
1783: END IF;
1776: x_msg_data,
1777: l_return_status);
1778:
1779: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1780: RAISE FND_API.G_EXC_ERROR;
1781: END IF;
1782:
1783: END IF;
1784:
1795: x_msg_count,
1796: x_msg_data,
1797: l_return_status);
1798:
1799: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1800: RAISE FND_API.G_EXC_ERROR;
1801: END IF;
1802:
1803: ELSE
1796: x_msg_data,
1797: l_return_status);
1798:
1799: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1800: RAISE FND_API.G_EXC_ERROR;
1801: END IF;
1802:
1803: ELSE
1804: /*Increase Adjustment */
1818: Insert_Interface_Row(l_cc_interface_rec,
1819: x_msg_count,
1820: x_msg_data,
1821: l_return_status);
1822: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1823: RAISE FND_API.G_EXC_ERROR;
1824: END IF;
1825: ELSIF
1826: (( NVL(p_cc_headers_rec.cc_encmbrnc_status,'N') = 'N') AND
1819: x_msg_count,
1820: x_msg_data,
1821: l_return_status);
1822: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1823: RAISE FND_API.G_EXC_ERROR;
1824: END IF;
1825: ELSIF
1826: (( NVL(p_cc_headers_rec.cc_encmbrnc_status,'N') = 'N') AND
1827: ( NVL(l_enc_amt,0) >= NVL(l_func_amt,0) )
1844: x_msg_count,
1845: x_msg_data,
1846: l_return_status);
1847:
1848: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1849: RAISE FND_API.G_EXC_ERROR;
1850: END IF;
1851: END IF;
1852: END IF;
1845: x_msg_data,
1846: l_return_status);
1847:
1848: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1849: RAISE FND_API.G_EXC_ERROR;
1850: END IF;
1851: END IF;
1852: END IF;
1853: END IF; /* Confirmed State */
1873: x_msg_count,
1874: x_msg_data,
1875: l_return_status);
1876:
1877: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1878: RAISE FND_API.G_EXC_ERROR;
1879: END IF;
1880:
1881: ELSIF
1874: x_msg_data,
1875: l_return_status);
1876:
1877: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1878: RAISE FND_API.G_EXC_ERROR;
1879: END IF;
1880:
1881: ELSIF
1882: ( ( NVL(p_cc_headers_rec.cc_encmbrnc_status,'N') = 'N') AND
1895: x_msg_count,
1896: x_msg_data,
1897: l_return_status);
1898:
1899: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1900: RAISE FND_API.G_EXC_ERROR;
1901: END IF;
1902:
1903: END IF;
1896: x_msg_data,
1897: l_return_status);
1898:
1899: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1900: RAISE FND_API.G_EXC_ERROR;
1901: END IF;
1902:
1903: END IF;
1904: END IF; /* Provisional state */
1952: x_msg_count,
1953: x_msg_data,
1954: l_return_status);
1955:
1956: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1957: RAISE FND_API.G_EXC_ERROR;
1958: END IF;
1959:
1960: END IF; /*Cancel State */
1953: x_msg_data,
1954: l_return_status);
1955:
1956: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1957: RAISE FND_API.G_EXC_ERROR;
1958: END IF;
1959:
1960: END IF; /*Cancel State */
1961:
2014: x_msg_count,
2015: x_msg_data,
2016: l_return_status);
2017:
2018: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2019: RAISE FND_API.G_EXC_ERROR;
2020: END IF;
2021:
2022: END IF; /* Completion of CC */
2015: x_msg_data,
2016: l_return_status);
2017:
2018: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2019: RAISE FND_API.G_EXC_ERROR;
2020: END IF;
2021:
2022: END IF; /* Completion of CC */
2023:
2026: RETURN;
2027:
2028: EXCEPTION
2029:
2030: WHEN FND_API.G_EXC_ERROR
2031: THEN
2032: x_return_status := FND_API.G_RET_STS_ERROR;
2033:
2034: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2028: EXCEPTION
2029:
2030: WHEN FND_API.G_EXC_ERROR
2031: THEN
2032: x_return_status := FND_API.G_RET_STS_ERROR;
2033:
2034: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2035: p_data => x_msg_data );
2036:
2035: p_data => x_msg_data );
2036:
2037: RETURN;
2038: IF (g_excep_level >= g_debug_level ) THEN
2039: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_ERROR Exception Raised');
2040: END IF;
2041:
2042: WHEN OTHERS
2043: THEN
2040: END IF;
2041:
2042: WHEN OTHERS
2043: THEN
2044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2045:
2046: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2047: THEN
2048: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
2064:
2065: PROCEDURE Execute_Budgetary_Ctrl
2066: (
2067: p_api_version IN NUMBER,
2068: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2069: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2070: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2071: x_return_status OUT NOCOPY VARCHAR2,
2072: x_bc_status OUT NOCOPY VARCHAR2 ,
2065: PROCEDURE Execute_Budgetary_Ctrl
2066: (
2067: p_api_version IN NUMBER,
2068: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2069: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2070: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2071: x_return_status OUT NOCOPY VARCHAR2,
2072: x_bc_status OUT NOCOPY VARCHAR2 ,
2073: x_msg_count OUT NOCOPY NUMBER,
2066: (
2067: p_api_version IN NUMBER,
2068: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2069: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2070: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2071: x_return_status OUT NOCOPY VARCHAR2,
2072: x_bc_status OUT NOCOPY VARCHAR2 ,
2073: x_msg_count OUT NOCOPY NUMBER,
2074: x_msg_data OUT NOCOPY VARCHAR2,
2349: l_full_path := g_path || 'Execute_Budgetary_Ctrl';
2350:
2351: SAVEPOINT Execute_Budgetary_Ctrl1;
2352:
2353: IF FND_API.to_Boolean(p_init_msg_list)
2354: THEN
2355: FND_MSG_PUB.initialize;
2356: END IF;
2357:
2354: THEN
2355: FND_MSG_PUB.initialize;
2356: END IF;
2357:
2358: IF NOT FND_API.Compatible_API_Call(l_api_version,
2359: p_api_version,
2360: l_api_name,
2361: G_PKG_NAME)
2362: THEN
2359: p_api_version,
2360: l_api_name,
2361: G_PKG_NAME)
2362: THEN
2363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2364: END IF;
2365:
2366: x_return_status := FND_API.G_RET_STS_SUCCESS;
2367: x_bc_status := FND_API.G_TRUE;
2362: THEN
2363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2364: END IF;
2365:
2366: x_return_status := FND_API.G_RET_STS_SUCCESS;
2367: x_bc_status := FND_API.G_TRUE;
2368: g_line_num := 0;
2369: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
2370: -- IF (l_debug = 'Y') THEN
2363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2364: END IF;
2365:
2366: x_return_status := FND_API.G_RET_STS_SUCCESS;
2367: x_bc_status := FND_API.G_TRUE;
2368: g_line_num := 0;
2369: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
2370: -- IF (l_debug = 'Y') THEN
2371: IF (g_debug_mode = 'Y') THEN
2368: g_line_num := 0;
2369: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
2370: -- IF (l_debug = 'Y') THEN
2371: IF (g_debug_mode = 'Y') THEN
2372: l_debug := FND_API.G_TRUE;
2373: ELSE
2374: l_debug := FND_API.G_FALSE;
2375: END IF;
2376: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
2370: -- IF (l_debug = 'Y') THEN
2371: IF (g_debug_mode = 'Y') THEN
2372: l_debug := FND_API.G_TRUE;
2373: ELSE
2374: l_debug := FND_API.G_FALSE;
2375: END IF;
2376: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
2377: l_validation_level := p_validation_level;
2378: l_update_login := FND_GLOBAL.LOGIN_ID;
2372: l_debug := FND_API.G_TRUE;
2373: ELSE
2374: l_debug := FND_API.G_FALSE;
2375: END IF;
2376: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
2377: l_validation_level := p_validation_level;
2378: l_update_login := FND_GLOBAL.LOGIN_ID;
2379: l_update_by := FND_GLOBAL.USER_ID;
2380:
2422: FROM igc_cc_headers
2423: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
2424:
2425: Header_Wrapper (p_api_version => l_api_version,
2426: p_init_msg_list => FND_API.G_FALSE,
2427: p_commit => FND_API.G_FALSE,
2428: p_validation_level => l_validation_level,
2429: x_return_status => l_return_status,
2430: x_msg_count => l_msg_count,
2423: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
2424:
2425: Header_Wrapper (p_api_version => l_api_version,
2426: p_init_msg_list => FND_API.G_FALSE,
2427: p_commit => FND_API.G_FALSE,
2428: p_validation_level => l_validation_level,
2429: x_return_status => l_return_status,
2430: x_msg_count => l_msg_count,
2431: x_msg_data => l_msg_data,
2434: p_cc_header_rec => l_cc_headers_rec,
2435: p_update_flag => l_update_flag
2436: );
2437:
2438: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2439: x_msg_data := l_msg_data;
2440: x_msg_count := l_msg_count;
2441: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2442: THEN
2469: RAISE E_DELETE;
2470: END;
2471: END IF;
2472:
2473: IF FND_API.To_Boolean(p_commit) THEN
2474: COMMIT WORK;
2475: END IF;
2476:
2477: SAVEPOINT Execute_Budgetary_Ctrl2;
2480: l_sob_id := l_cc_headers_rec.set_of_books_id;
2481: l_cc_State := l_cc_headers_rec.cc_state;
2482:
2483: Check_Budgetary_Ctrl_On(1.0,
2484: FND_API.G_FALSE,
2485: FND_API.G_VALID_LEVEL_FULL,
2486: x_return_status,
2487: x_msg_count,
2488: x_msg_data,
2481: l_cc_State := l_cc_headers_rec.cc_state;
2482:
2483: Check_Budgetary_Ctrl_On(1.0,
2484: FND_API.G_FALSE,
2485: FND_API.G_VALID_LEVEL_FULL,
2486: x_return_status,
2487: x_msg_count,
2488: x_msg_data,
2489: l_org_id,
2491: l_cc_state,
2492: l_encumbrance_on
2493: );
2494:
2495: IF (x_return_status = FND_API.G_RET_STS_SUCCESS)
2496: THEN
2497: IF (l_encumbrance_on = FND_API.G_FALSE)
2498: THEN
2499: x_return_status := FND_API.G_RET_STS_SUCCESS;
2493: );
2494:
2495: IF (x_return_status = FND_API.G_RET_STS_SUCCESS)
2496: THEN
2497: IF (l_encumbrance_on = FND_API.G_FALSE)
2498: THEN
2499: x_return_status := FND_API.G_RET_STS_SUCCESS;
2500: x_bc_status := FND_API.G_TRUE;
2501: RETURN;
2495: IF (x_return_status = FND_API.G_RET_STS_SUCCESS)
2496: THEN
2497: IF (l_encumbrance_on = FND_API.G_FALSE)
2498: THEN
2499: x_return_status := FND_API.G_RET_STS_SUCCESS;
2500: x_bc_status := FND_API.G_TRUE;
2501: RETURN;
2502: END IF;
2503: ELSE
2496: THEN
2497: IF (l_encumbrance_on = FND_API.G_FALSE)
2498: THEN
2499: x_return_status := FND_API.G_RET_STS_SUCCESS;
2500: x_bc_status := FND_API.G_TRUE;
2501: RETURN;
2502: END IF;
2503: ELSE
2504: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2569: /* End fix for bug 1509057 */
2570: IF (l_cc_headers_rec.cc_type = 'R')
2571: THEN
2572: Execute_Rel_Budgetary_Ctrl(1.0,
2573: FND_API.G_FALSE,
2574: FND_API.G_FALSE,
2575: FND_API.G_VALID_LEVEL_FULL,
2576: x_return_status,
2577: x_msg_count,
2570: IF (l_cc_headers_rec.cc_type = 'R')
2571: THEN
2572: Execute_Rel_Budgetary_Ctrl(1.0,
2573: FND_API.G_FALSE,
2574: FND_API.G_FALSE,
2575: FND_API.G_VALID_LEVEL_FULL,
2576: x_return_status,
2577: x_msg_count,
2578: x_msg_data,
2571: THEN
2572: Execute_Rel_Budgetary_Ctrl(1.0,
2573: FND_API.G_FALSE,
2574: FND_API.G_FALSE,
2575: FND_API.G_VALID_LEVEL_FULL,
2576: x_return_status,
2577: x_msg_count,
2578: x_msg_data,
2579: p_cc_header_id,
2581: l_cbc_on,
2582: l_currency_code
2583: );
2584:
2585: IF (x_return_status = FND_API.G_RET_STS_SUCCESS)
2586: THEN
2587: x_bc_status := FND_API.G_TRUE;
2588: ELSE
2589: x_bc_status := FND_API.G_FALSE;
2583: );
2584:
2585: IF (x_return_status = FND_API.G_RET_STS_SUCCESS)
2586: THEN
2587: x_bc_status := FND_API.G_TRUE;
2588: ELSE
2589: x_bc_status := FND_API.G_FALSE;
2590: END IF;
2591:
2585: IF (x_return_status = FND_API.G_RET_STS_SUCCESS)
2586: THEN
2587: x_bc_status := FND_API.G_TRUE;
2588: ELSE
2589: x_bc_status := FND_API.G_FALSE;
2590: END IF;
2591:
2592: IF (l_cc_apprvl_status_old <> 'IP')
2593: THEN
2619: FROM igc_cc_headers
2620: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
2621:
2622: Header_Wrapper (p_api_version => l_api_version,
2623: p_init_msg_list => FND_API.G_FALSE,
2624: p_commit => FND_API.G_FALSE,
2625: p_validation_level => l_validation_level,
2626: x_return_status => l_return_status,
2627: x_msg_count => l_msg_count,
2620: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
2621:
2622: Header_Wrapper (p_api_version => l_api_version,
2623: p_init_msg_list => FND_API.G_FALSE,
2624: p_commit => FND_API.G_FALSE,
2625: p_validation_level => l_validation_level,
2626: x_return_status => l_return_status,
2627: x_msg_count => l_msg_count,
2628: x_msg_data => l_msg_data,
2631: p_cc_header_rec => l_cc_headers_rec,
2632: p_update_flag => l_update_flag
2633: );
2634:
2635: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2636: x_msg_data := l_msg_data;
2637: x_msg_count := l_msg_count;
2638: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2639: THEN
2642: END IF;
2643: RAISE E_UPDATE;
2644: END IF;
2645:
2646: IF FND_API.To_Boolean(p_commit)
2647: THEN
2648: COMMIT WORK;
2649: END IF;
2650:
2691: p_accounting_date,
2692: x_msg_count,
2693: x_msg_data,
2694: l_return_status);
2695: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2696: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2697: THEN
2698: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
2699: l_api_name);
2741: x_msg_count,
2742: x_msg_data,
2743: l_return_status);
2744:
2745: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2746: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2747: THEN
2748: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
2749: l_api_name);
2804: p_ret_status => l_bc_return_status,
2805: p_batch_result_code => l_batch_result_code,
2806: p_doc_type => 'CC',
2807: p_debug => l_debug,
2808: p_conc_proc => FND_API.G_FALSE);
2809: IF l_bc_success = TRUE --No fatal errors
2810: AND substr(l_bc_return_status,1,1) IN ('N','S','A') --CBC successfull
2811: AND substr(l_bc_return_status,2,1) IN ('N','S','A') --SBC successfull
2812: AND l_interface_row_count <> 0 -- remained from the previous version ????
2810: AND substr(l_bc_return_status,1,1) IN ('N','S','A') --CBC successfull
2811: AND substr(l_bc_return_status,2,1) IN ('N','S','A') --SBC successfull
2812: AND l_interface_row_count <> 0 -- remained from the previous version ????
2813: THEN
2814: x_bc_status := FND_API.G_TRUE;
2815: ELSE
2816: x_bc_status := FND_API.G_FALSE;
2817: END IF;
2818:
2812: AND l_interface_row_count <> 0 -- remained from the previous version ????
2813: THEN
2814: x_bc_status := FND_API.G_TRUE;
2815: ELSE
2816: x_bc_status := FND_API.G_FALSE;
2817: END IF;
2818:
2819: ELSE
2820: x_return_status := FND_API.G_RET_STS_SUCCESS;
2816: x_bc_status := FND_API.G_FALSE;
2817: END IF;
2818:
2819: ELSE
2820: x_return_status := FND_API.G_RET_STS_SUCCESS;
2821: x_bc_status := FND_API.G_TRUE;
2822: END IF;
2823:
2824: /*EXCEPTION
2817: END IF;
2818:
2819: ELSE
2820: x_return_status := FND_API.G_RET_STS_SUCCESS;
2821: x_bc_status := FND_API.G_TRUE;
2822: END IF;
2823:
2824: /*EXCEPTION
2825: WHEN OTHERS
2840: /* If mode = Reservation then update CC Tables encumbrance status, encumbered_amount */
2841:
2842: BEGIN
2843:
2844: IF ( (p_mode = 'R') AND (x_bc_status = FND_API.G_TRUE) AND (l_interface_row_count <> 0) )
2845: THEN
2846:
2847: OPEN c_cc_interface(p_cc_header_id);
2848:
3029: Output_Debug (l_full_path, p_debug_msg => g_debug_msg);
3030: END IF;
3031:
3032: Account_Line_Wrapper (p_api_version => l_api_version,
3033: p_init_msg_list => FND_API.G_FALSE,
3034: p_commit => FND_API.G_FALSE,
3035: p_validation_level => l_validation_level,
3036: x_return_status => l_return_status,
3037: x_msg_count => l_msg_count,
3030: END IF;
3031:
3032: Account_Line_Wrapper (p_api_version => l_api_version,
3033: p_init_msg_list => FND_API.G_FALSE,
3034: p_commit => FND_API.G_FALSE,
3035: p_validation_level => l_validation_level,
3036: x_return_status => l_return_status,
3037: x_msg_count => l_msg_count,
3038: x_msg_data => l_msg_data,
3041: p_cc_acct_lines_rec => l_acct_line_rec,
3042: p_update_flag => l_update_flag
3043: );
3044:
3045: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3046: x_msg_data := l_msg_data;
3047: x_msg_count := l_msg_count;
3048: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
3049: IF (g_debug_mode = 'Y') THEN
3219: Output_Debug (l_full_path, p_debug_msg => g_debug_msg);
3220: END IF;
3221:
3222: Det_Pf_Wrapper (p_api_version => l_api_version,
3223: p_init_msg_list => FND_API.G_FALSE,
3224: p_commit => FND_API.G_FALSE,
3225: p_validation_level => l_validation_level,
3226: x_return_status => l_return_status,
3227: x_msg_count => l_msg_count,
3220: END IF;
3221:
3222: Det_Pf_Wrapper (p_api_version => l_api_version,
3223: p_init_msg_list => FND_API.G_FALSE,
3224: p_commit => FND_API.G_FALSE,
3225: p_validation_level => l_validation_level,
3226: x_return_status => l_return_status,
3227: x_msg_count => l_msg_count,
3228: x_msg_data => l_msg_data,
3231: p_cc_pmt_fcst_rec => l_det_pf_rec,
3232: p_update_flag => l_update_flag
3233: );
3234:
3235: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3236: x_msg_data := l_msg_data;
3237: x_msg_count := l_msg_count;
3238:
3239: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
3319:
3320: l_cc_headers_rec.cc_acct_date := p_accounting_date;
3321:
3322: Header_Wrapper (p_api_version => l_api_version,
3323: p_init_msg_list => FND_API.G_FALSE,
3324: p_commit => FND_API.G_FALSE,
3325: p_validation_level => l_validation_level,
3326: x_return_status => l_return_status,
3327: x_msg_count => l_msg_count,
3320: l_cc_headers_rec.cc_acct_date := p_accounting_date;
3321:
3322: Header_Wrapper (p_api_version => l_api_version,
3323: p_init_msg_list => FND_API.G_FALSE,
3324: p_commit => FND_API.G_FALSE,
3325: p_validation_level => l_validation_level,
3326: x_return_status => l_return_status,
3327: x_msg_count => l_msg_count,
3328: x_msg_data => l_msg_data,
3331: p_cc_header_rec => l_cc_headers_rec,
3332: p_update_flag => l_update_flag
3333: );
3334:
3335: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3336: x_msg_data := l_msg_data;
3337: x_msg_count := l_msg_count;
3338: l_cc_headers_rec.cc_encmbrnc_status := l_encumbrance_status_old;
3339:
3357: END IF;
3358:
3359: IGC_CC_ACTIONS_PKG.Insert_Row
3360: (1.0,
3361: FND_API.G_FALSE,
3362: FND_API.G_FALSE,
3363: FND_API.G_VALID_LEVEL_FULL,
3364: l_return_status,
3365: l_msg_count,
3358:
3359: IGC_CC_ACTIONS_PKG.Insert_Row
3360: (1.0,
3361: FND_API.G_FALSE,
3362: FND_API.G_FALSE,
3363: FND_API.G_VALID_LEVEL_FULL,
3364: l_return_status,
3365: l_msg_count,
3366: l_msg_data,
3359: IGC_CC_ACTIONS_PKG.Insert_Row
3360: (1.0,
3361: FND_API.G_FALSE,
3362: FND_API.G_FALSE,
3363: FND_API.G_VALID_LEVEL_FULL,
3364: l_return_status,
3365: l_msg_count,
3366: l_msg_data,
3367: l_rowid,
3378: sysdate,
3379: fnd_global.user_id
3380: );
3381:
3382: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3383: x_msg_data := l_msg_data;
3384: x_msg_count := l_msg_count;
3385:
3386: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
3473: Output_Debug (l_full_path, p_debug_msg => g_debug_msg);
3474: END IF;
3475:
3476: Account_Line_Wrapper (p_api_version => l_api_version,
3477: p_init_msg_list => FND_API.G_FALSE,
3478: p_commit => FND_API.G_FALSE,
3479: p_validation_level => l_validation_level,
3480: x_return_status => l_return_status,
3481: x_msg_count => l_msg_count,
3474: END IF;
3475:
3476: Account_Line_Wrapper (p_api_version => l_api_version,
3477: p_init_msg_list => FND_API.G_FALSE,
3478: p_commit => FND_API.G_FALSE,
3479: p_validation_level => l_validation_level,
3480: x_return_status => l_return_status,
3481: x_msg_count => l_msg_count,
3482: x_msg_data => l_msg_data,
3485: p_cc_acct_lines_rec => l_acct_line_rec,
3486: p_update_flag => l_update_flag
3487: );
3488:
3489: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3490: x_msg_data := l_msg_data;
3491: x_msg_count := l_msg_count;
3492:
3493: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
3547: FROM igc_cc_det_pf
3548: WHERE cc_det_pf_line_id = l_det_pf_rec.cc_det_pf_line_id;
3549:
3550: Det_Pf_Wrapper (p_api_version => l_api_version,
3551: p_init_msg_list => FND_API.G_FALSE,
3552: p_commit => FND_API.G_FALSE,
3553: p_validation_level => l_validation_level,
3554: x_return_status => l_return_status,
3555: x_msg_count => l_msg_count,
3548: WHERE cc_det_pf_line_id = l_det_pf_rec.cc_det_pf_line_id;
3549:
3550: Det_Pf_Wrapper (p_api_version => l_api_version,
3551: p_init_msg_list => FND_API.G_FALSE,
3552: p_commit => FND_API.G_FALSE,
3553: p_validation_level => l_validation_level,
3554: x_return_status => l_return_status,
3555: x_msg_count => l_msg_count,
3556: x_msg_data => l_msg_data,
3559: p_cc_pmt_fcst_rec => l_det_pf_rec,
3560: p_update_flag => l_update_flag
3561: );
3562:
3563: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3564: x_msg_data := l_msg_data;
3565: x_msg_count := l_msg_count;
3566:
3567: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
3613: Output_Debug (l_full_path, p_debug_msg => g_debug_msg);
3614: END IF;
3615:
3616: Header_Wrapper (p_api_version => l_api_version,
3617: p_init_msg_list => FND_API.G_FALSE,
3618: p_commit => FND_API.G_FALSE,
3619: p_validation_level => l_validation_level,
3620: x_return_status => l_return_status,
3621: x_msg_count => l_msg_count,
3614: END IF;
3615:
3616: Header_Wrapper (p_api_version => l_api_version,
3617: p_init_msg_list => FND_API.G_FALSE,
3618: p_commit => FND_API.G_FALSE,
3619: p_validation_level => l_validation_level,
3620: x_return_status => l_return_status,
3621: x_msg_count => l_msg_count,
3622: x_msg_data => l_msg_data,
3625: p_cc_header_rec => l_cc_headers_rec,
3626: p_update_flag => l_update_flag
3627: );
3628:
3629: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3630: x_msg_data := l_msg_data;
3631: x_msg_count := l_msg_count;
3632:
3633: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
3660: FROM igc_cc_headers
3661: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3662:
3663: Header_Wrapper (p_api_version => l_api_version,
3664: p_init_msg_list => FND_API.G_FALSE,
3665: p_commit => FND_API.G_FALSE,
3666: p_validation_level => l_validation_level,
3667: x_return_status => l_return_status,
3668: x_msg_count => l_msg_count,
3661: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3662:
3663: Header_Wrapper (p_api_version => l_api_version,
3664: p_init_msg_list => FND_API.G_FALSE,
3665: p_commit => FND_API.G_FALSE,
3666: p_validation_level => l_validation_level,
3667: x_return_status => l_return_status,
3668: x_msg_count => l_msg_count,
3669: x_msg_data => l_msg_data,
3672: p_cc_header_rec => l_cc_headers_rec,
3673: p_update_flag => l_update_flag
3674: );
3675:
3676: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3677: x_msg_data := l_msg_data;
3678: x_msg_count := l_msg_count;
3679: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
3680: IF (g_debug_mode = 'Y') THEN
3711: END IF;
3712:
3713: END IF;
3714:
3715: IF FND_API.To_Boolean(p_commit)
3716: THEN
3717: COMMIT WORK;
3718: END IF;
3719:
3723: RETURN;
3724:
3725: EXCEPTION
3726:
3727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR OR E_CC_NOT_FOUND OR E_INVALID_MODE OR E_UPDATE OR E_DELETE
3728: THEN
3729: ROLLBACK TO Execute_Budgetary_Ctrl1;
3730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3731: x_bc_status := FND_API.G_FALSE;
3726:
3727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR OR E_CC_NOT_FOUND OR E_INVALID_MODE OR E_UPDATE OR E_DELETE
3728: THEN
3729: ROLLBACK TO Execute_Budgetary_Ctrl1;
3730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3731: x_bc_status := FND_API.G_FALSE;
3732: IF (c_payment_forecast%ISOPEN) THEN
3733: CLOSE c_payment_forecast;
3734: END IF;
3727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR OR E_CC_NOT_FOUND OR E_INVALID_MODE OR E_UPDATE OR E_DELETE
3728: THEN
3729: ROLLBACK TO Execute_Budgetary_Ctrl1;
3730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3731: x_bc_status := FND_API.G_FALSE;
3732: IF (c_payment_forecast%ISOPEN) THEN
3733: CLOSE c_payment_forecast;
3734: END IF;
3735: IF (c_account_lines%ISOPEN) THEN
3750:
3751: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3752: p_data => x_msg_data );
3753: IF (g_excep_level >= g_debug_level ) THEN
3754: 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');
3755: END IF;
3756:
3757: WHEN E_PROCESS_ROW
3758: THEN
3770: FROM igc_cc_headers
3771: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3772:
3773: Header_Wrapper (p_api_version => l_api_version,
3774: p_init_msg_list => FND_API.G_FALSE,
3775: p_commit => FND_API.G_TRUE,
3776: p_validation_level => l_validation_level,
3777: x_return_status => l_return_status,
3778: x_msg_count => l_msg_count,
3771: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3772:
3773: Header_Wrapper (p_api_version => l_api_version,
3774: p_init_msg_list => FND_API.G_FALSE,
3775: p_commit => FND_API.G_TRUE,
3776: p_validation_level => l_validation_level,
3777: x_return_status => l_return_status,
3778: x_msg_count => l_msg_count,
3779: x_msg_data => l_msg_data,
3782: p_cc_header_rec => l_cc_headers_rec,
3783: p_update_flag => l_update_flag
3784: );
3785:
3786: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3787: x_msg_data := l_msg_data;
3788: x_msg_count := l_msg_count;
3789: END IF;
3790:
3789: END IF;
3790:
3791: END IF;
3792:
3793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3794: x_bc_status := FND_API.G_FALSE;
3795: IF (c_payment_forecast%ISOPEN) THEN
3796: CLOSE c_payment_forecast;
3797: END IF;
3790:
3791: END IF;
3792:
3793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3794: x_bc_status := FND_API.G_FALSE;
3795: IF (c_payment_forecast%ISOPEN) THEN
3796: CLOSE c_payment_forecast;
3797: END IF;
3798: IF (c_account_lines%ISOPEN) THEN
3835: FROM igc_cc_headers
3836: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3837:
3838: Header_Wrapper (p_api_version => l_api_version,
3839: p_init_msg_list => FND_API.G_FALSE,
3840: p_commit => FND_API.G_TRUE,
3841: p_validation_level => l_validation_level,
3842: x_return_status => l_return_status,
3843: x_msg_count => l_msg_count,
3836: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3837:
3838: Header_Wrapper (p_api_version => l_api_version,
3839: p_init_msg_list => FND_API.G_FALSE,
3840: p_commit => FND_API.G_TRUE,
3841: p_validation_level => l_validation_level,
3842: x_return_status => l_return_status,
3843: x_msg_count => l_msg_count,
3844: x_msg_data => l_msg_data,
3847: p_cc_header_rec => l_cc_headers_rec,
3848: p_update_flag => l_update_flag
3849: );
3850:
3851: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3852: x_msg_data := l_msg_data;
3853: x_msg_count := l_msg_count;
3854: END IF;
3855:
3854: END IF;
3855:
3856: END IF;
3857:
3858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3859: x_bc_status := FND_API.G_FALSE;
3860: IF (c_payment_forecast%ISOPEN) THEN
3861: CLOSE c_payment_forecast;
3862: END IF;
3855:
3856: END IF;
3857:
3858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3859: x_bc_status := FND_API.G_FALSE;
3860: IF (c_payment_forecast%ISOPEN) THEN
3861: CLOSE c_payment_forecast;
3862: END IF;
3863: IF (c_account_lines%ISOPEN) THEN
3904: FROM igc_cc_headers
3905: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3906:
3907: Header_Wrapper (p_api_version => l_api_version,
3908: p_init_msg_list => FND_API.G_FALSE,
3909: p_commit => FND_API.G_TRUE,
3910: p_validation_level => l_validation_level,
3911: x_return_status => l_return_status,
3912: x_msg_count => l_msg_count,
3905: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3906:
3907: Header_Wrapper (p_api_version => l_api_version,
3908: p_init_msg_list => FND_API.G_FALSE,
3909: p_commit => FND_API.G_TRUE,
3910: p_validation_level => l_validation_level,
3911: x_return_status => l_return_status,
3912: x_msg_count => l_msg_count,
3913: x_msg_data => l_msg_data,
3916: p_cc_header_rec => l_cc_headers_rec,
3917: p_update_flag => l_update_flag
3918: );
3919:
3920: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3921: x_msg_data := l_msg_data;
3922: x_msg_count := l_msg_count;
3923: END IF;
3924:
3923: END IF;
3924:
3925: END IF;
3926:
3927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3928: x_bc_status := FND_API.G_FALSE;
3929: IF (c_payment_forecast%ISOPEN) THEN
3930: CLOSE c_payment_forecast;
3931: END IF;
3924:
3925: END IF;
3926:
3927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3928: x_bc_status := FND_API.G_FALSE;
3929: IF (c_payment_forecast%ISOPEN) THEN
3930: CLOSE c_payment_forecast;
3931: END IF;
3932: IF (c_account_lines%ISOPEN) THEN
3968: FROM igc_cc_headers
3969: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3970:
3971: Header_Wrapper (p_api_version => l_api_version,
3972: p_init_msg_list => FND_API.G_FALSE,
3973: p_commit => FND_API.G_TRUE,
3974: p_validation_level => l_validation_level,
3975: x_return_status => l_return_status,
3976: x_msg_count => l_msg_count,
3969: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3970:
3971: Header_Wrapper (p_api_version => l_api_version,
3972: p_init_msg_list => FND_API.G_FALSE,
3973: p_commit => FND_API.G_TRUE,
3974: p_validation_level => l_validation_level,
3975: x_return_status => l_return_status,
3976: x_msg_count => l_msg_count,
3977: x_msg_data => l_msg_data,
3980: p_cc_header_rec => l_cc_headers_rec,
3981: p_update_flag => l_update_flag
3982: );
3983:
3984: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3985: x_msg_data := l_msg_data;
3986: x_msg_count := l_msg_count;
3987: END IF;
3988:
3987: END IF;
3988:
3989: END IF;
3990:
3991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3992: x_bc_status := FND_API.G_FALSE;
3993: IF (c_payment_forecast%ISOPEN) THEN
3994: CLOSE c_payment_forecast;
3995: END IF;
3988:
3989: END IF;
3990:
3991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3992: x_bc_status := FND_API.G_FALSE;
3993: IF (c_payment_forecast%ISOPEN) THEN
3994: CLOSE c_payment_forecast;
3995: END IF;
3996: IF (c_account_lines%ISOPEN) THEN
4029:
4030: PROCEDURE Check_Budgetary_Ctrl_On
4031: (
4032: p_api_version IN NUMBER,
4033: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4034: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4035: x_return_status OUT NOCOPY VARCHAR2,
4036: x_msg_count OUT NOCOPY NUMBER,
4037: x_msg_data OUT NOCOPY VARCHAR2,
4030: PROCEDURE Check_Budgetary_Ctrl_On
4031: (
4032: p_api_version IN NUMBER,
4033: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4034: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4035: x_return_status OUT NOCOPY VARCHAR2,
4036: x_msg_count OUT NOCOPY NUMBER,
4037: x_msg_data OUT NOCOPY VARCHAR2,
4038: p_org_id IN NUMBER,
4062: BEGIN
4063:
4064: l_full_path := g_path || 'Check_Budgetary_Ctrl_On';
4065:
4066: x_encumbrance_on := FND_API.G_TRUE;
4067: x_return_status := FND_API.G_RET_STS_SUCCESS;
4068: l_enable_budg_control_flag := 'N';
4069:
4070: IF FND_API.to_Boolean(p_init_msg_list)
4063:
4064: l_full_path := g_path || 'Check_Budgetary_Ctrl_On';
4065:
4066: x_encumbrance_on := FND_API.G_TRUE;
4067: x_return_status := FND_API.G_RET_STS_SUCCESS;
4068: l_enable_budg_control_flag := 'N';
4069:
4070: IF FND_API.to_Boolean(p_init_msg_list)
4071: THEN
4066: x_encumbrance_on := FND_API.G_TRUE;
4067: x_return_status := FND_API.G_RET_STS_SUCCESS;
4068: l_enable_budg_control_flag := 'N';
4069:
4070: IF FND_API.to_Boolean(p_init_msg_list)
4071: THEN
4072: FND_MSG_PUB.initialize;
4073: END IF;
4074:
4071: THEN
4072: FND_MSG_PUB.initialize;
4073: END IF;
4074:
4075: IF NOT FND_API.Compatible_API_Call(l_api_version,
4076: p_api_version,
4077: l_api_name,
4078: G_PKG_NAME)
4079: THEN
4076: p_api_version,
4077: l_api_name,
4078: G_PKG_NAME)
4079: THEN
4080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4081: END IF;
4082:
4083: IF (p_org_id IS NULL)
4084: THEN
4142: org_id = p_org_id;
4143: EXCEPTION
4144: WHEN NO_DATA_FOUND
4145: THEN
4146: x_encumbrance_on := FND_API.G_FALSE;
4147: END;
4148:
4149: /* Check whether CBC is turned on */
4150:
4162: IF ( (p_cc_state = 'PR') OR (p_cc_state = 'CL') )
4163: THEN
4164: IF (NVL(l_req_encumbrance_flag,'N') = 'Y')
4165: THEN
4166: x_encumbrance_on := FND_API.G_TRUE;
4167: ELSE
4168: x_encumbrance_on := FND_API.G_FALSE;
4169: END IF;
4170: END IF;
4164: IF (NVL(l_req_encumbrance_flag,'N') = 'Y')
4165: THEN
4166: x_encumbrance_on := FND_API.G_TRUE;
4167: ELSE
4168: x_encumbrance_on := FND_API.G_FALSE;
4169: END IF;
4170: END IF;
4171:
4172: IF ( (p_cc_state = 'CM') OR (p_cc_state = 'CT') )
4172: IF ( (p_cc_state = 'CM') OR (p_cc_state = 'CT') )
4173: THEN
4174: IF (NVL(l_purch_encumbrance_flag,'N') = 'Y')
4175: THEN
4176: x_encumbrance_on := FND_API.G_TRUE;
4177: ELSE
4178: x_encumbrance_on := FND_API.G_FALSE;
4179: END IF;
4180: END IF;
4174: IF (NVL(l_purch_encumbrance_flag,'N') = 'Y')
4175: THEN
4176: x_encumbrance_on := FND_API.G_TRUE;
4177: ELSE
4178: x_encumbrance_on := FND_API.G_FALSE;
4179: END IF;
4180: END IF;
4181: ELSE
4182: x_encumbrance_on := FND_API.G_FALSE;
4178: x_encumbrance_on := FND_API.G_FALSE;
4179: END IF;
4180: END IF;
4181: ELSE
4182: x_encumbrance_on := FND_API.G_FALSE;
4183: END IF;
4184:
4185: EXCEPTION
4186:
4185: EXCEPTION
4186:
4187: WHEN E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP OR E_GL_DATA OR E_NULL_PARAMETER
4188: THEN
4189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4190: x_encumbrance_on := FND_API.G_FALSE;
4191: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4192: p_data => x_msg_data );
4193: IF (g_excep_level >= g_debug_level ) THEN
4186:
4187: WHEN E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP OR E_GL_DATA OR E_NULL_PARAMETER
4188: THEN
4189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4190: x_encumbrance_on := FND_API.G_FALSE;
4191: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4192: p_data => x_msg_data );
4193: IF (g_excep_level >= g_debug_level ) THEN
4194: 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');
4193: IF (g_excep_level >= g_debug_level ) THEN
4194: 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');
4195: END IF;
4196:
4197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4198: THEN
4199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4200: x_encumbrance_on := FND_API.G_FALSE;
4201:
4195: END IF;
4196:
4197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4198: THEN
4199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4200: x_encumbrance_on := FND_API.G_FALSE;
4201:
4202: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4203: p_data => x_msg_data );
4196:
4197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4198: THEN
4199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4200: x_encumbrance_on := FND_API.G_FALSE;
4201:
4202: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4203: p_data => x_msg_data );
4204: IF (g_excep_level >= g_debug_level ) THEN
4201:
4202: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4203: p_data => x_msg_data );
4204: IF (g_excep_level >= g_debug_level ) THEN
4205: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
4206: END IF;
4207:
4208: WHEN OTHERS
4209: THEN
4206: END IF;
4207:
4208: WHEN OTHERS
4209: THEN
4210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4211: x_encumbrance_on := FND_API.G_FALSE;
4212:
4213: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4214: THEN
4207:
4208: WHEN OTHERS
4209: THEN
4210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4211: x_encumbrance_on := FND_API.G_FALSE;
4212:
4213: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4214: THEN
4215: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
4230:
4231: PROCEDURE Set_Encumbrance_Status
4232: (
4233: p_api_version IN NUMBER,
4234: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4235: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4236: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4237: x_return_status OUT NOCOPY VARCHAR2,
4238: x_msg_count OUT NOCOPY NUMBER,
4231: PROCEDURE Set_Encumbrance_Status
4232: (
4233: p_api_version IN NUMBER,
4234: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4235: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4236: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4237: x_return_status OUT NOCOPY VARCHAR2,
4238: x_msg_count OUT NOCOPY NUMBER,
4239: x_msg_data OUT NOCOPY VARCHAR2,
4232: (
4233: p_api_version IN NUMBER,
4234: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4235: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4236: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4237: x_return_status OUT NOCOPY VARCHAR2,
4238: x_msg_count OUT NOCOPY NUMBER,
4239: x_msg_data OUT NOCOPY VARCHAR2,
4240: p_cc_header_id IN NUMBER,
4422: l_full_path := g_path || 'Set_Encumbrance_Status';
4423:
4424: SAVEPOINT Set_Encumbrance_Status;
4425:
4426: IF FND_API.to_Boolean(p_init_msg_list)
4427: THEN
4428: FND_MSG_PUB.initialize;
4429: END IF;
4430:
4427: THEN
4428: FND_MSG_PUB.initialize;
4429: END IF;
4430:
4431: IF NOT FND_API.Compatible_API_Call(l_api_version,
4432: p_api_version,
4433: l_api_name,
4434: G_PKG_NAME)
4435: THEN
4432: p_api_version,
4433: l_api_name,
4434: G_PKG_NAME)
4435: THEN
4436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4437: END IF;
4438:
4439: x_return_status := FND_API.G_RET_STS_SUCCESS;
4440: l_validation_level := p_validation_level;
4435: THEN
4436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4437: END IF;
4438:
4439: x_return_status := FND_API.G_RET_STS_SUCCESS;
4440: l_validation_level := p_validation_level;
4441: l_update_login := FND_GLOBAL.LOGIN_ID;
4442: l_update_by := FND_GLOBAL.USER_ID;
4443:
4506: FROM igc_cc_acct_lines
4507: WHERE cc_acct_line_id = l_acct_line_rec.cc_acct_line_id;
4508:
4509: Account_Line_Wrapper (p_api_version => l_api_version,
4510: p_init_msg_list => FND_API.G_FALSE,
4511: p_commit => FND_API.G_FALSE,
4512: p_validation_level => l_validation_level,
4513: x_return_status => l_return_status,
4514: x_msg_count => l_msg_count,
4507: WHERE cc_acct_line_id = l_acct_line_rec.cc_acct_line_id;
4508:
4509: Account_Line_Wrapper (p_api_version => l_api_version,
4510: p_init_msg_list => FND_API.G_FALSE,
4511: p_commit => FND_API.G_FALSE,
4512: p_validation_level => l_validation_level,
4513: x_return_status => l_return_status,
4514: x_msg_count => l_msg_count,
4515: x_msg_data => l_msg_data,
4518: p_cc_acct_lines_rec => l_acct_line_rec,
4519: p_update_flag => l_update_flag
4520: );
4521:
4522: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4523: x_msg_data := l_msg_data;
4524: x_msg_count := l_msg_count;
4525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4526: END IF;
4521:
4522: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4523: x_msg_data := l_msg_data;
4524: x_msg_count := l_msg_count;
4525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4526: END IF;
4527:
4528: OPEN c_payment_forecast(l_cc_acct_lines_rec.cc_acct_line_id);
4529:
4556: FROM igc_cc_det_pf
4557: WHERE cc_det_pf_line_id = l_det_pf_rec.cc_det_pf_line_id;
4558:
4559: Det_Pf_Wrapper (p_api_version => l_api_version,
4560: p_init_msg_list => FND_API.G_FALSE,
4561: p_commit => FND_API.G_FALSE,
4562: p_validation_level => l_validation_level,
4563: x_return_status => l_return_status,
4564: x_msg_count => l_msg_count,
4557: WHERE cc_det_pf_line_id = l_det_pf_rec.cc_det_pf_line_id;
4558:
4559: Det_Pf_Wrapper (p_api_version => l_api_version,
4560: p_init_msg_list => FND_API.G_FALSE,
4561: p_commit => FND_API.G_FALSE,
4562: p_validation_level => l_validation_level,
4563: x_return_status => l_return_status,
4564: x_msg_count => l_msg_count,
4565: x_msg_data => l_msg_data,
4568: p_cc_pmt_fcst_rec => l_det_pf_rec,
4569: p_update_flag => l_update_flag
4570: );
4571:
4572: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4573: x_msg_data := l_msg_data;
4574: x_msg_count := l_msg_count;
4575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4576: END IF;
4571:
4572: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4573: x_msg_data := l_msg_data;
4574: x_msg_count := l_msg_count;
4575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4576: END IF;
4577:
4578: END LOOP;
4579:
4599: FROM igc_cc_headers
4600: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
4601:
4602: Header_Wrapper (p_api_version => l_api_version,
4603: p_init_msg_list => FND_API.G_FALSE,
4604: p_commit => FND_API.G_FALSE,
4605: p_validation_level => l_validation_level,
4606: x_return_status => l_return_status,
4607: x_msg_count => l_msg_count,
4600: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
4601:
4602: Header_Wrapper (p_api_version => l_api_version,
4603: p_init_msg_list => FND_API.G_FALSE,
4604: p_commit => FND_API.G_FALSE,
4605: p_validation_level => l_validation_level,
4606: x_return_status => l_return_status,
4607: x_msg_count => l_msg_count,
4608: x_msg_data => l_msg_data,
4611: p_cc_header_rec => l_cc_headers_rec,
4612: p_update_flag => l_update_flag
4613: );
4614:
4615: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4616: x_msg_data := l_msg_data;
4617: x_msg_count := l_msg_count;
4618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4619: END IF;
4614:
4615: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4616: x_msg_data := l_msg_data;
4617: x_msg_count := l_msg_count;
4618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4619: END IF;
4620:
4621: IF FND_API.To_Boolean(p_commit)
4622: THEN
4617: x_msg_count := l_msg_count;
4618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4619: END IF;
4620:
4621: IF FND_API.To_Boolean(p_commit)
4622: THEN
4623: COMMIT WORK;
4624: END IF;
4625:
4629:
4630: WHEN E_CC_NOT_FOUND OR E_INVALID_STATUS_CODE
4631: THEN
4632: ROLLBACK TO Set_Encumbrance_Status;
4633: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4634: IF (c_payment_forecast%ISOPEN) THEN
4635: CLOSE c_payment_forecast;
4636: END IF;
4637: IF (c_det_pf_line%ISOPEN) THEN
4648: IF (g_excep_level >= g_debug_level ) THEN
4649: FND_LOG.STRING (g_excep_level,l_full_path,'E_CC_NOT_FOUND OR E_INVALID_STATUS_CODE Exception Raised');
4650: END IF;
4651:
4652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4653: THEN
4654: ROLLBACK TO Set_Encumbrance_Status;
4655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4656: IF (c_payment_forecast%ISOPEN) THEN
4651:
4652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4653: THEN
4654: ROLLBACK TO Set_Encumbrance_Status;
4655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4656: IF (c_payment_forecast%ISOPEN) THEN
4657: CLOSE c_payment_forecast;
4658: END IF;
4659: IF (c_det_pf_line%ISOPEN) THEN
4667: END IF;
4668: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4669: p_data => x_msg_data );
4670: IF (g_excep_level >= g_debug_level ) THEN
4671: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
4672: END IF;
4673:
4674: WHEN OTHERS
4675: THEN
4673:
4674: WHEN OTHERS
4675: THEN
4676: ROLLBACK TO Set_Encumbrance_Status;
4677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4678: IF (c_payment_forecast%ISOPEN) THEN
4679: CLOSE c_payment_forecast;
4680: END IF;
4681: IF (c_det_pf_line%ISOPEN) THEN
4708:
4709: PROCEDURE Validate_CC
4710: (
4711: p_api_version IN NUMBER,
4712: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4713: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4714: x_return_status OUT NOCOPY VARCHAR2,
4715: x_msg_count OUT NOCOPY NUMBER,
4716: x_msg_data OUT NOCOPY VARCHAR2,
4709: PROCEDURE Validate_CC
4710: (
4711: p_api_version IN NUMBER,
4712: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4713: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4714: x_return_status OUT NOCOPY VARCHAR2,
4715: x_msg_count OUT NOCOPY NUMBER,
4716: x_msg_data OUT NOCOPY VARCHAR2,
4717: p_cc_header_id IN NUMBER,
4907: BEGIN
4908:
4909: l_full_path := g_path || 'Validate_CC';
4910:
4911: IF FND_API.to_Boolean(p_init_msg_list) THEN
4912: FND_MSG_PUB.initialize;
4913: END IF;
4914:
4915: IF NOT FND_API.Compatible_API_Call(l_api_version,p_api_version, l_api_name, G_PKG_NAME) THEN
4911: IF FND_API.to_Boolean(p_init_msg_list) THEN
4912: FND_MSG_PUB.initialize;
4913: END IF;
4914:
4915: IF NOT FND_API.Compatible_API_Call(l_api_version,p_api_version, l_api_name, G_PKG_NAME) THEN
4916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4917: END IF;
4918:
4919: x_return_status := FND_API.G_RET_STS_SUCCESS;
4912: FND_MSG_PUB.initialize;
4913: END IF;
4914:
4915: IF NOT FND_API.Compatible_API_Call(l_api_version,p_api_version, l_api_name, G_PKG_NAME) THEN
4916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4917: END IF;
4918:
4919: x_return_status := FND_API.G_RET_STS_SUCCESS;
4920: x_valid_cc := FND_API.G_TRUE;
4915: IF NOT FND_API.Compatible_API_Call(l_api_version,p_api_version, l_api_name, G_PKG_NAME) THEN
4916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4917: END IF;
4918:
4919: x_return_status := FND_API.G_RET_STS_SUCCESS;
4920: x_valid_cc := FND_API.G_TRUE;
4921:
4922: -- Get the application id that will be used throughout the process.
4923: -- Bug 1830385, Bidisha S, 2 Jul 2001
4916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4917: END IF;
4918:
4919: x_return_status := FND_API.G_RET_STS_SUCCESS;
4920: x_valid_cc := FND_API.G_TRUE;
4921:
4922: -- Get the application id that will be used throughout the process.
4923: -- Bug 1830385, Bidisha S, 2 Jul 2001
4924: OPEN c_gl_app_id;
4929: -- options like standard budgetary control , commitment budgetary control, provisional contract
4930: -- encumbrance set-up, confirmed contract encumbrance setups or enabled or not.
4931: -- If encumbrance is not enabled then the individual setups are defaulted to 'N'.
4932:
4933: IF p_encumbrance_flag = FND_API.G_TRUE THEN
4934:
4935: -- Standard Budgetary Control enabled or not
4936:
4937: BEGIN
4940: FROM gl_sets_of_books
4941: WHERE set_of_books_id = p_sob_id;
4942: EXCEPTION
4943: WHEN NO_DATA_FOUND THEN
4944: x_valid_cc := FND_API.G_FALSE;
4945: x_return_status := FND_API.G_RET_STS_ERROR;
4946: fnd_message.set_name('IGC', 'IGC_CC_INVALID_GL_DATA');
4947: IF(g_error_level >= g_debug_level) THEN
4948: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
4941: WHERE set_of_books_id = p_sob_id;
4942: EXCEPTION
4943: WHEN NO_DATA_FOUND THEN
4944: x_valid_cc := FND_API.G_FALSE;
4945: x_return_status := FND_API.G_RET_STS_ERROR;
4946: fnd_message.set_name('IGC', 'IGC_CC_INVALID_GL_DATA');
4947: IF(g_error_level >= g_debug_level) THEN
4948: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
4949: END IF;
5010: IF ( p_start_date IS NOT NULL) AND p_field_from = 'START_DATE' THEN
5011:
5012: IF (p_end_date IS NOT NULL) THEN
5013: IF p_end_date < p_start_date THEN
5014: x_valid_cc := FND_API.G_FALSE;
5015: x_return_status := FND_API.G_RET_STS_ERROR;
5016: fnd_message.set_name('IGC', 'IGC_CC_EFFECTIVE_START_DATE');
5017: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5018: IF(g_state_level >= g_debug_level) THEN
5011:
5012: IF (p_end_date IS NOT NULL) THEN
5013: IF p_end_date < p_start_date THEN
5014: x_valid_cc := FND_API.G_FALSE;
5015: x_return_status := FND_API.G_RET_STS_ERROR;
5016: fnd_message.set_name('IGC', 'IGC_CC_EFFECTIVE_START_DATE');
5017: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5018: IF(g_state_level >= g_debug_level) THEN
5019: FND_LOG.MESSAGE(g_state_level, l_full_path, FALSE);
5023: END IF;
5024:
5025: -- Encumbrance turned on or not check begins here.
5026:
5027: IF (p_encumbrance_flag = FND_API.G_FALSE) THEN
5028:
5029: -- Encumbrance is turned OFF.
5030: -- If encumbrance is off
5031: -- then start date is validated only against
5047: l_COUNT := 0;
5048: END;
5049:
5050: IF (NVL(l_COUNT,0) = 0) THEN
5051: x_valid_cc := FND_API.G_FALSE;
5052: x_return_status := FND_API.G_RET_STS_ERROR;
5053: fnd_message.set_name('IGC', 'IGC_CC_EFF_CCPER_START_DATE');
5054: fnd_message.set_token('STARTDATE', FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5055: IF(g_state_level >= g_debug_level) THEN
5048: END;
5049:
5050: IF (NVL(l_COUNT,0) = 0) THEN
5051: x_valid_cc := FND_API.G_FALSE;
5052: x_return_status := FND_API.G_RET_STS_ERROR;
5053: fnd_message.set_name('IGC', 'IGC_CC_EFF_CCPER_START_DATE');
5054: fnd_message.set_token('STARTDATE', FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5055: IF(g_state_level >= g_debug_level) THEN
5056: FND_LOG.MESSAGE(g_state_level, l_full_path, FALSE);
5057: END IF;
5058: fnd_msg_pub.add;
5059: END IF;
5060:
5061: ELSIF p_encumbrance_flag = FND_API.G_TRUE AND
5062: ( l_sbc_enable_flag = 'Y' ) AND
5063: ( l_cbc_enable_flag IN ('Y','N') AND
5064: (l_cc_prov_encmbrnc_flag IN ('Y','N') AND l_cc_conf_encmbrnc_flag = 'Y')
5065: )
5097: END IF;
5098: END;
5099:
5100: IF (NVL(l_COUNT,0) = 0) THEN
5101: x_valid_cc := FND_API.G_FALSE;
5102: x_return_status := FND_API.G_RET_STS_ERROR;
5103: fnd_message.set_name('IGC', 'IGC_CC_EFF_CCGLPER_START_DATE');
5104: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(p_start_date),FALSE);
5105: IF(g_error_level >= g_debug_level) THEN
5098: END;
5099:
5100: IF (NVL(l_COUNT,0) = 0) THEN
5101: x_valid_cc := FND_API.G_FALSE;
5102: x_return_status := FND_API.G_RET_STS_ERROR;
5103: fnd_message.set_name('IGC', 'IGC_CC_EFF_CCGLPER_START_DATE');
5104: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(p_start_date),FALSE);
5105: IF(g_error_level >= g_debug_level) THEN
5106: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5125: END ;
5126:
5127: IF (p_start_date > NVL(l_min_rel_start_date,p_start_date) )
5128: THEN
5129: x_valid_cc := FND_API.G_FALSE;
5130: x_return_status := FND_API.G_RET_STS_ERROR;
5131: fnd_message.set_name('IGC', 'IGC_CC_EFF_COVER_START_DATE');
5132: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5133: IF(g_error_level >= g_debug_level) THEN
5126:
5127: IF (p_start_date > NVL(l_min_rel_start_date,p_start_date) )
5128: THEN
5129: x_valid_cc := FND_API.G_FALSE;
5130: x_return_status := FND_API.G_RET_STS_ERROR;
5131: fnd_message.set_name('IGC', 'IGC_CC_EFF_COVER_START_DATE');
5132: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5133: IF(g_error_level >= g_debug_level) THEN
5134: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5151: END ;
5152:
5153: IF (p_start_date < NVL(l_cover_start_date,p_start_date) )
5154: THEN
5155: x_valid_cc := FND_API.G_FALSE;
5156: x_return_status := FND_API.G_RET_STS_ERROR;
5157: fnd_message.set_name('IGC', 'IGC_CC_EFF_REL_START_DATE');
5158: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5159: IF(g_error_level >= g_debug_level) THEN
5152:
5153: IF (p_start_date < NVL(l_cover_start_date,p_start_date) )
5154: THEN
5155: x_valid_cc := FND_API.G_FALSE;
5156: x_return_status := FND_API.G_RET_STS_ERROR;
5157: fnd_message.set_name('IGC', 'IGC_CC_EFF_REL_START_DATE');
5158: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5159: IF(g_error_level >= g_debug_level) THEN
5160: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5163: END IF;
5164: END IF; -- Commitment Type is Release.
5165:
5166: ELSIF ( p_start_date IS NULL) THEN
5167: x_valid_cc := FND_API.G_FALSE;
5168: x_return_status := FND_API.G_RET_STS_ERROR;
5169: fnd_message.set_name('IGC', 'IGC_CC_NO_START_DATE');
5170: IF(g_error_level >= g_debug_level) THEN
5171: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5164: END IF; -- Commitment Type is Release.
5165:
5166: ELSIF ( p_start_date IS NULL) THEN
5167: x_valid_cc := FND_API.G_FALSE;
5168: x_return_status := FND_API.G_RET_STS_ERROR;
5169: fnd_message.set_name('IGC', 'IGC_CC_NO_START_DATE');
5170: IF(g_error_level >= g_debug_level) THEN
5171: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5172: END IF;
5178:
5179: IF (p_end_date IS NOT NULL) AND p_field_from = 'END_DATE' THEN
5180:
5181: IF p_end_date < p_start_date THEN
5182: x_valid_cc := FND_API.G_FALSE;
5183: x_return_status := FND_API.G_RET_STS_ERROR;
5184: fnd_message.set_name('IGC', 'IGC_CC_EFFECTIVE_END_DATE');
5185: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5186: fnd_message.set_token('ENDDATE',FND_DATE.DATE_TO_CHARDATE (P_END_DATE),FALSE);
5179: IF (p_end_date IS NOT NULL) AND p_field_from = 'END_DATE' THEN
5180:
5181: IF p_end_date < p_start_date THEN
5182: x_valid_cc := FND_API.G_FALSE;
5183: x_return_status := FND_API.G_RET_STS_ERROR;
5184: fnd_message.set_name('IGC', 'IGC_CC_EFFECTIVE_END_DATE');
5185: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5186: fnd_message.set_token('ENDDATE',FND_DATE.DATE_TO_CHARDATE (P_END_DATE),FALSE);
5187: IF(g_error_level >= g_debug_level) THEN
5204: END ;
5205:
5206: IF (p_end_date < NVL(l_max_rel_end_date,p_end_date) )
5207: THEN
5208: x_valid_cc := FND_API.G_FALSE;
5209: x_return_status := FND_API.G_RET_STS_ERROR;
5210: fnd_message.set_name('IGC', 'IGC_CC_EFF_COVER_END_DATE');
5211: IF(g_error_level >= g_debug_level) THEN
5212: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5205:
5206: IF (p_end_date < NVL(l_max_rel_end_date,p_end_date) )
5207: THEN
5208: x_valid_cc := FND_API.G_FALSE;
5209: x_return_status := FND_API.G_RET_STS_ERROR;
5210: fnd_message.set_name('IGC', 'IGC_CC_EFF_COVER_END_DATE');
5211: IF(g_error_level >= g_debug_level) THEN
5212: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5213: END IF;
5228: END ;
5229:
5230: IF (p_end_date > NVL(l_cover_end_date,p_end_date) )
5231: THEN
5232: x_valid_cc := FND_API.G_FALSE;
5233: x_return_status := FND_API.G_RET_STS_ERROR;
5234: fnd_message.set_name('IGC', 'IGC_CC_EFF_REL_END_DATE');
5235: IF(g_error_level >= g_debug_level) THEN
5236: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5229:
5230: IF (p_end_date > NVL(l_cover_end_date,p_end_date) )
5231: THEN
5232: x_valid_cc := FND_API.G_FALSE;
5233: x_return_status := FND_API.G_RET_STS_ERROR;
5234: fnd_message.set_name('IGC', 'IGC_CC_EFF_REL_END_DATE');
5235: IF(g_error_level >= g_debug_level) THEN
5236: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5237: END IF;
5247:
5248: -- Basic Validations
5249:
5250: IF (p_cc_det_pf_date < p_start_date) THEN
5251: x_valid_cc := FND_API.G_FALSE;
5252: x_return_status := FND_API.G_RET_STS_ERROR;
5253: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
5254: fnd_message.set_token('PFDATE',FND_DATE.DATE_TO_CHARDATE(p_cc_det_pf_date),FALSE);
5255: IF(g_error_level >= g_debug_level) THEN
5248: -- Basic Validations
5249:
5250: IF (p_cc_det_pf_date < p_start_date) THEN
5251: x_valid_cc := FND_API.G_FALSE;
5252: x_return_status := FND_API.G_RET_STS_ERROR;
5253: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
5254: fnd_message.set_token('PFDATE',FND_DATE.DATE_TO_CHARDATE(p_cc_det_pf_date),FALSE);
5255: IF(g_error_level >= g_debug_level) THEN
5256: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5259: END IF;
5260: IF ( (p_cc_det_pf_date > p_end_date) AND
5261: (p_end_date IS NOT NULL)
5262: ) THEN
5263: x_valid_cc := FND_API.G_FALSE;
5264: x_return_status := FND_API.G_RET_STS_ERROR;
5265: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
5266: fnd_message.set_token('PFDATE',FND_DATE.DATE_TO_CHARDATE(p_cc_det_pf_date),FALSE);
5267: IF(g_error_level >= g_debug_level) THEN
5260: IF ( (p_cc_det_pf_date > p_end_date) AND
5261: (p_end_date IS NOT NULL)
5262: ) THEN
5263: x_valid_cc := FND_API.G_FALSE;
5264: x_return_status := FND_API.G_RET_STS_ERROR;
5265: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
5266: fnd_message.set_token('PFDATE',FND_DATE.DATE_TO_CHARDATE(p_cc_det_pf_date),FALSE);
5267: IF(g_error_level >= g_debug_level) THEN
5268: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5271: END IF;
5272:
5273: -- Budgetary Control turned on.
5274:
5275: IF p_encumbrance_flag = FND_API.G_TRUE THEN
5276: BEGIN
5277: -- Performance Tuning, replaced
5278: -- view gl_period_statuses_v with
5279: -- gl_period_statuses
5301: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5302: END IF;
5303: END;
5304: IF NVL(l_COUNT,0) = 0 THEN
5305: x_valid_cc := FND_API.G_FALSE;
5306: x_return_status := FND_API.G_RET_STS_ERROR;
5307: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
5308: IF(g_error_level >= g_debug_level) THEN
5309: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5302: END IF;
5303: END;
5304: IF NVL(l_COUNT,0) = 0 THEN
5305: x_valid_cc := FND_API.G_FALSE;
5306: x_return_status := FND_API.G_RET_STS_ERROR;
5307: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
5308: IF(g_error_level >= g_debug_level) THEN
5309: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5310: END IF;
5327: OR ( p_acct_date IS NULL)
5328: OR (p_acct_date < p_prev_acct_date AND
5329: p_prev_acct_date IS NOT NULL)
5330: THEN
5331: x_valid_cc := FND_API.G_FALSE;
5332: x_return_status := FND_API.G_RET_STS_ERROR;
5333: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE');
5334: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5335: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5328: OR (p_acct_date < p_prev_acct_date AND
5329: p_prev_acct_date IS NOT NULL)
5330: THEN
5331: x_valid_cc := FND_API.G_FALSE;
5332: x_return_status := FND_API.G_RET_STS_ERROR;
5333: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE');
5334: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5335: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5336: fnd_message.set_token('ENDDATE',FND_DATE.DATE_TO_CHARDATE(P_END_DATE),FALSE);
5347: OR ( (p_acct_date NOT BETWEEN p_prev_acct_date AND SYSDATE) AND
5348: p_prev_acct_date IS NOT NULL AND
5349: p_prev_acct_date < SYSDATE)
5350: THEN
5351: x_valid_cc := FND_API.G_FALSE;
5352: x_return_status := FND_API.G_RET_STS_ERROR;
5353: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_CL_CT');
5354: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5355: fnd_message.set_token('PREV_ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_PREV_ACCT_DATE),FALSE);
5348: p_prev_acct_date IS NOT NULL AND
5349: p_prev_acct_date < SYSDATE)
5350: THEN
5351: x_valid_cc := FND_API.G_FALSE;
5352: x_return_status := FND_API.G_RET_STS_ERROR;
5353: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_CL_CT');
5354: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5355: fnd_message.set_token('PREV_ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_PREV_ACCT_DATE),FALSE);
5356: IF(g_error_level >= g_debug_level) THEN
5362: END IF;
5363:
5364: -- Encumbrance turned ON.
5365:
5366: IF p_encumbrance_flag = FND_API.G_TRUE AND
5367: (l_sbc_enable_flag = 'Y' ) AND
5368: ( l_cbc_enable_flag IN ('Y','N') AND
5369: (l_cc_prov_encmbrnc_flag IN ('Y','N') AND (l_cc_conf_encmbrnc_flag = 'Y'))
5370: )
5407: END IF;
5408:
5409: END;
5410: IF NVL(l_COUNT,0) = 0 THEN
5411: x_valid_cc := FND_API.G_FALSE;
5412: x_return_status := FND_API.G_RET_STS_ERROR;
5413: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_OF');
5414: IF(g_error_level >= g_debug_level) THEN
5415: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5408:
5409: END;
5410: IF NVL(l_COUNT,0) = 0 THEN
5411: x_valid_cc := FND_API.G_FALSE;
5412: x_return_status := FND_API.G_RET_STS_ERROR;
5413: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_OF');
5414: IF(g_error_level >= g_debug_level) THEN
5415: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5416: END IF;
5479: AND (p_acct_date between gl.start_date and gl.end_date);
5480: END;
5481: IF l_orig_fiscal_year <> l_new_fiscal_year
5482: THEN
5483: x_valid_cc := FND_API.G_FALSE;
5484: x_return_status := FND_API.G_RET_STS_ERROR;
5485: fnd_message.set_name('IGC', 'IGC_CC_ACCT_FISCAL_YRS_NE');
5486: fnd_message.set_TOKEN('PREVACTDATE',FND_DATE.DATE_TO_CHARDATE (p_prev_acct_date),FALSE);
5487: IF(g_error_level >= g_debug_level) THEN
5480: END;
5481: IF l_orig_fiscal_year <> l_new_fiscal_year
5482: THEN
5483: x_valid_cc := FND_API.G_FALSE;
5484: x_return_status := FND_API.G_RET_STS_ERROR;
5485: fnd_message.set_name('IGC', 'IGC_CC_ACCT_FISCAL_YRS_NE');
5486: fnd_message.set_TOKEN('PREVACTDATE',FND_DATE.DATE_TO_CHARDATE (p_prev_acct_date),FALSE);
5487: IF(g_error_level >= g_debug_level) THEN
5488: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5521: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5522: END IF;
5523: END;
5524: IF NVL(l_COUNT,0) = 0 THEN
5525: x_valid_cc := FND_API.G_FALSE;
5526: x_return_status := FND_API.G_RET_STS_ERROR;
5527: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_O');
5528: IF(g_error_level >= g_debug_level) THEN
5529: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5522: END IF;
5523: END;
5524: IF NVL(l_COUNT,0) = 0 THEN
5525: x_valid_cc := FND_API.G_FALSE;
5526: x_return_status := FND_API.G_RET_STS_ERROR;
5527: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_O');
5528: IF(g_error_level >= g_debug_level) THEN
5529: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5530: END IF;
5548: OR ( p_acct_date IS NULL)
5549: OR (p_acct_date < p_prev_acct_date AND
5550: p_prev_acct_date IS NOT NULL)
5551: THEN
5552: x_valid_cc := FND_API.G_FALSE;
5553: x_return_status := FND_API.G_RET_STS_ERROR;
5554: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE');
5555: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5556: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5549: OR (p_acct_date < p_prev_acct_date AND
5550: p_prev_acct_date IS NOT NULL)
5551: THEN
5552: x_valid_cc := FND_API.G_FALSE;
5553: x_return_status := FND_API.G_RET_STS_ERROR;
5554: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE');
5555: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5556: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5557: fnd_message.set_token('ENDDATE',FND_DATE.DATE_TO_CHARDATE(P_END_DATE),FALSE);
5568: OR ( (p_acct_date NOT BETWEEN p_prev_acct_date AND SYSDATE) AND
5569: p_prev_acct_date IS NOT NULL AND
5570: p_prev_acct_date < SYSDATE)
5571: THEN
5572: x_valid_cc := FND_API.G_FALSE;
5573: x_return_status := FND_API.G_RET_STS_ERROR;
5574: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_CL_CT');
5575: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5576: fnd_message.set_token('PREV_ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_PREV_ACCT_DATE),FALSE);
5569: p_prev_acct_date IS NOT NULL AND
5570: p_prev_acct_date < SYSDATE)
5571: THEN
5572: x_valid_cc := FND_API.G_FALSE;
5573: x_return_status := FND_API.G_RET_STS_ERROR;
5574: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_CL_CT');
5575: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5576: fnd_message.set_token('PREV_ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_PREV_ACCT_DATE),FALSE);
5577: IF(g_error_level >= g_debug_level) THEN
5583: END IF;
5584:
5585: -- Encumbrance turned ON.
5586:
5587: IF p_encumbrance_flag = FND_API.G_TRUE AND
5588: (l_sbc_enable_flag = 'Y' ) AND
5589: ( l_cbc_enable_flag IN ('Y','N') AND
5590: (l_cc_prov_encmbrnc_flag IN ('Y','N') AND (l_cc_conf_encmbrnc_flag = 'Y'))
5591: )
5627: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5628: END IF;
5629: END;
5630: IF NVL(l_COUNT,0) = 0 THEN
5631: x_valid_cc := FND_API.G_FALSE;
5632: x_return_status := FND_API.G_RET_STS_ERROR;
5633: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_OF');
5634: IF(g_error_level >= g_debug_level) THEN
5635: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5628: END IF;
5629: END;
5630: IF NVL(l_COUNT,0) = 0 THEN
5631: x_valid_cc := FND_API.G_FALSE;
5632: x_return_status := FND_API.G_RET_STS_ERROR;
5633: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_OF');
5634: IF(g_error_level >= g_debug_level) THEN
5635: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5636: END IF;
5699: AND (p_acct_date between gl.start_date and gl.end_date);
5700: END;
5701: IF l_orig_fiscal_year <> l_new_fiscal_year
5702: THEN
5703: x_valid_cc := FND_API.G_FALSE;
5704: x_return_status := FND_API.G_RET_STS_ERROR;
5705: fnd_message.set_name('IGC', 'IGC_CC_ACCT_FISCAL_YRS_NE');
5706: fnd_message.set_TOKEN('PREVACTDATE',FND_DATE.DATE_TO_CHARDATE (p_prev_acct_date),FALSE);
5707: IF(g_error_level >= g_debug_level) THEN
5700: END;
5701: IF l_orig_fiscal_year <> l_new_fiscal_year
5702: THEN
5703: x_valid_cc := FND_API.G_FALSE;
5704: x_return_status := FND_API.G_RET_STS_ERROR;
5705: fnd_message.set_name('IGC', 'IGC_CC_ACCT_FISCAL_YRS_NE');
5706: fnd_message.set_TOKEN('PREVACTDATE',FND_DATE.DATE_TO_CHARDATE (p_prev_acct_date),FALSE);
5707: IF(g_error_level >= g_debug_level) THEN
5708: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5741: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5742: END IF;
5743: END;
5744: IF NVL(l_COUNT,0) = 0 THEN
5745: x_valid_cc := FND_API.G_FALSE;
5746: x_return_status := FND_API.G_RET_STS_ERROR;
5747: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_O');
5748: IF(g_error_level >= g_debug_level) THEN
5749: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5742: END IF;
5743: END;
5744: IF NVL(l_COUNT,0) = 0 THEN
5745: x_valid_cc := FND_API.G_FALSE;
5746: x_return_status := FND_API.G_RET_STS_ERROR;
5747: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_O');
5748: IF(g_error_level >= g_debug_level) THEN
5749: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5750: END IF;
5764: FROM igc_cc_headers
5765: WHERE cc_header_id = p_cc_header_id;
5766: EXCEPTION
5767: WHEN no_data_found THEN
5768: x_valid_cc := FND_API.G_FALSE;
5769: x_return_status := FND_API.G_RET_STS_ERROR;
5770: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
5771: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
5772: IF(g_error_level >= g_debug_level) THEN
5765: WHERE cc_header_id = p_cc_header_id;
5766: EXCEPTION
5767: WHEN no_data_found THEN
5768: x_valid_cc := FND_API.G_FALSE;
5769: x_return_status := FND_API.G_RET_STS_ERROR;
5770: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
5771: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
5772: IF(g_error_level >= g_debug_level) THEN
5773: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5821: -- And clause added for 2043221, Bidisha S , 12 Oct 2001
5822: -- Perform this validation only if the withheld amount is not equal to
5823: -- the amount in the account line
5824: THEN
5825: x_valid_cc := FND_API.G_FALSE;
5826: x_return_status := FND_API.G_RET_STS_ERROR;
5827: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
5828: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
5829: IF(g_error_level >= g_debug_level) THEN
5822: -- Perform this validation only if the withheld amount is not equal to
5823: -- the amount in the account line
5824: THEN
5825: x_valid_cc := FND_API.G_FALSE;
5826: x_return_status := FND_API.G_RET_STS_ERROR;
5827: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
5828: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
5829: IF(g_error_level >= g_debug_level) THEN
5830: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5842:
5843: -- PF Date vs Accounting Date Validation.
5844:
5845: IF (l_cc_det_pf_lines_rec.cc_det_pf_date < p_acct_date) THEN
5846: x_valid_cc := FND_API.G_FALSE;
5847: x_return_status := FND_API.G_RET_STS_ERROR;
5848: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_ACCT_DATE');
5849: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5850: fnd_message.set_TOKEN('ACCTDATE',FND_DATE.DATE_TO_CHARDATE (p_acct_date),FALSE);
5843: -- PF Date vs Accounting Date Validation.
5844:
5845: IF (l_cc_det_pf_lines_rec.cc_det_pf_date < p_acct_date) THEN
5846: x_valid_cc := FND_API.G_FALSE;
5847: x_return_status := FND_API.G_RET_STS_ERROR;
5848: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_ACCT_DATE');
5849: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5850: fnd_message.set_TOKEN('ACCTDATE',FND_DATE.DATE_TO_CHARDATE (p_acct_date),FALSE);
5851: IF(g_error_level >= g_debug_level) THEN
5865:
5866: CLOSE c_account_lines;
5867:
5868: IF (l_cc_acct_cnt = 0) THEN
5869: x_valid_cc := FND_API.G_FALSE;
5870: x_return_status := FND_API.G_RET_STS_ERROR;
5871: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
5872: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
5873: IF(g_error_level >= g_debug_level) THEN
5866: CLOSE c_account_lines;
5867:
5868: IF (l_cc_acct_cnt = 0) THEN
5869: x_valid_cc := FND_API.G_FALSE;
5870: x_return_status := FND_API.G_RET_STS_ERROR;
5871: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
5872: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
5873: IF(g_error_level >= g_debug_level) THEN
5874: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5888: FROM igc_cc_headers
5889: WHERE cc_header_id = p_cc_header_id;
5890: EXCEPTION
5891: WHEN no_data_found THEN
5892: x_valid_cc := FND_API.G_FALSE;
5893: x_return_status := FND_API.G_RET_STS_ERROR;
5894: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
5895: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
5896: IF(g_error_level >= g_debug_level) THEN
5889: WHERE cc_header_id = p_cc_header_id;
5890: EXCEPTION
5891: WHEN no_data_found THEN
5892: x_valid_cc := FND_API.G_FALSE;
5893: x_return_status := FND_API.G_RET_STS_ERROR;
5894: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
5895: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
5896: IF(g_error_level >= g_debug_level) THEN
5897: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5938: -- And clause added for 2043221, Bidisha S , 12 Oct 2001
5939: -- Perfom this validation only if the withheld amount is not equal to
5940: -- the amount in the account line
5941: THEN
5942: x_valid_cc := FND_API.G_FALSE;
5943: x_return_status := FND_API.G_RET_STS_ERROR;
5944: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
5945: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
5946: IF(g_error_level >= g_debug_level) THEN
5939: -- Perfom this validation only if the withheld amount is not equal to
5940: -- the amount in the account line
5941: THEN
5942: x_valid_cc := FND_API.G_FALSE;
5943: x_return_status := FND_API.G_RET_STS_ERROR;
5944: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
5945: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
5946: IF(g_error_level >= g_debug_level) THEN
5947: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5959:
5960: -- PF Date vs Start Date Validation.
5961:
5962: IF (l_cc_det_pf_lines_rec.cc_det_pf_date < p_start_date) THEN
5963: x_valid_cc := FND_API.G_FALSE;
5964: x_return_status := FND_API.G_RET_STS_ERROR;
5965: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
5966: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5967: IF (g_error_level >= g_debug_level) THEN
5960: -- PF Date vs Start Date Validation.
5961:
5962: IF (l_cc_det_pf_lines_rec.cc_det_pf_date < p_start_date) THEN
5963: x_valid_cc := FND_API.G_FALSE;
5964: x_return_status := FND_API.G_RET_STS_ERROR;
5965: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
5966: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5967: IF (g_error_level >= g_debug_level) THEN
5968: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5974:
5975: IF ( (l_cc_det_pf_lines_rec.cc_det_pf_date > p_end_date) AND
5976: (p_end_date IS NOT NULL)
5977: ) THEN
5978: x_valid_cc := FND_API.G_FALSE;
5979: x_return_status := FND_API.G_RET_STS_ERROR;
5980: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
5981: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5982: IF(g_error_level >= g_debug_level) THEN
5975: IF ( (l_cc_det_pf_lines_rec.cc_det_pf_date > p_end_date) AND
5976: (p_end_date IS NOT NULL)
5977: ) THEN
5978: x_valid_cc := FND_API.G_FALSE;
5979: x_return_status := FND_API.G_RET_STS_ERROR;
5980: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
5981: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5982: IF(g_error_level >= g_debug_level) THEN
5983: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6026: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
6027: END IF;
6028: END;
6029: IF NVL(l_COUNT,0) = 0 THEN
6030: x_valid_cc := FND_API.G_FALSE;
6031: x_return_status := FND_API.G_RET_STS_ERROR;
6032: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
6033: IF(g_error_level >= g_debug_level) THEN
6034: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6027: END IF;
6028: END;
6029: IF NVL(l_COUNT,0) = 0 THEN
6030: x_valid_cc := FND_API.G_FALSE;
6031: x_return_status := FND_API.G_RET_STS_ERROR;
6032: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
6033: IF(g_error_level >= g_debug_level) THEN
6034: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6035: END IF;
6038: END IF; -- ending the If Condition added for bug 9366764
6039: -- Encumbrance turned ON.
6040: -- Bug 1623034. Commitment Type should not be a RELEASE.
6041:
6042: IF p_encumbrance_flag = FND_API.G_TRUE AND
6043: ( (l_sbc_enable_flag = 'Y' ) AND
6044: ( ( l_cbc_enable_flag IN ('Y','N') AND
6045: (l_cc_prov_encmbrnc_flag IN ('Y','N') AND
6046: (l_cc_conf_encmbrnc_flag = 'Y')
6088: THEN
6089: IF TRUNC(l_cc_det_pf_lines_rec.cc_det_pf_date ) <>
6090: TRUNC(l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date)
6091: THEN
6092: x_valid_cc := FND_API.G_FALSE;
6093: x_return_status := FND_API.G_RET_STS_ERROR;
6094: fnd_message.set_name('IGC','IGC_CC_DET_PF_DATE_NO_UPDATE');
6095: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6096: IF(g_error_level >= g_debug_level) THEN
6089: IF TRUNC(l_cc_det_pf_lines_rec.cc_det_pf_date ) <>
6090: TRUNC(l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date)
6091: THEN
6092: x_valid_cc := FND_API.G_FALSE;
6093: x_return_status := FND_API.G_RET_STS_ERROR;
6094: fnd_message.set_name('IGC','IGC_CC_DET_PF_DATE_NO_UPDATE');
6095: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6096: IF(g_error_level >= g_debug_level) THEN
6097: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6163: AND (l_cc_det_pf_lines_rec.cc_det_pf_date between gl.start_date and gl.end_date);
6164: END;
6165: IF l_orig_fiscal_year <> l_new_fiscal_year
6166: THEN
6167: x_valid_cc := FND_API.G_FALSE;
6168: x_return_status := FND_API.G_RET_STS_ERROR;
6169: fnd_message.set_name('IGC', 'IGC_CC_FISCAL_YRS_NE');
6170: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6171: IF(g_error_level >= g_debug_level) THEN
6164: END;
6165: IF l_orig_fiscal_year <> l_new_fiscal_year
6166: THEN
6167: x_valid_cc := FND_API.G_FALSE;
6168: x_return_status := FND_API.G_RET_STS_ERROR;
6169: fnd_message.set_name('IGC', 'IGC_CC_FISCAL_YRS_NE');
6170: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6171: IF(g_error_level >= g_debug_level) THEN
6172: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6194: NVL(l_cc_acct_lines_rec.cc_ent_withheld_amt,0)) <> NVL(l_cc_acct_lines_rec.cc_acct_entered_amt,0)
6195: -- '+' added for 2043221, Bidisha S , 12 Oct 2001
6196: -- This validation now needs to include the withheld amount
6197: THEN
6198: x_valid_cc := FND_API.G_FALSE;
6199: x_return_status := FND_API.G_RET_STS_ERROR;
6200: fnd_message.set_name('IGC', 'IGC_CC_AMT_MISMATCH');
6201: fnd_message.set_token('ACCT_NUM',to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6202: IF(g_error_level >= g_debug_level) THEN
6195: -- '+' added for 2043221, Bidisha S , 12 Oct 2001
6196: -- This validation now needs to include the withheld amount
6197: THEN
6198: x_valid_cc := FND_API.G_FALSE;
6199: x_return_status := FND_API.G_RET_STS_ERROR;
6200: fnd_message.set_name('IGC', 'IGC_CC_AMT_MISMATCH');
6201: fnd_message.set_token('ACCT_NUM',to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6202: IF(g_error_level >= g_debug_level) THEN
6203: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6209:
6210: CLOSE c_account_lines;
6211:
6212: IF (l_cc_acct_cnt = 0) THEN
6213: x_valid_cc := FND_API.G_FALSE;
6214: x_return_status := FND_API.G_RET_STS_ERROR;
6215: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
6216: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
6217: IF(g_error_level >= g_debug_level) THEN
6210: CLOSE c_account_lines;
6211:
6212: IF (l_cc_acct_cnt = 0) THEN
6213: x_valid_cc := FND_API.G_FALSE;
6214: x_return_status := FND_API.G_RET_STS_ERROR;
6215: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
6216: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
6217: IF(g_error_level >= g_debug_level) THEN
6218: FND_LOG.MESSAGE(g_error_level, g_debug_level, FALSE);
6235: FROM igc_cc_headers
6236: WHERE cc_header_id = p_cc_header_id;
6237: EXCEPTION
6238: WHEN no_data_found THEN
6239: x_valid_cc := FND_API.G_FALSE;
6240: x_return_status := FND_API.G_RET_STS_ERROR;
6241: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
6242: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
6243: IF(g_error_level >= g_debug_level) THEN
6236: WHERE cc_header_id = p_cc_header_id;
6237: EXCEPTION
6238: WHEN no_data_found THEN
6239: x_valid_cc := FND_API.G_FALSE;
6240: x_return_status := FND_API.G_RET_STS_ERROR;
6241: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
6242: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
6243: IF(g_error_level >= g_debug_level) THEN
6244: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6290: -- And clause added for 2043221, Bidisha S , 12 Oct 2001
6291: -- Perfom this validation only if the withheld amount is not equal to
6292: -- the amount in the account line
6293: THEN
6294: x_valid_cc := FND_API.G_FALSE;
6295: x_return_status := FND_API.G_RET_STS_ERROR;
6296: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
6297: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6298: IF(g_error_level >= g_debug_level) THEN
6291: -- Perfom this validation only if the withheld amount is not equal to
6292: -- the amount in the account line
6293: THEN
6294: x_valid_cc := FND_API.G_FALSE;
6295: x_return_status := FND_API.G_RET_STS_ERROR;
6296: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
6297: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6298: IF(g_error_level >= g_debug_level) THEN
6299: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6311:
6312: -- PF Date vs Start Date Validation.
6313:
6314: IF (l_cc_det_pf_lines_rec.cc_det_pf_date < p_start_date) THEN
6315: x_valid_cc := FND_API.G_FALSE;
6316: x_return_status := FND_API.G_RET_STS_ERROR;
6317: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
6318: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
6319: IF(g_error_level >= g_debug_level) THEN
6312: -- PF Date vs Start Date Validation.
6313:
6314: IF (l_cc_det_pf_lines_rec.cc_det_pf_date < p_start_date) THEN
6315: x_valid_cc := FND_API.G_FALSE;
6316: x_return_status := FND_API.G_RET_STS_ERROR;
6317: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
6318: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
6319: IF(g_error_level >= g_debug_level) THEN
6320: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6326:
6327: IF ( (l_cc_det_pf_lines_rec.cc_det_pf_date > p_end_date) AND
6328: (p_end_date IS NOT NULL)
6329: ) THEN
6330: x_valid_cc := FND_API.G_FALSE;
6331: x_return_status := FND_API.G_RET_STS_ERROR;
6332: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
6333: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
6334: IF(g_error_level >= g_debug_level) THEN
6327: IF ( (l_cc_det_pf_lines_rec.cc_det_pf_date > p_end_date) AND
6328: (p_end_date IS NOT NULL)
6329: ) THEN
6330: x_valid_cc := FND_API.G_FALSE;
6331: x_return_status := FND_API.G_RET_STS_ERROR;
6332: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
6333: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
6334: IF(g_error_level >= g_debug_level) THEN
6335: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6378: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
6379: END IF;
6380: END;
6381: IF NVL(l_COUNT,0) = 0 THEN
6382: x_valid_cc := FND_API.G_FALSE;
6383: x_return_status := FND_API.G_RET_STS_ERROR;
6384: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
6385: IF(g_error_level >= g_debug_level) THEN
6386: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6379: END IF;
6380: END;
6381: IF NVL(l_COUNT,0) = 0 THEN
6382: x_valid_cc := FND_API.G_FALSE;
6383: x_return_status := FND_API.G_RET_STS_ERROR;
6384: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
6385: IF(g_error_level >= g_debug_level) THEN
6386: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6387: END IF;
6390: END IF; -- End of the If condition added for bug 9366764
6391: -- Encumbrance turned ON.
6392: -- Bug 1623034. Commitment Type should not be a RELEASE.
6393:
6394: IF p_encumbrance_flag = FND_API.G_TRUE AND
6395: ( (l_sbc_enable_flag = 'Y' ) AND
6396: ( l_cbc_enable_flag IN ('Y','N') AND
6397: (l_cc_prov_encmbrnc_flag IN ('Y','N') AND
6398: (l_cc_conf_encmbrnc_flag = 'Y')
6439: THEN
6440: IF TRUNC(l_cc_det_pf_lines_rec.cc_det_pf_date ) <>
6441: TRUNC (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date)
6442: THEN
6443: x_valid_cc := FND_API.G_FALSE;
6444: x_return_status := FND_API.G_RET_STS_ERROR;
6445: fnd_message.set_name('IGC',
6446: 'IGC_CC_DET_PF_DATE_NO_UPDATE');
6447: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6440: IF TRUNC(l_cc_det_pf_lines_rec.cc_det_pf_date ) <>
6441: TRUNC (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date)
6442: THEN
6443: x_valid_cc := FND_API.G_FALSE;
6444: x_return_status := FND_API.G_RET_STS_ERROR;
6445: fnd_message.set_name('IGC',
6446: 'IGC_CC_DET_PF_DATE_NO_UPDATE');
6447: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6448: IF(g_error_level >= g_debug_level) THEN
6515: AND (l_cc_det_pf_lines_rec.cc_det_pf_date between gl.start_date and gl.end_date);
6516: END;
6517: IF l_orig_fiscal_year <> l_new_fiscal_year
6518: THEN
6519: x_valid_cc := FND_API.G_FALSE;
6520: x_return_status := FND_API.G_RET_STS_ERROR;
6521: fnd_message.set_name('IGC', 'IGC_CC_FISCAL_YRS_NE');
6522: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6523: IF(g_error_level >= g_debug_level) THEN
6516: END;
6517: IF l_orig_fiscal_year <> l_new_fiscal_year
6518: THEN
6519: x_valid_cc := FND_API.G_FALSE;
6520: x_return_status := FND_API.G_RET_STS_ERROR;
6521: fnd_message.set_name('IGC', 'IGC_CC_FISCAL_YRS_NE');
6522: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6523: IF(g_error_level >= g_debug_level) THEN
6524: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6545: <> (NVL(l_cc_acct_lines_rec.cc_acct_entered_amt,0))
6546: -- '+' added for 2043221, Bidisha S , 12 Oct 2001
6547: -- This validation now needs to include the withheld amount
6548: THEN
6549: x_valid_cc := FND_API.G_FALSE;
6550: x_return_status := FND_API.G_RET_STS_ERROR;
6551: fnd_message.set_name('IGC', 'IGC_CC_AMT_MISMATCH');
6552: fnd_message.set_token('ACCT_NUM',to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6553: IF(g_error_level >= g_debug_level) THEN
6546: -- '+' added for 2043221, Bidisha S , 12 Oct 2001
6547: -- This validation now needs to include the withheld amount
6548: THEN
6549: x_valid_cc := FND_API.G_FALSE;
6550: x_return_status := FND_API.G_RET_STS_ERROR;
6551: fnd_message.set_name('IGC', 'IGC_CC_AMT_MISMATCH');
6552: fnd_message.set_token('ACCT_NUM',to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6553: IF(g_error_level >= g_debug_level) THEN
6554: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6560:
6561: CLOSE c_account_lines;
6562:
6563: IF (l_cc_acct_cnt = 0) THEN
6564: x_valid_cc := FND_API.G_FALSE;
6565: x_return_status := FND_API.G_RET_STS_ERROR;
6566: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
6567: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
6568: IF(g_error_level >= g_debug_level) THEN
6561: CLOSE c_account_lines;
6562:
6563: IF (l_cc_acct_cnt = 0) THEN
6564: x_valid_cc := FND_API.G_FALSE;
6565: x_return_status := FND_API.G_RET_STS_ERROR;
6566: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
6567: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
6568: IF(g_error_level >= g_debug_level) THEN
6569: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6578: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
6579:
6580: EXCEPTION
6581: WHEN E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP THEN
6582: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6583: x_valid_cc := FND_API.G_FALSE;
6584: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6585: p_data => x_msg_data );
6586: CLOSE c_account_lines;
6579:
6580: EXCEPTION
6581: WHEN E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP THEN
6582: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6583: x_valid_cc := FND_API.G_FALSE;
6584: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6585: p_data => x_msg_data );
6586: CLOSE c_account_lines;
6587: IF (g_excep_level >= g_debug_level ) THEN
6587: IF (g_excep_level >= g_debug_level ) THEN
6588: FND_LOG.STRING (g_excep_level,l_full_path,'E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP Exception Raised');
6589: END IF;
6590:
6591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6593: x_valid_cc := FND_API.G_FALSE;
6594: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6595: p_data => x_msg_data );
6588: FND_LOG.STRING (g_excep_level,l_full_path,'E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP Exception Raised');
6589: END IF;
6590:
6591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6593: x_valid_cc := FND_API.G_FALSE;
6594: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6595: p_data => x_msg_data );
6596: CLOSE c_account_lines;
6589: END IF;
6590:
6591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6593: x_valid_cc := FND_API.G_FALSE;
6594: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6595: p_data => x_msg_data );
6596: CLOSE c_account_lines;
6597: IF (g_excep_level >= g_debug_level ) THEN
6594: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6595: p_data => x_msg_data );
6596: CLOSE c_account_lines;
6597: IF (g_excep_level >= g_debug_level ) THEN
6598: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
6599: END IF;
6600:
6601: WHEN OTHERS THEN
6602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6598: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
6599: END IF;
6600:
6601: WHEN OTHERS THEN
6602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6603: x_valid_cc := FND_API.G_FALSE;
6604:
6605: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6606: THEN
6599: END IF;
6600:
6601: WHEN OTHERS THEN
6602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6603: x_valid_cc := FND_API.G_FALSE;
6604:
6605: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6606: THEN
6607: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name);
6623: -- This procedure calculates the non recoverable tax given an amount.
6624: -- Bug 2409502
6625: PROCEDURE calculate_nonrec_tax (
6626: p_api_version IN NUMBER,
6627: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6628: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6629: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6630: x_return_status OUT NOCOPY VARCHAR2,
6631: x_msg_count OUT NOCOPY NUMBER,
6624: -- Bug 2409502
6625: PROCEDURE calculate_nonrec_tax (
6626: p_api_version IN NUMBER,
6627: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6628: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6629: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6630: x_return_status OUT NOCOPY VARCHAR2,
6631: x_msg_count OUT NOCOPY NUMBER,
6632: x_msg_data OUT NOCOPY VARCHAR2,
6625: PROCEDURE calculate_nonrec_tax (
6626: p_api_version IN NUMBER,
6627: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6628: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6629: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6630: x_return_status OUT NOCOPY VARCHAR2,
6631: x_msg_count OUT NOCOPY NUMBER,
6632: x_msg_data OUT NOCOPY VARCHAR2,
6633: p_tax_id IN ap_tax_codes.tax_id%TYPE,
6652: BEGIN
6653:
6654: l_full_path := g_path || 'calculate_nonrec_tax';
6655:
6656: IF FND_API.to_Boolean(p_init_msg_list)
6657: THEN
6658: FND_MSG_PUB.initialize;
6659: END IF;
6660:
6657: THEN
6658: FND_MSG_PUB.initialize;
6659: END IF;
6660:
6661: IF NOT FND_API.Compatible_API_Call(l_api_version,
6662: p_api_version,
6663: l_api_name,
6664: G_PKG_NAME)
6665: THEN
6662: p_api_version,
6663: l_api_name,
6664: G_PKG_NAME)
6665: THEN
6666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6667: END IF;
6668:
6669: x_return_status := FND_API.G_RET_STS_SUCCESS;
6670:
6665: THEN
6666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6667: END IF;
6668:
6669: x_return_status := FND_API.G_RET_STS_SUCCESS;
6670:
6671: -- Get the tax rates
6672: OPEN c_get_tax;
6673: FETCH c_get_tax INTO l_tax_recovery_rate,
6683:
6684: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
6685:
6686: EXCEPTION
6687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6689: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6690: p_data => x_msg_data );
6691: IF (g_excep_level >= g_debug_level ) THEN
6684: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
6685:
6686: EXCEPTION
6687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6689: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6690: p_data => x_msg_data );
6691: IF (g_excep_level >= g_debug_level ) THEN
6692: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
6688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6689: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6690: p_data => x_msg_data );
6691: IF (g_excep_level >= g_debug_level ) THEN
6692: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
6693: END IF;
6694:
6695: WHEN OTHERS THEN
6696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6692: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
6693: END IF;
6694:
6695: WHEN OTHERS THEN
6696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6697:
6698: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6699: THEN
6700: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name);