[Home] [Help]
PACKAGE BODY: APPS.FARX_C_AL
Source
1 PACKAGE BODY FARX_C_AL AS
2 /* $Header: farxcalb.pls 120.2.12010000.2 2008/07/31 07:17:59 sbhaskar ship $ */
3
4 PROCEDURE asset_listing_run (
5 errbuf out nocopy varchar2,
6 retcode out nocopy varchar2,
7 argument1 in varchar2, -- book
8 argument2 in varchar2, -- set of books id
9 argument3 in varchar2, -- period_name
10 argument4 in varchar2, -- chart_of_accounts_id
11 argument5 in varchar2, -- chart_of_accounts_id
12 argument6 in varchar2 default null, -- from balancing
13 argument7 in varchar2 default null, -- to balancing
14 argument8 in varchar2 default null, -- from account
15 argument9 in varchar2 default null, -- to account
16 argument10 in varchar2 default null, -- from cc
17 argument11 in varchar2 default null, -- to cc
18 argument12 in varchar2 default null, -- major category
19 argument13 in varchar2 default null, -- minor category exists check
20 argument14 in varchar2 default null, -- minor category
21 argument15 in varchar2 default null, -- category segment number
22 argument16 in varchar2 default null, -- category segment value
23 argument17 in varchar2 default null, -- property type
24 argument18 in varchar2 default null, -- fully reserved
25 argument19 in varchar2 default null, -- net book value
26 argument20 in varchar2 default null, -- category depreciation flag
27 argument21 in varchar2 default null, -- bought
28 argument22 in varchar2 default null, -- for debug ('Y' or 'N')
29 argument23 in varchar2 default null,
30 argument24 in varchar2 default null,
31 argument25 in varchar2 default null,
32 argument26 in varchar2 default null,
33 argument27 in varchar2 default null,
34 argument28 in varchar2 default null,
35 argument29 in varchar2 default null,
36 argument30 in varchar2 default null,
37 argument31 in varchar2 default null,
38 argument32 in varchar2 default null,
39 argument33 in varchar2 default null,
40 argument34 in varchar2 default null,
41 argument35 in varchar2 default null,
42 argument36 in varchar2 default null,
43 argument37 in varchar2 default null,
44 argument38 in varchar2 default null,
45 argument39 in varchar2 default null,
46 argument40 in varchar2 default null,
47 argument41 in varchar2 default null,
48 argument42 in varchar2 default null,
49 argument43 in varchar2 default null,
50 argument44 in varchar2 default null,
51 argument45 in varchar2 default null,
52 argument46 in varchar2 default null,
53 argument47 in varchar2 default null,
54 argument48 in varchar2 default null,
55 argument49 in varchar2 default null,
56 argument50 in varchar2 default null,
57 argument51 in varchar2 default null,
58 argument52 in varchar2 default null,
59 argument53 in varchar2 default null,
60 argument54 in varchar2 default null,
61 argument55 in varchar2 default null,
62 argument56 in varchar2 default null,
63 argument57 in varchar2 default null,
64 argument58 in varchar2 default null,
65 argument59 in varchar2 default null,
66 argument60 in varchar2 default null,
67 argument61 in varchar2 default null,
68 argument62 in varchar2 default null,
69 argument63 in varchar2 default null,
70 argument64 in varchar2 default null,
71 argument65 in varchar2 default null,
72 argument66 in varchar2 default null,
73 argument67 in varchar2 default null,
74 argument68 in varchar2 default null,
75 argument69 in varchar2 default null,
76 argument70 in varchar2 default null,
77 argument71 in varchar2 default null,
78 argument72 in varchar2 default null,
79 argument73 in varchar2 default null,
80 argument74 in varchar2 default null,
81 argument75 in varchar2 default null,
82 argument76 in varchar2 default null,
83 argument77 in varchar2 default null,
84 argument78 in varchar2 default null,
85 argument79 in varchar2 default null,
86 argument80 in varchar2 default null,
87 argument81 in varchar2 default null,
88 argument82 in varchar2 default null,
89 argument83 in varchar2 default null,
90 argument84 in varchar2 default null,
91 argument85 in varchar2 default null,
92 argument86 in varchar2 default null,
93 argument87 in varchar2 default null,
94 argument88 in varchar2 default null,
95 argument89 in varchar2 default null,
96 argument90 in varchar2 default null,
97 argument91 in varchar2 default null,
98 argument92 in varchar2 default null,
99 argument93 in varchar2 default null,
100 argument94 in varchar2 default null,
101 argument95 in varchar2 default null,
102 argument96 in varchar2 default null,
103 argument97 in varchar2 default null,
104 argument98 in varchar2 default null,
105 argument99 in varchar2 default null,
106 argument100 in varchar2 default null) is
107
108 h_request_id NUMBER;
109 h_login_id NUMBER;
110 h_err_msg VARCHAR2(2000);
111 h_nbv NUMBER;
112 h_debug BOOLEAN;
113 BEGIN
114 h_debug := Upper(argument22) LIKE 'Y%';
115 IF h_debug THEN
116 fa_rx_util_pkg.enable_debug;
117 END IF;
118
119 h_request_id := fnd_global.conc_request_id;
120
121 fnd_profile.get('LOGIN_ID',h_login_id);
122
123 h_nbv := fnd_number.canonical_to_number(argument17);
124
125 farx_al.asset_listing_run (
126 book => argument1,
127 period => argument3,
128 from_bal => argument6,
129 to_bal => argument7,
130 from_acct => argument8,
131 to_acct => argument9,
132 from_cc => argument10,
133 to_cc => argument11,
134 major_category => argument12,
135 minor_category => argument14,
136 cat_seg_num => argument15,
137 cat_seg_val => argument16,
138 prop_type => argument17,
139 nbv => h_nbv,
140 fully_reserved => argument19,
141 cat_deprn_flag => argument20,
142 bought => argument21,
143 sob_id => argument2,
144 request_id => h_request_id,
145 login_id => h_login_id,
146 retcode => retcode,
147 errbuf => errbuf);
148
149 commit;
150
151 EXCEPTION WHEN OTHERS THEN
152 fnd_message.set_name('OFA', 'FA_SHARED_SERVER_ERROR');
153 h_err_msg := fnd_message.get;
154 fa_rx_conc_mesg_pkg.log(h_err_msg);
155 retcode := 2;
156
157 END asset_listing_run;
158 END FARX_C_AL;