[Home] [Help]
PACKAGE BODY: APPS.FA_CUA_MASS_UPDATE2_PKG
Source
1 PACKAGE BODY FA_CUA_MASS_UPDATE2_PKG as
2 /* $Header: FACMUP2MB.pls 120.5 2005/06/24 22:03:30 bridgway ship $ */
3 /*===========================================================================
4 PACKAGE NAME: FA_CUA_MASS_UPDATE2_PKG as
5
6 DESCRIPTION: This package contains APIs For Mass UpdateProcess
7
8 AUTHOR: Gautam Prothia
9
10 DATE: 08-Jan-1999
11 ===========================================================================*/
12
13
14 Procedure UPDATE_LIFE
15 (x_asset_id in number,
16 x_book_type_code in varchar2,
17 x_old_life in number,
18 x_new_life in out nocopy number,
19 x_amortization_flag in varchar2,
20 x_amortization_date in date,
21 x_err_code in out nocopy varchar2 ,
22 x_err_stage in out nocopy varchar2 ,
23 x_err_stack in out nocopy varchar2 ) IS
24
25 l_trans_rec FA_API_TYPES.trans_rec_type;
26 l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
27 l_asset_fin_rec_adj FA_API_TYPES.asset_fin_rec_type;
28 l_asset_fin_rec_new FA_API_TYPES.asset_fin_rec_type;
29 l_asset_fin_mrc_tbl_new FA_API_TYPES.asset_fin_tbl_type;
30 l_inv_trans_rec FA_API_TYPES.inv_trans_rec_type;
31 l_inv_tbl FA_API_TYPES.inv_tbl_type;
32 l_asset_deprn_rec_adj FA_API_TYPES.asset_deprn_rec_type;
33 l_asset_deprn_rec_new FA_API_TYPES.asset_deprn_rec_type;
34 l_asset_deprn_mrc_tbl_new FA_API_TYPES.asset_deprn_tbl_type;
35 l_inv_rec FA_API_TYPES.inv_rec_type;
36 l_group_reclass_options_rec FA_API_TYPES.group_reclass_options_rec_type;
37 l_return_status VARCHAR2(1);
38 l_mesg_count number := 0;
39 l_mesg_len number;
40 l_mesg varchar2(4000);
41
42 v_old_stack varchar2(600);
43
44 BEGIN
45
46
47 x_err_code := '0';
48 v_old_stack := x_err_stack ;
49 x_err_stack := x_err_stack||'Updating Life ';
50
51 l_asset_hdr_rec.asset_id := x_asset_id;
52 l_asset_hdr_rec.book_type_code := x_book_type_code;
53 l_trans_rec.transaction_type_code := 'ADJUSTMENT';
54
55 IF (x_amortization_flag = 'YES') THEN
56 l_trans_rec.amortization_start_date := x_amortization_date;
57 END IF;
58
59 l_asset_fin_rec_adj.life_in_months:=x_new_life;
60
61 FA_ADJUSTMENT_PUB.do_adjustment
62 (p_api_version => 1.0,
63 p_init_msg_list => FND_API.G_FALSE,
64 p_commit => FND_API.G_FALSE,
65 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
66 x_return_status => l_return_status,
67 x_msg_count => l_mesg_count,
68 x_msg_data => l_mesg,
69 p_calling_fn => null,
70 px_trans_rec => l_trans_rec,
71 px_asset_hdr_rec => l_asset_hdr_rec,
72 p_asset_fin_rec_adj => l_asset_fin_rec_adj,
73 x_asset_fin_rec_new => l_asset_fin_rec_new,
74 x_asset_fin_mrc_tbl_new => l_asset_fin_mrc_tbl_new,
75 px_inv_trans_rec => l_inv_trans_rec,
76 px_inv_tbl => l_inv_tbl,
77 p_asset_deprn_rec_adj => l_asset_deprn_rec_adj,
78 x_asset_deprn_rec_new => l_asset_deprn_rec_new,
79 x_asset_deprn_mrc_tbl_new => l_asset_deprn_mrc_tbl_new,
80 p_group_reclass_options_rec => l_group_reclass_options_rec
81 );
82
83 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
84 x_err_code := substr(fnd_msg_pub.get(fnd_msg_pub.G_FIRST, fnd_api.G_TRUE), 1, 512);
85 return;
86 END IF;
87
88 return;
89
90 Exception
91 When others then
92 x_err_code := sqlcode;
93 return;
94 END UPDATE_LIFE;
95
96 END FA_CUA_MASS_UPDATE2_PKG;