DBA Data[Home] [Help]

APPS.PA_BGT_BASELINE_PKG dependencies on PA_FCK_UTIL

Line 165: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Entering Insert BGT Balances');

161: --Initialize the return status to success
162: x_return_status := FND_API.G_RET_STS_SUCCESS;
163:
164: IF P_DEBUG_MODE = 'Y' THEN
165: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Entering Insert BGT Balances');
166: END IF;
167:
168: --Delete all records for the passed draft budget version id
169: --This is to make sure that existing balance records for the draft version id due to

Line 172: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Open cursor to delete draft budget version- '||p_budget_version_id);

168: --Delete all records for the passed draft budget version id
169: --This is to make sure that existing balance records for the draft version id due to
170: --a failure in the budget baselining process will be deleted
171: IF P_DEBUG_MODE = 'Y' THEN
172: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Open cursor to delete draft budget version- '||p_budget_version_id);
173: END IF;
174: OPEN c_deldraftbal(p_budget_version_id);
175: LOOP
176:

Line 185: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No rec in c_deldraftbal, exit');

181: limit rows;
182:
183: if l_BalRowIdTab.count = 0 then
184: IF P_DEBUG_MODE = 'Y' THEN
185: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No rec in c_deldraftbal, exit');
186: END IF;
187: exit;
188: end if;
189:

Line 191: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Delete draft budget versions = ' || l_BalRowIdTab.count);

187: exit;
188: end if;
189:
190: IF P_DEBUG_MODE = 'Y' THEN
191: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Delete draft budget versions = ' || l_BalRowIdTab.count);
192: END IF;
193: FORALL j in l_BalRowIdTab.first..l_BalRowIdTab.last
194: delete from pa_bc_balances
195: where rowid = l_BalRowIdTab(j);

Line 202: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After deleting draft versions, close cursor');

198: exit when c_deldraftbal%notfound;
199: END LOOP;
200: CLOSE c_deldraftbal;
201: IF P_DEBUG_MODE = 'Y' THEN
202: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After deleting draft versions, close cursor');
203: END IF;
204:
205: --If Budget is baselined before then we need to get the latest baselined
206: --version and delete from pa_bc_balances where budget_version_id not equal

Line 214: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Get baselined budget');

210: --IF (PA_FUNDS_CONTROL_UTILS.Is_Budget_Baselined_Before(p_project_id) = 'Y') then
211:
212: --Get latest Baselined budget version id
213: IF P_DEBUG_MODE = 'Y' THEN
214: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Get baselined budget');
215: END IF;
216:
217: PA_FUNDS_CONTROL_UTILS.Get_Baselined_Budget_Version(
218: p_calling_mode => p_bdgt_ctrl_type,

Line 227: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After get baselined budget = '||l_base_version_id||' RetSts = '||x_return_status);

223: x_return_status => x_return_status,
224: x_error_message_code => x_error_message_code);
225:
226: IF P_DEBUG_MODE = 'Y' THEN
227: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After get baselined budget = '||l_base_version_id||' RetSts = '||x_return_status);
228: END IF;
229:
230: --If there is a baselined version then we delete balance records for versions prior to this version
231: IF (l_base_version_id is not null) THEN

Line 234: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Baselined budget exists, delete old versions');

230: --If there is a baselined version then we delete balance records for versions prior to this version
231: IF (l_base_version_id is not null) THEN
232:
233: IF P_DEBUG_MODE = 'Y' THEN
234: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Baselined budget exists, delete old versions');
235: END IF;
236: --l_BalRowIdTab.Delete;
237:
238: --delete from pa_bc_balances where budget_version_id <> l_base_version_id

Line 241: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Open cursor to delete old budget versions');

237:
238: --delete from pa_bc_balances where budget_version_id <> l_base_version_id
239: PA_DEBUG.set_err_stack('Delete');
240: IF P_DEBUG_MODE = 'Y' THEN
241: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Open cursor to delete old budget versions');
242: END IF;
243: OPEN c_delbal(p_bdgt_ctrl_type,l_base_version_id);
244: LOOP
245:

