[Home] [Help]
PACKAGE BODY: APPS.FND_REQUEST_COPY
Source
1 package body fnd_request_copy as
2 /* $Header: AFRSCPRB.pls 115.1 99/07/16 23:26:37 porting sh $ */
3
4 procedure request_args(
5 req_id in number,
6 attribute1 in out varchar2, attribute2 in out varchar2,
7 attribute3 in out varchar2, attribute4 in out varchar2,
8 attribute5 in out varchar2, attribute6 in out varchar2,
9 attribute7 in out varchar2, attribute8 in out varchar2,
10 attribute9 in out varchar2, attribute10 in out varchar2,
11 attribute11 in out varchar2, attribute12 in out varchar2,
12 attribute13 in out varchar2, attribute14 in out varchar2,
13 attribute15 in out varchar2, attribute16 in out varchar2,
14 attribute17 in out varchar2, attribute18 in out varchar2,
15 attribute19 in out varchar2, attribute20 in out varchar2,
16 attribute21 in out varchar2, attribute22 in out varchar2,
17 attribute23 in out varchar2, attribute24 in out varchar2,
18 attribute25 in out varchar2, attribute26 in out varchar2,
19 attribute27 in out varchar2, attribute28 in out varchar2,
20 attribute29 in out varchar2, attribute30 in out varchar2,
21 attribute31 in out varchar2, attribute32 in out varchar2,
22 attribute33 in out varchar2, attribute34 in out varchar2,
23 attribute35 in out varchar2, attribute36 in out varchar2,
24 attribute37 in out varchar2, attribute38 in out varchar2,
25 attribute39 in out varchar2, attribute40 in out varchar2,
26 attribute41 in out varchar2, attribute42 in out varchar2,
27 attribute43 in out varchar2, attribute44 in out varchar2,
28 attribute45 in out varchar2, attribute46 in out varchar2,
29 attribute47 in out varchar2, attribute48 in out varchar2,
30 attribute49 in out varchar2, attribute50 in out varchar2,
31 attribute51 in out varchar2, attribute52 in out varchar2,
32 attribute53 in out varchar2, attribute54 in out varchar2,
33 attribute55 in out varchar2, attribute56 in out varchar2,
34 attribute57 in out varchar2, attribute58 in out varchar2,
35 attribute59 in out varchar2, attribute60 in out varchar2,
36 attribute61 in out varchar2, attribute62 in out varchar2,
37 attribute63 in out varchar2, attribute64 in out varchar2,
38 attribute65 in out varchar2, attribute66 in out varchar2,
39 attribute67 in out varchar2, attribute68 in out varchar2,
40 attribute69 in out varchar2, attribute70 in out varchar2,
41 attribute71 in out varchar2, attribute72 in out varchar2,
42 attribute73 in out varchar2, attribute74 in out varchar2,
43 attribute75 in out varchar2, attribute76 in out varchar2,
44 attribute77 in out varchar2, attribute78 in out varchar2,
45 attribute79 in out varchar2, attribute80 in out varchar2,
46 attribute81 in out varchar2, attribute82 in out varchar2,
47 attribute83 in out varchar2, attribute84 in out varchar2,
48 attribute85 in out varchar2, attribute86 in out varchar2,
49 attribute87 in out varchar2, attribute88 in out varchar2,
50 attribute89 in out varchar2, attribute90 in out varchar2,
51 attribute91 in out varchar2, attribute92 in out varchar2,
52 attribute93 in out varchar2, attribute94 in out varchar2,
53 attribute95 in out varchar2, attribute96 in out varchar2,
54 attribute97 in out varchar2, attribute98 in out varchar2,
55 attribute99 in out varchar2, attribute100 in out varchar2) is
56
57 type Arg_tab_type is table of varchar2(240) index by binary_integer;
58 arg_tab arg_tab_type;
59 attribute_order varchar2(100) := null;
60 number_of_arguments number;
61 i number;
62 srs_flag varchar2(1);
63 program_application_id number;
64 concurrent_program_name varchar2(30);
65 begin
66 select
67 p.srs_flag, p.concurrent_program_name, r.program_application_id,
68 r.argument1, r.argument2, r.argument3, r.argument4,
69 r.argument5, r.argument6, r.argument7, r.argument8,
70 r.argument9, r.argument10, r.argument11, r.argument12,
71 r.argument13, r.argument14, r.argument15, r.argument16,
72 r.argument17, r.argument18, r.argument19, r.argument20,
73 r.argument21, r.argument22, r.argument23, r.argument24,
74 r.argument25, r.number_of_arguments
75 into
76 srs_flag, concurrent_program_name, program_application_id,
77 arg_tab(1), arg_tab(2), arg_tab(3), arg_tab(4),
78 arg_tab(5), arg_tab(6), arg_tab(7), arg_tab(8),
79 arg_tab(9), arg_tab(10), arg_tab(11), arg_tab(12),
80 arg_tab(13), arg_tab(14), arg_tab(15), arg_tab(16),
81 arg_tab(17), arg_tab(18), arg_tab(19), arg_tab(20),
82 arg_tab(21), arg_tab(22), arg_tab(23), arg_tab(24),
83 arg_tab(25), number_of_arguments
84 from fnd_concurrent_requests r, fnd_concurrent_programs p
85 where req_id = r.request_id
86 and r.concurrent_program_id = p.concurrent_program_id
87 and r.program_application_id = p.application_id;
88
89 if (number_of_arguments > 25) then
90 select
91 Argument26, Argument27, Argument28, Argument29, Argument30,
92 Argument31, Argument32, Argument33, Argument34, Argument35,
93 Argument36, Argument37, Argument38, Argument39, Argument40,
94 Argument41, Argument42, Argument43, Argument44, Argument45,
95 Argument46, Argument47, Argument48, Argument49, Argument50,
96 Argument51, Argument52, Argument53, Argument54, Argument55,
97 Argument56, Argument57, Argument58, Argument59, Argument60,
98 Argument61, Argument62, Argument63, Argument64, Argument65,
99 Argument66, Argument67, Argument68, Argument69, Argument70,
100 Argument71, Argument72, Argument73, Argument74, Argument75,
101 Argument76, Argument77, Argument78, Argument79, Argument80,
102 Argument81, Argument82, Argument83, Argument84, Argument85,
103 Argument86, Argument87, Argument88, Argument89, Argument90,
104 Argument91, Argument92, Argument93, Argument94, Argument95,
105 Argument96, Argument97, Argument98, Argument99, Argument100
106 into
107 arg_tab(26), arg_tab(27), arg_tab(28), arg_tab(29), arg_tab(30),
108 arg_tab(31), arg_tab(32), arg_tab(33), arg_tab(34), arg_tab(35),
109 arg_tab(36), arg_tab(37), arg_tab(38), arg_tab(39), arg_tab(40),
110 arg_tab(41), arg_tab(42), arg_tab(43), arg_tab(44), arg_tab(45),
111 arg_tab(46), arg_tab(47), arg_tab(48), arg_tab(49), arg_tab(50),
112 arg_tab(51), arg_tab(52), arg_tab(53), arg_tab(54), arg_tab(55),
113 arg_tab(56), arg_tab(57), arg_tab(58), arg_tab(59), arg_tab(60),
114 arg_tab(61), arg_tab(62), arg_tab(63), arg_tab(64), arg_tab(65),
115 arg_tab(66), arg_tab(67), arg_tab(68), arg_tab(69), arg_tab(70),
116 arg_tab(71), arg_tab(72), arg_tab(73), arg_tab(74), arg_tab(75),
117 arg_tab(76), arg_tab(77), arg_tab(78), arg_tab(79), arg_tab(80),
118 arg_tab(81), arg_tab(82), arg_tab(83), arg_tab(84), arg_tab(85),
119 arg_tab(86), arg_tab(87), arg_tab(88), arg_tab(89), arg_tab(90),
120 arg_tab(91), arg_tab(92), arg_tab(93), arg_tab(94), arg_tab(95),
121 arg_tab(96), arg_tab(97), arg_tab(98), arg_tab(99), arg_tab(100)
122 from fnd_conc_request_arguments
123 where request_id = req_id;
124 end if;
125
126 if (number_of_arguments > 0) then
127 attribute_order := Fnd_Conc_Request_Pkg.Encode_Attribute_Order(
128 srs_flag,
129 fnd_global.user_id,
130 fnd_global.resp_id,
131 fnd_global.resp_appl_id,
132 program_application_id,
133 concurrent_program_name);
134 end if;
135
136 arg_tab(0) := chr(0);
137
138 if (attribute_order is null) then
139 attribute_order := chr(0); -- Since instr doesn't like nulls.
140 end if;
141
142 attribute1 := arg_tab(instr(attribute_order, chr(1)));
143 attribute2 := arg_tab(instr(attribute_order, chr(2)));
144 attribute3 := arg_tab(instr(attribute_order, chr(3)));
145 attribute4 := arg_tab(instr(attribute_order, chr(4)));
146 attribute5 := arg_tab(instr(attribute_order, chr(5)));
147 attribute6 := arg_tab(instr(attribute_order, chr(6)));
148 attribute7 := arg_tab(instr(attribute_order, chr(7)));
149 attribute8 := arg_tab(instr(attribute_order, chr(8)));
150 attribute9 := arg_tab(instr(attribute_order, chr(9)));
151 attribute10 := arg_tab(instr(attribute_order, chr(10)));
152 attribute11 := arg_tab(instr(attribute_order, chr(11)));
153 attribute12 := arg_tab(instr(attribute_order, chr(12)));
154 attribute13 := arg_tab(instr(attribute_order, chr(13)));
155 attribute14 := arg_tab(instr(attribute_order, chr(14)));
156 attribute15 := arg_tab(instr(attribute_order, chr(15)));
157 attribute16 := arg_tab(instr(attribute_order, chr(16)));
158 attribute17 := arg_tab(instr(attribute_order, chr(17)));
159 attribute18 := arg_tab(instr(attribute_order, chr(18)));
160 attribute19 := arg_tab(instr(attribute_order, chr(19)));
161 attribute20 := arg_tab(instr(attribute_order, chr(20)));
162 attribute21 := arg_tab(instr(attribute_order, chr(21)));
163 attribute22 := arg_tab(instr(attribute_order, chr(22)));
164 attribute23 := arg_tab(instr(attribute_order, chr(23)));
165 attribute24 := arg_tab(instr(attribute_order, chr(24)));
166 attribute25 := arg_tab(instr(attribute_order, chr(25)));
167 attribute26 := arg_tab(instr(attribute_order, chr(26)));
168 attribute27 := arg_tab(instr(attribute_order, chr(27)));
169 attribute28 := arg_tab(instr(attribute_order, chr(28)));
170 attribute29 := arg_tab(instr(attribute_order, chr(29)));
171 attribute30 := arg_tab(instr(attribute_order, chr(30)));
172 attribute31 := arg_tab(instr(attribute_order, chr(31)));
173 attribute32 := arg_tab(instr(attribute_order, chr(32)));
174 attribute33 := arg_tab(instr(attribute_order, chr(33)));
175 attribute34 := arg_tab(instr(attribute_order, chr(34)));
176 attribute35 := arg_tab(instr(attribute_order, chr(35)));
177 attribute36 := arg_tab(instr(attribute_order, chr(36)));
178 attribute37 := arg_tab(instr(attribute_order, chr(37)));
179 attribute38 := arg_tab(instr(attribute_order, chr(38)));
180 attribute39 := arg_tab(instr(attribute_order, chr(39)));
181 attribute40 := arg_tab(instr(attribute_order, chr(40)));
182 attribute41 := arg_tab(instr(attribute_order, chr(41)));
183 attribute42 := arg_tab(instr(attribute_order, chr(42)));
184 attribute43 := arg_tab(instr(attribute_order, chr(43)));
185 attribute44 := arg_tab(instr(attribute_order, chr(44)));
186 attribute45 := arg_tab(instr(attribute_order, chr(45)));
187 attribute46 := arg_tab(instr(attribute_order, chr(46)));
188 attribute47 := arg_tab(instr(attribute_order, chr(47)));
189 attribute48 := arg_tab(instr(attribute_order, chr(48)));
190 attribute49 := arg_tab(instr(attribute_order, chr(49)));
191 attribute50 := arg_tab(instr(attribute_order, chr(50)));
192 attribute51 := arg_tab(instr(attribute_order, chr(51)));
193 attribute52 := arg_tab(instr(attribute_order, chr(52)));
194 attribute53 := arg_tab(instr(attribute_order, chr(53)));
195 attribute54 := arg_tab(instr(attribute_order, chr(54)));
196 attribute55 := arg_tab(instr(attribute_order, chr(55)));
197 attribute56 := arg_tab(instr(attribute_order, chr(56)));
198 attribute57 := arg_tab(instr(attribute_order, chr(57)));
199 attribute58 := arg_tab(instr(attribute_order, chr(58)));
200 attribute59 := arg_tab(instr(attribute_order, chr(59)));
201 attribute60 := arg_tab(instr(attribute_order, chr(60)));
202 attribute61 := arg_tab(instr(attribute_order, chr(61)));
203 attribute62 := arg_tab(instr(attribute_order, chr(62)));
204 attribute63 := arg_tab(instr(attribute_order, chr(63)));
205 attribute64 := arg_tab(instr(attribute_order, chr(64)));
206 attribute65 := arg_tab(instr(attribute_order, chr(65)));
207 attribute66 := arg_tab(instr(attribute_order, chr(66)));
208 attribute67 := arg_tab(instr(attribute_order, chr(67)));
209 attribute68 := arg_tab(instr(attribute_order, chr(68)));
210 attribute69 := arg_tab(instr(attribute_order, chr(69)));
211 attribute70 := arg_tab(instr(attribute_order, chr(70)));
212 attribute71 := arg_tab(instr(attribute_order, chr(71)));
213 attribute72 := arg_tab(instr(attribute_order, chr(72)));
214 attribute73 := arg_tab(instr(attribute_order, chr(73)));
215 attribute74 := arg_tab(instr(attribute_order, chr(74)));
216 attribute75 := arg_tab(instr(attribute_order, chr(75)));
217 attribute76 := arg_tab(instr(attribute_order, chr(76)));
218 attribute77 := arg_tab(instr(attribute_order, chr(77)));
219 attribute78 := arg_tab(instr(attribute_order, chr(78)));
220 attribute79 := arg_tab(instr(attribute_order, chr(79)));
221 attribute80 := arg_tab(instr(attribute_order, chr(80)));
222 attribute81 := arg_tab(instr(attribute_order, chr(81)));
223 attribute82 := arg_tab(instr(attribute_order, chr(82)));
224 attribute83 := arg_tab(instr(attribute_order, chr(83)));
225 attribute84 := arg_tab(instr(attribute_order, chr(84)));
226 attribute85 := arg_tab(instr(attribute_order, chr(85)));
227 attribute86 := arg_tab(instr(attribute_order, chr(86)));
228 attribute87 := arg_tab(instr(attribute_order, chr(87)));
229 attribute88 := arg_tab(instr(attribute_order, chr(88)));
230 attribute89 := arg_tab(instr(attribute_order, chr(89)));
231 attribute90 := arg_tab(instr(attribute_order, chr(90)));
232 attribute91 := arg_tab(instr(attribute_order, chr(91)));
233 attribute92 := arg_tab(instr(attribute_order, chr(92)));
234 attribute93 := arg_tab(instr(attribute_order, chr(93)));
235 attribute94 := arg_tab(instr(attribute_order, chr(94)));
236 attribute95 := arg_tab(instr(attribute_order, chr(95)));
237 attribute96 := arg_tab(instr(attribute_order, chr(96)));
238 attribute97 := arg_tab(instr(attribute_order, chr(97)));
239 attribute98 := arg_tab(instr(attribute_order, chr(98)));
240 attribute99 := arg_tab(instr(attribute_order, chr(99)));
241 attribute100 := arg_tab(instr(attribute_order, chr(100)));
242 end;
243
244
245 end;