[Home] [Help]
67: -- accrual_amount = 0
68: -- Else
69: -- accrual_amount = (qty_received - quantity_invoiced) * unit_price
70: --
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;
79: -----------------------------------------------------------------------------
80: -- PROCEDURE : Create_Per_End_Accruals
81: -- DESCRIPTION : Starting point for Period End Accrual program.
82: -- The API creates period end accrual entries in the
83: -- temporary table CST_PER_END_ACCRUALS_TEMP.
84: -----------------------------------------------------------------------------
85: PROCEDURE Create_PerEndAccruals
86: (
87: p_api_version IN NUMBER,
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;
143: l_msg_data VARCHAR2(240);
144:
681:
682:
683: -------------------------------------------------------------------------
684: -- PL/SQL tables of accrual info to be inserted in
685: -- CST_PER_END_ACCRUALS_TEMP table
686: -------------------------------------------------------------------------
687: l_acr_dist_id_tbl ACR_DIST_ID_TBL_TYPE;
688: l_acr_shipment_id_tbl ACR_SHIPMENT_ID_TBL_TYPE;
689: l_acr_category_id_tbl ACR_CATEGORY_ID_TBL_TYPE;
1271: -- Bulk insert the data from PL/SQL tables to temp table
1272: -------------------------------------------------------------------------
1273: l_stmt_num := 140;
1274: FORALL l_ctr IN l_acr_dist_id_tbl.FIRST..l_acr_dist_id_tbl.LAST
1275: INSERT INTO cst_per_end_accruals_temp (
1276: shipment_id,
1277: distribution_id,
1278: category_id,
1279: match_option,
1312: -- If accrual_amount for a shipment is less then min_accrual_amount, then
1313: -- delete the rows related to that shipment from the temporary table.
1314: -------------------------------------------------------------------------
1315: l_stmt_num := 150;
1316: DELETE FROM cst_per_end_accruals_temp
1317: WHERE shipment_id IN (SELECT shipment_id
1318: FROM cst_per_end_accruals_temp
1319: GROUP BY shipment_id
1320: HAVING SUM(accrual_amount) < NVL(p_min_accrual_amount, 0)
1314: -------------------------------------------------------------------------
1315: l_stmt_num := 150;
1316: DELETE FROM cst_per_end_accruals_temp
1317: WHERE shipment_id IN (SELECT shipment_id
1318: FROM cst_per_end_accruals_temp
1319: GROUP BY shipment_id
1320: HAVING SUM(accrual_amount) < NVL(p_min_accrual_amount, 0)
1321: );
1322:
1387:
1388: -----------------------------------------------------------------------------
1389: -- PROCEDURE : Calculate_AccrualAmount
1390: -- DESCRIPTION : The procedure calculates and returns the record for the
1391: -- CST_PER_END_ACCRUALS_TEMP
1392: -----------------------------------------------------------------------------
1393: PROCEDURE Calculate_AccrualAmount
1394: (
1395: p_api_version IN NUMBER,
1404: p_shipment_qty IN NUMBER,
1405: p_end_date IN DATE,
1406: p_transaction_id IN NUMBER,
1407:
1408: x_accrual_rec IN OUT NOCOPY CST_PER_END_ACCRUALS_TEMP%ROWTYPE
1409: )
1410:
1411: IS
1412: l_api_name CONSTANT VARCHAR2(30) :='Calculate_AccrualAmount';
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;
2111:
2112: BEGIN
2113:
2114: l_stmt_num := 0;