[Home] [Help]
66: -- Except for the message level threshold.
67:
68: PROCEDURE Initialize
69: IS
70: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
71: BEGIN
72:
73: g_Msg_Tbl.DELETE;
74: g_Msg_Count := 0;
88: ----------------------------- set_Message_Level ------------------------------
89:
90: PROCEDURE set_Message_Level (p_Msg_Level IN NUMBER)
91: IS
92: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
93: BEGIN
94:
95: g_Message_Level := p_Msg_Level;
96:
102:
103: FUNCTION set_Message_Mode (p_Mode IN VARCHAR2)
104: RETURN VARCHAR2
105: IS
106: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
107: BEGIN
108:
109: g_Message_Mode := p_Mode;
110: RETURN (NULL);
156:
157: PROCEDURE set_Message_Mode (p_Mode IN VARCHAR2)
158: IS
159: l_file_ptr VARCHAR2(2000);
160: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
161: BEGIN
162:
163: l_file_ptr := set_Message_Mode (p_Mode => p_Mode);
164:
200: , p_transaction_id IN NUMBER DEFAULT fnd_api.g_MISS_NUM
201: , p_column_name IN VARCHAR2 DEFAULT NULL
202: )
203: IS
204: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
205:
206: BEGIN
207:
208: INVPUTLI.info('Add_Message: p_Msg_Name=' || p_Msg_Name);
245: , p_value IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
246: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
247: )
248: IS
249: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
250: BEGIN
251:
252: IF (g_Level_Error >= g_Message_Level) THEN
253: Add_Message
270: , p_value IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
271: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
272: )
273: IS
274: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
275: BEGIN
276:
277: IF (g_Level_Warning >= g_Message_Level) THEN
278: Add_Message
294: , p_Error_Text IN VARCHAR2
295: )
296: IS
297: -- l_Error_Text VARCHAR2(2000);
298: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
299: BEGIN
300:
301: /*
302: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_MSG_LVL_UNEXP_ERROR) THEN
338: , p_Msg_Text IN VARCHAR2
339: )
340: IS
341: -- l_msg_text VARCHAR2(2000);
342: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
343: BEGIN
344:
345: -- l_msg_text := g_Package_Name || '.' || g_Procedure_Name ': ' p_Msg_Text;
346:
372:
373: FUNCTION Count_Msg
374: RETURN NUMBER
375: IS
376: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
377: BEGIN
378:
379: RETURN g_Msg_Count;
380:
393: , p_data OUT NOCOPY VARCHAR2
394: )
395: IS
396: l_Msg_Index NUMBER := g_Msg_Index;
397: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
398: BEGIN
399:
400: IF ( g_Msg_Count = 1 ) THEN
401:
438: l_Msg_Name VARCHAR2(30);
439: l_msg_text VARCHAR2(2000);
440: l_transaction_id NUMBER;
441: l_column_name VARCHAR2(30);
442: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
443: BEGIN
444:
445: -- Get message without token substitution
446: --l_msg_text := FND_MESSAGE.Get_String('INV', 'INV_CAT_SET_CAT_COMB');
537: PROCEDURE Write_List
538: ( p_delete IN BOOLEAN DEFAULT TRUE
539: )
540: IS
541: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
542: BEGIN
543: FOR i IN 1 .. g_Msg_Count LOOP -- g_Msg_Tbl.COUNT
544: Write_Message (i);
545: END LOOP;
565: IS
566: l_Msg_Name VARCHAR2(30) := SUBSTRB(p_Msg_Name, 1,30);
567: l_Msg_Text VARCHAR2(240) := SUBSTRB(p_Msg_Text, 1,240);
568: l_Sysdate DATE := SYSDATE;
569: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
570: BEGIN
571:
572: INSERT INTO mtl_interface_errors
573: (