DBA Data[Home] [Help]

APPS.PA_BGT_BASELINE_PKG dependencies on PA_DEBUG

Line 3: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');

1: PACKAGE BODY PA_BGT_BASELINE_PKG AS
2: -- $Header: PAFCBALB.pls 120.11.12020000.3 2013/03/06 09:26:12 admarath ship $
3: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4:
5: PROCEDURE MAINTAIN_BAL_FCHK(
6: p_project_id IN number,
7: p_budget_version_id IN number,

Line 159: PA_DEBUG.set_err_stack('Insert BGT Balances');

155:
156: BEGIN
157:
158: --Initialize the error stack
159: PA_DEBUG.set_err_stack('Insert BGT Balances');
160:
161: --Initialize the return status to success
162: x_return_status := FND_API.G_RET_STS_SUCCESS;
163:

Line 239: PA_DEBUG.set_err_stack('Delete');

235: END IF;
236: --l_BalRowIdTab.Delete;
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);

Line 273: PA_DEBUG.Reset_Err_Stack; --3912094

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:
276: -- R12 Funds management Uptake : Removed check for if fundscheck required which was always YES
277:

Line 284: PA_DEBUG.set_err_stack('Bdgt linked');

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
286: select min(start_date), max(end_date)
287: into l_start_date, l_end_date
288: from pa_bc_balances

Line 300: PA_DEBUG.Reset_Err_Stack; --3912094

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');
303:
304: --Get all periods given the start and end date.

Line 302: PA_DEBUG.set_err_stack('Call get_gl_periods');

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');
303:
304: --Get all periods given the start and end date.
305: PA_FUNDS_CONTROL_UTILS.get_gl_periods
306: (p_start_date => l_start_date,

Line 316: PA_DEBUG.Reset_Err_Stack; --3912094

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');
319: IF P_DEBUG_MODE = 'Y' THEN
320: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Insert closed period balances, TabCount = '||l_tab_count);

Line 318: PA_DEBUG.set_err_stack('Insert Close Period Bal');

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

Line 382: PA_DEBUG.Reset_Err_Stack; --3912094

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:
385: -- R12 Funds management Uptake : Deleted logic which was fired when fundscheck is not required .
386: -- This procedure is always fired with fundscheck required as Yes.

Line 392: PA_DEBUG.set_err_stack('Insert BGT lines');

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;
395: loop
396: l_ProjTab.Delete;

Line 483: PA_DEBUG.Reset_Err_Stack; --3912094

479: END IF;
480: exit when c_bdgt_bal%notfound;
481: end loop;
482: close c_bdgt_bal;
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');

Line 484: PA_DEBUG.set_err_stack('Inserted BGT lines');

480: exit when c_bdgt_bal%notfound;
481: end loop;
482: close c_bdgt_bal;
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;

Line 491: PA_DEBUG.Reset_Err_Stack;

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;
492: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
493:
494: EXCEPTION
495: WHEN OTHERS THEN

Line 492: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

488: END IF;
489:
490: --Reset the error stack when returning to the calling program
491: PA_DEBUG.Reset_Err_Stack;
492: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
493:
494: EXCEPTION
495: WHEN OTHERS THEN
496: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'

Line 498: ,p_error_text => PA_DEBUG.G_Err_Stack );

494: EXCEPTION
495: WHEN OTHERS THEN
496: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
497: ,p_procedure_name => 'INSERT_BGT_BALANCES' --Bug 5064900
498: ,p_error_text => PA_DEBUG.G_Err_Stack );
499:
500: IF c_bdgt_bal%ISOPEN THEN
501: close c_bdgt_bal;
502: END IF;

Line 512: PA_DEBUG.Reset_Err_Stack; --Bug 5064900

508: END IF;
509:
510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
511: x_error_message_code := (SQLCODE||' '||SQLERRM);
512: PA_DEBUG.Reset_Err_Stack; --Bug 5064900
513: RAISE;
514: END INSERT_BGT_BALANCES;
515: ================================================================================================ */
516: -----------------------------------------------------------------------------------

