[Home] [Help]
260: * x_msg_data OUT VARCHAR2(2000) *
261: * x_distribution_acct_id OUT NUMBER *
262: * Description *
263: * This API creates all accounting transactions for RETURN TO VENDOR transactions *
264: * in gmf_rcv_accounting_txns. *
265: ****************************************************************************************************/
266:
267: PROCEDURE Get_HookAccount
268: (
797: l_ic_pricing_option NUMBER := 1;
798: l_transfer_price NUMBER;
799: l_unit_price NUMBER;
800: l_transaction_uom VARCHAR2 (3);
801: l_currency_code gmf_rcv_accounting_txns.currency_code%TYPE;
802: l_item_exists NUMBER;
803: l_from_organization_id NUMBER;
804: l_from_org_id NUMBER;
805: l_to_org_id NUMBER;
802: l_item_exists NUMBER;
803: l_from_organization_id NUMBER;
804: l_from_org_id NUMBER;
805: l_to_org_id NUMBER;
806: l_incr_currency_code gmf_rcv_accounting_txns.currency_code%TYPE;
807: l_incr_transfer_price NUMBER;
808: BEGIN
809: -- Standard start of API savepoint
810: SAVEPOINT get_unitprice_pvt;
2074: -- Initial version 1.0
2075: --
2076: --
2077: -- Notes : This API creates all accounting transactions for RETURN TO VENDOR transactions
2078: -- in gmf_rcv_accounting_txns.
2079: --
2080: -- End of comments
2081: PROCEDURE get_accounts (
2082: p_api_version IN NUMBER,
3598: l_rcv_txn_type rcv_transactions.transaction_type%TYPE;
3599: l_parent_txn_flag NUMBER := 1;
3600: l_intercompany_price NUMBER;
3601: -- may include nr tax depending on the pricing option
3602: l_intercompany_curr_code gmf_rcv_accounting_txns.currency_code%TYPE;
3603: l_transfer_organization_id NUMBER := NULL;
3604: l_rcv_accttxn gmf_rcv_accounting_pkg.rcv_accttxn_rec_type;
3605: invalid_event EXCEPTION;
3606: BEGIN
5129: FOR i IN p_rcv_accttxn_tbl.FIRST .. p_rcv_accttxn_tbl.LAST
5130: LOOP
5131: l_stmt_num := 30;
5132:
5133: SELECT gmf_rcv_accounting_txns_s.NEXTVAL
5134: INTO l_accounting_txn_id
5135: FROM DUAL;
5136:
5137: IF g_debug = 'Y'
5172: -- to multiple tables is not worthwhile in this case since we do not expect the
5173: -- number of rows to exceed 10.
5174: l_stmt_num := 40;
5175:
5176: INSERT INTO gmf_rcv_accounting_txns
5177: (accounting_txn_id,
5178: rcv_transaction_id,
5179: event_type,
5180: event_source,
5218: last_update_login, request_id,
5219: program_application_id, program_id,
5220: program_udpate_date
5221: )
5222: VALUES (gmf_rcv_accounting_txns_s.NEXTVAL,
5223: DECODE (p_rcv_accttxn_tbl (i).event_source,
5224: 'INVOICEMATCH', p_rcv_accttxn_tbl (i).inv_distribution_id,
5225: p_rcv_accttxn_tbl (i).rcv_transaction_id
5226: ),
7336: -- Initial version 1.0
7337: --
7338: --
7339: -- Notes : This API creates all accounting transactions for RETURN TO VENDOR transactions
7340: -- in gmf_rcv_accounting_txns.
7341: --
7342: -- End of comments
7343: PROCEDURE create_rtv_txns (
7344: p_api_version IN NUMBER := 1.0,
8431: -- Version :
8432: -- Initial version 1.0
8433: --
8434: -- Notes : This API creates all accounting events for retroactive price adjustments
8435: -- in GMF_RCV_ACCOUNTING_TXNS. For online accruals, it also generates
8436: -- the accounting entries for the event.
8437: --
8438: -- End of comments
8439: -------------------------------------------------------------------------------
8662: l_stmt_num := 50;
8663:
8664: SELECT COUNT (*)
8665: INTO l_rae_count
8666: FROM gmf_rcv_accounting_txns
8667: WHERE rcv_transaction_id = c_par_txn.transaction_id;
8668:
8669: IF l_rae_count > 0
8670: THEN
8675: SELECT grat.organization_id, grat.trx_flow_header_id,
8676: NVL (rt.dropship_type_code, 3)
8677: INTO l_organization_id, l_trx_flow_header_id,
8678: l_drop_ship_flag
8679: FROM gmf_rcv_accounting_txns grat, rcv_transactions rt
8680: WHERE grat.rcv_transaction_id = c_par_txn.transaction_id
8681: AND rt.transaction_id = grat.rcv_transaction_id
8682: AND grat.procurement_org_flag = 'Y'
8683: AND ROWNUM = 1;