17:
18: PROCEDURE Initialize
19: IS
20: --
21: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
22: --
23: BEGIN
24: --Bug 8514085 Starts
25: IF G_msg_timer_created
39: G_msg_context_count := 0;
40: G_Msg_Context_index := 0;
41:
42: IF l_debug_level > 0 THEN
43: oe_debug_pub.add( 'LEAVING OE_MSG_PUB.INITIALIZE' , 1 ) ;
44: END IF;
45: EXCEPTION
46: WHEN OTHERS THEN
47: IF l_debug_level > 0 THEN
44: END IF;
45: EXCEPTION
46: WHEN OTHERS THEN
47: IF l_debug_level > 0 THEN
48: oe_debug_pub.add('Error in procedure Initialize ' || sqlerrm);
49: END IF;
50: END;
51:
52: PROCEDURE Set_Process_Activity(
52: PROCEDURE Set_Process_Activity(
53: p_process_activity IN NUMBER DEFAULT NULL)
54: IS
55: --
56: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
57: --
58: BEGIN
59:
60: G_process_activity := p_process_activity;
60: G_process_activity := p_process_activity;
61: EXCEPTION
62: WHEN OTHERS THEN
63: IF l_debug_level > 0 THEN
64: oe_debug_pub.add('Error in procedure Set_Process_Activity ' || sqlerrm);
65: END IF;
66: END Set_Process_Activity;
67:
68: PROCEDURE Set_Msg_Context (
84: -- ,p_process_activity IN NUMBER DEFAULT NULL
85: )
86: IS
87: --
88: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
89: --
90: BEGIN
91: -- Increment message context count
92: G_msg_context_count := G_msg_context_count + 1;
207: G_msg_context_tbl(G_msg_context_count).PROCESS_ACTIVITY := G_process_activity;
208: EXCEPTION
209: WHEN OTHERS THEN
210: IF l_debug_level > 0 THEN
211: oe_debug_pub.add('Error in procedure Set_Msg_Context ' || sqlerrm);
212: END IF;
213: END;
214:
215: PROCEDURE Update_Msg_Context (
229: ,p_constraint_id IN NUMBER DEFAULT FND_API.G_MISS_NUM
230: -- ,p_process_activity IN NUMBER DEFAULT FND_API.G_MISS_NUM
231: ) IS
232: --
233: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
234: --
235: Begin
236:
237: -- if G_msg_context_tbl(G_msg_context_count).ENTITY_CODE = p_entity_code then
291: -- end if;
292: EXCEPTION
293: WHEN OTHERS THEN
294: IF l_debug_level > 0 THEN
295: oe_debug_pub.add('Error in procedure Update_Msg_Context ' || sqlerrm);
296: END IF;
297: End Update_Msg_Context;
298:
299: PROCEDURE Reset_Msg_Context (p_entity_code IN VARCHAR2)
298:
299: PROCEDURE Reset_Msg_Context (p_entity_code IN VARCHAR2)
300: IS
301: --
302: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
303: --
304: BEGIN
305: if G_msg_context_count > 0 then
306: if G_msg_context_tbl.EXISTS(G_msg_context_count) AND
311: end if;
312: EXCEPTION
313: WHEN OTHERS THEN
314: IF l_debug_level > 0 THEN
315: oe_debug_pub.add('Error in procedure Reset_Msg_Context ' || sqlerrm);
316: END IF;
317: END Reset_Msg_Context;
318:
319:
330:
331: FUNCTION Count_Msg RETURN NUMBER
332: IS
333: --
334: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
335: --
336: BEGIN
337:
338: RETURN G_msg_Count;
338: RETURN G_msg_Count;
339: EXCEPTION
340: WHEN OTHERS THEN
341: IF l_debug_level > 0 THEN
342: oe_debug_pub.add('Error in Function Count_msg ' || sqlerrm);
343: END IF;
344: END Count_Msg;
345:
346: -- PROCEDURE Count_And_Get
355: )
356: IS
357: l_msg_count NUMBER;
358: --
359: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
360: --
361: BEGIN
362:
363: l_msg_count := Count_Msg;
373:
374: p_count := l_msg_count ;
375:
376: IF l_debug_level > 0 THEN
377: oe_debug_pub.add( 'LEAVING OE_MSG_PUB.COUNT_AND_GET '|| L_MSG_COUNT , 3 ) ;
378: END IF;
379: EXCEPTION
380: WHEN OTHERS THEN
381: IF l_debug_level > 0 THEN
378: END IF;
379: EXCEPTION
380: WHEN OTHERS THEN
381: IF l_debug_level > 0 THEN
382: oe_debug_pub.add('Error in Function Count_And_Get ' || sqlerrm);
383: END IF;
384: END Count_And_Get;
385:
386: -- PROCEDURE Add
399: l_type VARCHAR2(30);
400: l_app_id VARCHAR2(30);
401: l_message_name VARCHAR2(30);
402: --
403: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
404: --
405: BEGIN
406:
407: -- Increment message count
470: G_msg_tbl(G_msg_count).ORG_ID := NULL;
471: END IF;
472:
473: IF l_debug_level > 0 THEN
474: oe_debug_pub.add( 'LEAVING OE_MSG_PUB.ADD' , 3 ) ;
475: END IF;
476: EXCEPTION
477: WHEN OTHERS THEN
478: IF l_debug_level > 0 THEN
475: END IF;
476: EXCEPTION
477: WHEN OTHERS THEN
478: IF l_debug_level > 0 THEN
479: oe_debug_pub.add('Error in Procedure Add ' || sqlerrm);
480: END IF;
481: END Add;
482:
483: -- PROCEDURE Add_text
495: ,p_type IN VARCHAR2 DEFAULT 'ERROR'
496: ,p_context_flag IN VARCHAR2 DEFAULT 'Y')
497: IS
498: --
499: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
500: --
501: BEGIN
502:
503: -- Increment message count
541: G_msg_tbl(G_msg_count).ORG_ID := NULL;
542: END IF;
543:
544: IF l_debug_level > 0 THEN
545: oe_debug_pub.add( 'LEAVING OE_MSG_PUB.ADD_TEXT' , 3 ) ;
546: END IF;
547: EXCEPTION
548: WHEN OTHERS THEN
549: IF l_debug_level > 0 THEN
546: END IF;
547: EXCEPTION
548: WHEN OTHERS THEN
549: IF l_debug_level > 0 THEN
550: oe_debug_pub.add('Error in Procedure Add_text ' || sqlerrm);
551: END IF;
552: END Add_Text;
553:
554: --
574: )
575: IS
576: l_msg_index NUMBER;
577: --
578: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
579: --
580: BEGIN
581:
582: IF p_msg_index IS NULL THEN
632: END IF;
633: EXCEPTION
634: WHEN OTHERS THEN
635: IF l_debug_level > 0 THEN
636: oe_debug_pub.add('Error in Delete_msg ' || sqlerrm);
637: END IF;
638: END Delete_Msg;
639:
640: procedure get_msg_context(
676: ,x_type OUT NOCOPY VARCHAR2
677:
678: ) IS
679: --
680: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
681: --
682: Begin
683: x_entity_code := G_msg_tbl(p_msg_index).ENTITY_CODE;
684: x_entity_ref := G_msg_tbl(p_msg_index).ENTITY_REF;
736: )
737: IS
738: l_msg_index NUMBER := G_msg_index;
739: --
740: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
741: --
742: BEGIN
743:
744: IF p_msg_index = G_NEXT THEN
785: p_data := NULL;
786: p_msg_index_out := NULL;
787: WHEN OTHERS THEN
788: IF l_debug_level > 0 THEN
789: oe_debug_pub.add('Error in Procedure Get ' || sqlerrm);
790: END IF;
791: END Get;
792:
793: -- FUNCTION Get
801: IS
802: l_data VARCHAR2(2000) ;
803: l_msg_index_out NUMBER ;
804: --
805: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
806: --
807: BEGIN
808:
809: Get
817:
818: EXCEPTION
819: WHEN OTHERS THEN
820: IF l_debug_level > 0 THEN
821: oe_debug_pub.add('Error in Function Get ' || sqlerrm);
822: END IF;
823: END Get;
824:
825: -- PROCEDURE Reset
840: PROCEDURE Reset ( p_mode IN NUMBER := G_FIRST )
841: IS
842: l_procedure_name CONSTANT VARCHAR2(15):='Reset';
843: --
844: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
845: --
846: BEGIN
847:
848: IF p_mode = G_FIRST THEN
869:
870: EXCEPTION
871: WHEN OTHERS THEN
872: IF l_debug_level > 0 THEN
873: oe_debug_pub.add('Error in Procedure Reset ' || sqlerrm);
874: END IF;
875: END Reset;
876:
877: -- FUNCTION Check_Msg_Level
893: ( p_message_level IN NUMBER := G_MSG_LVL_SUCCESS
894: ) RETURN BOOLEAN
895: IS
896: --
897: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
898: --
899: BEGIN
900:
901: IF G_msg_level_threshold = FND_API.G_MISS_NUM THEN
916: RETURN p_message_level >= G_msg_level_threshold ;
917: EXCEPTION
918: WHEN OTHERS THEN
919: IF l_debug_level > 0 THEN
920: oe_debug_pub.add('Error in Function Check_Msg_Level ' || sqlerrm);
921: END IF;
922: END; -- Check_Msg_Level
923:
924: PROCEDURE Build_Exc_Msg
928: )
929: IS
930: l_error_text VARCHAR2(2000) := p_error_text ;
931: --
932: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
933: --
934: BEGIN
935:
936: -- If p_error_text is missing use SQLERRM.
956: END IF;
957: EXCEPTION
958: WHEN OTHERS THEN
959: IF l_debug_level > 0 THEN
960: oe_debug_pub.add('Error in Function Build_Exc_Msg ' || sqlerrm);
961: END IF;
962: END; -- Build_Exc_Msg
963:
964: PROCEDURE Add_Exc_Msg
968: p_context_flag IN VARCHAR2 DEFAULT 'Y'
969: )
970: IS
971: --
972: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
973: --
974: BEGIN
975: Build_Exc_Msg
976: ( p_pkg_name ,
980: Add((p_context_flag));
981: EXCEPTION
982: WHEN OTHERS THEN
983: IF l_debug_level > 0 THEN
984: oe_debug_pub.add('Error in Procedure Add_Exc_Msg ' || sqlerrm);
985: END IF;
986: END Add_Exc_Msg ;
987:
988: -- PROCEDURE Dump_Msg
991: PROCEDURE Dump_Msg
992: ( p_msg_index IN NUMBER )
993: IS
994: --
995: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
996: --
997: BEGIN
998: OE_DEBUG_PUB.debug_on;
999: IF l_debug_level > 0 THEN
994: --
995: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
996: --
997: BEGIN
998: OE_DEBUG_PUB.debug_on;
999: IF l_debug_level > 0 THEN
1000: oe_debug_pub.add( 'MESSAGE NUMBER : '||P_MSG_INDEX ) ;
1001: oe_debug_pub.add( 'DATA = '||G_MSG_TBL ( P_MSG_INDEX ) .MESSAGE ) ;
1002: oe_debug_pub.add( 'ENTITY_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_CODE ) ;
996: --
997: BEGIN
998: OE_DEBUG_PUB.debug_on;
999: IF l_debug_level > 0 THEN
1000: oe_debug_pub.add( 'MESSAGE NUMBER : '||P_MSG_INDEX ) ;
1001: oe_debug_pub.add( 'DATA = '||G_MSG_TBL ( P_MSG_INDEX ) .MESSAGE ) ;
1002: oe_debug_pub.add( 'ENTITY_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_CODE ) ;
1003: oe_debug_pub.add( 'ENTITY_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_ID ) ;
1004: oe_debug_pub.add( 'HEADER_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .HEADER_ID ) ;
997: BEGIN
998: OE_DEBUG_PUB.debug_on;
999: IF l_debug_level > 0 THEN
1000: oe_debug_pub.add( 'MESSAGE NUMBER : '||P_MSG_INDEX ) ;
1001: oe_debug_pub.add( 'DATA = '||G_MSG_TBL ( P_MSG_INDEX ) .MESSAGE ) ;
1002: oe_debug_pub.add( 'ENTITY_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_CODE ) ;
1003: oe_debug_pub.add( 'ENTITY_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_ID ) ;
1004: oe_debug_pub.add( 'HEADER_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .HEADER_ID ) ;
1005: oe_debug_pub.add( 'LINE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .LINE_ID ) ;
998: OE_DEBUG_PUB.debug_on;
999: IF l_debug_level > 0 THEN
1000: oe_debug_pub.add( 'MESSAGE NUMBER : '||P_MSG_INDEX ) ;
1001: oe_debug_pub.add( 'DATA = '||G_MSG_TBL ( P_MSG_INDEX ) .MESSAGE ) ;
1002: oe_debug_pub.add( 'ENTITY_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_CODE ) ;
1003: oe_debug_pub.add( 'ENTITY_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_ID ) ;
1004: oe_debug_pub.add( 'HEADER_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .HEADER_ID ) ;
1005: oe_debug_pub.add( 'LINE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .LINE_ID ) ;
1006: oe_debug_pub.add( 'ORDER_SOURCE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ORDER_SOURCE_ID ) ;
999: IF l_debug_level > 0 THEN
1000: oe_debug_pub.add( 'MESSAGE NUMBER : '||P_MSG_INDEX ) ;
1001: oe_debug_pub.add( 'DATA = '||G_MSG_TBL ( P_MSG_INDEX ) .MESSAGE ) ;
1002: oe_debug_pub.add( 'ENTITY_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_CODE ) ;
1003: oe_debug_pub.add( 'ENTITY_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_ID ) ;
1004: oe_debug_pub.add( 'HEADER_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .HEADER_ID ) ;
1005: oe_debug_pub.add( 'LINE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .LINE_ID ) ;
1006: oe_debug_pub.add( 'ORDER_SOURCE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ORDER_SOURCE_ID ) ;
1007: oe_debug_pub.add( 'ORIG_SYS_DOC_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_REF ) ;
1000: oe_debug_pub.add( 'MESSAGE NUMBER : '||P_MSG_INDEX ) ;
1001: oe_debug_pub.add( 'DATA = '||G_MSG_TBL ( P_MSG_INDEX ) .MESSAGE ) ;
1002: oe_debug_pub.add( 'ENTITY_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_CODE ) ;
1003: oe_debug_pub.add( 'ENTITY_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_ID ) ;
1004: oe_debug_pub.add( 'HEADER_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .HEADER_ID ) ;
1005: oe_debug_pub.add( 'LINE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .LINE_ID ) ;
1006: oe_debug_pub.add( 'ORDER_SOURCE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ORDER_SOURCE_ID ) ;
1007: oe_debug_pub.add( 'ORIG_SYS_DOC_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_REF ) ;
1008: oe_debug_pub.add( 'ORIG_SYS_LIN_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_LINE_REF ) ;
1001: oe_debug_pub.add( 'DATA = '||G_MSG_TBL ( P_MSG_INDEX ) .MESSAGE ) ;
1002: oe_debug_pub.add( 'ENTITY_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_CODE ) ;
1003: oe_debug_pub.add( 'ENTITY_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_ID ) ;
1004: oe_debug_pub.add( 'HEADER_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .HEADER_ID ) ;
1005: oe_debug_pub.add( 'LINE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .LINE_ID ) ;
1006: oe_debug_pub.add( 'ORDER_SOURCE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ORDER_SOURCE_ID ) ;
1007: oe_debug_pub.add( 'ORIG_SYS_DOC_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_REF ) ;
1008: oe_debug_pub.add( 'ORIG_SYS_LIN_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_LINE_REF ) ;
1009: oe_debug_pub.add( 'SOURCE_DOC_TYPE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_TYPE_ID ) ;
1002: oe_debug_pub.add( 'ENTITY_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_CODE ) ;
1003: oe_debug_pub.add( 'ENTITY_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_ID ) ;
1004: oe_debug_pub.add( 'HEADER_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .HEADER_ID ) ;
1005: oe_debug_pub.add( 'LINE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .LINE_ID ) ;
1006: oe_debug_pub.add( 'ORDER_SOURCE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ORDER_SOURCE_ID ) ;
1007: oe_debug_pub.add( 'ORIG_SYS_DOC_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_REF ) ;
1008: oe_debug_pub.add( 'ORIG_SYS_LIN_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_LINE_REF ) ;
1009: oe_debug_pub.add( 'SOURCE_DOC_TYPE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_TYPE_ID ) ;
1010: oe_debug_pub.add( 'SOURCE_DOC_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_ID ) ;
1003: oe_debug_pub.add( 'ENTITY_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ENTITY_ID ) ;
1004: oe_debug_pub.add( 'HEADER_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .HEADER_ID ) ;
1005: oe_debug_pub.add( 'LINE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .LINE_ID ) ;
1006: oe_debug_pub.add( 'ORDER_SOURCE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ORDER_SOURCE_ID ) ;
1007: oe_debug_pub.add( 'ORIG_SYS_DOC_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_REF ) ;
1008: oe_debug_pub.add( 'ORIG_SYS_LIN_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_LINE_REF ) ;
1009: oe_debug_pub.add( 'SOURCE_DOC_TYPE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_TYPE_ID ) ;
1010: oe_debug_pub.add( 'SOURCE_DOC_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_ID ) ;
1011: oe_debug_pub.add( 'SOURCE_LIN_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_LINE_ID ) ;
1004: oe_debug_pub.add( 'HEADER_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .HEADER_ID ) ;
1005: oe_debug_pub.add( 'LINE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .LINE_ID ) ;
1006: oe_debug_pub.add( 'ORDER_SOURCE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ORDER_SOURCE_ID ) ;
1007: oe_debug_pub.add( 'ORIG_SYS_DOC_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_REF ) ;
1008: oe_debug_pub.add( 'ORIG_SYS_LIN_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_LINE_REF ) ;
1009: oe_debug_pub.add( 'SOURCE_DOC_TYPE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_TYPE_ID ) ;
1010: oe_debug_pub.add( 'SOURCE_DOC_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_ID ) ;
1011: oe_debug_pub.add( 'SOURCE_LIN_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_LINE_ID ) ;
1012: oe_debug_pub.add( 'ATTRIBUTE_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ATTRIBUTE_CODE ) ;
1005: oe_debug_pub.add( 'LINE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .LINE_ID ) ;
1006: oe_debug_pub.add( 'ORDER_SOURCE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ORDER_SOURCE_ID ) ;
1007: oe_debug_pub.add( 'ORIG_SYS_DOC_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_REF ) ;
1008: oe_debug_pub.add( 'ORIG_SYS_LIN_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_LINE_REF ) ;
1009: oe_debug_pub.add( 'SOURCE_DOC_TYPE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_TYPE_ID ) ;
1010: oe_debug_pub.add( 'SOURCE_DOC_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_ID ) ;
1011: oe_debug_pub.add( 'SOURCE_LIN_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_LINE_ID ) ;
1012: oe_debug_pub.add( 'ATTRIBUTE_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ATTRIBUTE_CODE ) ;
1013: oe_debug_pub.add( 'CONSTRAINT_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .CONSTRAINT_ID ) ;
1006: oe_debug_pub.add( 'ORDER_SOURCE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .ORDER_SOURCE_ID ) ;
1007: oe_debug_pub.add( 'ORIG_SYS_DOC_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_REF ) ;
1008: oe_debug_pub.add( 'ORIG_SYS_LIN_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_LINE_REF ) ;
1009: oe_debug_pub.add( 'SOURCE_DOC_TYPE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_TYPE_ID ) ;
1010: oe_debug_pub.add( 'SOURCE_DOC_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_ID ) ;
1011: oe_debug_pub.add( 'SOURCE_LIN_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_LINE_ID ) ;
1012: oe_debug_pub.add( 'ATTRIBUTE_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ATTRIBUTE_CODE ) ;
1013: oe_debug_pub.add( 'CONSTRAINT_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .CONSTRAINT_ID ) ;
1014: oe_debug_pub.add( 'PROCESS_ACTIVITY = '||G_MSG_TBL ( P_MSG_INDEX ) .PROCESS_ACTIVITY ) ;
1007: oe_debug_pub.add( 'ORIG_SYS_DOC_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_REF ) ;
1008: oe_debug_pub.add( 'ORIG_SYS_LIN_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_LINE_REF ) ;
1009: oe_debug_pub.add( 'SOURCE_DOC_TYPE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_TYPE_ID ) ;
1010: oe_debug_pub.add( 'SOURCE_DOC_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_ID ) ;
1011: oe_debug_pub.add( 'SOURCE_LIN_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_LINE_ID ) ;
1012: oe_debug_pub.add( 'ATTRIBUTE_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ATTRIBUTE_CODE ) ;
1013: oe_debug_pub.add( 'CONSTRAINT_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .CONSTRAINT_ID ) ;
1014: oe_debug_pub.add( 'PROCESS_ACTIVITY = '||G_MSG_TBL ( P_MSG_INDEX ) .PROCESS_ACTIVITY ) ;
1015: END IF;
1008: oe_debug_pub.add( 'ORIG_SYS_LIN_REF = '||G_MSG_TBL ( P_MSG_INDEX ) .ORIG_SYS_DOCUMENT_LINE_REF ) ;
1009: oe_debug_pub.add( 'SOURCE_DOC_TYPE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_TYPE_ID ) ;
1010: oe_debug_pub.add( 'SOURCE_DOC_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_ID ) ;
1011: oe_debug_pub.add( 'SOURCE_LIN_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_LINE_ID ) ;
1012: oe_debug_pub.add( 'ATTRIBUTE_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ATTRIBUTE_CODE ) ;
1013: oe_debug_pub.add( 'CONSTRAINT_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .CONSTRAINT_ID ) ;
1014: oe_debug_pub.add( 'PROCESS_ACTIVITY = '||G_MSG_TBL ( P_MSG_INDEX ) .PROCESS_ACTIVITY ) ;
1015: END IF;
1016: OE_DEBUG_PUB.dumpdebug;
1009: oe_debug_pub.add( 'SOURCE_DOC_TYPE_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_TYPE_ID ) ;
1010: oe_debug_pub.add( 'SOURCE_DOC_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_ID ) ;
1011: oe_debug_pub.add( 'SOURCE_LIN_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_LINE_ID ) ;
1012: oe_debug_pub.add( 'ATTRIBUTE_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ATTRIBUTE_CODE ) ;
1013: oe_debug_pub.add( 'CONSTRAINT_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .CONSTRAINT_ID ) ;
1014: oe_debug_pub.add( 'PROCESS_ACTIVITY = '||G_MSG_TBL ( P_MSG_INDEX ) .PROCESS_ACTIVITY ) ;
1015: END IF;
1016: OE_DEBUG_PUB.dumpdebug;
1017: OE_DEBUG_PUB.debug_off;
1010: oe_debug_pub.add( 'SOURCE_DOC_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_ID ) ;
1011: oe_debug_pub.add( 'SOURCE_LIN_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .SOURCE_DOCUMENT_LINE_ID ) ;
1012: oe_debug_pub.add( 'ATTRIBUTE_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ATTRIBUTE_CODE ) ;
1013: oe_debug_pub.add( 'CONSTRAINT_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .CONSTRAINT_ID ) ;
1014: oe_debug_pub.add( 'PROCESS_ACTIVITY = '||G_MSG_TBL ( P_MSG_INDEX ) .PROCESS_ACTIVITY ) ;
1015: END IF;
1016: OE_DEBUG_PUB.dumpdebug;
1017: OE_DEBUG_PUB.debug_off;
1018: EXCEPTION
1012: oe_debug_pub.add( 'ATTRIBUTE_CODE = '||G_MSG_TBL ( P_MSG_INDEX ) .ATTRIBUTE_CODE ) ;
1013: oe_debug_pub.add( 'CONSTRAINT_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .CONSTRAINT_ID ) ;
1014: oe_debug_pub.add( 'PROCESS_ACTIVITY = '||G_MSG_TBL ( P_MSG_INDEX ) .PROCESS_ACTIVITY ) ;
1015: END IF;
1016: OE_DEBUG_PUB.dumpdebug;
1017: OE_DEBUG_PUB.debug_off;
1018: EXCEPTION
1019: WHEN OTHERS THEN
1020: IF l_debug_level > 0 THEN
1013: oe_debug_pub.add( 'CONSTRAINT_ID = '||G_MSG_TBL ( P_MSG_INDEX ) .CONSTRAINT_ID ) ;
1014: oe_debug_pub.add( 'PROCESS_ACTIVITY = '||G_MSG_TBL ( P_MSG_INDEX ) .PROCESS_ACTIVITY ) ;
1015: END IF;
1016: OE_DEBUG_PUB.dumpdebug;
1017: OE_DEBUG_PUB.debug_off;
1018: EXCEPTION
1019: WHEN OTHERS THEN
1020: IF l_debug_level > 0 THEN
1021: oe_debug_pub.add('Error in Procedure Dump_Msg ' || sqlerrm);
1017: OE_DEBUG_PUB.debug_off;
1018: EXCEPTION
1019: WHEN OTHERS THEN
1020: IF l_debug_level > 0 THEN
1021: oe_debug_pub.add('Error in Procedure Dump_Msg ' || sqlerrm);
1022: END IF;
1023: END Dump_Msg;
1024:
1025: -- PROCEDURE Dump_List
1028: ( p_messages IN BOOLEAN := FALSE
1029: )
1030: IS
1031: --
1032: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1033: --
1034: BEGIN
1035:
1036: OE_DEBUG_PUB.debug_on;
1032: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1033: --
1034: BEGIN
1035:
1036: OE_DEBUG_PUB.debug_on;
1037: IF l_debug_level > 0 THEN
1038: oe_debug_pub.add( 'DUMPING MESSAGE LIST :' ) ;
1039: oe_debug_pub.add( 'G_MSG_TBL.COUNT = '||G_MSG_TBL.COUNT ) ;
1040: oe_debug_pub.add( 'G_MSG_COUNT = '||G_MSG_COUNT ) ;
1034: BEGIN
1035:
1036: OE_DEBUG_PUB.debug_on;
1037: IF l_debug_level > 0 THEN
1038: oe_debug_pub.add( 'DUMPING MESSAGE LIST :' ) ;
1039: oe_debug_pub.add( 'G_MSG_TBL.COUNT = '||G_MSG_TBL.COUNT ) ;
1040: oe_debug_pub.add( 'G_MSG_COUNT = '||G_MSG_COUNT ) ;
1041: oe_debug_pub.add( 'G_MSG_INDEX = '||G_MSG_INDEX ) ;
1042: END IF;
1035:
1036: OE_DEBUG_PUB.debug_on;
1037: IF l_debug_level > 0 THEN
1038: oe_debug_pub.add( 'DUMPING MESSAGE LIST :' ) ;
1039: oe_debug_pub.add( 'G_MSG_TBL.COUNT = '||G_MSG_TBL.COUNT ) ;
1040: oe_debug_pub.add( 'G_MSG_COUNT = '||G_MSG_COUNT ) ;
1041: oe_debug_pub.add( 'G_MSG_INDEX = '||G_MSG_INDEX ) ;
1042: END IF;
1043: OE_DEBUG_PUB.dumpdebug;
1036: OE_DEBUG_PUB.debug_on;
1037: IF l_debug_level > 0 THEN
1038: oe_debug_pub.add( 'DUMPING MESSAGE LIST :' ) ;
1039: oe_debug_pub.add( 'G_MSG_TBL.COUNT = '||G_MSG_TBL.COUNT ) ;
1040: oe_debug_pub.add( 'G_MSG_COUNT = '||G_MSG_COUNT ) ;
1041: oe_debug_pub.add( 'G_MSG_INDEX = '||G_MSG_INDEX ) ;
1042: END IF;
1043: OE_DEBUG_PUB.dumpdebug;
1044: OE_DEBUG_PUB.debug_off;
1037: IF l_debug_level > 0 THEN
1038: oe_debug_pub.add( 'DUMPING MESSAGE LIST :' ) ;
1039: oe_debug_pub.add( 'G_MSG_TBL.COUNT = '||G_MSG_TBL.COUNT ) ;
1040: oe_debug_pub.add( 'G_MSG_COUNT = '||G_MSG_COUNT ) ;
1041: oe_debug_pub.add( 'G_MSG_INDEX = '||G_MSG_INDEX ) ;
1042: END IF;
1043: OE_DEBUG_PUB.dumpdebug;
1044: OE_DEBUG_PUB.debug_off;
1045:
1039: oe_debug_pub.add( 'G_MSG_TBL.COUNT = '||G_MSG_TBL.COUNT ) ;
1040: oe_debug_pub.add( 'G_MSG_COUNT = '||G_MSG_COUNT ) ;
1041: oe_debug_pub.add( 'G_MSG_INDEX = '||G_MSG_INDEX ) ;
1042: END IF;
1043: OE_DEBUG_PUB.dumpdebug;
1044: OE_DEBUG_PUB.debug_off;
1045:
1046: IF p_messages THEN
1047:
1040: oe_debug_pub.add( 'G_MSG_COUNT = '||G_MSG_COUNT ) ;
1041: oe_debug_pub.add( 'G_MSG_INDEX = '||G_MSG_INDEX ) ;
1042: END IF;
1043: OE_DEBUG_PUB.dumpdebug;
1044: OE_DEBUG_PUB.debug_off;
1045:
1046: IF p_messages THEN
1047:
1048: FOR I IN 1..G_msg_tbl.COUNT LOOP
1054: END IF;
1055: EXCEPTION
1056: WHEN OTHERS THEN
1057: IF l_debug_level > 0 THEN
1058: oe_debug_pub.add('Error in Procedure Dump_List ' || sqlerrm);
1059: END IF;
1060: END Dump_List;
1061:
1062:
1076: ,p_message_source_code IN VARCHAR2 DEFAULT 'C')
1077: IS
1078: l_count_msg NUMBER := OE_MSG_PUB.Count_Msg;
1079: --
1080: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1081: --
1082: begin
1083: IF l_debug_level > 0 THEN
1084: oe_debug_pub.add( 'ENTER SAVE_MESSAGES' , 1 ) ;
1080: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1081: --
1082: begin
1083: IF l_debug_level > 0 THEN
1084: oe_debug_pub.add( 'ENTER SAVE_MESSAGES' , 1 ) ;
1085: END IF;
1086: FOR I IN 1..l_count_msg LOOP
1087: IF nvl(g_msg_tbl(I).processed,'N') = 'N' THEN
1088: insert_message(I,p_request_id,p_message_source_code);
1088: insert_message(I,p_request_id,p_message_source_code);
1089: END IF;
1090: End Loop;
1091: IF l_debug_level > 0 THEN
1092: oe_debug_pub.add( 'EXIT SAVE_MESSAGES' , 1 ) ;
1093: END IF;
1094: oe_msg_pub.initialize;
1095: EXCEPTION
1096: WHEN OTHERS THEN
1094: oe_msg_pub.initialize;
1095: EXCEPTION
1096: WHEN OTHERS THEN
1097: IF l_debug_level > 0 THEN
1098: oe_debug_pub.add('Error in Procedure save_messages ' || sqlerrm);
1099: END IF;
1100: end;
1101:
1102: -- Bug 5007836, Created this overloaded API which is to be called
1106: RETURN VARCHAR2
1107: IS
1108: Pragma AUTONOMOUS_TRANSACTION;
1109: l_count_msg NUMBER := OE_MSG_PUB.Count_Msg;
1110: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1111: l_count NUMBER := 0;
1112: begin
1113: IF l_debug_level > 0 THEN
1114: oe_debug_pub.add( 'ENTER Function SAVE_MESSAGES' , 1 ) ;
1110: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1111: l_count NUMBER := 0;
1112: begin
1113: IF l_debug_level > 0 THEN
1114: oe_debug_pub.add( 'ENTER Function SAVE_MESSAGES' , 1 ) ;
1115: END IF;
1116: FOR I IN 1..l_count_msg LOOP
1117: IF nvl(g_msg_tbl(I).processed,'N') = 'N' THEN
1118: insert_message(I,p_request_id,p_message_source_code);
1135: END IF;
1136: EXCEPTION
1137: WHEN OTHERS THEN
1138: IF l_debug_level > 0 THEN
1139: oe_debug_pub.add('Error in Function save_messages ' || sqlerrm);
1140: END IF;
1141: end save_messages;
1142:
1143: -- PROCEDURE insert_messages
1179: l_order_number NUMBER;
1180: l_line_number VARCHAR2(30);
1181:
1182: --
1183: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1184: --
1185:
1186: -- Added below for bug 12922209
1187: l_orig_order_number NUMBER;
1222: ,x_type => l_type
1223: );
1224:
1225: IF l_debug_level > 0 THEN
1226: oe_debug_pub.add( 'L_MSG_DATA='||L_MSG_DATA,3 ) ;
1227: END IF;
1228:
1229: if nvl(fnd_profile.value('CONC_REQUEST_ID'),0) > 0 then
1230:
1264:
1265: EXCEPTION ---start bug 7184951
1266: WHEN OTHERS THEN
1267: IF l_debug_level > 0 THEN
1268: oe_debug_pub.add('Error in Procedure insert_message ' || sqlerrm);
1269: oe_debug_pub.add('Order number not found');
1270: END IF;
1271: /*End bug 7184951*/
1272: END ;
1265: EXCEPTION ---start bug 7184951
1266: WHEN OTHERS THEN
1267: IF l_debug_level > 0 THEN
1268: oe_debug_pub.add('Error in Procedure insert_message ' || sqlerrm);
1269: oe_debug_pub.add('Order number not found');
1270: END IF;
1271: /*End bug 7184951*/
1272: END ;
1273:
1392: end if;
1393: EXCEPTION
1394: WHEN OTHERS THEN
1395: IF l_debug_level > 0 THEN
1396: oe_debug_pub.add('Error in Procedure insert_message ' || sqlerrm);
1397: END IF;
1398: End insert_message;
1399:
1400:
1409: --
1410: PROCEDURE Get_msg_tbl(x_msg_tbl IN OUT NOCOPY /* file.sql.39 change */ msg_tbl_type)
1411: IS
1412: --
1413: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1414: --
1415: BEGIN
1416:
1417: FOR i IN G_msg_tbl.FIRST .. G_msg_tbl.LAST LOOP
1451: END LOOP;
1452: EXCEPTION
1453: WHEN OTHERS THEN
1454: IF l_debug_level > 0 THEN
1455: oe_debug_pub.add('Error in Procedure get_msg_tbl ' || sqlerrm);
1456: END IF;
1457:
1458: END;
1459: /* Added the below procedure for bug 4716444 */
1510: ,p_message_source_code IN VARCHAR2)
1511: IS
1512: Pragma AUTONOMOUS_TRANSACTION;
1513: --
1514: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1515: --
1516: BEGIN
1517:
1518: Save_Messages(p_request_id
1520: COMMIT;
1521: EXCEPTION
1522: WHEN OTHERS THEN
1523: IF l_debug_level > 0 THEN
1524: oe_debug_pub.add('Error in Procedure save_ui_messages ' || sqlerrm);
1525: END IF;
1526: END Save_UI_Messages;
1527:
1528: -- PROCEDURE Update_notification_flag.
1541: PROCEDURE Update_Notification_Flag(p_transaction_id IN NUMBER)
1542: IS
1543: Pragma AUTONOMOUS_TRANSACTION;
1544: --
1545: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1546: --
1547: BEGIN
1548:
1549: UPDATE oe_processing_msgs
1553: COMMIT;
1554: EXCEPTION
1555: WHEN OTHERS THEN
1556: IF l_debug_level > 0 THEN
1557: oe_debug_pub.add('Error in Procedure Update_Notification_Flag ' || sqlerrm);
1558: END IF;
1559: END Update_Notification_Flag;
1560:
1561: -- PROCEDURE Update_UI_notification_flag.
1569:
1570: PROCEDURE Update_UI_Notification_Flag(p_msg_ind IN NUMBER)
1571: IS
1572: --
1573: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1574: --
1575: BEGIN
1576:
1577: G_msg_tbl(p_msg_ind).Notification_flag := 'Y';
1577: G_msg_tbl(p_msg_ind).Notification_flag := 'Y';
1578: EXCEPTION
1579: WHEN OTHERS THEN
1580: IF l_debug_level > 0 THEN
1581: oe_debug_pub.add('Error in Procedure Update_UI_Notification_Flag ' || sqlerrm);
1582: END IF;
1583:
1584: END Update_UI_Notification_Flag;
1585:
1610: l_message VARCHAR2(2000);
1611: l_constraint_id NUMBER;
1612: l_msg_length NUMBER := 0;
1613: --
1614: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1615: --
1616: BEGIN
1617:
1618: x_return_status := FND_API.G_RET_STS_SUCCESS;
1731: l_transaction_id NUMBER;
1732: l_creation_date_from DATE;
1733: l_creation_date_to DATE;
1734: --
1735: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1736: --
1737: BEGIN
1738: IF l_debug_level > 0 THEN
1739: oe_debug_pub.add( 'IN OE_MSG_PUB.DELETE_MESSAGE' ) ;
1735: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1736: --
1737: BEGIN
1738: IF l_debug_level > 0 THEN
1739: oe_debug_pub.add( 'IN OE_MSG_PUB.DELETE_MESSAGE' ) ;
1740: END IF;
1741: /* 1922443 */
1742: /* select msg.rowid,
1743: msg.transaction_id
1871: IF p_process_activity_name IS NOT NULL THEN
1872: l_stmt := l_stmt ||' AND wa.display_name = :process_activity_name';
1873: END IF;
1874:
1875: OE_DEBUG_PUB.Add(substr(l_stmt,1,length(l_stmt)),1);
1876:
1877: DBMS_SQL.PARSE(l_cursor_id, l_stmt, DBMS_SQL.native);
1878:
1879: OE_DEBUG_PUB.Add('after parse',1);
1875: OE_DEBUG_PUB.Add(substr(l_stmt,1,length(l_stmt)),1);
1876:
1877: DBMS_SQL.PARSE(l_cursor_id, l_stmt, DBMS_SQL.native);
1878:
1879: OE_DEBUG_PUB.Add('after parse',1);
1880: --5121760
1881: SELECT fnd_date.chardt_to_date(p_creation_date_from),
1882: fnd_date.chardt_to_date(p_creation_date_to)
1883: INTO l_creation_date_from,l_creation_date_to
1933: DBMS_SQL.BIND_VARIABLE(l_cursor_id,':process_activity_name',p_process_activity_name);
1934: END IF;
1935:
1936: DBMS_SQL.DEFINE_COLUMN(l_cursor_id,1,l_transaction_id);
1937: oe_debug_pub.add('Before execute ',1);
1938: l_retval := DBMS_SQL.EXECUTE(l_cursor_id);
1939:
1940: LOOP
1941: oe_debug_pub.add('J: ' || J,1);
1937: oe_debug_pub.add('Before execute ',1);
1938: l_retval := DBMS_SQL.EXECUTE(l_cursor_id);
1939:
1940: LOOP
1941: oe_debug_pub.add('J: ' || J,1);
1942:
1943: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
1944: EXIT;
1945: END IF;
1946:
1947: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_transaction_id);
1948: J := J +1 ;
1949:
1950: oe_debug_pub.add('l_transaction_id: ' || l_transaction_id,1);
1951: oe_debug_pub.add('J1: ' || J,1);
1952:
1953: Transactionids.extend(1);
1954: Transactionids(J) := l_transaction_id;
1947: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_transaction_id);
1948: J := J +1 ;
1949:
1950: oe_debug_pub.add('l_transaction_id: ' || l_transaction_id,1);
1951: oe_debug_pub.add('J1: ' || J,1);
1952:
1953: Transactionids.extend(1);
1954: Transactionids(J) := l_transaction_id;
1955:
1954: Transactionids(J) := l_transaction_id;
1955:
1956: END LOOP;
1957:
1958: oe_debug_pub.add('Before Close ',1);
1959: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
1960:
1961:
1962: oe_debug_pub.add('Count: ' || Transactionids.COUNT,1);
1958: oe_debug_pub.add('Before Close ',1);
1959: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
1960:
1961:
1962: oe_debug_pub.add('Count: ' || Transactionids.COUNT,1);
1963:
1964: FORALL J in 1..Transactionids.COUNT
1965: Delete
1966: from oe_processing_msgs_tl
1982:
1983: commit;
1984:
1985: IF l_debug_level > 0 THEN
1986: oe_debug_pub.add( 'EXITING OE_MSG_PUB.DELETE_MESSAGE' ) ;
1987: END IF;
1988:
1989: EXCEPTION
1990:
1989: EXCEPTION
1990:
1991: WHEN OTHERS THEN
1992:
1993: oe_debug_pub.add ('error :' || sqlerrm,1);
1994: oe_debug_pub.add (l_stmt,1);
1995: END DELETE_MESSAGE;
1996:
1997: PROCEDURE DELETE_OI_MESSAGE
1990:
1991: WHEN OTHERS THEN
1992:
1993: oe_debug_pub.add ('error :' || sqlerrm,1);
1994: oe_debug_pub.add (l_stmt,1);
1995: END DELETE_MESSAGE;
1996:
1997: PROCEDURE DELETE_OI_MESSAGE
1998: (p_request_id IN NUMBER DEFAULT NULL
2023: d NUMBER;
2024: l_transaction_id NUMBER;
2025:
2026: --
2027: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2028: --
2029: BEGIN
2030:
2031: IF l_debug_level > 0 THEN
2028: --
2029: BEGIN
2030:
2031: IF l_debug_level > 0 THEN
2032: oe_debug_pub.add( 'IN OE_MSG_PUB.DELETE_OI_MESSAGE' ) ;
2033: END IF;
2034: /* Replaced with the following for 1922443
2035: Select transaction_id
2036: Bulk Collect Into transactions_oi
2133: IF p_org_id IS NOT NULL THEN
2134: l_stmt := l_stmt ||' AND org_id = :org_id';
2135: END IF;
2136:
2137: OE_DEBUG_PUB.Add(substr(l_stmt,1,length(l_stmt)),1);
2138:
2139: DBMS_SQL.PARSE(l_cursor_id, l_stmt, DBMS_SQL.native);
2140:
2141: OE_DEBUG_PUB.Add('after parse',1);
2137: OE_DEBUG_PUB.Add(substr(l_stmt,1,length(l_stmt)),1);
2138:
2139: DBMS_SQL.PARSE(l_cursor_id, l_stmt, DBMS_SQL.native);
2140:
2141: OE_DEBUG_PUB.Add('after parse',1);
2142: IF p_order_source_id IS NOT NULL THEN
2143: DBMS_SQL.BIND_VARIABLE(l_cursor_id,':order_source_id',p_order_source_id);
2144: END IF;
2145:
2175: DBMS_SQL.BIND_VARIABLE(l_cursor_id,':org_id',p_org_id);
2176: END IF;
2177:
2178: DBMS_SQL.DEFINE_COLUMN(l_cursor_id,1,l_transaction_id);
2179: oe_debug_pub.add('Before execute ',1);
2180: l_retval := DBMS_SQL.EXECUTE(l_cursor_id);
2181:
2182: LOOP
2183: oe_debug_pub.add('J: ' || J,1);
2179: oe_debug_pub.add('Before execute ',1);
2180: l_retval := DBMS_SQL.EXECUTE(l_cursor_id);
2181:
2182: LOOP
2183: oe_debug_pub.add('J: ' || J,1);
2184:
2185: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
2186: EXIT;
2187: END IF;
2188:
2189: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_transaction_id);
2190: J := J +1 ;
2191:
2192: oe_debug_pub.add('l_transaction_id: ' || l_transaction_id,1);
2193: oe_debug_pub.add('J1: ' || J,1);
2194:
2195: Transactionids.extend(1);
2196: Transactionids(J) := l_transaction_id;
2189: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_transaction_id);
2190: J := J +1 ;
2191:
2192: oe_debug_pub.add('l_transaction_id: ' || l_transaction_id,1);
2193: oe_debug_pub.add('J1: ' || J,1);
2194:
2195: Transactionids.extend(1);
2196: Transactionids(J) := l_transaction_id;
2197:
2196: Transactionids(J) := l_transaction_id;
2197:
2198: END LOOP;
2199:
2200: oe_debug_pub.add('Before Close ',1);
2201: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
2202:
2203:
2204: oe_debug_pub.add('Count: ' || Transactionids.COUNT,1);
2200: oe_debug_pub.add('Before Close ',1);
2201: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
2202:
2203:
2204: oe_debug_pub.add('Count: ' || Transactionids.COUNT,1);
2205:
2206: FORALL J in 1..Transactionids.COUNT
2207: Delete
2208: from oe_processing_msgs_tl
2218:
2219: commit;
2220:
2221: IF l_debug_level > 0 THEN
2222: oe_debug_pub.add( 'EXITING OE_MSG_PUB.DELETE_OI_MESSAGE' ) ;
2223: END IF;
2224:
2225: /*
2226: EXCEPTION
2226: EXCEPTION
2227:
2228: WHEN OTHERS THEN
2229:
2230: oe_debug_pub.add('Error : ' || sqlerrm);*/
2231: END DELETE_OI_MESSAGE;
2232:
2233: -- 4091185 - Added parameter p_type.
2234: PROCEDURE Transfer_Msg_Stack
2237: IS
2238: l_count NUMBER;
2239: l_message VARCHAR2(2000);
2240: --
2241: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2242: --
2243: BEGIN
2244:
2245: IF p_msg_index IS NOT NULL THEN
2266: fnd_msg_pub.delete_msg; -- Adding this call to fix 4642102.
2267: EXCEPTION
2268: WHEN OTHERS THEN
2269: IF l_debug_level > 0 THEN
2270: oe_debug_pub.add('Error in Procedure Transfer_Msg_Stack ' || sqlerrm);
2271: END IF;
2272: END Transfer_Msg_Stack;
2273:
2274: /* Procedure Save_API_Messages will be used by many API's to store the
2289: IS
2290: Pragma AUTONOMOUS_TRANSACTION;
2291:
2292: l_count_msg NUMBER;
2293: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2294: l_errmsg VARCHAR2(1000) := Null;
2295: l_request_id NUMBER := p_request_id;
2296: l_message_source_code VARCHAR2(3) := p_message_source_code;
2297:
2298: BEGIN
2299:
2300:
2301: IF l_debug_level > 0 THEN
2302: oe_debug_pub.add( 'ENTER Save_API_Messages' , 1 ) ;
2303: END IF;
2304:
2305: IF nvl(fnd_profile.value('CONC_REQUEST_ID'),0) > 0
2306: THEN
2310:
2311: l_errmsg := ltrim(Substr(SQLERRM,1,1000));
2312:
2313: IF l_errmsg IS NOT NULL THEN
2314: oe_debug_pub.add('l_errmsg ' || l_errmsg, 2 ) ;
2315: END IF;
2316:
2317: /* Commenting the following code
2318: to fix the bug 5201283 as we do not need to
2322: IF l_errmsg IS NOT NULL
2323: AND substr(l_errmsg,5,4) <> '0000'
2324: AND rtrim(ltrim(l_errmsg)) <> 'ORA-20001:'
2325: AND upper(substr(ltrim(l_errmsg),1,5)) <> 'USER-' THEN
2326: oe_debug_pub.add('l_errmsg ' || l_errmsg, 2 ) ;
2327: oe_msg_pub.add_text(p_message_text => l_errmsg);
2328: END IF;
2329:
2330: */
2336: END IF;
2337: End Loop;
2338:
2339: IF l_debug_level > 0 THEN
2340: oe_debug_pub.add( 'EXIT Save_API_Messages' , 1 ) ;
2341: END IF;
2342:
2343: COMMIT;
2344: EXCEPTION
2343: COMMIT;
2344: EXCEPTION
2345: WHEN OTHERS THEN
2346: IF l_debug_level > 0 THEN
2347: oe_debug_pub.add('Error in Procedure Save_API_Messages ' || sqlerrm);
2348: END IF;
2349: END Save_API_Messages;
2350: PROCEDURE Update_status_code(
2351: p_request_id IN NUMBER DEFAULT NULL
2368: ,p_sold_to_org_id IN NUMBER DEFAULT NULL
2369: ,p_status_code IN Varchar2)
2370: IS
2371: --
2372: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2373:
2374: l_transaction_id NUMBER;
2375: l_cursor_id INTEGER;
2376: l_retval INTEGER;
2377: l_stmt VARCHAR2(4000) :=NULL;
2378: --
2379: BEGIN
2380:
2381: oe_debug_pub.add('p_entity_code: ' || p_entity_code,2);
2382: oe_debug_pub.add('p_entity_id: ' || p_entity_id,2);
2383: oe_debug_pub.add('p_header_id: ' || p_header_id,2);
2384: oe_debug_pub.add('p_line_id: ' || p_line_id,2);
2385: oe_debug_pub.add('p_order_source_id: ' || p_order_source_id,2);
2378: --
2379: BEGIN
2380:
2381: oe_debug_pub.add('p_entity_code: ' || p_entity_code,2);
2382: oe_debug_pub.add('p_entity_id: ' || p_entity_id,2);
2383: oe_debug_pub.add('p_header_id: ' || p_header_id,2);
2384: oe_debug_pub.add('p_line_id: ' || p_line_id,2);
2385: oe_debug_pub.add('p_order_source_id: ' || p_order_source_id,2);
2386: oe_debug_pub.add('p_orig_sys_document_ref: ' || p_orig_sys_document_ref,2);
2379: BEGIN
2380:
2381: oe_debug_pub.add('p_entity_code: ' || p_entity_code,2);
2382: oe_debug_pub.add('p_entity_id: ' || p_entity_id,2);
2383: oe_debug_pub.add('p_header_id: ' || p_header_id,2);
2384: oe_debug_pub.add('p_line_id: ' || p_line_id,2);
2385: oe_debug_pub.add('p_order_source_id: ' || p_order_source_id,2);
2386: oe_debug_pub.add('p_orig_sys_document_ref: ' || p_orig_sys_document_ref,2);
2387: oe_debug_pub.add('p_process_activity: ' || p_process_activity,2);
2380:
2381: oe_debug_pub.add('p_entity_code: ' || p_entity_code,2);
2382: oe_debug_pub.add('p_entity_id: ' || p_entity_id,2);
2383: oe_debug_pub.add('p_header_id: ' || p_header_id,2);
2384: oe_debug_pub.add('p_line_id: ' || p_line_id,2);
2385: oe_debug_pub.add('p_order_source_id: ' || p_order_source_id,2);
2386: oe_debug_pub.add('p_orig_sys_document_ref: ' || p_orig_sys_document_ref,2);
2387: oe_debug_pub.add('p_process_activity: ' || p_process_activity,2);
2388: oe_debug_pub.add('p_sold_to_org_id: ' || p_sold_to_org_id,2);
2381: oe_debug_pub.add('p_entity_code: ' || p_entity_code,2);
2382: oe_debug_pub.add('p_entity_id: ' || p_entity_id,2);
2383: oe_debug_pub.add('p_header_id: ' || p_header_id,2);
2384: oe_debug_pub.add('p_line_id: ' || p_line_id,2);
2385: oe_debug_pub.add('p_order_source_id: ' || p_order_source_id,2);
2386: oe_debug_pub.add('p_orig_sys_document_ref: ' || p_orig_sys_document_ref,2);
2387: oe_debug_pub.add('p_process_activity: ' || p_process_activity,2);
2388: oe_debug_pub.add('p_sold_to_org_id: ' || p_sold_to_org_id,2);
2389: oe_debug_pub.add('p_status_code: ' || p_status_code,2);
2382: oe_debug_pub.add('p_entity_id: ' || p_entity_id,2);
2383: oe_debug_pub.add('p_header_id: ' || p_header_id,2);
2384: oe_debug_pub.add('p_line_id: ' || p_line_id,2);
2385: oe_debug_pub.add('p_order_source_id: ' || p_order_source_id,2);
2386: oe_debug_pub.add('p_orig_sys_document_ref: ' || p_orig_sys_document_ref,2);
2387: oe_debug_pub.add('p_process_activity: ' || p_process_activity,2);
2388: oe_debug_pub.add('p_sold_to_org_id: ' || p_sold_to_org_id,2);
2389: oe_debug_pub.add('p_status_code: ' || p_status_code,2);
2390: oe_debug_pub.add('p_request_id: ' || p_request_id,2);
2383: oe_debug_pub.add('p_header_id: ' || p_header_id,2);
2384: oe_debug_pub.add('p_line_id: ' || p_line_id,2);
2385: oe_debug_pub.add('p_order_source_id: ' || p_order_source_id,2);
2386: oe_debug_pub.add('p_orig_sys_document_ref: ' || p_orig_sys_document_ref,2);
2387: oe_debug_pub.add('p_process_activity: ' || p_process_activity,2);
2388: oe_debug_pub.add('p_sold_to_org_id: ' || p_sold_to_org_id,2);
2389: oe_debug_pub.add('p_status_code: ' || p_status_code,2);
2390: oe_debug_pub.add('p_request_id: ' || p_request_id,2);
2391:
2384: oe_debug_pub.add('p_line_id: ' || p_line_id,2);
2385: oe_debug_pub.add('p_order_source_id: ' || p_order_source_id,2);
2386: oe_debug_pub.add('p_orig_sys_document_ref: ' || p_orig_sys_document_ref,2);
2387: oe_debug_pub.add('p_process_activity: ' || p_process_activity,2);
2388: oe_debug_pub.add('p_sold_to_org_id: ' || p_sold_to_org_id,2);
2389: oe_debug_pub.add('p_status_code: ' || p_status_code,2);
2390: oe_debug_pub.add('p_request_id: ' || p_request_id,2);
2391:
2392: l_cursor_id := DBMS_SQL.OPEN_CURSOR;
2385: oe_debug_pub.add('p_order_source_id: ' || p_order_source_id,2);
2386: oe_debug_pub.add('p_orig_sys_document_ref: ' || p_orig_sys_document_ref,2);
2387: oe_debug_pub.add('p_process_activity: ' || p_process_activity,2);
2388: oe_debug_pub.add('p_sold_to_org_id: ' || p_sold_to_org_id,2);
2389: oe_debug_pub.add('p_status_code: ' || p_status_code,2);
2390: oe_debug_pub.add('p_request_id: ' || p_request_id,2);
2391:
2392: l_cursor_id := DBMS_SQL.OPEN_CURSOR;
2393:
2386: oe_debug_pub.add('p_orig_sys_document_ref: ' || p_orig_sys_document_ref,2);
2387: oe_debug_pub.add('p_process_activity: ' || p_process_activity,2);
2388: oe_debug_pub.add('p_sold_to_org_id: ' || p_sold_to_org_id,2);
2389: oe_debug_pub.add('p_status_code: ' || p_status_code,2);
2390: oe_debug_pub.add('p_request_id: ' || p_request_id,2);
2391:
2392: l_cursor_id := DBMS_SQL.OPEN_CURSOR;
2393:
2394:
2528: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
2529: EXCEPTION
2530: WHEN OTHERS THEN
2531: IF l_debug_level > 0 THEN
2532: oe_debug_pub.add('Error in Procedure Update_status_code ' || sqlerrm);
2533: END IF;
2534: End Update_status_code;
2535:
2536: --Bug 8514085 Starts