Line 254: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No rec in c_delbal, exit');

250: limit rows;
251:
252: if l_BalRowIdTab.count = 0 then
253: IF P_DEBUG_MODE = 'Y' THEN
254: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No rec in c_delbal, exit');
255: END IF;
256: exit;
257: end if;
258:

Line 260: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Delete old budget versions = ' || l_BalRowIdTab.count);

256: exit;
257: end if;
258:
259: IF P_DEBUG_MODE = 'Y' THEN
260: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Delete old budget versions = ' || l_BalRowIdTab.count);
261: END IF;
262: FORALL j in l_BalRowIdTab.first..l_BalRowIdTab.last
263: delete from pa_bc_balances
264: where rowid = l_BalRowIdTab(j);

Line 271: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After deleting old budget versions, close cursor');

267: exit when c_delbal%notfound;
268: END LOOP;
269: CLOSE c_delbal;
270: IF P_DEBUG_MODE = 'Y' THEN
271: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After deleting old budget versions, close cursor');
272: END IF;
273: PA_DEBUG.Reset_Err_Stack; --3912094
274: END IF;
275:

Line 281: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = Y');

277:
278: IF (p_bdgt_intg_flag = 'Y') THEN
279:
280: IF P_DEBUG_MODE = 'Y' THEN
281: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = Y');
282: END IF;
283:
284: PA_DEBUG.set_err_stack('Bdgt linked');
285: begin

Line 297: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Start,End = '|| l_start_date ||', '||l_end_date);

293: null;
294: end;
295:
296: IF P_DEBUG_MODE = 'Y' THEN
297: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Start,End = '|| l_start_date ||', '||l_end_date);
298: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Calling get gl periods');
299: END IF;
300: PA_DEBUG.Reset_Err_Stack; --3912094
301:

Line 298: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Calling get gl periods');

294: end;
295:
296: IF P_DEBUG_MODE = 'Y' THEN
297: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Start,End = '|| l_start_date ||', '||l_end_date);
298: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Calling get gl periods');
299: END IF;
300: PA_DEBUG.Reset_Err_Stack; --3912094
301:
302: PA_DEBUG.set_err_stack('Call get_gl_periods');

Line 314: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After get gl periods, RetSts = '||x_return_status);

310: x_tab_pds => l_tab_periods,
311: x_return_status => x_return_status);
312:
313: IF P_DEBUG_MODE = 'Y' THEN
314: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After get gl periods, RetSts = '||x_return_status);
315: END IF;
316: PA_DEBUG.Reset_Err_Stack; --3912094
317:
318: PA_DEBUG.set_err_stack('Insert Close Period Bal');

Line 320: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Insert closed period balances, TabCount = '||l_tab_count);

316: PA_DEBUG.Reset_Err_Stack; --3912094
317:
318: PA_DEBUG.set_err_stack('Insert Close Period Bal');
319: IF P_DEBUG_MODE = 'Y' THEN
320: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Insert closed period balances, TabCount = '||l_tab_count);
321: END IF;
322:
323: FOR i in 1..l_tab_count LOOP
324: begin

Line 326: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'St,End and Status = ' ||l_tab_periods(i).start_date||':'||

