156: IS
157: BEGIN
158:
159: line_number := line_number + 1;
160: ad_ddl.build_package(' ',line_number);
161: -- oe_debug_pub.add(' ');
162:
163: END New_Line;
164:
263: BEGIN
264:
265: line_number := line_number + 1;
266: --dbms_output.put_line(LPAD(p_string,p_level*2+LENGTH(p_string)));
267: ad_ddl.build_package(LPAD(p_string,p_level*2+LENGTH(p_string)),line_number);
268: -- oe_debug_pub.add(LPAD(p_string,p_level*2+LENGTH(p_string)));
269:
270: END text;
271:
303: l_is_pkg_body := 'FALSE';
304: END IF;
305:
306: PUT_LINE(
307: 'Call AD_DDL to create '||p_pkg_type||' of package '||p_pkg_name);
308: IF l_debug = Fnd_Api.G_TRUE THEN
309: Oe_Debug_Pub.ADD('Call AD_DDL to create '||p_pkg_type||' of package '||p_pkg_name);
310:
311:
305:
306: PUT_LINE(
307: 'Call AD_DDL to create '||p_pkg_type||' of package '||p_pkg_name);
308: IF l_debug = Fnd_Api.G_TRUE THEN
309: Oe_Debug_Pub.ADD('Call AD_DDL to create '||p_pkg_type||' of package '||p_pkg_name);
310:
311:
312: END IF;
313: ad_ddl.create_package(applsys_schema => g_schema
309: Oe_Debug_Pub.ADD('Call AD_DDL to create '||p_pkg_type||' of package '||p_pkg_name);
310:
311:
312: END IF;
313: ad_ddl.create_package(applsys_schema => g_schema
314: ,application_short_name => 'QP'
315: ,package_name => p_pkg_name
316: ,is_package_body => l_is_pkg_body
317: ,lb => 1
390: IF l_debug = Fnd_Api.G_TRUE THEN
391: Oe_Debug_Pub.ADD('Now create PACKAGE '||p_pkg_type||' : ' ||l_new_pkg_name);
392:
393: END IF;
394: IF INSTR(ad_ddl.glprogtext(1),p_pkg_name) > 0
395: THEN
396: ad_ddl.glprogtext(1) :=
397: REPLACE(ad_ddl.glprogtext(1)
398: ,p_pkg_name
392:
393: END IF;
394: IF INSTR(ad_ddl.glprogtext(1),p_pkg_name) > 0
395: THEN
396: ad_ddl.glprogtext(1) :=
397: REPLACE(ad_ddl.glprogtext(1)
398: ,p_pkg_name
399: ,l_new_pkg_name);
400: PUT_LINE('First change : '
393: END IF;
394: IF INSTR(ad_ddl.glprogtext(1),p_pkg_name) > 0
395: THEN
396: ad_ddl.glprogtext(1) :=
397: REPLACE(ad_ddl.glprogtext(1)
398: ,p_pkg_name
399: ,l_new_pkg_name);
400: PUT_LINE('First change : '
401: ||ad_ddl.glprogtext(1));
397: REPLACE(ad_ddl.glprogtext(1)
398: ,p_pkg_name
399: ,l_new_pkg_name);
400: PUT_LINE('First change : '
401: ||ad_ddl.glprogtext(1));
402:
403: IF l_debug = Fnd_Api.G_TRUE THEN
404: Oe_Debug_Pub.ADD('First change : ' ||ad_ddl.glprogtext(1));
405:
400: PUT_LINE('First change : '
401: ||ad_ddl.glprogtext(1));
402:
403: IF l_debug = Fnd_Api.G_TRUE THEN
404: Oe_Debug_Pub.ADD('First change : ' ||ad_ddl.glprogtext(1));
405:
406: END IF;
407: ad_ddl.glprogtext(line_number) :=
408: REPLACE(ad_ddl.glprogtext(line_number)
403: IF l_debug = Fnd_Api.G_TRUE THEN
404: Oe_Debug_Pub.ADD('First change : ' ||ad_ddl.glprogtext(1));
405:
406: END IF;
407: ad_ddl.glprogtext(line_number) :=
408: REPLACE(ad_ddl.glprogtext(line_number)
409: ,p_pkg_name
410: ,l_new_pkg_name);
411: PUT_LINE('Second change : '
404: Oe_Debug_Pub.ADD('First change : ' ||ad_ddl.glprogtext(1));
405:
406: END IF;
407: ad_ddl.glprogtext(line_number) :=
408: REPLACE(ad_ddl.glprogtext(line_number)
409: ,p_pkg_name
410: ,l_new_pkg_name);
411: PUT_LINE('Second change : '
412: ||' '||ad_ddl.glprogtext(line_number));
408: REPLACE(ad_ddl.glprogtext(line_number)
409: ,p_pkg_name
410: ,l_new_pkg_name);
411: PUT_LINE('Second change : '
412: ||' '||ad_ddl.glprogtext(line_number));
413:
414: IF l_debug = Fnd_Api.G_TRUE THEN
415: Oe_Debug_Pub.ADD('Second change : ' ||' '||ad_ddl.glprogtext(line_number));
416:
411: PUT_LINE('Second change : '
412: ||' '||ad_ddl.glprogtext(line_number));
413:
414: IF l_debug = Fnd_Api.G_TRUE THEN
415: Oe_Debug_Pub.ADD('Second change : ' ||' '||ad_ddl.glprogtext(line_number));
416:
417: END IF;
418: PUT_LINE('Trying to create PACKAGE '||p_pkg_type
419: ||' :'||l_new_pkg_name);
422: Oe_Debug_Pub.ADD('Trying to create PACKAGE '||p_pkg_type
423: ||' :'||l_new_pkg_name);
424:
425: END IF;
426: ad_ddl.create_package(applsys_schema => g_schema
427: ,application_short_name => 'QP'
428: ,package_name => l_new_pkg_name
429: ,is_package_body => l_is_pkg_body
430: ,lb => 1
538: EXCEPTION
539: WHEN Fnd_Api.G_EXC_ERROR THEN
540: RAISE Fnd_Api.G_EXC_ERROR;
541: WHEN OTHERS THEN
542: RAISE_APPLICATION_ERROR(-20000,SQLERRM||' '||ad_ddl.error_buf);
543: -- PUT_LINE('Iam into exception' ||ad_ddl.error_buf);
544: -- RAISE FND_API.G_EXC_ERROR;
545:
546: END Pkg_End;
539: WHEN Fnd_Api.G_EXC_ERROR THEN
540: RAISE Fnd_Api.G_EXC_ERROR;
541: WHEN OTHERS THEN
542: RAISE_APPLICATION_ERROR(-20000,SQLERRM||' '||ad_ddl.error_buf);
543: -- PUT_LINE('Iam into exception' ||ad_ddl.error_buf);
544: -- RAISE FND_API.G_EXC_ERROR;
545:
546: END Pkg_End;
547: