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 |
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:
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 |
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;
95: begin
96: JG_UTILITY_PKG.debug_flag := false;
97: end;
98:
99: end JG_UTILITY_PKG;