322:
323: FOR i in 1..l_tab_count LOOP
324: begin
325: IF P_DEBUG_MODE = 'Y' THEN
326: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'St,End and Status = ' ||l_tab_periods(i).start_date||':'||
327: l_tab_periods(i).end_date||':'||l_tab_periods(i).closing_status);
328: END IF;
329: insert into pa_bc_balances(
330: PROJECT_ID,

Line 380: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Inserted closed period balances');

376: null;
377: end;
378: END LOOP;
379: IF P_DEBUG_MODE = 'Y' THEN
380: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Inserted closed period balances');
381: END IF;
382: PA_DEBUG.Reset_Err_Stack; --3912094
383: END IF;
384:

Line 390: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before inserting BGT lines');

386: -- This procedure is always fired with fundscheck required as Yes.
387:
388: --Insert BGT lines.
389: IF P_DEBUG_MODE = 'Y' THEN
390: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before inserting BGT lines');
391: END IF;
392: PA_DEBUG.set_err_stack('Insert BGT lines');
393:
394: open c_bdgt_bal;

Line 408: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Fetch c_bdgt_bal');

404: l_ParMemTab.Delete;
405: l_BurdCostTab.Delete;
406:
407: IF P_DEBUG_MODE = 'Y' THEN
408: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Fetch c_bdgt_bal');
409: END IF;
410: fetch c_bdgt_bal bulk collect into
411: l_ProjTab,
412: l_TaskTab,

Line 425: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No rec in c_bdgt_bal, exit');

421: limit rows;
422:
423: IF (l_ProjTab.count = 0) THEN
424: IF P_DEBUG_MODE = 'Y' THEN
425: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No rec in c_bdgt_bal, exit');
426: END IF;
427: EXIT;
428: END IF;
429:

Line 431: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before Insert, no. of rec = '|| l_ProjTab.count);

427: EXIT;
428: END IF;
429:
430: IF P_DEBUG_MODE = 'Y' THEN
431: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before Insert, no. of rec = '|| l_ProjTab.count);
432: END IF;
433: -- insert into pa_bc_balances from pa_budget_lines
434: FORALL i in l_ProjTab.FIRST..l_ProjTab.LAST
435: insert into pa_bc_balances(

Line 478: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After inserting BGT lines');

474: 0
475: from dual;
476: commit;
477: IF P_DEBUG_MODE = 'Y' THEN
478: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After inserting BGT lines');
479: END IF;
480: exit when c_bdgt_bal%notfound;
481: end loop;
482: close c_bdgt_bal;

Line 487: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Exiting Insert BGT Balances');

483: PA_DEBUG.Reset_Err_Stack; --3912094
484: PA_DEBUG.set_err_stack('Inserted BGT lines');
485:
486: IF P_DEBUG_MODE = 'Y' THEN
487: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Exiting Insert BGT Balances');
488: END IF;
489:
490: --Reset the error stack when returning to the calling program
491: PA_DEBUG.Reset_Err_Stack;

Line 615: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Entering Is FC reqd');

611:
612: BEGIN
613:
614: IF P_DEBUG_MODE = 'Y' THEN
615: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Entering Is FC reqd');
616: END IF;
617:
618: /**********************************************************
619: Commented for Phase 1.

Line 655: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Exiting Is FC Reqd');

651:
652: end loop;
653:
654: IF P_DEBUG_MODE = 'Y' THEN
655: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Exiting Is FC Reqd');
656: END IF;
657:
658: close c_bdgt_ver;
659: return FALSE;

Line 1118: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Entering VI ER BTC Project = '|| p_project_id||' SOB = '|| p_sob_id || ' Intg = '||p_bdgt_intg_flag);

1114: --Initialize the return status to success
1115: x_return_status := FND_API.G_RET_STS_SUCCESS;
1116:
1117: IF P_DEBUG_MODE = 'Y' THEN
1118: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Entering VI ER BTC Project = '|| p_project_id||' SOB = '|| p_sob_id || ' Intg = '||p_bdgt_intg_flag);
1119: END IF;
1120:
1121: --OPEN c_VIERBTC_txns(p_project_id, p_sob_id, p_bdgt_intg_flag);
1122: --Call procedure to open cursor c_vierbtc_txns

Line 1155: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before Fetch of c_vierbtc');

1151: l_ExpReference3Tab.delete;
1152: l_ExpParBcPktIdTab.delete;
1153:
1154: IF P_DEBUG_MODE = 'Y' THEN
1155: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before Fetch of c_vierbtc');
1156: END IF;
1157:
1158: --Insert ER, VI, BTC
1159: FETCH c_VIERBTC_txns bulk collect into

Line 1188: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Fetched ER VI BTC, count = ' || l_ExpProjTab.count);

1184: ,l_ExpParBcPktIdTab
1185: LIMIT rows;
1186:
1187: IF P_DEBUG_MODE = 'Y' THEN
1188: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Fetched ER VI BTC, count = ' || l_ExpProjTab.count);
1189: END IF;
1190:
1191: IF l_ExpProjTab.count=0 THEN
1192: IF P_DEBUG_MODE = 'Y' THEN

Line 1193: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No rec in cursor c_vierbtc exit');

1189: END IF;
1190:
1191: IF l_ExpProjTab.count=0 THEN
1192: IF P_DEBUG_MODE = 'Y' THEN
1193: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No rec in cursor c_vierbtc exit');
1194: END IF;
1195: exit;
1196: END IF;
1197:

Line 1199: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before inserting VIERBTC');

1195: exit;
1196: END IF;
1197:
1198: IF P_DEBUG_MODE = 'Y' THEN
1199: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before inserting VIERBTC');
1200: END IF;
1201: FORALL m in l_ExpProjTab.FIRST..l_ExpProjTab.LAST
1202: insert into pa_bc_packets (
1203: PACKET_ID,

Line 1302: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Exiting VIERBTC');

1298: PA_DEBUG.Reset_Err_Stack; --3912094
1299: PA_DEBUG.set_err_stack('Inserted VIERBTC Txns');
1300:
1301: IF P_DEBUG_MODE = 'Y' THEN
1302: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Exiting VIERBTC');
1303: END IF;
1304:
1305: --Reset the error stack when returning to the calling program
1306: PA_DEBUG.Reset_Err_Stack;

Line 1438: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Entering Insert Commitment Txns');

1434: --Initialize the return status to success
1435: x_return_status := FND_API.G_RET_STS_SUCCESS;
1436:
1437: IF P_DEBUG_MODE = 'Y' THEN
1438: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Entering Insert Commitment Txns');
1439: END IF;
1440:
1441: OPEN c_bc_comm(p_project_id);
1442: LOOP

Line 1483: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Fetch c_bc_comm cursor');

1479: -- R12 Funds Management Uptake
1480: l_BurMethodcodeTab.delete;
1481:
1482: IF P_DEBUG_MODE = 'Y' THEN
1483: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Fetch c_bc_comm cursor');
1484: END IF;
1485:
1486: FETCH c_bc_comm BULK COLLECT INTO
1487: l_ProjTab,

Line 1527: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No records in c_bc_comm, exit');

1523: LIMIT rows;
1524:
1525: IF l_ProjTab.count = 0 THEN
1526: IF P_DEBUG_MODE = 'Y' THEN
1527: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No records in c_bc_comm, exit');
1528: END IF;
1529: exit;
1530: END IF;
1531:

Line 1536: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No. of rec in c_bc_comm = '|| l_ProjTab.count);

1532: --If budgetary control type is CC, then load only contract commitment transactions into
1533: --pa_bc_packets. Also if budget is linked then consider only open period
1534: --transactions else consider all transactions.
1535: IF P_DEBUG_MODE = 'Y' THEN
1536: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No. of rec in c_bc_comm = '|| l_ProjTab.count);
1537: END IF;
1538:
1539: IF (p_bdgt_ctrl_type = 'CC') THEN
1540:

Line 1543: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Ctrl = CC');

1539: IF (p_bdgt_ctrl_type = 'CC') THEN
1540:
1541: PA_DEBUG.set_err_stack('CC'); --Bug 3912094
1542: IF P_DEBUG_MODE = 'Y' THEN
1543: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Ctrl = CC');
1544: END IF;
1545:
1546: -- Insert Contract Commitments
1547: IF (p_bdgt_intg_flag = 'Y') THEN

Line 1551: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = Y');

1547: IF (p_bdgt_intg_flag = 'Y') THEN
1548:
1549: PA_DEBUG.set_err_stack('Insert CC, linked'); --Bug 3912094
1550: IF P_DEBUG_MODE = 'Y' THEN
1551: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = Y');
1552: END IF;
1553: FORALL i in l_ProjTab.FIRST..l_ProjTab.LAST
1554: insert into pa_bc_packets (
1555: PACKET_ID,

Line 1662: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'CC - Y, record count = '|| SQL%BULK_ROWCOUNT(i));

1658: and gl.closing_status in ( 'O', 'F');
1659:
1660: for i in l_ProjTab.FIRST..l_ProjTab.LAST loop
1661: IF P_DEBUG_MODE = 'Y' THEN
1662: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'CC - Y, record count = '|| SQL%BULK_ROWCOUNT(i));
1663: END IF;
1664: end loop;
1665:
1666: PA_DEBUG.Reset_Err_Stack; --3912094

Line 1671: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = N');

1667: ELSE
1668:
1669: PA_DEBUG.set_err_stack('Insert CC, no link'); --Bug 3912094
1670: IF P_DEBUG_MODE = 'Y' THEN
1671: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = N');
1672: END IF;
1673:
1674: FORALL j in l_ProjTab.FIRST..l_ProjTab.LAST
1675: insert into pa_bc_packets (

Line 1777: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'CC - N, record count = '|| SQL%BULK_ROWCOUNT(i));

1773: where l_DocTypTab(j) in ('CC_C_CO', 'CC_P_CO');
1774:
1775: for i in l_ProjTab.FIRST..l_ProjTab.LAST loop
1776: IF P_DEBUG_MODE = 'Y' THEN
1777: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'CC - N, record count = '|| SQL%BULK_ROWCOUNT(i));
1778: END IF;
1779: end loop;
1780:
1781: PA_DEBUG.Reset_Err_Stack; --3912094

Line 1793: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Ctrl Type = GL');

1789: ELSIF (p_bdgt_ctrl_type = ('GL')) THEN
1790:
1791: PA_DEBUG.set_err_stack('GL'); --Bug 3912094
1792: IF P_DEBUG_MODE = 'Y' THEN
1793: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Ctrl Type = GL');
1794: END IF;
1795:
1796: IF (P_bdgt_intg_flag = 'Y') THEN
1797:

Line 1800: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = Y');

1796: IF (P_bdgt_intg_flag = 'Y') THEN
1797:
1798: PA_DEBUG.set_err_stack('Insert Std, linked');
1799: IF P_DEBUG_MODE = 'Y' THEN
1800: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = Y');
1801: END IF;
1802:
1803: --For Other commitment transactions (AP,PO,REQ,CC_P_PAY,CC_C_PAY)
1804: --when there is a link

Line 1914: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'GL - Y, record count = '|| SQL%BULK_ROWCOUNT(i));

1910: and gl.closing_status in ( 'O', 'F');
1911:
1912: for i in l_ProjTab.FIRST..l_ProjTab.LAST loop
1913: IF P_DEBUG_MODE = 'Y' THEN
1914: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'GL - Y, record count = '|| SQL%BULK_ROWCOUNT(i));
1915: END IF;
1916: end loop;
1917: PA_DEBUG.Reset_Err_Stack; --3912094
1918: ELSE

Line 1922: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = N');

1918: ELSE
1919:
1920: PA_DEBUG.set_err_stack('Insert Std, no link');
1921: IF P_DEBUG_MODE = 'Y' THEN
1922: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = N');
1923: END IF;
1924:
1925: --For Other commitment transactions (AP,PO,REQ,CC_C_PAY,CC_P_PAY)
1926: --when there is a link

Line 2030: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'GL - N, record count = '|| SQL%BULK_ROWCOUNT(i));

2026: where l_DocTypTab(l) in ('AP','PO','REQ','CC_C_PAY','CC_P_PAY');
2027:
2028: for i in l_ProjTab.FIRST..l_ProjTab.LAST loop
2029: IF P_DEBUG_MODE = 'Y' THEN
2030: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'GL - N, record count = '|| SQL%BULK_ROWCOUNT(i));
2031: END IF;
2032: end loop;
2033: PA_DEBUG.Reset_Err_Stack; --3912094
2034:

Line 2046: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Exiting Insert Commitment Txns');

2042:
2043: PA_DEBUG.set_err_stack('Inserted Commitments');
2044:
2045: IF P_DEBUG_MODE = 'Y' THEN
2046: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Exiting Insert Commitment Txns');
2047: END IF;
2048:
2049: --Reset the error stack when returning to the calling program
2050: PA_DEBUG.Reset_Err_Stack;

Line 2088: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Passed parameters = ' || p_project_id || ':' || p_budget_version_id || ':' || p_bdgt_ctrl_type || ':' || p_calling_mode || ':' || p_bdgt_intg_flag);

2084: --Initialize the return status to success
2085: x_return_status := FND_API.G_RET_STS_SUCCESS;
2086:
2087: IF P_DEBUG_MODE = 'Y' THEN
2088: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Passed parameters = ' || p_project_id || ':' || p_budget_version_id || ':' || p_bdgt_ctrl_type || ':' || p_calling_mode || ':' || p_bdgt_intg_flag);
2089: END IF;
2090:
2091: --Bug 6524116
2092: SELECT org_id INTO l_org_id FROM pa_projects_all WHERE project_id = p_project_id;

Line 2096: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before selecting SOB');

2092: SELECT org_id INTO l_org_id FROM pa_projects_all WHERE project_id = p_project_id;
2093:
2094: --Select SET OF BOOKS ID
2095: IF P_DEBUG_MODE = 'Y' THEN
2096: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before selecting SOB');
2097: END IF;
2098:
2099: select to_number(set_of_books_id) into l_sob_id from pa_implementations_all --Bug 6524116
2100: where org_id = l_org_id;

Line 2103: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After selecting SOB = '|| l_sob_id);

2099: select to_number(set_of_books_id) into l_sob_id from pa_implementations_all --Bug 6524116
2100: where org_id = l_org_id;
2101:
2102: IF P_DEBUG_MODE = 'Y' THEN
2103: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After selecting SOB = '|| l_sob_id);
2104: END IF;
2105:
2106: /* =============================================================================================== +
2107: FOLLOWING CODE MOVED TO PA_BUDGET_FUND_PKG (PABBFNDB.pls)

Line 2138: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Calling Insert BGT Balances');

2134: /* =============================================================================================== +
2135: FOLLOWING CODE MOVED TO PA_BUDGET_FUND_PKG (PABBFNDB.pls)
2136:
2137: IF P_DEBUG_MODE = 'Y' THEN
2138: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Calling Insert BGT Balances');
2139: END IF;
2140: PA_DEBUG.set_err_stack('M:Insert BGT Balances');
2141: --create pa_bc_balances record
2142:

Line 2153: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After Insert BGT Balances, RetSts = ' || x_return_status);

2149: x_return_status => x_return_status,
2150: x_error_message_code => x_error_message_code );
2151:
2152: IF P_DEBUG_MODE = 'Y' THEN
2153: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After Insert BGT Balances, RetSts = ' || x_return_status);
2154: END IF;
2155:
2156: PA_DEBUG.Reset_Err_Stack; --3912094
2157: ========================================================================================================== */

Line 2176: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'PacketId = '|| l_packet_id);

2172: -- Get a new packet id
2173: select gl_bc_packets_s.nextval into l_packet_id from dual;
2174:
2175: IF P_DEBUG_MODE = 'Y' THEN
2176: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'PacketId = '|| l_packet_id);
2177: END IF;
2178:
2179: PA_DEBUG.set_err_stack('M:Create Dir Cost');
2180:

