DBA Data[Home] [Help]

PACKAGE BODY: APPS.FARX_C_RC

Source


1 PACKAGE BODY FARX_C_RC as
2 /* $Header: farxcrcb.pls 120.2.12010000.2 2008/07/31 07:20:14 sbhaskar ship $ */
3 
4 
5 PROCEDURE RECLASS (
6   errbuf	 out nocopy varchar2,
7   retcode	 out nocopy varchar2,
8   argument1		in	varchar2,   -- book
9   argument2                 in      varchar2,   -- begin period_name
10   argument3                 in      varchar2,   -- end period name
11   argument4             in      varchar2 default null,
12   argument5           in      varchar2 default null,
13   argument6        in  varchar2  default  null,
14   argument7        in  varchar2  default  null,
15   argument8        in  varchar2  default  null,
16   argument9        in  varchar2  default  null,
17   argument10        in  varchar2  default  null,
18   argument11	   in  varchar2  default  null,
19   argument12        in  varchar2  default  null,
20   argument13        in  varchar2  default  null,
21   argument14        in  varchar2  default  null,
22   argument15        in  varchar2  default  null,
23   argument16        in  varchar2  default  null,
24   argument17        in  varchar2  default  null,
25   argument18        in  varchar2  default  null,
26   argument19        in  varchar2  default  null,
27   argument20        in  varchar2  default  null,
28   argument21	   in  varchar2  default  null,
29   argument22        in  varchar2  default  null,
30   argument23        in  varchar2  default  null,
31   argument24        in  varchar2  default  null,
32   argument25        in  varchar2  default  null,
33   argument26        in  varchar2  default  null,
34   argument27        in  varchar2  default  null,
35   argument28        in  varchar2  default  null,
36   argument29        in  varchar2  default  null,
37   argument30        in  varchar2  default  null,
38   argument31	   in  varchar2  default  null,
39   argument32        in  varchar2  default  null,
40   argument33        in  varchar2  default  null,
41   argument34        in  varchar2  default  null,
42   argument35        in  varchar2  default  null,
43   argument36        in  varchar2  default  null,
44   argument37        in  varchar2  default  null,
45   argument38        in  varchar2  default  null,
46   argument39        in  varchar2  default  null,
47   argument40        in  varchar2  default  null,
48   argument41	   in  varchar2  default  null,
49   argument42        in  varchar2  default  null,
50   argument43        in  varchar2  default  null,
51   argument44        in  varchar2  default  null,
52   argument45        in  varchar2  default  null,
53   argument46        in  varchar2  default  null,
54   argument47        in  varchar2  default  null,
55   argument48        in  varchar2  default  null,
56   argument49        in  varchar2  default  null,
57   argument50        in  varchar2  default  null,
58   argument51	   in  varchar2  default  null,
59   argument52        in  varchar2  default  null,
60   argument53        in  varchar2  default  null,
61   argument54        in  varchar2  default  null,
62   argument55        in  varchar2  default  null,
63   argument56        in  varchar2  default  null,
64   argument57        in  varchar2  default  null,
65   argument58        in  varchar2  default  null,
66   argument59        in  varchar2  default  null,
67   argument60        in  varchar2  default  null,
68   argument61	   in  varchar2  default  null,
69   argument62        in  varchar2  default  null,
70   argument63        in  varchar2  default  null,
71   argument64        in  varchar2  default  null,
72   argument65        in  varchar2  default  null,
73   argument66        in  varchar2  default  null,
74   argument67        in  varchar2  default  null,
75   argument68        in  varchar2  default  null,
76   argument69        in  varchar2  default  null,
77   argument70        in  varchar2  default  null,
78   argument71	   in  varchar2  default  null,
79   argument72        in  varchar2  default  null,
80   argument73        in  varchar2  default  null,
81   argument74        in  varchar2  default  null,
82   argument75        in  varchar2  default  null,
83   argument76        in  varchar2  default  null,
84   argument77        in  varchar2  default  null,
85   argument78        in  varchar2  default  null,
86   argument79        in  varchar2  default  null,
87   argument80        in  varchar2  default  null,
88   argument81	   in  varchar2  default  null,
89   argument82        in  varchar2  default  null,
90   argument83        in  varchar2  default  null,
91   argument84        in  varchar2  default  null,
92   argument85        in  varchar2  default  null,
93   argument86        in  varchar2  default  null,
94   argument87        in  varchar2  default  null,
95   argument88        in  varchar2  default  null,
96   argument89        in  varchar2  default  null,
97   argument90        in  varchar2  default  null,
98   argument91	   in  varchar2  default  null,
99   argument92        in  varchar2  default  null,
100   argument93        in  varchar2  default  null,
101   argument94        in  varchar2  default  null,
102   argument95        in  varchar2  default  null,
103   argument96        in  varchar2  default  null,
104   argument97        in  varchar2  default  null,
105   argument98        in  varchar2  default  null,
106   argument99        in  varchar2  default  null,
107   argument100            in       varchar2 default null) is
108 
109   h_request_id		number;
110   h_user_id		number;
111   h_err_msg		varchar2(2000);
112 
113   begin
114 
115 
116 --  select max(fcr.request_id) into h_request_id
117 --  from fnd_concurrent_requests fcr, fnd_concurrent_programs fcp
118 --  where fcr.argument1 = argument1
119 --  and fcr.argument2 = argument2
120 --  and fcr.argument3 = argument3
121 --  and fcr.phase_code = 'R'
122 --  and fcr.concurrent_program_id = fcp.concurrent_program_id
123 --  and fcp.concurrent_program_name = 'RXFARCL';
124 
125   h_request_id := fnd_global.conc_request_id;
126   fnd_profile.get('USER_ID',h_user_id);
127 
128   farx_rc.reclass (
129         book => argument1,
130         begin_period => argument2,
131         end_period => argument3,
132         request_id => h_request_id,
133 	user_id => h_user_id,
134 	retcode => retcode,
135 	errbuf => errbuf);
136   retcode := 0;
137 
138 exception when others then
139   fnd_message.set_name('OFA', 'FA_SHARED_SERVER_ERROR');
140   h_err_msg := fnd_message.get;
141   fa_rx_conc_mesg_pkg.log(h_err_msg);
142   retcode := 2;
143 
144   end reclass;
145 
146 
147 END FARX_C_RC;