1 PACKAGE BODY pa_ce_ar_notify_wf AS
2 /* $Header: PAPWPCEB.pls 120.0.12010000.1 2008/10/30 08:07:37 atshukla noship $ */
3
4 -- ===================================================
5 --
6 --Name: Select_Project_Manager
7 --Type: Procedure
8 --Description: This client extension returns the project_manager ID
9 -- to the calling PA_PWP_NOTIFICATION Select_Project_Manager
10 -- procedure.
11 --
12 --
13 --Called subprograms: none.
14 --
15 --
16 --
17 --History:
18 -- 26-Aug-2008 atShukla - Created
19 --
20 -- IN
21 -- p_project_id - unique identifier for the project that needs approval
22 --
23 -- OUT
24 -- p_project_manager_id - unique identifier of the employee
25 -- (employee_id in per_people_f table)
26 --
27 PROCEDURE Select_Project_Manager (p_project_id IN NUMBER
28 , p_project_manager_id OUT NOCOPY NUMBER
29 , p_return_status IN OUT NOCOPY NUMBER)
30 IS
31 /*
32 You can use this procedure to add any additional rules to determine
33 a person who should receive notifications for releasing hold on Invoices.
34 This procedure is being used by the Workflow APIs and determine who
35 should recieve notification when a receipt is applied to an AR Invoice.
36 By default parent procedure fetches the Project Manager of the
37 project which relates to the AR Invoice that receives cash when a
38 receipt is applied.
39 */
40 BEGIN
41 /* Please update the Result status in accordance with the details below.
42 Result Status : p_return_status
43 =0 => NO Client Extention Implemented.
44 >0 => Client Extention Implemented and successfully fetched the Project Manager ID.
45 <0 => Client Extention Implemented and failed to fetch the Project Manager ID.
46 */
47 p_return_status := 0;
48 --
49 --The following algorithm can be used to handle known error conditions
50 --When this code is used the arguments and there values will be displayed
51 --in the error message that is send by workflow.
52 --
53 --IF <error condition>
54 --THEN
55 -- WF_CORE.TOKEN('ARG1', arg1);
56 -- WF_CORE.TOKEN('ARGn', argn);
57 -- WF_CORE.RAISE('ERROR_NAME');
58 --END IF;
59
60 -- Please uncomment and chenge this variable to any positive value (ex. =1) if you want to add any client extention.
61 -- p_return_status := 1;
62 EXCEPTION
63 WHEN OTHERS THEN
64 p_return_status := -1;
65 WF_CORE.CONTEXT('PA_CE_AR_NOTIFY_WF','SELECT_PROJECT_MANAGER');
66 RAISE;
67
68 END Select_Project_Manager;
69
70 END pa_ce_ar_notify_wf;