[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);
246: , p_value IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
247: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
248: )
249: IS
250: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
251: BEGIN
252:
253: IF (g_Level_Error >= g_Message_Level) THEN
254: Add_Message
271: , p_value IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
272: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
273: )
274: IS
275: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
276: BEGIN
277:
278: IF (g_Level_Warning >= g_Message_Level) THEN
279: Add_Message
295: , p_Error_Text IN VARCHAR2
296: )
297: IS
298: -- l_Error_Text VARCHAR2(2000);
299: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
300: BEGIN
301:
302: /*
303: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_MSG_LVL_UNEXP_ERROR) THEN
339: , p_Msg_Text IN VARCHAR2
340: )
341: IS
342: -- l_msg_text VARCHAR2(2000);
343: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
344: BEGIN
345:
346: -- l_msg_text := g_Package_Name || '.' || g_Procedure_Name ': ' p_Msg_Text;
347:
373:
374: FUNCTION Count_Msg
375: RETURN NUMBER
376: IS
377: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
378: BEGIN
379:
380: RETURN g_Msg_Count;
381:
394: , p_data OUT NOCOPY VARCHAR2
395: )
396: IS
397: l_Msg_Index NUMBER := g_Msg_Index;
398: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
399: BEGIN
400:
401: IF ( g_Msg_Count = 1 ) THEN
402:
439: l_Msg_Name VARCHAR2(30);
440: l_msg_text VARCHAR2(2000);
441: l_transaction_id NUMBER;
442: l_column_name VARCHAR2(30);
443: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
444: BEGIN
445:
446: -- Get message without token substitution
447: --l_msg_text := FND_MESSAGE.Get_String('INV', 'INV_CAT_SET_CAT_COMB');
538: PROCEDURE Write_List
539: ( p_delete IN BOOLEAN DEFAULT TRUE
540: )
541: IS
542: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
543: BEGIN
544: FOR i IN 1 .. g_Msg_Count LOOP -- g_Msg_Tbl.COUNT
545: Write_Message (i);
546: END LOOP;
566: IS
567: l_Msg_Name VARCHAR2(30) := SUBSTRB(p_Msg_Name, 1,30);
568: l_Msg_Text VARCHAR2(240) := SUBSTRB(p_Msg_Text, 1,240);
569: l_Sysdate DATE := SYSDATE;
570: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
571: BEGIN
572:
573: INSERT INTO mtl_interface_errors
574: (