[Home] [Help]
PACKAGE BODY: APPS.GMA_COMMON_LOGGING
Source
1 package body GMA_COMMON_LOGGING as
2 /*$Header: GMAMCLB.pls 120.11 2006/10/05 20:54:59 txdaniel noship $*/
3 Procedure Gma_Migration_CentraL_Log(
4 P_Run_Id VARCHAR2,
5 P_log_level VARCHAR2,
6 P_App_short_name VARCHAR2,
7 P_Message_Token VARCHAR2,
8 P_context VARCHAR2,
9 P_Table_Name VARCHAR2,
10 P_Param1 VARCHAR2,
11 P_Param2 VARCHAR2,
12 P_Param3 VARCHAR2,
13 P_Param4 VARCHAR2,
14 P_Param5 VARCHAR2,
15 P_Db_Error VARCHAR2,
16 P_Token1 VARCHAR2,
17 P_Token2 VARCHAR2,
18 P_Token3 VARCHAR2,
19 P_Token4 VARCHAR2,
20 P_Token5 VARCHAR2,
21 P_Param6 VARCHAR2,
22 P_Token6 VARCHAR2)
23 IS
24 PRAGMA AUTONOMOUS_TRANSACTION;
25 l_log_level VARCHAR2(4000);
26 l_app_short_name VARCHAR2(40);
27 l_table_name VARCHAR2(200);
28 l_param1 VARCHAR2(2000);
29 l_token1 VARCHAR2(80);
30 l_param2 VARCHAR2(2000);
31 l_token2 VARCHAR2(80);
32 l_param3 VARCHAR2(2000);
33 l_token3 VARCHAR2(80);
34 l_param4 VARCHAR2(2000);
35 l_token4 VARCHAR2(80);
36 l_param5 VARCHAR2(2000);
37 l_token5 VARCHAR2(80);
38 l_param6 VARCHAR2(2000);
39 l_token6 VARCHAR2(80);
40 l_message_token VARCHAR2(200);
41 l_db_error VARCHAR2(2000);
42 l_message_type VARCHAR2(1);
43 BEGIN
44
45 if P_Message_Token IN ('GMA_MIGRATION_FAIL',
46 'GMA_MIGRATION_TABLE_FAIL') then
47 l_log_level:=FND_LOG.LEVEL_ERROR;
48 l_app_short_name := 'GMA';
49 IF p_message_token = 'GMA_MIGRATION_TABLE_FAIL' THEN
50 l_table_name := p_table_name;
51 END IF;
52 elsif P_Message_Token IN ('GMA_MIGRATION_DB_ERROR') then
53 l_log_level:=FND_LOG.LEVEL_UNEXPECTED;
54 l_app_short_name := 'GMA';
55 elsif P_Message_Token IN ('GMA_MIGRATION_STARTED',
56 'GMA_MIGRATION_COMPLETED',
57 'GMA_MIGRATION_TABLE_STARTED') then
58 l_log_level:=FND_LOG.LEVEL_EVENT;
59 l_app_short_name := 'GMA';
60 IF p_message_token = 'GMA_MIGRATION_TABLE_STARTED' THEN
61 l_table_name := p_table_name;
62 END IF;
63 elsif P_Message_Token IN ('GMA_MIGRATION_TABLE_SUCCESS', 'GMA_MIGRATION_TABLE_SUCCESS_RW') then
64 l_log_level:=FND_LOG.LEVEL_PROCEDURE;
65 l_app_short_name := 'GMA';
66 l_table_name := p_table_name;
67 else
68 l_log_level:=P_log_level;
69 l_app_short_name := p_app_short_name;
70 end if;
71
72 IF (l_log_level = FND_LOG.LEVEL_UNEXPECTED) THEN
73 l_message_token := 'GMD_UNEXPECTED_ERROR';
74 l_app_short_name := 'GMD';
75 l_token1 := 'ERROR';
76 l_db_error := SUBSTR(p_db_error, 1,2000);
77 ELSE
78 l_message_token := p_message_token;
79 l_db_error := NULL;
80 END IF;
81
82 IF l_table_name IS NOT NULL THEN
83 l_token1 := 'TABLE_NAME';
84 l_param1 := l_table_name;
85 IF P_param1 IS NOT NULL THEN
86 l_token2 := NVL(P_token1, 'SUCCESS');
87 l_param2 := P_param1;
88 END IF;
89 IF P_param2 IS NOT NULL THEN
90 l_token3 := NVL(P_token2, 'FAILURE');
91 l_param3 := P_param2;
92 END IF;
93 ELSE
94 IF P_param1 IS NOT NULL THEN
95 l_token1 := NVL(P_token1, 'PARAM1');
96 l_param1 := P_param1;
97 END IF;
98
99 IF P_param2 IS NOT NULL THEN
100 l_token2 := NVL(P_token2, 'PARAM2');
101 l_param2 := P_param2;
102 END IF;
103
104 IF P_param3 IS NOT NULL THEN
105 l_token3 := NVL(P_token3, 'PARAM3');
106 l_param3 := P_param3;
107 END IF;
108
109 IF P_param4 IS NOT NULL THEN
110 l_token4 := NVL(P_token4, 'PARAM4');
111 l_param4 := P_param4;
112 END IF;
113
114 IF P_param5 IS NOT NULL THEN
115 l_token5 := NVL(P_token5, 'PARAM5');
116 l_param5 := P_param5;
117 END IF;
118
119 IF P_param6 IS NOT NULL THEN
120 l_token6 := NVL(P_token6, 'PARAM6');
121 l_param6 := P_param6;
122 END IF;
123 END IF;
124
125 IF l_log_level = 1 THEN
126 l_message_type := 'I';
127 ELSIF l_log_level IN (2,3) THEN
128 l_message_type := 'P';
129 ELSIF l_log_level IN (4,5) THEN
130 l_message_type := 'E';
131 ELSIF l_log_level = 6 THEN
132 l_message_type := 'D';
133 END IF;
134
135 INSERT INTO GMA_MIGRATION_LOG (TABLE_NAME, LINE_NO, RUN_ID, MSG_APP_SHORT_NAME, MESSAGE_TOKEN,
136 MESSAGE_TYPE, TOKEN1, TOKEN2, TOKEN3, TOKEN4, TOKEN5, TOKEN6,
137 PARAM1, PARAM2, PARAM3, PARAM4, PARAM5, PARAM6,
138 DB_ERROR, TIMESTAMP, CONTEXT)
139 VALUES (p_table_name, gma_upgrade_id_s.nextval, p_run_id, l_app_short_name, l_message_token,l_message_type,
140 l_token1, l_token2, l_token3, l_token4, l_token5, l_token6,
141 l_param1, l_param2, l_param3, l_param4, l_param5, l_param6,
142 l_db_error, SYSDATE, p_context);
143
144 COMMIT;
145
146 End Gma_Migration_CentraL_Log;
147
148 END GMA_COMMON_LOGGING;