Line 2183: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Calling Insert Commitment Txns');

2179: PA_DEBUG.set_err_stack('M:Create Dir Cost');
2180:
2181: -- Insert commitments into PA_BC_PACKETS
2182: IF P_DEBUG_MODE = 'Y' THEN
2183: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Calling Insert Commitment Txns');
2184: END IF;
2185:
2186: INSERT_COMMITMENT_TXNS(
2187: p_packet_id => l_packet_id,

Line 2197: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After Insert Commitment Txns, RetSts = ' ||x_return_status);

2193: x_return_status => x_return_status,
2194: x_error_message_code => x_error_message_code);
2195:
2196: IF P_DEBUG_MODE = 'Y' THEN
2197: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After Insert Commitment Txns, RetSts = ' ||x_return_status);
2198: END IF;
2199: PA_DEBUG.Reset_Err_Stack; --3912094
2200:
2201: -- If Budgetary Control is GL then also

Line 2207: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Calling Insert VI ER BTC');

2203: if (p_bdgt_ctrl_type = 'GL') then
2204:
2205: PA_DEBUG.set_err_stack('M:Insert VIERBTC');
2206: IF P_DEBUG_MODE = 'Y' THEN
2207: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Calling Insert VI ER BTC');
2208: END IF;
2209:
2210: INSERT_VI_ER_BTC_TXNS(
2211: p_packet_id => l_packet_id,

Line 2219: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After Insert VI ER BTC, RetSts = ' ||x_return_status);

2215: p_bdgt_intg_flag => p_bdgt_intg_flag,
2216: x_return_status => x_return_status,
2217: x_error_message_code => x_error_message_code);
2218: IF P_DEBUG_MODE = 'Y' THEN
2219: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After Insert VI ER BTC, RetSts = ' ||x_return_status);
2220: END IF;
2221: PA_DEBUG.Reset_Err_Stack; --3912094
2222:
2223: end if;

