1976:
1977: PROCEDURE put_d_message (
1978: p_message IN VARCHAR2,
1979: p_level IN NUMBER,
1980: l_file_ptr UTL_FILE.FILE_TYPE
1981: ) IS
1982:
1983: BEGIN
1984:
1983: BEGIN
1984:
1985: IF p_level <= g_debug_level THEN
1986:
1987: UTL_FILE.PUT_LINE ( l_file_ptr, p_message);
1988: UTL_FILE.FFLUSH ( l_file_ptr );
1989:
1990: END IF;
1991:
1984:
1985: IF p_level <= g_debug_level THEN
1986:
1987: UTL_FILE.PUT_LINE ( l_file_ptr, p_message);
1988: UTL_FILE.FFLUSH ( l_file_ptr );
1989:
1990: END IF;
1991:
1992: END put_d_message;