[Home] [Help]
PACKAGE BODY: APPS.FARX_C_MAD
Source
1 PACKAGE BODY FARX_C_MAD as
2 -- $Header: farxcmdb.pls 115.3 2002/11/12 08:23:27 glchen ship $
3
4
5 PROCEDURE MASS_ADDITIONS (
6 errbuf out nocopy varchar2,
7 retcode out nocopy varchar2,
8 argument1 in varchar2, -- book
9 argument2 in varchar2, -- queue_name
10 argument3 in varchar2 default null,
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 -- select max(fcr.request_id)
116 -- 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.phase_code = 'R'
121 -- and fcr.concurrent_program_id = fcp.concurrent_program_id
122 -- and fcp.concurrent_program_name = 'RXFAMAD';
123
124 h_request_id := fnd_global.conc_request_id;
125 fnd_profile.get('USER_ID',h_user_id);
126
127 farx_mad.mass_additions (
128 book => argument1,
129 queue_name => argument2,
130 request_id => h_request_id,
131 user_id => h_user_id,
132 retcode => retcode,
133 errbuf => errbuf);
134
135 retcode := 0;
136
137 exception when others then
138 fnd_message.set_name('OFA', 'FA_SHARED_SERVER_ERROR');
139 h_err_msg := fnd_message.get;
140 fa_rx_conc_mesg_pkg.log(h_err_msg);
141 retcode := 2;
142
143
144 end mass_additions;
145
146
147 END FARX_C_MAD;