[Home] [Help]
PACKAGE BODY: APPS.FND_SET_COPY
Source
1 package body fnd_set_copy as
2 /* $Header: AFRSCPSB.pls 115.1 99/07/16 23:26:44 porting sh $ */
3
4 function set_program_args(
5 parent in number,
6 req_set_prog_id in number,
7 attribute1 in out varchar2, attribute2 in out varchar2,
8 attribute3 in out varchar2, attribute4 in out varchar2,
9 attribute5 in out varchar2, attribute6 in out varchar2,
10 attribute7 in out varchar2, attribute8 in out varchar2,
11 attribute9 in out varchar2, attribute10 in out varchar2,
12 attribute11 in out varchar2, attribute12 in out varchar2,
13 attribute13 in out varchar2, attribute14 in out varchar2,
14 attribute15 in out varchar2, attribute16 in out varchar2,
15 attribute17 in out varchar2, attribute18 in out varchar2,
16 attribute19 in out varchar2, attribute20 in out varchar2,
17 attribute21 in out varchar2, attribute22 in out varchar2,
18 attribute23 in out varchar2, attribute24 in out varchar2,
19 attribute25 in out varchar2, attribute26 in out varchar2,
20 attribute27 in out varchar2, attribute28 in out varchar2,
21 attribute29 in out varchar2, attribute30 in out varchar2,
22 attribute31 in out varchar2, attribute32 in out varchar2,
23 attribute33 in out varchar2, attribute34 in out varchar2,
24 attribute35 in out varchar2, attribute36 in out varchar2,
25 attribute37 in out varchar2, attribute38 in out varchar2,
26 attribute39 in out varchar2, attribute40 in out varchar2,
27 attribute41 in out varchar2, attribute42 in out varchar2,
28 attribute43 in out varchar2, attribute44 in out varchar2,
29 attribute45 in out varchar2, attribute46 in out varchar2,
30 attribute47 in out varchar2, attribute48 in out varchar2,
31 attribute49 in out varchar2, attribute50 in out varchar2,
32 attribute51 in out varchar2, attribute52 in out varchar2,
33 attribute53 in out varchar2, attribute54 in out varchar2,
34 attribute55 in out varchar2, attribute56 in out varchar2,
35 attribute57 in out varchar2, attribute58 in out varchar2,
36 attribute59 in out varchar2, attribute60 in out varchar2,
37 attribute61 in out varchar2, attribute62 in out varchar2,
38 attribute63 in out varchar2, attribute64 in out varchar2,
39 attribute65 in out varchar2, attribute66 in out varchar2,
40 attribute67 in out varchar2, attribute68 in out varchar2,
41 attribute69 in out varchar2, attribute70 in out varchar2,
42 attribute71 in out varchar2, attribute72 in out varchar2,
43 attribute73 in out varchar2, attribute74 in out varchar2,
44 attribute75 in out varchar2, attribute76 in out varchar2,
45 attribute77 in out varchar2, attribute78 in out varchar2,
46 attribute79 in out varchar2, attribute80 in out varchar2,
47 attribute81 in out varchar2, attribute82 in out varchar2,
48 attribute83 in out varchar2, attribute84 in out varchar2,
49 attribute85 in out varchar2, attribute86 in out varchar2,
50 attribute87 in out varchar2, attribute88 in out varchar2,
51 attribute89 in out varchar2, attribute90 in out varchar2,
52 attribute91 in out varchar2, attribute92 in out varchar2,
53 attribute93 in out varchar2, attribute94 in out varchar2,
54 attribute95 in out varchar2, attribute96 in out varchar2,
55 attribute97 in out varchar2, attribute98 in out varchar2,
56 attribute99 in out varchar2, attribute100 in out varchar2) return boolean is
57
58 type Arg_tab_type is table of varchar2(240) index by binary_integer;
59 arg_tab arg_tab_type;
60 attribute_order varchar2(100) := null;
61
62 srs_flag varchar2(1);
63 program_application_id number;
64 concurrent_program_name varchar2(30);
65
66 begin
67
68 select
69 p.srs_flag, p.concurrent_program_name, r.application_id,
70 argument1, argument2, argument3, argument4,
71 argument5, argument6, argument7, argument8,
72 argument9, argument10, argument11, argument12,
73 argument13, argument14, argument15, argument16,
74 argument17, argument18, argument19, argument20,
75 argument21, argument22, argument23, argument24,
76 argument25, argument26, argument27, argument28,
77 argument29, argument30, argument31, argument32,
78 argument33, argument34, argument35, argument36,
79 argument37, argument38, argument39, argument40,
80 argument41, argument42, argument43, argument44,
81 argument45, argument46, argument47, argument48,
82 argument49, argument50, argument51, argument52,
83 argument53, argument54, argument55, argument56,
84 argument57, argument58, argument59, argument60,
85 argument61, argument62, argument63, argument64,
86 argument65, argument66, argument67, argument68,
87 argument69, argument70, argument71, argument72,
88 argument73, argument74, argument75, argument76,
89 argument77, argument78, argument79, argument80,
90 argument81, argument82, argument83, argument84,
91 argument85, argument86, argument87, argument88,
92 argument89, argument90, argument91, argument92,
93 argument93, argument94, argument95, argument96,
94 argument97, argument98, argument99, argument100
95 into
96 srs_flag, concurrent_program_name, program_application_id,
97 arg_tab(1), arg_tab(2), arg_tab(3), arg_tab(4),
98 arg_tab(5), arg_tab(6), arg_tab(7), arg_tab(8),
99 arg_tab(9), arg_tab(10), arg_tab(11), arg_tab(12),
100 arg_tab(13), arg_tab(14), arg_tab(15), arg_tab(16),
101 arg_tab(17), arg_tab(18), arg_tab(19), arg_tab(20),
102 arg_tab(21), arg_tab(22), arg_tab(23), arg_tab(24),
103 arg_tab(25), arg_tab(26), arg_tab(27), arg_tab(28),
104 arg_tab(29), arg_tab(30), arg_tab(31), arg_tab(32),
105 arg_tab(33), arg_tab(34), arg_tab(35), arg_tab(36),
106 arg_tab(37), arg_tab(38), arg_tab(39), arg_tab(40),
107 arg_tab(41), arg_tab(42), arg_tab(43), arg_tab(44),
108 arg_tab(45), arg_tab(46), arg_tab(47), arg_tab(48),
109 arg_tab(49), arg_tab(50), arg_tab(51), arg_tab(52),
110 arg_tab(53), arg_tab(54), arg_tab(55), arg_tab(56),
111 arg_tab(57), arg_tab(58), arg_tab(59), arg_tab(60),
112 arg_tab(61), arg_tab(62), arg_tab(63), arg_tab(64),
113 arg_tab(65), arg_tab(66), arg_tab(67), arg_tab(68),
114 arg_tab(69), arg_tab(70), arg_tab(71), arg_tab(72),
115 arg_tab(73), arg_tab(74), arg_tab(75), arg_tab(76),
116 arg_tab(77), arg_tab(78), arg_tab(79), arg_tab(80),
117 arg_tab(81), arg_tab(82), arg_tab(83), arg_tab(84),
118 arg_tab(85), arg_tab(86), arg_tab(87), arg_tab(88),
119 arg_tab(89), arg_tab(90), arg_tab(91), arg_tab(92),
120 arg_tab(93), arg_tab(94), arg_tab(95), arg_tab(96),
121 arg_tab(97), arg_tab(98), arg_tab(99), arg_tab(100)
122 from fnd_run_requests r, fnd_concurrent_programs p
123 where r.parent_request_id = parent
124 and r.request_set_program_id = req_set_prog_id
125 and r.concurrent_program_id = p.concurrent_program_id
126 and r.application_id = p.application_id;
127
128 attribute_order := Fnd_Conc_Request_Pkg.Encode_Attribute_Order(
129 srs_flag,
130 fnd_global.user_id,
131 fnd_global.resp_id,
132 fnd_global.resp_appl_id,
133 program_application_id,
134 concurrent_program_name);
135
136
137 arg_tab(0) := chr(0);
138
139 if (attribute_order is null) then
140 attribute_order := chr(0); -- Since instr doesn't like nulls.
141 end if;
142
143 attribute1 := arg_tab(instr(attribute_order, chr(1)));
144 attribute2 := arg_tab(instr(attribute_order, chr(2)));
145 attribute3 := arg_tab(instr(attribute_order, chr(3)));
146 attribute4 := arg_tab(instr(attribute_order, chr(4)));
147 attribute5 := arg_tab(instr(attribute_order, chr(5)));
148 attribute6 := arg_tab(instr(attribute_order, chr(6)));
149 attribute7 := arg_tab(instr(attribute_order, chr(7)));
150 attribute8 := arg_tab(instr(attribute_order, chr(8)));
151 attribute9 := arg_tab(instr(attribute_order, chr(9)));
152 attribute10 := arg_tab(instr(attribute_order, chr(10)));
153 attribute11 := arg_tab(instr(attribute_order, chr(11)));
154 attribute12 := arg_tab(instr(attribute_order, chr(12)));
155 attribute13 := arg_tab(instr(attribute_order, chr(13)));
156 attribute14 := arg_tab(instr(attribute_order, chr(14)));
157 attribute15 := arg_tab(instr(attribute_order, chr(15)));
158 attribute16 := arg_tab(instr(attribute_order, chr(16)));
159 attribute17 := arg_tab(instr(attribute_order, chr(17)));
160 attribute18 := arg_tab(instr(attribute_order, chr(18)));
161 attribute19 := arg_tab(instr(attribute_order, chr(19)));
162 attribute20 := arg_tab(instr(attribute_order, chr(20)));
163 attribute21 := arg_tab(instr(attribute_order, chr(21)));
164 attribute22 := arg_tab(instr(attribute_order, chr(22)));
165 attribute23 := arg_tab(instr(attribute_order, chr(23)));
166 attribute24 := arg_tab(instr(attribute_order, chr(24)));
167 attribute25 := arg_tab(instr(attribute_order, chr(25)));
168 attribute26 := arg_tab(instr(attribute_order, chr(26)));
169 attribute27 := arg_tab(instr(attribute_order, chr(27)));
170 attribute28 := arg_tab(instr(attribute_order, chr(28)));
171 attribute29 := arg_tab(instr(attribute_order, chr(29)));
172 attribute30 := arg_tab(instr(attribute_order, chr(30)));
173 attribute31 := arg_tab(instr(attribute_order, chr(31)));
174 attribute32 := arg_tab(instr(attribute_order, chr(32)));
175 attribute33 := arg_tab(instr(attribute_order, chr(33)));
176 attribute34 := arg_tab(instr(attribute_order, chr(34)));
177 attribute35 := arg_tab(instr(attribute_order, chr(35)));
178 attribute36 := arg_tab(instr(attribute_order, chr(36)));
179 attribute37 := arg_tab(instr(attribute_order, chr(37)));
180 attribute38 := arg_tab(instr(attribute_order, chr(38)));
181 attribute39 := arg_tab(instr(attribute_order, chr(39)));
182 attribute40 := arg_tab(instr(attribute_order, chr(40)));
183 attribute41 := arg_tab(instr(attribute_order, chr(41)));
184 attribute42 := arg_tab(instr(attribute_order, chr(42)));
185 attribute43 := arg_tab(instr(attribute_order, chr(43)));
186 attribute44 := arg_tab(instr(attribute_order, chr(44)));
187 attribute45 := arg_tab(instr(attribute_order, chr(45)));
188 attribute46 := arg_tab(instr(attribute_order, chr(46)));
189 attribute47 := arg_tab(instr(attribute_order, chr(47)));
190 attribute48 := arg_tab(instr(attribute_order, chr(48)));
191 attribute49 := arg_tab(instr(attribute_order, chr(49)));
192 attribute50 := arg_tab(instr(attribute_order, chr(50)));
193 attribute51 := arg_tab(instr(attribute_order, chr(51)));
194 attribute52 := arg_tab(instr(attribute_order, chr(52)));
195 attribute53 := arg_tab(instr(attribute_order, chr(53)));
196 attribute54 := arg_tab(instr(attribute_order, chr(54)));
197 attribute55 := arg_tab(instr(attribute_order, chr(55)));
198 attribute56 := arg_tab(instr(attribute_order, chr(56)));
199 attribute57 := arg_tab(instr(attribute_order, chr(57)));
200 attribute58 := arg_tab(instr(attribute_order, chr(58)));
201 attribute59 := arg_tab(instr(attribute_order, chr(59)));
202 attribute60 := arg_tab(instr(attribute_order, chr(60)));
203 attribute61 := arg_tab(instr(attribute_order, chr(61)));
204 attribute62 := arg_tab(instr(attribute_order, chr(62)));
205 attribute63 := arg_tab(instr(attribute_order, chr(63)));
206 attribute64 := arg_tab(instr(attribute_order, chr(64)));
207 attribute65 := arg_tab(instr(attribute_order, chr(65)));
208 attribute66 := arg_tab(instr(attribute_order, chr(66)));
209 attribute67 := arg_tab(instr(attribute_order, chr(67)));
210 attribute68 := arg_tab(instr(attribute_order, chr(68)));
211 attribute69 := arg_tab(instr(attribute_order, chr(69)));
212 attribute70 := arg_tab(instr(attribute_order, chr(70)));
213 attribute71 := arg_tab(instr(attribute_order, chr(71)));
214 attribute72 := arg_tab(instr(attribute_order, chr(72)));
215 attribute73 := arg_tab(instr(attribute_order, chr(73)));
216 attribute74 := arg_tab(instr(attribute_order, chr(74)));
217 attribute75 := arg_tab(instr(attribute_order, chr(75)));
218 attribute76 := arg_tab(instr(attribute_order, chr(76)));
219 attribute77 := arg_tab(instr(attribute_order, chr(77)));
220 attribute78 := arg_tab(instr(attribute_order, chr(78)));
221 attribute79 := arg_tab(instr(attribute_order, chr(79)));
222 attribute80 := arg_tab(instr(attribute_order, chr(80)));
223 attribute81 := arg_tab(instr(attribute_order, chr(81)));
224 attribute82 := arg_tab(instr(attribute_order, chr(82)));
225 attribute83 := arg_tab(instr(attribute_order, chr(83)));
226 attribute84 := arg_tab(instr(attribute_order, chr(84)));
227 attribute85 := arg_tab(instr(attribute_order, chr(85)));
228 attribute86 := arg_tab(instr(attribute_order, chr(86)));
229 attribute87 := arg_tab(instr(attribute_order, chr(87)));
230 attribute88 := arg_tab(instr(attribute_order, chr(88)));
231 attribute89 := arg_tab(instr(attribute_order, chr(89)));
232 attribute90 := arg_tab(instr(attribute_order, chr(90)));
233 attribute91 := arg_tab(instr(attribute_order, chr(91)));
234 attribute92 := arg_tab(instr(attribute_order, chr(92)));
235 attribute93 := arg_tab(instr(attribute_order, chr(93)));
236 attribute94 := arg_tab(instr(attribute_order, chr(94)));
237 attribute95 := arg_tab(instr(attribute_order, chr(95)));
238 attribute96 := arg_tab(instr(attribute_order, chr(96)));
239 attribute97 := arg_tab(instr(attribute_order, chr(97)));
240 attribute98 := arg_tab(instr(attribute_order, chr(98)));
241 attribute99 := arg_tab(instr(attribute_order, chr(99)));
242 attribute100 := arg_tab(instr(attribute_order, chr(100)));
243
244 return true;
245
246 exception
247 when no_data_found then
248 return false;
249 end;
250
251 end;