PACKAGE BODY: APPS.CZ_DEBUG_PUB

Source

1 PACKAGE BODY CZ_DEBUG_PUB AS
2 /*	$Header: czdbpubb.pls 115.5 2002/11/27 16:57:55 askhacha ship $		*/
3 
4 v_msg_tbl msg_text_list;
5 
6 --------------------------------------------------
7 ------log debug messages
8 PROCEDURE populate_debug_message(p_msg     IN VARCHAR2,
9 				         p_caller  IN VARCHAR2,
10 				         p_code    IN NUMBER,
11 					   v_msg_tbl IN OUT NOCOPY msg_text_list)
12 AS
13 
14 record_count	PLS_INTEGER := 0;
15 
16 BEGIN
17 	record_count := v_msg_tbl.COUNT + 1;
18 	v_msg_tbl(record_count).msg_text    := LTRIM(RTRIM(substr(p_msg,1,2000)));
19 	v_msg_tbl(record_count).called_proc := p_caller;
20 	v_msg_tbl(record_count).SQL_CODE    := p_code;
21 EXCEPTION
22 WHEN OTHERS THEN
23 	RAISE;
24 END populate_debug_message;
25 
26 ------------------------------------------------------------------------------------------------------------
27 PROCEDURE insert_into_logs(p_msg_tbl IN OUT NOCOPY msg_text_list)
28 AS
29 PRAGMA AUTONOMOUS_TRANSACTION;
30 l_run_id  NUMBER;
31 l_user    VARCHAR2(15);
32 l_sid     NUMBER;
33 l_loguser VARCHAR2(40);
34 
35 BEGIN
36 	-----get run id
37 	SELECT cz_xfr_run_infos_s.nextval INTO l_run_id FROM dual;
38 
39 	-----get unique user
40 	l_loguser := 'NETWORK_API: '||to_char(sysdate, 'mm-dd-yyyy hh24:mi:ss');
41 
42 	IF (p_msg_tbl.COUNT > 0) THEN
43 		FOR I IN p_msg_tbl.FIRST..p_msg_tbl.LAST
44 		LOOP
45 			INSERT INTO cz_db_logs(logtime,
46 						     loguser,
47 						     caller,
48 						     statuscode,
49 						     message,
50 						     creation_date,
51 						     run_id)
52 					 values (sysdate,
53 						   l_loguser,
54 						   p_msg_tbl(i).called_proc,
55 						   p_msg_tbl(i).sql_code,
56 						   SUBSTR(p_msg_tbl(i).msg_text,1,2000),
57 						   sysdate,
58 						   l_run_id);
59 		END LOOP;
60 	END IF;
61 	p_msg_tbl.DELETE;
62 COMMIT;
63 EXCEPTION
64 WHEN OTHERS THEN
65    v_msg_tbl.DELETE;
66    RAISE;
67    ROLLBACK;
68 END insert_into_logs;
69 -------------------------------------------------------
70 ----procedure that decodes the messages from batch validate
71 PROCEDURE get_batch_validate_message (msg_status IN  NUMBER,
72 						  msg_text   OUT NOCOPY VARCHAR2)
73 IS
74 
75 BEGIN
76 	IF (msg_status = 0) THEN
77 		msg_text := 'CONFIG_PROCESSED';
78 	ELSIF (msg_status = 1) THEN
79 		msg_text := 'CONFIG_PROCESSED_NO_TERMINATE';
80 	ELSIF (msg_status = 2) THEN
81 		msg_text := 'INIT_TOO_LONG';
82 	ELSIF (msg_status = 3) THEN
83 		msg_text := 'INVALID_OPTION_REQUEST';
84 	ELSIF (msg_status = 4) THEN
85 		msg_text := 'CONFIG_EXCEPTION';
86 	ELSIF (msg_status = 5) THEN
87 		msg_text := 'DATABASE_ERROR';
88 	ELSIF (msg_status = 6) THEN
89 		msg_text := 'UTL_HTTP_INIT_FAILED';
90 	ELSIF (msg_status = 7) THEN
91 		msg_text := 'UTL_HTTP_REQUEST_FAILED';
92 	ELSIF (msg_status = 8) THEN
93 		msg_text := 'INVALID_VALIDATION_TYPE';
94 	END IF;
95 END;
96 
97 ----------------------------------------------------------------------------------------------------------------
98 
99 END CZ_DEBUG_PUB;