PACKAGE BODY: APPS.PJM_CONC

Source

1 PACKAGE BODY PJM_CONC AS
2 /* $Header: PJMCONCB.pls 115.6 2002/08/14 01:16:26 alaw ship $ */
3 --  ---------------------------------------------------------------------
4 --  Public Functions / Procedures
5 --  ---------------------------------------------------------------------
6 
7 PROCEDURE PUT_LINE (mesg IN VARCHAR2) IS
8 BEGIN
9    if fnd_global.conc_request_id > 0 then
10       fnd_file.put_line(fnd_file.log, mesg);
11    end if;
12 END PUT_LINE;
13 
14 
15 PROCEDURE NEW_LINE (num IN NUMBER) IS
16 BEGIN
17    if fnd_global.conc_request_id > 0 then
18       fnd_file.new_line(fnd_file.log, 1);
19    end if;
20 END NEW_LINE;
21 
22 
23 END PJM_CONC;