PACKAGE BODY: APPS.OE_PC_GLOBALS

Source

1 PACKAGE BODY Oe_PC_Globals AS
2 /* $Header: OEXPPCGB.pls 120.0 2005/06/01 00:05:12 appldev noship $ */
3 
4 -- type declaration
5 -- constants
6 Procedure  Debug_Print (
7    p_buffer long
8    ,p_title in varchar2 default null
9 )
10 is
11   i   number;
12   j   number;
13 begin
14    --DBMS_OUTPUT.NEW_LINE;
15    i := length(p_buffer);
16 
17    if (p_title is not null) then
18      -- dbms_output.put_line(p_title || '(' || to_char(i) || ' characters) ');
19      -- dbms_output.put_line('--------------------------------------------');
20 	null;
21    end if;
22    j := 1;
23    while (i > 0) loop
24       if (i >= 250) then
25        --  dbms_output.put_line(substr(p_buffer,j,250));
26          i := i - 250;
27          j := j+ 250;
28       else
29        --  dbms_output.put_line(substr(p_buffer,j,i));
30          i := 0;
31       end if;
32    end loop;
33    --DBMS_OUTPUT.NEW_LINE;
34 end Debug_Print;
35 -------------------------------------------------------*/
36 END Oe_PC_Globals;