[Home] [Help]
1: PACKAGE BODY PA_PWP_NOTIFICATION as
2: /* $Header: PAPWPWFB.pls 120.0.12010000.9 2009/10/08 10:49:15 atshukla noship $ */
3:
4: -------------------------------------------------------------------------------
5: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
19: PROCEDURE log_message (p_log_msg IN VARCHAR2, debug_level IN NUMBER)
20: IS
21: BEGIN
22: IF P_DEBUG_MODE = 'Y' THEN
23: pa_debug.write('log_message: ' || 'PA PWP Notification: ', 'log: ' || p_log_msg, debug_level);
24: END IF;
25: NULL;
26: END log_message;
27:
76:
77: log_message('Receive_BE: Before Calling Wf: receivable_application_id=' || l_receivable_application_id || '*', 3);
78:
79: -- Call Wf initiator...
80: PA_PWP_NOTIFICATION.START_AR_NOTIFY_WF (p_receivable_application_id => l_receivable_application_id
81: ,x_err_stack => l_err_stack
82: ,x_err_stage => l_err_stage
83: ,x_err_code => l_err_code);
84:
92: END IF;
93:
94: EXCEPTION
95: WHEN OTHERS THEN
96: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION', 'RECEIVE_BE', p_event.getEventName(), p_subscription_guid);
97: WF_EVENT.setErrorInfo(p_event, 'ERROR');
98: RETURN 'ERROR';
99:
100: END Receive_BE;
415: log_message('START_AR_NOTIFY_WF: Normal Exit', 3);
416:
417: EXCEPTION
418: WHEN FND_API.G_EXC_ERROR THEN
419: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION ','START_AR_NOTIFY_WF');
420: RAISE;
421: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
422: x_err_code := SQLCODE;
423: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION ','START_AR_NOTIFY_WF');
419: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION ','START_AR_NOTIFY_WF');
420: RAISE;
421: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
422: x_err_code := SQLCODE;
423: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION ','START_AR_NOTIFY_WF');
424: RAISE;
425: WHEN OTHERS THEN
426: x_err_code := SQLCODE;
427: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION','START_AR_NOTIFY_WF');
423: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION ','START_AR_NOTIFY_WF');
424: RAISE;
425: WHEN OTHERS THEN
426: x_err_code := SQLCODE;
427: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION','START_AR_NOTIFY_WF');
428: RAISE;
429:
430: END START_AR_NOTIFY_WF;
431:
1071: END IF;
1072:
1073: EXCEPTION
1074: WHEN FND_API.G_EXC_ERROR THEN
1075: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION','SELECT_PROJECT_MANAGER',itemtype, itemkey, to_char(actid), funcmode);
1076: RAISE;
1077:
1078: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1079: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION','SELECT_PROJECT_MANAGER',itemtype, itemkey, to_char(actid), funcmode);
1075: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION','SELECT_PROJECT_MANAGER',itemtype, itemkey, to_char(actid), funcmode);
1076: RAISE;
1077:
1078: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1079: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION','SELECT_PROJECT_MANAGER',itemtype, itemkey, to_char(actid), funcmode);
1080: RAISE;
1081:
1082: WHEN OTHERS THEN
1083: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION','SELECT_PROJECT_MANAGER',itemtype, itemkey, to_char(actid), funcmode);
1079: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION','SELECT_PROJECT_MANAGER',itemtype, itemkey, to_char(actid), funcmode);
1080: RAISE;
1081:
1082: WHEN OTHERS THEN
1083: WF_CORE.CONTEXT('PA_PWP_NOTIFICATION','SELECT_PROJECT_MANAGER',itemtype, itemkey, to_char(actid), funcmode);
1084: RAISE;
1085: END Select_Project_Manager;
1086:
1087:
1200: dbms_lob.read(p_clob, v_size, 1, v_text);
1201: END APPEND_VARCHAR_TO_CLOB;
1202: ------------------------------
1203:
1204: END PA_PWP_NOTIFICATION;