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 952: 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);

948: --Initialize the return status to success
949: x_return_status := FND_API.G_RET_STS_SUCCESS;
950:
951: IF P_DEBUG_MODE = 'Y' THEN
952: 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);
953: END IF;
954:
955: --OPEN c_VIERBTC_txns(p_project_id, p_sob_id, p_bdgt_intg_flag);
956: --Call procedure to open cursor c_vierbtc_txns

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

985: l_ExpReference3Tab.delete;
986: l_ExpParBcPktIdTab.delete;
987:
988: IF P_DEBUG_MODE = 'Y' THEN
989: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before Fetch of c_vierbtc');
990: END IF;
991:
992: --Insert ER, VI, BTC
993: FETCH c_VIERBTC_txns bulk collect into

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

1018: ,l_ExpParBcPktIdTab
1019: LIMIT rows;
1020:
1021: IF P_DEBUG_MODE = 'Y' THEN
1022: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Fetched ER VI BTC, count = ' || l_ExpProjTab.count);
1023: END IF;
1024:
1025: IF l_ExpProjTab.count=0 THEN
1026: IF P_DEBUG_MODE = 'Y' THEN

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

1023: END IF;
1024:
1025: IF l_ExpProjTab.count=0 THEN
1026: IF P_DEBUG_MODE = 'Y' THEN
1027: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No rec in cursor c_vierbtc exit');
1028: END IF;
1029: exit;
1030: END IF;
1031:

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

1029: exit;
1030: END IF;
1031:
1032: IF P_DEBUG_MODE = 'Y' THEN
1033: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before inserting VIERBTC');
1034: END IF;
1035: FORALL m in l_ExpProjTab.FIRST..l_ExpProjTab.LAST
1036: insert into pa_bc_packets (
1037: PACKET_ID,

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

1132: PA_DEBUG.Reset_Err_Stack; --3912094
1133: PA_DEBUG.set_err_stack('Inserted VIERBTC Txns');
1134:
1135: IF P_DEBUG_MODE = 'Y' THEN
1136: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Exiting VIERBTC');
1137: END IF;
1138:
1139: --Reset the error stack when returning to the calling program
1140: PA_DEBUG.Reset_Err_Stack;

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

1268: --Initialize the return status to success
1269: x_return_status := FND_API.G_RET_STS_SUCCESS;
1270:
1271: IF P_DEBUG_MODE = 'Y' THEN
1272: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Entering Insert Commitment Txns');
1273: END IF;
1274:
1275: OPEN c_bc_comm(p_project_id);
1276: LOOP

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

1313: -- R12 Funds Management Uptake
1314: l_BurMethodcodeTab.delete;
1315:
1316: IF P_DEBUG_MODE = 'Y' THEN
1317: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Fetch c_bc_comm cursor');
1318: END IF;
1319:
1320: FETCH c_bc_comm BULK COLLECT INTO
1321: l_ProjTab,

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

1357: LIMIT rows;
1358:
1359: IF l_ProjTab.count = 0 THEN
1360: IF P_DEBUG_MODE = 'Y' THEN
1361: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No records in c_bc_comm, exit');
1362: END IF;
1363: exit;
1364: END IF;
1365:

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

1366: --If budgetary control type is CC, then load only contract commitment transactions into
1367: --pa_bc_packets. Also if budget is linked then consider only open period
1368: --transactions else consider all transactions.
1369: IF P_DEBUG_MODE = 'Y' THEN
1370: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'No. of rec in c_bc_comm = '|| l_ProjTab.count);
1371: END IF;
1372:
1373: IF (p_bdgt_ctrl_type = 'CC') THEN
1374:

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

1373: IF (p_bdgt_ctrl_type = 'CC') THEN
1374:
1375: PA_DEBUG.set_err_stack('CC'); --Bug 3912094
1376: IF P_DEBUG_MODE = 'Y' THEN
1377: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Ctrl = CC');
1378: END IF;
1379:
1380: -- Insert Contract Commitments
1381: IF (p_bdgt_intg_flag = 'Y') THEN

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

1381: IF (p_bdgt_intg_flag = 'Y') THEN
1382:
1383: PA_DEBUG.set_err_stack('Insert CC, linked'); --Bug 3912094
1384: IF P_DEBUG_MODE = 'Y' THEN
1385: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = Y');
1386: END IF;
1387: FORALL i in l_ProjTab.FIRST..l_ProjTab.LAST
1388: insert into pa_bc_packets (
1389: PACKET_ID,

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

1492: and gl.closing_status in ( 'O', 'F');
1493:
1494: for i in l_ProjTab.FIRST..l_ProjTab.LAST loop
1495: IF P_DEBUG_MODE = 'Y' THEN
1496: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'CC - Y, record count = '|| SQL%BULK_ROWCOUNT(i));
1497: END IF;
1498: end loop;
1499:
1500: PA_DEBUG.Reset_Err_Stack; --3912094

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

