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.9.12000000.2 2007/10/24 12:01:39 pvishnoi 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 946: PA_DEBUG.set_err_stack('Insert VIERBTC Txns');

942:
943: BEGIN
944:
945: --Initialize the error stack
946: PA_DEBUG.set_err_stack('Insert VIERBTC Txns');
947:
948: --Initialize the return status to success
949: x_return_status := FND_API.G_RET_STS_SUCCESS;
950:

Line 1132: PA_DEBUG.Reset_Err_Stack; --3912094

1128: commit;
1129: EXIT WHEN c_VIERBTC_txns%NOTFOUND;
1130: END LOOP;
1131: CLOSE c_VIERBTC_txns;
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');

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

1129: EXIT WHEN c_VIERBTC_txns%NOTFOUND;
1130: END LOOP;
1131: CLOSE c_VIERBTC_txns;
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;

Line 1140: PA_DEBUG.Reset_Err_Stack;

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;
1141:
1142: EXCEPTION
1143: WHEN OTHERS THEN
1144: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'

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

1142: EXCEPTION
1143: WHEN OTHERS THEN
1144: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
1145: ,p_procedure_name => 'INSERT_VI_ER_BTC_TXNS' -- Bug 5064900
1146: ,p_error_text => PA_DEBUG.G_Err_Stack );
1147:
1148: IF c_VIERBTC_txns%ISOPEN THEN
1149: close c_VIERBTC_txns;
1150: END IF;

Line 1154: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

1150: END IF;
1151:
1152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1153: x_error_message_code := (SQLCODE||' '||SQLERRM);
1154: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
1155: RAISE;
1156: END INSERT_VI_ER_BTC_TXNS;
1157: ---------------------------------------------------------------------------------------------
1158:

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

1262:
1263: BEGIN
1264:
1265: --Initialize the error stack
1266: PA_DEBUG.set_err_stack('Insert Commitment Txns');
1267:
1268: --Initialize the return status to success
1269: x_return_status := FND_API.G_RET_STS_SUCCESS;
1270:

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

1371: END IF;
1372:
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:

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

1379:
1380: -- Insert Contract Commitments
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

Line 1500: PA_DEBUG.Reset_Err_Stack; --3912094

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
1501: ELSE
1502:
1503: PA_DEBUG.set_err_stack('Insert CC, no link'); --Bug 3912094
1504: IF P_DEBUG_MODE = 'Y' THEN

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

1499:
1500: PA_DEBUG.Reset_Err_Stack; --3912094
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:

Line 1615: PA_DEBUG.Reset_Err_Stack; --3912094

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
1616: END IF;
1617: PA_DEBUG.Reset_Err_Stack; --3912094
1618:
1619: --If budgetary control type is GL, then load all commitment transactions

Line 1617: PA_DEBUG.Reset_Err_Stack; --3912094

1613: end loop;
1614:
1615: PA_DEBUG.Reset_Err_Stack; --3912094
1616: END IF;
1617: PA_DEBUG.Reset_Err_Stack; --3912094
1618:
1619: --If budgetary control type is GL, then load all commitment transactions
1620: --(AP, PO, REQ, Contract Payments) into pa_bc_packets.
1621: --Also check if budget is linked then consider only open period

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

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

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

1628: END IF;
1629:
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:

Line 1751: PA_DEBUG.Reset_Err_Stack; --3912094

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

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

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

Line 1867: PA_DEBUG.Reset_Err_Stack; --3912094

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:
1869: END IF;
1870: PA_DEBUG.Reset_Err_Stack; --3912094
1871: END IF;

Line 1870: PA_DEBUG.Reset_Err_Stack; --3912094

1866: end loop;
1867: PA_DEBUG.Reset_Err_Stack; --3912094
1868:
1869: END IF;
1870: PA_DEBUG.Reset_Err_Stack; --3912094
1871: END IF;
1872: commit;
1873: EXIT WHEN c_bc_comm%NOTFOUND;
1874: END LOOP;

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

