71: -- 11. Create accrual entries in CST_PER_END_ACCRUALS_TEMP
72: -------------------------------------------------------------------------------
73:
74: G_PKG_NAME CONSTANT VARCHAR2(30):='CST_PerEndAccruals_PVT';
75: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
76:
77:
78:
79: -----------------------------------------------------------------------------
122: /* 2- PROCEDURE */
123: /* 1- STATEMENT */
124:
125: /* In general, we should use the following:
126: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
127: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
128: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
129: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
130: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
123: /* 1- STATEMENT */
124:
125: /* In general, we should use the following:
126: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
127: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
128: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
129: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
130: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
131: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
124:
125: /* In general, we should use the following:
126: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
127: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
128: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
129: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
130: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
131: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
132: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
125: /* In general, we should use the following:
126: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
127: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
128: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
129: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
130: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
131: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
132: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
133: */
126: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
127: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
128: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
129: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
130: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
131: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
132: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
133: */
134:
127: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
128: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
129: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
130: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
131: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
132: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
133: */
134:
135: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
128: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
129: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
130: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
131: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
132: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
133: */
134:
135: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
136: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
131: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
132: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
133: */
134:
135: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
136: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
137: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
138: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
139:
132: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
133: */
134:
135: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
136: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
137: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
138: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
139:
140: l_accrual_rec CST_PER_END_ACCRUALS_TEMP%ROWTYPE;
133: */
134:
135: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
136: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
137: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
138: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
139:
140: l_accrual_rec CST_PER_END_ACCRUALS_TEMP%ROWTYPE;
141: l_end_date DATE;
134:
135: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
136: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
137: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
138: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
139:
140: l_accrual_rec CST_PER_END_ACCRUALS_TEMP%ROWTYPE;
141: l_end_date DATE;
142: l_stmt_num NUMBER;
708: l_stmt_num := 0;
709:
710: -- Procedure level log message for Entry point
711: IF (l_pLog) THEN
712: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,'Create_PerEndAccruals << ');
713: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_min_accrual_amount = '|| p_min_accrual_amount);
714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_id = '|| p_vendor_id);
715: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_to = '|| p_vendor_to);
716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_id = '|| p_category_id);
709:
710: -- Procedure level log message for Entry point
711: IF (l_pLog) THEN
712: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,'Create_PerEndAccruals << ');
713: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_min_accrual_amount = '|| p_min_accrual_amount);
714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_id = '|| p_vendor_id);
715: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_to = '|| p_vendor_to);
716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_id = '|| p_category_id);
717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_from = '|| p_category_from);
710: -- Procedure level log message for Entry point
711: IF (l_pLog) THEN
712: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,'Create_PerEndAccruals << ');
713: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_min_accrual_amount = '|| p_min_accrual_amount);
714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_id = '|| p_vendor_id);
715: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_to = '|| p_vendor_to);
716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_id = '|| p_category_id);
717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_from = '|| p_category_from);
718: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_to = '|| p_category_to);
711: IF (l_pLog) THEN
712: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,'Create_PerEndAccruals << ');
713: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_min_accrual_amount = '|| p_min_accrual_amount);
714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_id = '|| p_vendor_id);
715: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_to = '|| p_vendor_to);
716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_id = '|| p_category_id);
717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_from = '|| p_category_from);
718: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_to = '|| p_category_to);
719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_end_date = '|| p_end_date);
712: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,'Create_PerEndAccruals << ');
713: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_min_accrual_amount = '|| p_min_accrual_amount);
714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_id = '|| p_vendor_id);
715: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_to = '|| p_vendor_to);
716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_id = '|| p_category_id);
717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_from = '|| p_category_from);
718: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_to = '|| p_category_to);
719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_end_date = '|| p_end_date);
720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_accrued_receipt = '|| p_accrued_receipt);
713: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_min_accrual_amount = '|| p_min_accrual_amount);
714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_id = '|| p_vendor_id);
715: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_to = '|| p_vendor_to);
716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_id = '|| p_category_id);
717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_from = '|| p_category_from);
718: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_to = '|| p_category_to);
719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_end_date = '|| p_end_date);
720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_accrued_receipt = '|| p_accrued_receipt);
721: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_online_accruals = '|| p_online_accruals);
714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_id = '|| p_vendor_id);
715: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_to = '|| p_vendor_to);
716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_id = '|| p_category_id);
717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_from = '|| p_category_from);
718: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_to = '|| p_category_to);
719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_end_date = '|| p_end_date);
720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_accrued_receipt = '|| p_accrued_receipt);
721: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_online_accruals = '|| p_online_accruals);
722: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_calling_api = '|| p_calling_api);
715: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_vendor_to = '|| p_vendor_to);
716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_id = '|| p_category_id);
717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_from = '|| p_category_from);
718: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_to = '|| p_category_to);
719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_end_date = '|| p_end_date);
720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_accrued_receipt = '|| p_accrued_receipt);
721: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_online_accruals = '|| p_online_accruals);
722: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_calling_api = '|| p_calling_api);
723: END IF;
716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_id = '|| p_category_id);
717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_from = '|| p_category_from);
718: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_to = '|| p_category_to);
719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_end_date = '|| p_end_date);
720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_accrued_receipt = '|| p_accrued_receipt);
721: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_online_accruals = '|| p_online_accruals);
722: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_calling_api = '|| p_calling_api);
723: END IF;
724:
717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_from = '|| p_category_from);
718: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_to = '|| p_category_to);
719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_end_date = '|| p_end_date);
720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_accrued_receipt = '|| p_accrued_receipt);
721: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_online_accruals = '|| p_online_accruals);
722: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_calling_api = '|| p_calling_api);
723: END IF;
724:
725: -- Standard call to check for call compatibility
718: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_category_to = '|| p_category_to);
719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_end_date = '|| p_end_date);
720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_accrued_receipt = '|| p_accrued_receipt);
721: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_online_accruals = '|| p_online_accruals);
722: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,' p_calling_api = '|| p_calling_api);
723: END IF;
724:
725: -- Standard call to check for call compatibility
726: IF NOT FND_API.Compatible_API_Call ( l_api_version,
749: --
750: --{Specialization BUG#7296737
751: --
752: IF (l_pLog) THEN
753: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,'Determining the cursor');
754: END IF;
755:
756: IF (p_vendor_id IS NULL AND
757: p_vendor_from IS NULL AND
793: l_use := 'l_distribution_csr';
794: END IF;
795:
796: IF (l_pLog) THEN
797: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,'l_use :'||l_use);
798: END IF;
799:
800: IF l_use = 'c_no_vendor_no_category' THEN
801:
1321: );
1322:
1323: -- Procedure level log message for exit point
1324: IF (l_pLog) THEN
1325: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,l_module,'Create_PerEndAccruals >>');
1326: END IF;
1327:
1328: -- Get message count and if 1, return message data.
1329: FND_MSG_PUB.Count_And_Get
1342: ROLLBACK TO Create_PerEndAccruals_PVT;
1343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1344:
1345: IF (l_exceptionLog) THEN
1346: FND_LOG.STRING(
1347: FND_LOG.LEVEL_EXCEPTION,
1348: l_module || '.' || l_stmt_num,
1349: l_msg_data
1350: );
1343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1344:
1345: IF (l_exceptionLog) THEN
1346: FND_LOG.STRING(
1347: FND_LOG.LEVEL_EXCEPTION,
1348: l_module || '.' || l_stmt_num,
1349: l_msg_data
1350: );
1351: END IF;
1360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1361:
1362: -- Unexpected level log message
1363: IF (l_uLog) THEN
1364: FND_LOG.STRING(
1365: FND_LOG.LEVEL_UNEXPECTED,
1366: l_module || '.' || l_stmt_num,
1367: SQLERRM
1368: );
1361:
1362: -- Unexpected level log message
1363: IF (l_uLog) THEN
1364: FND_LOG.STRING(
1365: FND_LOG.LEVEL_UNEXPECTED,
1366: l_module || '.' || l_stmt_num,
1367: SQLERRM
1368: );
1369: END IF;
1415:
1416: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
1417: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
1418:
1419: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1420: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1421: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1422: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1423:
1416: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
1417: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
1418:
1419: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1420: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1421: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1422: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1423:
1424: l_stmt_num NUMBER;
1417: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
1418:
1419: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1420: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1421: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1422: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1423:
1424: l_stmt_num NUMBER;
1425: l_msg_data VARCHAR2(240);
1418:
1419: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1420: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1421: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1422: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1423:
1424: l_stmt_num NUMBER;
1425: l_msg_data VARCHAR2(240);
1426:
1475: l_stmt_num := 0;
1476:
1477: -- Procedure level log message for Entry point
1478: IF (l_pLog) THEN
1479: FND_LOG.STRING(
1480: FND_LOG.LEVEL_PROCEDURE,
1481: l_module || '.begin',
1482: 'Calculate_AccrualAmount <<' ||
1483: 'p_service_flag = ' || p_service_flag ||','||
1476:
1477: -- Procedure level log message for Entry point
1478: IF (l_pLog) THEN
1479: FND_LOG.STRING(
1480: FND_LOG.LEVEL_PROCEDURE,
1481: l_module || '.begin',
1482: 'Calculate_AccrualAmount <<' ||
1483: 'p_service_flag = ' || p_service_flag ||','||
1484: 'p_dist_qty = ' || p_dist_qty ||','||
1532: -- If Match to PO cases
1533: -------------------------------------------------------------------------
1534: IF (x_accrual_rec.match_option = 'P') THEN
1535: IF (l_pLog) THEN
1536: FND_LOG.STRING(
1537: FND_LOG.LEVEL_PROCEDURE,
1538: l_module||',',
1539: ' g_shipment_id is '||g_shipment_id
1540: );
1533: -------------------------------------------------------------------------
1534: IF (x_accrual_rec.match_option = 'P') THEN
1535: IF (l_pLog) THEN
1536: FND_LOG.STRING(
1537: FND_LOG.LEVEL_PROCEDURE,
1538: l_module||',',
1539: ' g_shipment_id is '||g_shipment_id
1540: );
1541: END IF;
1547: IF (x_accrual_rec.shipment_id <> NVL(g_shipment_id, -999)) THEN
1548: g_shipment_id := x_accrual_rec.shipment_id;
1549:
1550: IF (l_pLog) THEN
1551: FND_LOG.STRING(
1552: FND_LOG.LEVEL_PROCEDURE,
1553: l_module||',',
1554: ' g_shipment_id is '||g_shipment_id
1555: );
1548: g_shipment_id := x_accrual_rec.shipment_id;
1549:
1550: IF (l_pLog) THEN
1551: FND_LOG.STRING(
1552: FND_LOG.LEVEL_PROCEDURE,
1553: l_module||',',
1554: ' g_shipment_id is '||g_shipment_id
1555: );
1556: END IF;
1583:
1584: g_shipment_net_qty_received := g_nqr;
1585:
1586: IF (l_pLog) THEN
1587: FND_LOG.STRING(
1588: FND_LOG.LEVEL_PROCEDURE,
1589: l_module||',',
1590: ' g_shipment_net_qty_received is '||g_nqr
1591: );
1584: g_shipment_net_qty_received := g_nqr;
1585:
1586: IF (l_pLog) THEN
1587: FND_LOG.STRING(
1588: FND_LOG.LEVEL_PROCEDURE,
1589: l_module||',',
1590: ' g_shipment_net_qty_received is '||g_nqr
1591: );
1592: END IF;
1593:
1594: g_shipment_net_qty_delivered:= g_nqd;
1595:
1596: IF (l_pLog) THEN
1597: FND_LOG.STRING(
1598: FND_LOG.LEVEL_PROCEDURE,
1599: l_module||',',
1600: ' g_shipment_net_qty_delivered is '||g_nqd
1601: );
1594: g_shipment_net_qty_delivered:= g_nqd;
1595:
1596: IF (l_pLog) THEN
1597: FND_LOG.STRING(
1598: FND_LOG.LEVEL_PROCEDURE,
1599: l_module||',',
1600: ' g_shipment_net_qty_delivered is '||g_nqd
1601: );
1602: END IF;
1602: END IF;
1603:
1604: g_dist_net_qty_delivered := g_dist_nqd_tbl(x_accrual_rec.distribution_id);
1605: IF (l_pLog) THEN
1606: FND_LOG.STRING(
1607: FND_LOG.LEVEL_PROCEDURE,
1608: l_module||',',
1609: ' g_dist_net_qty_delivered is '||g_dist_nqd_tbl(x_accrual_rec.distribution_id)
1610:
1603:
1604: g_dist_net_qty_delivered := g_dist_nqd_tbl(x_accrual_rec.distribution_id);
1605: IF (l_pLog) THEN
1606: FND_LOG.STRING(
1607: FND_LOG.LEVEL_PROCEDURE,
1608: l_module||',',
1609: ' g_dist_net_qty_delivered is '||g_dist_nqd_tbl(x_accrual_rec.distribution_id)
1610:
1611: );
1616: -- i.e., sum(dist_quantity_ordered - dist_qty_delivered)
1617: l_shipment_remaining_qty := p_shipment_qty;
1618: FOR l_po_distributions IN l_po_distributions_csr LOOP
1619: IF (l_pLog) THEN
1620: FND_LOG.STRING(
1621: FND_LOG.LEVEL_PROCEDURE,
1622: l_module||',',
1623: ' l_po_distributions.po_distribution_id is '||l_po_distributions.po_distribution_id ||','||
1624: 'g_dist_nqd_tbl(l_po_distributions.po_distribution_id) qty is '|| g_dist_nqd_tbl(l_po_distributions.po_distribution_id)
1617: l_shipment_remaining_qty := p_shipment_qty;
1618: FOR l_po_distributions IN l_po_distributions_csr LOOP
1619: IF (l_pLog) THEN
1620: FND_LOG.STRING(
1621: FND_LOG.LEVEL_PROCEDURE,
1622: l_module||',',
1623: ' l_po_distributions.po_distribution_id is '||l_po_distributions.po_distribution_id ||','||
1624: 'g_dist_nqd_tbl(l_po_distributions.po_distribution_id) qty is '|| g_dist_nqd_tbl(l_po_distributions.po_distribution_id)
1625: );
1626: END IF;
1627:
1628: IF (l_po_distributions.distribution_quantity > g_dist_nqd_tbl(l_po_distributions.po_distribution_id)) THEN
1629: IF (l_pLog) THEN
1630: FND_LOG.STRING(
1631: FND_LOG.LEVEL_PROCEDURE,
1632: l_module||',',
1633: ' Inside if'
1634: );
1627:
1628: IF (l_po_distributions.distribution_quantity > g_dist_nqd_tbl(l_po_distributions.po_distribution_id)) THEN
1629: IF (l_pLog) THEN
1630: FND_LOG.STRING(
1631: FND_LOG.LEVEL_PROCEDURE,
1632: l_module||',',
1633: ' Inside if'
1634: );
1635: END IF;
1637: l_shipment_remaining_qty := l_shipment_remaining_qty - g_dist_nqd_tbl(l_po_distributions.po_distribution_id);
1638:
1639: ELSE
1640: IF (l_pLog) THEN
1641: FND_LOG.STRING(
1642: FND_LOG.LEVEL_PROCEDURE,
1643: l_module||',',
1644: ' Inside else'
1645: );
1638:
1639: ELSE
1640: IF (l_pLog) THEN
1641: FND_LOG.STRING(
1642: FND_LOG.LEVEL_PROCEDURE,
1643: l_module||',',
1644: ' Inside else'
1645: );
1646: END IF;
1652: -- dist_quantity_ordered - dist_quantity_delivered
1653: l_dist_remaining_qty := p_dist_qty - g_dist_net_qty_delivered;
1654:
1655: IF (l_pLog) THEN
1656: FND_LOG.STRING(
1657: FND_LOG.LEVEL_PROCEDURE,
1658: l_module||',',
1659: ' l_dist_remaining_qty is '|| l_dist_remaining_qty
1660: );
1653: l_dist_remaining_qty := p_dist_qty - g_dist_net_qty_delivered;
1654:
1655: IF (l_pLog) THEN
1656: FND_LOG.STRING(
1657: FND_LOG.LEVEL_PROCEDURE,
1658: l_module||',',
1659: ' l_dist_remaining_qty is '|| l_dist_remaining_qty
1660: );
1661: END IF;
1997: x_accrual_rec.encum_amount := x_accrual_rec.encum_quantity * x_accrual_rec.unit_price;
1998:
1999: -- Procedure level log message for exit point
2000: IF (l_pLog) THEN
2001: FND_LOG.STRING(
2002: FND_LOG.LEVEL_PROCEDURE,
2003: l_module || '.end',
2004: 'Calculate_AccrualAmount >> ' ||
2005: 'quantity_received = ' || x_accrual_rec.quantity_received ||','||
1998:
1999: -- Procedure level log message for exit point
2000: IF (l_pLog) THEN
2001: FND_LOG.STRING(
2002: FND_LOG.LEVEL_PROCEDURE,
2003: l_module || '.end',
2004: 'Calculate_AccrualAmount >> ' ||
2005: 'quantity_received = ' || x_accrual_rec.quantity_received ||','||
2006: 'quantity_billed = ' || x_accrual_rec.quantity_billed ||','||
2023:
2024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2025:
2026: IF (l_exceptionLog) THEN
2027: FND_LOG.STRING(
2028: FND_LOG.LEVEL_EXCEPTION,
2029: l_module || '.' || l_stmt_num,
2030: l_msg_data
2031: );
2024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2025:
2026: IF (l_exceptionLog) THEN
2027: FND_LOG.STRING(
2028: FND_LOG.LEVEL_EXCEPTION,
2029: l_module || '.' || l_stmt_num,
2030: l_msg_data
2031: );
2032: END IF;
2040:
2041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2042:
2043: IF (l_uLog) THEN
2044: FND_LOG.STRING(
2045: FND_LOG.LEVEL_UNEXPECTED,
2046: l_module || '.' || l_stmt_num,
2047: SQLERRM
2048: );
2041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2042:
2043: IF (l_uLog) THEN
2044: FND_LOG.STRING(
2045: FND_LOG.LEVEL_UNEXPECTED,
2046: l_module || '.' || l_stmt_num,
2047: SQLERRM
2048: );
2049: END IF;
2099:
2100: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
2101: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
2102:
2103: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
2104: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
2105: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2106: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2107:
2100: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
2101: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
2102:
2103: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
2104: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
2105: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2106: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2107:
2108: l_stmt_num NUMBER;
2101: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
2102:
2103: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
2104: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
2105: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2106: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2107:
2108: l_stmt_num NUMBER;
2109: l_msg_data VARCHAR2(240);
2102:
2103: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
2104: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
2105: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2106: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2107:
2108: l_stmt_num NUMBER;
2109: l_msg_data VARCHAR2(240);
2110: l_accrual_rec CST_PER_END_ACCRUALS_TEMP%ROWTYPE;
2114: l_stmt_num := 0;
2115:
2116: -- Procedure level log message for Entry point
2117: IF (l_pLog) THEN
2118: FND_LOG.STRING(
2119: FND_LOG.LEVEL_PROCEDURE,
2120: l_module || '.begin',
2121: 'Calculate_AccrualAmount <<' ||
2122: 'p_match_option = ' || p_match_option ||','||
2115:
2116: -- Procedure level log message for Entry point
2117: IF (l_pLog) THEN
2118: FND_LOG.STRING(
2119: FND_LOG.LEVEL_PROCEDURE,
2120: l_module || '.begin',
2121: 'Calculate_AccrualAmount <<' ||
2122: 'p_match_option = ' || p_match_option ||','||
2123: 'p_distribution_id = ' || p_distribution_id ||','||
2188: x_encum_qty := l_accrual_rec.encum_quantity;
2189:
2190: -- Procedure level log message for exit point
2191: IF (l_pLog) THEN
2192: FND_LOG.STRING(
2193: FND_LOG.LEVEL_PROCEDURE,
2194: l_module || '.end',
2195: 'Calculate_AccrualAmount >>' ||
2196: 'x_accrual_qty = ' || x_accrual_qty ||','||
2189:
2190: -- Procedure level log message for exit point
2191: IF (l_pLog) THEN
2192: FND_LOG.STRING(
2193: FND_LOG.LEVEL_PROCEDURE,
2194: l_module || '.end',
2195: 'Calculate_AccrualAmount >>' ||
2196: 'x_accrual_qty = ' || x_accrual_qty ||','||
2197: 'x_encum_qty = ' || x_encum_qty
2210:
2211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2212:
2213: IF (l_exceptionLog) THEN
2214: FND_LOG.STRING(
2215: FND_LOG.LEVEL_EXCEPTION,
2216: l_module || '.' || l_stmt_num,
2217: l_msg_data
2218: );
2211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2212:
2213: IF (l_exceptionLog) THEN
2214: FND_LOG.STRING(
2215: FND_LOG.LEVEL_EXCEPTION,
2216: l_module || '.' || l_stmt_num,
2217: l_msg_data
2218: );
2219: END IF;
2227:
2228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2229:
2230: IF (l_uLog) THEN
2231: FND_LOG.STRING(
2232: FND_LOG.LEVEL_UNEXPECTED,
2233: l_module || '.' || l_stmt_num,
2234: SQLERRM
2235: );
2228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2229:
2230: IF (l_uLog) THEN
2231: FND_LOG.STRING(
2232: FND_LOG.LEVEL_UNEXPECTED,
2233: l_module || '.' || l_stmt_num,
2234: SQLERRM
2235: );
2236: END IF;
2289:
2290: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
2291: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
2292:
2293: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
2294: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2295: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2296:
2297: l_stmt_num NUMBER;
2290: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
2291: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
2292:
2293: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
2294: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2295: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2296:
2297: l_stmt_num NUMBER;
2298: l_parent_type VARCHAR2(25);
2291: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
2292:
2293: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
2294: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2295: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2296:
2297: l_stmt_num NUMBER;
2298: l_parent_type VARCHAR2(25);
2299: qty_received NUMBER;
2356:
2357: l_stmt_num := 0;
2358: -- Procedure level log message for Entry point
2359: IF (l_pLog) THEN
2360: FND_LOG.STRING(
2361: FND_LOG.LEVEL_PROCEDURE,
2362: l_module || '.begin',
2363: 'Get_RcvQuantity << ' ||
2364: 'p_line_location_id = ' || p_line_location_id ||','||
2357: l_stmt_num := 0;
2358: -- Procedure level log message for Entry point
2359: IF (l_pLog) THEN
2360: FND_LOG.STRING(
2361: FND_LOG.LEVEL_PROCEDURE,
2362: l_module || '.begin',
2363: 'Get_RcvQuantity << ' ||
2364: 'p_line_location_id = ' || p_line_location_id ||','||
2365: 'p_rcv_txn_id = ' || p_rcv_txn_id ||','||
2581: END IF;
2582:
2583: -- Procedure level log message for exit point
2584: IF (l_pLog) THEN
2585: FND_LOG.STRING(
2586: FND_LOG.LEVEL_PROCEDURE,
2587: l_module || '.end',
2588: 'Get_RcvQuantity >> ' ||
2589: 'g_nqr = ' || g_nqr ||','||
2582:
2583: -- Procedure level log message for exit point
2584: IF (l_pLog) THEN
2585: FND_LOG.STRING(
2586: FND_LOG.LEVEL_PROCEDURE,
2587: l_module || '.end',
2588: 'Get_RcvQuantity >> ' ||
2589: 'g_nqr = ' || g_nqr ||','||
2590: 'g_nqd = ' || g_nqd
2612:
2613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2614:
2615: IF (l_uLog) THEN
2616: FND_LOG.STRING(
2617: FND_LOG.LEVEL_UNEXPECTED,
2618: l_module || '.' || l_stmt_num,
2619: SQLERRM
2620: );
2613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2614:
2615: IF (l_uLog) THEN
2616: FND_LOG.STRING(
2617: FND_LOG.LEVEL_UNEXPECTED,
2618: l_module || '.' || l_stmt_num,
2619: SQLERRM
2620: );
2621: END IF;
2666:
2667: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
2668: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
2669:
2670: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
2671: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2672: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2673:
2674: l_quantity_invoiced NUMBER;
2667: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
2668: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
2669:
2670: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
2671: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2672: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2673:
2674: l_quantity_invoiced NUMBER;
2675: l_txn_to_po_rate NUMBER;
2668: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
2669:
2670: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
2671: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2672: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2673:
2674: l_quantity_invoiced NUMBER;
2675: l_txn_to_po_rate NUMBER;
2676: l_stmt_num NUMBER;
2679:
2680: l_stmt_num := 0;
2681: -- Procedure level log message for Entry point
2682: IF (l_pLog) THEN
2683: FND_LOG.STRING(
2684: FND_LOG.LEVEL_PROCEDURE,
2685: l_module || '.begin',
2686: 'Get_InvoiceQuantity <<' ||
2687: 'p_match_option = ' || p_match_option ||','||
2680: l_stmt_num := 0;
2681: -- Procedure level log message for Entry point
2682: IF (l_pLog) THEN
2683: FND_LOG.STRING(
2684: FND_LOG.LEVEL_PROCEDURE,
2685: l_module || '.begin',
2686: 'Get_InvoiceQuantity <<' ||
2687: 'p_match_option = ' || p_match_option ||','||
2688: 'p_dist_id = ' || p_dist_id ||','||
2784: x_quantity_invoiced := l_quantity_invoiced;
2785:
2786: -- Procedure level log message for exit point
2787: IF (l_pLog) THEN
2788: FND_LOG.STRING(
2789: FND_LOG.LEVEL_PROCEDURE,
2790: l_module || '.end',
2791: 'Get_InvoiceQuantity >> ' ||
2792: 'x_quantity_invoiced = ' || x_quantity_invoiced
2785:
2786: -- Procedure level log message for exit point
2787: IF (l_pLog) THEN
2788: FND_LOG.STRING(
2789: FND_LOG.LEVEL_PROCEDURE,
2790: l_module || '.end',
2791: 'Get_InvoiceQuantity >> ' ||
2792: 'x_quantity_invoiced = ' || x_quantity_invoiced
2793: );
2813: WHEN OTHERS THEN
2814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2815:
2816: IF (l_uLog) THEN
2817: FND_LOG.STRING(
2818: FND_LOG.LEVEL_UNEXPECTED,
2819: l_module || '.' || l_stmt_num,
2820: SQLERRM
2821: );
2814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2815:
2816: IF (l_uLog) THEN
2817: FND_LOG.STRING(
2818: FND_LOG.LEVEL_UNEXPECTED,
2819: l_module || '.' || l_stmt_num,
2820: SQLERRM
2821: );
2822: END IF;