Line 2237: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Acquired lock on Proj ' || p_project_id);

2233: --acquire lock
2234: IF (pa_debug.acquire_user_lock('BSLNFCHKLOCK:'||to_char(p_project_id)) = 0) THEN
2235:
2236: IF P_DEBUG_MODE = 'Y' THEN
2237: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Acquired lock on Proj ' || p_project_id);
2238: END IF;
2239: -- PA_DEBUG.set_err_stack('M:Acquired Lock'); 3912094 This is not required
2240:
2241: ELSE

Line 2245: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Could not acquire lock');

2241: ELSE
2242:
2243: --Unable to acquire user lock
2244: IF P_DEBUG_MODE = 'Y' THEN
2245: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Could not acquire lock');
2246: END IF;
2247: -- PA_DEBUG.set_err_stack('M:Could not acquire lock BSLNFCHKLOCK');
2248:
2249: raise ACQUIRE_LOCK_EXCEPTION;

Line 2261: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Call Funds Check in Reserve Mode');

2257: -- there will be no delta fundscheck and hence no 'C' status.
2258:
2259: PA_DEBUG.set_err_stack('M:FC Reserve Mode');
2260: IF P_DEBUG_MODE = 'Y' THEN
2261: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Call Funds Check in Reserve Mode');
2262: END IF;
2263:
2264: --Call Funds Check for the delta transactions
2265: --in RESERVE_BASELINE mode

