[Home] [Help]
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 ||
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 ||
75: ' End Proj No:' || p_to_proj_number;
76: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
77:
78: l_LogMsg := 'Thru Date:' || to_char(p_thru_date, 'DD-MON-YYYY') ||
79: ' Rate Type:' || p_rate_type ||
80: ' Rate Date:' || p_rate_date ||
80: ' Rate Date:' || p_rate_date ||
81: ' Run Mode:' || p_run_mode ||
82: ' Baseline Flag:' || p_baseline_flag;
83:
84: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
85:
86: END IF;
87:
88:
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:
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;
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;
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:
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:
309:
310: IF G_DEBUG_MODE = 'Y' THEN
311:
312: l_LogMsg := 'Unrel invoice/revenue exists flag : ' || l_ErrorFlag ;
313: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
314:
315: END IF;
316:
317: IF l_ErrorFlag = 'T' THEN
318:
319: IF G_DEBUG_MODE = 'Y' THEN
320:
321: l_LogMsg := 'Unrel invoice/revenue exists flag : ' || l_ReasonCode;
322: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
323:
324: END IF;
325:
326: Insert_distribution_warnings(p_project_id => p_project_id,
352:
353: IF G_DEBUG_MODE = 'Y' THEN
354:
355: l_LogMsg := 'Unbaselined reval adj lines exists flag : ' || l_ErrorFlag;
356: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
357:
358: END IF;
359:
360: IF l_ErrorFlag = 'T' THEN
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
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;
501: FROM gl_mc_reporting_options rep, pa_implementations imp
502: WHERE rep.primary_set_of_books_id = imp.set_of_books_id
503: AND enabled_flag = 'Y'
504: AND rep.org_id = imp.org_id
505: AND application_id = PA_FUND_REVAL_UTIL.get_ar_application_id; */
506:
507:
508: CURSOR rsob_ar_mc is SELECT rep.ledger_id reporting_set_of_books_id ,
509: rep.currency_code reporting_currency_code,
511: FROM gl_alc_ledger_rships_v rep, pa_implementations imp
512: WHERE rep.source_ledger_id = imp.set_of_books_id
513: AND rep.relationship_enabled_flag = 'Y'
514: AND (rep.org_id = -99 OR rep.org_id = imp.org_id)
515: AND application_id = PA_FUND_REVAL_UTIL.get_ar_application_id;
516:
517:
518:
519:
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 */
605: l_LogMsg := 'AR installed : ' || G_AR_INSTALLED_FLAG || ' AR primary only :' ||
606: G_AR_PRIMARY_ONLY || ' MRC fund enabled:' || G_MRC_FUND_ENABLED_FLAG ||
607: ' Primary set of book id :' || G_SET_OF_BOOKS_ID;
608:
609: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
610:
611: END IF;
612:
613: l_SobIdIdx := G_SobListTab.FIRST;
618:
619: IF G_DEBUG_MODE = 'Y' THEN
620:
621: l_LogMsg := 'SOB Id:' || l_SobIdIdx || ' enabled flag:' || G_SobListTab(l_SobIdIdx).EnabledFlag ;
622: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
623:
624: END IF;
625:
626: l_SobIdIdx := G_SobListTab.NEXT(l_SobIdIdx);
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
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;
667: l_ar_installed VARCHAR2(1);
668:
669: BEGIN
670:
671: l_ar_installed := PA_FUND_REVAL_UTIL.is_ar_installed;
672:
673: RETURN l_ar_installed;
674:
675: END get_ar_installed;
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
829:
830: l_LogMsg := 'Start Proj No: ' || x_from_proj_number ||
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:
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
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;
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 */
914:
915: IF G_DEBUG_MODE = 'Y' THEN
916:
917: l_LogMsg := 'Checking for Unrel Draft Revenues';
918: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
919:
920: END IF;
921:
922: SELECT 'T' INTO x_exist_flag
941:
942: IF G_DEBUG_MODE = 'Y' THEN
943:
944: l_LogMsg := 'Checking for Unrel Draft Invoice';
945: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
946:
947: END IF;
948:
949: SELECT 'T' INTO x_exist_flag
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
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;
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
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;
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;
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
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;
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:
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:
1284: END IF;
1285:
1286: IF p_reason_code IS NOT NULL THEN
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
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;
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;
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;
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 ;
1469:
1470: l_LogMsg := 'From prj:' || p_from_proj_number ||
1471: ' To prj:' || p_to_proj_number ||
1472: ' Proj type:' || p_project_type_id ;
1473: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
1474:
1475: END IF;
1476:
1477:
1481:
1482: IF G_DEBUG_MODE = 'Y' THEN
1483:
1484: l_LogMsg := 'Project ID :' || proj_rec.project_id ;
1485: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1486:
1487: END IF;
1488:
1489: validate_project_eligibility (
1506:
1507: IF G_DEBUG_MODE = 'Y' THEN
1508:
1509: l_LogMsg := 'Reval Eligible :' || l_EligibleFlag ;
1510: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1511:
1512: END IF;
1513:
1514: IF l_EligibleFlag = 'T' THEN /* Project is qualified for revaluation */
1544: IF G_DEBUG_MODE = 'Y' THEN
1545:
1546: l_LogMsg := 'Loss Event type:' || G_ProjLvlGlobRec.loss_event_type ||
1547: ' Gain Event type:' || G_ProjLvlGlobRec.gain_event_type;
1548: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1549:
1550: l_LogMsg := 'Proj Lvl Baseline Flag :' || G_ProjLvlGlobRec.baseline_funding_flag ||
1551: ' Proj Lvl include gains/losses flag :' || G_ProjLvlGlobRec.include_gains_losses_flag;
1552: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1548: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1549:
1550: l_LogMsg := 'Proj Lvl Baseline Flag :' || G_ProjLvlGlobRec.baseline_funding_flag ||
1551: ' Proj Lvl include gains/losses flag :' || G_ProjLvlGlobRec.include_gains_losses_flag;
1552: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1553:
1554: l_LogMsg := 'Proj Lvl PFC Rate Type :' || G_ProjLvlGlobRec.projfunc_bil_rate_type ||
1555: ' Proj Lvl PFC Exch Rate :' || G_ProjLvlGlobRec.projfunc_bil_exchange_rate;
1556: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1552: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1553:
1554: l_LogMsg := 'Proj Lvl PFC Rate Type :' || G_ProjLvlGlobRec.projfunc_bil_rate_type ||
1555: ' Proj Lvl PFC Exch Rate :' || G_ProjLvlGlobRec.projfunc_bil_exchange_rate;
1556: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1557:
1558: l_LogMsg := 'Proj Lvl IPC Rate Type :' || G_ProjLvlGlobRec.invproc_rate_type ||
1559: ' Proj Lvl IPC Exch Rate :' || G_ProjLvlGlobRec.invproc_exchange_rate;
1560: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1556: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1557:
1558: l_LogMsg := 'Proj Lvl IPC Rate Type :' || G_ProjLvlGlobRec.invproc_rate_type ||
1559: ' Proj Lvl IPC Exch Rate :' || G_ProjLvlGlobRec.invproc_exchange_rate;
1560: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1561:
1562: END IF;
1563:
1564: get_spf_lines (x_return_status => l_return_status,
1599:
1600: IF G_DEBUG_MODE = 'Y' THEN
1601:
1602: l_LogMsg := 'Calling Baselining';
1603: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
1604:
1605: END IF;
1606:
1607: l_ErrCode := 0;
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:
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;
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
1855:
1856: IF G_DEBUG_MODE = 'Y' THEN
1857:
1858: l_LogMsg := 'Cursor get_spf_lines ' ;
1859: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1860:
1861: END IF;
1862:
1863: OPEN get_spf_lines (G_ProjLvlGlobRec.project_id);
1951: /* mrc migration to SLA bug 4571438 ELSE
1952: ( IF G_DEBUG_MODE = 'Y' THEN
1953:
1954: l_LogMsg := 'Cursor get_all_spf_lines ' ;
1955: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1956:
1957: END IF;
1958:
1959: OPEN get_all_spf_lines (G_ProjLvlGlobRec.project_id);
2092:
2093: IF G_DEBUG_MODE = 'Y' THEN
2094:
2095: l_LogMsg := 'No funding for revaluation ' ;
2096: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
2097:
2098: END IF;
2099: /*
2100: The following 2 global values are reinitialized
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
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;
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;
2209: l_LogMsg := 'Agreement Id:' || p_agreement_id ||
2210: ' Task Id:' || p_task_id ||
2211: ' Retention Level:' || p_retention_level_code;
2212:
2213: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
2214:
2215: END IF;
2216:
2217: /* When the project is funded by top task level the spf will be for every agreement/
2275:
2276: IF G_DEBUG_MODE = 'Y' THEN
2277:
2278: l_LogMsg := 'Task Level Funding Project level Retention';
2279: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
2280:
2281: END IF;
2282:
2283: /* paid amounts are to be computed only if include gains/loss flag is set*/
2335:
2336: IF G_DEBUG_MODE = 'Y' THEN
2337:
2338: l_LogMsg := 'Calling Invoice processing for this project/agreement - First time';
2339: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
2340:
2341: END IF;
2342:
2343: /* Only if include_gains_losses_flag is set, invoice is to be read sequentially
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
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;
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
2664:
2665: IF G_DEBUG_MODE = 'Y' THEN
2666:
2667: l_LogMsg := 'Cursor get_retn_invoices ' ;
2668: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
2669:
2670: END IF;
2671:
2672: OPEN get_retn_invoices;
2763:
2764: IF G_DEBUG_MODE = 'Y' THEN
2765:
2766: l_LogMsg := 'Cursor get_all_retn_invoices ' ;
2767: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
2768:
2769: END IF;
2770:
2771: OPEN get_all_retn_invoices;
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
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;
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
3039: ELSE
3040: IF G_DEBUG_MODE = 'Y' THEN
3041:
3042: l_LogMsg:= ' Retention Adjustment Invoice ' ;
3043: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
3044:
3045: END IF;
3046:
3047: IF ((G_ProjLvlGlobRec.include_gains_losses_flag = 'Y') AND
3092:
3093: IF G_DEBUG_MODE = 'Y' THEN
3094:
3095: l_LogMsg := ' ' ;
3096: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3097:
3098: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
3099: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3100:
3095: l_LogMsg := ' ' ;
3096: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3097:
3098: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
3099: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3100:
3101: l_LogMsg := '==================';
3102: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3103:
3098: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
3099: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3100:
3101: l_LogMsg := '==================';
3102: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3103:
3104: END IF;
3105:
3106:
3117:
3118: IF G_DEBUG_MODE = 'Y' THEN
3119:
3120: l_LogMsg := 'Retention - FC and ITC are different, but = PFC - assigning';
3121: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
3122:
3123: END IF;
3124:
3125: l_ArApplAmtFC := l_ArAmtsTab(l_SobIdIdx).projfunc_applied_amount;
3143: ' Retn appl amt ITC :' || l_ArAmtsTab(l_SobIdIdx).inv_applied_amount ||
3144: ' Retn amt ITC :' || l_BillAmtITC ||
3145: ' Retn amt FC :' || l_BillAmtFC;
3146:
3147: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
3148:
3149: END IF;
3150:
3151: END IF;
3196: ' Appl Amt PFC:' || round(l_ArApplAmtPFC,5) ||
3197: ' Gain Amt PFC:' || round(l_ArGainAmtPFC,5) ||
3198: ' Loss Amt PFC:' || round(l_ArLossAmtPFC,5);
3199:
3200: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3201:
3202: END IF;
3203:
3204: l_SobIdIdx := G_SobListTab.NEXT(l_SobIdIdx);
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
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 ;
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.
3907:
3908: IF G_DEBUG_MODE = 'Y' THEN
3909:
3910: l_LogMsg := 'Cursor get_proj_invoices ' ;
3911: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
3912:
3913: END IF;
3914:
3915: OPEN get_proj_invoices;
4028:
4029: IF G_DEBUG_MODE = 'Y' THEN
4030:
4031: l_LogMsg := 'Cursor get_task_invoices ' ;
4032: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4033:
4034: END IF;
4035:
4036: l_InvIdx := 0;
4201:
4202: IF G_DEBUG_MODE = 'Y' THEN
4203:
4204: l_LogMsg := 'Cursor get_all_proj_invoices ' ;
4205: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4206:
4207: END IF;
4208:
4209: OPEN get_all_proj_invoices;
4368:
4369: IF G_DEBUG_MODE = 'Y' THEN
4370:
4371: l_LogMsg := 'Cursor get_all_task_invoices ' ;
4372: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4373:
4374: END IF;
4375:
4376: OPEN get_all_task_invoices;
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
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;
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 */
4731: ' Agr Task Id :'|| p_task_id ||
4732: ' Sysref :' || p_system_reference ||
4733: ' inv stat:' || p_invoice_status ||
4734: ' inv type:' || p_Invoice_Type;
4735: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4736:
4737: END IF;
4738:
4739: l_ArAmtsTab.DELETE;
4776:
4777: IF G_DEBUG_MODE = 'Y' THEN
4778:
4779: l_LogMsg:= ' Adjustment Invoice ' ;
4780: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4781:
4782: END IF;
4783:
4784: IF ((G_ProjLvlGlobRec.include_gains_losses_flag = 'Y') AND
4838:
4839: IF G_DEBUG_MODE = 'Y' THEN
4840:
4841: l_LogMsg:= 'Task level funding ' ;
4842: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4843:
4844: END IF;
4845:
4846: l_InvTotTab.DELETE;
4903:
4904: IF G_DEBUG_MODE = 'Y' THEN
4905:
4906: l_LogMsg := ' ' ;
4907: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4908:
4909: l_LogMsg := 'Sob Id:' || l_SobId || ' Task ID:' || p_InvTab(i).task_id;
4910: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4911:
4906: l_LogMsg := ' ' ;
4907: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4908:
4909: l_LogMsg := 'Sob Id:' || l_SobId || ' Task ID:' || p_InvTab(i).task_id;
4910: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4911:
4912: l_LogMsg := '=================';
4913: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4914:
4909: l_LogMsg := 'Sob Id:' || l_SobId || ' Task ID:' || p_InvTab(i).task_id;
4910: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4911:
4912: l_LogMsg := '=================';
4913: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4914:
4915: END IF;
4916:
4917: IF l_ARAmtsTab.EXISTS(l_SobId) THEN
4921: IF p_InvTab(i).funding_currency_code = p_InvTab(i).projfunc_currency_code THEN
4922: IF G_DEBUG_MODE = 'Y' THEN
4923:
4924: l_LogMsg := 'FC and ITC are different, but = PFC - assigning';
4925: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
4926:
4927: END IF;
4928:
4929: l_ARApplAmtFC := l_ArAmtsTab(l_SobId).projfunc_applied_amount;
4949:
4950: IF G_DEBUG_MODE = 'Y' THEN
4951:
4952: l_LogMsg := 'FC and ITC are different - Prorating';
4953: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4954:
4955: l_LogMsg := 'Appl amt ITC:' || l_ARAmtsTab(l_SobId).inv_applied_amount ||
4956: ' Tot Bill amt ITC:' || l_BillAmtITC ||
4957: ' Tot Bill amt FC:' || l_BillAmtFC ||
4957: ' Tot Bill amt FC:' || l_BillAmtFC ||
4958: ' Appl amt FC:' || round(l_ArApplAmtFc,5) ||
4959: ' Adj amount FC ' || round(l_ArAdjAmtFC,5); /* Added for bug 7237486 */
4960:
4961: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4962:
4963: END IF;
4964:
4965: END IF;
4978: l_ArAdjAmtPFC := l_ArAmtsTab(l_SobId).projfunc_adjusted_amount; /* Added for bug 7237486 */
4979:
4980: IF G_DEBUG_MODE = 'Y' THEN /* Added for bug 7237486*/
4981: l_LogMsg := 'AR Adjustment Amount in PFC = '||l_ArAdjAmtPFC;
4982: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
4983: END IF;
4984:
4985: END IF; /*l_ArAmtsTab.EXISTS(l_SobId) */
4986: /* AR might not have received any payment. Avoid division by zero error */
5051:
5052: l_LogMsg := 'Net Amt PFC:' || round(l_NetAmtPFC,5) ||
5053: ' Net Amt FC:' || round(l_NetAmtFC,5);
5054:
5055: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5056:
5057: END IF;
5058:
5059: /*
5193: l_LogMsg:=l_LogMsg||'original inv due amount : l_ARAmtsTab(l_SobId).inv_applied_amount: ' ||l_ARAmtsTab(l_SobId).inv_applied_amount;
5194: ELSE
5195: l_LogMsg:=l_LogMsg||'original inv due amount : l_ARAmtsTab(l_SobId).inv_applied_amount: 0';
5196: END IF;
5197: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5198: l_LogMsg := 'New inv due amount : p_InvTab(i).inv_amount ' || p_InvTab(i).inv_amount;
5199: l_LogMsg := l_LogMsg || 'New inv due amount : p_InvTab(i).funding_bill_amount ' || p_InvTab(i).funding_bill_amount;
5200: l_LogMsg := l_LogMsg || 'New inv due amount : l_DueAmtFC ' || l_DueAmtFC;
5201: l_LogMsg := l_LogMsg || 'New inv due amount : ' || l_ITC_due_amount ;
5198: l_LogMsg := 'New inv due amount : p_InvTab(i).inv_amount ' || p_InvTab(i).inv_amount;
5199: l_LogMsg := l_LogMsg || 'New inv due amount : p_InvTab(i).funding_bill_amount ' || p_InvTab(i).funding_bill_amount;
5200: l_LogMsg := l_LogMsg || 'New inv due amount : l_DueAmtFC ' || l_DueAmtFC;
5201: l_LogMsg := l_LogMsg || 'New inv due amount : ' || l_ITC_due_amount ;
5202: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5203: l_LogMsg := ' '; /* Bug 4346765 */
5204: END IF;
5205:
5206: i_conversion_type_tab.DELETE;
5283: l_LogMsg := l_LogMsg || ' to currency : ' || p_InvTab(i).projfunc_currency_code ;
5284: l_LogMsg := l_LogMsg || 'l_ITC_due_amount :' || l_ITC_due_amount || 'projfunc_rate_type :' || i_ProjfuncRateType;
5285: l_LogMsg := l_LogMsg || 'projfunc_inv_rate after calling amount_bulk :' || i_rate_tab(1);
5286: l_LogMsg := l_LogMsg || 'projfunc_inv_duie amount after assigning :' || l_revald_pf_inv_due_amount ;
5287: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5288: l_LogMsg := ' '; /* Bug 4346765 */
5289:
5290: ELSE
5291: l_revald_pf_inv_due_amount := l_ITC_due_amount;
5291: l_revald_pf_inv_due_amount := l_ITC_due_amount;
5292:
5293: l_LogMsg := l_LogMsg || 'l_ITC_due_amount :' || l_ITC_due_amount || 'projfunc_rate_type :' || i_ProjfuncRateType;
5294: l_LogMsg := l_LogMsg || 'projfunc_inv_due amount after assigning :' || l_revald_pf_inv_due_amount ;
5295: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5296: l_LogMsg := ' '; /* Bug 4346765 */
5297: END IF; /* if IC<>PFC */
5298: /* Bug 3221279 - End */
5299:
5364:
5365: l_LogMsg := 'Billed Amt PFC:' || l_BillAmtPFC ||
5366: ' Billed Amt FC:' || l_BillAmtFC ||
5367: ' Billed Amt IPC:' || l_BillAmtIPC ;
5368: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5369:
5370: l_LogMsg := 'Appl Amt FC:' || round(l_ApplAmtFC,5) ||
5371: ' Appl Amt PFC:' || round(l_ApplAmtPFC,5) ||
5372: ' Gain Amt PFC:' || round(l_GainAmtPFC,5) ||
5370: l_LogMsg := 'Appl Amt FC:' || round(l_ApplAmtFC,5) ||
5371: ' Appl Amt PFC:' || round(l_ApplAmtPFC,5) ||
5372: ' Gain Amt PFC:' || round(l_GainAmtPFC,5) ||
5373: ' Loss Amt PFC:' || round(l_LossAmtPFC,5) ;
5374: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5375:
5376: END IF;
5377:
5378: END LOOP;
5381:
5382: IF G_DEBUG_MODE = 'Y' THEN
5383:
5384: l_LogMsg:= 'Project level funding ' ;
5385: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5386:
5387: END IF;
5388:
5389: l_SobIdIdx := G_SobListTab.FIRST;
5416:
5417: IF G_DEBUG_MODE = 'Y' THEN
5418:
5419: l_LogMsg := ' ' ;
5420: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5421:
5422: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
5423: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5424:
5419: l_LogMsg := ' ' ;
5420: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5421:
5422: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
5423: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5424:
5425: l_LogMsg := '==================';
5426: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5427:
5422: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
5423: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5424:
5425: l_LogMsg := '==================';
5426: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5427:
5428: END IF;
5429:
5430: IF l_ArAmtsTab.EXISTS(l_SobIdIdx) THEN
5439:
5440: IF G_DEBUG_MODE = 'Y' THEN
5441:
5442: l_LogMsg := ' FC and ITC are different, but = PFC - assigning';
5443: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
5444:
5445: END IF;
5446:
5447: l_ARApplAmtFC := l_ArAmtsTab(l_SobIdIdx).projfunc_applied_amount;
5449:
5450: IF G_DEBUG_MODE = 'Y' THEN
5451:
5452: l_LogMsg := ' AR Adjusted amount in FC = '||l_ArAdjAmtFC; /* Added for bug 7237486 */
5453: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
5454:
5455: END IF;/* Added for bug 7237486 */
5456:
5457: ELSE
5475: 'Appl amt ITC:' || l_ARAmtsTab(l_SobIdIdx).inv_applied_amount ||
5476: 'Bill amt ITC:' || l_BillAmtITC ||
5477: 'Bill amt FC:' || l_BillAmtFC;
5478:
5479: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5480:
5481: END IF;
5482:
5483: END IF;
5495:
5496: IF G_DEBUG_MODE = 'Y' THEN
5497:
5498: l_LogMsg := ' AR Adjusted amount in PFC = '||l_ArAdjAmtPFC; /* Added for bug 7237486 */
5499: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
5500:
5501: END IF;
5502:
5503: END IF; /*l_ArAmtsTab.EXISTS(l_SobIdIdx) */
5543:
5544: IF G_DEBUG_MODE = 'Y' THEN
5545:
5546: l_LogMsg := ' Proje level ' || l_SobIdIdx || ' already exists adding';
5547: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5548:
5549: END IF;
5550:
5551: G_InvCompTab(l_SobIdIdx).invproc_billed_amount :=
5568:
5569: IF G_DEBUG_MODE = 'Y' THEN
5570:
5571: l_LogMsg := ' Proje level ' || l_SobIdIdx || ' does not exists assigning';
5572: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5573:
5574: END IF;
5575: G_InvCompTab(l_SobIdIdx).project_id := p_project_id;
5576: G_InvCompTab(l_SobIdIdx).agreement_id := p_agreement_id;
5613: l_LogMsg:=l_LogMsg||'original inv due amount : l_ARAmtsTab(l_SobIdIdx).inv_applied_amount: ' ||l_ARAmtsTab(l_SobIdIdx).inv_applied_amount;
5614: ELSE
5615: l_LogMsg:=l_LogMsg||'original inv due amount : l_ARAmtsTab(l_SobId).inv_applied_amount: 0';
5616: END IF;
5617: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5618: l_LogMsg := 'New inv due amount : p_InvTab(l_SobIdIdx).inv_amount ' || p_InvTab(l_SobIdIdx).inv_amount;
5619: l_LogMsg := l_LogMsg || 'New inv due amount : p_InvTab(l_SobIdIdx).funding_bill_amount ' || p_InvTab(l_SobIdIdx).funding_bill_amount;
5620: l_LogMsg := l_LogMsg || 'New inv due amount : l_DueAmtFC ' || l_DueAmtFC;
5621: l_LogMsg := l_LogMsg || 'New inv due amount : ' || l_ITC_due_amount ;
5618: l_LogMsg := 'New inv due amount : p_InvTab(l_SobIdIdx).inv_amount ' || p_InvTab(l_SobIdIdx).inv_amount;
5619: l_LogMsg := l_LogMsg || 'New inv due amount : p_InvTab(l_SobIdIdx).funding_bill_amount ' || p_InvTab(l_SobIdIdx).funding_bill_amount;
5620: l_LogMsg := l_LogMsg || 'New inv due amount : l_DueAmtFC ' || l_DueAmtFC;
5621: l_LogMsg := l_LogMsg || 'New inv due amount : ' || l_ITC_due_amount ;
5622: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5623: l_LogMsg := ' '; /* Bug 4346765 */
5624: END IF;
5625:
5626: i_conversion_type_tab.DELETE;
5703: l_LogMsg := l_LogMsg || ' to currency : ' || p_InvTab(l_SobIdIdx).projfunc_currency_code ;
5704: l_LogMsg := l_LogMsg || 'l_ITC_due_amount :' || l_ITC_due_amount || 'projfunc_rate_type :' || i_ProjfuncRateType;
5705: l_LogMsg := l_LogMsg || 'projfunc_inv_rate after calling amount_bulk :' || i_rate_tab(1);
5706: l_LogMsg := l_LogMsg || 'projfunc_inv_due amount after assigning :' || l_revald_pf_inv_due_amount ;
5707: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5708: l_LogMsg := ' '; /* Bug 4346765 */
5709: ELSE
5710: l_revald_pf_inv_due_amount := l_ITC_due_amount;
5711:
5712: l_LogMsg := 'Inv currency code :' || p_InvTab(l_SobIdIdx).inv_currency_code ;
5713: l_LogMsg := l_LogMsg || ' to currency : ' || p_InvTab(l_SobIdIdx).projfunc_currency_code ;
5714: l_LogMsg := l_LogMsg || 'l_ITC_due_amount :' || l_ITC_due_amount || 'projfunc_rate_type :' || i_ProjfuncRateType;
5715: l_LogMsg := l_LogMsg || 'projfunc_inv_due amount after assigning :' || l_revald_pf_inv_due_amount ;
5716: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5717: l_LogMsg := ' '; /* Bug 4346765 */
5718: END IF; /* if IC<>PFC */
5719:
5720:
5787:
5788: l_LogMsg := 'Billed Amt PFC:' || l_BillAmtPFC ||
5789: ' Billed Amt FC:' || l_BillAmtFC ||
5790: ' Billed Amt IPC:' || l_BillAmtIPC ;
5791: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5792:
5793: l_LogMsg := 'Appl Amt FC:' || round(l_ApplAmtFC,5) ||
5794: ' Appl Amt PFC:' || round(l_ApplAmtPFC,5) ||
5795: ' Gain Amt PFC:' || round(l_GainAmtPFC,5) ||
5793: l_LogMsg := 'Appl Amt FC:' || round(l_ApplAmtFC,5) ||
5794: ' Appl Amt PFC:' || round(l_ApplAmtPFC,5) ||
5795: ' Gain Amt PFC:' || round(l_GainAmtPFC,5) ||
5796: ' Loss Amt PFC:' || round(l_LossAmtPFC,5) ;
5797: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5798:
5799: END IF;
5800:
5801: l_SobIdIdx := G_SobListTab.NEXT(l_SobIdIdx);
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
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;
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
5948:
5949: IF G_DEBUG_MODE = 'Y' THEN
5950:
5951: l_LogMsg := 'Cursor get_inv_total ' ;
5952: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5953:
5954: END IF;
5955:
5956: OPEN get_inv_total;
5978: ' IPC Amt:' || l_BillAmtIPCTab(i) ||
5979: ' PFC Amt:' || l_BillAmtPFCTab(i) ||
5980: ' FC Amt:' || l_BillAmtFCTab(i) ||
5981: ' ITC Amt:' || l_BillAmtITCTab(i);
5982: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5983:
5984: END IF;
5985:
5986: END LOOP;
6005:
6006: IF G_DEBUG_MODE = 'Y' THEN
6007:
6008: l_LogMsg := 'Cursor get_all_inv_total ' ;
6009: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6010:
6011: END IF;
6012:
6013: OPEN get_all_inv_total;
6035: ' IPC Amt:' || l_BillAmtIPCTab(i) ||
6036: ' PFC Amt:' || l_BillAmtPFCTab(i) ||
6037: ' FC Amt:' || l_BillAmtFCTab(i) ||
6038: ' ITC Amt:' || l_BillAmtITCTab(i);
6039: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6040:
6041: END IF;
6042:
6043: END LOOP;
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
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;
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 ;
6309:
6310: l_LogMsg := 'Project Id:' || p_project_id ||
6311: ' Task Id:' || p_task_id ||
6312: ' Draft Inv Num:' || p_draft_inv_num ;
6313: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6314:
6315: END IF;
6316:
6317: /* This procedure will get retained amount for an invoice/task (of draft invoice items) in
6335:
6336: IF G_DEBUG_MODE = 'Y' THEN
6337:
6338: l_LogMsg := 'Cursor rdl_amount ' ;
6339: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6340:
6341: END IF;
6342:
6343: l_TotalFetch := 0;
6394:
6395: IF G_DEBUG_MODE = 'Y' THEN
6396:
6397: l_LogMsg := 'Cursor erdl_amount ' ;
6398: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6399:
6400: END IF;
6401:
6402: l_TotalFetch := 0;
6447:
6448: IF G_DEBUG_MODE = 'Y' THEN
6449:
6450: l_LogMsg := 'Cursor dii_amount ' ;
6451: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6452:
6453: END IF;
6454:
6455: l_TotalFetch := 0;
6502:
6503: IF G_DEBUG_MODE = 'Y' THEN
6504:
6505: l_LogMsg := 'Cursor rdl_amount_all ' ;
6506: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6507:
6508: END IF;
6509:
6510: l_TotalFetch := 0;
6555:
6556: IF G_DEBUG_MODE = 'Y' THEN
6557:
6558: l_LogMsg := 'Cursor erdl_amount_all ' ;
6559: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6560:
6561: END IF;
6562:
6563: l_TotalFetch := 0;
6608:
6609: IF G_DEBUG_MODE = 'Y' THEN
6610:
6611: l_LogMsg := 'Cursor dii_amount_all ' ;
6612: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6613:
6614: END IF;
6615:
6616: l_TotalFetch := 0;
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
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;
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
6774:
6775: l_LogMsg := 'Sob Id:' || l_SobId ||
6776: ' PFC Retained Amt:' || round(x_RetainedAmtTab(l_SobId).projfunc_retained_amount,4) ||
6777: ' FC Retained Amt:' || round(x_RetainedAmtTab(l_SobId).funding_retained_amount,4);
6778: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6779:
6780: END IF;
6781:
6782:
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
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;
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:
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:
6894: l_LogMsg := '==================';
6895: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6896:
6891: l_LogMsg := 'Sob Id:' || p_SobId ;
6892: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6893:
6894: l_LogMsg := '==================';
6895: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6896:
6897: END IF;
6898:
6899: x_retn_appl_amt_pfc := 0;
6957: ' FC Retn Appl Amt:' || round(x_retn_appl_amt_fc,4) ||
6958: ' PFC Retn gain Amt:' || round(x_retn_gain_amt_pfc,4) ||
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:
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
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;
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.
7204:
7205: IF G_DEBUG_MODE = 'Y' THEN
7206:
7207: l_LogMsg := 'Cursor get_sum_proj_invoices ' ;
7208: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7209:
7210: END IF;
7211:
7212: OPEN get_proj_invoices;
7266:
7267: IF G_DEBUG_MODE = 'Y' THEN
7268:
7269: l_LogMsg := 'Cursor get_sum_task_invoices ' ;
7270: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7271:
7272: END IF;
7273:
7274: OPEN get_task_invoices;
7333:
7334: IF G_DEBUG_MODE = 'Y' THEN
7335:
7336: l_LogMsg := 'Cursor get_sum_all_proj_invoices ' ;
7337: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7338:
7339: END IF;
7340:
7341: OPEN get_all_proj_invoices;
7395:
7396: IF G_DEBUG_MODE = 'Y' THEN
7397:
7398: l_LogMsg := 'Cursor get_sum_all_task_invoices ' ;
7399: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7400:
7401: END IF;
7402:
7403: OPEN get_all_task_invoices;
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
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;
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
7565:
7566: IF G_DEBUG_MODE = 'Y' THEN
7567:
7568: l_LogMsg := ' ' ;
7569: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7570:
7571: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
7572: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7573:
7568: l_LogMsg := ' ' ;
7569: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7570:
7571: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
7572: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7573:
7574: l_LogMsg := '==================';
7575: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7576:
7571: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
7572: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7573:
7574: l_LogMsg := '==================';
7575: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7576:
7577: END IF;
7578:
7579: /* Put in g_InvCompTab */
7648:
7649: l_LogMsg := 'Billed Amt PFC:' || p_BillAmtPFCTab(i) ||
7650: ' Billed Amt FC:' || p_BillAmtFCTab(i) ||
7651: ' Billed Amt IPC:' || p_BillAmtIPCTab(i) ;
7652: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7653:
7654: END IF;
7655:
7656: END LOOP; /*SetOfBookIdTab LOO */
7663:
7664: IF G_DEBUG_MODE = 'Y' THEN
7665:
7666: l_LogMsg := ' ' ;
7667: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7668:
7669: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
7670: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7671:
7666: l_LogMsg := ' ' ;
7667: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7668:
7669: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
7670: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7671:
7672: l_LogMsg := '==================';
7673: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7674:
7669: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
7670: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7671:
7672: l_LogMsg := '==================';
7673: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7674:
7675: END IF;
7676:
7677: l_FoundFlag := 'N';
7718:
7719: l_LogMsg := 'Billed Amt PFC:' || p_BillAmtPFCTab(i) ||
7720: ' Billed Amt FC:' || p_BillAmtFCTab(i) ||
7721: ' Billed Amt IPC:' || p_BillAmtIPCTab(i) ;
7722: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7723:
7724: END IF;
7725:
7726: END LOOP;
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
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;
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;
7886: ' FC Currency :' || l_FundingCurrencyCode ||
7887: ' PFC Currency :' || l_ProjFuncCurrencyCode ||
7888: ' IPC Currency :' || l_InvprocCurrencyCode;
7889:
7890: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7891:
7892: END IF;
7893:
7894: /* In case run-time param rate type is null assign from projec level */
7901: l_LogMsg := 'Conversion attributes assigned:' ||
7902: ' PFC Rate type:' || l_ProjfuncRateType ||
7903: ' IPC Rate type:' || l_InvprocRateType;
7904:
7905: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7906:
7907: END IF;
7908:
7909:
8069:
8070: IF G_DEBUG_MODE = 'Y' THEN
8071:
8072: l_LogMsg := 'Conv attr before client extension ' ;
8073: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8074:
8075: l_LogMsg := 'PFC rate type:' || l_ProjfuncRevalType ||
8076: ' PFC Rate:' || l_ProjfuncRevalRate ||
8077: ' IPC rate type:' || l_InvprocRevalType ||
8076: ' PFC Rate:' || l_ProjfuncRevalRate ||
8077: ' IPC rate type:' || l_InvprocRevalType ||
8078: ' IPC Rate:' || l_InvprocRevalRate;
8079:
8080: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8081:
8082: END IF;
8083:
8084: /* No invoices have been generated.*/
8233:
8234: IF G_DEBUG_MODE = 'Y' THEN
8235:
8236: l_LogMsg := 'Revaluation Index ' || l_RevaluationIndex ;
8237: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8238:
8239: END IF;
8240:
8241: /* Do conversion for revaluation using the attributes derived at the beginning of the call */
8248:
8249: IF G_DEBUG_MODE = 'Y' THEN
8250:
8251: l_LogMsg := ' ' ;
8252: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8253:
8254: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
8255: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8256:
8251: l_LogMsg := ' ' ;
8252: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8253:
8254: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
8255: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8256:
8257: l_LogMsg := '==================';
8258: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8259:
8254: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
8255: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8256:
8257: l_LogMsg := '==================';
8258: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8259:
8260: END IF;
8261:
8262: /* Initialize assuming there are no invoices */
8274:
8275: IF G_DEBUG_MODE = 'Y' THEN
8276:
8277: l_LogMsg := 'Invoices have been generated';
8278: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8279:
8280: END IF;
8281:
8282: FOR i in G_InvCompTab.first..G_InvCompTab.LAST LOOP
8288: l_LogMsg := 'Inv tab: sobid:' || G_InvCompTab(i).set_of_books_id ||
8289: ' agr id:' || G_InvCompTab(i).agreement_id ||
8290: ' tsk id:' || G_InvCompTab(i).task_id;
8291:
8292: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8293:
8294: l_LogMsg := 'Reval tab: sobid:' || l_SobIdIdx ||
8295: ' agr id:' || G_RevalCompTab(l_SobIdIdx).agreement_id ||
8296: ' tsk id:' || G_RevalCompTab(l_SobIdIdx).task_id;
8294: l_LogMsg := 'Reval tab: sobid:' || l_SobIdIdx ||
8295: ' agr id:' || G_RevalCompTab(l_SobIdIdx).agreement_id ||
8296: ' tsk id:' || G_RevalCompTab(l_SobIdIdx).task_id;
8297:
8298: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8299:
8300: END IF;
8301:
8302: IF ((G_InvCompTab(i).set_of_books_id = l_SobIdIdx) AND
8360:
8361: l_LogMsg := ' FC billed amount:' || G_InvCompTab(i).funding_billed_amount ||
8362: ' FC Appl amount: ' || round(G_InvCompTab(i).funding_applied_amount,5) ||
8363: ' nvl(G_InvCompTab(i).revald_pf_inv_due_amount,0) : ' || nvl(G_InvCompTab(i).revald_pf_inv_due_amount,0);
8364: PA_FUND_REVAL_UTIL.log_message(l_LogMsg);
8365:
8366: END IF;
8367:
8368: G_RevalCompTab(l_SobIdIdx).funding_inv_due_amount :=
8411:
8412: IF G_DEBUG_MODE = 'Y' THEN
8413:
8414: l_LogMsg := 'PFC billed amount (only when include gains losses is N):' || l_ProjfuncBilledAmount;
8415: PA_FUND_REVAL_UTIL.log_message(l_LogMsg);
8416:
8417: END IF;
8418:
8419: END IF;
8483: ' FC Due:' || round(l_DueAmtFC,5) ||
8484: ' FC :' || l_FundingCurrencyCode ||
8485: ' PFC: ' || l_ProjfuncCurrencyCode ;
8486:
8487: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8488:
8489: END IF;
8490:
8491: IF l_SobIdIdx = G_SET_OF_BOOKS_ID THEN
8496:
8497: IF G_DEBUG_MODE = 'Y' THEN
8498:
8499: l_LogMsg := 'Primary Processing attributes';
8500: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8501:
8502: END IF;
8503:
8504: l_ProjfuncRateType := nvl(l_ProjfuncRevalType, l_ProjfuncRateType);
8512: ' IPC Rate Type:' || l_InvprocRateType ||
8513: ' PFC Rate: ' || l_ProjFuncRate ||
8514: ' IPC Rate: ' || l_InvprocRate ;
8515:
8516: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8517:
8518: END IF;
8519:
8520: l_from_currency_tab.DELETE;
8563:
8564: IF G_DEBUG_MODE = 'Y' THEN
8565:
8566: l_LogMsg := 'Calling conversion for PFC ';
8567: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8568:
8569: END IF;
8570:
8571: PA_MULTI_CURRENCY_BILLING.convert_amount_bulk (
8628: ' PFC Rate type:' || l_conversion_type_tab(1) ||
8629: ' l_ProjfuncRateType: ' || l_ProjfuncRateType ||
8630: ' PFC Rate :' || l_rate_tab(1);
8631:
8632: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8633:
8634: l_LogMsg := 'PFC Revald Due amt :' || l_converted_amount_tab(2) ||
8635: ' PFC Revald backlog amt :' || l_converted_amount_tab(1);
8636:
8633:
8634: l_LogMsg := 'PFC Revald Due amt :' || l_converted_amount_tab(2) ||
8635: ' PFC Revald backlog amt :' || l_converted_amount_tab(1);
8636:
8637: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8638:
8639: END IF;
8640:
8641: END IF;
8670:
8671: IF G_DEBUG_MODE = 'Y' THEN
8672:
8673: l_LogMsg := 'Calling conversion for IPC ';
8674: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8675:
8676: END IF;
8677:
8678: PA_MULTI_CURRENCY_BILLING.convert_amount_bulk (
8734:
8735: l_LogMsg := 'IPC Rate type:' || l_conversion_type_tab(1) ||
8736: ' IPC Rate :' || l_rate_tab(1);
8737:
8738: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8739:
8740: l_LogMsg := 'IPC Revald backlog amt :' || l_converted_amount_tab(1) ||
8741: ' IPC backlog amt :' || l_InvprocBacklogAmount;
8742:
8739:
8740: l_LogMsg := 'IPC Revald backlog amt :' || l_converted_amount_tab(1) ||
8741: ' IPC backlog amt :' || l_InvprocBacklogAmount;
8742:
8743: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8744:
8745: END IF;
8746:
8747: END IF;
8750:
8751: IF G_DEBUG_MODE = 'Y' THEN
8752:
8753: l_LogMsg := 'Reporting Processing Attributes';
8754: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8755:
8756: END IF;
8757:
8758: l_InvProcBacklogAmount := 0;
8771:
8772: l_LogMsg := 'PFC Rate type:' || l_ProjfuncRateType ||
8773: ' PFC Rate :' || l_ProjfuncRate ;
8774:
8775: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8776:
8777: END IF;
8778:
8779: /* mrc migration to SLA bug 4571438
8807: ' PFC Rate type:' || l_ProjfuncRateType ||
8808: ' PFC Rate :' || l_ProjfuncRate ||
8809: ' Numerator :' || l_NumeratorRate ||
8810: ' Denominator :' || l_DenominatorRate ;
8811: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8812:
8813:
8814: l_LogMsg := 'PFC RVLD due amt:' || l_RcInvDueAmount ||
8815: ' PFC RVLD backlog amt:' || l_RcBacklogAmount;
8813:
8814: l_LogMsg := 'PFC RVLD due amt:' || l_RcInvDueAmount ||
8815: ' PFC RVLD backlog amt:' || l_RcBacklogAmount;
8816:
8817: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8818:
8819: END IF;
8820:
8821:
8883: l_LogMsg := 'Billed amt over funding amt ' ||
8884: ' PFC revald amount:' || round(G_RevalCompTab(l_SobIdIdx).projfunc_revalued_amount,5) ||
8885: ' IPC revald amount:' || round(G_RevalCompTab(l_SobIdIdx).invproc_revalued_amount,5);
8886:
8887: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8888:
8889: END IF;
8890:
8891: ELSE */
8897: IF G_DEBUG_MODE = 'Y' THEN
8898: l_LogMsg := ' PFC_invapplamt :'|| G_RevalCompTab(l_SobIdIdx).projfunc_inv_applied_amount || 'PF_invoice_due_amount: ' ;
8899: l_LogMsg := l_LogMsg || G_RevalCompTab(l_SobIdIdx).projfunc_inv_due_amount || 'PFbacklog: ';
8900: l_LogMsg := l_LogMsg || G_RevalCompTab(l_SobIdIdx).projfunc_backlog_amount ||'PF billed amount: '|| l_ProjfuncBilledAmount ;
8901: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8902: l_LogMsg := ' '; /* Bug 4346765 */
8903: END IF;
8904:
8905: G_RevalCompTab(l_SobIdIdx).projfunc_revalued_amount :=
8934: ' PFC revald amount:' || round(G_RevalCompTab(l_SobIdIdx).projfunc_revalued_amount,5) ||
8935: ' PFC reval amount:' || round(G_RevalCompTab(l_SobIdIdx).projfunc_reval_amount,5) ||
8936: ' PFC adj amount:' || round(G_RevalCompTab(l_SobIdIdx).projfunc_allocated_amount,5);
8937:
8938: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8939:
8940: l_LogMsg := 'After Revaluation' ||
8941: ' IPC revald amount:' || round(G_RevalCompTab(l_SobIdIdx).invproc_revalued_amount,5) ||
8942: ' IPC reval amount:' || round(G_RevalCompTab(l_SobIdIdx).invproc_reval_amount,5) ||
8941: ' IPC revald amount:' || round(G_RevalCompTab(l_SobIdIdx).invproc_revalued_amount,5) ||
8942: ' IPC reval amount:' || round(G_RevalCompTab(l_SobIdIdx).invproc_reval_amount,5) ||
8943: ' IPC adj amount:' || round(G_RevalCompTab(l_SobIdIdx).invproc_allocated_amount,5);
8944:
8945: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8946:
8947: END IF;
8948:
8949: /* Change Request: When the invoiced amount in funding currency exceeds the funded amount in funding currency,
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
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;
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
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
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;
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 */
9196: IF G_DEBUG_MODE = 'Y' THEN
9197:
9198: l_LogMsg := 'Set of books:' || l_SobId ||
9199: ' Rate type:' || G_RevalCompTab(l_SobId).reval_projfunc_rate_type ;
9200: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
9201:
9202: END IF;
9203:
9204: l_LogMsg := ' Bug 3532963 : G_RevalCompTab(l_SobId).agreement_id :' || G_RevalCompTab(l_SobId).agreement_id ||
9204: l_LogMsg := ' Bug 3532963 : G_RevalCompTab(l_SobId).agreement_id :' || G_RevalCompTab(l_SobId).agreement_id ||
9205: ' invproc_allocated_amount :' || G_RevalCompTab(l_SobId).invproc_allocated_amount ||
9206: ' projfunc_allocated_amount : ' || G_RevalCompTab(l_SobId).projfunc_allocated_amount;
9207:
9208: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
9209:
9210: IF ((G_PRIMARY_ONLY = 'N') OR ( G_RevalCompTab(l_SobId).projfunc_allocated_amount <> 0)
9211: OR (G_RevalCompTab(l_SobId).invproc_allocated_amount <> 0)
9212: OR (G_RevalCompTab(l_SobId).projfunc_realized_gains_amt <> 0)
9290:
9291: IF G_DEBUG_MODE = 'Y' THEN
9292:
9293: l_LogMsg := 'After Insert Project Funding Id:' || l_ProjectFundingId;
9294: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
9295:
9296: END IF;
9297:
9298: l_NonZeroExists := 'N';
9313:
9314: IF G_DEBUG_MODE = 'Y' THEN
9315:
9316: l_LogMsg := 'Non zero elements exist';
9317: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
9318:
9319: END IF;
9320:
9321: UPDATE pa_summary_project_fundings
9439:
9440: IF G_DEBUG_MODE = 'Y' THEN
9441:
9442: l_LogMsg := 'Non zero elements does notexist';
9443: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
9444:
9445: END IF;
9446:
9447: DELETE FROM pa_project_fundings
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
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;
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;
9580:
9581: IF G_DEBUG_MODE = 'Y' THEN
9582:
9583: l_LogMsg := 'Event Num:' || l_EventNum;
9584: PA_FUND_REVAL_UTIL.Log_Message(p_message=>l_LogMsg);
9585:
9586: END IF;
9587:
9588: pa_events_pkg.insert_row (
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
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;
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;
9836: ' PFC gain amt:' || l_ArAmtsTab(l_SobIdIdx).projfunc_gain_amount ||
9837: ' PFC loss amt:' || l_ArAmtsTab(l_SobIdIdx).projfunc_loss_amount ||
9838: ' AR Adj amt in IC :' || l_ArAmtsTab(l_SobIdIdx).inv_adjusted_amount ||
9839: ' AR Adj amt in PFCC :' || l_ArAmtsTab(l_SobIdIdx).projfunc_adjusted_amount; /* Added for bug 7237486*/
9840: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
9841:
9842: END IF;
9843:
9844: ELSE
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
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;
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
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
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;
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;
10026:
10027: IF G_DEBUG_MODE = 'Y' THEN
10028:
10029: l_LogMsg := l_ReasonCode;
10030: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
10031:
10032: END IF;
10033:
10034: Insert_distribution_warnings(
10060:
10061: IF G_DEBUG_MODE = 'Y' THEN
10062:
10063: l_LogMsg := l_ReasonCode;
10064: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
10065:
10066: END IF;
10067:
10068: Insert_distribution_warnings(
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
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;
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 ;
10190:
10191: l_LogMsg := 'From prj:' || p_from_proj_number ||
10192: ' To prj:' || p_to_proj_number ||
10193: ' Proj type:' || p_project_type_id ;
10194: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
10195:
10196: END IF;
10197:
10198:
10200:
10201: IF G_DEBUG_MODE = 'Y' THEN
10202:
10203: l_LogMsg := 'Project ID :' || proj_rec.project_id ;
10204: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
10205:
10206: END IF;
10207:
10208:
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
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;