[Home] [Help]
1873:
1874: l_stmt_num := 45;
1875: /* Record this sales order issue for COGS deferral by *
1876: * inserting into the Revenue / COGS matching tables */
1877: CST_RevenueCogsMatch_PVT.Insert_OneSoIssue(
1878: p_api_version => 1,
1879: p_user_id => i_user_id,
1880: p_login_id => i_login_id,
1881: p_request_id => i_req_id,
1901: );
1902: IF (l_msg_count = 1) THEN
1903: l_err_msg := substr(l_msg_data,1,240);
1904: ELSE
1905: l_err_msg := 'Failure in procedure CST_RevenueCogsMatch_PVT.Insert_OneSoIssue()';
1906: END IF;
1907: raise process_error;
1908: END IF;
1909: END IF; -- COGS Percentage is NULL
2046: IF (i_src_type_id = 12 AND i_txn_act_id = 27 AND l_ref_om_line_id IS NOT NULL) THEN
2047:
2048: /* This procedure will create the offsetting credits *
2049: * split accordingly between COGS and Deferred COGS. */
2050: CST_RevenueCogsMatch_PVT.Process_RmaReceipt(
2051: x_return_status => l_return_status,
2052: x_msg_count => l_msg_count,
2053: x_msg_data => l_msg_data,
2054: p_rma_om_line_id => i_cogs_om_line_id,
2078: l_err_num := -1;
2079: IF (l_msg_count = 1) THEN
2080: l_err_msg := substr(l_msg_data,1,240);
2081: ELSE
2082: l_err_msg := 'Failure in procedure CST_RevenueCogsMatch_PVT.Process_RmaReceipt()';
2083: END IF;
2084: raise process_error;
2085: END IF;
2086:
4782:
4783: l_stmt_num := 40;
4784: /* This procedure will move an appropriate balance between *
4785: * the Deferred COGS and COGS accounts. */
4786: CST_RevenueCogsMatch_PVT.Process_CogsRecognitionTxn(
4787: x_return_status => l_return_status,
4788: x_msg_count => l_msg_count,
4789: x_msg_data => l_msg_data,
4790: p_cogs_om_line_id => i_cogs_om_line_id,
4812: l_err_num := -1;
4813: IF (l_msg_count = 1) THEN
4814: l_err_msg := substr(l_msg_data,1,240);
4815: ELSE
4816: l_err_msg := 'Failure in procedure CST_RevenueCogsMatch_PVT.Process_CogsRecognitionTxn()';
4817: END IF;
4818: raise process_error;
4819: ELSE
4820: RETURN;
4870:
4871: l_stmt_num := 60;
4872: /* Record this sales order issue for COGS deferral by *
4873: * inserting into the Revenue / COGS matching tables */
4874: CST_RevenueCogsMatch_PVT.Insert_OneSoIssue(
4875: p_api_version => 1,
4876: p_user_id => i_user_id,
4877: p_login_id => i_login_id,
4878: p_request_id => i_req_id,
4898: );
4899: IF (l_msg_count = 1) THEN
4900: l_err_msg := substr(l_msg_data,1,240);
4901: ELSE
4902: l_err_msg := 'Failure in procedure CST_RevenueCogsMatch_PVT.Insert_OneSoIssue()';
4903: END IF;
4904: raise process_error;
4905: END IF;
4906: END IF; /* COGS Percentage is NULL */
4921: IF (i_txn_type_id = 16 AND l_ref_om_line_id IS NOT NULL) THEN
4922:
4923: /* This procedure will create the offsetting credits *
4924: * split accordingly between COGS and Deferred COGS. */
4925: CST_RevenueCogsMatch_PVT.Process_RmaReceipt(
4926: x_return_status => l_return_status,
4927: x_msg_count => l_msg_count,
4928: x_msg_data => l_msg_data,
4929: p_rma_om_line_id => i_cogs_om_line_id,
4958: );
4959: IF (l_msg_count = 1) THEN
4960: l_err_msg := substr(l_msg_data,1,240);
4961: ELSE
4962: l_err_msg := 'Failure in procedure CST_RevenueCogsMatch_PVT.Process_RmaReceipt()';
4963: END IF;
4964: raise process_error;
4965: END IF;
4966:
6020: -- The following call to Record_SoIssueCost will insert the unit
6021: -- costs of the sales order issue into CRCML so that subsequent
6022: -- COGS recognition events can use these same unit costs.
6023:
6024: CST_RevenueCogsMatch_PVT.Record_SoIssueCost(
6025: p_api_version => 1.0,
6026: p_init_msg_list => FND_API.G_TRUE,
6027: p_user_id => i_user_id,
6028: p_login_id => i_login_id,
6051: );
6052: IF (l_msg_count = 1) THEN
6053: l_err_msg := substr(l_msg_data,1,240);
6054: ELSE
6055: l_err_msg := 'Failure in procedure CST_RevenueCogsMatch_PVT.Record_SoIssueCost()';
6056: END IF;
6057: raise process_error;
6058: END IF;
6059: