55: PROCEDURE write_log(p_debug_source NUMBER, p_fpt number, p_mssg varchar2) IS
56: BEGIN
57: IF p_debug_source = G_DEBUG_CONCURRENT THEN
58: -- p_fpt (1,2)?(log : output)
59: FND_FILE.put(p_fpt, p_mssg);
60: FND_FILE.NEW_LINE(p_fpt, 1);
61: -- If p_fpt == 2 and debug flag then also write to log file
62: IF p_fpt = 2 And G_Debug THEN
63: FND_FILE.put(1, p_mssg);
56: BEGIN
57: IF p_debug_source = G_DEBUG_CONCURRENT THEN
58: -- p_fpt (1,2)?(log : output)
59: FND_FILE.put(p_fpt, p_mssg);
60: FND_FILE.NEW_LINE(p_fpt, 1);
61: -- If p_fpt == 2 and debug flag then also write to log file
62: IF p_fpt = 2 And G_Debug THEN
63: FND_FILE.put(1, p_mssg);
64: FND_FILE.NEW_LINE(1, 1);
59: FND_FILE.put(p_fpt, p_mssg);
60: FND_FILE.NEW_LINE(p_fpt, 1);
61: -- If p_fpt == 2 and debug flag then also write to log file
62: IF p_fpt = 2 And G_Debug THEN
63: FND_FILE.put(1, p_mssg);
64: FND_FILE.NEW_LINE(1, 1);
65: END IF;
66: END IF;
67:
60: FND_FILE.NEW_LINE(p_fpt, 1);
61: -- If p_fpt == 2 and debug flag then also write to log file
62: IF p_fpt = 2 And G_Debug THEN
63: FND_FILE.put(1, p_mssg);
64: FND_FILE.NEW_LINE(1, 1);
65: END IF;
66: END IF;
67:
68: IF G_Debug AND p_debug_source = G_DEBUG_TRIGGER THEN
80: newline IN BOOLEAN DEFAULT TRUE) IS
81: BEGIN
82:
83: IF message = 'NEWLINE' THEN
84: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
85: ELSIF (newline) THEN
86: FND_FILE.put_line(fnd_file.log,message);
87: ELSE
88: FND_FILE.put(fnd_file.log,message);
82:
83: IF message = 'NEWLINE' THEN
84: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
85: ELSIF (newline) THEN
86: FND_FILE.put_line(fnd_file.log,message);
87: ELSE
88: FND_FILE.put(fnd_file.log,message);
89: END IF;
90: END log;
84: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
85: ELSIF (newline) THEN
86: FND_FILE.put_line(fnd_file.log,message);
87: ELSE
88: FND_FILE.put(fnd_file.log,message);
89: END IF;
90: END log;
91:
92: