65:
66:
67: IF G_DEBUG_MODE = 'Y' THEN
68:
69: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.revaluate_funding-----------' ;
70: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
71:
72: l_LogMsg := 'Parameters : Project Id:' || p_project_id ||
73: ' Project Type Id:' || p_project_type_id ||
66:
67: IF G_DEBUG_MODE = 'Y' THEN
68:
69: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.revaluate_funding-----------' ;
70: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
71:
72: l_LogMsg := 'Parameters : Project Id:' || p_project_id ||
73: ' Project Type Id:' || p_project_type_id ||
74: ' Start Proj No:' || p_from_proj_number ||
192: G_REVAL_FLAG := 'N';
193:
194: IF G_DEBUG_MODE = 'Y' THEN
195:
196: pa_debug.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.revaluate_funding-----------' ;
197: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
198:
199: END IF;
200:
193:
194: IF G_DEBUG_MODE = 'Y' THEN
195:
196: pa_debug.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.revaluate_funding-----------' ;
197: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
198:
199: END IF;
200:
201:
204: ROLLBACK;
205:
206: IF G_DEBUG_MODE = 'Y' THEN
207:
208: PA_DEBUG.g_err_stage := 'Expected: ' || l_msg_data ;
209: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
210:
211: END IF;
212:
205:
206: IF G_DEBUG_MODE = 'Y' THEN
207:
208: PA_DEBUG.g_err_stage := 'Expected: ' || l_msg_data ;
209: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
210:
211: END IF;
212:
213: x_return_status := l_return_status;
219: G_REVAL_FLAG := 'N';
220:
221: IF G_DEBUG_MODE = 'Y' THEN
222:
223: PA_DEBUG.g_err_stage := 'Unexpected :' ||l_msg_data ;
224: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
225:
226: END IF;
227:
220:
221: IF G_DEBUG_MODE = 'Y' THEN
222:
223: PA_DEBUG.g_err_stage := 'Unexpected :' ||l_msg_data ;
224: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
225:
226: END IF;
227:
228: x_return_status := l_return_status;
237: x_msg_data := SUBSTR(SQLERRM,1,100);
238:
239: IF G_DEBUG_MODE = 'Y' THEN
240:
241: PA_DEBUG.g_err_stage := 'Revaluate_funding:' || x_msg_data ;
242: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
243:
244: END IF;
245:
238:
239: IF G_DEBUG_MODE = 'Y' THEN
240:
241: PA_DEBUG.g_err_stage := 'Revaluate_funding:' || x_msg_data ;
242: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
243:
244: END IF;
245:
246:
290:
291:
292: IF G_DEBUG_MODE = 'Y' THEN
293:
294: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.validate_project_eligibility-----------' ;
295: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
296:
297: END IF;
298:
291:
292: IF G_DEBUG_MODE = 'Y' THEN
293:
294: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.validate_project_eligibility-----------' ;
295: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
296:
297: END IF;
298:
299:
406: END IF;
407:
408: IF G_DEBUG_MODE = 'Y' THEN
409:
410: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.validate_project_eligibility-----------' ;
411: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
412:
413: END IF;
414:
407:
408: IF G_DEBUG_MODE = 'Y' THEN
409:
410: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.validate_project_eligibility-----------' ;
411: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
412:
413: END IF;
414:
415: EXCEPTION
436: x_msg_data := SUBSTR(SQLERRM,1,100);
437:
438: IF G_DEBUG_MODE = 'Y' THEN
439:
440: PA_DEBUG.g_err_stage := 'Validate_project_eligibility:' || x_msg_data ;
441: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
442:
443: END IF;
444:
437:
438: IF G_DEBUG_MODE = 'Y' THEN
439:
440: PA_DEBUG.g_err_stage := 'Validate_project_eligibility:' || x_msg_data ;
441: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
442:
443: END IF;
444:
445: END validate_project_eligibility;
531: x_msg_count := 0;
532:
533: IF G_DEBUG_MODE = 'Y' THEN
534:
535: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_rsob_ids-----------' ;
536: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
537:
538: END IF;
539:
532:
533: IF G_DEBUG_MODE = 'Y' THEN
534:
535: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_rsob_ids-----------' ;
536: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
537:
538: END IF;
539:
540: /* Gets primary set of book id and MRC funding enabled flag */
627: END LOOP;
628:
629: IF G_DEBUG_MODE = 'Y' THEN
630:
631: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_rsob_ids-----------' ;
632: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
633:
634: END IF;
635:
628:
629: IF G_DEBUG_MODE = 'Y' THEN
630:
631: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_rsob_ids-----------' ;
632: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
633:
634: END IF;
635:
636: EXCEPTION
646: x_msg_data := SUBSTR(SQLERRM,1,100);
647:
648: IF G_DEBUG_MODE = 'Y' THEN
649:
650: PA_DEBUG.g_err_stage := 'get_rsob_ids:' || x_msg_data ;
651: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
652:
653: END IF;
654:
647:
648: IF G_DEBUG_MODE = 'Y' THEN
649:
650: PA_DEBUG.g_err_stage := 'get_rsob_ids:' || x_msg_data ;
651: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
652:
653: END IF;
654:
655: END get_rsob_ids;
721: x_msg_count := 0;
722:
723: IF G_DEBUG_MODE = 'Y' THEN
724:
725: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_start_end_proj_num-----------' ;
726: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
727:
728: END IF;
729:
722:
723: IF G_DEBUG_MODE = 'Y' THEN
724:
725: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_start_end_proj_num-----------' ;
726: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
727:
728: END IF;
729:
730: IF p_run_mode = 'SINGLE' THEN
831: ' End Proj No:' || x_to_proj_number ||
832: ' Proj Type Id:' || x_Project_type_id;
833: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
834:
835: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_start_end_proj_num-----------' ;
836: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
837:
838: END IF;
839:
832: ' Proj Type Id:' || x_Project_type_id;
833: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
834:
835: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_start_end_proj_num-----------' ;
836: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
837:
838: END IF;
839:
840: EXCEPTION
850: x_msg_data := SUBSTR(SQLERRM,1,100);
851:
852: IF G_DEBUG_MODE = 'Y' THEN
853:
854: PA_DEBUG.g_err_stage := 'get_start_end_proj_num:' || x_msg_data ;
855: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
856:
857: END IF;
858:
851:
852: IF G_DEBUG_MODE = 'Y' THEN
853:
854: PA_DEBUG.g_err_stage := 'get_start_end_proj_num:' || x_msg_data ;
855: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
856:
857: END IF;
858:
859: END get_start_end_proj_num;
902: x_reason_code := NULL;
903:
904: IF G_DEBUG_MODE = 'Y' THEN
905:
906: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Check_Unrel_invoice_revenue-----------' ;
907: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
908:
909: END IF;
910:
903:
904: IF G_DEBUG_MODE = 'Y' THEN
905:
906: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Check_Unrel_invoice_revenue-----------' ;
907: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
908:
909: END IF;
910:
911: /* Check for any unapproved or unreleased invoices */
966: END IF;
967:
968: IF G_DEBUG_MODE = 'Y' THEN
969:
970: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Check_Unrel_invoice_revenue-----------' ;
971: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
972:
973: END IF;
974:
967:
968: IF G_DEBUG_MODE = 'Y' THEN
969:
970: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Check_Unrel_invoice_revenue-----------' ;
971: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
972:
973: END IF;
974:
975: EXCEPTION
980: x_msg_data := SUBSTR(SQLERRM,1,100);
981:
982: IF G_DEBUG_MODE = 'Y' THEN
983:
984: PA_DEBUG.g_err_stage := 'Check_Unrel_invoice_revenue:' || x_msg_data ;
985: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
986:
987: END IF;
988:
981:
982: IF G_DEBUG_MODE = 'Y' THEN
983:
984: PA_DEBUG.g_err_stage := 'Check_Unrel_invoice_revenue:' || x_msg_data ;
985: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
986:
987: END IF;
988:
989: END Check_Unrel_invoice_revenue;
1009: BEGIN
1010:
1011: IF G_DEBUG_MODE = 'Y' THEN
1012:
1013: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Check_reval_unbaseline_funds-----------' ;
1014: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1015:
1016: END IF;
1017:
1010:
1011: IF G_DEBUG_MODE = 'Y' THEN
1012:
1013: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Check_reval_unbaseline_funds-----------' ;
1014: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1015:
1016: END IF;
1017:
1018: SELECT 'T' INTO l_ExistFlag
1024: AND budget_type_code = 'DRAFT');
1025:
1026: IF G_DEBUG_MODE = 'Y' THEN
1027:
1028: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Check_reval_unbaseline_funds-----------' ;
1029: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1030:
1031: END IF;
1032:
1025:
1026: IF G_DEBUG_MODE = 'Y' THEN
1027:
1028: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Check_reval_unbaseline_funds-----------' ;
1029: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1030:
1031: END IF;
1032:
1033: RETURN l_ExistFlag;
1096: x_msg_count := 0;
1097:
1098: IF G_DEBUG_MODE = 'Y' THEN
1099:
1100: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Delete_Unbaselined_Adjmts-----------' ;
1101: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1102:
1103: END IF;
1104:
1097:
1098: IF G_DEBUG_MODE = 'Y' THEN
1099:
1100: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Delete_Unbaselined_Adjmts-----------' ;
1101: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1102:
1103: END IF;
1104:
1105: OPEN fund_recs;
1198: CLOSE fund_recs;
1199:
1200: IF G_DEBUG_MODE = 'Y' THEN
1201:
1202: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Delete_Unbaselined_Adjmts-----------' ;
1203: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1204:
1205: END IF;
1206:
1199:
1200: IF G_DEBUG_MODE = 'Y' THEN
1201:
1202: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Delete_Unbaselined_Adjmts-----------' ;
1203: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1204:
1205: END IF;
1206:
1207: EXCEPTION
1222: x_msg_data := SUBSTR(SQLERRM,1,100);
1223:
1224: IF G_DEBUG_MODE = 'Y' THEN
1225:
1226: PA_DEBUG.g_err_stage := 'Delete_Unbaselined_Adjmts:' || x_msg_data ;
1227: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1228:
1229: END IF;
1230:
1223:
1224: IF G_DEBUG_MODE = 'Y' THEN
1225:
1226: PA_DEBUG.g_err_stage := 'Delete_Unbaselined_Adjmts:' || x_msg_data ;
1227: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1228:
1229: END IF;
1230:
1231: END Delete_Unbaselined_Adjmts;
1274: x_msg_count := 0;
1275:
1276: IF G_DEBUG_MODE = 'Y' THEN
1277:
1278: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Insert_distribution_warnings-----------' ;
1279: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1280:
1281: l_LogMsg := 'Reason :' || p_reason_code;
1282: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
1275:
1276: IF G_DEBUG_MODE = 'Y' THEN
1277:
1278: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Insert_distribution_warnings-----------' ;
1279: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1280:
1281: l_LogMsg := 'Reason :' || p_reason_code;
1282: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
1283:
1305: );
1306:
1307: IF G_DEBUG_MODE = 'Y' THEN
1308:
1309: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Insert_distribution_warnings-----------' ;
1310: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1311:
1312: END IF;
1313:
1306:
1307: IF G_DEBUG_MODE = 'Y' THEN
1308:
1309: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Insert_distribution_warnings-----------' ;
1310: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1311:
1312: END IF;
1313:
1314: EXCEPTION
1329: x_msg_data := SUBSTR(SQLERRM,1,100);
1330:
1331: IF G_DEBUG_MODE = 'Y' THEN
1332:
1333: PA_DEBUG.g_err_stage := 'Insert_distribution_warnings:' || x_msg_data ;
1334: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1335:
1336: END IF;
1337:
1330:
1331: IF G_DEBUG_MODE = 'Y' THEN
1332:
1333: PA_DEBUG.g_err_stage := 'Insert_distribution_warnings:' || x_msg_data ;
1334: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1335:
1336: END IF;
1337:
1338: END Insert_distribution_warnings;
1348: l_debug_mode VARCHAR2(10);
1349:
1350: BEGIN
1351:
1352: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1353: l_debug_mode := NVL(l_debug_mode, 'N');
1354: G_DEBUG_MODE := l_debug_mode;
1355:
1356: IF G_DEBUG_MODE = 'Y' THEN
1354: G_DEBUG_MODE := l_debug_mode;
1355:
1356: IF G_DEBUG_MODE = 'Y' THEN
1357:
1358: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_UTIL.initialize-----------';
1359: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1360:
1361: END IF;
1362:
1355:
1356: IF G_DEBUG_MODE = 'Y' THEN
1357:
1358: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_UTIL.initialize-----------';
1359: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1360:
1361: END IF;
1362:
1363: G_LAST_UPDATE_LOGIN := fnd_global.login_id;
1368: G_CREATED_BY := fnd_global.user_id;
1369:
1370: IF G_DEBUG_MODE = 'Y' THEN
1371:
1372: PA_DEBUG.Set_Curr_Function( p_function => 'Funding Revaluation',
1373: p_debug_mode => l_debug_mode );
1374:
1375: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_UTIL.initialize-----------';
1376: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1371:
1372: PA_DEBUG.Set_Curr_Function( p_function => 'Funding Revaluation',
1373: p_debug_mode => l_debug_mode );
1374:
1375: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_UTIL.initialize-----------';
1376: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1377:
1378: END IF;
1379:
1372: PA_DEBUG.Set_Curr_Function( p_function => 'Funding Revaluation',
1373: p_debug_mode => l_debug_mode );
1374:
1375: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_UTIL.initialize-----------';
1376: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1377:
1378: END IF;
1379:
1380: END initialize;
1463: x_msg_count := 0;
1464:
1465: IF G_DEBUG_MODE = 'Y' THEN
1466:
1467: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_reval_projects-----------' ;
1468: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1469:
1470: l_LogMsg := 'From prj:' || p_from_proj_number ||
1471: ' To prj:' || p_to_proj_number ||
1464:
1465: IF G_DEBUG_MODE = 'Y' THEN
1466:
1467: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_reval_projects-----------' ;
1468: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1469:
1470: l_LogMsg := 'From prj:' || p_from_proj_number ||
1471: ' To prj:' || p_to_proj_number ||
1472: ' Proj type:' || p_project_type_id ;
1647: END LOOP ; /* Open_projects*/
1648:
1649: IF G_DEBUG_MODE = 'Y' THEN
1650:
1651: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_reval_projects-----------' ;
1652: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1653:
1654: END IF;
1655:
1648:
1649: IF G_DEBUG_MODE = 'Y' THEN
1650:
1651: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_reval_projects-----------' ;
1652: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1653:
1654: END IF;
1655:
1656:
1672: x_msg_data := SUBSTR(SQLERRM,1,100);
1673:
1674: IF G_DEBUG_MODE = 'Y' THEN
1675:
1676: PA_DEBUG.g_err_stage := 'get_reval_projects:' || x_msg_data ;
1677: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1678:
1679: END IF;
1680:
1673:
1674: IF G_DEBUG_MODE = 'Y' THEN
1675:
1676: PA_DEBUG.g_err_stage := 'get_reval_projects:' || x_msg_data ;
1677: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1678:
1679: END IF;
1680:
1681: END get_reval_projects;
1831: x_msg_count := 0;
1832:
1833: IF G_DEBUG_MODE = 'Y' THEN
1834:
1835: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_spf_lines-----------' ;
1836: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1837:
1838: END IF;
1839:
1832:
1833: IF G_DEBUG_MODE = 'Y' THEN
1834:
1835: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_spf_lines-----------' ;
1836: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1837:
1838: END IF;
1839:
1840: /* When only primary set of book id is processed each SPF is unique and processing
2132: END IF;
2133:
2134: IF G_DEBUG_MODE = 'Y' THEN
2135:
2136: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_spf_lines-----------' ;
2137: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2138:
2139: END IF;
2140:
2133:
2134: IF G_DEBUG_MODE = 'Y' THEN
2135:
2136: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_spf_lines-----------' ;
2137: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2138:
2139: END IF;
2140:
2141: EXCEPTION
2156: x_msg_data := SUBSTR(SQLERRM,1,100);
2157:
2158: IF G_DEBUG_MODE = 'Y' THEN
2159:
2160: PA_DEBUG.g_err_stage := 'get_spf_lines:' || x_msg_data ;
2161: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2162:
2163: END IF;
2164:
2157:
2158: IF G_DEBUG_MODE = 'Y' THEN
2159:
2160: PA_DEBUG.g_err_stage := 'get_spf_lines:' || x_msg_data ;
2161: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2162:
2163: END IF;
2164:
2165: END get_spf_lines;
2202: x_msg_count := 0;
2203:
2204: IF G_DEBUG_MODE = 'Y' THEN
2205:
2206: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.process_spf_lines-----------' ;
2207: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2208:
2209: l_LogMsg := 'Agreement Id:' || p_agreement_id ||
2210: ' Task Id:' || p_task_id ||
2203:
2204: IF G_DEBUG_MODE = 'Y' THEN
2205:
2206: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.process_spf_lines-----------' ;
2207: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2208:
2209: l_LogMsg := 'Agreement Id:' || p_agreement_id ||
2210: ' Task Id:' || p_task_id ||
2211: ' Retention Level:' || p_retention_level_code;
2424: END IF;
2425:
2426: IF G_DEBUG_MODE = 'Y' THEN
2427:
2428: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.process_spf_lines-----------' ;
2429: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2430:
2431: END IF;
2432:
2425:
2426: IF G_DEBUG_MODE = 'Y' THEN
2427:
2428: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.process_spf_lines-----------' ;
2429: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2430:
2431: END IF;
2432:
2433: EXCEPTION
2448: x_msg_data := SUBSTR(SQLERRM,1,100);
2449:
2450: IF G_DEBUG_MODE = 'Y' THEN
2451:
2452: PA_DEBUG.g_err_stage := 'process_spf_lines:' || x_msg_data ;
2453: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2454:
2455: END IF;
2456:
2449:
2450: IF G_DEBUG_MODE = 'Y' THEN
2451:
2452: PA_DEBUG.g_err_stage := 'process_spf_lines:' || x_msg_data ;
2453: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2454:
2455: END IF;
2456:
2457: END process_spf_lines;
2642: x_msg_count := 0;
2643:
2644: IF G_DEBUG_MODE = 'Y' THEN
2645:
2646: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_retn_appl_amount-----------' ;
2647: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2648:
2649: END IF;
2650:
2643:
2644: IF G_DEBUG_MODE = 'Y' THEN
2645:
2646: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_retn_appl_amount-----------' ;
2647: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2648:
2649: END IF;
2650:
2651: /* When only primary set of book id is processed each invoice is unique and processing
2899: END IF;
2900:
2901: IF G_DEBUG_MODE = 'Y' THEN
2902:
2903: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_retn_appl_amount-----------' ;
2904: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2905:
2906: END IF;
2907:
2900:
2901: IF G_DEBUG_MODE = 'Y' THEN
2902:
2903: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_retn_appl_amount-----------' ;
2904: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2905:
2906: END IF;
2907:
2908: EXCEPTION
2923: x_msg_data := SUBSTR(SQLERRM,1,100);
2924:
2925: IF G_DEBUG_MODE = 'Y' THEN
2926:
2927: PA_DEBUG.g_err_stage := 'get_retn_appl_amount:' || x_msg_data ;
2928: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2929:
2930: END IF;
2931:
2924:
2925: IF G_DEBUG_MODE = 'Y' THEN
2926:
2927: PA_DEBUG.g_err_stage := 'get_retn_appl_amount:' || x_msg_data ;
2928: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2929:
2930: END IF;
2931:
2932: END get_retn_appl_amount;
2986: x_msg_count := 0;
2987:
2988: IF G_DEBUG_MODE = 'Y' THEN
2989:
2990: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.process_retention_invoice-----------' ;
2991: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2992:
2993: END IF;
2994:
2987:
2988: IF G_DEBUG_MODE = 'Y' THEN
2989:
2990: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.process_retention_invoice-----------' ;
2991: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2992:
2993: END IF;
2994:
2995: /* For the given retention invoice (System Reference )this procedure will return
3206: END LOOP;
3207:
3208: IF G_DEBUG_MODE = 'Y' THEN
3209:
3210: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.process_retention_invoices-----------' ;
3211: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
3212:
3213: END IF;
3214:
3207:
3208: IF G_DEBUG_MODE = 'Y' THEN
3209:
3210: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.process_retention_invoices-----------' ;
3211: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
3212:
3213: END IF;
3214:
3215: EXCEPTION
3231: G_RetnApplAmtTab(l_SobId).error_status := x_msg_data;
3232:
3233: IF G_DEBUG_MODE = 'Y' THEN
3234:
3235: PA_DEBUG.g_err_stage := 'process_retention_invoices:' || x_msg_data ;
3236: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
3237:
3238: END IF;
3239:
3232:
3233: IF G_DEBUG_MODE = 'Y' THEN
3234:
3235: PA_DEBUG.g_err_stage := 'process_retention_invoices:' || x_msg_data ;
3236: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
3237:
3238: END IF;
3239:
3240: END process_retention_invoices ;
3857: x_msg_count := 0;
3858:
3859: IF G_DEBUG_MODE = 'Y' THEN
3860:
3861: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_invoice_components-----------' ;
3862: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
3863:
3864: END IF;
3865:
3858:
3859: IF G_DEBUG_MODE = 'Y' THEN
3860:
3861: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_invoice_components-----------' ;
3862: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
3863:
3864: END IF;
3865:
3866: /* This procedure get invoice lines for the given project/agreement id.
4536: END IF ;/* G_PRIMARY_ONLY */
4537:
4538: IF G_DEBUG_MODE = 'Y' THEN
4539:
4540: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_invoice_components-----------' ;
4541: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
4542:
4543: END IF;
4544:
4537:
4538: IF G_DEBUG_MODE = 'Y' THEN
4539:
4540: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_invoice_components-----------' ;
4541: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
4542:
4543: END IF;
4544:
4545: EXCEPTION
4560: x_msg_data := SUBSTR(SQLERRM,1,100);
4561:
4562: IF G_DEBUG_MODE = 'Y' THEN
4563:
4564: PA_DEBUG.g_err_stage := 'get_invoice_components:' || x_msg_data ;
4565: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
4566:
4567: END IF;
4568:
4561:
4562: IF G_DEBUG_MODE = 'Y' THEN
4563:
4564: PA_DEBUG.g_err_stage := 'get_invoice_components:' || x_msg_data ;
4565: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
4566:
4567: END IF;
4568:
4569: END get_invoice_components;
4698:
4699:
4700: IF G_DEBUG_MODE = 'Y' THEN
4701:
4702: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.derive_reval_components-----------' ;
4703: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
4704:
4705: END IF;
4706:
4699:
4700: IF G_DEBUG_MODE = 'Y' THEN
4701:
4702: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.derive_reval_components-----------' ;
4703: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
4704:
4705: END IF;
4706:
4707: i_ProjfuncRateType := nvl(G_RATE_TYPE, G_ProjLvlGlobRec.projfunc_bil_rate_type); /* Added for Bug 3221279 */
5806: END IF; /* project level funding */
5807:
5808: IF G_DEBUG_MODE = 'Y' THEN
5809:
5810: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.derive_reval_components-----------' ;
5811: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
5812:
5813: END IF;
5814:
5807:
5808: IF G_DEBUG_MODE = 'Y' THEN
5809:
5810: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.derive_reval_components-----------' ;
5811: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
5812:
5813: END IF;
5814:
5815: EXCEPTION
5830: x_msg_data := SUBSTR(SQLERRM,1,100);
5831:
5832: IF G_DEBUG_MODE = 'Y' THEN
5833:
5834: PA_DEBUG.g_err_stage := 'derive_reval_components:' || x_msg_data ;
5835: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
5836:
5837: END IF;
5838:
5831:
5832: IF G_DEBUG_MODE = 'Y' THEN
5833:
5834: PA_DEBUG.g_err_stage := 'derive_reval_components:' || x_msg_data ;
5835: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
5836:
5837: END IF;
5838:
5839: END derive_reval_components;
5938: x_msg_count := 0;
5939:
5940: IF G_DEBUG_MODE = 'Y' THEN
5941:
5942: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_invoice_total-----------' ;
5943: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
5944:
5945: END IF;
5946:
5939:
5940: IF G_DEBUG_MODE = 'Y' THEN
5941:
5942: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_invoice_total-----------' ;
5943: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
5944:
5945: END IF;
5946:
5947: IF G_PRIMARY_ONLY = 'Y' THEN
6060: END IF;
6061:
6062: IF G_DEBUG_MODE = 'Y' THEN
6063:
6064: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_invoice_total-----------' ;
6065: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6066:
6067: END IF;
6068:
6061:
6062: IF G_DEBUG_MODE = 'Y' THEN
6063:
6064: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_invoice_total-----------' ;
6065: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6066:
6067: END IF;
6068:
6069: EXCEPTION
6084: x_msg_data := SUBSTR(SQLERRM,1,100);
6085:
6086: IF G_DEBUG_MODE = 'Y' THEN
6087:
6088: PA_DEBUG.g_err_stage := 'get_invoice_total:' || x_msg_data ;
6089: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6090:
6091: END IF;
6092:
6085:
6086: IF G_DEBUG_MODE = 'Y' THEN
6087:
6088: PA_DEBUG.g_err_stage := 'get_invoice_total:' || x_msg_data ;
6089: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6090:
6091: END IF;
6092:
6093: END get_invoice_total;
6303: x_msg_count := 0;
6304:
6305: IF G_DEBUG_MODE = 'Y' THEN
6306:
6307: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_retained_amount-----------' ;
6308: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6309:
6310: l_LogMsg := 'Project Id:' || p_project_id ||
6311: ' Task Id:' || p_task_id ||
6304:
6305: IF G_DEBUG_MODE = 'Y' THEN
6306:
6307: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_retained_amount-----------' ;
6308: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6309:
6310: l_LogMsg := 'Project Id:' || p_project_id ||
6311: ' Task Id:' || p_task_id ||
6312: ' Draft Inv Num:' || p_draft_inv_num ;
6664: x_RetainedAmtTab := l_RetainedAmtTab;
6665:
6666: IF G_DEBUG_MODE = 'Y' THEN
6667:
6668: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_retained_amount-----------' ;
6669: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6670:
6671: END IF;
6672:
6665:
6666: IF G_DEBUG_MODE = 'Y' THEN
6667:
6668: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_retained_amount-----------' ;
6669: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6670:
6671: END IF;
6672:
6673: EXCEPTION
6691: x_msg_data := SUBSTR(SQLERRM,1,100);
6692:
6693: IF G_DEBUG_MODE = 'Y' THEN
6694:
6695: PA_DEBUG.g_err_stage := 'get_retained_amount:' || x_msg_data ;
6696: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6697:
6698: END IF;
6699:
6692:
6693: IF G_DEBUG_MODE = 'Y' THEN
6694:
6695: PA_DEBUG.g_err_stage := 'get_retained_amount:' || x_msg_data ;
6696: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6697:
6698: END IF;
6699:
6700: END get_retained_amount;
6745: x_msg_count := 0;
6746:
6747: IF G_DEBUG_MODE = 'Y' THEN
6748:
6749: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.sum_retained_amount-----------' ;
6750: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6751:
6752: END IF;
6753:
6746:
6747: IF G_DEBUG_MODE = 'Y' THEN
6748:
6749: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.sum_retained_amount-----------' ;
6750: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6751:
6752: END IF;
6753:
6754: FOR i in p_SetOfBookIdTab.first .. p_SetOfBookIdTab.Last LOOP
6783: END LOOP;
6784:
6785: IF G_DEBUG_MODE = 'Y' THEN
6786:
6787: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.sum_retained_amount-----------' ;
6788: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6789:
6790: END IF;
6791:
6784:
6785: IF G_DEBUG_MODE = 'Y' THEN
6786:
6787: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.sum_retained_amount-----------' ;
6788: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6789:
6790: END IF;
6791:
6792: EXCEPTION
6807: x_msg_data := SUBSTR(SQLERRM,1,100);
6808:
6809: IF G_DEBUG_MODE = 'Y' THEN
6810:
6811: PA_DEBUG.g_err_stage := 'sum_retained_amount:' || x_msg_data ;
6812: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6813:
6814: END IF;
6815:
6808:
6809: IF G_DEBUG_MODE = 'Y' THEN
6810:
6811: PA_DEBUG.g_err_stage := 'sum_retained_amount:' || x_msg_data ;
6812: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6813:
6814: END IF;
6815:
6816: END sum_retained_amount;
6884: the current retained amount is adjusted */
6885:
6886: IF G_DEBUG_MODE = 'Y' THEN
6887:
6888: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.adjust_appl_amount-----------' ;
6889: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6890:
6891: l_LogMsg := 'Sob Id:' || p_SobId ;
6892: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6885:
6886: IF G_DEBUG_MODE = 'Y' THEN
6887:
6888: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.adjust_appl_amount-----------' ;
6889: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6890:
6891: l_LogMsg := 'Sob Id:' || p_SobId ;
6892: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6893:
6959: ' PFC Retn loss Amt:' || round(x_retn_loss_amt_pfc,4) ;
6960:
6961: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6962:
6963: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.adjust_appl_amount-----------' ;
6964: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6965:
6966: END IF;
6967:
6960:
6961: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6962:
6963: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.adjust_appl_amount-----------' ;
6964: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6965:
6966: END IF;
6967:
6968: EXCEPTION
6983: x_msg_data := SUBSTR(SQLERRM,1,100);
6984:
6985: IF G_DEBUG_MODE = 'Y' THEN
6986:
6987: PA_DEBUG.g_err_stage := 'adjust_appl_amount:' || x_msg_data ;
6988: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6989:
6990: END IF;
6991:
6984:
6985: IF G_DEBUG_MODE = 'Y' THEN
6986:
6987: PA_DEBUG.g_err_stage := 'adjust_appl_amount:' || x_msg_data ;
6988: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6989:
6990: END IF;
6991:
6992: END adjust_appl_amount;
7183: x_msg_count := 0;
7184:
7185: IF G_DEBUG_MODE = 'Y' THEN
7186:
7187: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_sum_invoice_components-----------' ;
7188: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7189:
7190: END IF;
7191:
7184:
7185: IF G_DEBUG_MODE = 'Y' THEN
7186:
7187: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_sum_invoice_components-----------' ;
7188: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7189:
7190: END IF;
7191:
7192: /* This procedure gets sum of invoice lines for the given project/agreement id.
7460: END IF ;/* G_PRIMARY_ONLY */
7461:
7462: IF G_DEBUG_MODE = 'Y' THEN
7463:
7464: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_sum_invoice_components-----------' ;
7465: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7466:
7467: END IF;
7468:
7461:
7462: IF G_DEBUG_MODE = 'Y' THEN
7463:
7464: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_sum_invoice_components-----------' ;
7465: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7466:
7467: END IF;
7468:
7469: EXCEPTION
7484: x_msg_data := SUBSTR(SQLERRM,1,100);
7485:
7486: IF G_DEBUG_MODE = 'Y' THEN
7487:
7488: PA_DEBUG.g_err_stage := 'get_sum_invoice_components:' || x_msg_data ;
7489: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7490:
7491: END IF;
7492:
7485:
7486: IF G_DEBUG_MODE = 'Y' THEN
7487:
7488: PA_DEBUG.g_err_stage := 'get_sum_invoice_components:' || x_msg_data ;
7489: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7490:
7491: END IF;
7492:
7493: END get_sum_invoice_components;
7545: x_msg_count := 0;
7546:
7547: IF G_DEBUG_MODE = 'Y' THEN
7548:
7549: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.populate_invoice_amount-----------' ;
7550: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7551:
7552: END IF;
7553:
7546:
7547: IF G_DEBUG_MODE = 'Y' THEN
7548:
7549: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.populate_invoice_amount-----------' ;
7550: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7551:
7552: END IF;
7553:
7554: /* If project level funding G_InvCompTab will have only one record for a set of book id
7728: END IF;
7729:
7730: IF G_DEBUG_MODE = 'Y' THEN
7731:
7732: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.populate_invoice_amount-----------' ;
7733: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7734:
7735: END IF;
7736:
7729:
7730: IF G_DEBUG_MODE = 'Y' THEN
7731:
7732: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.populate_invoice_amount-----------' ;
7733: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7734:
7735: END IF;
7736:
7737: EXCEPTION
7752: x_msg_data := SUBSTR(SQLERRM,1,100);
7753:
7754: IF G_DEBUG_MODE = 'Y' THEN
7755:
7756: PA_DEBUG.g_err_stage := 'populate_invoice_amount:' || x_msg_data ;
7757: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7758:
7759: END IF;
7760:
7753:
7754: IF G_DEBUG_MODE = 'Y' THEN
7755:
7756: PA_DEBUG.g_err_stage := 'populate_invoice_amount:' || x_msg_data ;
7757: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7758:
7759: END IF;
7760:
7761: END populate_invoice_amount;
7865: x_msg_count := 0;
7866:
7867: IF G_DEBUG_MODE = 'Y' THEN
7868:
7869: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.compute_adjustment_amounts-----------' ;
7870: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7871:
7872: END IF;
7873:
7866:
7867: IF G_DEBUG_MODE = 'Y' THEN
7868:
7869: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.compute_adjustment_amounts-----------' ;
7870: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7871:
7872: END IF;
7873:
7874: SELECT NVL(org_id,-99) INTO l_OrgId FROM PA_IMPLEMENTATIONS;
8994: END LOOP; /* l_SobIdIdx loop */
8995:
8996: IF G_DEBUG_MODE = 'Y' THEN
8997:
8998: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.compute_adjustment_amounts-----------' ;
8999: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9000:
9001: END IF;
9002:
8995:
8996: IF G_DEBUG_MODE = 'Y' THEN
8997:
8998: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.compute_adjustment_amounts-----------' ;
8999: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9000:
9001: END IF;
9002:
9003: EXCEPTION
9017: x_msg_data := SUBSTR(SQLERRM,1,100);
9018:
9019: IF G_DEBUG_MODE = 'Y' THEN
9020:
9021: PA_DEBUG.g_err_stage := 'compute_adjustment_amounts:' || x_msg_data ;
9022: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9023:
9024: END IF;
9025:
9018:
9019: IF G_DEBUG_MODE = 'Y' THEN
9020:
9021: PA_DEBUG.g_err_stage := 'compute_adjustment_amounts:' || x_msg_data ;
9022: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9023:
9024: END IF;
9025:
9026: END compute_adjustment_amounts;
9062: x_msg_count := 0;
9063:
9064: IF G_DEBUG_MODE = 'Y' THEN
9065:
9066: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.insert_rejection_reason_spf-----------' ;
9067: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9068:
9069: END IF;
9070:
9063:
9064: IF G_DEBUG_MODE = 'Y' THEN
9065:
9066: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.insert_rejection_reason_spf-----------' ;
9067: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9068:
9069: END IF;
9070:
9071: UPDATE pa_summary_project_fundings
9102: END IF;
9103:
9104: IF G_DEBUG_MODE = 'Y' THEN
9105:
9106: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.insert_rejection_reason_spf-----------' ;
9107: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9108:
9109: END IF;
9110:
9103:
9104: IF G_DEBUG_MODE = 'Y' THEN
9105:
9106: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.insert_rejection_reason_spf-----------' ;
9107: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9108:
9109: END IF;
9110:
9111: EXCEPTION
9121: x_msg_data := SUBSTR(SQLERRM,1,100);
9122:
9123: IF G_DEBUG_MODE = 'Y' THEN
9124:
9125: PA_DEBUG.g_err_stage := 'insert_rejection_reason_spf:' || x_msg_data ;
9126: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9127:
9128: END IF;
9129:
9122:
9123: IF G_DEBUG_MODE = 'Y' THEN
9124:
9125: PA_DEBUG.g_err_stage := 'insert_rejection_reason_spf:' || x_msg_data ;
9126: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9127:
9128: END IF;
9129:
9130: END insert_rejection_reason_spf;
9184: x_msg_count := 0;
9185:
9186: IF G_DEBUG_MODE = 'Y' THEN
9187:
9188: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.create_adustment_line-----------' ;
9189: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9190:
9191: END IF;
9192:
9185:
9186: IF G_DEBUG_MODE = 'Y' THEN
9187:
9188: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.create_adustment_line-----------' ;
9189: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9190:
9191: END IF;
9192:
9193: /* Insert into table pa_project_fundings */
9452: END IF; /* ((G_PRIMARY_ONLY = 'N') OR ( G_RevalCompTab(l_SobId).projfunc_allocated_amount <> 0) */
9453:
9454: IF G_DEBUG_MODE = 'Y' THEN
9455:
9456: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.create_adustment_line-----------' ;
9457: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9458:
9459: END IF;
9460:
9453:
9454: IF G_DEBUG_MODE = 'Y' THEN
9455:
9456: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.create_adustment_line-----------' ;
9457: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9458:
9459: END IF;
9460:
9461: EXCEPTION
9476: x_msg_data := SUBSTR(SQLERRM,1,100);
9477:
9478: IF G_DEBUG_MODE = 'Y' THEN
9479:
9480: PA_DEBUG.g_err_stage := 'create_adjustment_line:' || x_msg_data ;
9481: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9482:
9483: END IF;
9484:
9477:
9478: IF G_DEBUG_MODE = 'Y' THEN
9479:
9480: PA_DEBUG.g_err_stage := 'create_adjustment_line:' || x_msg_data ;
9481: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9482:
9483: END IF;
9484:
9485: END create_adjustment_line;
9547: x_msg_count := 0;
9548:
9549: IF G_DEBUG_MODE = 'Y' THEN
9550:
9551: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.insert_event_record-----------' ;
9552: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9553:
9554: END IF;
9555:
9548:
9549: IF G_DEBUG_MODE = 'Y' THEN
9550:
9551: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.insert_event_record-----------' ;
9552: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9553:
9554: END IF;
9555:
9556: l_SobId := G_SET_OF_BOOKS_ID;
9686: END IF; /* ((p_bill_trans_rev_amount <> 0) OR (G_PRIMARY_ONLY = 'N')) */
9687:
9688: IF G_DEBUG_MODE = 'Y' THEN
9689:
9690: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.insert_event_record-----------' ;
9691: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9692:
9693: END IF;
9694:
9687:
9688: IF G_DEBUG_MODE = 'Y' THEN
9689:
9690: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.insert_event_record-----------' ;
9691: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9692:
9693: END IF;
9694:
9695: EXCEPTION
9709: x_msg_data := SUBSTR(SQLERRM,1,100);
9710:
9711: IF G_DEBUG_MODE = 'Y' THEN
9712:
9713: PA_DEBUG.g_err_stage := 'insert_event_record:' || x_msg_data ;
9714: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9715:
9716: END IF;
9717:
9710:
9711: IF G_DEBUG_MODE = 'Y' THEN
9712:
9713: PA_DEBUG.g_err_stage := 'insert_event_record:' || x_msg_data ;
9714: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9715:
9716: END IF;
9717:
9718: END insert_event_record;
9761: x_msg_count := 0;
9762:
9763: IF G_DEBUG_MODE = 'Y' THEN
9764:
9765: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_ar_amounts-----------' ;
9766: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9767:
9768: END IF;
9769:
9762:
9763: IF G_DEBUG_MODE = 'Y' THEN
9764:
9765: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_ar_amounts-----------' ;
9766: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9767:
9768: END IF;
9769:
9770: x_ArAmtsTab := l_ArAmtsTab;
9866: x_ArAmtsTab := l_ArAmtsTab;
9867:
9868: IF G_DEBUG_MODE = 'Y' THEN
9869:
9870: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_ar_amounts-----------' ;
9871: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9872:
9873: END IF;
9874:
9867:
9868: IF G_DEBUG_MODE = 'Y' THEN
9869:
9870: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_ar_amounts-----------' ;
9871: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9872:
9873: END IF;
9874:
9875: EXCEPTION
9889: x_msg_data := SUBSTR(SQLERRM,1,100);
9890:
9891: IF G_DEBUG_MODE = 'Y' THEN
9892:
9893: PA_DEBUG.g_err_stage := 'get_ar_amounts:' || x_msg_data ;
9894: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9895:
9896: END IF;
9897:
9890:
9891: IF G_DEBUG_MODE = 'Y' THEN
9892:
9893: PA_DEBUG.g_err_stage := 'get_ar_amounts:' || x_msg_data ;
9894: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9895:
9896: END IF;
9897:
9898: END get_ar_amounts;
9929: x_msg_count := 0;
9930:
9931: IF G_DEBUG_MODE = 'Y' THEN
9932:
9933: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.clear_distribution_warnings-----------' ;
9934: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9935:
9936: END IF;
9937:
9930:
9931: IF G_DEBUG_MODE = 'Y' THEN
9932:
9933: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.clear_distribution_warnings-----------' ;
9934: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9935:
9936: END IF;
9937:
9938: DELETE from pa_distribution_warnings
9941: COMMIT;
9942:
9943: IF G_DEBUG_MODE = 'Y' THEN
9944:
9945: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.clear_distribution_warnings-----------' ;
9946: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9947:
9948: END IF;
9949:
9942:
9943: IF G_DEBUG_MODE = 'Y' THEN
9944:
9945: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.clear_distribution_warnings-----------' ;
9946: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9947:
9948: END IF;
9949:
9950: EXCEPTION
9960: x_msg_data := SUBSTR(SQLERRM,1,100);
9961:
9962: IF G_DEBUG_MODE = 'Y' THEN
9963:
9964: PA_DEBUG.g_err_stage := 'clear_distribution_warnings:' || x_msg_data ;
9965: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9966:
9967: END IF;
9968:
9961:
9962: IF G_DEBUG_MODE = 'Y' THEN
9963:
9964: PA_DEBUG.g_err_stage := 'clear_distribution_warnings:' || x_msg_data ;
9965: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9966:
9967: END IF;
9968:
9969: END clear_distribution_warnings;
10009: x_msg_count := 0;
10010:
10011: IF G_DEBUG_MODE = 'Y' THEN
10012:
10013: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.check_accrued_billed_level-----------' ;
10014: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10015:
10016: END IF;
10017:
10010:
10011: IF G_DEBUG_MODE = 'Y' THEN
10012:
10013: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.check_accrued_billed_level-----------' ;
10014: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10015:
10016: END IF;
10017:
10018: l_SobId := G_SET_OF_BOOKS_ID;
10088: END IF;
10089:
10090: IF G_DEBUG_MODE = 'Y' THEN
10091:
10092: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.check_accrued_billed_level-----------' ;
10093: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10094:
10095: END IF;
10096:
10089:
10090: IF G_DEBUG_MODE = 'Y' THEN
10091:
10092: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.check_accrued_billed_level-----------' ;
10093: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10094:
10095: END IF;
10096:
10097: EXCEPTION
10112: x_msg_data := SUBSTR(SQLERRM,1,100);
10113:
10114: IF G_DEBUG_MODE = 'Y' THEN
10115:
10116: PA_DEBUG.g_err_stage := 'check_accrued_billed_level:' || x_msg_data ;
10117: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10118:
10119: END IF;
10120:
10113:
10114: IF G_DEBUG_MODE = 'Y' THEN
10115:
10116: PA_DEBUG.g_err_stage := 'check_accrued_billed_level:' || x_msg_data ;
10117: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10118:
10119: END IF;
10120:
10121: END check_accrued_billed_level;
10184: x_msg_count := 0;
10185:
10186: IF G_DEBUG_MODE = 'Y' THEN
10187:
10188: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_delete_projects-----------' ;
10189: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10190:
10191: l_LogMsg := 'From prj:' || p_from_proj_number ||
10192: ' To prj:' || p_to_proj_number ||
10185:
10186: IF G_DEBUG_MODE = 'Y' THEN
10187:
10188: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_delete_projects-----------' ;
10189: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10190:
10191: l_LogMsg := 'From prj:' || p_from_proj_number ||
10192: ' To prj:' || p_to_proj_number ||
10193: ' Proj type:' || p_project_type_id ;
10228: END LOOP;
10229:
10230: IF G_DEBUG_MODE = 'Y' THEN
10231:
10232: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_delete_projects-----------' ;
10233: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10234:
10235: END IF;
10236:
10229:
10230: IF G_DEBUG_MODE = 'Y' THEN
10231:
10232: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_delete_projects-----------' ;
10233: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10234:
10235: END IF;
10236:
10237: EXCEPTION
10252: x_msg_data := SUBSTR(SQLERRM,1,100);
10253:
10254: IF G_DEBUG_MODE = 'Y' THEN
10255:
10256: PA_DEBUG.g_err_stage := 'get_reval_projects:' || x_msg_data ;
10257: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10258:
10259: END IF;
10260:
10253:
10254: IF G_DEBUG_MODE = 'Y' THEN
10255:
10256: PA_DEBUG.g_err_stage := 'get_reval_projects:' || x_msg_data ;
10257: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10258:
10259: END IF;
10260:
10261: END get_delete_projects;