[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
1595: -- Bug 2409502, On the 3 amounts, calculate the non recoverable tax
1596: -- Calculate on the l_enc_amt
1597: /* igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1598: (p_api_version => 1.0,
1599: p_init_msg_list => FND_API.G_FALSE,
1600: p_commit => FND_API.G_FALSE,
1601: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1602: x_return_status => l_return_status,
1603: x_msg_count => l_msg_count,
1596: -- Calculate on the l_enc_amt
1597: /* igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1598: (p_api_version => 1.0,
1599: p_init_msg_list => FND_API.G_FALSE,
1600: p_commit => FND_API.G_FALSE,
1601: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1602: x_return_status => l_return_status,
1603: x_msg_count => l_msg_count,
1604: x_msg_data => l_msg_data,
1597: /* igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1598: (p_api_version => 1.0,
1599: p_init_msg_list => FND_API.G_FALSE,
1600: p_commit => FND_API.G_FALSE,
1601: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1602: x_return_status => l_return_status,
1603: x_msg_count => l_msg_count,
1604: x_msg_data => l_msg_data,
1605: p_tax_id => p_cc_acct_lines_rec.tax_id,
1617: P_Line_Id =>l_cc_interface_rec.cc_acct_line_id,
1618: P_Tax_Amount =>l_enc_tax_amt,
1619: P_Return_Status =>l_return_status,
1620: P_Error_Code =>P_Error_Code);
1621: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
1622: THEN
1623: RAISE FND_API.G_EXC_ERROR;
1624: END IF;
1625: END IF;
1619: P_Return_Status =>l_return_status,
1620: P_Error_Code =>P_Error_Code);
1621: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
1622: THEN
1623: RAISE FND_API.G_EXC_ERROR;
1624: END IF;
1625: END IF;
1626: l_enc_amt := l_enc_amt + Nvl(l_enc_tax_amt,0);
1627:
1627:
1628: -- Calculate on the l_func_amt
1629: /*igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1630: (p_api_version => 1.0,
1631: p_init_msg_list => FND_API.G_FALSE,
1632: p_commit => FND_API.G_FALSE,
1633: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1634: x_return_status => l_return_status,
1635: x_msg_count => l_msg_count,
1628: -- Calculate on the l_func_amt
1629: /*igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1630: (p_api_version => 1.0,
1631: p_init_msg_list => FND_API.G_FALSE,
1632: p_commit => FND_API.G_FALSE,
1633: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1634: x_return_status => l_return_status,
1635: x_msg_count => l_msg_count,
1636: x_msg_data => l_msg_data,
1629: /*igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1630: (p_api_version => 1.0,
1631: p_init_msg_list => FND_API.G_FALSE,
1632: p_commit => FND_API.G_FALSE,
1633: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1634: x_return_status => l_return_status,
1635: x_msg_count => l_msg_count,
1636: x_msg_data => l_msg_data,
1637: p_tax_id => p_cc_acct_lines_rec.tax_id,
1648: P_Line_Id =>l_cc_interface_rec.cc_acct_line_id,
1649: P_Tax_Amount =>l_func_tax_amt,
1650: P_Return_Status =>l_return_status,
1651: P_Error_Code =>P_Error_Code);
1652: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
1653: THEN
1654: RAISE FND_API.G_EXC_ERROR;
1655: END IF;
1656: END IF;
1650: P_Return_Status =>l_return_status,
1651: P_Error_Code =>P_Error_Code);
1652: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
1653: THEN
1654: RAISE FND_API.G_EXC_ERROR;
1655: END IF;
1656: END IF;
1657: l_func_amt := l_func_amt + Nvl(l_func_tax_amt,0);
1658:
1658:
1659: -- Calculate on the l_unbilled_amt
1660: /*igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1661: (p_api_version => 1.0,
1662: p_init_msg_list => FND_API.G_FALSE,
1663: p_commit => FND_API.G_FALSE,
1664: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1665: x_return_status => l_return_status,
1666: x_msg_count => l_msg_count,
1659: -- Calculate on the l_unbilled_amt
1660: /*igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1661: (p_api_version => 1.0,
1662: p_init_msg_list => FND_API.G_FALSE,
1663: p_commit => FND_API.G_FALSE,
1664: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1665: x_return_status => l_return_status,
1666: x_msg_count => l_msg_count,
1667: x_msg_data => l_msg_data,
1660: /*igc_cc_budgetary_ctrl_pkg.calculate_nonrec_tax
1661: (p_api_version => 1.0,
1662: p_init_msg_list => FND_API.G_FALSE,
1663: p_commit => FND_API.G_FALSE,
1664: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1665: x_return_status => l_return_status,
1666: x_msg_count => l_msg_count,
1667: x_msg_data => l_msg_data,
1668: p_tax_id => p_cc_acct_lines_rec.tax_id,
1679: P_Line_Id =>l_cc_interface_rec.cc_acct_line_id,
1680: P_Tax_Amount =>l_unbilled_tax_amt,
1681: P_Return_Status =>l_return_status,
1682: P_Error_Code =>P_Error_Code);
1683: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
1684: THEN
1685: RAISE FND_API.G_EXC_ERROR;
1686: END IF;
1687: END IF;
1681: P_Return_Status =>l_return_status,
1682: P_Error_Code =>P_Error_Code);
1683: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
1684: THEN
1685: RAISE FND_API.G_EXC_ERROR;
1686: END IF;
1687: END IF;
1688: /*EB Tax uptake - Bug No : 6472296 END*/
1689: l_unbilled_amt := l_unbilled_amt + Nvl(l_unbilled_tax_amt,0);
1724: x_msg_count,
1725: x_msg_data,
1726: l_return_status);
1727:
1728: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1729: RAISE FND_API.G_EXC_ERROR;
1730: END IF;
1731:
1732: END IF;
1725: x_msg_data,
1726: l_return_status);
1727:
1728: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1729: RAISE FND_API.G_EXC_ERROR;
1730: END IF;
1731:
1732: END IF;
1733:
1744: x_msg_count,
1745: x_msg_data,
1746: l_return_status);
1747:
1748: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1749: RAISE FND_API.G_EXC_ERROR;
1750: END IF;
1751:
1752: ELSE
1745: x_msg_data,
1746: l_return_status);
1747:
1748: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1749: RAISE FND_API.G_EXC_ERROR;
1750: END IF;
1751:
1752: ELSE
1753: /*Increase Adjustment */
1767: Insert_Interface_Row(l_cc_interface_rec,
1768: x_msg_count,
1769: x_msg_data,
1770: l_return_status);
1771: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1772: RAISE FND_API.G_EXC_ERROR;
1773: END IF;
1774: ELSIF
1775: (( NVL(p_cc_headers_rec.cc_encmbrnc_status,'N') = 'N') AND
1768: x_msg_count,
1769: x_msg_data,
1770: l_return_status);
1771: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1772: RAISE FND_API.G_EXC_ERROR;
1773: END IF;
1774: ELSIF
1775: (( NVL(p_cc_headers_rec.cc_encmbrnc_status,'N') = 'N') AND
1776: ( NVL(l_enc_amt,0) >= NVL(l_func_amt,0) )
1793: x_msg_count,
1794: x_msg_data,
1795: l_return_status);
1796:
1797: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1798: RAISE FND_API.G_EXC_ERROR;
1799: END IF;
1800: END IF;
1801: END IF;
1794: x_msg_data,
1795: l_return_status);
1796:
1797: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1798: RAISE FND_API.G_EXC_ERROR;
1799: END IF;
1800: END IF;
1801: END IF;
1802: END IF; /* Confirmed State */
1822: x_msg_count,
1823: x_msg_data,
1824: l_return_status);
1825:
1826: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1827: RAISE FND_API.G_EXC_ERROR;
1828: END IF;
1829:
1830: ELSIF
1823: x_msg_data,
1824: l_return_status);
1825:
1826: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1827: RAISE FND_API.G_EXC_ERROR;
1828: END IF;
1829:
1830: ELSIF
1831: ( ( NVL(p_cc_headers_rec.cc_encmbrnc_status,'N') = 'N') AND
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:
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:
1852: END IF;
1853: END IF; /* Provisional state */
1901: x_msg_count,
1902: x_msg_data,
1903: l_return_status);
1904:
1905: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1906: RAISE FND_API.G_EXC_ERROR;
1907: END IF;
1908:
1909: END IF; /*Cancel State */
1902: x_msg_data,
1903: l_return_status);
1904:
1905: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1906: RAISE FND_API.G_EXC_ERROR;
1907: END IF;
1908:
1909: END IF; /*Cancel State */
1910:
1956: x_msg_count,
1957: x_msg_data,
1958: l_return_status);
1959:
1960: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1961: RAISE FND_API.G_EXC_ERROR;
1962: END IF;
1963:
1964: END IF; /* Completion of CC */
1957: x_msg_data,
1958: l_return_status);
1959:
1960: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1961: RAISE FND_API.G_EXC_ERROR;
1962: END IF;
1963:
1964: END IF; /* Completion of CC */
1965:
1968: RETURN;
1969:
1970: EXCEPTION
1971:
1972: WHEN FND_API.G_EXC_ERROR
1973: THEN
1974: x_return_status := FND_API.G_RET_STS_ERROR;
1975:
1976: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1970: EXCEPTION
1971:
1972: WHEN FND_API.G_EXC_ERROR
1973: THEN
1974: x_return_status := FND_API.G_RET_STS_ERROR;
1975:
1976: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1977: p_data => x_msg_data );
1978:
1977: p_data => x_msg_data );
1978:
1979: RETURN;
1980: IF (g_excep_level >= g_debug_level ) THEN
1981: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_ERROR Exception Raised');
1982: END IF;
1983:
1984: WHEN OTHERS
1985: THEN
1982: END IF;
1983:
1984: WHEN OTHERS
1985: THEN
1986: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1987:
1988: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1989: THEN
1990: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
2006:
2007: PROCEDURE Execute_Budgetary_Ctrl
2008: (
2009: p_api_version IN NUMBER,
2010: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2011: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2012: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2013: x_return_status OUT NOCOPY VARCHAR2,
2014: x_bc_status OUT NOCOPY VARCHAR2 ,
2007: PROCEDURE Execute_Budgetary_Ctrl
2008: (
2009: p_api_version IN NUMBER,
2010: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2011: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2012: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2013: x_return_status OUT NOCOPY VARCHAR2,
2014: x_bc_status OUT NOCOPY VARCHAR2 ,
2015: x_msg_count OUT NOCOPY NUMBER,
2008: (
2009: p_api_version IN NUMBER,
2010: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2011: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2012: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2013: x_return_status OUT NOCOPY VARCHAR2,
2014: x_bc_status OUT NOCOPY VARCHAR2 ,
2015: x_msg_count OUT NOCOPY NUMBER,
2016: x_msg_data OUT NOCOPY VARCHAR2,
2291: l_full_path := g_path || 'Execute_Budgetary_Ctrl';
2292:
2293: SAVEPOINT Execute_Budgetary_Ctrl1;
2294:
2295: IF FND_API.to_Boolean(p_init_msg_list)
2296: THEN
2297: FND_MSG_PUB.initialize;
2298: END IF;
2299:
2296: THEN
2297: FND_MSG_PUB.initialize;
2298: END IF;
2299:
2300: IF NOT FND_API.Compatible_API_Call(l_api_version,
2301: p_api_version,
2302: l_api_name,
2303: G_PKG_NAME)
2304: THEN
2301: p_api_version,
2302: l_api_name,
2303: G_PKG_NAME)
2304: THEN
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: END IF;
2307:
2308: x_return_status := FND_API.G_RET_STS_SUCCESS;
2309: x_bc_status := FND_API.G_TRUE;
2304: THEN
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: END IF;
2307:
2308: x_return_status := FND_API.G_RET_STS_SUCCESS;
2309: x_bc_status := FND_API.G_TRUE;
2310: g_line_num := 0;
2311: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
2312: -- IF (l_debug = 'Y') THEN
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: END IF;
2307:
2308: x_return_status := FND_API.G_RET_STS_SUCCESS;
2309: x_bc_status := FND_API.G_TRUE;
2310: g_line_num := 0;
2311: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
2312: -- IF (l_debug = 'Y') THEN
2313: IF (g_debug_mode = 'Y') THEN
2310: g_line_num := 0;
2311: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
2312: -- IF (l_debug = 'Y') THEN
2313: IF (g_debug_mode = 'Y') THEN
2314: l_debug := FND_API.G_TRUE;
2315: ELSE
2316: l_debug := FND_API.G_FALSE;
2317: END IF;
2318: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
2312: -- IF (l_debug = 'Y') THEN
2313: IF (g_debug_mode = 'Y') THEN
2314: l_debug := FND_API.G_TRUE;
2315: ELSE
2316: l_debug := FND_API.G_FALSE;
2317: END IF;
2318: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
2319: l_validation_level := p_validation_level;
2320: l_update_login := FND_GLOBAL.LOGIN_ID;
2314: l_debug := FND_API.G_TRUE;
2315: ELSE
2316: l_debug := FND_API.G_FALSE;
2317: END IF;
2318: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
2319: l_validation_level := p_validation_level;
2320: l_update_login := FND_GLOBAL.LOGIN_ID;
2321: l_update_by := FND_GLOBAL.USER_ID;
2322:
2364: FROM igc_cc_headers
2365: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
2366:
2367: Header_Wrapper (p_api_version => l_api_version,
2368: p_init_msg_list => FND_API.G_FALSE,
2369: p_commit => FND_API.G_FALSE,
2370: p_validation_level => l_validation_level,
2371: x_return_status => l_return_status,
2372: x_msg_count => l_msg_count,
2365: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
2366:
2367: Header_Wrapper (p_api_version => l_api_version,
2368: p_init_msg_list => FND_API.G_FALSE,
2369: p_commit => FND_API.G_FALSE,
2370: p_validation_level => l_validation_level,
2371: x_return_status => l_return_status,
2372: x_msg_count => l_msg_count,
2373: x_msg_data => l_msg_data,
2376: p_cc_header_rec => l_cc_headers_rec,
2377: p_update_flag => l_update_flag
2378: );
2379:
2380: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2381: x_msg_data := l_msg_data;
2382: x_msg_count := l_msg_count;
2383: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2384: THEN
2411: RAISE E_DELETE;
2412: END;
2413: END IF;
2414:
2415: IF FND_API.To_Boolean(p_commit) THEN
2416: COMMIT WORK;
2417: END IF;
2418:
2419: SAVEPOINT Execute_Budgetary_Ctrl2;
2422: l_sob_id := l_cc_headers_rec.set_of_books_id;
2423: l_cc_State := l_cc_headers_rec.cc_state;
2424:
2425: Check_Budgetary_Ctrl_On(1.0,
2426: FND_API.G_FALSE,
2427: FND_API.G_VALID_LEVEL_FULL,
2428: x_return_status,
2429: x_msg_count,
2430: x_msg_data,
2423: l_cc_State := l_cc_headers_rec.cc_state;
2424:
2425: Check_Budgetary_Ctrl_On(1.0,
2426: FND_API.G_FALSE,
2427: FND_API.G_VALID_LEVEL_FULL,
2428: x_return_status,
2429: x_msg_count,
2430: x_msg_data,
2431: l_org_id,
2433: l_cc_state,
2434: l_encumbrance_on
2435: );
2436:
2437: IF (x_return_status = FND_API.G_RET_STS_SUCCESS)
2438: THEN
2439: IF (l_encumbrance_on = FND_API.G_FALSE)
2440: THEN
2441: x_return_status := FND_API.G_RET_STS_SUCCESS;
2435: );
2436:
2437: IF (x_return_status = FND_API.G_RET_STS_SUCCESS)
2438: THEN
2439: IF (l_encumbrance_on = FND_API.G_FALSE)
2440: THEN
2441: x_return_status := FND_API.G_RET_STS_SUCCESS;
2442: x_bc_status := FND_API.G_TRUE;
2443: RETURN;
2437: IF (x_return_status = FND_API.G_RET_STS_SUCCESS)
2438: THEN
2439: IF (l_encumbrance_on = FND_API.G_FALSE)
2440: THEN
2441: x_return_status := FND_API.G_RET_STS_SUCCESS;
2442: x_bc_status := FND_API.G_TRUE;
2443: RETURN;
2444: END IF;
2445: ELSE
2438: THEN
2439: IF (l_encumbrance_on = FND_API.G_FALSE)
2440: THEN
2441: x_return_status := FND_API.G_RET_STS_SUCCESS;
2442: x_bc_status := FND_API.G_TRUE;
2443: RETURN;
2444: END IF;
2445: ELSE
2446: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2511: /* End fix for bug 1509057 */
2512: IF (l_cc_headers_rec.cc_type = 'R')
2513: THEN
2514: Execute_Rel_Budgetary_Ctrl(1.0,
2515: FND_API.G_FALSE,
2516: FND_API.G_FALSE,
2517: FND_API.G_VALID_LEVEL_FULL,
2518: x_return_status,
2519: x_msg_count,
2512: IF (l_cc_headers_rec.cc_type = 'R')
2513: THEN
2514: Execute_Rel_Budgetary_Ctrl(1.0,
2515: FND_API.G_FALSE,
2516: FND_API.G_FALSE,
2517: FND_API.G_VALID_LEVEL_FULL,
2518: x_return_status,
2519: x_msg_count,
2520: x_msg_data,
2513: THEN
2514: Execute_Rel_Budgetary_Ctrl(1.0,
2515: FND_API.G_FALSE,
2516: FND_API.G_FALSE,
2517: FND_API.G_VALID_LEVEL_FULL,
2518: x_return_status,
2519: x_msg_count,
2520: x_msg_data,
2521: p_cc_header_id,
2523: l_cbc_on,
2524: l_currency_code
2525: );
2526:
2527: IF (x_return_status = FND_API.G_RET_STS_SUCCESS)
2528: THEN
2529: x_bc_status := FND_API.G_TRUE;
2530: ELSE
2531: x_bc_status := FND_API.G_FALSE;
2525: );
2526:
2527: IF (x_return_status = FND_API.G_RET_STS_SUCCESS)
2528: THEN
2529: x_bc_status := FND_API.G_TRUE;
2530: ELSE
2531: x_bc_status := FND_API.G_FALSE;
2532: END IF;
2533:
2527: IF (x_return_status = FND_API.G_RET_STS_SUCCESS)
2528: THEN
2529: x_bc_status := FND_API.G_TRUE;
2530: ELSE
2531: x_bc_status := FND_API.G_FALSE;
2532: END IF;
2533:
2534: IF (l_cc_apprvl_status_old <> 'IP')
2535: THEN
2561: FROM igc_cc_headers
2562: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
2563:
2564: Header_Wrapper (p_api_version => l_api_version,
2565: p_init_msg_list => FND_API.G_FALSE,
2566: p_commit => FND_API.G_FALSE,
2567: p_validation_level => l_validation_level,
2568: x_return_status => l_return_status,
2569: x_msg_count => l_msg_count,
2562: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
2563:
2564: Header_Wrapper (p_api_version => l_api_version,
2565: p_init_msg_list => FND_API.G_FALSE,
2566: p_commit => FND_API.G_FALSE,
2567: p_validation_level => l_validation_level,
2568: x_return_status => l_return_status,
2569: x_msg_count => l_msg_count,
2570: x_msg_data => l_msg_data,
2573: p_cc_header_rec => l_cc_headers_rec,
2574: p_update_flag => l_update_flag
2575: );
2576:
2577: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2578: x_msg_data := l_msg_data;
2579: x_msg_count := l_msg_count;
2580: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2581: THEN
2584: END IF;
2585: RAISE E_UPDATE;
2586: END IF;
2587:
2588: IF FND_API.To_Boolean(p_commit)
2589: THEN
2590: COMMIT WORK;
2591: END IF;
2592:
2633: p_accounting_date,
2634: x_msg_count,
2635: x_msg_data,
2636: l_return_status);
2637: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2638: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2639: THEN
2640: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
2641: l_api_name);
2683: x_msg_count,
2684: x_msg_data,
2685: l_return_status);
2686:
2687: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2688: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2689: THEN
2690: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
2691: l_api_name);
2746: p_ret_status => l_bc_return_status,
2747: p_batch_result_code => l_batch_result_code,
2748: p_doc_type => 'CC',
2749: p_debug => l_debug,
2750: p_conc_proc => FND_API.G_FALSE);
2751: IF l_bc_success = TRUE --No fatal errors
2752: AND substr(l_bc_return_status,1,1) IN ('N','S','A') --CBC successfull
2753: AND substr(l_bc_return_status,2,1) IN ('N','S','A') --SBC successfull
2754: AND l_interface_row_count <> 0 -- remained from the previous version ????
2752: AND substr(l_bc_return_status,1,1) IN ('N','S','A') --CBC successfull
2753: AND substr(l_bc_return_status,2,1) IN ('N','S','A') --SBC successfull
2754: AND l_interface_row_count <> 0 -- remained from the previous version ????
2755: THEN
2756: x_bc_status := FND_API.G_TRUE;
2757: ELSE
2758: x_bc_status := FND_API.G_FALSE;
2759: END IF;
2760:
2754: AND l_interface_row_count <> 0 -- remained from the previous version ????
2755: THEN
2756: x_bc_status := FND_API.G_TRUE;
2757: ELSE
2758: x_bc_status := FND_API.G_FALSE;
2759: END IF;
2760:
2761: ELSE
2762: x_return_status := FND_API.G_RET_STS_SUCCESS;
2758: x_bc_status := FND_API.G_FALSE;
2759: END IF;
2760:
2761: ELSE
2762: x_return_status := FND_API.G_RET_STS_SUCCESS;
2763: x_bc_status := FND_API.G_TRUE;
2764: END IF;
2765:
2766: /*EXCEPTION
2759: END IF;
2760:
2761: ELSE
2762: x_return_status := FND_API.G_RET_STS_SUCCESS;
2763: x_bc_status := FND_API.G_TRUE;
2764: END IF;
2765:
2766: /*EXCEPTION
2767: WHEN OTHERS
2782: /* If mode = Reservation then update CC Tables encumbrance status, encumbered_amount */
2783:
2784: BEGIN
2785:
2786: IF ( (p_mode = 'R') AND (x_bc_status = FND_API.G_TRUE) AND (l_interface_row_count <> 0) )
2787: THEN
2788:
2789: OPEN c_cc_interface(p_cc_header_id);
2790:
2971: Output_Debug (l_full_path, p_debug_msg => g_debug_msg);
2972: END IF;
2973:
2974: Account_Line_Wrapper (p_api_version => l_api_version,
2975: p_init_msg_list => FND_API.G_FALSE,
2976: p_commit => FND_API.G_FALSE,
2977: p_validation_level => l_validation_level,
2978: x_return_status => l_return_status,
2979: x_msg_count => l_msg_count,
2972: END IF;
2973:
2974: Account_Line_Wrapper (p_api_version => l_api_version,
2975: p_init_msg_list => FND_API.G_FALSE,
2976: p_commit => FND_API.G_FALSE,
2977: p_validation_level => l_validation_level,
2978: x_return_status => l_return_status,
2979: x_msg_count => l_msg_count,
2980: x_msg_data => l_msg_data,
2983: p_cc_acct_lines_rec => l_acct_line_rec,
2984: p_update_flag => l_update_flag
2985: );
2986:
2987: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2988: x_msg_data := l_msg_data;
2989: x_msg_count := l_msg_count;
2990: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
2991: IF (g_debug_mode = 'Y') THEN
3161: Output_Debug (l_full_path, p_debug_msg => g_debug_msg);
3162: END IF;
3163:
3164: Det_Pf_Wrapper (p_api_version => l_api_version,
3165: p_init_msg_list => FND_API.G_FALSE,
3166: p_commit => FND_API.G_FALSE,
3167: p_validation_level => l_validation_level,
3168: x_return_status => l_return_status,
3169: x_msg_count => l_msg_count,
3162: END IF;
3163:
3164: Det_Pf_Wrapper (p_api_version => l_api_version,
3165: p_init_msg_list => FND_API.G_FALSE,
3166: p_commit => FND_API.G_FALSE,
3167: p_validation_level => l_validation_level,
3168: x_return_status => l_return_status,
3169: x_msg_count => l_msg_count,
3170: x_msg_data => l_msg_data,
3173: p_cc_pmt_fcst_rec => l_det_pf_rec,
3174: p_update_flag => l_update_flag
3175: );
3176:
3177: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3178: x_msg_data := l_msg_data;
3179: x_msg_count := l_msg_count;
3180:
3181: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
3261:
3262: l_cc_headers_rec.cc_acct_date := p_accounting_date;
3263:
3264: Header_Wrapper (p_api_version => l_api_version,
3265: p_init_msg_list => FND_API.G_FALSE,
3266: p_commit => FND_API.G_FALSE,
3267: p_validation_level => l_validation_level,
3268: x_return_status => l_return_status,
3269: x_msg_count => l_msg_count,
3262: l_cc_headers_rec.cc_acct_date := p_accounting_date;
3263:
3264: Header_Wrapper (p_api_version => l_api_version,
3265: p_init_msg_list => FND_API.G_FALSE,
3266: p_commit => FND_API.G_FALSE,
3267: p_validation_level => l_validation_level,
3268: x_return_status => l_return_status,
3269: x_msg_count => l_msg_count,
3270: x_msg_data => l_msg_data,
3273: p_cc_header_rec => l_cc_headers_rec,
3274: p_update_flag => l_update_flag
3275: );
3276:
3277: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3278: x_msg_data := l_msg_data;
3279: x_msg_count := l_msg_count;
3280: l_cc_headers_rec.cc_encmbrnc_status := l_encumbrance_status_old;
3281:
3299: END IF;
3300:
3301: IGC_CC_ACTIONS_PKG.Insert_Row
3302: (1.0,
3303: FND_API.G_FALSE,
3304: FND_API.G_FALSE,
3305: FND_API.G_VALID_LEVEL_FULL,
3306: l_return_status,
3307: l_msg_count,
3300:
3301: IGC_CC_ACTIONS_PKG.Insert_Row
3302: (1.0,
3303: FND_API.G_FALSE,
3304: FND_API.G_FALSE,
3305: FND_API.G_VALID_LEVEL_FULL,
3306: l_return_status,
3307: l_msg_count,
3308: l_msg_data,
3301: IGC_CC_ACTIONS_PKG.Insert_Row
3302: (1.0,
3303: FND_API.G_FALSE,
3304: FND_API.G_FALSE,
3305: FND_API.G_VALID_LEVEL_FULL,
3306: l_return_status,
3307: l_msg_count,
3308: l_msg_data,
3309: l_rowid,
3320: sysdate,
3321: fnd_global.user_id
3322: );
3323:
3324: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3325: x_msg_data := l_msg_data;
3326: x_msg_count := l_msg_count;
3327:
3328: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
3415: Output_Debug (l_full_path, p_debug_msg => g_debug_msg);
3416: END IF;
3417:
3418: Account_Line_Wrapper (p_api_version => l_api_version,
3419: p_init_msg_list => FND_API.G_FALSE,
3420: p_commit => FND_API.G_FALSE,
3421: p_validation_level => l_validation_level,
3422: x_return_status => l_return_status,
3423: x_msg_count => l_msg_count,
3416: END IF;
3417:
3418: Account_Line_Wrapper (p_api_version => l_api_version,
3419: p_init_msg_list => FND_API.G_FALSE,
3420: p_commit => FND_API.G_FALSE,
3421: p_validation_level => l_validation_level,
3422: x_return_status => l_return_status,
3423: x_msg_count => l_msg_count,
3424: x_msg_data => l_msg_data,
3427: p_cc_acct_lines_rec => l_acct_line_rec,
3428: p_update_flag => l_update_flag
3429: );
3430:
3431: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3432: x_msg_data := l_msg_data;
3433: x_msg_count := l_msg_count;
3434:
3435: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
3489: FROM igc_cc_det_pf
3490: WHERE cc_det_pf_line_id = l_det_pf_rec.cc_det_pf_line_id;
3491:
3492: Det_Pf_Wrapper (p_api_version => l_api_version,
3493: p_init_msg_list => FND_API.G_FALSE,
3494: p_commit => FND_API.G_FALSE,
3495: p_validation_level => l_validation_level,
3496: x_return_status => l_return_status,
3497: x_msg_count => l_msg_count,
3490: WHERE cc_det_pf_line_id = l_det_pf_rec.cc_det_pf_line_id;
3491:
3492: Det_Pf_Wrapper (p_api_version => l_api_version,
3493: p_init_msg_list => FND_API.G_FALSE,
3494: p_commit => FND_API.G_FALSE,
3495: p_validation_level => l_validation_level,
3496: x_return_status => l_return_status,
3497: x_msg_count => l_msg_count,
3498: x_msg_data => l_msg_data,
3501: p_cc_pmt_fcst_rec => l_det_pf_rec,
3502: p_update_flag => l_update_flag
3503: );
3504:
3505: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3506: x_msg_data := l_msg_data;
3507: x_msg_count := l_msg_count;
3508:
3509: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
3555: Output_Debug (l_full_path, p_debug_msg => g_debug_msg);
3556: END IF;
3557:
3558: Header_Wrapper (p_api_version => l_api_version,
3559: p_init_msg_list => FND_API.G_FALSE,
3560: p_commit => FND_API.G_FALSE,
3561: p_validation_level => l_validation_level,
3562: x_return_status => l_return_status,
3563: x_msg_count => l_msg_count,
3556: END IF;
3557:
3558: Header_Wrapper (p_api_version => l_api_version,
3559: p_init_msg_list => FND_API.G_FALSE,
3560: p_commit => FND_API.G_FALSE,
3561: p_validation_level => l_validation_level,
3562: x_return_status => l_return_status,
3563: x_msg_count => l_msg_count,
3564: x_msg_data => l_msg_data,
3567: p_cc_header_rec => l_cc_headers_rec,
3568: p_update_flag => l_update_flag
3569: );
3570:
3571: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3572: x_msg_data := l_msg_data;
3573: x_msg_count := l_msg_count;
3574:
3575: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
3602: FROM igc_cc_headers
3603: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3604:
3605: Header_Wrapper (p_api_version => l_api_version,
3606: p_init_msg_list => FND_API.G_FALSE,
3607: p_commit => FND_API.G_FALSE,
3608: p_validation_level => l_validation_level,
3609: x_return_status => l_return_status,
3610: x_msg_count => l_msg_count,
3603: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3604:
3605: Header_Wrapper (p_api_version => l_api_version,
3606: p_init_msg_list => FND_API.G_FALSE,
3607: p_commit => FND_API.G_FALSE,
3608: p_validation_level => l_validation_level,
3609: x_return_status => l_return_status,
3610: x_msg_count => l_msg_count,
3611: x_msg_data => l_msg_data,
3614: p_cc_header_rec => l_cc_headers_rec,
3615: p_update_flag => l_update_flag
3616: );
3617:
3618: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3619: x_msg_data := l_msg_data;
3620: x_msg_count := l_msg_count;
3621: -- IF (IGC_MSGS_PKG.g_debug_mode) THEN
3622: IF (g_debug_mode = 'Y') THEN
3653: END IF;
3654:
3655: END IF;
3656:
3657: IF FND_API.To_Boolean(p_commit)
3658: THEN
3659: COMMIT WORK;
3660: END IF;
3661:
3665: RETURN;
3666:
3667: EXCEPTION
3668:
3669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR OR E_CC_NOT_FOUND OR E_INVALID_MODE OR E_UPDATE OR E_DELETE
3670: THEN
3671: ROLLBACK TO Execute_Budgetary_Ctrl1;
3672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3673: x_bc_status := FND_API.G_FALSE;
3668:
3669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR OR E_CC_NOT_FOUND OR E_INVALID_MODE OR E_UPDATE OR E_DELETE
3670: THEN
3671: ROLLBACK TO Execute_Budgetary_Ctrl1;
3672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3673: x_bc_status := FND_API.G_FALSE;
3674: IF (c_payment_forecast%ISOPEN) THEN
3675: CLOSE c_payment_forecast;
3676: END IF;
3669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR OR E_CC_NOT_FOUND OR E_INVALID_MODE OR E_UPDATE OR E_DELETE
3670: THEN
3671: ROLLBACK TO Execute_Budgetary_Ctrl1;
3672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3673: x_bc_status := FND_API.G_FALSE;
3674: IF (c_payment_forecast%ISOPEN) THEN
3675: CLOSE c_payment_forecast;
3676: END IF;
3677: IF (c_account_lines%ISOPEN) THEN
3692:
3693: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3694: p_data => x_msg_data );
3695: IF (g_excep_level >= g_debug_level ) THEN
3696: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR OR E_CC_NOT_FOUND OR E_INVALID_MODE OR E_UPDATE OR E_DELETE Exception Raised');
3697: END IF;
3698:
3699: WHEN E_PROCESS_ROW
3700: THEN
3712: FROM igc_cc_headers
3713: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3714:
3715: Header_Wrapper (p_api_version => l_api_version,
3716: p_init_msg_list => FND_API.G_FALSE,
3717: p_commit => FND_API.G_TRUE,
3718: p_validation_level => l_validation_level,
3719: x_return_status => l_return_status,
3720: x_msg_count => l_msg_count,
3713: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3714:
3715: Header_Wrapper (p_api_version => l_api_version,
3716: p_init_msg_list => FND_API.G_FALSE,
3717: p_commit => FND_API.G_TRUE,
3718: p_validation_level => l_validation_level,
3719: x_return_status => l_return_status,
3720: x_msg_count => l_msg_count,
3721: x_msg_data => l_msg_data,
3724: p_cc_header_rec => l_cc_headers_rec,
3725: p_update_flag => l_update_flag
3726: );
3727:
3728: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3729: x_msg_data := l_msg_data;
3730: x_msg_count := l_msg_count;
3731: END IF;
3732:
3731: END IF;
3732:
3733: END IF;
3734:
3735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3736: x_bc_status := FND_API.G_FALSE;
3737: IF (c_payment_forecast%ISOPEN) THEN
3738: CLOSE c_payment_forecast;
3739: END IF;
3732:
3733: END IF;
3734:
3735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3736: x_bc_status := FND_API.G_FALSE;
3737: IF (c_payment_forecast%ISOPEN) THEN
3738: CLOSE c_payment_forecast;
3739: END IF;
3740: IF (c_account_lines%ISOPEN) THEN
3777: FROM igc_cc_headers
3778: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3779:
3780: Header_Wrapper (p_api_version => l_api_version,
3781: p_init_msg_list => FND_API.G_FALSE,
3782: p_commit => FND_API.G_TRUE,
3783: p_validation_level => l_validation_level,
3784: x_return_status => l_return_status,
3785: x_msg_count => l_msg_count,
3778: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3779:
3780: Header_Wrapper (p_api_version => l_api_version,
3781: p_init_msg_list => FND_API.G_FALSE,
3782: p_commit => FND_API.G_TRUE,
3783: p_validation_level => l_validation_level,
3784: x_return_status => l_return_status,
3785: x_msg_count => l_msg_count,
3786: x_msg_data => l_msg_data,
3789: p_cc_header_rec => l_cc_headers_rec,
3790: p_update_flag => l_update_flag
3791: );
3792:
3793: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3794: x_msg_data := l_msg_data;
3795: x_msg_count := l_msg_count;
3796: END IF;
3797:
3796: END IF;
3797:
3798: END IF;
3799:
3800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3801: x_bc_status := FND_API.G_FALSE;
3802: IF (c_payment_forecast%ISOPEN) THEN
3803: CLOSE c_payment_forecast;
3804: END IF;
3797:
3798: END IF;
3799:
3800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3801: x_bc_status := FND_API.G_FALSE;
3802: IF (c_payment_forecast%ISOPEN) THEN
3803: CLOSE c_payment_forecast;
3804: END IF;
3805: IF (c_account_lines%ISOPEN) THEN
3846: FROM igc_cc_headers
3847: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3848:
3849: Header_Wrapper (p_api_version => l_api_version,
3850: p_init_msg_list => FND_API.G_FALSE,
3851: p_commit => FND_API.G_TRUE,
3852: p_validation_level => l_validation_level,
3853: x_return_status => l_return_status,
3854: x_msg_count => l_msg_count,
3847: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3848:
3849: Header_Wrapper (p_api_version => l_api_version,
3850: p_init_msg_list => FND_API.G_FALSE,
3851: p_commit => FND_API.G_TRUE,
3852: p_validation_level => l_validation_level,
3853: x_return_status => l_return_status,
3854: x_msg_count => l_msg_count,
3855: x_msg_data => l_msg_data,
3858: p_cc_header_rec => l_cc_headers_rec,
3859: p_update_flag => l_update_flag
3860: );
3861:
3862: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3863: x_msg_data := l_msg_data;
3864: x_msg_count := l_msg_count;
3865: END IF;
3866:
3865: END IF;
3866:
3867: END IF;
3868:
3869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3870: x_bc_status := FND_API.G_FALSE;
3871: IF (c_payment_forecast%ISOPEN) THEN
3872: CLOSE c_payment_forecast;
3873: END IF;
3866:
3867: END IF;
3868:
3869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3870: x_bc_status := FND_API.G_FALSE;
3871: IF (c_payment_forecast%ISOPEN) THEN
3872: CLOSE c_payment_forecast;
3873: END IF;
3874: IF (c_account_lines%ISOPEN) THEN
3910: FROM igc_cc_headers
3911: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3912:
3913: Header_Wrapper (p_api_version => l_api_version,
3914: p_init_msg_list => FND_API.G_FALSE,
3915: p_commit => FND_API.G_TRUE,
3916: p_validation_level => l_validation_level,
3917: x_return_status => l_return_status,
3918: x_msg_count => l_msg_count,
3911: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
3912:
3913: Header_Wrapper (p_api_version => l_api_version,
3914: p_init_msg_list => FND_API.G_FALSE,
3915: p_commit => FND_API.G_TRUE,
3916: p_validation_level => l_validation_level,
3917: x_return_status => l_return_status,
3918: x_msg_count => l_msg_count,
3919: x_msg_data => l_msg_data,
3922: p_cc_header_rec => l_cc_headers_rec,
3923: p_update_flag => l_update_flag
3924: );
3925:
3926: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3927: x_msg_data := l_msg_data;
3928: x_msg_count := l_msg_count;
3929: END IF;
3930:
3929: END IF;
3930:
3931: END IF;
3932:
3933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3934: x_bc_status := FND_API.G_FALSE;
3935: IF (c_payment_forecast%ISOPEN) THEN
3936: CLOSE c_payment_forecast;
3937: END IF;
3930:
3931: END IF;
3932:
3933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3934: x_bc_status := FND_API.G_FALSE;
3935: IF (c_payment_forecast%ISOPEN) THEN
3936: CLOSE c_payment_forecast;
3937: END IF;
3938: IF (c_account_lines%ISOPEN) THEN
3971:
3972: PROCEDURE Check_Budgetary_Ctrl_On
3973: (
3974: p_api_version IN NUMBER,
3975: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3976: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3977: x_return_status OUT NOCOPY VARCHAR2,
3978: x_msg_count OUT NOCOPY NUMBER,
3979: x_msg_data OUT NOCOPY VARCHAR2,
3972: PROCEDURE Check_Budgetary_Ctrl_On
3973: (
3974: p_api_version IN NUMBER,
3975: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3976: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3977: x_return_status OUT NOCOPY VARCHAR2,
3978: x_msg_count OUT NOCOPY NUMBER,
3979: x_msg_data OUT NOCOPY VARCHAR2,
3980: p_org_id IN NUMBER,
4004: BEGIN
4005:
4006: l_full_path := g_path || 'Check_Budgetary_Ctrl_On';
4007:
4008: x_encumbrance_on := FND_API.G_TRUE;
4009: x_return_status := FND_API.G_RET_STS_SUCCESS;
4010: l_enable_budg_control_flag := 'N';
4011:
4012: IF FND_API.to_Boolean(p_init_msg_list)
4005:
4006: l_full_path := g_path || 'Check_Budgetary_Ctrl_On';
4007:
4008: x_encumbrance_on := FND_API.G_TRUE;
4009: x_return_status := FND_API.G_RET_STS_SUCCESS;
4010: l_enable_budg_control_flag := 'N';
4011:
4012: IF FND_API.to_Boolean(p_init_msg_list)
4013: THEN
4008: x_encumbrance_on := FND_API.G_TRUE;
4009: x_return_status := FND_API.G_RET_STS_SUCCESS;
4010: l_enable_budg_control_flag := 'N';
4011:
4012: IF FND_API.to_Boolean(p_init_msg_list)
4013: THEN
4014: FND_MSG_PUB.initialize;
4015: END IF;
4016:
4013: THEN
4014: FND_MSG_PUB.initialize;
4015: END IF;
4016:
4017: IF NOT FND_API.Compatible_API_Call(l_api_version,
4018: p_api_version,
4019: l_api_name,
4020: G_PKG_NAME)
4021: THEN
4018: p_api_version,
4019: l_api_name,
4020: G_PKG_NAME)
4021: THEN
4022: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4023: END IF;
4024:
4025: IF (p_org_id IS NULL)
4026: THEN
4084: org_id = p_org_id;
4085: EXCEPTION
4086: WHEN NO_DATA_FOUND
4087: THEN
4088: x_encumbrance_on := FND_API.G_FALSE;
4089: END;
4090:
4091: /* Check whether CBC is turned on */
4092:
4104: IF ( (p_cc_state = 'PR') OR (p_cc_state = 'CL') )
4105: THEN
4106: IF (NVL(l_req_encumbrance_flag,'N') = 'Y')
4107: THEN
4108: x_encumbrance_on := FND_API.G_TRUE;
4109: ELSE
4110: x_encumbrance_on := FND_API.G_FALSE;
4111: END IF;
4112: END IF;
4106: IF (NVL(l_req_encumbrance_flag,'N') = 'Y')
4107: THEN
4108: x_encumbrance_on := FND_API.G_TRUE;
4109: ELSE
4110: x_encumbrance_on := FND_API.G_FALSE;
4111: END IF;
4112: END IF;
4113:
4114: IF ( (p_cc_state = 'CM') OR (p_cc_state = 'CT') )
4114: IF ( (p_cc_state = 'CM') OR (p_cc_state = 'CT') )
4115: THEN
4116: IF (NVL(l_purch_encumbrance_flag,'N') = 'Y')
4117: THEN
4118: x_encumbrance_on := FND_API.G_TRUE;
4119: ELSE
4120: x_encumbrance_on := FND_API.G_FALSE;
4121: END IF;
4122: END IF;
4116: IF (NVL(l_purch_encumbrance_flag,'N') = 'Y')
4117: THEN
4118: x_encumbrance_on := FND_API.G_TRUE;
4119: ELSE
4120: x_encumbrance_on := FND_API.G_FALSE;
4121: END IF;
4122: END IF;
4123: ELSE
4124: x_encumbrance_on := FND_API.G_FALSE;
4120: x_encumbrance_on := FND_API.G_FALSE;
4121: END IF;
4122: END IF;
4123: ELSE
4124: x_encumbrance_on := FND_API.G_FALSE;
4125: END IF;
4126:
4127: EXCEPTION
4128:
4127: EXCEPTION
4128:
4129: WHEN E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP OR E_GL_DATA OR E_NULL_PARAMETER
4130: THEN
4131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4132: x_encumbrance_on := FND_API.G_FALSE;
4133: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4134: p_data => x_msg_data );
4135: IF (g_excep_level >= g_debug_level ) THEN
4128:
4129: WHEN E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP OR E_GL_DATA OR E_NULL_PARAMETER
4130: THEN
4131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4132: x_encumbrance_on := FND_API.G_FALSE;
4133: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4134: p_data => x_msg_data );
4135: IF (g_excep_level >= g_debug_level ) THEN
4136: FND_LOG.STRING (g_excep_level,l_full_path,'E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP OR E_GL_DATA OR E_NULL_PARAMETER Exception Raised');
4135: IF (g_excep_level >= g_debug_level ) THEN
4136: FND_LOG.STRING (g_excep_level,l_full_path,'E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP OR E_GL_DATA OR E_NULL_PARAMETER Exception Raised');
4137: END IF;
4138:
4139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4140: THEN
4141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4142: x_encumbrance_on := FND_API.G_FALSE;
4143:
4137: END IF;
4138:
4139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4140: THEN
4141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4142: x_encumbrance_on := FND_API.G_FALSE;
4143:
4144: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4145: p_data => x_msg_data );
4138:
4139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4140: THEN
4141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4142: x_encumbrance_on := FND_API.G_FALSE;
4143:
4144: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4145: p_data => x_msg_data );
4146: IF (g_excep_level >= g_debug_level ) THEN
4143:
4144: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4145: p_data => x_msg_data );
4146: IF (g_excep_level >= g_debug_level ) THEN
4147: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
4148: END IF;
4149:
4150: WHEN OTHERS
4151: THEN
4148: END IF;
4149:
4150: WHEN OTHERS
4151: THEN
4152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4153: x_encumbrance_on := FND_API.G_FALSE;
4154:
4155: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4156: THEN
4149:
4150: WHEN OTHERS
4151: THEN
4152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4153: x_encumbrance_on := FND_API.G_FALSE;
4154:
4155: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4156: THEN
4157: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
4172:
4173: PROCEDURE Set_Encumbrance_Status
4174: (
4175: p_api_version IN NUMBER,
4176: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4177: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4178: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4179: x_return_status OUT NOCOPY VARCHAR2,
4180: x_msg_count OUT NOCOPY NUMBER,
4173: PROCEDURE Set_Encumbrance_Status
4174: (
4175: p_api_version IN NUMBER,
4176: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4177: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4178: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4179: x_return_status OUT NOCOPY VARCHAR2,
4180: x_msg_count OUT NOCOPY NUMBER,
4181: x_msg_data OUT NOCOPY VARCHAR2,
4174: (
4175: p_api_version IN NUMBER,
4176: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4177: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4178: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4179: x_return_status OUT NOCOPY VARCHAR2,
4180: x_msg_count OUT NOCOPY NUMBER,
4181: x_msg_data OUT NOCOPY VARCHAR2,
4182: p_cc_header_id IN NUMBER,
4364: l_full_path := g_path || 'Set_Encumbrance_Status';
4365:
4366: SAVEPOINT Set_Encumbrance_Status;
4367:
4368: IF FND_API.to_Boolean(p_init_msg_list)
4369: THEN
4370: FND_MSG_PUB.initialize;
4371: END IF;
4372:
4369: THEN
4370: FND_MSG_PUB.initialize;
4371: END IF;
4372:
4373: IF NOT FND_API.Compatible_API_Call(l_api_version,
4374: p_api_version,
4375: l_api_name,
4376: G_PKG_NAME)
4377: THEN
4374: p_api_version,
4375: l_api_name,
4376: G_PKG_NAME)
4377: THEN
4378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4379: END IF;
4380:
4381: x_return_status := FND_API.G_RET_STS_SUCCESS;
4382: l_validation_level := p_validation_level;
4377: THEN
4378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4379: END IF;
4380:
4381: x_return_status := FND_API.G_RET_STS_SUCCESS;
4382: l_validation_level := p_validation_level;
4383: l_update_login := FND_GLOBAL.LOGIN_ID;
4384: l_update_by := FND_GLOBAL.USER_ID;
4385:
4448: FROM igc_cc_acct_lines
4449: WHERE cc_acct_line_id = l_acct_line_rec.cc_acct_line_id;
4450:
4451: Account_Line_Wrapper (p_api_version => l_api_version,
4452: p_init_msg_list => FND_API.G_FALSE,
4453: p_commit => FND_API.G_FALSE,
4454: p_validation_level => l_validation_level,
4455: x_return_status => l_return_status,
4456: x_msg_count => l_msg_count,
4449: WHERE cc_acct_line_id = l_acct_line_rec.cc_acct_line_id;
4450:
4451: Account_Line_Wrapper (p_api_version => l_api_version,
4452: p_init_msg_list => FND_API.G_FALSE,
4453: p_commit => FND_API.G_FALSE,
4454: p_validation_level => l_validation_level,
4455: x_return_status => l_return_status,
4456: x_msg_count => l_msg_count,
4457: x_msg_data => l_msg_data,
4460: p_cc_acct_lines_rec => l_acct_line_rec,
4461: p_update_flag => l_update_flag
4462: );
4463:
4464: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4465: x_msg_data := l_msg_data;
4466: x_msg_count := l_msg_count;
4467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4468: END IF;
4463:
4464: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4465: x_msg_data := l_msg_data;
4466: x_msg_count := l_msg_count;
4467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4468: END IF;
4469:
4470: OPEN c_payment_forecast(l_cc_acct_lines_rec.cc_acct_line_id);
4471:
4498: FROM igc_cc_det_pf
4499: WHERE cc_det_pf_line_id = l_det_pf_rec.cc_det_pf_line_id;
4500:
4501: Det_Pf_Wrapper (p_api_version => l_api_version,
4502: p_init_msg_list => FND_API.G_FALSE,
4503: p_commit => FND_API.G_FALSE,
4504: p_validation_level => l_validation_level,
4505: x_return_status => l_return_status,
4506: x_msg_count => l_msg_count,
4499: WHERE cc_det_pf_line_id = l_det_pf_rec.cc_det_pf_line_id;
4500:
4501: Det_Pf_Wrapper (p_api_version => l_api_version,
4502: p_init_msg_list => FND_API.G_FALSE,
4503: p_commit => FND_API.G_FALSE,
4504: p_validation_level => l_validation_level,
4505: x_return_status => l_return_status,
4506: x_msg_count => l_msg_count,
4507: x_msg_data => l_msg_data,
4510: p_cc_pmt_fcst_rec => l_det_pf_rec,
4511: p_update_flag => l_update_flag
4512: );
4513:
4514: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4515: x_msg_data := l_msg_data;
4516: x_msg_count := l_msg_count;
4517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4518: END IF;
4513:
4514: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4515: x_msg_data := l_msg_data;
4516: x_msg_count := l_msg_count;
4517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4518: END IF;
4519:
4520: END LOOP;
4521:
4541: FROM igc_cc_headers
4542: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
4543:
4544: Header_Wrapper (p_api_version => l_api_version,
4545: p_init_msg_list => FND_API.G_FALSE,
4546: p_commit => FND_API.G_FALSE,
4547: p_validation_level => l_validation_level,
4548: x_return_status => l_return_status,
4549: x_msg_count => l_msg_count,
4542: WHERE cc_header_id = l_cc_headers_rec.cc_header_id;
4543:
4544: Header_Wrapper (p_api_version => l_api_version,
4545: p_init_msg_list => FND_API.G_FALSE,
4546: p_commit => FND_API.G_FALSE,
4547: p_validation_level => l_validation_level,
4548: x_return_status => l_return_status,
4549: x_msg_count => l_msg_count,
4550: x_msg_data => l_msg_data,
4553: p_cc_header_rec => l_cc_headers_rec,
4554: p_update_flag => l_update_flag
4555: );
4556:
4557: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4558: x_msg_data := l_msg_data;
4559: x_msg_count := l_msg_count;
4560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4561: END IF;
4556:
4557: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4558: x_msg_data := l_msg_data;
4559: x_msg_count := l_msg_count;
4560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4561: END IF;
4562:
4563: IF FND_API.To_Boolean(p_commit)
4564: THEN
4559: x_msg_count := l_msg_count;
4560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4561: END IF;
4562:
4563: IF FND_API.To_Boolean(p_commit)
4564: THEN
4565: COMMIT WORK;
4566: END IF;
4567:
4571:
4572: WHEN E_CC_NOT_FOUND OR E_INVALID_STATUS_CODE
4573: THEN
4574: ROLLBACK TO Set_Encumbrance_Status;
4575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4576: IF (c_payment_forecast%ISOPEN) THEN
4577: CLOSE c_payment_forecast;
4578: END IF;
4579: IF (c_det_pf_line%ISOPEN) THEN
4590: IF (g_excep_level >= g_debug_level ) THEN
4591: FND_LOG.STRING (g_excep_level,l_full_path,'E_CC_NOT_FOUND OR E_INVALID_STATUS_CODE Exception Raised');
4592: END IF;
4593:
4594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4595: THEN
4596: ROLLBACK TO Set_Encumbrance_Status;
4597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4598: IF (c_payment_forecast%ISOPEN) THEN
4593:
4594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4595: THEN
4596: ROLLBACK TO Set_Encumbrance_Status;
4597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4598: IF (c_payment_forecast%ISOPEN) THEN
4599: CLOSE c_payment_forecast;
4600: END IF;
4601: IF (c_det_pf_line%ISOPEN) THEN
4609: END IF;
4610: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4611: p_data => x_msg_data );
4612: IF (g_excep_level >= g_debug_level ) THEN
4613: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
4614: END IF;
4615:
4616: WHEN OTHERS
4617: THEN
4615:
4616: WHEN OTHERS
4617: THEN
4618: ROLLBACK TO Set_Encumbrance_Status;
4619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4620: IF (c_payment_forecast%ISOPEN) THEN
4621: CLOSE c_payment_forecast;
4622: END IF;
4623: IF (c_det_pf_line%ISOPEN) THEN
4650:
4651: PROCEDURE Validate_CC
4652: (
4653: p_api_version IN NUMBER,
4654: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4655: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4656: x_return_status OUT NOCOPY VARCHAR2,
4657: x_msg_count OUT NOCOPY NUMBER,
4658: x_msg_data OUT NOCOPY VARCHAR2,
4651: PROCEDURE Validate_CC
4652: (
4653: p_api_version IN NUMBER,
4654: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4655: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4656: x_return_status OUT NOCOPY VARCHAR2,
4657: x_msg_count OUT NOCOPY NUMBER,
4658: x_msg_data OUT NOCOPY VARCHAR2,
4659: p_cc_header_id IN NUMBER,
4849: BEGIN
4850:
4851: l_full_path := g_path || 'Validate_CC';
4852:
4853: IF FND_API.to_Boolean(p_init_msg_list) THEN
4854: FND_MSG_PUB.initialize;
4855: END IF;
4856:
4857: IF NOT FND_API.Compatible_API_Call(l_api_version,p_api_version, l_api_name, G_PKG_NAME) THEN
4853: IF FND_API.to_Boolean(p_init_msg_list) THEN
4854: FND_MSG_PUB.initialize;
4855: END IF;
4856:
4857: IF NOT FND_API.Compatible_API_Call(l_api_version,p_api_version, l_api_name, G_PKG_NAME) THEN
4858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4859: END IF;
4860:
4861: x_return_status := FND_API.G_RET_STS_SUCCESS;
4854: FND_MSG_PUB.initialize;
4855: END IF;
4856:
4857: IF NOT FND_API.Compatible_API_Call(l_api_version,p_api_version, l_api_name, G_PKG_NAME) THEN
4858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4859: END IF;
4860:
4861: x_return_status := FND_API.G_RET_STS_SUCCESS;
4862: x_valid_cc := FND_API.G_TRUE;
4857: IF NOT FND_API.Compatible_API_Call(l_api_version,p_api_version, l_api_name, G_PKG_NAME) THEN
4858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4859: END IF;
4860:
4861: x_return_status := FND_API.G_RET_STS_SUCCESS;
4862: x_valid_cc := FND_API.G_TRUE;
4863:
4864: -- Get the application id that will be used throughout the process.
4865: -- Bug 1830385, Bidisha S, 2 Jul 2001
4858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4859: END IF;
4860:
4861: x_return_status := FND_API.G_RET_STS_SUCCESS;
4862: x_valid_cc := FND_API.G_TRUE;
4863:
4864: -- Get the application id that will be used throughout the process.
4865: -- Bug 1830385, Bidisha S, 2 Jul 2001
4866: OPEN c_gl_app_id;
4871: -- options like standard budgetary control , commitment budgetary control, provisional contract
4872: -- encumbrance set-up, confirmed contract encumbrance setups or enabled or not.
4873: -- If encumbrance is not enabled then the individual setups are defaulted to 'N'.
4874:
4875: IF p_encumbrance_flag = FND_API.G_TRUE THEN
4876:
4877: -- Standard Budgetary Control enabled or not
4878:
4879: BEGIN
4882: FROM gl_sets_of_books
4883: WHERE set_of_books_id = p_sob_id;
4884: EXCEPTION
4885: WHEN NO_DATA_FOUND THEN
4886: x_valid_cc := FND_API.G_FALSE;
4887: x_return_status := FND_API.G_RET_STS_ERROR;
4888: fnd_message.set_name('IGC', 'IGC_CC_INVALID_GL_DATA');
4889: IF(g_error_level >= g_debug_level) THEN
4890: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
4883: WHERE set_of_books_id = p_sob_id;
4884: EXCEPTION
4885: WHEN NO_DATA_FOUND THEN
4886: x_valid_cc := FND_API.G_FALSE;
4887: x_return_status := FND_API.G_RET_STS_ERROR;
4888: fnd_message.set_name('IGC', 'IGC_CC_INVALID_GL_DATA');
4889: IF(g_error_level >= g_debug_level) THEN
4890: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
4891: END IF;
4952: IF ( p_start_date IS NOT NULL) AND p_field_from = 'START_DATE' THEN
4953:
4954: IF (p_end_date IS NOT NULL) THEN
4955: IF p_end_date < p_start_date THEN
4956: x_valid_cc := FND_API.G_FALSE;
4957: x_return_status := FND_API.G_RET_STS_ERROR;
4958: fnd_message.set_name('IGC', 'IGC_CC_EFFECTIVE_START_DATE');
4959: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
4960: IF(g_state_level >= g_debug_level) THEN
4953:
4954: IF (p_end_date IS NOT NULL) THEN
4955: IF p_end_date < p_start_date THEN
4956: x_valid_cc := FND_API.G_FALSE;
4957: x_return_status := FND_API.G_RET_STS_ERROR;
4958: fnd_message.set_name('IGC', 'IGC_CC_EFFECTIVE_START_DATE');
4959: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
4960: IF(g_state_level >= g_debug_level) THEN
4961: FND_LOG.MESSAGE(g_state_level, l_full_path, FALSE);
4965: END IF;
4966:
4967: -- Encumbrance turned on or not check begins here.
4968:
4969: IF (p_encumbrance_flag = FND_API.G_FALSE) THEN
4970:
4971: -- Encumbrance is turned OFF.
4972: -- If encumbrance is off
4973: -- then start date is validated only against
4989: l_COUNT := 0;
4990: END;
4991:
4992: IF (NVL(l_COUNT,0) = 0) THEN
4993: x_valid_cc := FND_API.G_FALSE;
4994: x_return_status := FND_API.G_RET_STS_ERROR;
4995: fnd_message.set_name('IGC', 'IGC_CC_EFF_CCPER_START_DATE');
4996: fnd_message.set_token('STARTDATE', FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
4997: IF(g_state_level >= g_debug_level) THEN
4990: END;
4991:
4992: IF (NVL(l_COUNT,0) = 0) THEN
4993: x_valid_cc := FND_API.G_FALSE;
4994: x_return_status := FND_API.G_RET_STS_ERROR;
4995: fnd_message.set_name('IGC', 'IGC_CC_EFF_CCPER_START_DATE');
4996: fnd_message.set_token('STARTDATE', FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
4997: IF(g_state_level >= g_debug_level) THEN
4998: FND_LOG.MESSAGE(g_state_level, l_full_path, FALSE);
4999: END IF;
5000: fnd_msg_pub.add;
5001: END IF;
5002:
5003: ELSIF p_encumbrance_flag = FND_API.G_TRUE AND
5004: ( l_sbc_enable_flag = 'Y' ) AND
5005: ( l_cbc_enable_flag IN ('Y','N') AND
5006: (l_cc_prov_encmbrnc_flag IN ('Y','N') AND l_cc_conf_encmbrnc_flag = 'Y')
5007: )
5039: END IF;
5040: END;
5041:
5042: IF (NVL(l_COUNT,0) = 0) THEN
5043: x_valid_cc := FND_API.G_FALSE;
5044: x_return_status := FND_API.G_RET_STS_ERROR;
5045: fnd_message.set_name('IGC', 'IGC_CC_EFF_CCGLPER_START_DATE');
5046: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(p_start_date),FALSE);
5047: IF(g_error_level >= g_debug_level) THEN
5040: END;
5041:
5042: IF (NVL(l_COUNT,0) = 0) THEN
5043: x_valid_cc := FND_API.G_FALSE;
5044: x_return_status := FND_API.G_RET_STS_ERROR;
5045: fnd_message.set_name('IGC', 'IGC_CC_EFF_CCGLPER_START_DATE');
5046: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(p_start_date),FALSE);
5047: IF(g_error_level >= g_debug_level) THEN
5048: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5067: END ;
5068:
5069: IF (p_start_date > NVL(l_min_rel_start_date,p_start_date) )
5070: THEN
5071: x_valid_cc := FND_API.G_FALSE;
5072: x_return_status := FND_API.G_RET_STS_ERROR;
5073: fnd_message.set_name('IGC', 'IGC_CC_EFF_COVER_START_DATE');
5074: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5075: IF(g_error_level >= g_debug_level) THEN
5068:
5069: IF (p_start_date > NVL(l_min_rel_start_date,p_start_date) )
5070: THEN
5071: x_valid_cc := FND_API.G_FALSE;
5072: x_return_status := FND_API.G_RET_STS_ERROR;
5073: fnd_message.set_name('IGC', 'IGC_CC_EFF_COVER_START_DATE');
5074: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5075: IF(g_error_level >= g_debug_level) THEN
5076: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5093: END ;
5094:
5095: IF (p_start_date < NVL(l_cover_start_date,p_start_date) )
5096: THEN
5097: x_valid_cc := FND_API.G_FALSE;
5098: x_return_status := FND_API.G_RET_STS_ERROR;
5099: fnd_message.set_name('IGC', 'IGC_CC_EFF_REL_START_DATE');
5100: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5101: IF(g_error_level >= g_debug_level) THEN
5094:
5095: IF (p_start_date < NVL(l_cover_start_date,p_start_date) )
5096: THEN
5097: x_valid_cc := FND_API.G_FALSE;
5098: x_return_status := FND_API.G_RET_STS_ERROR;
5099: fnd_message.set_name('IGC', 'IGC_CC_EFF_REL_START_DATE');
5100: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5101: IF(g_error_level >= g_debug_level) THEN
5102: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5105: END IF;
5106: END IF; -- Commitment Type is Release.
5107:
5108: ELSIF ( p_start_date IS NULL) THEN
5109: x_valid_cc := FND_API.G_FALSE;
5110: x_return_status := FND_API.G_RET_STS_ERROR;
5111: fnd_message.set_name('IGC', 'IGC_CC_NO_START_DATE');
5112: IF(g_error_level >= g_debug_level) THEN
5113: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5106: END IF; -- Commitment Type is Release.
5107:
5108: ELSIF ( p_start_date IS NULL) THEN
5109: x_valid_cc := FND_API.G_FALSE;
5110: x_return_status := FND_API.G_RET_STS_ERROR;
5111: fnd_message.set_name('IGC', 'IGC_CC_NO_START_DATE');
5112: IF(g_error_level >= g_debug_level) THEN
5113: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5114: END IF;
5120:
5121: IF (p_end_date IS NOT NULL) AND p_field_from = 'END_DATE' THEN
5122:
5123: IF p_end_date < p_start_date THEN
5124: x_valid_cc := FND_API.G_FALSE;
5125: x_return_status := FND_API.G_RET_STS_ERROR;
5126: fnd_message.set_name('IGC', 'IGC_CC_EFFECTIVE_END_DATE');
5127: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5128: fnd_message.set_token('ENDDATE',FND_DATE.DATE_TO_CHARDATE (P_END_DATE),FALSE);
5121: IF (p_end_date IS NOT NULL) AND p_field_from = 'END_DATE' THEN
5122:
5123: IF p_end_date < p_start_date THEN
5124: x_valid_cc := FND_API.G_FALSE;
5125: x_return_status := FND_API.G_RET_STS_ERROR;
5126: fnd_message.set_name('IGC', 'IGC_CC_EFFECTIVE_END_DATE');
5127: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE (P_START_DATE),FALSE);
5128: fnd_message.set_token('ENDDATE',FND_DATE.DATE_TO_CHARDATE (P_END_DATE),FALSE);
5129: IF(g_error_level >= g_debug_level) THEN
5146: END ;
5147:
5148: IF (p_end_date < NVL(l_max_rel_end_date,p_end_date) )
5149: THEN
5150: x_valid_cc := FND_API.G_FALSE;
5151: x_return_status := FND_API.G_RET_STS_ERROR;
5152: fnd_message.set_name('IGC', 'IGC_CC_EFF_COVER_END_DATE');
5153: IF(g_error_level >= g_debug_level) THEN
5154: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5147:
5148: IF (p_end_date < NVL(l_max_rel_end_date,p_end_date) )
5149: THEN
5150: x_valid_cc := FND_API.G_FALSE;
5151: x_return_status := FND_API.G_RET_STS_ERROR;
5152: fnd_message.set_name('IGC', 'IGC_CC_EFF_COVER_END_DATE');
5153: IF(g_error_level >= g_debug_level) THEN
5154: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5155: END IF;
5170: END ;
5171:
5172: IF (p_end_date > NVL(l_cover_end_date,p_end_date) )
5173: THEN
5174: x_valid_cc := FND_API.G_FALSE;
5175: x_return_status := FND_API.G_RET_STS_ERROR;
5176: fnd_message.set_name('IGC', 'IGC_CC_EFF_REL_END_DATE');
5177: IF(g_error_level >= g_debug_level) THEN
5178: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5171:
5172: IF (p_end_date > NVL(l_cover_end_date,p_end_date) )
5173: THEN
5174: x_valid_cc := FND_API.G_FALSE;
5175: x_return_status := FND_API.G_RET_STS_ERROR;
5176: fnd_message.set_name('IGC', 'IGC_CC_EFF_REL_END_DATE');
5177: IF(g_error_level >= g_debug_level) THEN
5178: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5179: END IF;
5189:
5190: -- Basic Validations
5191:
5192: IF (p_cc_det_pf_date < p_start_date) THEN
5193: x_valid_cc := FND_API.G_FALSE;
5194: x_return_status := FND_API.G_RET_STS_ERROR;
5195: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
5196: fnd_message.set_token('PFDATE',FND_DATE.DATE_TO_CHARDATE(p_cc_det_pf_date),FALSE);
5197: IF(g_error_level >= g_debug_level) THEN
5190: -- Basic Validations
5191:
5192: IF (p_cc_det_pf_date < p_start_date) THEN
5193: x_valid_cc := FND_API.G_FALSE;
5194: x_return_status := FND_API.G_RET_STS_ERROR;
5195: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
5196: fnd_message.set_token('PFDATE',FND_DATE.DATE_TO_CHARDATE(p_cc_det_pf_date),FALSE);
5197: IF(g_error_level >= g_debug_level) THEN
5198: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5201: END IF;
5202: IF ( (p_cc_det_pf_date > p_end_date) AND
5203: (p_end_date IS NOT NULL)
5204: ) THEN
5205: x_valid_cc := FND_API.G_FALSE;
5206: x_return_status := FND_API.G_RET_STS_ERROR;
5207: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
5208: fnd_message.set_token('PFDATE',FND_DATE.DATE_TO_CHARDATE(p_cc_det_pf_date),FALSE);
5209: IF(g_error_level >= g_debug_level) THEN
5202: IF ( (p_cc_det_pf_date > p_end_date) AND
5203: (p_end_date IS NOT NULL)
5204: ) THEN
5205: x_valid_cc := FND_API.G_FALSE;
5206: x_return_status := FND_API.G_RET_STS_ERROR;
5207: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
5208: fnd_message.set_token('PFDATE',FND_DATE.DATE_TO_CHARDATE(p_cc_det_pf_date),FALSE);
5209: IF(g_error_level >= g_debug_level) THEN
5210: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5213: END IF;
5214:
5215: -- Budgetary Control turned on.
5216:
5217: IF p_encumbrance_flag = FND_API.G_TRUE THEN
5218: BEGIN
5219: -- Performance Tuning, replaced
5220: -- view gl_period_statuses_v with
5221: -- gl_period_statuses
5243: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5244: END IF;
5245: END;
5246: IF NVL(l_COUNT,0) = 0 THEN
5247: x_valid_cc := FND_API.G_FALSE;
5248: x_return_status := FND_API.G_RET_STS_ERROR;
5249: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
5250: IF(g_error_level >= g_debug_level) THEN
5251: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5244: END IF;
5245: END;
5246: IF NVL(l_COUNT,0) = 0 THEN
5247: x_valid_cc := FND_API.G_FALSE;
5248: x_return_status := FND_API.G_RET_STS_ERROR;
5249: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
5250: IF(g_error_level >= g_debug_level) THEN
5251: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5252: END IF;
5269: OR ( p_acct_date IS NULL)
5270: OR (p_acct_date < p_prev_acct_date AND
5271: p_prev_acct_date IS NOT NULL)
5272: THEN
5273: x_valid_cc := FND_API.G_FALSE;
5274: x_return_status := FND_API.G_RET_STS_ERROR;
5275: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE');
5276: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5277: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5270: OR (p_acct_date < p_prev_acct_date AND
5271: p_prev_acct_date IS NOT NULL)
5272: THEN
5273: x_valid_cc := FND_API.G_FALSE;
5274: x_return_status := FND_API.G_RET_STS_ERROR;
5275: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE');
5276: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5277: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5278: fnd_message.set_token('ENDDATE',FND_DATE.DATE_TO_CHARDATE(P_END_DATE),FALSE);
5289: OR ( (p_acct_date NOT BETWEEN p_prev_acct_date AND SYSDATE) AND
5290: p_prev_acct_date IS NOT NULL AND
5291: p_prev_acct_date < SYSDATE)
5292: THEN
5293: x_valid_cc := FND_API.G_FALSE;
5294: x_return_status := FND_API.G_RET_STS_ERROR;
5295: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_CL_CT');
5296: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5297: fnd_message.set_token('PREV_ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_PREV_ACCT_DATE),FALSE);
5290: p_prev_acct_date IS NOT NULL AND
5291: p_prev_acct_date < SYSDATE)
5292: THEN
5293: x_valid_cc := FND_API.G_FALSE;
5294: x_return_status := FND_API.G_RET_STS_ERROR;
5295: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_CL_CT');
5296: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5297: fnd_message.set_token('PREV_ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_PREV_ACCT_DATE),FALSE);
5298: IF(g_error_level >= g_debug_level) THEN
5304: END IF;
5305:
5306: -- Encumbrance turned ON.
5307:
5308: IF p_encumbrance_flag = FND_API.G_TRUE AND
5309: (l_sbc_enable_flag = 'Y' ) AND
5310: ( l_cbc_enable_flag IN ('Y','N') AND
5311: (l_cc_prov_encmbrnc_flag IN ('Y','N') AND (l_cc_conf_encmbrnc_flag = 'Y'))
5312: )
5349: END IF;
5350:
5351: END;
5352: IF NVL(l_COUNT,0) = 0 THEN
5353: x_valid_cc := FND_API.G_FALSE;
5354: x_return_status := FND_API.G_RET_STS_ERROR;
5355: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_OF');
5356: IF(g_error_level >= g_debug_level) THEN
5357: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5350:
5351: END;
5352: IF NVL(l_COUNT,0) = 0 THEN
5353: x_valid_cc := FND_API.G_FALSE;
5354: x_return_status := FND_API.G_RET_STS_ERROR;
5355: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_OF');
5356: IF(g_error_level >= g_debug_level) THEN
5357: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5358: END IF;
5421: AND (p_acct_date between gl.start_date and gl.end_date);
5422: END;
5423: IF l_orig_fiscal_year <> l_new_fiscal_year
5424: THEN
5425: x_valid_cc := FND_API.G_FALSE;
5426: x_return_status := FND_API.G_RET_STS_ERROR;
5427: fnd_message.set_name('IGC', 'IGC_CC_ACCT_FISCAL_YRS_NE');
5428: fnd_message.set_TOKEN('PREVACTDATE',FND_DATE.DATE_TO_CHARDATE (p_prev_acct_date),FALSE);
5429: IF(g_error_level >= g_debug_level) THEN
5422: END;
5423: IF l_orig_fiscal_year <> l_new_fiscal_year
5424: THEN
5425: x_valid_cc := FND_API.G_FALSE;
5426: x_return_status := FND_API.G_RET_STS_ERROR;
5427: fnd_message.set_name('IGC', 'IGC_CC_ACCT_FISCAL_YRS_NE');
5428: fnd_message.set_TOKEN('PREVACTDATE',FND_DATE.DATE_TO_CHARDATE (p_prev_acct_date),FALSE);
5429: IF(g_error_level >= g_debug_level) THEN
5430: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5463: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5464: END IF;
5465: END;
5466: IF NVL(l_COUNT,0) = 0 THEN
5467: x_valid_cc := FND_API.G_FALSE;
5468: x_return_status := FND_API.G_RET_STS_ERROR;
5469: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_O');
5470: IF(g_error_level >= g_debug_level) THEN
5471: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5464: END IF;
5465: END;
5466: IF NVL(l_COUNT,0) = 0 THEN
5467: x_valid_cc := FND_API.G_FALSE;
5468: x_return_status := FND_API.G_RET_STS_ERROR;
5469: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_O');
5470: IF(g_error_level >= g_debug_level) THEN
5471: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5472: END IF;
5490: OR ( p_acct_date IS NULL)
5491: OR (p_acct_date < p_prev_acct_date AND
5492: p_prev_acct_date IS NOT NULL)
5493: THEN
5494: x_valid_cc := FND_API.G_FALSE;
5495: x_return_status := FND_API.G_RET_STS_ERROR;
5496: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE');
5497: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5498: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5491: OR (p_acct_date < p_prev_acct_date AND
5492: p_prev_acct_date IS NOT NULL)
5493: THEN
5494: x_valid_cc := FND_API.G_FALSE;
5495: x_return_status := FND_API.G_RET_STS_ERROR;
5496: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE');
5497: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5498: fnd_message.set_token('STARTDATE',FND_DATE.DATE_TO_CHARDATE(P_START_DATE),FALSE);
5499: fnd_message.set_token('ENDDATE',FND_DATE.DATE_TO_CHARDATE(P_END_DATE),FALSE);
5510: OR ( (p_acct_date NOT BETWEEN p_prev_acct_date AND SYSDATE) AND
5511: p_prev_acct_date IS NOT NULL AND
5512: p_prev_acct_date < SYSDATE)
5513: THEN
5514: x_valid_cc := FND_API.G_FALSE;
5515: x_return_status := FND_API.G_RET_STS_ERROR;
5516: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_CL_CT');
5517: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5518: fnd_message.set_token('PREV_ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_PREV_ACCT_DATE),FALSE);
5511: p_prev_acct_date IS NOT NULL AND
5512: p_prev_acct_date < SYSDATE)
5513: THEN
5514: x_valid_cc := FND_API.G_FALSE;
5515: x_return_status := FND_API.G_RET_STS_ERROR;
5516: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_CL_CT');
5517: fnd_message.set_token('ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_ACCT_DATE),FALSE);
5518: fnd_message.set_token('PREV_ACCTDATE',FND_DATE.DATE_TO_CHARDATE(P_PREV_ACCT_DATE),FALSE);
5519: IF(g_error_level >= g_debug_level) THEN
5525: END IF;
5526:
5527: -- Encumbrance turned ON.
5528:
5529: IF p_encumbrance_flag = FND_API.G_TRUE AND
5530: (l_sbc_enable_flag = 'Y' ) AND
5531: ( l_cbc_enable_flag IN ('Y','N') AND
5532: (l_cc_prov_encmbrnc_flag IN ('Y','N') AND (l_cc_conf_encmbrnc_flag = 'Y'))
5533: )
5569: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5570: END IF;
5571: END;
5572: IF NVL(l_COUNT,0) = 0 THEN
5573: x_valid_cc := FND_API.G_FALSE;
5574: x_return_status := FND_API.G_RET_STS_ERROR;
5575: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_OF');
5576: IF(g_error_level >= g_debug_level) THEN
5577: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5570: END IF;
5571: END;
5572: IF NVL(l_COUNT,0) = 0 THEN
5573: x_valid_cc := FND_API.G_FALSE;
5574: x_return_status := FND_API.G_RET_STS_ERROR;
5575: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_OF');
5576: IF(g_error_level >= g_debug_level) THEN
5577: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5578: END IF;
5641: AND (p_acct_date between gl.start_date and gl.end_date);
5642: END;
5643: IF l_orig_fiscal_year <> l_new_fiscal_year
5644: THEN
5645: x_valid_cc := FND_API.G_FALSE;
5646: x_return_status := FND_API.G_RET_STS_ERROR;
5647: fnd_message.set_name('IGC', 'IGC_CC_ACCT_FISCAL_YRS_NE');
5648: fnd_message.set_TOKEN('PREVACTDATE',FND_DATE.DATE_TO_CHARDATE (p_prev_acct_date),FALSE);
5649: IF(g_error_level >= g_debug_level) THEN
5642: END;
5643: IF l_orig_fiscal_year <> l_new_fiscal_year
5644: THEN
5645: x_valid_cc := FND_API.G_FALSE;
5646: x_return_status := FND_API.G_RET_STS_ERROR;
5647: fnd_message.set_name('IGC', 'IGC_CC_ACCT_FISCAL_YRS_NE');
5648: fnd_message.set_TOKEN('PREVACTDATE',FND_DATE.DATE_TO_CHARDATE (p_prev_acct_date),FALSE);
5649: IF(g_error_level >= g_debug_level) THEN
5650: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5683: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5684: END IF;
5685: END;
5686: IF NVL(l_COUNT,0) = 0 THEN
5687: x_valid_cc := FND_API.G_FALSE;
5688: x_return_status := FND_API.G_RET_STS_ERROR;
5689: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_O');
5690: IF(g_error_level >= g_debug_level) THEN
5691: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5684: END IF;
5685: END;
5686: IF NVL(l_COUNT,0) = 0 THEN
5687: x_valid_cc := FND_API.G_FALSE;
5688: x_return_status := FND_API.G_RET_STS_ERROR;
5689: fnd_message.set_name('IGC', 'IGC_CC_ACCT_DATE_O');
5690: IF(g_error_level >= g_debug_level) THEN
5691: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5692: END IF;
5706: FROM igc_cc_headers
5707: WHERE cc_header_id = p_cc_header_id;
5708: EXCEPTION
5709: WHEN no_data_found THEN
5710: x_valid_cc := FND_API.G_FALSE;
5711: x_return_status := FND_API.G_RET_STS_ERROR;
5712: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
5713: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
5714: IF(g_error_level >= g_debug_level) THEN
5707: WHERE cc_header_id = p_cc_header_id;
5708: EXCEPTION
5709: WHEN no_data_found THEN
5710: x_valid_cc := FND_API.G_FALSE;
5711: x_return_status := FND_API.G_RET_STS_ERROR;
5712: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
5713: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
5714: IF(g_error_level >= g_debug_level) THEN
5715: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5763: -- And clause added for 2043221, Bidisha S , 12 Oct 2001
5764: -- Perform this validation only if the withheld amount is not equal to
5765: -- the amount in the account line
5766: THEN
5767: x_valid_cc := FND_API.G_FALSE;
5768: x_return_status := FND_API.G_RET_STS_ERROR;
5769: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
5770: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
5771: IF(g_error_level >= g_debug_level) THEN
5764: -- Perform this validation only if the withheld amount is not equal to
5765: -- the amount in the account line
5766: THEN
5767: x_valid_cc := FND_API.G_FALSE;
5768: x_return_status := FND_API.G_RET_STS_ERROR;
5769: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
5770: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
5771: IF(g_error_level >= g_debug_level) THEN
5772: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5784:
5785: -- PF Date vs Accounting Date Validation.
5786:
5787: IF (l_cc_det_pf_lines_rec.cc_det_pf_date < p_acct_date) THEN
5788: x_valid_cc := FND_API.G_FALSE;
5789: x_return_status := FND_API.G_RET_STS_ERROR;
5790: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_ACCT_DATE');
5791: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5792: fnd_message.set_TOKEN('ACCTDATE',FND_DATE.DATE_TO_CHARDATE (p_acct_date),FALSE);
5785: -- PF Date vs Accounting Date Validation.
5786:
5787: IF (l_cc_det_pf_lines_rec.cc_det_pf_date < p_acct_date) THEN
5788: x_valid_cc := FND_API.G_FALSE;
5789: x_return_status := FND_API.G_RET_STS_ERROR;
5790: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_ACCT_DATE');
5791: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5792: fnd_message.set_TOKEN('ACCTDATE',FND_DATE.DATE_TO_CHARDATE (p_acct_date),FALSE);
5793: IF(g_error_level >= g_debug_level) THEN
5807:
5808: CLOSE c_account_lines;
5809:
5810: IF (l_cc_acct_cnt = 0) THEN
5811: x_valid_cc := FND_API.G_FALSE;
5812: x_return_status := FND_API.G_RET_STS_ERROR;
5813: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
5814: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
5815: IF(g_error_level >= g_debug_level) THEN
5808: CLOSE c_account_lines;
5809:
5810: IF (l_cc_acct_cnt = 0) THEN
5811: x_valid_cc := FND_API.G_FALSE;
5812: x_return_status := FND_API.G_RET_STS_ERROR;
5813: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
5814: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
5815: IF(g_error_level >= g_debug_level) THEN
5816: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5830: FROM igc_cc_headers
5831: WHERE cc_header_id = p_cc_header_id;
5832: EXCEPTION
5833: WHEN no_data_found THEN
5834: x_valid_cc := FND_API.G_FALSE;
5835: x_return_status := FND_API.G_RET_STS_ERROR;
5836: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
5837: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
5838: IF(g_error_level >= g_debug_level) THEN
5831: WHERE cc_header_id = p_cc_header_id;
5832: EXCEPTION
5833: WHEN no_data_found THEN
5834: x_valid_cc := FND_API.G_FALSE;
5835: x_return_status := FND_API.G_RET_STS_ERROR;
5836: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
5837: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
5838: IF(g_error_level >= g_debug_level) THEN
5839: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5880: -- And clause added for 2043221, Bidisha S , 12 Oct 2001
5881: -- Perfom this validation only if the withheld amount is not equal to
5882: -- the amount in the account line
5883: THEN
5884: x_valid_cc := FND_API.G_FALSE;
5885: x_return_status := FND_API.G_RET_STS_ERROR;
5886: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
5887: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
5888: IF(g_error_level >= g_debug_level) THEN
5881: -- Perfom this validation only if the withheld amount is not equal to
5882: -- the amount in the account line
5883: THEN
5884: x_valid_cc := FND_API.G_FALSE;
5885: x_return_status := FND_API.G_RET_STS_ERROR;
5886: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
5887: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
5888: IF(g_error_level >= g_debug_level) THEN
5889: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5901:
5902: -- PF Date vs Start Date Validation.
5903:
5904: IF (l_cc_det_pf_lines_rec.cc_det_pf_date < p_start_date) THEN
5905: x_valid_cc := FND_API.G_FALSE;
5906: x_return_status := FND_API.G_RET_STS_ERROR;
5907: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
5908: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5909: IF (g_error_level >= g_debug_level) THEN
5902: -- PF Date vs Start Date Validation.
5903:
5904: IF (l_cc_det_pf_lines_rec.cc_det_pf_date < p_start_date) THEN
5905: x_valid_cc := FND_API.G_FALSE;
5906: x_return_status := FND_API.G_RET_STS_ERROR;
5907: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
5908: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5909: IF (g_error_level >= g_debug_level) THEN
5910: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5916:
5917: IF ( (l_cc_det_pf_lines_rec.cc_det_pf_date > p_end_date) AND
5918: (p_end_date IS NOT NULL)
5919: ) THEN
5920: x_valid_cc := FND_API.G_FALSE;
5921: x_return_status := FND_API.G_RET_STS_ERROR;
5922: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
5923: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5924: IF(g_error_level >= g_debug_level) THEN
5917: IF ( (l_cc_det_pf_lines_rec.cc_det_pf_date > p_end_date) AND
5918: (p_end_date IS NOT NULL)
5919: ) THEN
5920: x_valid_cc := FND_API.G_FALSE;
5921: x_return_status := FND_API.G_RET_STS_ERROR;
5922: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
5923: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
5924: IF(g_error_level >= g_debug_level) THEN
5925: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5966: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5967: END IF;
5968: END;
5969: IF NVL(l_COUNT,0) = 0 THEN
5970: x_valid_cc := FND_API.G_FALSE;
5971: x_return_status := FND_API.G_RET_STS_ERROR;
5972: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
5973: IF(g_error_level >= g_debug_level) THEN
5974: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5967: END IF;
5968: END;
5969: IF NVL(l_COUNT,0) = 0 THEN
5970: x_valid_cc := FND_API.G_FALSE;
5971: x_return_status := FND_API.G_RET_STS_ERROR;
5972: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
5973: IF(g_error_level >= g_debug_level) THEN
5974: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
5975: END IF;
5978:
5979: -- Encumbrance turned ON.
5980: -- Bug 1623034. Commitment Type should not be a RELEASE.
5981:
5982: IF p_encumbrance_flag = FND_API.G_TRUE AND
5983: ( (l_sbc_enable_flag = 'Y' ) AND
5984: ( ( l_cbc_enable_flag IN ('Y','N') AND
5985: (l_cc_prov_encmbrnc_flag IN ('Y','N') AND
5986: (l_cc_conf_encmbrnc_flag = 'Y')
6028: THEN
6029: IF TRUNC(l_cc_det_pf_lines_rec.cc_det_pf_date ) <>
6030: TRUNC(l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date)
6031: THEN
6032: x_valid_cc := FND_API.G_FALSE;
6033: x_return_status := FND_API.G_RET_STS_ERROR;
6034: fnd_message.set_name('IGC','IGC_CC_DET_PF_DATE_NO_UPDATE');
6035: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6036: IF(g_error_level >= g_debug_level) THEN
6029: IF TRUNC(l_cc_det_pf_lines_rec.cc_det_pf_date ) <>
6030: TRUNC(l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date)
6031: THEN
6032: x_valid_cc := FND_API.G_FALSE;
6033: x_return_status := FND_API.G_RET_STS_ERROR;
6034: fnd_message.set_name('IGC','IGC_CC_DET_PF_DATE_NO_UPDATE');
6035: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6036: IF(g_error_level >= g_debug_level) THEN
6037: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6103: AND (l_cc_det_pf_lines_rec.cc_det_pf_date between gl.start_date and gl.end_date);
6104: END;
6105: IF l_orig_fiscal_year <> l_new_fiscal_year
6106: THEN
6107: x_valid_cc := FND_API.G_FALSE;
6108: x_return_status := FND_API.G_RET_STS_ERROR;
6109: fnd_message.set_name('IGC', 'IGC_CC_FISCAL_YRS_NE');
6110: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6111: IF(g_error_level >= g_debug_level) THEN
6104: END;
6105: IF l_orig_fiscal_year <> l_new_fiscal_year
6106: THEN
6107: x_valid_cc := FND_API.G_FALSE;
6108: x_return_status := FND_API.G_RET_STS_ERROR;
6109: fnd_message.set_name('IGC', 'IGC_CC_FISCAL_YRS_NE');
6110: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6111: IF(g_error_level >= g_debug_level) THEN
6112: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6134: NVL(l_cc_acct_lines_rec.cc_ent_withheld_amt,0)) <> NVL(l_cc_acct_lines_rec.cc_acct_entered_amt,0)
6135: -- '+' added for 2043221, Bidisha S , 12 Oct 2001
6136: -- This validation now needs to include the withheld amount
6137: THEN
6138: x_valid_cc := FND_API.G_FALSE;
6139: x_return_status := FND_API.G_RET_STS_ERROR;
6140: fnd_message.set_name('IGC', 'IGC_CC_AMT_MISMATCH');
6141: fnd_message.set_token('ACCT_NUM',to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6142: IF(g_error_level >= g_debug_level) THEN
6135: -- '+' added for 2043221, Bidisha S , 12 Oct 2001
6136: -- This validation now needs to include the withheld amount
6137: THEN
6138: x_valid_cc := FND_API.G_FALSE;
6139: x_return_status := FND_API.G_RET_STS_ERROR;
6140: fnd_message.set_name('IGC', 'IGC_CC_AMT_MISMATCH');
6141: fnd_message.set_token('ACCT_NUM',to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6142: IF(g_error_level >= g_debug_level) THEN
6143: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6149:
6150: CLOSE c_account_lines;
6151:
6152: IF (l_cc_acct_cnt = 0) THEN
6153: x_valid_cc := FND_API.G_FALSE;
6154: x_return_status := FND_API.G_RET_STS_ERROR;
6155: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
6156: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
6157: IF(g_error_level >= g_debug_level) THEN
6150: CLOSE c_account_lines;
6151:
6152: IF (l_cc_acct_cnt = 0) THEN
6153: x_valid_cc := FND_API.G_FALSE;
6154: x_return_status := FND_API.G_RET_STS_ERROR;
6155: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
6156: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
6157: IF(g_error_level >= g_debug_level) THEN
6158: FND_LOG.MESSAGE(g_error_level, g_debug_level, FALSE);
6175: FROM igc_cc_headers
6176: WHERE cc_header_id = p_cc_header_id;
6177: EXCEPTION
6178: WHEN no_data_found THEN
6179: x_valid_cc := FND_API.G_FALSE;
6180: x_return_status := FND_API.G_RET_STS_ERROR;
6181: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
6182: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
6183: IF(g_error_level >= g_debug_level) THEN
6176: WHERE cc_header_id = p_cc_header_id;
6177: EXCEPTION
6178: WHEN no_data_found THEN
6179: x_valid_cc := FND_API.G_FALSE;
6180: x_return_status := FND_API.G_RET_STS_ERROR;
6181: fnd_message.set_name('IGC', 'IGC_CC_NOT_FOUND');
6182: fnd_message.set_token('CC_NUM', to_char(p_cc_header_id),TRUE);
6183: IF(g_error_level >= g_debug_level) THEN
6184: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6230: -- And clause added for 2043221, Bidisha S , 12 Oct 2001
6231: -- Perfom this validation only if the withheld amount is not equal to
6232: -- the amount in the account line
6233: THEN
6234: x_valid_cc := FND_API.G_FALSE;
6235: x_return_status := FND_API.G_RET_STS_ERROR;
6236: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
6237: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6238: IF(g_error_level >= g_debug_level) THEN
6231: -- Perfom this validation only if the withheld amount is not equal to
6232: -- the amount in the account line
6233: THEN
6234: x_valid_cc := FND_API.G_FALSE;
6235: x_return_status := FND_API.G_RET_STS_ERROR;
6236: fnd_message.set_name('IGC', 'IGC_CC_NO_PF');
6237: fnd_message.set_token('ACCT_NUM', to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6238: IF(g_error_level >= g_debug_level) THEN
6239: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6251:
6252: -- PF Date vs Start Date Validation.
6253:
6254: IF (l_cc_det_pf_lines_rec.cc_det_pf_date < p_start_date) THEN
6255: x_valid_cc := FND_API.G_FALSE;
6256: x_return_status := FND_API.G_RET_STS_ERROR;
6257: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
6258: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
6259: IF(g_error_level >= g_debug_level) THEN
6252: -- PF Date vs Start Date Validation.
6253:
6254: IF (l_cc_det_pf_lines_rec.cc_det_pf_date < p_start_date) THEN
6255: x_valid_cc := FND_API.G_FALSE;
6256: x_return_status := FND_API.G_RET_STS_ERROR;
6257: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_START_DATE');
6258: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
6259: IF(g_error_level >= g_debug_level) THEN
6260: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6266:
6267: IF ( (l_cc_det_pf_lines_rec.cc_det_pf_date > p_end_date) AND
6268: (p_end_date IS NOT NULL)
6269: ) THEN
6270: x_valid_cc := FND_API.G_FALSE;
6271: x_return_status := FND_API.G_RET_STS_ERROR;
6272: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
6273: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
6274: IF(g_error_level >= g_debug_level) THEN
6267: IF ( (l_cc_det_pf_lines_rec.cc_det_pf_date > p_end_date) AND
6268: (p_end_date IS NOT NULL)
6269: ) THEN
6270: x_valid_cc := FND_API.G_FALSE;
6271: x_return_status := FND_API.G_RET_STS_ERROR;
6272: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_END_DATE');
6273: fnd_message.set_TOKEN('PFDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_date),FALSE);
6274: IF(g_error_level >= g_debug_level) THEN
6275: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6316: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
6317: END IF;
6318: END;
6319: IF NVL(l_COUNT,0) = 0 THEN
6320: x_valid_cc := FND_API.G_FALSE;
6321: x_return_status := FND_API.G_RET_STS_ERROR;
6322: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
6323: IF(g_error_level >= g_debug_level) THEN
6324: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6317: END IF;
6318: END;
6319: IF NVL(l_COUNT,0) = 0 THEN
6320: x_valid_cc := FND_API.G_FALSE;
6321: x_return_status := FND_API.G_RET_STS_ERROR;
6322: fnd_message.set_name('IGC', 'IGC_CC_DET_PF_DATE');
6323: IF(g_error_level >= g_debug_level) THEN
6324: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6325: END IF;
6328:
6329: -- Encumbrance turned ON.
6330: -- Bug 1623034. Commitment Type should not be a RELEASE.
6331:
6332: IF p_encumbrance_flag = FND_API.G_TRUE AND
6333: ( (l_sbc_enable_flag = 'Y' ) AND
6334: ( l_cbc_enable_flag IN ('Y','N') AND
6335: (l_cc_prov_encmbrnc_flag IN ('Y','N') AND
6336: (l_cc_conf_encmbrnc_flag = 'Y')
6377: THEN
6378: IF TRUNC(l_cc_det_pf_lines_rec.cc_det_pf_date ) <>
6379: TRUNC (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date)
6380: THEN
6381: x_valid_cc := FND_API.G_FALSE;
6382: x_return_status := FND_API.G_RET_STS_ERROR;
6383: fnd_message.set_name('IGC',
6384: 'IGC_CC_DET_PF_DATE_NO_UPDATE');
6385: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6378: IF TRUNC(l_cc_det_pf_lines_rec.cc_det_pf_date ) <>
6379: TRUNC (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date)
6380: THEN
6381: x_valid_cc := FND_API.G_FALSE;
6382: x_return_status := FND_API.G_RET_STS_ERROR;
6383: fnd_message.set_name('IGC',
6384: 'IGC_CC_DET_PF_DATE_NO_UPDATE');
6385: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6386: IF(g_error_level >= g_debug_level) THEN
6453: AND (l_cc_det_pf_lines_rec.cc_det_pf_date between gl.start_date and gl.end_date);
6454: END;
6455: IF l_orig_fiscal_year <> l_new_fiscal_year
6456: THEN
6457: x_valid_cc := FND_API.G_FALSE;
6458: x_return_status := FND_API.G_RET_STS_ERROR;
6459: fnd_message.set_name('IGC', 'IGC_CC_FISCAL_YRS_NE');
6460: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6461: IF(g_error_level >= g_debug_level) THEN
6454: END;
6455: IF l_orig_fiscal_year <> l_new_fiscal_year
6456: THEN
6457: x_valid_cc := FND_API.G_FALSE;
6458: x_return_status := FND_API.G_RET_STS_ERROR;
6459: fnd_message.set_name('IGC', 'IGC_CC_FISCAL_YRS_NE');
6460: fnd_message.set_TOKEN('ENCMBRNCDATE',FND_DATE.DATE_TO_CHARDATE (l_cc_det_pf_lines_rec.cc_det_pf_encmbrnc_date),FALSE);
6461: IF(g_error_level >= g_debug_level) THEN
6462: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6483: <> (NVL(l_cc_acct_lines_rec.cc_acct_entered_amt,0))
6484: -- '+' added for 2043221, Bidisha S , 12 Oct 2001
6485: -- This validation now needs to include the withheld amount
6486: THEN
6487: x_valid_cc := FND_API.G_FALSE;
6488: x_return_status := FND_API.G_RET_STS_ERROR;
6489: fnd_message.set_name('IGC', 'IGC_CC_AMT_MISMATCH');
6490: fnd_message.set_token('ACCT_NUM',to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6491: IF(g_error_level >= g_debug_level) THEN
6484: -- '+' added for 2043221, Bidisha S , 12 Oct 2001
6485: -- This validation now needs to include the withheld amount
6486: THEN
6487: x_valid_cc := FND_API.G_FALSE;
6488: x_return_status := FND_API.G_RET_STS_ERROR;
6489: fnd_message.set_name('IGC', 'IGC_CC_AMT_MISMATCH');
6490: fnd_message.set_token('ACCT_NUM',to_char(l_cc_acct_lines_rec.cc_acct_line_num),TRUE);
6491: IF(g_error_level >= g_debug_level) THEN
6492: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6498:
6499: CLOSE c_account_lines;
6500:
6501: IF (l_cc_acct_cnt = 0) THEN
6502: x_valid_cc := FND_API.G_FALSE;
6503: x_return_status := FND_API.G_RET_STS_ERROR;
6504: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
6505: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
6506: IF(g_error_level >= g_debug_level) THEN
6499: CLOSE c_account_lines;
6500:
6501: IF (l_cc_acct_cnt = 0) THEN
6502: x_valid_cc := FND_API.G_FALSE;
6503: x_return_status := FND_API.G_RET_STS_ERROR;
6504: fnd_message.set_name('IGC', 'IGC_CC_NO_ACCT_LINES');
6505: fnd_message.set_token('CC_NUM', l_cc_headers_rec.cc_num,TRUE);
6506: IF(g_error_level >= g_debug_level) THEN
6507: FND_LOG.MESSAGE(g_error_level, l_full_path, FALSE);
6516: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
6517:
6518: EXCEPTION
6519: WHEN E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP THEN
6520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6521: x_valid_cc := FND_API.G_FALSE;
6522: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6523: p_data => x_msg_data );
6524: CLOSE c_account_lines;
6517:
6518: EXCEPTION
6519: WHEN E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP THEN
6520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6521: x_valid_cc := FND_API.G_FALSE;
6522: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6523: p_data => x_msg_data );
6524: CLOSE c_account_lines;
6525: IF (g_excep_level >= g_debug_level ) THEN
6525: IF (g_excep_level >= g_debug_level ) THEN
6526: FND_LOG.STRING (g_excep_level,l_full_path,'E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP Exception Raised');
6527: END IF;
6528:
6529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6531: x_valid_cc := FND_API.G_FALSE;
6532: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6533: p_data => x_msg_data );
6526: FND_LOG.STRING (g_excep_level,l_full_path,'E_CC_NOT_FOUND OR E_CC_INVALID_SET_UP Exception Raised');
6527: END IF;
6528:
6529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6531: x_valid_cc := FND_API.G_FALSE;
6532: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6533: p_data => x_msg_data );
6534: CLOSE c_account_lines;
6527: END IF;
6528:
6529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6531: x_valid_cc := FND_API.G_FALSE;
6532: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6533: p_data => x_msg_data );
6534: CLOSE c_account_lines;
6535: IF (g_excep_level >= g_debug_level ) THEN
6532: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6533: p_data => x_msg_data );
6534: CLOSE c_account_lines;
6535: IF (g_excep_level >= g_debug_level ) THEN
6536: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
6537: END IF;
6538:
6539: WHEN OTHERS THEN
6540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6536: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
6537: END IF;
6538:
6539: WHEN OTHERS THEN
6540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6541: x_valid_cc := FND_API.G_FALSE;
6542:
6543: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6544: THEN
6537: END IF;
6538:
6539: WHEN OTHERS THEN
6540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6541: x_valid_cc := FND_API.G_FALSE;
6542:
6543: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6544: THEN
6545: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name);
6561: -- This procedure calculates the non recoverable tax given an amount.
6562: -- Bug 2409502
6563: PROCEDURE calculate_nonrec_tax (
6564: p_api_version IN NUMBER,
6565: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6566: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6567: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6568: x_return_status OUT NOCOPY VARCHAR2,
6569: x_msg_count OUT NOCOPY NUMBER,
6562: -- Bug 2409502
6563: PROCEDURE calculate_nonrec_tax (
6564: p_api_version IN NUMBER,
6565: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6566: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6567: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6568: x_return_status OUT NOCOPY VARCHAR2,
6569: x_msg_count OUT NOCOPY NUMBER,
6570: x_msg_data OUT NOCOPY VARCHAR2,
6563: PROCEDURE calculate_nonrec_tax (
6564: p_api_version IN NUMBER,
6565: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6566: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6567: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6568: x_return_status OUT NOCOPY VARCHAR2,
6569: x_msg_count OUT NOCOPY NUMBER,
6570: x_msg_data OUT NOCOPY VARCHAR2,
6571: p_tax_id IN ap_tax_codes.tax_id%TYPE,
6590: BEGIN
6591:
6592: l_full_path := g_path || 'calculate_nonrec_tax';
6593:
6594: IF FND_API.to_Boolean(p_init_msg_list)
6595: THEN
6596: FND_MSG_PUB.initialize;
6597: END IF;
6598:
6595: THEN
6596: FND_MSG_PUB.initialize;
6597: END IF;
6598:
6599: IF NOT FND_API.Compatible_API_Call(l_api_version,
6600: p_api_version,
6601: l_api_name,
6602: G_PKG_NAME)
6603: THEN
6600: p_api_version,
6601: l_api_name,
6602: G_PKG_NAME)
6603: THEN
6604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6605: END IF;
6606:
6607: x_return_status := FND_API.G_RET_STS_SUCCESS;
6608:
6603: THEN
6604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6605: END IF;
6606:
6607: x_return_status := FND_API.G_RET_STS_SUCCESS;
6608:
6609: -- Get the tax rates
6610: OPEN c_get_tax;
6611: FETCH c_get_tax INTO l_tax_recovery_rate,
6621:
6622: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
6623:
6624: EXCEPTION
6625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6627: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6628: p_data => x_msg_data );
6629: IF (g_excep_level >= g_debug_level ) THEN
6622: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
6623:
6624: EXCEPTION
6625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6627: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6628: p_data => x_msg_data );
6629: IF (g_excep_level >= g_debug_level ) THEN
6630: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
6626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6627: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6628: p_data => x_msg_data );
6629: IF (g_excep_level >= g_debug_level ) THEN
6630: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
6631: END IF;
6632:
6633: WHEN OTHERS THEN
6634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6630: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
6631: END IF;
6632:
6633: WHEN OTHERS THEN
6634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6635:
6636: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6637: THEN
6638: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name);