1501: ELSE
1502:
1503: PA_DEBUG.set_err_stack('Insert CC, no link'); --Bug 3912094
1504: IF P_DEBUG_MODE = 'Y' THEN
1505: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = N');
1506: END IF;
1507:
1508: FORALL j in l_ProjTab.FIRST..l_ProjTab.LAST
1509: insert into pa_bc_packets (

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

1607: where l_DocTypTab(j) in ('CC_C_CO', 'CC_P_CO');
1608:
1609: for i in l_ProjTab.FIRST..l_ProjTab.LAST loop
1610: IF P_DEBUG_MODE = 'Y' THEN
1611: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'CC - N, record count = '|| SQL%BULK_ROWCOUNT(i));
1612: END IF;
1613: end loop;
1614:
1615: PA_DEBUG.Reset_Err_Stack; --3912094

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

1623: ELSIF (p_bdgt_ctrl_type = ('GL')) THEN
1624:
1625: PA_DEBUG.set_err_stack('GL'); --Bug 3912094
1626: IF P_DEBUG_MODE = 'Y' THEN
1627: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Ctrl Type = GL');
1628: END IF;
1629:
1630: IF (P_bdgt_intg_flag = 'Y') THEN
1631:

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

1630: IF (P_bdgt_intg_flag = 'Y') THEN
1631:
1632: PA_DEBUG.set_err_stack('Insert Std, linked');
1633: IF P_DEBUG_MODE = 'Y' THEN
1634: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = Y');
1635: END IF;
1636:
1637: --For Other commitment transactions (AP,PO,REQ,CC_P_PAY,CC_C_PAY)
1638: --when there is a link

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

1744: and gl.closing_status in ( 'O', 'F');
1745:
1746: for i in l_ProjTab.FIRST..l_ProjTab.LAST loop
1747: IF P_DEBUG_MODE = 'Y' THEN
1748: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'GL - Y, record count = '|| SQL%BULK_ROWCOUNT(i));
1749: END IF;
1750: end loop;
1751: PA_DEBUG.Reset_Err_Stack; --3912094
1752: ELSE

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

1752: ELSE
1753:
1754: PA_DEBUG.set_err_stack('Insert Std, no link');
1755: IF P_DEBUG_MODE = 'Y' THEN
1756: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Bdgt Intg Flag = N');
1757: END IF;
1758:
1759: --For Other commitment transactions (AP,PO,REQ,CC_C_PAY,CC_P_PAY)
1760: --when there is a link

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

1860: where l_DocTypTab(l) in ('AP','PO','REQ','CC_C_PAY','CC_P_PAY');
1861:
1862: for i in l_ProjTab.FIRST..l_ProjTab.LAST loop
1863: IF P_DEBUG_MODE = 'Y' THEN
1864: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'GL - N, record count = '|| SQL%BULK_ROWCOUNT(i));
1865: END IF;
1866: end loop;
1867: PA_DEBUG.Reset_Err_Stack; --3912094
1868:

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

1876:
1877: PA_DEBUG.set_err_stack('Inserted Commitments');
1878:
1879: IF P_DEBUG_MODE = 'Y' THEN
1880: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Exiting Insert Commitment Txns');
1881: END IF;
1882:
1883: --Reset the error stack when returning to the calling program
1884: PA_DEBUG.Reset_Err_Stack;

Line 1922: 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);

1918: --Initialize the return status to success
1919: x_return_status := FND_API.G_RET_STS_SUCCESS;
1920:
1921: IF P_DEBUG_MODE = 'Y' THEN
1922: 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);
1923: END IF;
1924:
1925: --Bug 6524116
1926: SELECT org_id INTO l_org_id FROM pa_projects_all WHERE project_id = p_project_id;

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

1926: SELECT org_id INTO l_org_id FROM pa_projects_all WHERE project_id = p_project_id;
1927:
1928: --Select SET OF BOOKS ID
1929: IF P_DEBUG_MODE = 'Y' THEN
1930: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before selecting SOB');
1931: END IF;
1932:
1933: select to_number(set_of_books_id) into l_sob_id from pa_implementations_all --Bug 6524116
1934: where org_id = l_org_id;

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

