[Home] [Help]
500: FOR l_resourcetxn_rec IN l_resourcetxn_csr LOOP
501: l_stmt_num := 40;
502: SELECT SUM(NVL(wta.base_transaction_value,0))
503: INTO l_value
504: FROM wip_transaction_accounts wta
505: WHERE transaction_id = l_resourcetxn_rec.transaction_id
506: AND accounting_line_type = 7;
507:
508: /* dle 7/20 ---------------------------------------------------------
6754: -- DESCRIPTION --
6755: -- cost a transaction record from wip_cost_txn_interface --
6756: -- * new transaction type called Direct Shopfloor Delivery --
6757: -- * called by cmlctw --
6758: -- * inserts debits and credits into wip_transaction_accounts --
6759: -- * update eam asset cost and asset period balances --
6760: -- PURPOSE: --
6761: -- procedure that costs a direct item transaction and does --
6762: -- accounting --
7229: -- PROCEDURE --
7230: -- insert_direct_item_distr --
7231: -- --
7232: -- DESCRIPTION --
7233: -- insert accounting into wip_transaction_accounts --
7234: -- * WIP valuation account used is material account --
7235: -- * Offset against Receiving Inspection account --
7236: -- * Accounting done at actuals (PO price + non recoverable tax) --
7237: -- PURPOSE: --
7234: -- * WIP valuation account used is material account --
7235: -- * Offset against Receiving Inspection account --
7236: -- * Accounting done at actuals (PO price + non recoverable tax) --
7237: -- PURPOSE: --
7238: -- insert accounting into wip_transaction_accounts --
7239: -- HISTORY: --
7240: -- 05/01/01 Anitha Dixit Created --
7241: ----------------------------------------------------------------------------
7242:
7435: end if;
7436:
7437: END IF; --p_acct_line_type <> 15
7438:
7439: -- insert into wip_transaction_accounts
7440: l_stmt_num := 100;
7441:
7442: IF ((p_acct_line_type <> 15) OR (l_need_enc = 'Y')) AND (l_source_code <> 'IPV') THEN
7443: Insert into wip_transaction_accounts (
7439: -- insert into wip_transaction_accounts
7440: l_stmt_num := 100;
7441:
7442: IF ((p_acct_line_type <> 15) OR (l_need_enc = 'Y')) AND (l_source_code <> 'IPV') THEN
7443: Insert into wip_transaction_accounts (
7444: wip_sub_ledger_id,
7445: transaction_id,
7446: reference_account,
7447: last_update_date,
7544:
7545: l_stmt_num := 110;
7546:
7547: IF (l_source_code = 'IPV') THEN
7548: Insert into wip_transaction_accounts (
7549: wip_sub_ledger_id,
7550: transaction_id,
7551: reference_account,
7552: last_update_date,
7747: -----------------------------------
7748: l_statement := 50;
7749: select sum(nvl(base_transaction_value,0))
7750: into l_txn_value
7751: from wip_transaction_accounts
7752: where transaction_id = p_txn_id
7753: and accounting_line_type = 7;
7754:
7755: -----------------------------------------------
8752: -- Dr. Member Route Accounts
8753: ---------------------------------------------------------------------
8754:
8755: l_stmt_num := 50;
8756: INSERT INTO wip_transaction_accounts
8757: (TRANSACTION_ID, REFERENCE_ACCOUNT,
8758: LAST_UPDATE_DATE, LAST_UPDATED_BY,
8759: CREATION_DATE, CREATED_BY,
8760: LAST_UPDATE_LOGIN, ORGANIZATION_ID,
8816: -- Cr. Route Accounts for the Balance
8817: ---------------------------------------------------------------------
8818:
8819:
8820: INSERT INTO wip_transaction_accounts
8821: (TRANSACTION_ID, REFERENCE_ACCOUNT,
8822: LAST_UPDATE_DATE, LAST_UPDATED_BY,
8823: CREATION_DATE, CREATED_BY,
8824: LAST_UPDATE_LOGIN, ORGANIZATION_ID,
8871: 4,l_osp_var_total,
8872: 5,l_ovh_var_total) <> 0;
8873:
8874: l_stmt_num := 65;
8875: UPDATE WIP_TRANSACTION_ACCOUNTS
8876: SET WIP_SUB_LEDGER_ID = CST_WIP_SUB_LEDGER_ID_S.NEXTVAL
8877: WHERE TRANSACTION_ID = c_route_rec.transaction_id;
8878:
8879: