[Home] [Help]
15: g_fund_segment VARCHAR2(30);
16: g_budgetary_control VARCHAR2(1);
17: g_average_balances VARCHAR2(1);
18: g_templ_seg_val FND_FLEX_EXT.SegmentArray;
19: g_post_to_all VARCHAR2(1) := FND_API.G_FALSE; -- Bug#4310411
20: g_budget_source_type VARCHAR2(2); -- Bug#4310411
21: g_budget_year_type_id NUMBER; -- Bug#4310411
22:
23:
244: END LOOP;
245:
246: IF NOT l_account_found THEN
247: Add_Message('PSB', 'PSB_GL_BJE_NO_TEMPL_ACCT');
248: RAISE FND_API.G_EXC_ERROR;
249: ELSE
250: BEGIN
251: IF NOT FND_FLEX_EXT.Get_Segments
252: (application_short_name => 'SQLGL',
257: segments => p_templ_seg
258: )
259: THEN
260: FND_MSG_PUB.Add;
261: RAISE FND_API.G_EXC_ERROR;
262: END IF;
263: p_ccid := l_ccid;
264: END;
265: END IF;
295: combination_id => p_ccid
296: )
297: THEN
298: FND_MSG_PUB.Add;
299: RAISE FND_API.G_EXC_ERROR;
300: END IF;
301: END;
302: ELSE
303: p_ccid := l_ccid;
304: END IF;
305: END;
306: END IF;
307:
308: x_return_status := FND_API.G_RET_STS_SUCCESS;
309:
310: EXCEPTION
311: WHEN FND_API.G_EXC_ERROR THEN
312: x_return_status := FND_API.G_RET_STS_ERROR;
307:
308: x_return_status := FND_API.G_RET_STS_SUCCESS;
309:
310: EXCEPTION
311: WHEN FND_API.G_EXC_ERROR THEN
312: x_return_status := FND_API.G_RET_STS_ERROR;
313:
314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308: x_return_status := FND_API.G_RET_STS_SUCCESS;
309:
310: EXCEPTION
311: WHEN FND_API.G_EXC_ERROR THEN
312: x_return_status := FND_API.G_RET_STS_ERROR;
313:
314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316:
310: EXCEPTION
311: WHEN FND_API.G_EXC_ERROR THEN
312: x_return_status := FND_API.G_RET_STS_ERROR;
313:
314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316:
317: WHEN OTHERS THEN
318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311: WHEN FND_API.G_EXC_ERROR THEN
312: x_return_status := FND_API.G_RET_STS_ERROR;
313:
314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316:
317: WHEN OTHERS THEN
318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
319:
314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316:
317: WHEN OTHERS THEN
318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
319:
320: END Get_Offset_Account;
321:
322: /* ----------------------------------------------------------------------- */
332: l_api_version CONSTANT NUMBER := 1.0;
333:
334: l_ccid NUMBER;
335: l_out_bal_amt NUMBER;
336: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
337:
338: CURSOR c_balacct
339: IS
340: SELECT
424: p_templ_seg => g_templ_seg_val,
425: p_ccid => l_ccid
426: );
427:
428: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
429: RAISE FND_API.G_EXC_ERROR;
430: END IF;
431:
432: INSERT INTO psb_gl_interfaces
425: p_ccid => l_ccid
426: );
427:
428: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
429: RAISE FND_API.G_EXC_ERROR;
430: END IF;
431:
432: INSERT INTO psb_gl_interfaces
433: (worksheet_id,
491: );
492: END IF;
493: END LOOP;
494:
495: x_return_status := FND_API.G_RET_STS_SUCCESS;
496:
497: EXCEPTION
498: WHEN FND_API.G_EXC_ERROR THEN
499: ROLLBACK TO Balance_Journal;
494:
495: x_return_status := FND_API.G_RET_STS_SUCCESS;
496:
497: EXCEPTION
498: WHEN FND_API.G_EXC_ERROR THEN
499: ROLLBACK TO Balance_Journal;
500: x_return_status := FND_API.G_RET_STS_ERROR;
501:
502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496:
497: EXCEPTION
498: WHEN FND_API.G_EXC_ERROR THEN
499: ROLLBACK TO Balance_Journal;
500: x_return_status := FND_API.G_RET_STS_ERROR;
501:
502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
503: ROLLBACK TO Balance_Journal;
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498: WHEN FND_API.G_EXC_ERROR THEN
499: ROLLBACK TO Balance_Journal;
500: x_return_status := FND_API.G_RET_STS_ERROR;
501:
502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
503: ROLLBACK TO Balance_Journal;
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
505:
506: WHEN OTHERS THEN
500: x_return_status := FND_API.G_RET_STS_ERROR;
501:
502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
503: ROLLBACK TO Balance_Journal;
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
505:
506: WHEN OTHERS THEN
507: ROLLBACK TO Balance_Journal;
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
505:
506: WHEN OTHERS THEN
507: ROLLBACK TO Balance_Journal;
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
510: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
511: END IF;
512:
731: segment_number => l_seg_num
732: )
733: THEN
734: Add_Message('PSB', 'PSB_GL_CANNOT_FIND_BAL_SEG');
735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
736: END IF;
737:
738: IF NOT FND_FLEX_APIS.Get_Segment_Info
739: (x_application_id => 101,
766: p_templ_seg => g_templ_seg_val,
767: p_ccid => l_templ_ccid
768: );
769:
770: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
773: END;
774: END IF;
767: p_ccid => l_templ_ccid
768: );
769:
770: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
773: END;
774: END IF;
775:
772: END IF;
773: END;
774: END IF;
775:
776: x_return_status := FND_API.G_RET_STS_SUCCESS;
777:
778: EXCEPTION
779:
780: WHEN FND_API.G_EXC_ERROR THEN
776: x_return_status := FND_API.G_RET_STS_SUCCESS;
777:
778: EXCEPTION
779:
780: WHEN FND_API.G_EXC_ERROR THEN
781: x_return_status := FND_API.G_RET_STS_ERROR;
782:
783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
777:
778: EXCEPTION
779:
780: WHEN FND_API.G_EXC_ERROR THEN
781: x_return_status := FND_API.G_RET_STS_ERROR;
782:
783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
785:
779:
780: WHEN FND_API.G_EXC_ERROR THEN
781: x_return_status := FND_API.G_RET_STS_ERROR;
782:
783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
785:
786: WHEN OTHERS THEN
787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
780: WHEN FND_API.G_EXC_ERROR THEN
781: x_return_status := FND_API.G_RET_STS_ERROR;
782:
783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
785:
786: WHEN OTHERS THEN
787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
788:
783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
785:
786: WHEN OTHERS THEN
787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
788:
789: END Initialize;
790:
791: /* ----------------------------------------------------------------------- */
856: END LOOP;
857:
858: IF NOT l_period_found THEN
859: Add_Message('PSB', 'PSB_GL_PRD_NOT_FOUND');
860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
861: END IF;
862:
863: /*FOR Bug No : 2543724 Start*/
864: --We need NOT to validate against GL periods as
868: /*
869: IF p_period_status = 'N' THEN
870: Message_Token('PERIOD_NAME', p_period_name);
871: Add_Message('PSB', 'PSB_GL_PRD_NEVER_OPENED');
872: RAISE FND_API.G_EXC_ERROR;
873: ELSIF p_period_status IN ('P', 'C') THEN
874: Message_Token('PERIOD_NAME', p_period_name);
875: Add_Message('PSB', 'PSB_GL_PRD_CLOSED');
876: RAISE FND_API.G_EXC_ERROR;
872: RAISE FND_API.G_EXC_ERROR;
873: ELSIF p_period_status IN ('P', 'C') THEN
874: Message_Token('PERIOD_NAME', p_period_name);
875: Add_Message('PSB', 'PSB_GL_PRD_CLOSED');
876: RAISE FND_API.G_EXC_ERROR;
877: END IF;
878:
879: --commented the following code as this IS NOT being used
880: FOR c_next_period_rec IN c_next_period LOOP
884: */
885:
886: /*FOR Bug No : 2543724 END*/
887:
888: x_return_status := FND_API.G_RET_STS_SUCCESS;
889:
890: EXCEPTION
891:
892: WHEN FND_API.G_EXC_ERROR THEN
888: x_return_status := FND_API.G_RET_STS_SUCCESS;
889:
890: EXCEPTION
891:
892: WHEN FND_API.G_EXC_ERROR THEN
893: x_return_status := FND_API.G_RET_STS_ERROR;
894:
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
889:
890: EXCEPTION
891:
892: WHEN FND_API.G_EXC_ERROR THEN
893: x_return_status := FND_API.G_RET_STS_ERROR;
894:
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
897:
891:
892: WHEN FND_API.G_EXC_ERROR THEN
893: x_return_status := FND_API.G_RET_STS_ERROR;
894:
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
897:
898: WHEN OTHERS THEN
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
892: WHEN FND_API.G_EXC_ERROR THEN
893: x_return_status := FND_API.G_RET_STS_ERROR;
894:
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
897:
898: WHEN OTHERS THEN
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
900:
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
897:
898: WHEN OTHERS THEN
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
900:
901: END Get_GL_Period;
902:
903: /* ----------------------------------------------------------------------- */
978: l_open_flag := NULL;
979: END LOOP;
980: --
981: IF l_error_flag THEN
982: x_return_status := FND_API.G_RET_STS_ERROR;
983: ELSE
984: x_return_status := FND_API.G_RET_STS_SUCCESS;
985: END IF;
986: --
980: --
981: IF l_error_flag THEN
982: x_return_status := FND_API.G_RET_STS_ERROR;
983: ELSE
984: x_return_status := FND_API.G_RET_STS_SUCCESS;
985: END IF;
986: --
987: EXCEPTION
988: WHEN FND_API.G_EXC_ERROR THEN
984: x_return_status := FND_API.G_RET_STS_SUCCESS;
985: END IF;
986: --
987: EXCEPTION
988: WHEN FND_API.G_EXC_ERROR THEN
989: x_return_status := FND_API.G_RET_STS_ERROR;
990:
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
985: END IF;
986: --
987: EXCEPTION
988: WHEN FND_API.G_EXC_ERROR THEN
989: x_return_status := FND_API.G_RET_STS_ERROR;
990:
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
993:
987: EXCEPTION
988: WHEN FND_API.G_EXC_ERROR THEN
989: x_return_status := FND_API.G_RET_STS_ERROR;
990:
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
993:
994: WHEN OTHERS THEN
995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
988: WHEN FND_API.G_EXC_ERROR THEN
989: x_return_status := FND_API.G_RET_STS_ERROR;
990:
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
993:
994: WHEN OTHERS THEN
995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
996:
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
993:
994: WHEN OTHERS THEN
995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
996:
997: END Validate_GL_Budget_Year;
998: /*FOR Bug No : 2712019 END*/
999: /* ----------------------------------------------------------------------- */
1034: );
1035:
1036: IF l_req_id = 0 THEN
1037: Add_Message('PSB', 'PSB_FAIL_TO_SUBMIT_REQUEST');
1038: RAISE FND_API.G_EXC_ERROR;
1039: END IF;
1040:
1041: x_return_status := FND_API.G_RET_STS_SUCCESS;
1042:
1037: Add_Message('PSB', 'PSB_FAIL_TO_SUBMIT_REQUEST');
1038: RAISE FND_API.G_EXC_ERROR;
1039: END IF;
1040:
1041: x_return_status := FND_API.G_RET_STS_SUCCESS;
1042:
1043: EXCEPTION
1044:
1045: WHEN FND_API.G_EXC_ERROR THEN
1041: x_return_status := FND_API.G_RET_STS_SUCCESS;
1042:
1043: EXCEPTION
1044:
1045: WHEN FND_API.G_EXC_ERROR THEN
1046: x_return_status := FND_API.G_RET_STS_ERROR;
1047:
1048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1042:
1043: EXCEPTION
1044:
1045: WHEN FND_API.G_EXC_ERROR THEN
1046: x_return_status := FND_API.G_RET_STS_ERROR;
1047:
1048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1050:
1044:
1045: WHEN FND_API.G_EXC_ERROR THEN
1046: x_return_status := FND_API.G_RET_STS_ERROR;
1047:
1048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1050:
1051: WHEN OTHERS THEN
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1045: WHEN FND_API.G_EXC_ERROR THEN
1046: x_return_status := FND_API.G_RET_STS_ERROR;
1047:
1048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1050:
1051: WHEN OTHERS THEN
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1053:
1048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1050:
1051: WHEN OTHERS THEN
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1053:
1054: END Submit_Concurrent_Request;
1055:
1056: /* ----------------------------------------------------------------------- */
1152: AND NVL(budget_source_type, 'BP') = g_budget_source_type;
1153:
1154: COMMIT;
1155:
1156: x_return_status := FND_API.G_RET_STS_SUCCESS;
1157:
1158: EXCEPTION
1159:
1160: WHEN FND_API.G_EXC_ERROR THEN
1156: x_return_status := FND_API.G_RET_STS_SUCCESS;
1157:
1158: EXCEPTION
1159:
1160: WHEN FND_API.G_EXC_ERROR THEN
1161:
1162: x_return_status := FND_API.G_RET_STS_ERROR;
1163:
1164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1158: EXCEPTION
1159:
1160: WHEN FND_API.G_EXC_ERROR THEN
1161:
1162: x_return_status := FND_API.G_RET_STS_ERROR;
1163:
1164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1165:
1166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1160: WHEN FND_API.G_EXC_ERROR THEN
1161:
1162: x_return_status := FND_API.G_RET_STS_ERROR;
1163:
1164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1165:
1166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1167:
1168:
1162: x_return_status := FND_API.G_RET_STS_ERROR;
1163:
1164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1165:
1166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1167:
1168:
1169: WHEN OTHERS THEN
1170:
1167:
1168:
1169: WHEN OTHERS THEN
1170:
1171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1172:
1173: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1174: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1175: END IF;
1234: FROM psb_gl_interfaces
1235: WHERE worksheet_id = p_worksheet_id
1236: AND NVL(budget_source_type,'BP') = g_budget_source_type;
1237:
1238: x_return_status := FND_API.G_RET_STS_SUCCESS;
1239:
1240: EXCEPTION
1241: WHEN FND_API.G_EXC_ERROR THEN
1242: ROLLBACK TO Insert_Lines_Into_GL_I;
1237:
1238: x_return_status := FND_API.G_RET_STS_SUCCESS;
1239:
1240: EXCEPTION
1241: WHEN FND_API.G_EXC_ERROR THEN
1242: ROLLBACK TO Insert_Lines_Into_GL_I;
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244:
1245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1239:
1240: EXCEPTION
1241: WHEN FND_API.G_EXC_ERROR THEN
1242: ROLLBACK TO Insert_Lines_Into_GL_I;
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244:
1245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1246: ROLLBACK TO Insert_Lines_Into_GL_I;
1247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1241: WHEN FND_API.G_EXC_ERROR THEN
1242: ROLLBACK TO Insert_Lines_Into_GL_I;
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244:
1245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1246: ROLLBACK TO Insert_Lines_Into_GL_I;
1247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1248:
1249: WHEN OTHERS THEN
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244:
1245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1246: ROLLBACK TO Insert_Lines_Into_GL_I;
1247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1248:
1249: WHEN OTHERS THEN
1250: ROLLBACK TO Insert_Lines_Into_GL_I;
1251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1248:
1249: WHEN OTHERS THEN
1250: ROLLBACK TO Insert_Lines_Into_GL_I;
1251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1252: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1253: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1254: END IF;
1255:
1359: p_period_name => l_period_name,
1360: p_packetid => l_packetid
1361: );
1362:
1363: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1364: RAISE FND_API.G_EXC_ERROR;
1365: END IF;
1366:
1367: IF NOT PSA_FUNDS_CHECKER_PKG.GLXFCK
1360: p_packetid => l_packetid
1361: );
1362:
1363: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1364: RAISE FND_API.G_EXC_ERROR;
1365: END IF;
1366:
1367: IF NOT PSA_FUNDS_CHECKER_PKG.GLXFCK
1368: (p_ledgerid => g_set_of_books_id,
1377: THEN
1378: -- Fundscheck Failed --
1379: Message_Token('GL_PERIOD', l_period_name);
1380: Add_Message('PSB', 'PSB_FAIL_FUNDS_CHECK');
1381: RAISE FND_API.G_EXC_ERROR;
1382: END IF;
1383: END LOOP;
1384: --
1385: -- Starting the concurrent program
1422: );
1423:
1424: IF l_req_id = 0 THEN
1425: Add_Message('PSB', 'PSB_FAIL_TO_SUBMIT_REQUEST');
1426: RAISE FND_API.G_EXC_ERROR;
1427: END IF;
1428:
1429: -- Bug 5148554 the following code handles funds checking
1430: -- in funds reservation mode for a revision
1449: p_period_name => l_period_name,
1450: p_packetid => l_packetid
1451: );
1452:
1453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1454: RAISE FND_API.G_EXC_ERROR;
1455: END IF;
1456:
1457: IF NOT PSA_FUNDS_CHECKER_PKG.GLXFCK
1450: p_packetid => l_packetid
1451: );
1452:
1453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1454: RAISE FND_API.G_EXC_ERROR;
1455: END IF;
1456:
1457: IF NOT PSA_FUNDS_CHECKER_PKG.GLXFCK
1458: (p_ledgerid => g_set_of_books_id,
1466: THEN
1467: -- Fundscheck Failed --
1468: Message_Token('GL_PERIOD', l_period_name);
1469: Add_Message('PSB', 'PSB_FAIL_FUNDS_CHECK');
1470: RAISE FND_API.G_EXC_ERROR;
1471: END IF;
1472: END LOOP;
1473:
1474: END IF;
1479: (x_return_status => l_return_status,
1480: p_worksheet_id => p_source_id
1481: );
1482:
1483: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1484: RAISE FND_API.G_EXC_ERROR;
1485: END IF;
1486:
1487: -- Now spawn the "GLLEZL" CP to create the journel to GL.
1480: p_worksheet_id => p_source_id
1481: );
1482:
1483: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1484: RAISE FND_API.G_EXC_ERROR;
1485: END IF;
1486:
1487: -- Now spawn the "GLLEZL" CP to create the journel to GL.
1488: SELECT gl_interface_control_s.NEXTVAL,
1524: );
1525:
1526: IF l_req_id = 0 THEN
1527: Add_Message('PSB', 'PSB_FAIL_TO_SUBMIT_REQUEST');
1528: RAISE FND_API.G_EXC_ERROR;
1529: END IF;
1530: END IF;
1531:
1532: x_return_status := FND_API.G_RET_STS_SUCCESS;
1528: RAISE FND_API.G_EXC_ERROR;
1529: END IF;
1530: END IF;
1531:
1532: x_return_status := FND_API.G_RET_STS_SUCCESS;
1533:
1534: EXCEPTION
1535: WHEN FND_API.G_EXC_ERROR THEN
1536: x_return_status := FND_API.G_RET_STS_ERROR;
1531:
1532: x_return_status := FND_API.G_RET_STS_SUCCESS;
1533:
1534: EXCEPTION
1535: WHEN FND_API.G_EXC_ERROR THEN
1536: x_return_status := FND_API.G_RET_STS_ERROR;
1537:
1538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1532: x_return_status := FND_API.G_RET_STS_SUCCESS;
1533:
1534: EXCEPTION
1535: WHEN FND_API.G_EXC_ERROR THEN
1536: x_return_status := FND_API.G_RET_STS_ERROR;
1537:
1538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1540:
1534: EXCEPTION
1535: WHEN FND_API.G_EXC_ERROR THEN
1536: x_return_status := FND_API.G_RET_STS_ERROR;
1537:
1538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1540:
1541: WHEN OTHERS THEN
1542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1535: WHEN FND_API.G_EXC_ERROR THEN
1536: x_return_status := FND_API.G_RET_STS_ERROR;
1537:
1538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1540:
1541: WHEN OTHERS THEN
1542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1543: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1540:
1541: WHEN OTHERS THEN
1542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1543: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1544: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1545: END IF;
1546:
1554: PROCEDURE Transfer_GLI_To_GL
1555: (p_return_status OUT NOCOPY VARCHAR2,
1556: p_msg_count OUT NOCOPY NUMBER,
1557: p_msg_data OUT NOCOPY VARCHAR2,
1558: p_init_msg_list VARCHAR2 := FND_API.G_FALSE,
1559: p_event_type VARCHAR2,
1560: p_source_id NUMBER,
1561: p_gl_transfer_mode VARCHAR2 := NULL,
1562: p_order_by1 VARCHAR2,
1594: -- Standard Start of API savepoint
1595: SAVEPOINT Transfer_GLI_To_GL;
1596:
1597: -- Initialize message list IF p_init_msg_list IS set to TRUE.
1598: IF FND_API.to_Boolean (p_init_msg_list) THEN
1599: FND_MSG_PUB.initialize;
1600: END IF;
1601:
1602: Initialize
1605: p_source_id => p_source_id,
1606: p_auto_offset => 'N'
1607: );
1608:
1609: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1610: RAISE FND_API.G_EXC_ERROR;
1611: END IF;
1612:
1613: -- Bug 3029168 added the clause p_event_type = 'SW'
1606: p_auto_offset => 'N'
1607: );
1608:
1609: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1610: RAISE FND_API.G_EXC_ERROR;
1611: END IF;
1612:
1613: -- Bug 3029168 added the clause p_event_type = 'SW'
1614: if p_event_type = 'BP' OR p_event_type = 'SW' then -- Bug 3029168
1636: p_msg_count => l_msg_count,
1637: p_worksheet_id => p_source_id
1638: );
1639:
1640: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1641: Message_Token('WORKSHEET', p_source_id);
1642: Add_Message('PSB', 'PSB_CANNOT_POST_COMMITMENT_WS');
1643: RAISE FND_API.G_EXC_ERROR;
1644: END IF;
1639:
1640: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1641: Message_Token('WORKSHEET', p_source_id);
1642: Add_Message('PSB', 'PSB_CANNOT_POST_COMMITMENT_WS');
1643: RAISE FND_API.G_EXC_ERROR;
1644: END IF;
1645: END;
1646: ELSE
1647: BEGIN
1653: p_called_from => 'T',
1654: p_event_type => p_event_type -- Bug 3029168
1655: );
1656:
1657: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1658: RAISE FND_API.G_EXC_ERROR;
1659: END IF;
1660: -- Bug#4310411 End
1661: END;
1654: p_event_type => p_event_type -- Bug 3029168
1655: );
1656:
1657: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1658: RAISE FND_API.G_EXC_ERROR;
1659: END IF;
1660: -- Bug#4310411 End
1661: END;
1662: END IF;
1670: p_worksheet_id => p_source_id,
1671: p_event_type => p_event_type -- Bug 3029168
1672: );
1673:
1674: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1675: RAISE FND_API.G_EXC_ERROR;
1676: END IF;
1677: END;
1678: -- Bug 3029168 added the clause p_event_type = 'SR'
1671: p_event_type => p_event_type -- Bug 3029168
1672: );
1673:
1674: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1675: RAISE FND_API.G_EXC_ERROR;
1676: END IF;
1677: END;
1678: -- Bug 3029168 added the clause p_event_type = 'SR'
1679: elsif p_event_type = 'BR' OR p_event_type = 'SR' then
1694: p_msg_count => l_msg_count,
1695: p_budget_revision_id => p_source_id
1696: );
1697:
1698: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1699: Message_Token('BUDGET_REVISION', p_source_id);
1700: Add_Message('PSB', 'PSB_CANNOT_POST_COMMITMENT_REV');
1701: RAISE FND_API.G_EXC_ERROR;
1702: END IF;
1697:
1698: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1699: Message_Token('BUDGET_REVISION', p_source_id);
1700: Add_Message('PSB', 'PSB_CANNOT_POST_COMMITMENT_REV');
1701: RAISE FND_API.G_EXC_ERROR;
1702: END IF;
1703: END;
1704: ELSE
1705: BEGIN
1712: p_event_type => p_event_type -- Bug 3029168
1713: );
1714: -- Bug#4310411 End
1715:
1716: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1717: RAISE FND_API.G_EXC_ERROR;
1718: END IF;
1719: END;
1720: END IF;
1713: );
1714: -- Bug#4310411 End
1715:
1716: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1717: RAISE FND_API.G_EXC_ERROR;
1718: END IF;
1719: END;
1720: END IF;
1721: END;
1721: END;
1722: END IF;
1723:
1724: -- Initialize API RETURN status to success
1725: p_return_status := FND_API.G_RET_STS_SUCCESS;
1726:
1727: EXCEPTION
1728:
1729: WHEN FND_API.G_EXC_ERROR THEN
1725: p_return_status := FND_API.G_RET_STS_SUCCESS;
1726:
1727: EXCEPTION
1728:
1729: WHEN FND_API.G_EXC_ERROR THEN
1730: ROLLBACK TO Transfer_GLI_To_GL;
1731: p_return_status := FND_API.G_RET_STS_ERROR;
1732:
1733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1727: EXCEPTION
1728:
1729: WHEN FND_API.G_EXC_ERROR THEN
1730: ROLLBACK TO Transfer_GLI_To_GL;
1731: p_return_status := FND_API.G_RET_STS_ERROR;
1732:
1733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1734: ROLLBACK TO Transfer_GLI_To_GL;
1735: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1729: WHEN FND_API.G_EXC_ERROR THEN
1730: ROLLBACK TO Transfer_GLI_To_GL;
1731: p_return_status := FND_API.G_RET_STS_ERROR;
1732:
1733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1734: ROLLBACK TO Transfer_GLI_To_GL;
1735: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1736:
1737: WHEN OTHERS THEN
1731: p_return_status := FND_API.G_RET_STS_ERROR;
1732:
1733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1734: ROLLBACK TO Transfer_GLI_To_GL;
1735: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1736:
1737: WHEN OTHERS THEN
1738: ROLLBACK TO Transfer_GLI_To_GL;
1739: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1735: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1736:
1737: WHEN OTHERS THEN
1738: ROLLBACK TO Transfer_GLI_To_GL;
1739: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1740:
1741: END Transfer_GLI_To_GL;
1742:
1743: /*---------------------------------------------------------------------*/
1748: -- due to the 64 K size limit
1749:
1750: PROCEDURE Get_Qualifier_Segnum
1751: (p_api_version IN NUMBER,
1752: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1753: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1754: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1755: p_return_status OUT NOCOPY VARCHAR2,
1756: p_msg_count OUT NOCOPY NUMBER,
1749:
1750: PROCEDURE Get_Qualifier_Segnum
1751: (p_api_version IN NUMBER,
1752: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1753: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1754: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1755: p_return_status OUT NOCOPY VARCHAR2,
1756: p_msg_count OUT NOCOPY NUMBER,
1757: p_msg_data OUT NOCOPY VARCHAR2,
1750: PROCEDURE Get_Qualifier_Segnum
1751: (p_api_version IN NUMBER,
1752: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1753: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1754: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1755: p_return_status OUT NOCOPY VARCHAR2,
1756: p_msg_count OUT NOCOPY NUMBER,
1757: p_msg_data OUT NOCOPY VARCHAR2,
1758: --
1770: -- Standard Start of API savepoint
1771: SAVEPOINT Get_Qualifier_Segnum;
1772:
1773: -- Standard call to check FOR call compatibility.
1774: IF NOT FND_API.Compatible_API_Call
1775: (l_api_version,
1776: p_api_version,
1777: l_api_name,
1778: G_PKG_NAME
1777: l_api_name,
1778: G_PKG_NAME
1779: )
1780: THEN
1781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1782: END IF;
1783:
1784: -- Initialize message list IF p_init_msg_list IS set to TRUE.
1785: IF FND_API.to_Boolean (p_init_msg_list) THEN
1781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1782: END IF;
1783:
1784: -- Initialize message list IF p_init_msg_list IS set to TRUE.
1785: IF FND_API.to_Boolean (p_init_msg_list) THEN
1786: FND_MSG_PUB.initialize;
1787: END IF;
1788:
1789: IF NOT FND_FLEX_APIS.Get_Qualifier_Segnum
1794: segment_number => l_seg_num
1795: )
1796: THEN
1797: Add_Message('PSB', 'PSB_GL_CANNOT_FIND_BAL_SEG');
1798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1799: END IF;
1800:
1801: p_segment_number := l_seg_num ;
1802:
1800:
1801: p_segment_number := l_seg_num ;
1802:
1803: -- Initialize API RETURN status to success
1804: p_return_status := FND_API.G_RET_STS_SUCCESS;
1805:
1806: EXCEPTION
1807:
1808: WHEN FND_API.G_EXC_ERROR THEN
1804: p_return_status := FND_API.G_RET_STS_SUCCESS;
1805:
1806: EXCEPTION
1807:
1808: WHEN FND_API.G_EXC_ERROR THEN
1809: ROLLBACK TO Get_Qualifier_Segnum ;
1810: p_return_status := FND_API.G_RET_STS_ERROR;
1811: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1812: p_data => p_msg_data);
1806: EXCEPTION
1807:
1808: WHEN FND_API.G_EXC_ERROR THEN
1809: ROLLBACK TO Get_Qualifier_Segnum ;
1810: p_return_status := FND_API.G_RET_STS_ERROR;
1811: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1812: p_data => p_msg_data);
1813:
1814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1810: p_return_status := FND_API.G_RET_STS_ERROR;
1811: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1812: p_data => p_msg_data);
1813:
1814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1815: ROLLBACK TO Get_Qualifier_Segnum ;
1816: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1817: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1818: p_data => p_msg_data);
1812: p_data => p_msg_data);
1813:
1814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1815: ROLLBACK TO Get_Qualifier_Segnum ;
1816: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1817: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1818: p_data => p_msg_data);
1819:
1820: WHEN OTHERS THEN
1818: p_data => p_msg_data);
1819:
1820: WHEN OTHERS THEN
1821: ROLLBACK TO Get_Qualifier_Segnum ;
1822: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1823: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1824: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1825: END IF;
1826: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1861: END LOOP;
1862: END IF;
1863:
1864: -- Initialize API RETURN status to success
1865: x_return_status := FND_API.G_RET_STS_SUCCESS;
1866:
1867: EXCEPTION
1868: WHEN FND_API.G_EXC_ERROR THEN
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1864: -- Initialize API RETURN status to success
1865: x_return_status := FND_API.G_RET_STS_SUCCESS;
1866:
1867: EXCEPTION
1868: WHEN FND_API.G_EXC_ERROR THEN
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1870: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1871: p_data => x_msg_data);
1872:
1865: x_return_status := FND_API.G_RET_STS_SUCCESS;
1866:
1867: EXCEPTION
1868: WHEN FND_API.G_EXC_ERROR THEN
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1870: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1871: p_data => x_msg_data);
1872:
1873: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1870: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1871: p_data => x_msg_data);
1872:
1873: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1875: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
1876: p_data => x_msg_data);
1877:
1870: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1871: p_data => x_msg_data);
1872:
1873: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1875: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
1876: p_data => x_msg_data);
1877:
1878: WHEN OTHERS THEN
1875: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
1876: p_data => x_msg_data);
1877:
1878: WHEN OTHERS THEN
1879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1880: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1881: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1882: END IF;
1883: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2182: --++ flex mapping
2183: l_code_combination_id
2184: := PSB_Flex_Mapping_PVT.Get_Mapped_CCID
2185: (p_api_version => '1.0',
2186: p_init_msg_list => FND_API.G_FALSE,
2187: p_commit => FND_API.G_FALSE,
2188: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2189: p_ccid => c_detail_rec.code_combination_id,
2190: p_budget_year_type_id => l_budget_year_type_id,
2183: l_code_combination_id
2184: := PSB_Flex_Mapping_PVT.Get_Mapped_CCID
2185: (p_api_version => '1.0',
2186: p_init_msg_list => FND_API.G_FALSE,
2187: p_commit => FND_API.G_FALSE,
2188: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2189: p_ccid => c_detail_rec.code_combination_id,
2190: p_budget_year_type_id => l_budget_year_type_id,
2191: p_flexfield_mapping_set_id => l_flex_mapping_set_id ,
2184: := PSB_Flex_Mapping_PVT.Get_Mapped_CCID
2185: (p_api_version => '1.0',
2186: p_init_msg_list => FND_API.G_FALSE,
2187: p_commit => FND_API.G_FALSE,
2188: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2189: p_ccid => c_detail_rec.code_combination_id,
2190: p_budget_year_type_id => l_budget_year_type_id,
2191: p_flexfield_mapping_set_id => l_flex_mapping_set_id ,
2192: p_mapping_mode => 'GL_POSTING'
2218: ELSE
2219: l_budget_version_flag := 'A';
2220: END IF;
2221:
2222: IF i = 2 AND NOT FND_API.to_Boolean(g_post_to_all) THEN
2223: EXIT;
2224: -- ++ skip posting since there's no 'ALL' posting defined
2225: END IF;
2226:
2248: );
2249:
2250: Message_Token('CCID', l_concat_segments);
2251: Add_Message('PSB', 'PSB_CCID_NO_FUND_INFO');
2252: RAISE FND_API.G_EXC_ERROR;
2253: CLOSE c_bgversion;
2254: END IF;
2255:
2256: --++
2337: l_code_combination_id
2338: := PSB_Flex_Mapping_PVT.Get_Mapped_CCID
2339: (
2340: p_api_version => '1.0',
2341: p_init_msg_list => FND_API.G_FALSE,
2342: p_commit => FND_API.G_FALSE,
2343: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2344: p_ccid => c_summary_rec.code_combination_id,
2345: p_budget_year_type_id =>l_budget_year_type_id,
2338: := PSB_Flex_Mapping_PVT.Get_Mapped_CCID
2339: (
2340: p_api_version => '1.0',
2341: p_init_msg_list => FND_API.G_FALSE,
2342: p_commit => FND_API.G_FALSE,
2343: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2344: p_ccid => c_summary_rec.code_combination_id,
2345: p_budget_year_type_id =>l_budget_year_type_id,
2346: p_flexfield_mapping_set_id => l_flex_mapping_set_id ,
2339: (
2340: p_api_version => '1.0',
2341: p_init_msg_list => FND_API.G_FALSE,
2342: p_commit => FND_API.G_FALSE,
2343: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2344: p_ccid => c_summary_rec.code_combination_id,
2345: p_budget_year_type_id =>l_budget_year_type_id,
2346: p_flexfield_mapping_set_id => l_flex_mapping_set_id ,
2347: p_mapping_mode => 'GL_POSTING'
2364: ELSE
2365: l_budget_version_flag := 'A';
2366: END IF;
2367:
2368: IF i = 2 AND NOT FND_API.to_Boolean(g_post_to_all) THEN
2369: EXIT;
2370: -- ++ skip posting since there's no 'ALL' posting defined
2371: END IF;
2372:
2393: combination_id => c_summary_rec.code_combination_id
2394: );
2395: Message_Token('CCID', l_concat_segments);
2396: Add_Message('PSB', 'PSB_CCID_NO_FUND_INFO');
2397: RAISE FND_API.G_EXC_ERROR;
2398: END IF;
2399:
2400: --++
2401: --++ THEN INTO psb_gl_interfaces
2471:
2472: END;
2473: END IF;
2474:
2475: x_return_status := FND_API.G_RET_STS_SUCCESS;
2476:
2477: EXCEPTION
2478: WHEN FND_API.G_EXC_ERROR THEN
2479: ROLLBACK TO Insert_Lines_Into_PSB_I_Fund;
2474:
2475: x_return_status := FND_API.G_RET_STS_SUCCESS;
2476:
2477: EXCEPTION
2478: WHEN FND_API.G_EXC_ERROR THEN
2479: ROLLBACK TO Insert_Lines_Into_PSB_I_Fund;
2480: x_return_status := FND_API.G_RET_STS_ERROR;
2481:
2482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2476:
2477: EXCEPTION
2478: WHEN FND_API.G_EXC_ERROR THEN
2479: ROLLBACK TO Insert_Lines_Into_PSB_I_Fund;
2480: x_return_status := FND_API.G_RET_STS_ERROR;
2481:
2482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2483: ROLLBACK TO Insert_Lines_Into_PSB_I_Fund;
2484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2478: WHEN FND_API.G_EXC_ERROR THEN
2479: ROLLBACK TO Insert_Lines_Into_PSB_I_Fund;
2480: x_return_status := FND_API.G_RET_STS_ERROR;
2481:
2482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2483: ROLLBACK TO Insert_Lines_Into_PSB_I_Fund;
2484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2485:
2486: WHEN OTHERS THEN
2480: x_return_status := FND_API.G_RET_STS_ERROR;
2481:
2482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2483: ROLLBACK TO Insert_Lines_Into_PSB_I_Fund;
2484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2485:
2486: WHEN OTHERS THEN
2487: ROLLBACK TO Insert_Lines_Into_PSB_I_Fund;
2488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2485:
2486: WHEN OTHERS THEN
2487: ROLLBACK TO Insert_Lines_Into_PSB_I_Fund;
2488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2489: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2490: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2491: END IF;
2492: END Insert_Lines_Into_PSB_I_Fund;
2524: l_stage_seq NUMBER;
2525: l_gl_period_start DATE;
2526:
2527: l_event_number NUMBER;
2528: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2529: l_msg_count NUMBER;
2530: l_msg_data VARCHAR2(2000);
2531:
2532: CURSOR bgt_stage
2562: p_budget_year_id => p_budget_year_id,
2563: p_detailed => p_detailed,
2564: p_event_type => p_event_type); -- Bug 3029168
2565:
2566: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2567: RAISE FND_API.G_EXC_ERROR;
2568: END IF;
2569:
2570: IF p_auto_offset = 'Y' THEN
2563: p_detailed => p_detailed,
2564: p_event_type => p_event_type); -- Bug 3029168
2565:
2566: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2567: RAISE FND_API.G_EXC_ERROR;
2568: END IF;
2569:
2570: IF p_auto_offset = 'Y' THEN
2571: Balance_Journal
2574: p_period_name => p_period_name,
2575: p_gl_budget_set_id => p_gl_budget_set_id
2576: );
2577:
2578: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2579: RAISE FND_API.G_EXC_ERROR;
2580: END IF;
2581: END IF;
2582:
2575: p_gl_budget_set_id => p_gl_budget_set_id
2576: );
2577:
2578: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2579: RAISE FND_API.G_EXC_ERROR;
2580: END IF;
2581: END IF;
2582:
2583: -- Initialize API RETURN status to success
2580: END IF;
2581: END IF;
2582:
2583: -- Initialize API RETURN status to success
2584: x_return_status := FND_API.G_RET_STS_SUCCESS;
2585:
2586: EXCEPTION
2587: WHEN FND_API.G_EXC_ERROR THEN
2588: x_return_status := FND_API.G_RET_STS_ERROR;
2583: -- Initialize API RETURN status to success
2584: x_return_status := FND_API.G_RET_STS_SUCCESS;
2585:
2586: EXCEPTION
2587: WHEN FND_API.G_EXC_ERROR THEN
2588: x_return_status := FND_API.G_RET_STS_ERROR;
2589:
2590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2584: x_return_status := FND_API.G_RET_STS_SUCCESS;
2585:
2586: EXCEPTION
2587: WHEN FND_API.G_EXC_ERROR THEN
2588: x_return_status := FND_API.G_RET_STS_ERROR;
2589:
2590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2592:
2586: EXCEPTION
2587: WHEN FND_API.G_EXC_ERROR THEN
2588: x_return_status := FND_API.G_RET_STS_ERROR;
2589:
2590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2592:
2593: WHEN OTHERS THEN
2594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2587: WHEN FND_API.G_EXC_ERROR THEN
2588: x_return_status := FND_API.G_RET_STS_ERROR;
2589:
2590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2592:
2593: WHEN OTHERS THEN
2594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2595: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2592:
2593: WHEN OTHERS THEN
2594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2595: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2596: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2597: END IF;
2598:
2616: DELETE FROM psb_gl_interfaces
2617: WHERE worksheet_id = p_worksheet_id
2618: AND NVL(budget_source_type, 'P') = p_budget_source_type;
2619:
2620: x_return_status := FND_API.G_RET_STS_SUCCESS;
2621:
2622: EXCEPTION
2623:
2624: WHEN FND_API.G_EXC_ERROR THEN
2620: x_return_status := FND_API.G_RET_STS_SUCCESS;
2621:
2622: EXCEPTION
2623:
2624: WHEN FND_API.G_EXC_ERROR THEN
2625: ROLLBACK TO Delete_Old_Run;
2626: x_return_status := FND_API.G_RET_STS_ERROR;
2627:
2628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2622: EXCEPTION
2623:
2624: WHEN FND_API.G_EXC_ERROR THEN
2625: ROLLBACK TO Delete_Old_Run;
2626: x_return_status := FND_API.G_RET_STS_ERROR;
2627:
2628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2629: ROLLBACK TO Delete_Old_Run;
2630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2624: WHEN FND_API.G_EXC_ERROR THEN
2625: ROLLBACK TO Delete_Old_Run;
2626: x_return_status := FND_API.G_RET_STS_ERROR;
2627:
2628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2629: ROLLBACK TO Delete_Old_Run;
2630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2631:
2632: WHEN OTHERS THEN
2626: x_return_status := FND_API.G_RET_STS_ERROR;
2627:
2628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2629: ROLLBACK TO Delete_Old_Run;
2630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2631:
2632: WHEN OTHERS THEN
2633: ROLLBACK TO Delete_Old_Run;
2634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2631:
2632: WHEN OTHERS THEN
2633: ROLLBACK TO Delete_Old_Run;
2634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2635: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2636: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2637: END IF;
2638:
2766: p_source_id => p_worksheet_id,
2767: p_auto_offset => p_auto_offset
2768: );
2769:
2770: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2771: RAISE FND_API.G_EXC_ERROR;
2772: END IF;
2773:
2774: -- Dele the old run for the same worksheet
2767: p_auto_offset => p_auto_offset
2768: );
2769:
2770: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2771: RAISE FND_API.G_EXC_ERROR;
2772: END IF;
2773:
2774: -- Dele the old run for the same worksheet
2775: -- and budget source.
2778: p_worksheet_id => p_worksheet_id,
2779: p_budget_source_type => g_budget_source_type
2780: );
2781:
2782: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2783: RAISE FND_API.G_EXC_ERROR;
2784: END IF;
2785:
2786: --
2779: p_budget_source_type => g_budget_source_type
2780: );
2781:
2782: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2783: RAISE FND_API.G_EXC_ERROR;
2784: END IF;
2785:
2786: --
2787: FOR c_year_rec IN c_year LOOP
2797: END LOOP;
2798:
2799: -- initialize global which determines IF there's an 'ALL' posting type
2800: FOR c_post_rec IN c_post_to_all LOOP
2801: g_post_to_all := FND_API.G_TRUE;
2802: END LOOP;
2803:
2804: IF g_budget_by_position = 'Y' AND p_currency_code = 'C' THEN
2805: BEGIN
2808: p_event_type => l_event_type,
2809: p_source_id => p_worksheet_id
2810: );
2811:
2812: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2813: RAISE FND_API.G_EXC_ERROR;
2814: END IF;
2815: END;
2816: END IF;
2809: p_source_id => p_worksheet_id
2810: );
2811:
2812: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2813: RAISE FND_API.G_EXC_ERROR;
2814: END IF;
2815: END;
2816: END IF;
2817:
2829: p_gl_budget_set_id => l_gl_budget_set_id,
2830: p_validation_status => l_acct_overlap_status
2831: );
2832:
2833: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2834: RAISE FND_API.G_EXC_ERROR;
2835: END IF;
2836:
2837: IF l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS THEN
2830: p_validation_status => l_acct_overlap_status
2831: );
2832:
2833: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2834: RAISE FND_API.G_EXC_ERROR;
2835: END IF;
2836:
2837: IF l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS THEN
2838: -- dummy line to force this error to print to outfile IF no
2833: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2834: RAISE FND_API.G_EXC_ERROR;
2835: END IF;
2836:
2837: IF l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS THEN
2838: -- dummy line to force this error to print to outfile IF no
2839: -- error IN validate funded proc
2840: Add_Message('PSB', 'PSB_VAL_LINE');
2841: END IF;
2851: p_year_start_date => l_year_start_date,
2852: p_year_end_date => l_year_end_date
2853: );
2854:
2855: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2856: RAISE FND_API.G_EXC_ERROR;
2857: END IF;
2858: /*FOR Bug No : 2712019 END*/
2859:
2852: p_year_end_date => l_year_end_date
2853: );
2854:
2855: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2856: RAISE FND_API.G_EXC_ERROR;
2857: END IF;
2858: /*FOR Bug No : 2712019 END*/
2859:
2860: -- continue validation regardless value of validation status
2872: x_period_number => l_gl_period_num,
2873: x_quarter_number => l_gl_quarter_num
2874: );
2875:
2876: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2877: RAISE FND_API.G_EXC_ERROR;
2878: END IF;
2879:
2880: Validate_Funding_Account
2873: x_quarter_number => l_gl_quarter_num
2874: );
2875:
2876: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2877: RAISE FND_API.G_EXC_ERROR;
2878: END IF;
2879:
2880: Validate_Funding_Account
2881: (x_return_status => l_return_status,
2887: p_start_date => l_accounting_date,
2888: x_validation_status => l_validation_status
2889: );
2890:
2891: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2892: RAISE FND_API.G_EXC_ERROR;
2893: END IF;
2894:
2895: l_funding_status := l_validation_status;
2888: x_validation_status => l_validation_status
2889: );
2890:
2891: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2892: RAISE FND_API.G_EXC_ERROR;
2893: END IF;
2894:
2895: l_funding_status := l_validation_status;
2896: END;
2895: l_funding_status := l_validation_status;
2896: END;
2897: ELSE
2898: BEGIN
2899: l_funding_status := FND_API.G_RET_STS_SUCCESS;
2900:
2901: FOR c_period_rec IN c_period LOOP
2902: Get_GL_Period
2903: (x_return_status => l_return_status,
2911: x_period_number => l_gl_period_num,
2912: x_quarter_number => l_gl_quarter_num
2913: );
2914:
2915: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2916: RAISE FND_API.G_EXC_ERROR;
2917: END IF;
2918:
2919: Validate_Funding_Account
2912: x_quarter_number => l_gl_quarter_num
2913: );
2914:
2915: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2916: RAISE FND_API.G_EXC_ERROR;
2917: END IF;
2918:
2919: Validate_Funding_Account
2920: (x_return_status => l_return_status,
2926: p_start_date => l_accounting_date,
2927: x_validation_status => l_validation_status
2928: );
2929:
2930: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2931: RAISE FND_API.G_EXC_ERROR;
2932: END IF;
2933:
2934: IF ((l_funding_status = FND_API.G_RET_STS_SUCCESS)
2927: x_validation_status => l_validation_status
2928: );
2929:
2930: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2931: RAISE FND_API.G_EXC_ERROR;
2932: END IF;
2933:
2934: IF ((l_funding_status = FND_API.G_RET_STS_SUCCESS)
2935: AND
2930: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2931: RAISE FND_API.G_EXC_ERROR;
2932: END IF;
2933:
2934: IF ((l_funding_status = FND_API.G_RET_STS_SUCCESS)
2935: AND
2936: (l_validation_status <> FND_API.G_RET_STS_SUCCESS)
2937: )
2938: THEN
2932: END IF;
2933:
2934: IF ((l_funding_status = FND_API.G_RET_STS_SUCCESS)
2935: AND
2936: (l_validation_status <> FND_API.G_RET_STS_SUCCESS)
2937: )
2938: THEN
2939: l_funding_status := l_validation_status;
2940: END IF;
2941: END LOOP;
2942: END;
2943: END IF;
2944:
2945: IF (l_funding_status <> FND_API.G_RET_STS_SUCCESS
2946: OR
2947: l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS
2948: )
2949: THEN
2943: END IF;
2944:
2945: IF (l_funding_status <> FND_API.G_RET_STS_SUCCESS
2946: OR
2947: l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS
2948: )
2949: THEN
2950: RAISE FND_API.G_EXC_ERROR;
2951: ELSE
2946: OR
2947: l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS
2948: )
2949: THEN
2950: RAISE FND_API.G_EXC_ERROR;
2951: ELSE
2952: BEGIN
2953:
2954: IF p_year_journal = 'Y' THEN
2965: x_period_number => l_gl_period_num,
2966: x_quarter_number => l_gl_quarter_num
2967: );
2968:
2969: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2970: RAISE FND_API.G_EXC_ERROR;
2971: END IF;
2972:
2973: -- Include your changes here.
2966: x_quarter_number => l_gl_quarter_num
2967: );
2968:
2969: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2970: RAISE FND_API.G_EXC_ERROR;
2971: END IF;
2972:
2973: -- Include your changes here.
2974: l_column := 0;
2992: p_gl_quarter_num => l_gl_quarter_num,
2993: p_event_type => l_event_type
2994: );
2995:
2996: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2997: RAISE FND_API.G_EXC_ERROR;
2998: END IF;
2999: -- Include your changes here done.
3000: END;
2993: p_event_type => l_event_type
2994: );
2995:
2996: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2997: RAISE FND_API.G_EXC_ERROR;
2998: END IF;
2999: -- Include your changes here done.
3000: END;
3001: ELSE
3016: x_period_number => l_gl_period_num,
3017: x_quarter_number => l_gl_quarter_num
3018: );
3019:
3020: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3021: RAISE FND_API.G_EXC_ERROR;
3022: END IF;
3023:
3024: -- Include your changes here.
3017: x_quarter_number => l_gl_quarter_num
3018: );
3019:
3020: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3021: RAISE FND_API.G_EXC_ERROR;
3022: END IF;
3023:
3024: -- Include your changes here.
3025: Create_JE_Lines_Fund
3041: p_gl_quarter_num => l_gl_quarter_num,
3042: p_event_type => l_event_type
3043: );
3044:
3045: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3046: RAISE FND_API.G_EXC_ERROR;
3047: END IF;
3048: -- Include your changes here done.
3049: END LOOP; /*END of LOOP FOR getting gl periods*/
3042: p_event_type => l_event_type
3043: );
3044:
3045: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3046: RAISE FND_API.G_EXC_ERROR;
3047: END IF;
3048: -- Include your changes here done.
3049: END LOOP; /*END of LOOP FOR getting gl periods*/
3050: END;
3064: p_budget_year_id => p_budget_year_id,
3065: p_currency_code => p_currency_code -- Bug 3029168
3066: );
3067:
3068: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3069: RAISE FND_API.G_EXC_ERROR;
3070: END IF;
3071: END IF;
3072: END;
3065: p_currency_code => p_currency_code -- Bug 3029168
3066: );
3067:
3068: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3069: RAISE FND_API.G_EXC_ERROR;
3070: END IF;
3071: END IF;
3072: END;
3073: END IF; -- no validation error found
3093: p_msg_count => l_msg_count,
3094: p_worksheet_id => p_worksheet_id
3095: );
3096:
3097: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3098: Message_Token('WORKSHEET', p_worksheet_id);
3099: Add_Message('PSB', 'PSB_CANNOT_POST_COMMITMENT_WS');
3100: RAISE FND_API.G_EXC_ERROR;
3101: END IF;
3096:
3097: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3098: Message_Token('WORKSHEET', p_worksheet_id);
3099: Add_Message('PSB', 'PSB_CANNOT_POST_COMMITMENT_WS');
3100: RAISE FND_API.G_EXC_ERROR;
3101: END IF;
3102: END;
3103: ELSE
3104: BEGIN
3110: p_event_type => l_event_type
3111: );
3112: -- Include your changes here. END.
3113:
3114: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3115: RAISE FND_API.G_EXC_ERROR;
3116: END IF;
3117: END;
3118: END IF;
3111: );
3112: -- Include your changes here. END.
3113:
3114: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3115: RAISE FND_API.G_EXC_ERROR;
3116: END IF;
3117: END;
3118: END IF;
3119:
3125: p_worksheet_id => p_worksheet_id,
3126: p_event_type => l_event_type -- Bug 3029168
3127: );
3128:
3129: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3130: RAISE FND_API.G_EXC_ERROR;
3131: END IF;
3132: END;
3133: END IF;
3126: p_event_type => l_event_type -- Bug 3029168
3127: );
3128:
3129: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3130: RAISE FND_API.G_EXC_ERROR;
3131: END IF;
3132: END;
3133: END IF;
3134:
3132: END;
3133: END IF;
3134:
3135: -- Initialize API RETURN status to success
3136: x_return_status := FND_API.G_RET_STS_SUCCESS;
3137:
3138: EXCEPTION
3139:
3140: WHEN FND_API.G_EXC_ERROR THEN
3136: x_return_status := FND_API.G_RET_STS_SUCCESS;
3137:
3138: EXCEPTION
3139:
3140: WHEN FND_API.G_EXC_ERROR THEN
3141: x_return_status := FND_API.G_RET_STS_ERROR;
3142:
3143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3137:
3138: EXCEPTION
3139:
3140: WHEN FND_API.G_EXC_ERROR THEN
3141: x_return_status := FND_API.G_RET_STS_ERROR;
3142:
3143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3145:
3139:
3140: WHEN FND_API.G_EXC_ERROR THEN
3141: x_return_status := FND_API.G_RET_STS_ERROR;
3142:
3143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3145:
3146: WHEN OTHERS THEN
3147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3140: WHEN FND_API.G_EXC_ERROR THEN
3141: x_return_status := FND_API.G_RET_STS_ERROR;
3142:
3143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3145:
3146: WHEN OTHERS THEN
3147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3148:
3143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3145:
3146: WHEN OTHERS THEN
3147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3148:
3149: END Create_Budget_Journal_Fund;
3150:
3151: /* ----------------------------------------------------------------------- */
3241: );
3242: Message_Token('CCID', l_concat_segments);
3243: Message_Token('BUDGETSET', l_gl_budget_set_name);
3244: Add_Message('PSB', 'PSB_CCID_NO_FUND_INFO');
3245: x_validation_status := FND_API.G_RET_STS_ERROR;
3246: END LOOP;
3247: CLOSE fb_cv;
3248: END;
3249: ELSIF p_event_type = 'BR' OR p_event_type = 'SR' THEN -- Bug 3029168
3282:
3283: Message_Token('CCID', l_concat_segments);
3284: Message_Token('BUDGETSET', l_gl_budget_set_name);
3285: Add_Message('PSB', 'PSB_CCID_NO_FUND_INFO');
3286: x_validation_status := FND_API.G_RET_STS_ERROR;
3287: END LOOP;
3288: CLOSE fb_cv;
3289: END;
3290: END IF;
3290: END IF;
3291:
3292: EXCEPTION
3293:
3294: WHEN FND_API.G_EXC_ERROR THEN
3295: x_return_status := FND_API.G_RET_STS_ERROR;
3296:
3297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3291:
3292: EXCEPTION
3293:
3294: WHEN FND_API.G_EXC_ERROR THEN
3295: x_return_status := FND_API.G_RET_STS_ERROR;
3296:
3297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3299:
3293:
3294: WHEN FND_API.G_EXC_ERROR THEN
3295: x_return_status := FND_API.G_RET_STS_ERROR;
3296:
3297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3299:
3300: WHEN OTHERS THEN
3301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3294: WHEN FND_API.G_EXC_ERROR THEN
3295: x_return_status := FND_API.G_RET_STS_ERROR;
3296:
3297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3299:
3300: WHEN OTHERS THEN
3301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3302:
3297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3299:
3300: WHEN OTHERS THEN
3301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3302:
3303: END Validate_Funding_Account;
3304:
3305: /* ----------------------------------------------------------------------- */
3493:
3494: l_validation_start_date
3495: := GREATEST(c_budrev_accts_rec.start_date, c_budrev_accts_rec.budget_set_start_date);
3496:
3497: x_validation_status := FND_API.G_RET_STS_SUCCESS;
3498:
3499: Validate_Funding_Account
3500: (x_return_status => l_return_status,
3501: p_event_type => p_event_type, -- Bug 3029168
3504: p_start_date => l_validation_start_date,
3505: x_validation_status => l_validation_status
3506: );
3507:
3508: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3509: RAISE FND_API.G_EXC_ERROR;
3510: END IF;
3511:
3512: IF l_validation_status <> FND_API.G_RET_STS_SUCCESS THEN
3505: x_validation_status => l_validation_status
3506: );
3507:
3508: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3509: RAISE FND_API.G_EXC_ERROR;
3510: END IF;
3511:
3512: IF l_validation_status <> FND_API.G_RET_STS_SUCCESS THEN
3513: x_validation_status := FND_API.G_RET_STS_ERROR;
3508: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3509: RAISE FND_API.G_EXC_ERROR;
3510: END IF;
3511:
3512: IF l_validation_status <> FND_API.G_RET_STS_SUCCESS THEN
3513: x_validation_status := FND_API.G_RET_STS_ERROR;
3514: END IF;
3515: END IF;
3516:
3509: RAISE FND_API.G_EXC_ERROR;
3510: END IF;
3511:
3512: IF l_validation_status <> FND_API.G_RET_STS_SUCCESS THEN
3513: x_validation_status := FND_API.G_RET_STS_ERROR;
3514: END IF;
3515: END IF;
3516:
3517: --
3621: p_period_name => l_rec_period_name(l_indx),
3622: p_gl_budget_set_id => NULL
3623: );
3624:
3625: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3626: RAISE FND_API.G_EXC_ERROR;
3627: END IF;
3628: END LOOP;
3629: END;
3622: p_gl_budget_set_id => NULL
3623: );
3624:
3625: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3626: RAISE FND_API.G_EXC_ERROR;
3627: END IF;
3628: END LOOP;
3629: END;
3630: END IF;--END of check FOR auto offset value
3628: END LOOP;
3629: END;
3630: END IF;--END of check FOR auto offset value
3631:
3632: x_return_status := FND_API.G_RET_STS_SUCCESS;
3633: --
3634:
3635: EXCEPTION
3636: WHEN FND_API.G_EXC_ERROR THEN
3632: x_return_status := FND_API.G_RET_STS_SUCCESS;
3633: --
3634:
3635: EXCEPTION
3636: WHEN FND_API.G_EXC_ERROR THEN
3637: ROLLBACK TO Insert_BR_Lines_In_PSB_I_Fund;
3638: x_return_status := FND_API.G_RET_STS_ERROR;
3639:
3640: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3634:
3635: EXCEPTION
3636: WHEN FND_API.G_EXC_ERROR THEN
3637: ROLLBACK TO Insert_BR_Lines_In_PSB_I_Fund;
3638: x_return_status := FND_API.G_RET_STS_ERROR;
3639:
3640: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3641: ROLLBACK TO Insert_BR_Lines_In_PSB_I_Fund;
3642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3636: WHEN FND_API.G_EXC_ERROR THEN
3637: ROLLBACK TO Insert_BR_Lines_In_PSB_I_Fund;
3638: x_return_status := FND_API.G_RET_STS_ERROR;
3639:
3640: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3641: ROLLBACK TO Insert_BR_Lines_In_PSB_I_Fund;
3642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3643:
3644: WHEN OTHERS THEN
3638: x_return_status := FND_API.G_RET_STS_ERROR;
3639:
3640: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3641: ROLLBACK TO Insert_BR_Lines_In_PSB_I_Fund;
3642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3643:
3644: WHEN OTHERS THEN
3645: ROLLBACK TO Insert_BR_Lines_In_PSB_I_Fund;
3646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3643:
3644: WHEN OTHERS THEN
3645: ROLLBACK TO Insert_BR_Lines_In_PSB_I_Fund;
3646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3647: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3648: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3649: END IF;
3650:
3655: -- program commits within the process AND this erases the savepoints established
3656:
3657: PROCEDURE Create_Revision_Journal
3658: (p_api_version IN NUMBER,
3659: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3660: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3661: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3662: p_return_status OUT NOCOPY VARCHAR2,
3663: p_msg_count OUT NOCOPY NUMBER,
3656:
3657: PROCEDURE Create_Revision_Journal
3658: (p_api_version IN NUMBER,
3659: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3660: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3661: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3662: p_return_status OUT NOCOPY VARCHAR2,
3663: p_msg_count OUT NOCOPY NUMBER,
3664: p_msg_data OUT NOCOPY VARCHAR2,
3657: PROCEDURE Create_Revision_Journal
3658: (p_api_version IN NUMBER,
3659: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3660: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3661: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3662: p_return_status OUT NOCOPY VARCHAR2,
3663: p_msg_count OUT NOCOPY NUMBER,
3664: p_msg_data OUT NOCOPY VARCHAR2,
3665: p_budget_revision_id IN NUMBER,
3728: /*FOR Bug No : 2920702 END*/
3729: BEGIN
3730:
3731: -- Standard call to check FOR call compatibility.
3732: IF NOT FND_API.Compatible_API_Call
3733: (l_api_version,
3734: p_api_version,
3735: l_api_name,
3736: G_PKG_NAME
3735: l_api_name,
3736: G_PKG_NAME
3737: )
3738: THEN
3739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3740: END IF;
3741:
3742: -- Initialize message list IF p_init_msg_list IS set to TRUE.
3743: IF FND_API.to_Boolean (p_init_msg_list) THEN
3739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3740: END IF;
3741:
3742: -- Initialize message list IF p_init_msg_list IS set to TRUE.
3743: IF FND_API.to_Boolean (p_init_msg_list) THEN
3744: FND_MSG_PUB.initialize;
3745: END IF;
3746:
3747: p_error_code := 'NO_ERR'; -- bug # 4341619
3787: p_source_id => p_budget_revision_id,
3788: p_auto_offset => l_auto_offset
3789: );
3790:
3791: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3792: RAISE FND_API.G_EXC_ERROR;
3793: END IF;
3794:
3795: -- Dele the old run for the same Budget Revision
3788: p_auto_offset => l_auto_offset
3789: );
3790:
3791: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3792: RAISE FND_API.G_EXC_ERROR;
3793: END IF;
3794:
3795: -- Dele the old run for the same Budget Revision
3796: -- and budget source.
3799: p_worksheet_id => p_budget_revision_id,
3800: p_budget_source_type => g_budget_source_type
3801: );
3802:
3803: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3804: RAISE FND_API.G_EXC_ERROR;
3805: END IF;
3806:
3807: -- Bug 3029168 added the second clause
3800: p_budget_source_type => g_budget_source_type
3801: );
3802:
3803: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3804: RAISE FND_API.G_EXC_ERROR;
3805: END IF;
3806:
3807: -- Bug 3029168 added the second clause
3808: IF g_budget_by_position = 'Y' AND l_currency_code <> 'STAT' THEN
3812: p_event_type => l_event_type,
3813: p_source_id => p_budget_revision_id
3814: );
3815:
3816: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3817: RAISE FND_API.G_EXC_ERROR;
3818: END IF;
3819: END;
3820: END IF;
3813: p_source_id => p_budget_revision_id
3814: );
3815:
3816: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3817: RAISE FND_API.G_EXC_ERROR;
3818: END IF;
3819: END;
3820: END IF;
3821:
3829: p_gl_budget_set_id => l_gl_budget_set_id,
3830: p_validation_status => l_acct_overlap_status
3831: );
3832:
3833: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3834: RAISE FND_API.G_EXC_ERROR;
3835: END IF;
3836:
3837: IF l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS THEN
3830: p_validation_status => l_acct_overlap_status
3831: );
3832:
3833: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3834: RAISE FND_API.G_EXC_ERROR;
3835: END IF;
3836:
3837: IF l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS THEN
3838: /* start bug # 4341619 */
3833: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3834: RAISE FND_API.G_EXC_ERROR;
3835: END IF;
3836:
3837: IF l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS THEN
3838: /* start bug # 4341619 */
3839: p_error_code := 'ACCOUNT_OVERLAP_ERR';
3840: p_return_status := FND_API.G_RET_STS_SUCCESS;
3841: RETURN;
3836:
3837: IF l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS THEN
3838: /* start bug # 4341619 */
3839: p_error_code := 'ACCOUNT_OVERLAP_ERR';
3840: p_return_status := FND_API.G_RET_STS_SUCCESS;
3841: RETURN;
3842: --Add_Message('PSB', 'PSB_VAL_LINE');
3843: /* END bug # 4341619 */
3844: END IF;
3842: --Add_Message('PSB', 'PSB_VAL_LINE');
3843: /* END bug # 4341619 */
3844: END IF;
3845:
3846: --l_funding_status := FND_API.G_RET_STS_SUCCESS; -- bug # 4341619
3847:
3848: -- continue validation regardless value of validation status
3849: /*FOR Bug No : 2920702 Start*/
3850: FOR c_year_rec IN c_year LOOP
3858: p_year_start_date => l_year_start_date,
3859: p_year_end_date => l_year_end_date
3860: );
3861:
3862: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3863: /* start bug # 4341619 */
3864: p_error_code := 'GL_BUDGET_PERIOD_NOT_OPEN_ERR';
3865: p_return_status := FND_API.G_RET_STS_SUCCESS;
3866: RETURN;
3861:
3862: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3863: /* start bug # 4341619 */
3864: p_error_code := 'GL_BUDGET_PERIOD_NOT_OPEN_ERR';
3865: p_return_status := FND_API.G_RET_STS_SUCCESS;
3866: RETURN;
3867: --RAISE FND_API.G_EXC_ERROR;
3868: /* END bug # 4341619 */
3869: END IF;
3863: /* start bug # 4341619 */
3864: p_error_code := 'GL_BUDGET_PERIOD_NOT_OPEN_ERR';
3865: p_return_status := FND_API.G_RET_STS_SUCCESS;
3866: RETURN;
3867: --RAISE FND_API.G_EXC_ERROR;
3868: /* END bug # 4341619 */
3869: END IF;
3870:
3871: /*FOR Bug No : 2920702 END*/
3887: p_event_type => l_event_type, -- Bug 3029168
3888: x_validation_status => l_validation_status
3889: );
3890:
3891: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3892: RAISE FND_API.G_EXC_ERROR;
3893: END IF;
3894:
3895: /* start bug # 4341619 */
3888: x_validation_status => l_validation_status
3889: );
3890:
3891: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3892: RAISE FND_API.G_EXC_ERROR;
3893: END IF;
3894:
3895: /* start bug # 4341619 */
3896: IF(l_validation_status <> FND_API.G_RET_STS_SUCCESS) THEN
3892: RAISE FND_API.G_EXC_ERROR;
3893: END IF;
3894:
3895: /* start bug # 4341619 */
3896: IF(l_validation_status <> FND_API.G_RET_STS_SUCCESS) THEN
3897: p_error_code := 'NO_FUNDING_BUDGET_ERR';
3898: p_return_status := FND_API.G_RET_STS_SUCCESS;
3899: RETURN;
3900: END IF;
3894:
3895: /* start bug # 4341619 */
3896: IF(l_validation_status <> FND_API.G_RET_STS_SUCCESS) THEN
3897: p_error_code := 'NO_FUNDING_BUDGET_ERR';
3898: p_return_status := FND_API.G_RET_STS_SUCCESS;
3899: RETURN;
3900: END IF;
3901: -- Bug#4310411 End
3902: END;
3912: p_msg_count => l_msg_count,
3913: p_budget_revision_id => p_budget_revision_id
3914: );
3915:
3916: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3917: Message_Token('BUDGET_REVISION', p_budget_revision_id);
3918: Add_Message('PSB', 'PSB_CANNOT_POST_COMMITMENT_REV');
3919: RAISE FND_API.G_EXC_ERROR;
3920: END IF;
3915:
3916: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3917: Message_Token('BUDGET_REVISION', p_budget_revision_id);
3918: Add_Message('PSB', 'PSB_CANNOT_POST_COMMITMENT_REV');
3919: RAISE FND_API.G_EXC_ERROR;
3920: END IF;
3921: END;
3922: ELSE
3923: BEGIN
3930: p_event_type => l_event_type -- Bug 3029168
3931: );
3932: -- Bug#4310411 End
3933:
3934: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3935: RAISE FND_API.G_EXC_ERROR;
3936: END IF;
3937: END;
3938: END IF;
3931: );
3932: -- Bug#4310411 End
3933:
3934: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3935: RAISE FND_API.G_EXC_ERROR;
3936: END IF;
3937: END;
3938: END IF;
3939:
3937: END;
3938: END IF;
3939:
3940: -- Standard check of p_commit.
3941: IF FND_API.to_Boolean (p_commit) THEN
3942: COMMIT WORK;
3943: END IF;
3944:
3945: -- Initialize API RETURN status to success
3943: END IF;
3944:
3945: -- Initialize API RETURN status to success
3946:
3947: p_return_status := FND_API.G_RET_STS_SUCCESS;
3948: /* Start Bug No. 2322856 */
3949: -- PSB_MESSAGE_S.Print_Success;
3950: /* END Bug No. 2322856 */
3951:
3950: /* END Bug No. 2322856 */
3951:
3952: EXCEPTION
3953:
3954: WHEN FND_API.G_EXC_ERROR THEN
3955: p_return_status := FND_API.G_RET_STS_ERROR;
3956: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3957: p_data => p_msg_data);
3958: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3951:
3952: EXCEPTION
3953:
3954: WHEN FND_API.G_EXC_ERROR THEN
3955: p_return_status := FND_API.G_RET_STS_ERROR;
3956: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3957: p_data => p_msg_data);
3958: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3959: p_print_header => FND_API.G_TRUE ) ;
3955: p_return_status := FND_API.G_RET_STS_ERROR;
3956: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3957: p_data => p_msg_data);
3958: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3959: p_print_header => FND_API.G_TRUE ) ;
3960:
3961: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3962: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3963: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3957: p_data => p_msg_data);
3958: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3959: p_print_header => FND_API.G_TRUE ) ;
3960:
3961: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3962: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3963: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3964: p_data => p_msg_data);
3965: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3958: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3959: p_print_header => FND_API.G_TRUE ) ;
3960:
3961: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3962: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3963: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3964: p_data => p_msg_data);
3965: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3966: p_print_header => FND_API.G_TRUE ) ;
3962: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3963: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3964: p_data => p_msg_data);
3965: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3966: p_print_header => FND_API.G_TRUE ) ;
3967:
3968: WHEN OTHERS THEN
3969: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3970: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3965: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3966: p_print_header => FND_API.G_TRUE ) ;
3967:
3968: WHEN OTHERS THEN
3969: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3970: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3971: p_data => p_msg_data);
3972: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3973: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
3973: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
3974: l_api_name);
3975: END IF;
3976: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
3977: p_print_header => FND_API.G_TRUE ) ;
3978:
3979: END Create_Revision_Journal;
3980:
3981: /* ----------------------------------------------------------------------- */
4073: Transfer_GLI_To_GL
4074: (p_return_status => l_return_status,
4075: p_msg_count => l_msg_count,
4076: p_msg_data => l_msg_data,
4077: p_init_msg_list => FND_API.G_TRUE,
4078: p_event_type => l_event_type, -- Bug 3029168
4079: p_source_id => p_source_id,
4080: p_gl_transfer_mode => p_gl_transfer_mode,
4081: p_order_by1 => p_order_by1,
4082: p_order_by2 => p_order_by2,
4083: p_order_by3 => p_order_by3
4084: );
4085:
4086: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4087: RAISE FND_API.G_EXC_ERROR;
4088: END IF;
4089: --
4090: retcode := 0 ;
4083: p_order_by3 => p_order_by3
4084: );
4085:
4086: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4087: RAISE FND_API.G_EXC_ERROR;
4088: END IF;
4089: --
4090: retcode := 0 ;
4091: --COMMIT WORK; Bug#4310411
4091: --COMMIT WORK; Bug#4310411
4092: --
4093: EXCEPTION
4094:
4095: WHEN FND_API.G_EXC_ERROR THEN
4096: PSB_MESSAGE_S.Print_Error(p_mode => FND_FILE.LOG ,
4097: p_print_header => FND_API.G_TRUE
4098: );
4099: retcode := 2 ;
4093: EXCEPTION
4094:
4095: WHEN FND_API.G_EXC_ERROR THEN
4096: PSB_MESSAGE_S.Print_Error(p_mode => FND_FILE.LOG ,
4097: p_print_header => FND_API.G_TRUE
4098: );
4099: retcode := 2 ;
4100:
4101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4097: p_print_header => FND_API.G_TRUE
4098: );
4099: retcode := 2 ;
4100:
4101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4102: PSB_MESSAGE_S.Print_Error(p_mode => FND_FILE.LOG ,
4103: p_print_header => FND_API.G_TRUE
4104: );
4105: retcode := 2 ;
4099: retcode := 2 ;
4100:
4101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4102: PSB_MESSAGE_S.Print_Error(p_mode => FND_FILE.LOG ,
4103: p_print_header => FND_API.G_TRUE
4104: );
4105: retcode := 2 ;
4106:
4107: WHEN OTHERS THEN
4110: l_api_name
4111: );
4112: END IF ;
4113: PSB_MESSAGE_S.Print_Error(p_mode => FND_FILE.LOG ,
4114: p_print_header => FND_API.G_TRUE
4115: );
4116: retcode := 2 ;
4117:
4118: END Transfer_GLI_To_GL_CP;
4170: p_order_by3 => p_order_by3,
4171: p_currency_code => p_currency_code -- Bug 3029168
4172: );
4173: --
4174: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4175: RAISE FND_API.G_EXC_ERROR;
4176: END IF;
4177: --
4178:
4171: p_currency_code => p_currency_code -- Bug 3029168
4172: );
4173: --
4174: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4175: RAISE FND_API.G_EXC_ERROR;
4176: END IF;
4177: --
4178:
4179: --
4183: IF NVL(l_msg_count, 0) > 0 THEN
4184:
4185: -- Print error on the OUTPUT file.
4186: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.OUTPUT ,
4187: p_print_header => FND_API.G_TRUE ) ;
4188: --
4189: retcode := 2 ;
4190: --
4191: ELSE
4195: --COMMIT WORK; -- Bug#4310411
4196: --
4197: EXCEPTION
4198:
4199: WHEN FND_API.G_EXC_ERROR THEN
4200: PSB_MESSAGE_S.Print_Error(p_mode => FND_FILE.LOG ,
4201: p_print_header => FND_API.G_TRUE
4202: );
4203: retcode := 2 ;
4197: EXCEPTION
4198:
4199: WHEN FND_API.G_EXC_ERROR THEN
4200: PSB_MESSAGE_S.Print_Error(p_mode => FND_FILE.LOG ,
4201: p_print_header => FND_API.G_TRUE
4202: );
4203: retcode := 2 ;
4204:
4205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4201: p_print_header => FND_API.G_TRUE
4202: );
4203: retcode := 2 ;
4204:
4205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4206: PSB_MESSAGE_S.Print_Error(p_mode => FND_FILE.LOG ,
4207: p_print_header => FND_API.G_TRUE
4208: );
4209: retcode := 2 ;
4203: retcode := 2 ;
4204:
4205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4206: PSB_MESSAGE_S.Print_Error(p_mode => FND_FILE.LOG ,
4207: p_print_header => FND_API.G_TRUE
4208: );
4209: retcode := 2 ;
4210: WHEN OTHERS THEN
4211: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4211: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4212: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4213: END IF ;
4214: PSB_MESSAGE_S.Print_Error(p_mode => FND_FILE.LOG ,
4215: p_print_header => FND_API.G_TRUE
4216: );
4217: retcode := 2 ;
4218:
4219: END Create_Budget_Journal_CP;
4322: p_source_id => p_worksheet_id,
4323: p_auto_offset => p_auto_offset
4324: );
4325:
4326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4327: RAISE FND_API.G_EXC_ERROR;
4328: END IF;
4329:
4330: FOR c_year_rec IN c_year LOOP
4323: p_auto_offset => p_auto_offset
4324: );
4325:
4326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4327: RAISE FND_API.G_EXC_ERROR;
4328: END IF;
4329:
4330: FOR c_year_rec IN c_year LOOP
4331: l_year_start_date := c_year_rec.start_date;
4353: p_gl_budget_set_id => l_gl_budget_set_id,
4354: p_validation_status => l_acct_overlap_status
4355: );
4356:
4357: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4358: RAISE FND_API.G_EXC_ERROR;
4359: END IF;
4360:
4361: IF l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS THEN
4354: p_validation_status => l_acct_overlap_status
4355: );
4356:
4357: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4358: RAISE FND_API.G_EXC_ERROR;
4359: END IF;
4360:
4361: IF l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS THEN
4362: Add_Message('PSB', 'PSB_VAL_LINE');
4357: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4358: RAISE FND_API.G_EXC_ERROR;
4359: END IF;
4360:
4361: IF l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS THEN
4362: Add_Message('PSB', 'PSB_VAL_LINE');
4363: END IF;
4364:
4365: /*FOR Bug No : 2712019 Start*/
4373: p_year_start_date => l_year_start_date,
4374: p_year_end_date => l_year_end_date
4375: );
4376:
4377: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4378: RAISE FND_API.G_EXC_ERROR;
4379: END IF;
4380: /*FOR Bug No : 2712019 END*/
4381:
4374: p_year_end_date => l_year_end_date
4375: );
4376:
4377: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4378: RAISE FND_API.G_EXC_ERROR;
4379: END IF;
4380: /*FOR Bug No : 2712019 END*/
4381:
4382: -- continue validation regardless value of validation status
4395: x_period_number => l_gl_period_num,
4396: x_quarter_number => l_gl_quarter_num
4397: );
4398:
4399: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4400: RAISE FND_API.G_EXC_ERROR;
4401: END IF;
4402:
4403: Validate_Funding_Account
4396: x_quarter_number => l_gl_quarter_num
4397: );
4398:
4399: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4400: RAISE FND_API.G_EXC_ERROR;
4401: END IF;
4402:
4403: Validate_Funding_Account
4404: (x_return_status => l_return_status,
4410: p_start_date => l_accounting_date,
4411: x_validation_status => l_validation_status
4412: );
4413:
4414: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4415: RAISE FND_API.G_EXC_ERROR;
4416: END IF;
4417:
4418: l_funding_status := l_validation_status;
4411: x_validation_status => l_validation_status
4412: );
4413:
4414: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4415: RAISE FND_API.G_EXC_ERROR;
4416: END IF;
4417:
4418: l_funding_status := l_validation_status;
4419: END;
4418: l_funding_status := l_validation_status;
4419: END;
4420: ELSE
4421: BEGIN
4422: l_funding_status := FND_API.G_RET_STS_SUCCESS;
4423:
4424: FOR c_period_rec IN c_period LOOP
4425: Get_GL_Period
4426: (x_return_status => l_return_status,
4434: x_period_number => l_gl_period_num,
4435: x_quarter_number => l_gl_quarter_num
4436: );
4437:
4438: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4439: RAISE FND_API.G_EXC_ERROR;
4440: END IF;
4441:
4442: Validate_Funding_Account
4435: x_quarter_number => l_gl_quarter_num
4436: );
4437:
4438: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4439: RAISE FND_API.G_EXC_ERROR;
4440: END IF;
4441:
4442: Validate_Funding_Account
4443: (x_return_status => l_return_status,
4449: p_start_date => l_accounting_date,
4450: x_validation_status => l_validation_status
4451: );
4452:
4453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4454: RAISE FND_API.G_EXC_ERROR;
4455: END IF;
4456:
4457: IF ((l_funding_status = FND_API.G_RET_STS_SUCCESS)
4450: x_validation_status => l_validation_status
4451: );
4452:
4453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4454: RAISE FND_API.G_EXC_ERROR;
4455: END IF;
4456:
4457: IF ((l_funding_status = FND_API.G_RET_STS_SUCCESS)
4458: AND
4453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4454: RAISE FND_API.G_EXC_ERROR;
4455: END IF;
4456:
4457: IF ((l_funding_status = FND_API.G_RET_STS_SUCCESS)
4458: AND
4459: (l_validation_status <> FND_API.G_RET_STS_SUCCESS)
4460: )
4461: THEN
4455: END IF;
4456:
4457: IF ((l_funding_status = FND_API.G_RET_STS_SUCCESS)
4458: AND
4459: (l_validation_status <> FND_API.G_RET_STS_SUCCESS)
4460: )
4461: THEN
4462: l_funding_status := l_validation_status;
4463: END IF;
4464: END LOOP;
4465: END;
4466: END IF;
4467:
4468: IF (l_funding_status <> FND_API.G_RET_STS_SUCCESS
4469: OR
4470: l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS
4471: )
4472: THEN
4466: END IF;
4467:
4468: IF (l_funding_status <> FND_API.G_RET_STS_SUCCESS
4469: OR
4470: l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS
4471: )
4472: THEN
4473: RAISE FND_API.G_EXC_ERROR;
4474: ELSE
4469: OR
4470: l_acct_overlap_status <> FND_API.G_RET_STS_SUCCESS
4471: )
4472: THEN
4473: RAISE FND_API.G_EXC_ERROR;
4474: ELSE
4475: BEGIN
4476: IF p_year_journal = 'Y' THEN
4477: BEGIN
4487: x_period_number => l_gl_period_num,
4488: x_quarter_number => l_gl_quarter_num
4489: );
4490:
4491: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4492: RAISE FND_API.G_EXC_ERROR;
4493: END IF;
4494:
4495: -- Include your changes here.
4488: x_quarter_number => l_gl_quarter_num
4489: );
4490:
4491: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4492: RAISE FND_API.G_EXC_ERROR;
4493: END IF;
4494:
4495: -- Include your changes here.
4496: l_column := 0;
4513: p_gl_period_num => l_gl_period_num,
4514: p_gl_quarter_num => l_gl_quarter_num
4515: );
4516:
4517: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4518: RAISE FND_API.G_EXC_ERROR;
4519: END IF;
4520: END;
4521: ELSE
4514: p_gl_quarter_num => l_gl_quarter_num
4515: );
4516:
4517: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4518: RAISE FND_API.G_EXC_ERROR;
4519: END IF;
4520: END;
4521: ELSE
4522: BEGIN
4537: x_period_number => l_gl_period_num,
4538: x_quarter_number => l_gl_quarter_num
4539: );
4540:
4541: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4542: RAISE FND_API.G_EXC_ERROR;
4543: END IF;
4544:
4545: Create_JE_Lines_Fund
4538: x_quarter_number => l_gl_quarter_num
4539: );
4540:
4541: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4542: RAISE FND_API.G_EXC_ERROR;
4543: END IF;
4544:
4545: Create_JE_Lines_Fund
4546: (x_return_status => l_return_status,
4560: p_gl_period_num => l_gl_period_num,
4561: p_gl_quarter_num => l_gl_quarter_num
4562: );
4563:
4564: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4565: RAISE FND_API.G_EXC_ERROR;
4566: END IF;
4567: END LOOP;
4568: END;
4561: p_gl_quarter_num => l_gl_quarter_num
4562: );
4563:
4564: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4565: RAISE FND_API.G_EXC_ERROR;
4566: END IF;
4567: END LOOP;
4568: END;
4569: END IF;
4578: p_msg_count => l_msg_count,
4579: p_msg_data => l_msg_data,
4580: p_worksheet_id => p_worksheet_id);
4581:
4582: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4583: RAISE FND_API.G_EXC_ERROR;
4584: END IF;
4585: */
4586: /*FOR Bug No : 2221409 END*/
4579: p_msg_data => l_msg_data,
4580: p_worksheet_id => p_worksheet_id);
4581:
4582: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4583: RAISE FND_API.G_EXC_ERROR;
4584: END IF;
4585: */
4586: /*FOR Bug No : 2221409 END*/
4587:
4598: p_gl_budget_set_id => l_gl_budget_set_id,
4599: p_budget_year_id => p_budget_year_id
4600: );
4601:
4602: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4603: RAISE FND_API.G_EXC_ERROR;
4604: END IF;
4605: END;
4606: END IF; -- no validation error found
4599: p_budget_year_id => p_budget_year_id
4600: );
4601:
4602: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4603: RAISE FND_API.G_EXC_ERROR;
4604: END IF;
4605: END;
4606: END IF; -- no validation error found
4607:
4614: p_msg_data => l_msg_data,
4615: p_worksheet_id => p_worksheet_id
4616: );
4617:
4618: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4619: RAISE FND_API.G_EXC_ERROR;
4620: END IF;
4621:
4622: /*FOR Bug No : 2221409 END*/
4615: p_worksheet_id => p_worksheet_id
4616: );
4617:
4618: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4619: RAISE FND_API.G_EXC_ERROR;
4620: END IF;
4621:
4622: /*FOR Bug No : 2221409 END*/
4623: -- Initialize API RETURN status to success
4621:
4622: /*FOR Bug No : 2221409 END*/
4623: -- Initialize API RETURN status to success
4624:
4625: x_return_status := FND_API.G_RET_STS_SUCCESS;
4626:
4627:
4628: EXCEPTION
4629:
4626:
4627:
4628: EXCEPTION
4629:
4630: WHEN FND_API.G_EXC_ERROR THEN
4631: /*FOR Bug No : 2712019 Start*/
4632: --ROLLBACK TO Adopted_Budget;
4633: ROLLBACK TO Create_Adopted_Budget;
4634: /*FOR Bug No : 2712019 END*/
4631: /*FOR Bug No : 2712019 Start*/
4632: --ROLLBACK TO Adopted_Budget;
4633: ROLLBACK TO Create_Adopted_Budget;
4634: /*FOR Bug No : 2712019 END*/
4635: x_return_status := FND_API.G_RET_STS_ERROR;
4636:
4637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4638: /*FOR Bug No : 2712019 Start*/
4639: --ROLLBACK TO Adopted_Budget;
4633: ROLLBACK TO Create_Adopted_Budget;
4634: /*FOR Bug No : 2712019 END*/
4635: x_return_status := FND_API.G_RET_STS_ERROR;
4636:
4637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4638: /*FOR Bug No : 2712019 Start*/
4639: --ROLLBACK TO Adopted_Budget;
4640: ROLLBACK TO Create_Adopted_Budget;
4641: /*FOR Bug No : 2712019 END*/
4638: /*FOR Bug No : 2712019 Start*/
4639: --ROLLBACK TO Adopted_Budget;
4640: ROLLBACK TO Create_Adopted_Budget;
4641: /*FOR Bug No : 2712019 END*/
4642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4643:
4644: WHEN OTHERS THEN
4645: /*FOR Bug No : 2712019 Start*/
4646: --ROLLBACK TO Adopted_Budget;
4645: /*FOR Bug No : 2712019 Start*/
4646: --ROLLBACK TO Adopted_Budget;
4647: ROLLBACK TO Create_Adopted_Budget;
4648: /*FOR Bug No : 2712019 END*/
4649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4650:
4651: END Create_Adopted_Budget;
4652:
4653: /*===========================================================================+
4694: p_order_by2 => NULL,
4695: p_order_by3 => NULL
4696: );
4697: --
4698: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4699: RAISE FND_API.G_EXC_ERROR;
4700: END IF;
4701: --
4702:
4695: p_order_by3 => NULL
4696: );
4697: --
4698: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4699: RAISE FND_API.G_EXC_ERROR;
4700: END IF;
4701: --
4702:
4703: --
4707: IF NVL(l_msg_count, 0) > 0 THEN
4708:
4709: -- Print error on the OUTPUT file.
4710: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.OUTPUT ,
4711: p_print_header => FND_API.G_TRUE ) ;
4712: --
4713: retcode := 2 ;
4714: --
4715: ELSE
4719: --COMMIT WORK; --Bug#4310411
4720: --
4721: EXCEPTION
4722:
4723: WHEN FND_API.G_EXC_ERROR THEN
4724: --
4725: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4726: p_print_header => FND_API.G_TRUE ) ;
4727: retcode := 2 ;
4722:
4723: WHEN FND_API.G_EXC_ERROR THEN
4724: --
4725: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4726: p_print_header => FND_API.G_TRUE ) ;
4727: retcode := 2 ;
4728: --
4729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4730: --
4725: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4726: p_print_header => FND_API.G_TRUE ) ;
4727: retcode := 2 ;
4728: --
4729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4730: --
4731: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4732: p_print_header => FND_API.G_TRUE ) ;
4733: retcode := 2 ;
4728: --
4729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4730: --
4731: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4732: p_print_header => FND_API.G_TRUE ) ;
4733: retcode := 2 ;
4734: --
4735:
4736: WHEN OTHERS THEN
4741: l_api_name ) ;
4742: END IF ;
4743: --
4744: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4745: p_print_header => FND_API.G_TRUE ) ;
4746: retcode := 2 ;
4747: --
4748: END Create_Adopted_Budget_CP;
4749:
4779: WHEN OTHERS THEN
4780: x_document_posted_flag := 'N';
4781:
4782: -- set the status of the API
4783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4784:
4785: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4786: fnd_msg_pub.add_exc_msg(G_PKG_NAME , l_api_name);
4787: END IF;