47: IS
48: BEGIN
49:
50: line_number := line_number + 1;
51: ad_ddl.build_package(' ',line_number);
52: -- oe_debug_pub.add(' ');
53:
54: END New_Line;
55:
60: IS
61: BEGIN
62:
63: line_number := line_number + 1;
64: ad_ddl.build_package(LPAD(p_string,p_level*2+LENGTH(p_string)),line_number);
65: -- oe_debug_pub.add(LPAD(p_string,p_level*2+LENGTH(p_string)));
66: --dbms_output.put_line(LPAD(p_string,p_level*2+LENGTH(p_string)));
67:
68: END text;
212: ELSE
213: l_is_pkg_body := 'FALSE';
214: END IF;
215:
216: PUT_LINE( 'Call AD_DDL to create '||p_pkg_type||' of package '||p_pkg_name);
217: oe_debug_pub.add('Call AD_DDL to create '||p_pkg_type||' of package '||p_pkg_name);
218:
219:
220: ad_ddl.create_package(applsys_schema => g_schema
213: l_is_pkg_body := 'FALSE';
214: END IF;
215:
216: PUT_LINE( 'Call AD_DDL to create '||p_pkg_type||' of package '||p_pkg_name);
217: oe_debug_pub.add('Call AD_DDL to create '||p_pkg_type||' of package '||p_pkg_name);
218:
219:
220: ad_ddl.create_package(applsys_schema => g_schema
221: ,application_short_name => 'QP'
216: PUT_LINE( 'Call AD_DDL to create '||p_pkg_type||' of package '||p_pkg_name);
217: oe_debug_pub.add('Call AD_DDL to create '||p_pkg_type||' of package '||p_pkg_name);
218:
219:
220: ad_ddl.create_package(applsys_schema => g_schema
221: ,application_short_name => 'QP'
222: ,package_name => p_pkg_name
223: ,is_package_body => l_is_pkg_body
224: ,lb => 1
256: PUT_LINE('Now create PACKAGE '||p_pkg_type||' : ' ||l_new_pkg_name);
257:
258: oe_debug_pub.add('Now create PACKAGE '||p_pkg_type||' : ' ||l_new_pkg_name);
259:
260: IF instr(ad_ddl.glprogtext(1),p_pkg_name) > 0 THEN
261:
262: ad_ddl.glprogtext(1) := REPLACE(ad_ddl.glprogtext(1)
263: ,p_pkg_name
264: ,l_new_pkg_name);
258: oe_debug_pub.add('Now create PACKAGE '||p_pkg_type||' : ' ||l_new_pkg_name);
259:
260: IF instr(ad_ddl.glprogtext(1),p_pkg_name) > 0 THEN
261:
262: ad_ddl.glprogtext(1) := REPLACE(ad_ddl.glprogtext(1)
263: ,p_pkg_name
264: ,l_new_pkg_name);
265:
266: PUT_LINE('First change : ' ||ad_ddl.glprogtext(1));
262: ad_ddl.glprogtext(1) := REPLACE(ad_ddl.glprogtext(1)
263: ,p_pkg_name
264: ,l_new_pkg_name);
265:
266: PUT_LINE('First change : ' ||ad_ddl.glprogtext(1));
267:
268: oe_debug_pub.add('First change : ' ||ad_ddl.glprogtext(1));
269:
270: ad_ddl.glprogtext(line_number) := REPLACE(ad_ddl.glprogtext(line_number)
264: ,l_new_pkg_name);
265:
266: PUT_LINE('First change : ' ||ad_ddl.glprogtext(1));
267:
268: oe_debug_pub.add('First change : ' ||ad_ddl.glprogtext(1));
269:
270: ad_ddl.glprogtext(line_number) := REPLACE(ad_ddl.glprogtext(line_number)
271: ,p_pkg_name
272: ,l_new_pkg_name);
266: PUT_LINE('First change : ' ||ad_ddl.glprogtext(1));
267:
268: oe_debug_pub.add('First change : ' ||ad_ddl.glprogtext(1));
269:
270: ad_ddl.glprogtext(line_number) := REPLACE(ad_ddl.glprogtext(line_number)
271: ,p_pkg_name
272: ,l_new_pkg_name);
273:
274: PUT_LINE('Second change : ' ||' '||ad_ddl.glprogtext(line_number));
270: ad_ddl.glprogtext(line_number) := REPLACE(ad_ddl.glprogtext(line_number)
271: ,p_pkg_name
272: ,l_new_pkg_name);
273:
274: PUT_LINE('Second change : ' ||' '||ad_ddl.glprogtext(line_number));
275:
276: oe_debug_pub.add('Second change : ' ||' '||ad_ddl.glprogtext(line_number));
277:
278: PUT_LINE('Trying to create PACKAGE '||p_pkg_type ||' :'||l_new_pkg_name);
272: ,l_new_pkg_name);
273:
274: PUT_LINE('Second change : ' ||' '||ad_ddl.glprogtext(line_number));
275:
276: oe_debug_pub.add('Second change : ' ||' '||ad_ddl.glprogtext(line_number));
277:
278: PUT_LINE('Trying to create PACKAGE '||p_pkg_type ||' :'||l_new_pkg_name);
279:
280: oe_debug_pub.add('Trying to create PACKAGE '||p_pkg_type ||' :'||l_new_pkg_name);
278: PUT_LINE('Trying to create PACKAGE '||p_pkg_type ||' :'||l_new_pkg_name);
279:
280: oe_debug_pub.add('Trying to create PACKAGE '||p_pkg_type ||' :'||l_new_pkg_name);
281:
282: ad_ddl.create_package(applsys_schema => g_schema
283: ,application_short_name => 'QP'
284: ,package_name => l_new_pkg_name
285: ,is_package_body => l_is_pkg_body
286: ,lb => 1
323: exception
324: when FND_API.G_EXC_ERROR then
325: raise FND_API.G_EXC_ERROR;
326: when others THEN
327: raise_application_error(-20000,SQLERRM||' '||ad_ddl.error_buf);
328: -- PUT_LINE('Iam into exception' ||ad_ddl.error_buf);
329: -- RAISE FND_API.G_EXC_ERROR;
330:
331: END Pkg_End;
324: when FND_API.G_EXC_ERROR then
325: raise FND_API.G_EXC_ERROR;
326: when others THEN
327: raise_application_error(-20000,SQLERRM||' '||ad_ddl.error_buf);
328: -- PUT_LINE('Iam into exception' ||ad_ddl.error_buf);
329: -- RAISE FND_API.G_EXC_ERROR;
330:
331: END Pkg_End;
332: