[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
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
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;
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
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;
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;
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
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;
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:
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:
1286: END IF;
1287:
1288: IF p_reason_code IS NOT NULL THEN
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
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;
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;
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;
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 ;
1471:
1472: l_LogMsg := 'From prj:' || p_from_proj_number ||
1473: ' To prj:' || p_to_proj_number ||
1474: ' Proj type:' || p_project_type_id ;
1475: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
1476:
1477: END IF;
1478:
1479:
1483:
1484: IF G_DEBUG_MODE = 'Y' THEN
1485:
1486: l_LogMsg := 'Project ID :' || proj_rec.project_id ;
1487: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1488:
1489: END IF;
1490:
1491: validate_project_eligibility (
1508:
1509: IF G_DEBUG_MODE = 'Y' THEN
1510:
1511: l_LogMsg := 'Reval Eligible :' || l_EligibleFlag ;
1512: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1513:
1514: END IF;
1515:
1516: IF l_EligibleFlag = 'T' THEN /* Project is qualified for revaluation */
1546: IF G_DEBUG_MODE = 'Y' THEN
1547:
1548: l_LogMsg := 'Loss Event type:' || G_ProjLvlGlobRec.loss_event_type ||
1549: ' Gain Event type:' || G_ProjLvlGlobRec.gain_event_type;
1550: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1551:
1552: l_LogMsg := 'Proj Lvl Baseline Flag :' || G_ProjLvlGlobRec.baseline_funding_flag ||
1553: ' Proj Lvl include gains/losses flag :' || G_ProjLvlGlobRec.include_gains_losses_flag;
1554: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1550: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1551:
1552: l_LogMsg := 'Proj Lvl Baseline Flag :' || G_ProjLvlGlobRec.baseline_funding_flag ||
1553: ' Proj Lvl include gains/losses flag :' || G_ProjLvlGlobRec.include_gains_losses_flag;
1554: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1555:
1556: l_LogMsg := 'Proj Lvl PFC Rate Type :' || G_ProjLvlGlobRec.projfunc_bil_rate_type ||
1557: ' Proj Lvl PFC Exch Rate :' || G_ProjLvlGlobRec.projfunc_bil_exchange_rate;
1558: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1554: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1555:
1556: l_LogMsg := 'Proj Lvl PFC Rate Type :' || G_ProjLvlGlobRec.projfunc_bil_rate_type ||
1557: ' Proj Lvl PFC Exch Rate :' || G_ProjLvlGlobRec.projfunc_bil_exchange_rate;
1558: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1559:
1560: l_LogMsg := 'Proj Lvl IPC Rate Type :' || G_ProjLvlGlobRec.invproc_rate_type ||
1561: ' Proj Lvl IPC Exch Rate :' || G_ProjLvlGlobRec.invproc_exchange_rate;
1562: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1558: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1559:
1560: l_LogMsg := 'Proj Lvl IPC Rate Type :' || G_ProjLvlGlobRec.invproc_rate_type ||
1561: ' Proj Lvl IPC Exch Rate :' || G_ProjLvlGlobRec.invproc_exchange_rate;
1562: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1563:
1564: END IF;
1565:
1566: get_spf_lines (x_return_status => l_return_status,
1601:
1602: IF G_DEBUG_MODE = 'Y' THEN
1603:
1604: l_LogMsg := 'Calling Baselining';
1605: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
1606:
1607: END IF;
1608:
1609: l_ErrCode := 0;
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:
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;
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
1857:
1858: IF G_DEBUG_MODE = 'Y' THEN
1859:
1860: l_LogMsg := 'Cursor get_spf_lines ' ;
1861: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1862:
1863: END IF;
1864:
1865: OPEN get_spf_lines (G_ProjLvlGlobRec.project_id);
1953: /* mrc migration to SLA bug 4571438 ELSE
1954: ( IF G_DEBUG_MODE = 'Y' THEN
1955:
1956: l_LogMsg := 'Cursor get_all_spf_lines ' ;
1957: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
1958:
1959: END IF;
1960:
1961: OPEN get_all_spf_lines (G_ProjLvlGlobRec.project_id);
2094:
2095: IF G_DEBUG_MODE = 'Y' THEN
2096:
2097: l_LogMsg := 'No funding for revaluation ' ;
2098: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
2099:
2100: END IF;
2101: /*
2102: The following 2 global values are reinitialized
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
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;
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;
2211: l_LogMsg := 'Agreement Id:' || p_agreement_id ||
2212: ' Task Id:' || p_task_id ||
2213: ' Retention Level:' || p_retention_level_code;
2214:
2215: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
2216:
2217: END IF;
2218:
2219: /* When the project is funded by top task level the spf will be for every agreement/
2277:
2278: IF G_DEBUG_MODE = 'Y' THEN
2279:
2280: l_LogMsg := 'Task Level Funding Project level Retention';
2281: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
2282:
2283: END IF;
2284:
2285: /* paid amounts are to be computed only if include gains/loss flag is set*/
2337:
2338: IF G_DEBUG_MODE = 'Y' THEN
2339:
2340: l_LogMsg := 'Calling Invoice processing for this project/agreement - First time';
2341: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
2342:
2343: END IF;
2344:
2345: /* Only if include_gains_losses_flag is set, invoice is to be read sequentially
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
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;
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
2666:
2667: IF G_DEBUG_MODE = 'Y' THEN
2668:
2669: l_LogMsg := 'Cursor get_retn_invoices ' ;
2670: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
2671:
2672: END IF;
2673:
2674: OPEN get_retn_invoices;
2765:
2766: IF G_DEBUG_MODE = 'Y' THEN
2767:
2768: l_LogMsg := 'Cursor get_all_retn_invoices ' ;
2769: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
2770:
2771: END IF;
2772:
2773: OPEN get_all_retn_invoices;
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
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;
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
3041: ELSE
3042: IF G_DEBUG_MODE = 'Y' THEN
3043:
3044: l_LogMsg:= ' Retention Adjustment Invoice ' ;
3045: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
3046:
3047: END IF;
3048:
3049: IF ((G_ProjLvlGlobRec.include_gains_losses_flag = 'Y') AND
3094:
3095: IF G_DEBUG_MODE = 'Y' THEN
3096:
3097: l_LogMsg := ' ' ;
3098: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3099:
3100: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
3101: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3102:
3097: l_LogMsg := ' ' ;
3098: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3099:
3100: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
3101: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3102:
3103: l_LogMsg := '==================';
3104: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3105:
3100: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
3101: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3102:
3103: l_LogMsg := '==================';
3104: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3105:
3106: END IF;
3107:
3108:
3119:
3120: IF G_DEBUG_MODE = 'Y' THEN
3121:
3122: l_LogMsg := 'Retention - FC and ITC are different, but = PFC - assigning';
3123: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
3124:
3125: END IF;
3126:
3127: l_ArApplAmtFC := l_ArAmtsTab(l_SobIdIdx).projfunc_applied_amount;
3145: ' Retn appl amt ITC :' || l_ArAmtsTab(l_SobIdIdx).inv_applied_amount ||
3146: ' Retn amt ITC :' || l_BillAmtITC ||
3147: ' Retn amt FC :' || l_BillAmtFC;
3148:
3149: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
3150:
3151: END IF;
3152:
3153: END IF;
3198: ' Appl Amt PFC:' || round(l_ArApplAmtPFC,5) ||
3199: ' Gain Amt PFC:' || round(l_ArGainAmtPFC,5) ||
3200: ' Loss Amt PFC:' || round(l_ArLossAmtPFC,5);
3201:
3202: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
3203:
3204: END IF;
3205:
3206: l_SobIdIdx := G_SobListTab.NEXT(l_SobIdIdx);
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
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 ;
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.
3913:
3914: IF G_DEBUG_MODE = 'Y' THEN
3915:
3916: l_LogMsg := 'Cursor get_proj_invoices ' ;
3917: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
3918:
3919: END IF;
3920:
3921: OPEN get_proj_invoices;
4034:
4035: IF G_DEBUG_MODE = 'Y' THEN
4036:
4037: l_LogMsg := 'Cursor get_task_invoices ' ;
4038: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4039:
4040: END IF;
4041:
4042: l_InvIdx := 0;
4207:
4208: IF G_DEBUG_MODE = 'Y' THEN
4209:
4210: l_LogMsg := 'Cursor get_all_proj_invoices ' ;
4211: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4212:
4213: END IF;
4214:
4215: OPEN get_all_proj_invoices;
4374:
4375: IF G_DEBUG_MODE = 'Y' THEN
4376:
4377: l_LogMsg := 'Cursor get_all_task_invoices ' ;
4378: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4379:
4380: END IF;
4381:
4382: OPEN get_all_task_invoices;
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
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;
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 */
4737: ' Agr Task Id :'|| p_task_id ||
4738: ' Sysref :' || p_system_reference ||
4739: ' inv stat:' || p_invoice_status ||
4740: ' inv type:' || p_Invoice_Type;
4741: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4742:
4743: END IF;
4744:
4745: l_ArAmtsTab.DELETE;
4782:
4783: IF G_DEBUG_MODE = 'Y' THEN
4784:
4785: l_LogMsg:= ' Adjustment Invoice ' ;
4786: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4787:
4788: END IF;
4789:
4790: IF ((G_ProjLvlGlobRec.include_gains_losses_flag = 'Y') AND
4844:
4845: IF G_DEBUG_MODE = 'Y' THEN
4846:
4847: l_LogMsg:= 'Task level funding ' ;
4848: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4849:
4850: END IF;
4851:
4852: l_InvTotTab.DELETE;
4909:
4910: IF G_DEBUG_MODE = 'Y' THEN
4911:
4912: l_LogMsg := ' ' ;
4913: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4914:
4915: l_LogMsg := 'Sob Id:' || l_SobId || ' Task ID:' || p_InvTab(i).task_id;
4916: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4917:
4912: l_LogMsg := ' ' ;
4913: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4914:
4915: l_LogMsg := 'Sob Id:' || l_SobId || ' Task ID:' || p_InvTab(i).task_id;
4916: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4917:
4918: l_LogMsg := '=================';
4919: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4920:
4915: l_LogMsg := 'Sob Id:' || l_SobId || ' Task ID:' || p_InvTab(i).task_id;
4916: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4917:
4918: l_LogMsg := '=================';
4919: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
4920:
4921: END IF;
4922:
4923: IF l_ARAmtsTab.EXISTS(l_SobId) THEN
4927: IF p_InvTab(i).funding_currency_code = p_InvTab(i).projfunc_currency_code THEN
4928: IF G_DEBUG_MODE = 'Y' THEN
4929:
4930: l_LogMsg := 'FC and ITC are different, but = PFC - assigning';
4931: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
4932:
4933: END IF;
4934:
4935: l_ARApplAmtFC := l_ArAmtsTab(l_SobId).projfunc_applied_amount;
4955:
4956: IF G_DEBUG_MODE = 'Y' THEN
4957:
4958: l_LogMsg := 'FC and ITC are different - Prorating';
4959: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4960:
4961: l_LogMsg := 'Appl amt ITC:' || l_ARAmtsTab(l_SobId).inv_applied_amount ||
4962: ' Tot Bill amt ITC:' || l_BillAmtITC ||
4963: ' Tot Bill amt FC:' || l_BillAmtFC ||
4963: ' Tot Bill amt FC:' || l_BillAmtFC ||
4964: ' Appl amt FC:' || round(l_ArApplAmtFc,5) ||
4965: ' Adj amount FC ' || round(l_ArAdjAmtFC,5); /* Added for bug 7237486 */
4966:
4967: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
4968:
4969: END IF;
4970:
4971: END IF;
4984: l_ArAdjAmtPFC := l_ArAmtsTab(l_SobId).projfunc_adjusted_amount; /* Added for bug 7237486 */
4985:
4986: IF G_DEBUG_MODE = 'Y' THEN /* Added for bug 7237486*/
4987: l_LogMsg := 'AR Adjustment Amount in PFC = '||l_ArAdjAmtPFC;
4988: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
4989: END IF;
4990:
4991: END IF; /*l_ArAmtsTab.EXISTS(l_SobId) */
4992: /* AR might not have received any payment. Avoid division by zero error */
5057:
5058: l_LogMsg := 'Net Amt PFC:' || round(l_NetAmtPFC,5) ||
5059: ' Net Amt FC:' || round(l_NetAmtFC,5);
5060:
5061: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5062:
5063: END IF;
5064:
5065: /*
5199: l_LogMsg:=l_LogMsg||'original inv due amount : l_ARAmtsTab(l_SobId).inv_applied_amount: ' ||l_ARAmtsTab(l_SobId).inv_applied_amount;
5200: ELSE
5201: l_LogMsg:=l_LogMsg||'original inv due amount : l_ARAmtsTab(l_SobId).inv_applied_amount: 0';
5202: END IF;
5203: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5204: l_LogMsg := 'New inv due amount : p_InvTab(i).inv_amount ' || p_InvTab(i).inv_amount;
5205: l_LogMsg := l_LogMsg || 'New inv due amount : p_InvTab(i).funding_bill_amount ' || p_InvTab(i).funding_bill_amount;
5206: l_LogMsg := l_LogMsg || 'New inv due amount : l_DueAmtFC ' || l_DueAmtFC;
5207: l_LogMsg := l_LogMsg || 'New inv due amount : ' || l_ITC_due_amount ;
5204: l_LogMsg := 'New inv due amount : p_InvTab(i).inv_amount ' || p_InvTab(i).inv_amount;
5205: l_LogMsg := l_LogMsg || 'New inv due amount : p_InvTab(i).funding_bill_amount ' || p_InvTab(i).funding_bill_amount;
5206: l_LogMsg := l_LogMsg || 'New inv due amount : l_DueAmtFC ' || l_DueAmtFC;
5207: l_LogMsg := l_LogMsg || 'New inv due amount : ' || l_ITC_due_amount ;
5208: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5209: l_LogMsg := ' '; /* Bug 4346765 */
5210: END IF;
5211:
5212: i_conversion_type_tab.DELETE;
5289: l_LogMsg := l_LogMsg || ' to currency : ' || p_InvTab(i).projfunc_currency_code ;
5290: l_LogMsg := l_LogMsg || 'l_ITC_due_amount :' || l_ITC_due_amount || 'projfunc_rate_type :' || i_ProjfuncRateType;
5291: l_LogMsg := l_LogMsg || 'projfunc_inv_rate after calling amount_bulk :' || i_rate_tab(1);
5292: l_LogMsg := l_LogMsg || 'projfunc_inv_duie amount after assigning :' || l_revald_pf_inv_due_amount ;
5293: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5294: l_LogMsg := ' '; /* Bug 4346765 */
5295:
5296: ELSE
5297: l_revald_pf_inv_due_amount := l_ITC_due_amount;
5297: l_revald_pf_inv_due_amount := l_ITC_due_amount;
5298:
5299: l_LogMsg := l_LogMsg || 'l_ITC_due_amount :' || l_ITC_due_amount || 'projfunc_rate_type :' || i_ProjfuncRateType;
5300: l_LogMsg := l_LogMsg || 'projfunc_inv_due amount after assigning :' || l_revald_pf_inv_due_amount ;
5301: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5302: l_LogMsg := ' '; /* Bug 4346765 */
5303: END IF; /* if IC<>PFC */
5304: /* Bug 3221279 - End */
5305:
5370:
5371: l_LogMsg := 'Billed Amt PFC:' || l_BillAmtPFC ||
5372: ' Billed Amt FC:' || l_BillAmtFC ||
5373: ' Billed Amt IPC:' || l_BillAmtIPC ;
5374: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5375:
5376: l_LogMsg := 'Appl Amt FC:' || round(l_ApplAmtFC,5) ||
5377: ' Appl Amt PFC:' || round(l_ApplAmtPFC,5) ||
5378: ' Gain Amt PFC:' || round(l_GainAmtPFC,5) ||
5376: l_LogMsg := 'Appl Amt FC:' || round(l_ApplAmtFC,5) ||
5377: ' Appl Amt PFC:' || round(l_ApplAmtPFC,5) ||
5378: ' Gain Amt PFC:' || round(l_GainAmtPFC,5) ||
5379: ' Loss Amt PFC:' || round(l_LossAmtPFC,5) ;
5380: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5381:
5382: END IF;
5383:
5384: END LOOP;
5387:
5388: IF G_DEBUG_MODE = 'Y' THEN
5389:
5390: l_LogMsg:= 'Project level funding ' ;
5391: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5392:
5393: END IF;
5394:
5395: l_SobIdIdx := G_SobListTab.FIRST;
5422:
5423: IF G_DEBUG_MODE = 'Y' THEN
5424:
5425: l_LogMsg := ' ' ;
5426: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5427:
5428: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
5429: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5430:
5425: l_LogMsg := ' ' ;
5426: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5427:
5428: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
5429: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5430:
5431: l_LogMsg := '==================';
5432: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5433:
5428: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
5429: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5430:
5431: l_LogMsg := '==================';
5432: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
5433:
5434: END IF;
5435:
5436: IF l_ArAmtsTab.EXISTS(l_SobIdIdx) THEN
5445:
5446: IF G_DEBUG_MODE = 'Y' THEN
5447:
5448: l_LogMsg := ' FC and ITC are different, but = PFC - assigning';
5449: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
5450:
5451: END IF;
5452:
5453: l_ARApplAmtFC := l_ArAmtsTab(l_SobIdIdx).projfunc_applied_amount;
5455:
5456: IF G_DEBUG_MODE = 'Y' THEN
5457:
5458: l_LogMsg := ' AR Adjusted amount in FC = '||l_ArAdjAmtFC; /* Added for bug 7237486 */
5459: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
5460:
5461: END IF;/* Added for bug 7237486 */
5462:
5463: ELSE
5481: 'Appl amt ITC:' || l_ARAmtsTab(l_SobIdIdx).inv_applied_amount ||
5482: 'Bill amt ITC:' || l_BillAmtITC ||
5483: 'Bill amt FC:' || l_BillAmtFC;
5484:
5485: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5486:
5487: END IF;
5488:
5489: END IF;
5501:
5502: IF G_DEBUG_MODE = 'Y' THEN
5503:
5504: l_LogMsg := ' AR Adjusted amount in PFC = '||l_ArAdjAmtPFC; /* Added for bug 7237486 */
5505: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
5506:
5507: END IF;
5508:
5509: END IF; /*l_ArAmtsTab.EXISTS(l_SobIdIdx) */
5549:
5550: IF G_DEBUG_MODE = 'Y' THEN
5551:
5552: l_LogMsg := ' Proje level ' || l_SobIdIdx || ' already exists adding';
5553: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5554:
5555: END IF;
5556:
5557: G_InvCompTab(l_SobIdIdx).invproc_billed_amount :=
5574:
5575: IF G_DEBUG_MODE = 'Y' THEN
5576:
5577: l_LogMsg := ' Proje level ' || l_SobIdIdx || ' does not exists assigning';
5578: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5579:
5580: END IF;
5581: G_InvCompTab(l_SobIdIdx).project_id := p_project_id;
5582: G_InvCompTab(l_SobIdIdx).agreement_id := p_agreement_id;
5619: l_LogMsg:=l_LogMsg||'original inv due amount : l_ARAmtsTab(l_SobIdIdx).inv_applied_amount: ' ||l_ARAmtsTab(l_SobIdIdx).inv_applied_amount;
5620: ELSE
5621: l_LogMsg:=l_LogMsg||'original inv due amount : l_ARAmtsTab(l_SobId).inv_applied_amount: 0';
5622: END IF;
5623: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5624: l_LogMsg := 'New inv due amount : p_InvTab(l_SobIdIdx).inv_amount ' || p_InvTab(l_SobIdIdx).inv_amount;
5625: l_LogMsg := l_LogMsg || 'New inv due amount : p_InvTab(l_SobIdIdx).funding_bill_amount ' || p_InvTab(l_SobIdIdx).funding_bill_amount;
5626: l_LogMsg := l_LogMsg || 'New inv due amount : l_DueAmtFC ' || l_DueAmtFC;
5627: l_LogMsg := l_LogMsg || 'New inv due amount : ' || l_ITC_due_amount ;
5624: l_LogMsg := 'New inv due amount : p_InvTab(l_SobIdIdx).inv_amount ' || p_InvTab(l_SobIdIdx).inv_amount;
5625: l_LogMsg := l_LogMsg || 'New inv due amount : p_InvTab(l_SobIdIdx).funding_bill_amount ' || p_InvTab(l_SobIdIdx).funding_bill_amount;
5626: l_LogMsg := l_LogMsg || 'New inv due amount : l_DueAmtFC ' || l_DueAmtFC;
5627: l_LogMsg := l_LogMsg || 'New inv due amount : ' || l_ITC_due_amount ;
5628: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5629: l_LogMsg := ' '; /* Bug 4346765 */
5630: END IF;
5631:
5632: i_conversion_type_tab.DELETE;
5709: l_LogMsg := l_LogMsg || ' to currency : ' || p_InvTab(l_SobIdIdx).projfunc_currency_code ;
5710: l_LogMsg := l_LogMsg || 'l_ITC_due_amount :' || l_ITC_due_amount || 'projfunc_rate_type :' || i_ProjfuncRateType;
5711: l_LogMsg := l_LogMsg || 'projfunc_inv_rate after calling amount_bulk :' || i_rate_tab(1);
5712: l_LogMsg := l_LogMsg || 'projfunc_inv_due amount after assigning :' || l_revald_pf_inv_due_amount ;
5713: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5714: l_LogMsg := ' '; /* Bug 4346765 */
5715: ELSE
5716: l_revald_pf_inv_due_amount := l_ITC_due_amount;
5717:
5718: l_LogMsg := 'Inv currency code :' || p_InvTab(l_SobIdIdx).inv_currency_code ;
5719: l_LogMsg := l_LogMsg || ' to currency : ' || p_InvTab(l_SobIdIdx).projfunc_currency_code ;
5720: l_LogMsg := l_LogMsg || 'l_ITC_due_amount :' || l_ITC_due_amount || 'projfunc_rate_type :' || i_ProjfuncRateType;
5721: l_LogMsg := l_LogMsg || 'projfunc_inv_due amount after assigning :' || l_revald_pf_inv_due_amount ;
5722: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5723: l_LogMsg := ' '; /* Bug 4346765 */
5724: END IF; /* if IC<>PFC */
5725:
5726:
5793:
5794: l_LogMsg := 'Billed Amt PFC:' || l_BillAmtPFC ||
5795: ' Billed Amt FC:' || l_BillAmtFC ||
5796: ' Billed Amt IPC:' || l_BillAmtIPC ;
5797: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5798:
5799: l_LogMsg := 'Appl Amt FC:' || round(l_ApplAmtFC,5) ||
5800: ' Appl Amt PFC:' || round(l_ApplAmtPFC,5) ||
5801: ' Gain Amt PFC:' || round(l_GainAmtPFC,5) ||
5799: l_LogMsg := 'Appl Amt FC:' || round(l_ApplAmtFC,5) ||
5800: ' Appl Amt PFC:' || round(l_ApplAmtPFC,5) ||
5801: ' Gain Amt PFC:' || round(l_GainAmtPFC,5) ||
5802: ' Loss Amt PFC:' || round(l_LossAmtPFC,5) ;
5803: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5804:
5805: END IF;
5806:
5807: l_SobIdIdx := G_SobListTab.NEXT(l_SobIdIdx);
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
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;
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
5957:
5958: IF G_DEBUG_MODE = 'Y' THEN
5959:
5960: l_LogMsg := 'Cursor get_inv_total ' ;
5961: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5962:
5963: END IF;
5964:
5965: OPEN get_inv_total;
5987: ' IPC Amt:' || l_BillAmtIPCTab(i) ||
5988: ' PFC Amt:' || l_BillAmtPFCTab(i) ||
5989: ' FC Amt:' || l_BillAmtFCTab(i) ||
5990: ' ITC Amt:' || l_BillAmtITCTab(i);
5991: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
5992:
5993: END IF;
5994:
5995: END LOOP;
6014:
6015: IF G_DEBUG_MODE = 'Y' THEN
6016:
6017: l_LogMsg := 'Cursor get_all_inv_total ' ;
6018: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6019:
6020: END IF;
6021:
6022: OPEN get_all_inv_total;
6044: ' IPC Amt:' || l_BillAmtIPCTab(i) ||
6045: ' PFC Amt:' || l_BillAmtPFCTab(i) ||
6046: ' FC Amt:' || l_BillAmtFCTab(i) ||
6047: ' ITC Amt:' || l_BillAmtITCTab(i);
6048: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6049:
6050: END IF;
6051:
6052: END LOOP;
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
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;
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 ;
6329:
6330: l_LogMsg := 'Project Id:' || p_project_id ||
6331: ' Task Id:' || p_task_id ||
6332: ' Draft Inv Num:' || p_draft_inv_num ;
6333: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6334:
6335: END IF;
6336:
6337: /* This procedure will get retained amount for an invoice/task (of draft invoice items) in
6355:
6356: IF G_DEBUG_MODE = 'Y' THEN
6357:
6358: l_LogMsg := 'Cursor rdl_amount ' ;
6359: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6360:
6361: END IF;
6362:
6363: l_TotalFetch := 0;
6414:
6415: IF G_DEBUG_MODE = 'Y' THEN
6416:
6417: l_LogMsg := 'Cursor erdl_amount ' ;
6418: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6419:
6420: END IF;
6421:
6422: l_TotalFetch := 0;
6467:
6468: IF G_DEBUG_MODE = 'Y' THEN
6469:
6470: l_LogMsg := 'Cursor dii_amount ' ;
6471: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6472:
6473: END IF;
6474:
6475: l_TotalFetch := 0;
6522:
6523: IF G_DEBUG_MODE = 'Y' THEN
6524:
6525: l_LogMsg := 'Cursor rdl_amount_all ' ;
6526: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6527:
6528: END IF;
6529:
6530: l_TotalFetch := 0;
6575:
6576: IF G_DEBUG_MODE = 'Y' THEN
6577:
6578: l_LogMsg := 'Cursor erdl_amount_all ' ;
6579: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6580:
6581: END IF;
6582:
6583: l_TotalFetch := 0;
6628:
6629: IF G_DEBUG_MODE = 'Y' THEN
6630:
6631: l_LogMsg := 'Cursor dii_amount_all ' ;
6632: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6633:
6634: END IF;
6635:
6636: l_TotalFetch := 0;
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
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;
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
6794:
6795: l_LogMsg := 'Sob Id:' || l_SobId ||
6796: ' PFC Retained Amt:' || round(x_RetainedAmtTab(l_SobId).projfunc_retained_amount,4) ||
6797: ' FC Retained Amt:' || round(x_RetainedAmtTab(l_SobId).funding_retained_amount,4);
6798: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
6799:
6800: END IF;
6801:
6802:
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
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;
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:
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:
6914: l_LogMsg := '==================';
6915: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6916:
6911: l_LogMsg := 'Sob Id:' || p_SobId ;
6912: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6913:
6914: l_LogMsg := '==================';
6915: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
6916:
6917: END IF;
6918:
6919: x_retn_appl_amt_pfc := 0;
6977: ' FC Retn Appl Amt:' || round(x_retn_appl_amt_fc,4) ||
6978: ' PFC Retn gain Amt:' || round(x_retn_gain_amt_pfc,4) ||
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:
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
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;
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.
7226:
7227: IF G_DEBUG_MODE = 'Y' THEN
7228:
7229: l_LogMsg := 'Cursor get_sum_proj_invoices ' ;
7230: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7231:
7232: END IF;
7233:
7234: OPEN get_proj_invoices;
7288:
7289: IF G_DEBUG_MODE = 'Y' THEN
7290:
7291: l_LogMsg := 'Cursor get_sum_task_invoices ' ;
7292: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7293:
7294: END IF;
7295:
7296: OPEN get_task_invoices;
7355:
7356: IF G_DEBUG_MODE = 'Y' THEN
7357:
7358: l_LogMsg := 'Cursor get_sum_all_proj_invoices ' ;
7359: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7360:
7361: END IF;
7362:
7363: OPEN get_all_proj_invoices;
7417:
7418: IF G_DEBUG_MODE = 'Y' THEN
7419:
7420: l_LogMsg := 'Cursor get_sum_all_task_invoices ' ;
7421: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7422:
7423: END IF;
7424:
7425: OPEN get_all_task_invoices;
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
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;
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
7587:
7588: IF G_DEBUG_MODE = 'Y' THEN
7589:
7590: l_LogMsg := ' ' ;
7591: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7592:
7593: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
7594: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7595:
7590: l_LogMsg := ' ' ;
7591: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7592:
7593: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
7594: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7595:
7596: l_LogMsg := '==================';
7597: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7598:
7593: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
7594: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7595:
7596: l_LogMsg := '==================';
7597: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7598:
7599: END IF;
7600:
7601: /* Put in g_InvCompTab */
7670:
7671: l_LogMsg := 'Billed Amt PFC:' || p_BillAmtPFCTab(i) ||
7672: ' Billed Amt FC:' || p_BillAmtFCTab(i) ||
7673: ' Billed Amt IPC:' || p_BillAmtIPCTab(i) ;
7674: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7675:
7676: END IF;
7677:
7678: END LOOP; /*SetOfBookIdTab LOO */
7685:
7686: IF G_DEBUG_MODE = 'Y' THEN
7687:
7688: l_LogMsg := ' ' ;
7689: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7690:
7691: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
7692: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7693:
7688: l_LogMsg := ' ' ;
7689: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7690:
7691: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
7692: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7693:
7694: l_LogMsg := '==================';
7695: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7696:
7691: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
7692: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7693:
7694: l_LogMsg := '==================';
7695: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
7696:
7697: END IF;
7698:
7699: l_FoundFlag := 'N';
7740:
7741: l_LogMsg := 'Billed Amt PFC:' || p_BillAmtPFCTab(i) ||
7742: ' Billed Amt FC:' || p_BillAmtFCTab(i) ||
7743: ' Billed Amt IPC:' || p_BillAmtIPCTab(i) ;
7744: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7745:
7746: END IF;
7747:
7748: END LOOP;
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
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;
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;
7913: ' FC Currency :' || l_FundingCurrencyCode ||
7914: ' PFC Currency :' || l_ProjFuncCurrencyCode ||
7915: ' IPC Currency :' || l_InvprocCurrencyCode;
7916:
7917: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7918:
7919: END IF;
7920:
7921: /* In case run-time param rate type is null assign from projec level */
7928: l_LogMsg := 'Conversion attributes assigned:' ||
7929: ' PFC Rate type:' || l_ProjfuncRateType ||
7930: ' IPC Rate type:' || l_InvprocRateType;
7931:
7932: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
7933:
7934: END IF;
7935:
7936:
8096:
8097: IF G_DEBUG_MODE = 'Y' THEN
8098:
8099: l_LogMsg := 'Conv attr before client extension ' ;
8100: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8101:
8102: l_LogMsg := 'PFC rate type:' || l_ProjfuncRevalType ||
8103: ' PFC Rate:' || l_ProjfuncRevalRate ||
8104: ' IPC rate type:' || l_InvprocRevalType ||
8103: ' PFC Rate:' || l_ProjfuncRevalRate ||
8104: ' IPC rate type:' || l_InvprocRevalType ||
8105: ' IPC Rate:' || l_InvprocRevalRate;
8106:
8107: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8108:
8109: END IF;
8110:
8111: /* No invoices have been generated.*/
8260:
8261: IF G_DEBUG_MODE = 'Y' THEN
8262:
8263: l_LogMsg := 'Revaluation Index ' || l_RevaluationIndex ;
8264: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8265:
8266: END IF;
8267:
8268: /* Do conversion for revaluation using the attributes derived at the beginning of the call */
8275:
8276: IF G_DEBUG_MODE = 'Y' THEN
8277:
8278: l_LogMsg := ' ' ;
8279: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8280:
8281: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
8282: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8283:
8278: l_LogMsg := ' ' ;
8279: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8280:
8281: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
8282: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8283:
8284: l_LogMsg := '==================';
8285: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8286:
8281: l_LogMsg := 'Sob Id:' || l_SobIdIdx ;
8282: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8283:
8284: l_LogMsg := '==================';
8285: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8286:
8287: END IF;
8288:
8289: /* Initialize assuming there are no invoices */
8301:
8302: IF G_DEBUG_MODE = 'Y' THEN
8303:
8304: l_LogMsg := 'Invoices have been generated';
8305: PA_FUND_REVAL_UTIL.Log_Message(p_message =>l_LogMsg);
8306:
8307: END IF;
8308:
8309: FOR i in G_InvCompTab.first..G_InvCompTab.LAST LOOP
8315: l_LogMsg := 'Inv tab: sobid:' || G_InvCompTab(i).set_of_books_id ||
8316: ' agr id:' || G_InvCompTab(i).agreement_id ||
8317: ' tsk id:' || G_InvCompTab(i).task_id;
8318:
8319: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8320:
8321: l_LogMsg := 'Reval tab: sobid:' || l_SobIdIdx ||
8322: ' agr id:' || G_RevalCompTab(l_SobIdIdx).agreement_id ||
8323: ' tsk id:' || G_RevalCompTab(l_SobIdIdx).task_id;
8321: l_LogMsg := 'Reval tab: sobid:' || l_SobIdIdx ||
8322: ' agr id:' || G_RevalCompTab(l_SobIdIdx).agreement_id ||
8323: ' tsk id:' || G_RevalCompTab(l_SobIdIdx).task_id;
8324:
8325: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8326:
8327: END IF;
8328:
8329: IF ((G_InvCompTab(i).set_of_books_id = l_SobIdIdx) AND
8387:
8388: l_LogMsg := ' FC billed amount:' || G_InvCompTab(i).funding_billed_amount ||
8389: ' FC Appl amount: ' || round(G_InvCompTab(i).funding_applied_amount,5) ||
8390: ' nvl(G_InvCompTab(i).revald_pf_inv_due_amount,0) : ' || nvl(G_InvCompTab(i).revald_pf_inv_due_amount,0);
8391: PA_FUND_REVAL_UTIL.log_message(l_LogMsg);
8392:
8393: END IF;
8394:
8395: G_RevalCompTab(l_SobIdIdx).funding_inv_due_amount :=
8438:
8439: IF G_DEBUG_MODE = 'Y' THEN
8440:
8441: l_LogMsg := 'PFC billed amount (only when include gains losses is N):' || l_ProjfuncBilledAmount;
8442: PA_FUND_REVAL_UTIL.log_message(l_LogMsg);
8443:
8444: END IF;
8445:
8446: END IF;
8510: ' FC Due:' || round(l_DueAmtFC,5) ||
8511: ' FC :' || l_FundingCurrencyCode ||
8512: ' PFC: ' || l_ProjfuncCurrencyCode ;
8513:
8514: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8515:
8516: END IF;
8517:
8518: IF l_SobIdIdx = G_SET_OF_BOOKS_ID THEN
8523:
8524: IF G_DEBUG_MODE = 'Y' THEN
8525:
8526: l_LogMsg := 'Primary Processing attributes';
8527: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8528:
8529: END IF;
8530:
8531: l_ProjfuncRateType := nvl(l_ProjfuncRevalType, l_ProjfuncRateType);
8539: ' IPC Rate Type:' || l_InvprocRateType ||
8540: ' PFC Rate: ' || l_ProjFuncRate ||
8541: ' IPC Rate: ' || l_InvprocRate ;
8542:
8543: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8544:
8545: END IF;
8546:
8547: l_from_currency_tab.DELETE;
8590:
8591: IF G_DEBUG_MODE = 'Y' THEN
8592:
8593: l_LogMsg := 'Calling conversion for PFC ';
8594: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8595:
8596: END IF;
8597:
8598: PA_MULTI_CURRENCY_BILLING.convert_amount_bulk (
8655: ' PFC Rate type:' || l_conversion_type_tab(1) ||
8656: ' l_ProjfuncRateType: ' || l_ProjfuncRateType ||
8657: ' PFC Rate :' || l_rate_tab(1);
8658:
8659: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8660:
8661: l_LogMsg := 'PFC Revald Due amt :' || l_converted_amount_tab(2) ||
8662: ' PFC Revald backlog amt :' || l_converted_amount_tab(1);
8663:
8660:
8661: l_LogMsg := 'PFC Revald Due amt :' || l_converted_amount_tab(2) ||
8662: ' PFC Revald backlog amt :' || l_converted_amount_tab(1);
8663:
8664: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8665:
8666: END IF;
8667:
8668: END IF;
8697:
8698: IF G_DEBUG_MODE = 'Y' THEN
8699:
8700: l_LogMsg := 'Calling conversion for IPC ';
8701: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8702:
8703: END IF;
8704:
8705: PA_MULTI_CURRENCY_BILLING.convert_amount_bulk (
8761:
8762: l_LogMsg := 'IPC Rate type:' || l_conversion_type_tab(1) ||
8763: ' IPC Rate :' || l_rate_tab(1);
8764:
8765: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8766:
8767: l_LogMsg := 'IPC Revald backlog amt :' || l_converted_amount_tab(1) ||
8768: ' IPC backlog amt :' || l_InvprocBacklogAmount;
8769:
8766:
8767: l_LogMsg := 'IPC Revald backlog amt :' || l_converted_amount_tab(1) ||
8768: ' IPC backlog amt :' || l_InvprocBacklogAmount;
8769:
8770: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8771:
8772: END IF;
8773:
8774: END IF;
8777:
8778: IF G_DEBUG_MODE = 'Y' THEN
8779:
8780: l_LogMsg := 'Reporting Processing Attributes';
8781: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8782:
8783: END IF;
8784:
8785: l_InvProcBacklogAmount := 0;
8798:
8799: l_LogMsg := 'PFC Rate type:' || l_ProjfuncRateType ||
8800: ' PFC Rate :' || l_ProjfuncRate ;
8801:
8802: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8803:
8804: END IF;
8805:
8806: /* mrc migration to SLA bug 4571438
8834: ' PFC Rate type:' || l_ProjfuncRateType ||
8835: ' PFC Rate :' || l_ProjfuncRate ||
8836: ' Numerator :' || l_NumeratorRate ||
8837: ' Denominator :' || l_DenominatorRate ;
8838: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8839:
8840:
8841: l_LogMsg := 'PFC RVLD due amt:' || l_RcInvDueAmount ||
8842: ' PFC RVLD backlog amt:' || l_RcBacklogAmount;
8840:
8841: l_LogMsg := 'PFC RVLD due amt:' || l_RcInvDueAmount ||
8842: ' PFC RVLD backlog amt:' || l_RcBacklogAmount;
8843:
8844: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8845:
8846: END IF;
8847:
8848:
8910: l_LogMsg := 'Billed amt over funding amt ' ||
8911: ' PFC revald amount:' || round(G_RevalCompTab(l_SobIdIdx).projfunc_revalued_amount,5) ||
8912: ' IPC revald amount:' || round(G_RevalCompTab(l_SobIdIdx).invproc_revalued_amount,5);
8913:
8914: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8915:
8916: END IF;
8917:
8918: ELSE */
8924: IF G_DEBUG_MODE = 'Y' THEN
8925: l_LogMsg := ' PFC_invapplamt :'|| G_RevalCompTab(l_SobIdIdx).projfunc_inv_applied_amount || 'PF_invoice_due_amount: ' ;
8926: l_LogMsg := l_LogMsg || G_RevalCompTab(l_SobIdIdx).projfunc_inv_due_amount || 'PFbacklog: ';
8927: l_LogMsg := l_LogMsg || G_RevalCompTab(l_SobIdIdx).projfunc_backlog_amount ||'PF billed amount: '|| l_ProjfuncBilledAmount ;
8928: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8929: l_LogMsg := ' '; /* Bug 4346765 */
8930: END IF;
8931:
8932: G_RevalCompTab(l_SobIdIdx).projfunc_revalued_amount :=
8967: ' PFC revald amount:' || round(G_RevalCompTab(l_SobIdIdx).projfunc_revalued_amount,5) ||
8968: ' PFC reval amount:' || round(G_RevalCompTab(l_SobIdIdx).projfunc_reval_amount,5) ||
8969: ' PFC adj amount:' || round(G_RevalCompTab(l_SobIdIdx).projfunc_allocated_amount,5);
8970:
8971: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8972:
8973: l_LogMsg := 'After Revaluation' ||
8974: ' IPC revald amount:' || round(G_RevalCompTab(l_SobIdIdx).invproc_revalued_amount,5) ||
8975: ' IPC reval amount:' || round(G_RevalCompTab(l_SobIdIdx).invproc_reval_amount,5) ||
8974: ' IPC revald amount:' || round(G_RevalCompTab(l_SobIdIdx).invproc_revalued_amount,5) ||
8975: ' IPC reval amount:' || round(G_RevalCompTab(l_SobIdIdx).invproc_reval_amount,5) ||
8976: ' IPC adj amount:' || round(G_RevalCompTab(l_SobIdIdx).invproc_allocated_amount,5);
8977:
8978: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
8979:
8980: END IF;
8981:
8982: /* Change Request: When the invoiced amount in funding currency exceeds the funded amount in funding currency,
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
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;
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
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
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;
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 */
9229: IF G_DEBUG_MODE = 'Y' THEN
9230:
9231: l_LogMsg := 'Set of books:' || l_SobId ||
9232: ' Rate type:' || G_RevalCompTab(l_SobId).reval_projfunc_rate_type ;
9233: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
9234:
9235: END IF;
9236:
9237: l_LogMsg := ' Bug 3532963 : G_RevalCompTab(l_SobId).agreement_id :' || G_RevalCompTab(l_SobId).agreement_id ||
9237: l_LogMsg := ' Bug 3532963 : G_RevalCompTab(l_SobId).agreement_id :' || G_RevalCompTab(l_SobId).agreement_id ||
9238: ' invproc_allocated_amount :' || G_RevalCompTab(l_SobId).invproc_allocated_amount ||
9239: ' projfunc_allocated_amount : ' || G_RevalCompTab(l_SobId).projfunc_allocated_amount;
9240:
9241: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
9242:
9243: IF ((G_PRIMARY_ONLY = 'N') OR ( G_RevalCompTab(l_SobId).projfunc_allocated_amount <> 0)
9244: OR (G_RevalCompTab(l_SobId).invproc_allocated_amount <> 0)
9245: OR (G_RevalCompTab(l_SobId).projfunc_realized_gains_amt <> 0)
9323:
9324: IF G_DEBUG_MODE = 'Y' THEN
9325:
9326: l_LogMsg := 'After Insert Project Funding Id:' || l_ProjectFundingId;
9327: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
9328:
9329: END IF;
9330:
9331: l_NonZeroExists := 'N';
9346:
9347: IF G_DEBUG_MODE = 'Y' THEN
9348:
9349: l_LogMsg := 'Non zero elements exist';
9350: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
9351:
9352: END IF;
9353:
9354: UPDATE pa_summary_project_fundings
9472:
9473: IF G_DEBUG_MODE = 'Y' THEN
9474:
9475: l_LogMsg := 'Non zero elements does notexist';
9476: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
9477:
9478: END IF;
9479:
9480: DELETE FROM pa_project_fundings
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
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;
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;
9613:
9614: IF G_DEBUG_MODE = 'Y' THEN
9615:
9616: l_LogMsg := 'Event Num:' || l_EventNum;
9617: PA_FUND_REVAL_UTIL.Log_Message(p_message=>l_LogMsg);
9618:
9619: END IF;
9620:
9621: pa_events_pkg.insert_row (
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
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;
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;
9869: ' PFC gain amt:' || l_ArAmtsTab(l_SobIdIdx).projfunc_gain_amount ||
9870: ' PFC loss amt:' || l_ArAmtsTab(l_SobIdIdx).projfunc_loss_amount ||
9871: ' AR Adj amt in IC :' || l_ArAmtsTab(l_SobIdIdx).inv_adjusted_amount ||
9872: ' AR Adj amt in PFCC :' || l_ArAmtsTab(l_SobIdIdx).projfunc_adjusted_amount; /* Added for bug 7237486*/
9873: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
9874:
9875: END IF;
9876:
9877: ELSE
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
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;
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
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
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;
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;
10059:
10060: IF G_DEBUG_MODE = 'Y' THEN
10061:
10062: l_LogMsg := l_ReasonCode;
10063: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
10064:
10065: END IF;
10066:
10067: Insert_distribution_warnings(
10093:
10094: IF G_DEBUG_MODE = 'Y' THEN
10095:
10096: l_LogMsg := l_ReasonCode;
10097: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
10098:
10099: END IF;
10100:
10101: Insert_distribution_warnings(
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
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;
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 ;
10223:
10224: l_LogMsg := 'From prj:' || p_from_proj_number ||
10225: ' To prj:' || p_to_proj_number ||
10226: ' Proj type:' || p_project_type_id ;
10227: PA_FUND_REVAL_UTIL.Log_Message(l_LogMsg);
10228:
10229: END IF;
10230:
10231:
10233:
10234: IF G_DEBUG_MODE = 'Y' THEN
10235:
10236: l_LogMsg := 'Project ID :' || proj_rec.project_id ;
10237: PA_FUND_REVAL_UTIL.Log_Message(p_message => l_LogMsg);
10238:
10239: END IF;
10240:
10241:
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
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;