Line 1112: PA_DEBUG.set_err_stack('Insert VIERBTC Txns');

1108:
1109: BEGIN
1110:
1111: --Initialize the error stack
1112: PA_DEBUG.set_err_stack('Insert VIERBTC Txns');
1113:
1114: --Initialize the return status to success
1115: x_return_status := FND_API.G_RET_STS_SUCCESS;
1116:

Line 1298: PA_DEBUG.Reset_Err_Stack; --3912094

1294: commit;
1295: EXIT WHEN c_VIERBTC_txns%NOTFOUND;
1296: END LOOP;
1297: CLOSE c_VIERBTC_txns;
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');

Line 1299: PA_DEBUG.set_err_stack('Inserted VIERBTC Txns');

1295: EXIT WHEN c_VIERBTC_txns%NOTFOUND;
1296: END LOOP;
1297: CLOSE c_VIERBTC_txns;
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;

Line 1306: PA_DEBUG.Reset_Err_Stack;

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;
1307:
1308: EXCEPTION
1309: WHEN OTHERS THEN
1310: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'

Line 1312: ,p_error_text => PA_DEBUG.G_Err_Stack );

1308: EXCEPTION
1309: WHEN OTHERS THEN
1310: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
1311: ,p_procedure_name => 'INSERT_VI_ER_BTC_TXNS' -- Bug 5064900
1312: ,p_error_text => PA_DEBUG.G_Err_Stack );
1313:
1314: IF c_VIERBTC_txns%ISOPEN THEN
1315: close c_VIERBTC_txns;
1316: END IF;

Line 1320: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

1316: END IF;
1317:
1318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1319: x_error_message_code := (SQLCODE||' '||SQLERRM);
1320: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
1321: RAISE;
1322: END INSERT_VI_ER_BTC_TXNS;
1323: ---------------------------------------------------------------------------------------------
1324:

Line 1432: PA_DEBUG.set_err_stack('Insert Commitment Txns');

1428:
1429: BEGIN
1430:
1431: --Initialize the error stack
1432: PA_DEBUG.set_err_stack('Insert Commitment Txns');
1433:
1434: --Initialize the return status to success
1435: x_return_status := FND_API.G_RET_STS_SUCCESS;
1436:

Line 1541: PA_DEBUG.set_err_stack('CC'); --Bug 3912094

1537: END IF;
1538:
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:

Line 1549: PA_DEBUG.set_err_stack('Insert CC, linked'); --Bug 3912094

1545:
1546: -- Insert Contract Commitments
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

Line 1666: PA_DEBUG.Reset_Err_Stack; --3912094

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
1667: ELSE
1668:
1669: PA_DEBUG.set_err_stack('Insert CC, no link'); --Bug 3912094
1670: IF P_DEBUG_MODE = 'Y' THEN

Line 1669: PA_DEBUG.set_err_stack('Insert CC, no link'); --Bug 3912094

1665:
1666: PA_DEBUG.Reset_Err_Stack; --3912094
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:

Line 1781: PA_DEBUG.Reset_Err_Stack; --3912094

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
1782: END IF;
1783: PA_DEBUG.Reset_Err_Stack; --3912094
1784:
1785: --If budgetary control type is GL, then load all commitment transactions

Line 1783: PA_DEBUG.Reset_Err_Stack; --3912094

1779: end loop;
1780:
1781: PA_DEBUG.Reset_Err_Stack; --3912094
1782: END IF;
1783: PA_DEBUG.Reset_Err_Stack; --3912094
1784:
1785: --If budgetary control type is GL, then load all commitment transactions
1786: --(AP, PO, REQ, Contract Payments) into pa_bc_packets.
1787: --Also check if budget is linked then consider only open period

Line 1791: PA_DEBUG.set_err_stack('GL'); --Bug 3912094

1787: --Also check if budget is linked then consider only open period
1788: --transactions else consider all transactions.
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:

Line 1798: PA_DEBUG.set_err_stack('Insert Std, linked');

