[Home] [Help]
1: PACKAGE BODY OE_ELECMSGS_PVT AS
2: /* $Header: OEXVELMB.pls 120.5 2005/12/09 05:09:21 kmuruges ship $ */
3:
4: PROCEDURE do_query(p_elec_msgs_tbl IN OUT NOCOPY /* file.sql.39 change */ Elec_Msgs_Summary_Tbl,
5: p_order_source_id IN NUMBER,
998: IF l_transaction_type = 'CHO'
999: AND l_response_flag = 'Y'
1000: AND FND_PROFILE.VALUE('ONT_3A7_RESPONSE_REQUIRED') = 'Y'
1001: THEN
1002: l_parent_document_id := OE_ELECMSGS_PVT.Find_Parent_Document_Id (l_order_source_id,
1003: l_orig_sys_document_ref,
1004: l_sold_to_org_id,
1005: l_org_id
1006: );
1009: oe_debug_pub.add(l_order_Source_id||l_orig_sys_document_ref||l_sold_to_org_id||l_transaction_type||l_document_id||l_status||l_message_text||l_response_flag);
1010: END IF;
1011: -- here check if the record already exists for those key values
1012: -- if yes, then update, otherwise create
1013: OE_ELECMSGS_PVT.Create_History_Entry (
1014: p_order_source_id => l_order_source_id,
1015: p_sold_to_org_id => l_sold_to_org_id,
1016: p_orig_sys_document_ref => l_orig_sys_document_ref,
1017: p_transaction_type => l_transaction_type,
1032: x_return_status => l_result
1033: );
1034:
1035: IF l_result = FND_API.G_RET_STS_ERROR THEN -- this return status indicates duplicate index value
1036: IF OE_ELECMSGS_PVT.Find_History_Entry ( p_order_source_id => l_order_source_id,
1037: p_sold_to_org_id => l_sold_to_org_id,
1038: p_orig_sys_document_ref => l_orig_sys_document_ref,
1039: p_transaction_type => l_transaction_type,
1040: p_document_id => l_document_id,
1051: oe_debug_pub.add('Out of sequence: p_itemkey : ' || p_itemkey || 'last_itemkey ' || l_last_itemkey);
1052: END IF;
1053: END IF;
1054:
1055: OE_ELECMSGS_PVT.Update_History_Entry (
1056: p_order_source_id => l_order_source_id,
1057: p_sold_to_org_id => l_sold_to_org_id,
1058: p_orig_sys_document_ref => l_orig_sys_document_ref,
1059: p_transaction_type => l_transaction_type,
1085: EXCEPTION
1086: WHEN OTHERS THEN
1087: -- The line below records this function call in the error system
1088: -- in the case of an exception.
1089: wf_core.context('OE_Elecmsgs_Pvt', 'Create_Or_Update_Hist_WF',
1090: p_itemtype, p_itemkey, to_char(p_actid), p_funcmode);
1091: IF l_debug_level > 0 THEN
1092: oe_debug_pub.add('OTHERS in Create_Or_Update_Hist_WF ' || SQLERRM );
1093: END IF;
3087: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3088: --
3089: BEGIN
3090: IF l_debug_level > 0 THEN
3091: oe_debug_pub.add( 'ENTERING OE_ELECMSGS_PVT.INITIALIZE_ACCESS_LIST') ;
3092: END IF;
3093:
3094: IF FND_FUNCTION.TEST('ONT_OEXOEORD_RETRY_WF') THEN
3095: Add_Access('RETRY_WF');
3099: Add_Access('PROCESS_MESSAGES');
3100: END IF;
3101:
3102: IF l_debug_level > 0 THEN
3103: oe_debug_pub.add( 'EXITING OE_ELECMSGS_PVT.INITIALIZE_ACCESS_LIST') ;
3104: END IF;
3105:
3106: X_Access_List := OE_GLOBALS.G_EM_ACCESS_LIST;
3107: END Initialize_EM_Access_List;
3113: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3114: --
3115: BEGIN
3116: IF l_debug_level > 0 THEN
3117: oe_debug_pub.add( 'ENTERING OE_ELECMSGS_PVT.ADD_ACCESS' ) ;
3118: END IF;
3119: IF OE_GLOBALS.G_EM_ACCESS_List.Count=0 THEN
3120: OE_GLOBALS.G_EM_Access_List(1):=Function_Name;
3121: ELSIF OE_GLOBALS.G_EM_ACCESS_List.Count>0 THEN
3122: i:=OE_GLOBALS.G_EM_ACCESS_List.Last+1;
3123: OE_GLOBALS.G_EM_ACCESS_List(i):=Function_Name;
3124: END IF;
3125: IF l_debug_level > 0 THEN
3126: oe_debug_pub.add( 'EXITING OE_ELECMSGS_PVT.ADD_ACCESS') ;
3127: END IF;
3128: EXCEPTION
3129: When Others Then
3130: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3139: END Add_Access;
3140:
3141:
3142: END OE_ELECMSGS_PVT;