[Home] [Help]
7062: raise fnd_api.g_exc_unexpected_error;
7063: end if;
7064:
7065:
7066: -- Update wip period balances , pl_material_in
7067: l_stmt_num := 110;
7068: if (l_debug = 'Y') then
7069: fnd_file.put_line(fnd_file.log,'Update wip_period_balances');
7070: end if;
7065:
7066: -- Update wip period balances , pl_material_in
7067: l_stmt_num := 110;
7068: if (l_debug = 'Y') then
7069: fnd_file.put_line(fnd_file.log,'Update wip_period_balances');
7070: end if;
7071:
7072: update_wip_period_balances (
7073: p_api_version => 1.0,
7068: if (l_debug = 'Y') then
7069: fnd_file.put_line(fnd_file.log,'Update wip_period_balances');
7070: end if;
7071:
7072: update_wip_period_balances (
7073: p_api_version => 1.0,
7074: p_wip_entity_id => direct_item_txn_rec.wip_entity_id,
7075: p_acct_period_id => direct_item_txn_rec.acct_period_id,
7076: p_txn_id => direct_item_txn_rec.transaction_id,
7657: END insert_direct_item_distr;
7658:
7659: ----------------------------------------------------------------------------
7660: -- PROCEDURE --
7661: -- update_wip_period_balances --
7662: -- DESCRIPTION --
7663: -- This function updates the tl_material_in in wip_period_balances --
7664: -- for the Direct Item Shopfloor delivery transaction --
7665: -- PURPOSE: --
7659: ----------------------------------------------------------------------------
7660: -- PROCEDURE --
7661: -- update_wip_period_balances --
7662: -- DESCRIPTION --
7663: -- This function updates the tl_material_in in wip_period_balances --
7664: -- for the Direct Item Shopfloor delivery transaction --
7665: -- PURPOSE: --
7666: -- Oracle Applications - Enterprise asset management --
7667: -- Beta on 11i Patchset G --
7669: -- --
7670: -- HISTORY: --
7671: -- 07/18/01 Anitha Dixit Created --
7672: ----------------------------------------------------------------------------
7673: PROCEDURE update_wip_period_balances (
7674: p_api_version IN NUMBER,
7675: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7676: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7677: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7688: x_return_status OUT NOCOPY VARCHAR2,
7689: x_msg_count OUT NOCOPY NUMBER,
7690: x_msg_data OUT NOCOPY VARCHAR2 ) IS
7691:
7692: l_api_name CONSTANT VARCHAR2(30) := 'update_wip_period_balances';
7693: l_api_version CONSTANT NUMBER := 1.0;
7694:
7695: l_api_message VARCHAR2(240);
7696: l_statement NUMBER := 0;
7703: BEGIN
7704: ---------------------------------------------
7705: -- Standard start of API savepoint
7706: ---------------------------------------------
7707: SAVEPOINT update_wip_period_balances_PUB;
7708:
7709: l_debug := fnd_profile.value('MRP_DEBUG');
7710:
7711: ------------------------------------------------
7788: in the SQL and use bind variables instead. This is to make the SQL
7789: comply with PL/SQL Standards */
7790:
7791: if l_cost_element = 1 then
7792: l_update_stmt := 'UPDATE wip_period_balances ' ||
7793: 'SET pl_material_in = nvl( pl_material_in, 0) + :l_txn_value , ' ||
7794: 'last_update_date = sysdate, ' ||
7795: 'last_updated_by = :p_user_id, ' ||
7796: 'last_update_login = :p_login_id, ' ||
7801: 'WHERE wip_entity_id = :p_wip_entity_id ' ||
7802: ' AND acct_period_id = :p_acct_period_id ';
7803:
7804: elsif l_cost_element = 3 then
7805: l_update_stmt := 'UPDATE wip_period_balances ' ||
7806: 'SET tl_resource_in = nvl( tl_resource_in, 0) + :l_txn_value , ' ||
7807: 'last_update_date = sysdate, ' ||
7808: 'last_updated_by = :p_user_id, ' ||
7809: 'last_update_login = :p_login_id, ' ||
7814: 'WHERE wip_entity_id = :p_wip_entity_id ' ||
7815: ' AND acct_period_id = :p_acct_period_id ';
7816:
7817: else
7818: l_update_stmt := 'UPDATE wip_period_balances ' ||
7819: 'SET tl_outside_processing_in = ' ||
7820: 'nvl( tl_outside_processing_in, 0) + :l_txn_value , ' ||
7821: 'last_update_date = sysdate, ' ||
7822: 'last_updated_by = :p_user_id, ' ||
7830:
7831: end if;
7832:
7833: --------------------------------------------
7834: -- Update wip_period_balances
7835: --------------------------------------
7836: l_statement := 60;
7837:
7838: EXECUTE IMMEDIATE l_update_stmt USING
7853:
7854:
7855: EXCEPTION
7856: WHEN fnd_api.g_exc_error then
7857: ROLLBACK TO update_wip_period_balances_PUB;
7858: x_return_status := fnd_api.g_ret_sts_error;
7859:
7860: fnd_msg_pub.count_and_get
7861: ( p_count => x_msg_count,
7861: ( p_count => x_msg_count,
7862: p_data => x_msg_data );
7863:
7864: WHEN fnd_api.g_exc_unexpected_error then
7865: ROLLBACK TO update_wip_period_balances_PUB;
7866: x_return_status := fnd_api.g_ret_sts_unexp_error;
7867:
7868: fnd_msg_pub.count_and_get
7869: ( p_count => x_msg_count,
7869: ( p_count => x_msg_count,
7870: p_data => x_msg_data );
7871:
7872: WHEN OTHERS THEN
7873: ROLLBACK TO update_wip_period_balances_PUB;
7874: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7875: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
7876: fnd_msg_pub.add_exc_msg
7877: ( 'CST_eamCost_PUB',' update_wip_period_balances : Statement - ' || to_char(l_statement));
7873: ROLLBACK TO update_wip_period_balances_PUB;
7874: x_return_status := fnd_api.g_ret_sts_unexp_error ;
7875: If fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) then
7876: fnd_msg_pub.add_exc_msg
7877: ( 'CST_eamCost_PUB',' update_wip_period_balances : Statement - ' || to_char(l_statement));
7878: end if;
7879:
7880: fnd_msg_pub.count_and_get( p_count => x_msg_count,
7881: p_data => x_msg_data );
7878: end if;
7879:
7880: fnd_msg_pub.count_and_get( p_count => x_msg_count,
7881: p_data => x_msg_data );
7882: END update_wip_period_balances;
7883:
7884: ----------------------------------------------------------------------------
7885: -- PROCEDURE --
7886: -- insert_direct_item_txn --
8699: INTO l_pl_var,
8700: l_res_var,
8701: l_osp_var,
8702: l_ovh_var
8703: from wip_period_balances wpb
8704: where wpb.wip_entity_id = c_route_rec.wip_entity_id
8705: and wpb.acct_period_id <= c_route_rec.acct_period_id;
8706:
8707: l_stmt_num := 32;