1794: END IF;
1795:
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:

Line 1917: PA_DEBUG.Reset_Err_Stack; --3912094

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
1919:
1920: PA_DEBUG.set_err_stack('Insert Std, no link');
1921: IF P_DEBUG_MODE = 'Y' THEN

Line 1920: PA_DEBUG.set_err_stack('Insert Std, no link');

1916: end loop;
1917: PA_DEBUG.Reset_Err_Stack; --3912094
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:

Line 2033: PA_DEBUG.Reset_Err_Stack; --3912094

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:
2035: END IF;
2036: PA_DEBUG.Reset_Err_Stack; --3912094
2037: END IF;

Line 2036: PA_DEBUG.Reset_Err_Stack; --3912094

2032: end loop;
2033: PA_DEBUG.Reset_Err_Stack; --3912094
2034:
2035: END IF;
2036: PA_DEBUG.Reset_Err_Stack; --3912094
2037: END IF;
2038: commit;
2039: EXIT WHEN c_bc_comm%NOTFOUND;
2040: END LOOP;

Line 2043: PA_DEBUG.set_err_stack('Inserted Commitments');

2039: EXIT WHEN c_bc_comm%NOTFOUND;
2040: END LOOP;
2041: CLOSE c_bc_comm;
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;

Line 2050: PA_DEBUG.Reset_Err_Stack;

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;
2051: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2052:
2053: EXCEPTION
2054: WHEN OTHERS THEN

Line 2051: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2047: END IF;
2048:
2049: --Reset the error stack when returning to the calling program
2050: PA_DEBUG.Reset_Err_Stack;
2051: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2052:
2053: EXCEPTION
2054: WHEN OTHERS THEN
2055: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'

Line 2057: ,p_error_text => PA_DEBUG.G_Err_Stack );

2053: EXCEPTION
2054: WHEN OTHERS THEN
2055: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
2056: ,p_procedure_name => 'INSERT_COMMITMENT_TXNS' -- Bug 5064900
2057: ,p_error_text => PA_DEBUG.G_Err_Stack );
2058:
2059: IF c_bc_comm%ISOPEN THEN
2060: close c_bc_comm;
2061: END IF;

Line 2065: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2061: END IF;
2062:
2063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2064: x_error_message_code := (SQLCODE||' '||SQLERRM);
2065: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2066: RAISE;
2067: END INSERT_COMMITMENT_TXNS;
2068:
2069: ---------------------------------------------------------------------------------------------

Line 2080: PA_DEBUG.init_err_stack('PA_BGT_BASELINE_PKG.Maintain_Bal_Fchk');

2076: --(MAIN)
2077: BEGIN
2078:
2079: --Initialize the error stack
2080: PA_DEBUG.init_err_stack('PA_BGT_BASELINE_PKG.Maintain_Bal_Fchk');
2081:
2082: fnd_msg_pub.initialize;
2083:
2084: --Initialize the return status to success

