1 PACKAGE BODY arp_file AS
2 /* $Header: ARPFILEB.pls 115.5 2003/10/10 14:25:12 mraymond ship $*/
3
4
5 /*----------------------------------------------------------------------------*
6 | PROCEDURE |
7 | write_log |
8 | |
9 | DESCRIPTION |
10 | Will write to a log file based on the debug level |
11 | |
12 | SCOPE - PRIVATE |
13 | |
14 | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
15 | |
16 | ARGUMENTS : IN: |
17 | p_text - Text to be printed |
18 | p_level - Debug Level for this Text |
19 | : OUT: |
20 | None |
21 | |
22 | RETURNS : NONE |
23 | |
24 | NOTES |
25 | |
26 | MODIFICATION HISTORY |
27 | |
28 | 01-SEP-2000 Ramakant Alat Created |
29 *----------------------------------------------------------------------------*/
30 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
31
32 PROCEDURE write_log ( p_text IN VARCHAR2, p_level IN NUMBER DEFAULT MAX_DEBUG_LEVEL) AS
33 BEGIN
34 IF arp_standard.sysparm.AI_LOG_FILE_MESSAGE_LEVEL > p_level THEN
35 IF arp_standard.profile.request_id IS NOT NULL THEN
36 fnd_file.put_line( FND_FILE.LOG, to_char(sysdate, 'HH24:MI:SS :') ||p_text );
37 ELSE
38 IF PG_DEBUG in ('Y', 'C') THEN
39 arp_standard.debug('write_log: ' || p_text);
40 END IF;
41 END IF;
42 END IF;
43 END write_log;
44
45 /*----------------------------------------------------------------------------*
46 | PROCEDURE |
47 | print_fn_label |
48 | |
49 | DESCRIPTION |
50 | Will print the function label to a log file |
51 | |
52 | SCOPE - PRIVATE |
53 | |
54 | EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
55 | |
56 | ARGUMENTS : IN: |
57 | p_text - Text to be printed |
58 | : OUT: |
59 | None |
60 | |
61 | RETURNS : NONE |
62 | |
63 | NOTES |
64 | |
65 | MODIFICATION HISTORY |
66 | |
67 | 01-SEP-2000 Ramakant Alat Created |
68 *----------------------------------------------------------------------------*/
69 PROCEDURE print_fn_label (p_text IN VARCHAR2) as
70 BEGIN
71 write_log(p_text, MIN_DEBUG_LEVEL);
72 END print_fn_label;
73
74 END arp_file;
|
|
|