Line 2281: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'FCHK in Reserve Mode called');

2277: x_error_stage => x_error_stage,
2278: x_error_msg => x_error_msg) then
2279:
2280: IF P_DEBUG_MODE = 'Y' THEN
2281: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'FCHK in Reserve Mode called');
2282: END IF;
2283: --Call Update Bdgt Acct Lines API
2284:
2285: -- R12 Funds Management Uptake : Deleted call to PA_FUNDS_CONTROL_PKG.upd_bdgt_encum_bal

Line 2313: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'FCHK in Reserve Mode returned failure');

2309:
2310: -- PA_DEBUG.set_err_stack('M:Funds Check process in reserve mode returned failure');
2311: -- , Stage = '||x_error_stage || ' Msg from Funds Check = '|| x_error_msg);
2312: IF P_DEBUG_MODE = 'Y' THEN
2313: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'FCHK in Reserve Mode returned failure');
2314: END IF;
2315:
2316: raise FND_API.G_EXC_ERROR;
2317:

Line 2322: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'FCHK in Reserve Mode returned fatal error');

2318: elsif (l_return_status = 'T') then
2319:
2320: -- PA_DEBUG.set_err_stack('M:Funds Check process in reserve mode returned fatal error');
2321: IF P_DEBUG_MODE = 'Y' THEN
2322: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'FCHK in Reserve Mode returned fatal error');
2323: END IF;
2324:
2325: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2326:

Line 2329: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'End of FCHK, l_return_status = ' || l_return_status);

2325: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2326:
2327: end if;
2328: IF P_DEBUG_MODE = 'Y' THEN
2329: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'End of FCHK, l_return_status = ' || l_return_status);
2330: END IF;
2331:
2332: ELSE
2333:

Line 2335: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'FCHK in Reserve Mode not called');

2331:
2332: ELSE
2333:
2334: IF P_DEBUG_MODE = 'Y' THEN
2335: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'FCHK in Reserve Mode not called');
2336: END IF;
2337: -- PA_DEBUG.set_err_stack('M:Funds Check process in reserve mode returned failure');
2338: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2339:

Line 2345: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'End of API, RetSts = ' || x_return_status);

2341:
2342:
2343: PA_DEBUG.set_err_stack('M:End of API');
2344: IF P_DEBUG_MODE = 'Y' THEN
2345: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'End of API, RetSts = ' || x_return_status);
2346: END IF;
2347:
2348: close c_bal_lock;
2349:

Line 2366: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'In resource busy');

2362:
2363: EXCEPTION
2364: when resource_busy then
2365: IF P_DEBUG_MODE = 'Y' THEN
2366: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'In resource busy');
2367: END IF;
2368: if c_bal_lock%isopen then
2369: close c_bal_lock ;
2370: end if;