Line 2140: PA_DEBUG.set_err_stack('M:Insert BGT Balances');

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:
2143: INSERT_BGT_BALANCES(
2144: p_project_id => p_project_id,

Line 2156: PA_DEBUG.Reset_Err_Stack; --3912094

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: ========================================================================================================== */
2158:
2159: PA_DEBUG.set_err_stack('M:Is FC Reqd');
2160:

Line 2159: PA_DEBUG.set_err_stack('M:Is FC Reqd');

2155:
2156: PA_DEBUG.Reset_Err_Stack; --3912094
2157: ========================================================================================================== */
2158:
2159: PA_DEBUG.set_err_stack('M:Is FC Reqd');
2160:
2161: -- R12 Funds Management Uptake : Obsolete logic to DELETE packets associated with
2162: -- Draft version Id lying in status 'B'/'R'/'T'.With previous functionality these
2163: -- records were created if baselining errors for some reason after funds check OR

Line 2179: PA_DEBUG.set_err_stack('M:Create Dir Cost');

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

Line 2199: PA_DEBUG.Reset_Err_Stack; --3912094

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
2202: -- insert vendor invoices, expense reports and BTC txns.
2203: if (p_bdgt_ctrl_type = 'GL') then

Line 2205: PA_DEBUG.set_err_stack('M:Insert VIERBTC');

2201: -- If Budgetary Control is GL then also
2202: -- insert vendor invoices, expense reports and BTC txns.
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:

Line 2221: PA_DEBUG.Reset_Err_Stack; --3912094

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;
2224:
2225: -- R12 Funds Management Uptake : Deleted call to main fundscheck API in 'CHECK_BASELINE' mode

Line 2232: pa_debug.Set_User_Lock_Mode(x_TimeOut => 10);

2228: -- R12 Funds Management Uptake : Deleted resrver mode check as this procedure is fired for reserve mode only
2229:
2230: if (p_bdgt_ctrl_type = 'GL') then
2231:
2232: pa_debug.Set_User_Lock_Mode(x_TimeOut => 10);
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

Line 2234: IF (pa_debug.acquire_user_lock('BSLNFCHKLOCK:'||to_char(p_project_id)) = 0) THEN

2230: if (p_bdgt_ctrl_type = 'GL') then
2231:
2232: pa_debug.Set_User_Lock_Mode(x_TimeOut => 10);
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;

Line 2239: -- PA_DEBUG.set_err_stack('M:Acquired Lock'); 3912094 This is not required

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
2242:
2243: --Unable to acquire user lock

Line 2247: -- PA_DEBUG.set_err_stack('M:Could not acquire lock BSLNFCHKLOCK');

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;
2250:
2251: END IF;

Line 2259: PA_DEBUG.set_err_stack('M:FC Reserve Mode');

2255: -- R12 Funds Management Uptake : Deleted delta logic as fundscheck will be perfomed only once i.e. during baselining
2256: -- R12 Funds Management Uptake : Deleted logic to update status_code from 'C' to 'A' . With new architecture
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:

Line 2306: PA_DEBUG.Reset_Err_Stack; --3912094

2302: WHERE budget_version_id = p_budget_version_id;
2303:
2304: End If;
2305:
2306: PA_DEBUG.Reset_Err_Stack; --3912094
2307:
2308: if (l_return_status = 'F') then
2309:
2310: -- PA_DEBUG.set_err_stack('M:Funds Check process in reserve mode returned failure');

Line 2310: -- PA_DEBUG.set_err_stack('M:Funds Check process in reserve mode returned failure');

2306: PA_DEBUG.Reset_Err_Stack; --3912094
2307:
2308: if (l_return_status = 'F') then
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;

Line 2320: -- PA_DEBUG.set_err_stack('M:Funds Check process in reserve mode returned fatal error');

2316: raise FND_API.G_EXC_ERROR;
2317:
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:

Line 2337: -- PA_DEBUG.set_err_stack('M:Funds Check process in reserve mode returned failure');

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:
2340: END IF;
2341:

Line 2343: PA_DEBUG.set_err_stack('M:End of API');

2339:
2340: END IF;
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:

Line 2351: PA_DEBUG.Reset_Err_Stack;

2347:
2348: close c_bal_lock;
2349:
2350: --Reset the error stack when returning to the calling program
2351: PA_DEBUG.Reset_Err_Stack;
2352: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2353: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2354:
2355: /**************************************************

Line 2352: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2348: close c_bal_lock;
2349:
2350: --Reset the error stack when returning to the calling program
2351: PA_DEBUG.Reset_Err_Stack;
2352: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2353: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2354:
2355: /**************************************************
2356: Sweeper to be called after the tieback API is called

Line 2353: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2349:
2350: --Reset the error stack when returning to the calling program
2351: PA_DEBUG.Reset_Err_Stack;
2352: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2353: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2354:
2355: /**************************************************
2356: Sweeper to be called after the tieback API is called
2357: *************************************************/

Line 2371: PA_DEBUG.Reset_Err_Stack; --Bug 5064900

2367: END IF;
2368: if c_bal_lock%isopen then
2369: close c_bal_lock ;
2370: end if;
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');

Line 2380: ,p_error_text => PA_DEBUG.G_Err_Stack );

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
2380: ,p_error_text => PA_DEBUG.G_Err_Stack );
2381:
2382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2383: x_error_message_code := 'PA_BC_CANNOT_ACQUIRE_LOCK';
2384:

Line 2388: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2384:
2385: if c_bal_lock%isopen then
2386: close c_bal_lock;
2387: end if;
2388: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2389: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2390: raise;
2391:
2392: WHEN FND_API.G_EXC_ERROR THEN

Line 2389: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2385: if c_bal_lock%isopen then
2386: close c_bal_lock;
2387: end if;
2388: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2389: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2390: raise;
2391:
2392: WHEN FND_API.G_EXC_ERROR THEN
2393: --rollback; this exception raised when FC fails

Line 2400: IF (pa_debug.release_user_lock('BSLNFCHKLOCK:'||to_char(p_project_id)) = 0) THEN

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);
2402: END IF;
2403:
2404: --When funds check fails due to insufficient funds then

Line 2401: pa_debug.g_err_stage := ' ' || to_char(p_project_id);

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);
2402: END IF;
2403:
2404: --When funds check fails due to insufficient funds then
2405: --we should not add error message to error stack.

Line 2407: ,p_procedure_name => PA_DEBUG.G_Err_Stack ); */

2403:
2404: --When funds check fails due to insufficient funds then
2405: --we should not add error message to error stack.
2406: /*FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
2407: ,p_procedure_name => PA_DEBUG.G_Err_Stack ); */
2408:
2409: x_return_status := FND_API.G_RET_STS_ERROR;
2410:
2411: if (p_bdgt_ctrl_type = 'GL') then

Line 2421: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2417: if c_bal_lock%isopen then
2418: close c_bal_lock;
2419: end if;
2420:
2421: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2422: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2423:
2424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2425: If nvl(l_return_status,'P') = 'T' then

Line 2422: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2418: close c_bal_lock;
2419: end if;
2420:
2421: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2422: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2423:
2424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2425: If nvl(l_return_status,'P') = 'T' then
2426: commit; -- FC exception

Line 2435: IF (pa_debug.release_user_lock('BSLNFCHKLOCK:'||to_char(p_project_id)) = 0) THEN

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);
2437: END IF;
2438:
2439: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'

Line 2436: pa_debug.g_err_stage := ' ' || to_char(p_project_id);

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);
2437: END IF;
2438:
2439: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
2440: ,p_procedure_name => 'MAINTAIN_BAL_FCHK' -- Bug 5064900

Line 2441: ,p_error_text => PA_DEBUG.G_Err_Stack );

2437: END IF;
2438:
2439: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
2440: ,p_procedure_name => 'MAINTAIN_BAL_FCHK' -- Bug 5064900
2441: ,p_error_text => PA_DEBUG.G_Err_Stack );
2442:
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2444: x_error_message_code := (SQLCODE||' '||SQLERRM);
2445:

Line 2453: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2449:
2450: if c_bal_lock%isopen then
2451: close c_bal_lock;
2452: end if;
2453: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2454: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2455: raise;
2456:
2457: WHEN OTHERS THEN

Line 2454: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2450: if c_bal_lock%isopen then
2451: close c_bal_lock;
2452: end if;
2453: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2454: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2455: raise;
2456:
2457: WHEN OTHERS THEN
2458: rollback;

Line 2465: ,p_error_text => PA_DEBUG.G_Err_Stack );

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
2465: ,p_error_text => PA_DEBUG.G_Err_Stack );
2466:
2467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2468: x_error_message_code := (SQLCODE||' '||SQLERRM);
2469:

Line 2473: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2469:
2470: if c_bal_lock%isopen then
2471: close c_bal_lock;
2472: end if;
2473: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2474: RAISE;
2475:
2476: END MAINTAIN_BAL_FCHK;
2477: