1 package body JG_UTILITY_PKG as
2 /* $Header: jgzzutlb.pls 115.1 2002/11/18 14:19:18 arimai ship $ */
3
4 /*----------------------------------------------------------------------------*
5 | PUBLIC PROCEDURE |
6 | out NOCOPY - Print an output line |
7 | |
8 | DESCRIPTION |
9 | Generate standard output information sending it to outfile so that |
10 | the client tool can out NOCOPY it for the user. |
11 | |
12 | REQUIRES |
13 | line The line of text that will be displayed. |
14 | |
15 | HISTORY |
16 | 30-12-1998 Kai Pigg Created |
17 *----------------------------------------------------------------------------*/
18 procedure out( line in varchar2 ) is
19 begin
20 FND_FILE.PUT_LINE(FND_FILE.OUTPUT, line);
21 end;
22
23 /*----------------------------------------------------------------------------*
24 | PUBLIC PROCEDURE |
25 | log - Print an log line |
26 | |
27 | DESCRIPTION |
28 | Generate standard output information sending it to logfile so that |
29 | the client tool can out NOCOPY it for the user. |
30 | |
31 | REQUIRES |
32 | line The line of text that will be displayed. |
33 | |
34 | HISTORY |
35 | 30-12-1998 Kai Pigg Created |
36 *----------------------------------------------------------------------------*/
37 procedure log( line in varchar2 ) is
38 begin
39 FND_FILE.PUT_LINE(FND_FILE.LOG, line);
40 end;
41
42 /*----------------------------------------------------------------------------*
43 | PUBLIC PROCEDURE |
44 | debug - Print a debug message |
45 | |
46 | DESCRIPTION |
47 | Generate standard debug information sending it to logfile so that |
48 | the client tool can log it for the user. |
49 | |
50 | REQUIRES |
51 | line The line of text that will be displayed. |
52 | |
53 | HISTORY |
54 | 30-12-1998 Kai Pigg Created |
55 *----------------------------------------------------------------------------*/
56 procedure debug( line in varchar2 ) is
57 begin
58 if JG_UTILITY_PKG.debug_flag then
59 FND_FILE.PUT_LINE(FND_FILE.LOG, line);
60 end if;
61 end;
62
63 /*----------------------------------------------------------------------------*
64 | PUBLIC PROCEDURE |
65 | enable_debug - Enable run time debugging |
66 | |
67 | DESCRIPTION |
68 | Generate standard debug information sending it to dbms_output so that |
69 | the client tool can log it for the user. |
70 | |
71 | REQUIRES |
72 | |
73 | HISTORY |
74 | 30-DEC-1998 Kai Pigg Created |
75 *----------------------------------------------------------------------------*/
76 procedure enable_debug is
77 begin
78 JG_UTILITY_PKG.debug_flag := true;
79 end;
80
81 /*----------------------------------------------------------------------------*
82 | PUBLIC PROCEDURE |
83 | disable_debug - Disable run time debugging |
84 | |
85 | DESCRIPTION |
86 | Generate standard debug information sending it to dbms_output so that |
87 | the client tool can log it for the user. |
88 | |
89 | REQUIRES |
90 | |
91 | HISTORY |
92 | 30-12-1998 Kai Pigg Created |
93 *----------------------------------------------------------------------------*/
94 procedure disable_debug is
95 begin
96 JG_UTILITY_PKG.debug_flag := false;
97 end;
98
99 end JG_UTILITY_PKG;