Line 2375: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Cannot Acquire lock BSLNFCHKLOCK for GL');

2371: PA_DEBUG.Reset_Err_Stack; --Bug 5064900
2372: WHEN ACQUIRE_LOCK_EXCEPTION THEN
2373: rollback;
2374: IF P_DEBUG_MODE = 'Y' THEN
2375: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Cannot Acquire lock BSLNFCHKLOCK for GL');
2376: END IF;
2377:
2378: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
2379: ,p_procedure_name => 'MAINTAIN_BAL_FCHK' --Bug 5064900

Line 2397: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Funds check returned failure');

2393: --rollback; this exception raised when FC fails
2394: commit; -- commit required to commit failure status_code
2395:
2396: IF P_DEBUG_MODE = 'Y' THEN
2397: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Funds check returned failure');
2398: END IF;
2399:
2400: IF (pa_debug.release_user_lock('BSLNFCHKLOCK:'||to_char(p_project_id)) = 0) THEN
2401: pa_debug.g_err_stage := ' ' || to_char(p_project_id);

Line 2432: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Funds check returned fatal error');

2428: rollback; -- this package exception
2429: End if;
2430:
2431: IF P_DEBUG_MODE = 'Y' THEN
2432: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Funds check returned fatal error');
2433: END IF;
2434:
2435: IF (pa_debug.release_user_lock('BSLNFCHKLOCK:'||to_char(p_project_id)) = 0) THEN
2436: pa_debug.g_err_stage := ' ' || to_char(p_project_id);

Line 2447: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || SQLERRM);

2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2444: x_error_message_code := (SQLCODE||' '||SQLERRM);
2445:
2446: IF P_DEBUG_MODE = 'Y' THEN
2447: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || SQLERRM);
2448: END IF;
2449:
2450: if c_bal_lock%isopen then
2451: close c_bal_lock;

Line 2460: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'In others of main');

2456:
2457: WHEN OTHERS THEN
2458: rollback;
2459: IF P_DEBUG_MODE = 'Y' THEN
2460: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'In others of main');
2461: END IF;
2462:
2463: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
2464: ,p_procedure_name => 'MAINTAIN_BAL_FCHK' -- Bug 5064900