[Home] [Help]
182: C_CREATED CONSTANT BOOLEAN := TRUE;
183:
184: g_Max_line CONSTANT NUMBER := 225;
185: g_chr_quote CONSTANT VARCHAR2(10):='''';
186: g_chr_newline CONSTANT VARCHAR2(10):= fa_cmp_string_pkg.g_chr_newline;
187:
188: g_log_level_rec fa_api_types.log_level_rec_type;
189:
190: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
222: G_MODULE_NAME||l_procedure_name||'.begin',
223: 'Beginning of procedure');
224: END IF;
225:
226: l_array_body := fa_cmp_string_pkg.g_null_varchar2s;
227: l_array_pkg := fa_cmp_string_pkg.g_null_varchar2s;
228:
229:
230: -- determine number of times to loop
223: 'Beginning of procedure');
224: END IF;
225:
226: l_array_body := fa_cmp_string_pkg.g_null_varchar2s;
227: l_array_pkg := fa_cmp_string_pkg.g_null_varchar2s;
228:
229:
230: -- determine number of times to loop
231: if (p_extract_type = 'DEPRN' or
253: l_bodypkg := C_PRIVATE_API_1;
254: l_bodypkg := REPLACE(l_bodypkg,'$proc_name$',l_proc_name);
255:
256: if (i = 1) then
257: fa_cmp_string_pkg.CreateString
258: (p_package_text => l_BodyPkg
259: ,p_array_string => l_array_pkg);
260:
261: else
258: (p_package_text => l_BodyPkg
259: ,p_array_string => l_array_pkg);
260:
261: else
262: fa_cmp_string_pkg.CreateString
263: (p_package_text => l_BodyPkg
264: ,p_array_string => l_array_body);
265:
266: l_array_pkg :=
263: (p_package_text => l_BodyPkg
264: ,p_array_string => l_array_body);
265:
266: l_array_pkg :=
267: fa_cmp_string_pkg.ConcatTwoStrings
268: (p_array_string_1 => l_array_pkg
269: ,p_array_string_2 => l_array_body);
270: end if;
271:
278: end if;
279:
280:
281: l_array_pkg :=
282: fa_cmp_string_pkg.ConcatTwoStrings
283: (p_array_string_1 => l_array_pkg
284: ,p_array_string_2 => l_array_body);
285:
286: -- add the closing
286: -- add the closing
287: l_bodypkg := C_PRIVATE_API_2;
288: l_bodypkg := REPLACE(l_bodypkg,'$proc_name$',l_proc_name);
289:
290: fa_cmp_string_pkg.CreateString
291: (p_package_text => l_BodyPkg
292: ,p_array_string => l_array_body);
293:
294: l_array_pkg :=
291: (p_package_text => l_BodyPkg
292: ,p_array_string => l_array_body);
293:
294: l_array_pkg :=
295: fa_cmp_string_pkg.ConcatTwoStrings
296: (p_array_string_1 => l_array_pkg
297: ,p_array_string_2 => l_array_body);
298:
299: end loop;
302: if (p_extract_type = 'DEPRN') then
303:
304: l_bodypkg := C_PRIVATE_ROLLBACK;
305:
306: fa_cmp_string_pkg.CreateString
307: (p_package_text => l_BodyPkg
308: ,p_array_string => l_array_body);
309:
310: l_array_pkg :=
307: (p_package_text => l_BodyPkg
308: ,p_array_string => l_array_body);
309:
310: l_array_pkg :=
311: fa_cmp_string_pkg.ConcatTwoStrings
312: (p_array_string_1 => l_array_pkg
313: ,p_array_string_2 => l_array_body);
314:
315: end if;