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 */
968: /* end of comment for bug Bug 8874394 */
969:
970: IF G_DEBUG_MODE = 'Y' THEN
971:
972: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Check_Unrel_invoice_revenue-----------' ;
973: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
974:
975: END IF;
976:
969:
970: IF G_DEBUG_MODE = 'Y' THEN
971:
972: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Check_Unrel_invoice_revenue-----------' ;
973: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
974:
975: END IF;
976:
977: EXCEPTION
982: x_msg_data := SUBSTR(SQLERRM,1,100);
983:
984: IF G_DEBUG_MODE = 'Y' THEN
985:
986: PA_DEBUG.g_err_stage := 'Check_Unrel_invoice_revenue:' || x_msg_data ;
987: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
988:
989: END IF;
990:
983:
984: IF G_DEBUG_MODE = 'Y' THEN
985:
986: PA_DEBUG.g_err_stage := 'Check_Unrel_invoice_revenue:' || x_msg_data ;
987: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
988:
989: END IF;
990:
991: END Check_Unrel_invoice_revenue;
1011: BEGIN
1012:
1013: IF G_DEBUG_MODE = 'Y' THEN
1014:
1015: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Check_reval_unbaseline_funds-----------' ;
1016: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1017:
1018: END IF;
1019:
1012:
1013: IF G_DEBUG_MODE = 'Y' THEN
1014:
1015: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Check_reval_unbaseline_funds-----------' ;
1016: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1017:
1018: END IF;
1019:
1020: SELECT 'T' INTO l_ExistFlag
1026: AND budget_type_code = 'DRAFT');
1027:
1028: IF G_DEBUG_MODE = 'Y' THEN
1029:
1030: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Check_reval_unbaseline_funds-----------' ;
1031: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1032:
1033: END IF;
1034:
1027:
1028: IF G_DEBUG_MODE = 'Y' THEN
1029:
1030: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Check_reval_unbaseline_funds-----------' ;
1031: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1032:
1033: END IF;
1034:
1035: RETURN l_ExistFlag;
1098: x_msg_count := 0;
1099:
1100: IF G_DEBUG_MODE = 'Y' THEN
1101:
1102: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Delete_Unbaselined_Adjmts-----------' ;
1103: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1104:
1105: END IF;
1106:
1099:
1100: IF G_DEBUG_MODE = 'Y' THEN
1101:
1102: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Delete_Unbaselined_Adjmts-----------' ;
1103: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1104:
1105: END IF;
1106:
1107: OPEN fund_recs;
1200: CLOSE fund_recs;
1201:
1202: IF G_DEBUG_MODE = 'Y' THEN
1203:
1204: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Delete_Unbaselined_Adjmts-----------' ;
1205: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1206:
1207: END IF;
1208:
1201:
1202: IF G_DEBUG_MODE = 'Y' THEN
1203:
1204: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Delete_Unbaselined_Adjmts-----------' ;
1205: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1206:
1207: END IF;
1208:
1209: EXCEPTION
1224: x_msg_data := SUBSTR(SQLERRM,1,100);
1225:
1226: IF G_DEBUG_MODE = 'Y' THEN
1227:
1228: PA_DEBUG.g_err_stage := 'Delete_Unbaselined_Adjmts:' || x_msg_data ;
1229: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1230:
1231: END IF;
1232:
1225:
1226: IF G_DEBUG_MODE = 'Y' THEN
1227:
1228: PA_DEBUG.g_err_stage := 'Delete_Unbaselined_Adjmts:' || x_msg_data ;
1229: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1230:
1231: END IF;
1232:
1233: END Delete_Unbaselined_Adjmts;
1276: x_msg_count := 0;
1277:
1278: IF G_DEBUG_MODE = 'Y' THEN
1279:
1280: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Insert_distribution_warnings-----------' ;
1281: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1282:
1283: l_LogMsg := 'Reason :' || p_reason_code;
1284: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
1277:
1278: IF G_DEBUG_MODE = 'Y' THEN
1279:
1280: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.Insert_distribution_warnings-----------' ;
1281: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1282:
1283: l_LogMsg := 'Reason :' || p_reason_code;
1284: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
1285:
1307: );
1308:
1309: IF G_DEBUG_MODE = 'Y' THEN
1310:
1311: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Insert_distribution_warnings-----------' ;
1312: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1313:
1314: END IF;
1315:
1308:
1309: IF G_DEBUG_MODE = 'Y' THEN
1310:
1311: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.Insert_distribution_warnings-----------' ;
1312: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1313:
1314: END IF;
1315:
1316: EXCEPTION
1331: x_msg_data := SUBSTR(SQLERRM,1,100);
1332:
1333: IF G_DEBUG_MODE = 'Y' THEN
1334:
1335: PA_DEBUG.g_err_stage := 'Insert_distribution_warnings:' || x_msg_data ;
1336: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1337:
1338: END IF;
1339:
1332:
1333: IF G_DEBUG_MODE = 'Y' THEN
1334:
1335: PA_DEBUG.g_err_stage := 'Insert_distribution_warnings:' || x_msg_data ;
1336: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1337:
1338: END IF;
1339:
1340: END Insert_distribution_warnings;
1350: l_debug_mode VARCHAR2(10);
1351:
1352: BEGIN
1353:
1354: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1355: l_debug_mode := NVL(l_debug_mode, 'N');
1356: G_DEBUG_MODE := l_debug_mode;
1357:
1358: IF G_DEBUG_MODE = 'Y' THEN
1356: G_DEBUG_MODE := l_debug_mode;
1357:
1358: IF G_DEBUG_MODE = 'Y' THEN
1359:
1360: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_UTIL.initialize-----------';
1361: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1362:
1363: END IF;
1364:
1357:
1358: IF G_DEBUG_MODE = 'Y' THEN
1359:
1360: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_UTIL.initialize-----------';
1361: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1362:
1363: END IF;
1364:
1365: G_LAST_UPDATE_LOGIN := fnd_global.login_id;
1370: G_CREATED_BY := fnd_global.user_id;
1371:
1372: IF G_DEBUG_MODE = 'Y' THEN
1373:
1374: PA_DEBUG.Set_Curr_Function( p_function => 'Funding Revaluation',
1375: p_debug_mode => l_debug_mode );
1376:
1377: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_UTIL.initialize-----------';
1378: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1373:
1374: PA_DEBUG.Set_Curr_Function( p_function => 'Funding Revaluation',
1375: p_debug_mode => l_debug_mode );
1376:
1377: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_UTIL.initialize-----------';
1378: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1379:
1380: END IF;
1381:
1374: PA_DEBUG.Set_Curr_Function( p_function => 'Funding Revaluation',
1375: p_debug_mode => l_debug_mode );
1376:
1377: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_UTIL.initialize-----------';
1378: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1379:
1380: END IF;
1381:
1382: END initialize;
1465: x_msg_count := 0;
1466:
1467: IF G_DEBUG_MODE = 'Y' THEN
1468:
1469: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_reval_projects-----------' ;
1470: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1471:
1472: l_LogMsg := 'From prj:' || p_from_proj_number ||
1473: ' To prj:' || p_to_proj_number ||
1466:
1467: IF G_DEBUG_MODE = 'Y' THEN
1468:
1469: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_reval_projects-----------' ;
1470: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1471:
1472: l_LogMsg := 'From prj:' || p_from_proj_number ||
1473: ' To prj:' || p_to_proj_number ||
1474: ' Proj type:' || p_project_type_id ;
1649: END LOOP ; /* Open_projects*/
1650:
1651: IF G_DEBUG_MODE = 'Y' THEN
1652:
1653: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_reval_projects-----------' ;
1654: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1655:
1656: END IF;
1657:
1650:
1651: IF G_DEBUG_MODE = 'Y' THEN
1652:
1653: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_reval_projects-----------' ;
1654: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1655:
1656: END IF;
1657:
1658:
1674: x_msg_data := SUBSTR(SQLERRM,1,100);
1675:
1676: IF G_DEBUG_MODE = 'Y' THEN
1677:
1678: PA_DEBUG.g_err_stage := 'get_reval_projects:' || x_msg_data ;
1679: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1680:
1681: END IF;
1682:
1675:
1676: IF G_DEBUG_MODE = 'Y' THEN
1677:
1678: PA_DEBUG.g_err_stage := 'get_reval_projects:' || x_msg_data ;
1679: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1680:
1681: END IF;
1682:
1683: END get_reval_projects;
1833: x_msg_count := 0;
1834:
1835: IF G_DEBUG_MODE = 'Y' THEN
1836:
1837: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_spf_lines-----------' ;
1838: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1839:
1840: END IF;
1841:
1834:
1835: IF G_DEBUG_MODE = 'Y' THEN
1836:
1837: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_spf_lines-----------' ;
1838: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
1839:
1840: END IF;
1841:
1842: /* When only primary set of book id is processed each SPF is unique and processing
2134: END IF;
2135:
2136: IF G_DEBUG_MODE = 'Y' THEN
2137:
2138: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_spf_lines-----------' ;
2139: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2140:
2141: END IF;
2142:
2135:
2136: IF G_DEBUG_MODE = 'Y' THEN
2137:
2138: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_spf_lines-----------' ;
2139: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2140:
2141: END IF;
2142:
2143: EXCEPTION
2158: x_msg_data := SUBSTR(SQLERRM,1,100);
2159:
2160: IF G_DEBUG_MODE = 'Y' THEN
2161:
2162: PA_DEBUG.g_err_stage := 'get_spf_lines:' || x_msg_data ;
2163: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2164:
2165: END IF;
2166:
2159:
2160: IF G_DEBUG_MODE = 'Y' THEN
2161:
2162: PA_DEBUG.g_err_stage := 'get_spf_lines:' || x_msg_data ;
2163: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2164:
2165: END IF;
2166:
2167: END get_spf_lines;
2204: x_msg_count := 0;
2205:
2206: IF G_DEBUG_MODE = 'Y' THEN
2207:
2208: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.process_spf_lines-----------' ;
2209: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2210:
2211: l_LogMsg := 'Agreement Id:' || p_agreement_id ||
2212: ' Task Id:' || p_task_id ||
2205:
2206: IF G_DEBUG_MODE = 'Y' THEN
2207:
2208: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.process_spf_lines-----------' ;
2209: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2210:
2211: l_LogMsg := 'Agreement Id:' || p_agreement_id ||
2212: ' Task Id:' || p_task_id ||
2213: ' Retention Level:' || p_retention_level_code;
2426: END IF;
2427:
2428: IF G_DEBUG_MODE = 'Y' THEN
2429:
2430: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.process_spf_lines-----------' ;
2431: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2432:
2433: END IF;
2434:
2427:
2428: IF G_DEBUG_MODE = 'Y' THEN
2429:
2430: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.process_spf_lines-----------' ;
2431: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2432:
2433: END IF;
2434:
2435: EXCEPTION
2450: x_msg_data := SUBSTR(SQLERRM,1,100);
2451:
2452: IF G_DEBUG_MODE = 'Y' THEN
2453:
2454: PA_DEBUG.g_err_stage := 'process_spf_lines:' || x_msg_data ;
2455: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2456:
2457: END IF;
2458:
2451:
2452: IF G_DEBUG_MODE = 'Y' THEN
2453:
2454: PA_DEBUG.g_err_stage := 'process_spf_lines:' || x_msg_data ;
2455: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2456:
2457: END IF;
2458:
2459: END process_spf_lines;
2644: x_msg_count := 0;
2645:
2646: IF G_DEBUG_MODE = 'Y' THEN
2647:
2648: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_retn_appl_amount-----------' ;
2649: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2650:
2651: END IF;
2652:
2645:
2646: IF G_DEBUG_MODE = 'Y' THEN
2647:
2648: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_retn_appl_amount-----------' ;
2649: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2650:
2651: END IF;
2652:
2653: /* When only primary set of book id is processed each invoice is unique and processing
2901: END IF;
2902:
2903: IF G_DEBUG_MODE = 'Y' THEN
2904:
2905: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_retn_appl_amount-----------' ;
2906: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2907:
2908: END IF;
2909:
2902:
2903: IF G_DEBUG_MODE = 'Y' THEN
2904:
2905: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_retn_appl_amount-----------' ;
2906: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2907:
2908: END IF;
2909:
2910: EXCEPTION
2925: x_msg_data := SUBSTR(SQLERRM,1,100);
2926:
2927: IF G_DEBUG_MODE = 'Y' THEN
2928:
2929: PA_DEBUG.g_err_stage := 'get_retn_appl_amount:' || x_msg_data ;
2930: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2931:
2932: END IF;
2933:
2926:
2927: IF G_DEBUG_MODE = 'Y' THEN
2928:
2929: PA_DEBUG.g_err_stage := 'get_retn_appl_amount:' || x_msg_data ;
2930: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2931:
2932: END IF;
2933:
2934: END get_retn_appl_amount;
2988: x_msg_count := 0;
2989:
2990: IF G_DEBUG_MODE = 'Y' THEN
2991:
2992: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.process_retention_invoice-----------' ;
2993: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2994:
2995: END IF;
2996:
2989:
2990: IF G_DEBUG_MODE = 'Y' THEN
2991:
2992: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.process_retention_invoice-----------' ;
2993: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
2994:
2995: END IF;
2996:
2997: /* For the given retention invoice (System Reference )this procedure will return
3208: END LOOP;
3209:
3210: IF G_DEBUG_MODE = 'Y' THEN
3211:
3212: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.process_retention_invoices-----------' ;
3213: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
3214:
3215: END IF;
3216:
3209:
3210: IF G_DEBUG_MODE = 'Y' THEN
3211:
3212: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.process_retention_invoices-----------' ;
3213: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
3214:
3215: END IF;
3216:
3217: EXCEPTION
3233: G_RetnApplAmtTab(l_SobId).error_status := x_msg_data;
3234:
3235: IF G_DEBUG_MODE = 'Y' THEN
3236:
3237: PA_DEBUG.g_err_stage := 'process_retention_invoices:' || x_msg_data ;
3238: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
3239:
3240: END IF;
3241:
3234:
3235: IF G_DEBUG_MODE = 'Y' THEN
3236:
3237: PA_DEBUG.g_err_stage := 'process_retention_invoices:' || x_msg_data ;
3238: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
3239:
3240: END IF;
3241:
3242: END process_retention_invoices ;
3863: x_msg_count := 0;
3864:
3865: IF G_DEBUG_MODE = 'Y' THEN
3866:
3867: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_invoice_components-----------' ;
3868: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
3869:
3870: END IF;
3871:
3864:
3865: IF G_DEBUG_MODE = 'Y' THEN
3866:
3867: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_invoice_components-----------' ;
3868: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
3869:
3870: END IF;
3871:
3872: /* This procedure get invoice lines for the given project/agreement id.
4542: END IF ;/* G_PRIMARY_ONLY */
4543:
4544: IF G_DEBUG_MODE = 'Y' THEN
4545:
4546: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_invoice_components-----------' ;
4547: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
4548:
4549: END IF;
4550:
4543:
4544: IF G_DEBUG_MODE = 'Y' THEN
4545:
4546: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_invoice_components-----------' ;
4547: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
4548:
4549: END IF;
4550:
4551: EXCEPTION
4566: x_msg_data := SUBSTR(SQLERRM,1,100);
4567:
4568: IF G_DEBUG_MODE = 'Y' THEN
4569:
4570: PA_DEBUG.g_err_stage := 'get_invoice_components:' || x_msg_data ;
4571: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
4572:
4573: END IF;
4574:
4567:
4568: IF G_DEBUG_MODE = 'Y' THEN
4569:
4570: PA_DEBUG.g_err_stage := 'get_invoice_components:' || x_msg_data ;
4571: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
4572:
4573: END IF;
4574:
4575: END get_invoice_components;
4704:
4705:
4706: IF G_DEBUG_MODE = 'Y' THEN
4707:
4708: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.derive_reval_components-----------' ;
4709: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
4710:
4711: END IF;
4712:
4705:
4706: IF G_DEBUG_MODE = 'Y' THEN
4707:
4708: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.derive_reval_components-----------' ;
4709: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
4710:
4711: END IF;
4712:
4713: i_ProjfuncRateType := nvl(G_RATE_TYPE, G_ProjLvlGlobRec.projfunc_bil_rate_type); /* Added for Bug 3221279 */
5812: END IF; /* project level funding */
5813:
5814: IF G_DEBUG_MODE = 'Y' THEN
5815:
5816: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.derive_reval_components-----------' ;
5817: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
5818:
5819: END IF;
5820:
5813:
5814: IF G_DEBUG_MODE = 'Y' THEN
5815:
5816: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.derive_reval_components-----------' ;
5817: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
5818:
5819: END IF;
5820:
5821: EXCEPTION
5836: x_msg_data := SUBSTR(SQLERRM,1,100);
5837:
5838: IF G_DEBUG_MODE = 'Y' THEN
5839:
5840: PA_DEBUG.g_err_stage := 'derive_reval_components:' || x_msg_data ;
5841: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
5842:
5843: END IF;
5844:
5837:
5838: IF G_DEBUG_MODE = 'Y' THEN
5839:
5840: PA_DEBUG.g_err_stage := 'derive_reval_components:' || x_msg_data ;
5841: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
5842:
5843: END IF;
5844:
5845: END derive_reval_components;
5947: x_msg_count := 0;
5948:
5949: IF G_DEBUG_MODE = 'Y' THEN
5950:
5951: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_invoice_total-----------' ;
5952: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
5953:
5954: END IF;
5955:
5948:
5949: IF G_DEBUG_MODE = 'Y' THEN
5950:
5951: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_invoice_total-----------' ;
5952: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
5953:
5954: END IF;
5955:
5956: IF G_PRIMARY_ONLY = 'Y' THEN
6069: END IF;
6070:
6071: IF G_DEBUG_MODE = 'Y' THEN
6072:
6073: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_invoice_total-----------' ;
6074: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6075:
6076: END IF;
6077:
6070:
6071: IF G_DEBUG_MODE = 'Y' THEN
6072:
6073: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_invoice_total-----------' ;
6074: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6075:
6076: END IF;
6077:
6078: EXCEPTION
6093: x_msg_data := SUBSTR(SQLERRM,1,100);
6094:
6095: IF G_DEBUG_MODE = 'Y' THEN
6096:
6097: PA_DEBUG.g_err_stage := 'get_invoice_total:' || x_msg_data ;
6098: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6099:
6100: END IF;
6101:
6094:
6095: IF G_DEBUG_MODE = 'Y' THEN
6096:
6097: PA_DEBUG.g_err_stage := 'get_invoice_total:' || x_msg_data ;
6098: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6099:
6100: END IF;
6101:
6102: END get_invoice_total;
6323: x_msg_count := 0;
6324:
6325: IF G_DEBUG_MODE = 'Y' THEN
6326:
6327: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_retained_amount-----------' ;
6328: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6329:
6330: l_LogMsg := 'Project Id:' || p_project_id ||
6331: ' Task Id:' || p_task_id ||
6324:
6325: IF G_DEBUG_MODE = 'Y' THEN
6326:
6327: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_retained_amount-----------' ;
6328: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6329:
6330: l_LogMsg := 'Project Id:' || p_project_id ||
6331: ' Task Id:' || p_task_id ||
6332: ' Draft Inv Num:' || p_draft_inv_num ;
6684: x_RetainedAmtTab := l_RetainedAmtTab;
6685:
6686: IF G_DEBUG_MODE = 'Y' THEN
6687:
6688: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_retained_amount-----------' ;
6689: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6690:
6691: END IF;
6692:
6685:
6686: IF G_DEBUG_MODE = 'Y' THEN
6687:
6688: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_retained_amount-----------' ;
6689: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6690:
6691: END IF;
6692:
6693: EXCEPTION
6711: x_msg_data := SUBSTR(SQLERRM,1,100);
6712:
6713: IF G_DEBUG_MODE = 'Y' THEN
6714:
6715: PA_DEBUG.g_err_stage := 'get_retained_amount:' || x_msg_data ;
6716: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6717:
6718: END IF;
6719:
6712:
6713: IF G_DEBUG_MODE = 'Y' THEN
6714:
6715: PA_DEBUG.g_err_stage := 'get_retained_amount:' || x_msg_data ;
6716: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6717:
6718: END IF;
6719:
6720: END get_retained_amount;
6765: x_msg_count := 0;
6766:
6767: IF G_DEBUG_MODE = 'Y' THEN
6768:
6769: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.sum_retained_amount-----------' ;
6770: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6771:
6772: END IF;
6773:
6766:
6767: IF G_DEBUG_MODE = 'Y' THEN
6768:
6769: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.sum_retained_amount-----------' ;
6770: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6771:
6772: END IF;
6773:
6774: FOR i in p_SetOfBookIdTab.first .. p_SetOfBookIdTab.Last LOOP
6803: END LOOP;
6804:
6805: IF G_DEBUG_MODE = 'Y' THEN
6806:
6807: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.sum_retained_amount-----------' ;
6808: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6809:
6810: END IF;
6811:
6804:
6805: IF G_DEBUG_MODE = 'Y' THEN
6806:
6807: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.sum_retained_amount-----------' ;
6808: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6809:
6810: END IF;
6811:
6812: EXCEPTION
6827: x_msg_data := SUBSTR(SQLERRM,1,100);
6828:
6829: IF G_DEBUG_MODE = 'Y' THEN
6830:
6831: PA_DEBUG.g_err_stage := 'sum_retained_amount:' || x_msg_data ;
6832: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6833:
6834: END IF;
6835:
6828:
6829: IF G_DEBUG_MODE = 'Y' THEN
6830:
6831: PA_DEBUG.g_err_stage := 'sum_retained_amount:' || x_msg_data ;
6832: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6833:
6834: END IF;
6835:
6836: END sum_retained_amount;
6904: the current retained amount is adjusted */
6905:
6906: IF G_DEBUG_MODE = 'Y' THEN
6907:
6908: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.adjust_appl_amount-----------' ;
6909: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6910:
6911: l_LogMsg := 'Sob Id:' || p_SobId ;
6912: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6905:
6906: IF G_DEBUG_MODE = 'Y' THEN
6907:
6908: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.adjust_appl_amount-----------' ;
6909: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6910:
6911: l_LogMsg := 'Sob Id:' || p_SobId ;
6912: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6913:
6979: ' PFC Retn loss Amt:' || round(x_retn_loss_amt_pfc,4) ;
6980:
6981: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6982:
6983: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.adjust_appl_amount-----------' ;
6984: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6985:
6986: END IF;
6987:
6980:
6981: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6982:
6983: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.adjust_appl_amount-----------' ;
6984: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
6985:
6986: END IF;
6987:
6988: EXCEPTION
7003: x_msg_data := SUBSTR(SQLERRM,1,100);
7004:
7005: IF G_DEBUG_MODE = 'Y' THEN
7006:
7007: PA_DEBUG.g_err_stage := 'adjust_appl_amount:' || x_msg_data ;
7008: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7009:
7010: END IF;
7011:
7004:
7005: IF G_DEBUG_MODE = 'Y' THEN
7006:
7007: PA_DEBUG.g_err_stage := 'adjust_appl_amount:' || x_msg_data ;
7008: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7009:
7010: END IF;
7011:
7012: END adjust_appl_amount;
7205: x_msg_count := 0;
7206:
7207: IF G_DEBUG_MODE = 'Y' THEN
7208:
7209: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_sum_invoice_components-----------' ;
7210: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7211:
7212: END IF;
7213:
7206:
7207: IF G_DEBUG_MODE = 'Y' THEN
7208:
7209: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_sum_invoice_components-----------' ;
7210: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7211:
7212: END IF;
7213:
7214: /* This procedure gets sum of invoice lines for the given project/agreement id.
7482: END IF ;/* G_PRIMARY_ONLY */
7483:
7484: IF G_DEBUG_MODE = 'Y' THEN
7485:
7486: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_sum_invoice_components-----------' ;
7487: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7488:
7489: END IF;
7490:
7483:
7484: IF G_DEBUG_MODE = 'Y' THEN
7485:
7486: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_sum_invoice_components-----------' ;
7487: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7488:
7489: END IF;
7490:
7491: EXCEPTION
7506: x_msg_data := SUBSTR(SQLERRM,1,100);
7507:
7508: IF G_DEBUG_MODE = 'Y' THEN
7509:
7510: PA_DEBUG.g_err_stage := 'get_sum_invoice_components:' || x_msg_data ;
7511: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7512:
7513: END IF;
7514:
7507:
7508: IF G_DEBUG_MODE = 'Y' THEN
7509:
7510: PA_DEBUG.g_err_stage := 'get_sum_invoice_components:' || x_msg_data ;
7511: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7512:
7513: END IF;
7514:
7515: END get_sum_invoice_components;
7567: x_msg_count := 0;
7568:
7569: IF G_DEBUG_MODE = 'Y' THEN
7570:
7571: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.populate_invoice_amount-----------' ;
7572: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7573:
7574: END IF;
7575:
7568:
7569: IF G_DEBUG_MODE = 'Y' THEN
7570:
7571: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.populate_invoice_amount-----------' ;
7572: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7573:
7574: END IF;
7575:
7576: /* If project level funding G_InvCompTab will have only one record for a set of book id
7750: END IF;
7751:
7752: IF G_DEBUG_MODE = 'Y' THEN
7753:
7754: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.populate_invoice_amount-----------' ;
7755: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7756:
7757: END IF;
7758:
7751:
7752: IF G_DEBUG_MODE = 'Y' THEN
7753:
7754: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.populate_invoice_amount-----------' ;
7755: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7756:
7757: END IF;
7758:
7759: EXCEPTION
7774: x_msg_data := SUBSTR(SQLERRM,1,100);
7775:
7776: IF G_DEBUG_MODE = 'Y' THEN
7777:
7778: PA_DEBUG.g_err_stage := 'populate_invoice_amount:' || x_msg_data ;
7779: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7780:
7781: END IF;
7782:
7775:
7776: IF G_DEBUG_MODE = 'Y' THEN
7777:
7778: PA_DEBUG.g_err_stage := 'populate_invoice_amount:' || x_msg_data ;
7779: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7780:
7781: END IF;
7782:
7783: END populate_invoice_amount;
7888: x_msg_count := 0;
7889:
7890: IF G_DEBUG_MODE = 'Y' THEN
7891:
7892: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.compute_adjustment_amounts-----------' ;
7893: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7894:
7895: END IF;
7896:
7889:
7890: IF G_DEBUG_MODE = 'Y' THEN
7891:
7892: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.compute_adjustment_amounts-----------' ;
7893: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
7894:
7895: END IF;
7896:
7897: SELECT NVL(org_id,-99) INTO l_OrgId FROM PA_IMPLEMENTATIONS;
9027: END LOOP; /* l_SobIdIdx loop */
9028:
9029: IF G_DEBUG_MODE = 'Y' THEN
9030:
9031: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.compute_adjustment_amounts-----------' ;
9032: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9033:
9034: END IF;
9035:
9028:
9029: IF G_DEBUG_MODE = 'Y' THEN
9030:
9031: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.compute_adjustment_amounts-----------' ;
9032: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9033:
9034: END IF;
9035:
9036: EXCEPTION
9050: x_msg_data := SUBSTR(SQLERRM,1,100);
9051:
9052: IF G_DEBUG_MODE = 'Y' THEN
9053:
9054: PA_DEBUG.g_err_stage := 'compute_adjustment_amounts:' || x_msg_data ;
9055: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9056:
9057: END IF;
9058:
9051:
9052: IF G_DEBUG_MODE = 'Y' THEN
9053:
9054: PA_DEBUG.g_err_stage := 'compute_adjustment_amounts:' || x_msg_data ;
9055: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9056:
9057: END IF;
9058:
9059: END compute_adjustment_amounts;
9095: x_msg_count := 0;
9096:
9097: IF G_DEBUG_MODE = 'Y' THEN
9098:
9099: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.insert_rejection_reason_spf-----------' ;
9100: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9101:
9102: END IF;
9103:
9096:
9097: IF G_DEBUG_MODE = 'Y' THEN
9098:
9099: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.insert_rejection_reason_spf-----------' ;
9100: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9101:
9102: END IF;
9103:
9104: UPDATE pa_summary_project_fundings
9135: END IF;
9136:
9137: IF G_DEBUG_MODE = 'Y' THEN
9138:
9139: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.insert_rejection_reason_spf-----------' ;
9140: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9141:
9142: END IF;
9143:
9136:
9137: IF G_DEBUG_MODE = 'Y' THEN
9138:
9139: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.insert_rejection_reason_spf-----------' ;
9140: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9141:
9142: END IF;
9143:
9144: EXCEPTION
9154: x_msg_data := SUBSTR(SQLERRM,1,100);
9155:
9156: IF G_DEBUG_MODE = 'Y' THEN
9157:
9158: PA_DEBUG.g_err_stage := 'insert_rejection_reason_spf:' || x_msg_data ;
9159: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9160:
9161: END IF;
9162:
9155:
9156: IF G_DEBUG_MODE = 'Y' THEN
9157:
9158: PA_DEBUG.g_err_stage := 'insert_rejection_reason_spf:' || x_msg_data ;
9159: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9160:
9161: END IF;
9162:
9163: END insert_rejection_reason_spf;
9217: x_msg_count := 0;
9218:
9219: IF G_DEBUG_MODE = 'Y' THEN
9220:
9221: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.create_adustment_line-----------' ;
9222: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9223:
9224: END IF;
9225:
9218:
9219: IF G_DEBUG_MODE = 'Y' THEN
9220:
9221: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.create_adustment_line-----------' ;
9222: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9223:
9224: END IF;
9225:
9226: /* Insert into table pa_project_fundings */
9485: END IF; /* ((G_PRIMARY_ONLY = 'N') OR ( G_RevalCompTab(l_SobId).projfunc_allocated_amount <> 0) */
9486:
9487: IF G_DEBUG_MODE = 'Y' THEN
9488:
9489: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.create_adustment_line-----------' ;
9490: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9491:
9492: END IF;
9493:
9486:
9487: IF G_DEBUG_MODE = 'Y' THEN
9488:
9489: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.create_adustment_line-----------' ;
9490: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9491:
9492: END IF;
9493:
9494: EXCEPTION
9509: x_msg_data := SUBSTR(SQLERRM,1,100);
9510:
9511: IF G_DEBUG_MODE = 'Y' THEN
9512:
9513: PA_DEBUG.g_err_stage := 'create_adjustment_line:' || x_msg_data ;
9514: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9515:
9516: END IF;
9517:
9510:
9511: IF G_DEBUG_MODE = 'Y' THEN
9512:
9513: PA_DEBUG.g_err_stage := 'create_adjustment_line:' || x_msg_data ;
9514: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9515:
9516: END IF;
9517:
9518: END create_adjustment_line;
9580: x_msg_count := 0;
9581:
9582: IF G_DEBUG_MODE = 'Y' THEN
9583:
9584: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.insert_event_record-----------' ;
9585: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9586:
9587: END IF;
9588:
9581:
9582: IF G_DEBUG_MODE = 'Y' THEN
9583:
9584: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.insert_event_record-----------' ;
9585: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9586:
9587: END IF;
9588:
9589: l_SobId := G_SET_OF_BOOKS_ID;
9719: END IF; /* ((p_bill_trans_rev_amount <> 0) OR (G_PRIMARY_ONLY = 'N')) */
9720:
9721: IF G_DEBUG_MODE = 'Y' THEN
9722:
9723: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.insert_event_record-----------' ;
9724: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9725:
9726: END IF;
9727:
9720:
9721: IF G_DEBUG_MODE = 'Y' THEN
9722:
9723: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.insert_event_record-----------' ;
9724: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9725:
9726: END IF;
9727:
9728: EXCEPTION
9742: x_msg_data := SUBSTR(SQLERRM,1,100);
9743:
9744: IF G_DEBUG_MODE = 'Y' THEN
9745:
9746: PA_DEBUG.g_err_stage := 'insert_event_record:' || x_msg_data ;
9747: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9748:
9749: END IF;
9750:
9743:
9744: IF G_DEBUG_MODE = 'Y' THEN
9745:
9746: PA_DEBUG.g_err_stage := 'insert_event_record:' || x_msg_data ;
9747: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9748:
9749: END IF;
9750:
9751: END insert_event_record;
9794: x_msg_count := 0;
9795:
9796: IF G_DEBUG_MODE = 'Y' THEN
9797:
9798: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_ar_amounts-----------' ;
9799: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9800:
9801: END IF;
9802:
9795:
9796: IF G_DEBUG_MODE = 'Y' THEN
9797:
9798: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_ar_amounts-----------' ;
9799: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9800:
9801: END IF;
9802:
9803: x_ArAmtsTab := l_ArAmtsTab;
9899: x_ArAmtsTab := l_ArAmtsTab;
9900:
9901: IF G_DEBUG_MODE = 'Y' THEN
9902:
9903: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_ar_amounts-----------' ;
9904: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9905:
9906: END IF;
9907:
9900:
9901: IF G_DEBUG_MODE = 'Y' THEN
9902:
9903: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_ar_amounts-----------' ;
9904: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9905:
9906: END IF;
9907:
9908: EXCEPTION
9922: x_msg_data := SUBSTR(SQLERRM,1,100);
9923:
9924: IF G_DEBUG_MODE = 'Y' THEN
9925:
9926: PA_DEBUG.g_err_stage := 'get_ar_amounts:' || x_msg_data ;
9927: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9928:
9929: END IF;
9930:
9923:
9924: IF G_DEBUG_MODE = 'Y' THEN
9925:
9926: PA_DEBUG.g_err_stage := 'get_ar_amounts:' || x_msg_data ;
9927: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9928:
9929: END IF;
9930:
9931: END get_ar_amounts;
9962: x_msg_count := 0;
9963:
9964: IF G_DEBUG_MODE = 'Y' THEN
9965:
9966: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.clear_distribution_warnings-----------' ;
9967: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9968:
9969: END IF;
9970:
9963:
9964: IF G_DEBUG_MODE = 'Y' THEN
9965:
9966: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.clear_distribution_warnings-----------' ;
9967: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9968:
9969: END IF;
9970:
9971: DELETE from pa_distribution_warnings
9974: COMMIT;
9975:
9976: IF G_DEBUG_MODE = 'Y' THEN
9977:
9978: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.clear_distribution_warnings-----------' ;
9979: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9980:
9981: END IF;
9982:
9975:
9976: IF G_DEBUG_MODE = 'Y' THEN
9977:
9978: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.clear_distribution_warnings-----------' ;
9979: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9980:
9981: END IF;
9982:
9983: EXCEPTION
9993: x_msg_data := SUBSTR(SQLERRM,1,100);
9994:
9995: IF G_DEBUG_MODE = 'Y' THEN
9996:
9997: PA_DEBUG.g_err_stage := 'clear_distribution_warnings:' || x_msg_data ;
9998: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9999:
10000: END IF;
10001:
9994:
9995: IF G_DEBUG_MODE = 'Y' THEN
9996:
9997: PA_DEBUG.g_err_stage := 'clear_distribution_warnings:' || x_msg_data ;
9998: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
9999:
10000: END IF;
10001:
10002: END clear_distribution_warnings;
10042: x_msg_count := 0;
10043:
10044: IF G_DEBUG_MODE = 'Y' THEN
10045:
10046: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.check_accrued_billed_level-----------' ;
10047: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10048:
10049: END IF;
10050:
10043:
10044: IF G_DEBUG_MODE = 'Y' THEN
10045:
10046: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.check_accrued_billed_level-----------' ;
10047: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10048:
10049: END IF;
10050:
10051: l_SobId := G_SET_OF_BOOKS_ID;
10121: END IF;
10122:
10123: IF G_DEBUG_MODE = 'Y' THEN
10124:
10125: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.check_accrued_billed_level-----------' ;
10126: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10127:
10128: END IF;
10129:
10122:
10123: IF G_DEBUG_MODE = 'Y' THEN
10124:
10125: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.check_accrued_billed_level-----------' ;
10126: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10127:
10128: END IF;
10129:
10130: EXCEPTION
10145: x_msg_data := SUBSTR(SQLERRM,1,100);
10146:
10147: IF G_DEBUG_MODE = 'Y' THEN
10148:
10149: PA_DEBUG.g_err_stage := 'check_accrued_billed_level:' || x_msg_data ;
10150: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10151:
10152: END IF;
10153:
10146:
10147: IF G_DEBUG_MODE = 'Y' THEN
10148:
10149: PA_DEBUG.g_err_stage := 'check_accrued_billed_level:' || x_msg_data ;
10150: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10151:
10152: END IF;
10153:
10154: END check_accrued_billed_level;
10217: x_msg_count := 0;
10218:
10219: IF G_DEBUG_MODE = 'Y' THEN
10220:
10221: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_delete_projects-----------' ;
10222: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10223:
10224: l_LogMsg := 'From prj:' || p_from_proj_number ||
10225: ' To prj:' || p_to_proj_number ||
10218:
10219: IF G_DEBUG_MODE = 'Y' THEN
10220:
10221: PA_DEBUG.g_err_stage := '-----------Entering PA_FUND_REVAL_PVT.get_delete_projects-----------' ;
10222: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10223:
10224: l_LogMsg := 'From prj:' || p_from_proj_number ||
10225: ' To prj:' || p_to_proj_number ||
10226: ' Proj type:' || p_project_type_id ;
10261: END LOOP;
10262:
10263: IF G_DEBUG_MODE = 'Y' THEN
10264:
10265: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_delete_projects-----------' ;
10266: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10267:
10268: END IF;
10269:
10262:
10263: IF G_DEBUG_MODE = 'Y' THEN
10264:
10265: PA_DEBUG.g_err_stage := '-----------Exiting PA_FUND_REVAL_PVT.get_delete_projects-----------' ;
10266: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10267:
10268: END IF;
10269:
10270: EXCEPTION
10285: x_msg_data := SUBSTR(SQLERRM,1,100);
10286:
10287: IF G_DEBUG_MODE = 'Y' THEN
10288:
10289: PA_DEBUG.g_err_stage := 'get_reval_projects:' || x_msg_data ;
10290: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10291:
10292: END IF;
10293:
10286:
10287: IF G_DEBUG_MODE = 'Y' THEN
10288:
10289: PA_DEBUG.g_err_stage := 'get_reval_projects:' || x_msg_data ;
10290: PA_FUND_REVAL_UTIL.Log_Message(p_message => PA_DEBUG.g_err_stage);
10291:
10292: END IF;
10293:
10294: END get_delete_projects;