1: PACKAGE BODY ZX_ON_FLY_TRX_UPGRADE_AR_PKG AS
2: /* $Header: zxmigtrxflyarb.pls 120.16.12010000.1 2008/07/28 13:34:57 appldev ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
1775: AND zxl.TRX_LEVEL_TYPE = 'LINE'
1776: );
1777: IF (g_level_procedure >= g_current_runtime_level ) THEN
1778: FND_LOG.STRING(g_level_procedure,
1779: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_ar.BEGIN',
1780: 'ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_ar(+)');
1781: END IF;
1782: EXCEPTION
1783: WHEN OTHERS THEN
1776: );
1777: IF (g_level_procedure >= g_current_runtime_level ) THEN
1778: FND_LOG.STRING(g_level_procedure,
1779: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_ar.BEGIN',
1780: 'ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_ar(+)');
1781: END IF;
1782: EXCEPTION
1783: WHEN OTHERS THEN
1784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1783: WHEN OTHERS THEN
1784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1785: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1786: FND_LOG.STRING(g_level_unexpected,
1787: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_ar',
1788: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1789: FND_LOG.STRING(g_level_unexpected,
1790: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_ar.END',
1791: 'ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_ar(-)');
1786: FND_LOG.STRING(g_level_unexpected,
1787: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_ar',
1788: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1789: FND_LOG.STRING(g_level_unexpected,
1790: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_ar.END',
1791: 'ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_ar(-)');
1792: END IF;
1793:
1794: END upgrade_trx_on_fly_ar;
1787: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_ar',
1788: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1789: FND_LOG.STRING(g_level_unexpected,
1790: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_ar.END',
1791: 'ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_ar(-)');
1792: END IF;
1793:
1794: END upgrade_trx_on_fly_ar;
1795:
1815: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1816:
1817: IF (g_level_procedure >= g_current_runtime_level ) THEN
1818: FND_LOG.STRING(g_level_procedure,
1819: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar.BEGIN',
1820: 'ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar(+)');
1821: END IF;
1822:
1823: x_return_status := FND_API.G_RET_STS_SUCCESS;
1816:
1817: IF (g_level_procedure >= g_current_runtime_level ) THEN
1818: FND_LOG.STRING(g_level_procedure,
1819: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar.BEGIN',
1820: 'ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar(+)');
1821: END IF;
1822:
1823: x_return_status := FND_API.G_RET_STS_SUCCESS;
1824: SELECT NVL(multi_org_flag, 'N') INTO l_multi_org_flag FROM FND_PRODUCT_GROUPS;
1827: FND_PROFILE.GET('ORG_ID',l_org_id);
1828: IF l_org_id is NULL THEN
1829: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1830: FND_LOG.STRING(g_level_unexpected,
1831: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar',
1832: 'Current envionment is a Single Org environment,'||
1833: ' but peofile ORG_ID is not set up');
1834: END IF;
1835:
3542: AND NVL(arsysparam.tax_code, '!') <> 'Localization';
3543:
3544: IF (g_level_procedure >= g_current_runtime_level ) THEN
3545: FND_LOG.STRING(g_level_procedure,
3546: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar.BEGIN',
3547: 'ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar(+)');
3548: END IF;
3549:
3550: EXCEPTION
3543:
3544: IF (g_level_procedure >= g_current_runtime_level ) THEN
3545: FND_LOG.STRING(g_level_procedure,
3546: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar.BEGIN',
3547: 'ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar(+)');
3548: END IF;
3549:
3550: EXCEPTION
3551: WHEN OTHERS THEN
3551: WHEN OTHERS THEN
3552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3553: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3554: FND_LOG.STRING(g_level_unexpected,
3555: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar',
3556: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3557: FND_LOG.STRING(g_level_unexpected,
3558: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar.END',
3559: 'ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar(-)');
3554: FND_LOG.STRING(g_level_unexpected,
3555: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar',
3556: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3557: FND_LOG.STRING(g_level_unexpected,
3558: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar.END',
3559: 'ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar(-)');
3560: END IF;
3561:
3562: END upgrade_trx_on_fly_blk_ar;
3555: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar',
3556: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3557: FND_LOG.STRING(g_level_unexpected,
3558: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar.END',
3559: 'ZX_ON_FLY_TRX_UPGRADE_AR_PKG.upgrade_trx_on_fly_blk_ar(-)');
3560: END IF;
3561:
3562: END upgrade_trx_on_fly_blk_ar;
3563:
3560: END IF;
3561:
3562: END upgrade_trx_on_fly_blk_ar;
3563:
3564: END ZX_ON_FLY_TRX_UPGRADE_AR_PKG;
3565: