DBA Data[Home] [Help]

APPS.ZX_TRL_DISTRIBUTIONS_PKG dependencies on ZX_TRL_DISTRIBUTIONS_PKG

Line 1: PACKAGE BODY ZX_TRL_DISTRIBUTIONS_PKG AS

1: PACKAGE BODY ZX_TRL_DISTRIBUTIONS_PKG AS
2: /* $Header: zxridistribnpkgb.pls 120.40.12010000.1 2008/07/28 13:36:06 appldev ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

Line 187: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Insert_Row.BEGIN',

183: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
184:
185: IF (g_level_procedure >= g_current_runtime_level ) THEN
186: FND_LOG.STRING(g_level_procedure,
187: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Insert_Row.BEGIN',
188: 'ZX_TRL_DISTRIBUTIONS_PKG: Insert_Row (+)');
189: END IF;
190:
191: IF (g_level_procedure >= g_current_runtime_level ) THEN

Line 188: 'ZX_TRL_DISTRIBUTIONS_PKG: Insert_Row (+)');

184:
185: IF (g_level_procedure >= g_current_runtime_level ) THEN
186: FND_LOG.STRING(g_level_procedure,
187: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Insert_Row.BEGIN',
188: 'ZX_TRL_DISTRIBUTIONS_PKG: Insert_Row (+)');
189: END IF;
190:
191: IF (g_level_procedure >= g_current_runtime_level ) THEN
192: FND_LOG.STRING(g_level_procedure,

Line 193: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Insert_Row.END',

189: END IF;
190:
191: IF (g_level_procedure >= g_current_runtime_level ) THEN
192: FND_LOG.STRING(g_level_procedure,
193: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Insert_Row.END',
194: 'ZX_TRL_DISTRIBUTIONS_PKG: Insert_Row (-)');
195: END IF;
196:
197: END Insert_Row;

Line 194: 'ZX_TRL_DISTRIBUTIONS_PKG: Insert_Row (-)');

190:
191: IF (g_level_procedure >= g_current_runtime_level ) THEN
192: FND_LOG.STRING(g_level_procedure,
193: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Insert_Row.END',
194: 'ZX_TRL_DISTRIBUTIONS_PKG: Insert_Row (-)');
195: END IF;
196:
197: END Insert_Row;
198:

Line 551: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Lock_Row.BEGIN',

547: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
548:
549: IF (g_level_procedure >= g_current_runtime_level ) THEN
550: FND_LOG.STRING(g_level_procedure,
551: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Lock_Row.BEGIN',
552: 'ZX_TRL_DISTRIBUTIONS_PKG: Lock_Row (+)');
553: END IF;
554:
555: OPEN dist_csr;

Line 552: 'ZX_TRL_DISTRIBUTIONS_PKG: Lock_Row (+)');

548:
549: IF (g_level_procedure >= g_current_runtime_level ) THEN
550: FND_LOG.STRING(g_level_procedure,
551: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Lock_Row.BEGIN',
552: 'ZX_TRL_DISTRIBUTIONS_PKG: Lock_Row (+)');
553: END IF;
554:
555: OPEN dist_csr;
556: FETCH dist_csr

Line 1036: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Lock_Row.END',

1032: END IF;
1033:
1034: IF (g_level_procedure >= g_current_runtime_level ) THEN
1035: FND_LOG.STRING(g_level_procedure,
1036: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Lock_Row.END',
1037: 'ZX_TRL_DISTRIBUTIONS_PKG: Lock_Row (-)');
1038: END IF;
1039: END Lock_Row;
1040:

Line 1037: 'ZX_TRL_DISTRIBUTIONS_PKG: Lock_Row (-)');

1033:
1034: IF (g_level_procedure >= g_current_runtime_level ) THEN
1035: FND_LOG.STRING(g_level_procedure,
1036: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Lock_Row.END',
1037: 'ZX_TRL_DISTRIBUTIONS_PKG: Lock_Row (-)');
1038: END IF;
1039: END Lock_Row;
1040:
1041: PROCEDURE Update_Row

Line 1219: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row.BEGIN',

1215: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1216:
1217: IF (g_level_procedure >= g_current_runtime_level ) THEN
1218: FND_LOG.STRING(g_level_procedure,
1219: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row.BEGIN',
1220: 'ZX_TRL_DISTRIBUTIONS_PKG: Update_Row (+)');
1221: END IF;
1222:
1223: IF (g_level_procedure >= g_current_runtime_level ) THEN

Line 1220: 'ZX_TRL_DISTRIBUTIONS_PKG: Update_Row (+)');

1216:
1217: IF (g_level_procedure >= g_current_runtime_level ) THEN
1218: FND_LOG.STRING(g_level_procedure,
1219: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row.BEGIN',
1220: 'ZX_TRL_DISTRIBUTIONS_PKG: Update_Row (+)');
1221: END IF;
1222:
1223: IF (g_level_procedure >= g_current_runtime_level ) THEN
1224: FND_LOG.STRING(g_level_procedure,

Line 1225: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',

1221: END IF;
1222:
1223: IF (g_level_procedure >= g_current_runtime_level ) THEN
1224: FND_LOG.STRING(g_level_procedure,
1225: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',
1226: 'Update for reverse dist ZX_TAX_DIST_ID_GT (+)');
1227: END IF;
1228:
1229: IF p_reverse_flag = 'Y' THEN

Line 1239: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',

1235: l_unrounded_rec_nrec_tax_amt := (p_trx_line_dist_tax_amt * p_rec_nrec_rate)/100;
1236:
1237: IF (g_level_procedure >= g_current_runtime_level ) THEN
1238: FND_LOG.STRING(g_level_procedure,
1239: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',
1240: 'l_unrounded_rec_nrec_tax_amt :'||l_unrounded_rec_nrec_tax_amt);
1241:
1242: FND_LOG.STRING(g_level_procedure,
1243: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',

Line 1243: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',

1239: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',
1240: 'l_unrounded_rec_nrec_tax_amt :'||l_unrounded_rec_nrec_tax_amt);
1241:
1242: FND_LOG.STRING(g_level_procedure,
1243: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',
1244: 'Update ZX_REC_NREC_DIST (+)');
1245: END IF;
1246:
1247:

Line 1280: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',

1276: WHERE REC_NREC_TAX_DIST_ID = p_rec_nrec_tax_dist_id;
1277:
1278: IF (g_level_procedure >= g_current_runtime_level ) THEN
1279: FND_LOG.STRING(g_level_procedure,
1280: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',
1281: 'Update ZX_REC_NREC_DIST (-)');
1282: END IF;
1283:
1284: IF (g_level_procedure >= g_current_runtime_level ) THEN

Line 1286: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',

1282: END IF;
1283:
1284: IF (g_level_procedure >= g_current_runtime_level ) THEN
1285: FND_LOG.STRING(g_level_procedure,
1286: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',
1287: 'Update for Non recoverable ZX_REC_NREC_DIST (+)');
1288: END IF;
1289:
1290: l_rec_nrec_rate := 100 - p_rec_nrec_rate;

Line 1321: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',

1317: AND NVL(REVERSE_FLAG, 'N') = 'N';
1318:
1319: IF (g_level_procedure >= g_current_runtime_level ) THEN
1320: FND_LOG.STRING(g_level_procedure,
1321: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',
1322: 'Update for Non recoverable ZX_REC_NREC_DIST (-)');
1323: END IF;
1324:
1325: END IF; -- reverse flag

Line 1329: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',

1325: END IF; -- reverse flag
1326:
1327: IF (g_level_procedure >= g_current_runtime_level ) THEN
1328: FND_LOG.STRING(g_level_procedure,
1329: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row',
1330: 'Update for reverse dist ZX_TAX_DIST_ID_GT (-)');
1331: END IF;
1332:
1333: IF (g_level_procedure >= g_current_runtime_level ) THEN

Line 1335: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row.END',

1331: END IF;
1332:
1333: IF (g_level_procedure >= g_current_runtime_level ) THEN
1334: FND_LOG.STRING(g_level_procedure,
1335: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row.END',
1336: 'ZX_TRL_DISTRIBUTIONS_PKG.Update_Row (-)');
1337: END IF;
1338:
1339: END Update_Row;

Line 1336: 'ZX_TRL_DISTRIBUTIONS_PKG.Update_Row (-)');

1332:
1333: IF (g_level_procedure >= g_current_runtime_level ) THEN
1334: FND_LOG.STRING(g_level_procedure,
1335: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Update_Row.END',
1336: 'ZX_TRL_DISTRIBUTIONS_PKG.Update_Row (-)');
1337: END IF;
1338:
1339: END Update_Row;
1340:

Line 1354: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Delete_Row.BEGIN',

1350: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1351:
1352: IF (g_level_procedure >= g_current_runtime_level ) THEN
1353: FND_LOG.STRING(g_level_procedure,
1354: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Delete_Row.BEGIN',
1355: 'ZX_TRL_DISTRIBUTIONS_PKG: Delete_Row (+)');
1356: END IF;
1357:
1358: NULL;

Line 1355: 'ZX_TRL_DISTRIBUTIONS_PKG: Delete_Row (+)');

1351:
1352: IF (g_level_procedure >= g_current_runtime_level ) THEN
1353: FND_LOG.STRING(g_level_procedure,
1354: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Delete_Row.BEGIN',
1355: 'ZX_TRL_DISTRIBUTIONS_PKG: Delete_Row (+)');
1356: END IF;
1357:
1358: NULL;
1359:

Line 1362: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Delete_Row.END',

1358: NULL;
1359:
1360: IF (g_level_procedure >= g_current_runtime_level ) THEN
1361: FND_LOG.STRING(g_level_procedure,
1362: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Delete_Row.END',
1363: 'ZX_TRL_DISTRIBUTIONS_PKG: Delete_Row (-)');
1364: END IF;
1365: END Delete_Row;
1366:

Line 1363: 'ZX_TRL_DISTRIBUTIONS_PKG: Delete_Row (-)');

1359:
1360: IF (g_level_procedure >= g_current_runtime_level ) THEN
1361: FND_LOG.STRING(g_level_procedure,
1362: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Delete_Row.END',
1363: 'ZX_TRL_DISTRIBUTIONS_PKG: Delete_Row (-)');
1364: END IF;
1365: END Delete_Row;
1366:
1367: PROCEDURE Override_Recovery

Line 1384: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Override_Recovery',

1380: BEGIN
1381:
1382: IF (g_level_procedure >= g_current_runtime_level ) THEN
1383: FND_LOG.STRING(g_level_procedure,
1384: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Override_Recovery',
1385: 'Calling ZX_TRD_SERVICE_PUB_PKG.override_recovery (+)');
1386: END IF;
1387:
1388: l_transaction_rec_type.internal_organization_id := p_internal_organization_id;

Line 1407: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Override_Recovery',

1403:
1404: IF (g_level_procedure >= g_current_runtime_level ) THEN
1405:
1406: FND_LOG.STRING(g_level_procedure,
1407: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Override_Recovery',
1408: 'Return Status = ' || l_return_status);
1409:
1410: FND_LOG.STRING(g_level_procedure,
1411: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Override_Recovery',

Line 1411: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Override_Recovery',

1407: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Override_Recovery',
1408: 'Return Status = ' || l_return_status);
1409:
1410: FND_LOG.STRING(g_level_procedure,
1411: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Override_Recovery',
1412: 'Message Data = ' || l_msg_data);
1413:
1414: END IF;
1415:

Line 1418: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Override_Recovery',

1414: END IF;
1415:
1416: IF (g_level_procedure >= g_current_runtime_level ) THEN
1417: FND_LOG.STRING(g_level_procedure,
1418: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Override_Recovery',
1419: 'Calling ZX_TRD_SERVICE_PUB_PKG.override_recovery (-)');
1420: END IF;
1421:
1422: END Override_Recovery;

Line 1435: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row.BEGIN',

1431: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1432:
1433: IF (g_level_procedure >= g_current_runtime_level ) THEN
1434: FND_LOG.STRING(g_level_procedure,
1435: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row.BEGIN',
1436: 'ZX_TRL_DISTRIBUTIONS_PKG: Reverse_Row (+)');
1437: END IF;
1438:
1439: SELECT count(*)

Line 1436: 'ZX_TRL_DISTRIBUTIONS_PKG: Reverse_Row (+)');

1432:
1433: IF (g_level_procedure >= g_current_runtime_level ) THEN
1434: FND_LOG.STRING(g_level_procedure,
1435: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row.BEGIN',
1436: 'ZX_TRL_DISTRIBUTIONS_PKG: Reverse_Row (+)');
1437: END IF;
1438:
1439: SELECT count(*)
1440: INTO l_tax_dist

Line 1448: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',

1444: BEGIN
1445:
1446: IF (g_level_procedure >= g_current_runtime_level ) THEN
1447: FND_LOG.STRING(g_level_procedure,
1448: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',
1449: 'Call to zx_trd_service_pub_pkg.reverse_tax_dist (+)');
1450: END IF;
1451:
1452: ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(l_rec_nrec_dist_tbl,

Line 1458: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',

1454:
1455: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1456: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1457: FND_LOG.STRING(g_level_unexpected,
1458: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',
1459: 'Incorrect return_status after calling ' ||
1460: 'Insert into ZX_REC_NREC_DIST');
1461: END IF;
1462:

Line 1469: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',

1465: END IF;
1466:
1467: IF (g_level_procedure >= g_current_runtime_level ) THEN
1468: FND_LOG.STRING(g_level_procedure,
1469: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',
1470: 'Call to zx_trd_service_pub_pkg.reverse_tax_dist (-)');
1471: END IF;
1472:
1473: IF (g_level_procedure >= g_current_runtime_level ) THEN

Line 1475: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',

1471: END IF;
1472:
1473: IF (g_level_procedure >= g_current_runtime_level ) THEN
1474: FND_LOG.STRING(g_level_procedure,
1475: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',
1476: 'Delete from ZX_REC_NREC_DIST (+)');
1477: END IF;
1478:
1479: DELETE FROM ZX_REC_NREC_DIST

Line 1485: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',

1481: FROM ZX_TAX_DIST_ID_GT);
1482:
1483: IF (g_level_procedure >= g_current_runtime_level ) THEN
1484: FND_LOG.STRING(g_level_procedure,
1485: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',
1486: 'Delete from ZX_REC_NREC_DIST (-)');
1487: END IF;
1488:
1489: IF (g_level_procedure >= g_current_runtime_level ) THEN

Line 1491: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',

1487: END IF;
1488:
1489: IF (g_level_procedure >= g_current_runtime_level ) THEN
1490: FND_LOG.STRING(g_level_procedure,
1491: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',
1492: 'Insert into ZX_REC_NREC_DIST (+)');
1493: END IF;
1494:
1495: FORALL i IN l_rec_nrec_dist_tbl.first..l_rec_nrec_dist_tbl.last

Line 1501: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',

1497: INSERT INTO ZX_REC_NREC_DIST VALUES l_rec_nrec_dist_tbl(i);
1498:
1499: IF (g_level_procedure >= g_current_runtime_level ) THEN
1500: FND_LOG.STRING(g_level_procedure,
1501: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',
1502: 'Insert into ZX_REC_NREC_DIST (-)');
1503: END IF;
1504:
1505: IF (g_level_procedure >= g_current_runtime_level ) THEN

Line 1507: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row.END',

1503: END IF;
1504:
1505: IF (g_level_procedure >= g_current_runtime_level ) THEN
1506: FND_LOG.STRING(g_level_procedure,
1507: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row.END',
1508: 'ZX_TRL_DISTRIBUTIONS_PKG: Reverse_Row (-)');
1509: END IF;
1510: END;
1511: END IF;

Line 1508: 'ZX_TRL_DISTRIBUTIONS_PKG: Reverse_Row (-)');

1504:
1505: IF (g_level_procedure >= g_current_runtime_level ) THEN
1506: FND_LOG.STRING(g_level_procedure,
1507: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row.END',
1508: 'ZX_TRL_DISTRIBUTIONS_PKG: Reverse_Row (-)');
1509: END IF;
1510: END;
1511: END IF;
1512:

Line 1521: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',

1517: FND_MSG_PUB.Add;
1518:
1519: IF (g_level_procedure >= g_current_runtime_level ) THEN
1520: FND_LOG.STRING(g_level_procedure,
1521: 'ZX.PLSQL.ZX_TRL_DISTRIBUTIONS_PKG.Reverse_Row',
1522: 'Exception:' ||SQLCODE||';'||SQLERRM);
1523: END IF;
1524:
1525: END Reverse_Row;

Line 1588: END ZX_TRL_DISTRIBUTIONS_PKG;

1584: END IF;
1585: END lock_rec_nrec_dist_for_doc;
1586:
1587:
1588: END ZX_TRL_DISTRIBUTIONS_PKG;