[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:
663:
664:
665: -------------------------------------------------------------------------
666: -- PL/SQL tables of accrual info to be inserted in
667: -- CST_PER_END_ACCRUALS_TEMP table
668: -------------------------------------------------------------------------
669: l_acr_dist_id_tbl ACR_DIST_ID_TBL_TYPE;
670: l_acr_shipment_id_tbl ACR_SHIPMENT_ID_TBL_TYPE;
671: l_acr_category_id_tbl ACR_CATEGORY_ID_TBL_TYPE;
1253: -- Bulk insert the data from PL/SQL tables to temp table
1254: -------------------------------------------------------------------------
1255: l_stmt_num := 140;
1256: FORALL l_ctr IN l_acr_dist_id_tbl.FIRST..l_acr_dist_id_tbl.LAST
1257: INSERT INTO cst_per_end_accruals_temp (
1258: shipment_id,
1259: distribution_id,
1260: category_id,
1261: match_option,
1294: -- If accrual_amount for a shipment is less then min_accrual_amount, then
1295: -- delete the rows related to that shipment from the temporary table.
1296: -------------------------------------------------------------------------
1297: l_stmt_num := 150;
1298: DELETE FROM cst_per_end_accruals_temp
1299: WHERE shipment_id IN (SELECT shipment_id
1300: FROM cst_per_end_accruals_temp
1301: GROUP BY shipment_id
1302: HAVING SUM(accrual_amount) < NVL(p_min_accrual_amount, 0)
1296: -------------------------------------------------------------------------
1297: l_stmt_num := 150;
1298: DELETE FROM cst_per_end_accruals_temp
1299: WHERE shipment_id IN (SELECT shipment_id
1300: FROM cst_per_end_accruals_temp
1301: GROUP BY shipment_id
1302: HAVING SUM(accrual_amount) < NVL(p_min_accrual_amount, 0)
1303: );
1304:
1369:
1370: -----------------------------------------------------------------------------
1371: -- PROCEDURE : Calculate_AccrualAmount
1372: -- DESCRIPTION : The procedure calculates and returns the record for the
1373: -- CST_PER_END_ACCRUALS_TEMP
1374: -----------------------------------------------------------------------------
1375: PROCEDURE Calculate_AccrualAmount
1376: (
1377: p_api_version IN NUMBER,
1386: p_shipment_qty IN NUMBER,
1387: p_end_date IN DATE,
1388: p_transaction_id IN NUMBER,
1389:
1390: x_accrual_rec IN OUT NOCOPY CST_PER_END_ACCRUALS_TEMP%ROWTYPE
1391: )
1392:
1393: IS
1394: l_api_name CONSTANT VARCHAR2(30) :='Calculate_AccrualAmount';
2001: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2002:
2003: l_stmt_num NUMBER;
2004: l_msg_data VARCHAR2(240);
2005: l_accrual_rec CST_PER_END_ACCRUALS_TEMP%ROWTYPE;
2006:
2007: BEGIN
2008:
2009: l_stmt_num := 0;