1873: EXIT WHEN c_bc_comm%NOTFOUND;
1874: END LOOP;
1875: CLOSE c_bc_comm;
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;

Line 1884: PA_DEBUG.Reset_Err_Stack;

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;
1885: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
1886:
1887: EXCEPTION
1888: WHEN OTHERS THEN

Line 1885: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

1881: END IF;
1882:
1883: --Reset the error stack when returning to the calling program
1884: PA_DEBUG.Reset_Err_Stack;
1885: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
1886:
1887: EXCEPTION
1888: WHEN OTHERS THEN
1889: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'

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

1887: EXCEPTION
1888: WHEN OTHERS THEN
1889: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
1890: ,p_procedure_name => 'INSERT_COMMITMENT_TXNS' -- Bug 5064900
1891: ,p_error_text => PA_DEBUG.G_Err_Stack );
1892:
1893: IF c_bc_comm%ISOPEN THEN
1894: close c_bc_comm;
1895: END IF;

Line 1899: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

1895: END IF;
1896:
1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1898: x_error_message_code := (SQLCODE||' '||SQLERRM);
1899: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
1900: RAISE;
1901: END INSERT_COMMITMENT_TXNS;
1902:
1903: ---------------------------------------------------------------------------------------------

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

1910: --(MAIN)
1911: BEGIN
1912:
1913: --Initialize the error stack
1914: PA_DEBUG.init_err_stack('PA_BGT_BASELINE_PKG.Maintain_Bal_Fchk');
1915:
1916: fnd_msg_pub.initialize;
1917:
1918: --Initialize the return status to success

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

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:
1977: INSERT_BGT_BALANCES(
1978: p_project_id => p_project_id,

Line 1990: PA_DEBUG.Reset_Err_Stack; --3912094

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: ========================================================================================================== */
1992:
1993: PA_DEBUG.set_err_stack('M:Is FC Reqd');
1994:

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

1989:
1990: PA_DEBUG.Reset_Err_Stack; --3912094
1991: ========================================================================================================== */
1992:
1993: PA_DEBUG.set_err_stack('M:Is FC Reqd');
1994:
1995: -- R12 Funds Management Uptake : Obsolete logic to DELETE packets associated with
1996: -- Draft version Id lying in status 'B'/'R'/'T'.With previous functionality these
1997: -- records were created if baselining errors for some reason after funds check OR

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

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

Line 2033: PA_DEBUG.Reset_Err_Stack; --3912094

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

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

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

Line 2055: PA_DEBUG.Reset_Err_Stack; --3912094

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

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

2062: -- R12 Funds Management Uptake : Deleted resrver mode check as this procedure is fired for reserve mode only
2063:
2064: if (p_bdgt_ctrl_type = 'GL') then
2065:
2066: pa_debug.Set_User_Lock_Mode(x_TimeOut => 10);
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

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

2064: if (p_bdgt_ctrl_type = 'GL') then
2065:
2066: pa_debug.Set_User_Lock_Mode(x_TimeOut => 10);
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;

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

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
2076:
2077: --Unable to acquire user lock

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

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;
2084:
2085: END IF;

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

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

Line 2140: PA_DEBUG.Reset_Err_Stack; --3912094

2136: WHERE budget_version_id = p_budget_version_id;
2137:
2138: End If;
2139:
2140: PA_DEBUG.Reset_Err_Stack; --3912094
2141:
2142: if (l_return_status = 'F') then
2143:
2144: -- PA_DEBUG.set_err_stack('M:Funds Check process in reserve mode returned failure');

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

2140: PA_DEBUG.Reset_Err_Stack; --3912094
2141:
2142: if (l_return_status = 'F') then
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;

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

2150: raise FND_API.G_EXC_ERROR;
2151:
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:

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

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:
2174: END IF;
2175:

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

2173:
2174: END IF;
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:

Line 2185: PA_DEBUG.Reset_Err_Stack;

2181:
2182: close c_bal_lock;
2183:
2184: --Reset the error stack when returning to the calling program
2185: PA_DEBUG.Reset_Err_Stack;
2186: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2187: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2188:
2189: /**************************************************

Line 2186: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2182: close c_bal_lock;
2183:
2184: --Reset the error stack when returning to the calling program
2185: PA_DEBUG.Reset_Err_Stack;
2186: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2187: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2188:
2189: /**************************************************
2190: Sweeper to be called after the tieback API is called

Line 2187: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2183:
2184: --Reset the error stack when returning to the calling program
2185: PA_DEBUG.Reset_Err_Stack;
2186: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2187: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2188:
2189: /**************************************************
2190: Sweeper to be called after the tieback API is called
2191: *************************************************/

Line 2205: PA_DEBUG.Reset_Err_Stack; --Bug 5064900

2201: END IF;
2202: if c_bal_lock%isopen then
2203: close c_bal_lock ;
2204: end if;
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');

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

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
2214: ,p_error_text => PA_DEBUG.G_Err_Stack );
2215:
2216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2217: x_error_message_code := 'PA_BC_CANNOT_ACQUIRE_LOCK';
2218:

Line 2222: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2218:
2219: if c_bal_lock%isopen then
2220: close c_bal_lock;
2221: end if;
2222: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2223: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2224: raise;
2225:
2226: WHEN FND_API.G_EXC_ERROR THEN

Line 2223: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2219: if c_bal_lock%isopen then
2220: close c_bal_lock;
2221: end if;
2222: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2223: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2224: raise;
2225:
2226: WHEN FND_API.G_EXC_ERROR THEN
2227: --rollback; this exception raised when FC fails

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

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);
2236: END IF;
2237:
2238: --When funds check fails due to insufficient funds then

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

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);
2236: END IF;
2237:
2238: --When funds check fails due to insufficient funds then
2239: --we should not add error message to error stack.

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

2237:
2238: --When funds check fails due to insufficient funds then
2239: --we should not add error message to error stack.
2240: /*FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
2241: ,p_procedure_name => PA_DEBUG.G_Err_Stack ); */
2242:
2243: x_return_status := FND_API.G_RET_STS_ERROR;
2244:
2245: if (p_bdgt_ctrl_type = 'GL') then

Line 2255: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2251: if c_bal_lock%isopen then
2252: close c_bal_lock;
2253: end if;
2254:
2255: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2256: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2257:
2258: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2259: If nvl(l_return_status,'P') = 'T' then

Line 2256: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2252: close c_bal_lock;
2253: end if;
2254:
2255: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2256: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2257:
2258: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2259: If nvl(l_return_status,'P') = 'T' then
2260: commit; -- FC exception

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

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);
2271: END IF;
2272:
2273: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'

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

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);
2271: END IF;
2272:
2273: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
2274: ,p_procedure_name => 'MAINTAIN_BAL_FCHK' -- Bug 5064900

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

2271: END IF;
2272:
2273: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_BGT_BASELINE_PKG'
2274: ,p_procedure_name => 'MAINTAIN_BAL_FCHK' -- Bug 5064900
2275: ,p_error_text => PA_DEBUG.G_Err_Stack );
2276:
2277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2278: x_error_message_code := (SQLCODE||' '||SQLERRM);
2279:

Line 2287: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2283:
2284: if c_bal_lock%isopen then
2285: close c_bal_lock;
2286: end if;
2287: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2288: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2289: raise;
2290:
2291: WHEN OTHERS THEN

Line 2288: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2284: if c_bal_lock%isopen then
2285: close c_bal_lock;
2286: end if;
2287: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2288: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2289: raise;
2290:
2291: WHEN OTHERS THEN
2292: rollback;

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

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
2299: ,p_error_text => PA_DEBUG.G_Err_Stack );
2300:
2301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2302: x_error_message_code := (SQLCODE||' '||SQLERRM);
2303:

Line 2307: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900

2303:
2304: if c_bal_lock%isopen then
2305: close c_bal_lock;
2306: end if;
2307: PA_DEBUG.Reset_Err_Stack; -- Bug 5064900
2308: RAISE;
2309:
2310: END MAINTAIN_BAL_FCHK;
2311: