[Home] [Help]
1: PACKAGE BODY pa_workflow_utils AS
2: /* $Header: PAWFUTLB.pls 120.3.12010000.3 2008/11/18 20:47:15 asahoo ship $ */
3:
4: -- -------------------------------------------------------------------------------------
5: -- GLOBAL CONSTANTS
8: G_USER_ID CONSTANT NUMBER := FND_GLOBAL.user_id;
9: G_LOGIN_ID CONSTANT NUMBER := FND_GLOBAL.login_id;
10: G_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
11:
12: g_module_name VARCHAR2(100) := 'pa_workflow_utils';
13:
14:
15:
16: -- -------------------------------------------------------------------------------------
134: pa_debug.g_err_stage := 'LOG:'||'Inserting into pa_wf_processes: wf_type_code['||p_wf_type_code||']';
135: pa_debug.g_err_stage := pa_debug.g_err_stage||'ItemType['||p_item_type||']ItemKey['||p_item_key||']';
136: pa_debug.g_err_stage := pa_debug.g_err_stage||'Key1['||p_entity_key1||']Key2['||l_entity_key2||']';
137: PA_DEBUG.write
138: (x_Module => 'pa_workflow_utils.Insert_WF_Processes'
139: ,x_Msg => pa_debug.g_err_stage
140: ,x_Log_Level => 3);
141: END IF;
142:
180: WHEN OTHERS
181: THEN
182: p_err_code := SQLCODE;
183: ROLLBACK TO Insert_WF_Processes_pvt;
184: WF_CORE.CONTEXT('PA_WORKFLOW_UTILS','INSERT_WF_PROCESSES', p_item_type, p_item_key );
185: RAISE;
186:
187: END Insert_WF_Processes;
188:
249: -- Based on the Responsibility, Intialize the Application
250: FND_GLOBAL.Apps_Initialize
251: (user_id => l_workflow_started_by_id
252: , resp_id => l_resp_id
253: , resp_appl_id => pa_workflow_utils.get_application_id(l_resp_id)
254: );
255:
256: IF P_PA_DEBUG_MODE = 'Y' Then
257: PA_DEBUG.g_err_stage := 'Procedure Set_Global_Attr - End';
266:
267: WHEN OTHERS
268: THEN
269: p_err_code := SQLCODE;
270: WF_CORE.CONTEXT('PA_WORKFLOW_UTILS','SET_GLOBAL_ATTR', p_item_type, p_item_key );
271: RAISE;
272:
273: END Set_Global_Attr;
274:
399:
400: EXCEPTION
401: WHEN OTHERS
402: THEN
403: WF_CORE.CONTEXT('PA_WORKFLOW_UTILS','SET_NOTIFICATION_MESSAGES', p_item_type, p_item_key );
404: RAISE;
405:
406: END Set_Notification_Messages;
407: -- ==================================================
727: ,x_Log_Level => 3);
728: END IF;
729:
730: IF P_PA_DEBUG_MODE = 'Y' Then
731: PA_DEBUG.g_err_stage := 'PA_WORKFLOW_UTILS.Insert_WF_Processes - Begin';
732: PA_DEBUG.write
733: (x_Module => g_module_name
734: ,x_Msg => pa_debug.g_err_stage
735: ,x_Log_Level => 3);
734: ,x_Msg => pa_debug.g_err_stage
735: ,x_Log_Level => 3);
736: END IF;
737:
738: PA_WORKFLOW_UTILS.Insert_WF_Processes
739: (p_wf_type_code => p_wf_type_code
740: ,p_item_type => p_item_type
741: ,p_item_key => p_item_key
742: ,p_entity_key1 => p_entity_key1
746: ,p_err_stage => l_err_stage
747: ,p_err_stack => l_err_stack
748: );
749: IF P_PA_DEBUG_MODE = 'Y' Then
750: PA_DEBUG.g_err_stage := 'PA_WORKFLOW_UTILS.Insert_WF_Processes - End';
751: PA_DEBUG.write
752: (x_Module => g_module_name
753: ,x_Msg => pa_debug.g_err_stage
754: ,x_Log_Level => 3);
821: l_error_msg_code VARCHAR2(30);
822: l_msg_index_out NUMBER;
823: l_return_status VARCHAR2(2000);
824: l_debug_mode VARCHAR2(30);
825: l_module_name VARCHAR2(100) := 'pa.plsql.PA_WORKFLOW_UTILS';
826:
827: l_class_attr constant varchar2(7) := 'class="';
828: l_end_quote constant varchar2(1) := '"';
829: l_start_index number;
854: ,x_Log_Level => 3);
855: END IF;
856: x_msg_count := 0;
857: x_return_status := FND_API.G_RET_STS_SUCCESS;
858: pa_debug.set_err_stack('PA_WORKFLOW_UTILS.modify_wf_clob_content');
859: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
860: l_debug_mode := NVL(l_debug_mode, 'Y');
861: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
862: l_start_index := dbms_lob.instr(p_document,l_class_attr,1,1);
910: WHEN others THEN
911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
912: x_msg_count := 1;
913: x_msg_data := SQLERRM;
914: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_workflow_utils'
915: ,p_procedure_name => 'modify_wf_clob_content');
916:
917:
918: pa_debug.reset_err_stack;
921: END modify_wf_clob_content;
922:
923: -- ==================================================
924:
925: END pa_workflow_utils;