1933: select to_number(set_of_books_id) into l_sob_id from pa_implementations_all --Bug 6524116
1934: where org_id = l_org_id;
1935:
1936: IF P_DEBUG_MODE = 'Y' THEN
1937: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After selecting SOB = '|| l_sob_id);
1938: END IF;
1939:
1940: /* =============================================================================================== +
1941: FOLLOWING CODE MOVED TO PA_BUDGET_FUND_PKG (PABBFNDB.pls)

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

1968: /* =============================================================================================== +
1969: FOLLOWING CODE MOVED TO PA_BUDGET_FUND_PKG (PABBFNDB.pls)
1970:
1971: IF P_DEBUG_MODE = 'Y' THEN
1972: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Calling Insert BGT Balances');
1973: END IF;
1974: PA_DEBUG.set_err_stack('M:Insert BGT Balances');
1975: --create pa_bc_balances record
1976:

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

1983: x_return_status => x_return_status,
1984: x_error_message_code => x_error_message_code );
1985:
1986: IF P_DEBUG_MODE = 'Y' THEN
1987: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After Insert BGT Balances, RetSts = ' || x_return_status);
1988: END IF;
1989:
1990: PA_DEBUG.Reset_Err_Stack; --3912094
1991: ========================================================================================================== */

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

2006: -- Get a new packet id
2007: select gl_bc_packets_s.nextval into l_packet_id from dual;
2008:
2009: IF P_DEBUG_MODE = 'Y' THEN
2010: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'PacketId = '|| l_packet_id);
2011: END IF;
2012:
2013: PA_DEBUG.set_err_stack('M:Create Dir Cost');
2014:

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

2013: PA_DEBUG.set_err_stack('M:Create Dir Cost');
2014:
2015: -- Insert commitments into PA_BC_PACKETS
2016: IF P_DEBUG_MODE = 'Y' THEN
2017: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Calling Insert Commitment Txns');
2018: END IF;
2019:
2020: INSERT_COMMITMENT_TXNS(
2021: p_packet_id => l_packet_id,

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

2027: x_return_status => x_return_status,
2028: x_error_message_code => x_error_message_code);
2029:
2030: IF P_DEBUG_MODE = 'Y' THEN
2031: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After Insert Commitment Txns, RetSts = ' ||x_return_status);
2032: END IF;
2033: PA_DEBUG.Reset_Err_Stack; --3912094
2034:
2035: -- If Budgetary Control is GL then also

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

2037: if (p_bdgt_ctrl_type = 'GL') then
2038:
2039: PA_DEBUG.set_err_stack('M:Insert VIERBTC');
2040: IF P_DEBUG_MODE = 'Y' THEN
2041: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Calling Insert VI ER BTC');
2042: END IF;
2043:
2044: INSERT_VI_ER_BTC_TXNS(
2045: p_packet_id => l_packet_id,

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

2049: p_bdgt_intg_flag => p_bdgt_intg_flag,
2050: x_return_status => x_return_status,
2051: x_error_message_code => x_error_message_code);
2052: IF P_DEBUG_MODE = 'Y' THEN
2053: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'After Insert VI ER BTC, RetSts = ' ||x_return_status);
2054: END IF;
2055: PA_DEBUG.Reset_Err_Stack; --3912094
2056:
2057: end if;

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

2067: --acquire lock
2068: IF (pa_debug.acquire_user_lock('BSLNFCHKLOCK:'||to_char(p_project_id)) = 0) THEN
2069:
2070: IF P_DEBUG_MODE = 'Y' THEN
2071: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Acquired lock on Proj ' || p_project_id);
2072: END IF;
2073: -- PA_DEBUG.set_err_stack('M:Acquired Lock'); 3912094 This is not required
2074:
2075: ELSE

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

2075: ELSE
2076:
2077: --Unable to acquire user lock
2078: IF P_DEBUG_MODE = 'Y' THEN
2079: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Could not acquire lock');
2080: END IF;
2081: -- PA_DEBUG.set_err_stack('M:Could not acquire lock BSLNFCHKLOCK');
2082:
2083: raise ACQUIRE_LOCK_EXCEPTION;

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

2091: -- there will be no delta fundscheck and hence no 'C' status.
2092:
2093: PA_DEBUG.set_err_stack('M:FC Reserve Mode');
2094: IF P_DEBUG_MODE = 'Y' THEN
2095: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Call Funds Check in Reserve Mode');
2096: END IF;
2097:
2098: --Call Funds Check for the delta transactions
2099: --in RESERVE_BASELINE mode

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

2111: x_error_stage => x_error_stage,
2112: x_error_msg => x_error_msg) then
2113:
2114: IF P_DEBUG_MODE = 'Y' THEN
2115: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'FCHK in Reserve Mode called');
2116: END IF;
2117: --Call Update Bdgt Acct Lines API
2118:
2119: -- R12 Funds Management Uptake : Deleted call to PA_FUNDS_CONTROL_PKG.upd_bdgt_encum_bal

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

2143:
2144: -- PA_DEBUG.set_err_stack('M:Funds Check process in reserve mode returned failure');
2145: -- , Stage = '||x_error_stage || ' Msg from Funds Check = '|| x_error_msg);
2146: IF P_DEBUG_MODE = 'Y' THEN
2147: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'FCHK in Reserve Mode returned failure');
2148: END IF;
2149:
2150: raise FND_API.G_EXC_ERROR;
2151:

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

2152: elsif (l_return_status = 'T') then
2153:
2154: -- PA_DEBUG.set_err_stack('M:Funds Check process in reserve mode returned fatal error');
2155: IF P_DEBUG_MODE = 'Y' THEN
2156: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'FCHK in Reserve Mode returned fatal error');
2157: END IF;
2158:
2159: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2160:

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

2159: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2160:
2161: end if;
2162: IF P_DEBUG_MODE = 'Y' THEN
2163: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'End of FCHK, l_return_status = ' || l_return_status);
2164: END IF;
2165:
2166: ELSE
2167:

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

2165:
2166: ELSE
2167:
2168: IF P_DEBUG_MODE = 'Y' THEN
2169: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'FCHK in Reserve Mode not called');
2170: END IF;
2171: -- PA_DEBUG.set_err_stack('M:Funds Check process in reserve mode returned failure');
2172: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2173:

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

2175:
2176:
2177: PA_DEBUG.set_err_stack('M:End of API');
2178: IF P_DEBUG_MODE = 'Y' THEN
2179: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'End of API, RetSts = ' || x_return_status);
2180: END IF;
2181:
2182: close c_bal_lock;
2183:

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

2196:
2197: EXCEPTION
2198: when resource_busy then
2199: IF P_DEBUG_MODE = 'Y' THEN
2200: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'In resource busy');
2201: END IF;
2202: if c_bal_lock%isopen then
2203: close c_bal_lock ;
2204: end if;

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

2205: PA_DEBUG.Reset_Err_Stack; --Bug 5064900
2206: WHEN ACQUIRE_LOCK_EXCEPTION THEN
2207: rollback;
2208: IF P_DEBUG_MODE = 'Y' THEN
2209: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Cannot Acquire lock BSLNFCHKLOCK for GL');
2210: END IF;
2211:
2212: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
2213: ,p_procedure_name => 'MAINTAIN_BAL_FCHK' --Bug 5064900

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

2227: --rollback; this exception raised when FC fails
2228: commit; -- commit required to commit failure status_code
2229:
2230: IF P_DEBUG_MODE = 'Y' THEN
2231: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Funds check returned failure');
2232: END IF;
2233:
2234: IF (pa_debug.release_user_lock('BSLNFCHKLOCK:'||to_char(p_project_id)) = 0) THEN
2235: pa_debug.g_err_stage := ' ' || to_char(p_project_id);

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

2262: rollback; -- this package exception
2263: End if;
2264:
2265: IF P_DEBUG_MODE = 'Y' THEN
2266: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Funds check returned fatal error');
2267: END IF;
2268:
2269: IF (pa_debug.release_user_lock('BSLNFCHKLOCK:'||to_char(p_project_id)) = 0) THEN
2270: pa_debug.g_err_stage := ' ' || to_char(p_project_id);

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

2277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2278: x_error_message_code := (SQLCODE||' '||SQLERRM);
2279:
2280: IF P_DEBUG_MODE = 'Y' THEN
2281: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || SQLERRM);
2282: END IF;
2283:
2284: if c_bal_lock%isopen then
2285: close c_bal_lock;

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

2290:
2291: WHEN OTHERS THEN
2292: rollback;
2293: IF P_DEBUG_MODE = 'Y' THEN
2294: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'In others of main');
2295: END IF;
2296:
2297: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
2298: ,p_procedure_name => 'MAINTAIN_BAL_FCHK' -- Bug 5064900