1 package body PA_Client_Extn_PM as
2 /* $Header: PAPMGCEB.pls 120.2 2005/08/23 22:32:26 avaithia noship $ */
3
4 Procedure customize_dates (
5 p_pm_project_reference IN VARCHAR2 := NULL,
6 p_pm_task_reference IN VARCHAR2 := NULL,
7 p_project_id IN NUMBER := NULL,
8 p_task_id IN NUMBER := NULL,
9 p_pm_product_code IN VARCHAR2,
10 p_in_start_date IN DATE,
11 p_in_completion_date IN DATE,
12 p_actual_start_date IN DATE := NULL,
13 p_actual_finish_date IN DATE := NULL,
14 p_early_start_date IN DATE := NULL,
15 p_early_finish_date IN DATE := NULL,
16 p_late_start_date IN DATE := NULL,
17 p_late_finish_date IN DATE := NULL,
18 p_scheduled_start_date IN DATE := NULL,
19 p_scheduled_finish_date IN DATE := NULL,
20 p_out_start_date OUT NOCOPY DATE , --File.Sql.39 bug 4440895
21 p_out_completion_date OUT NOCOPY DATE, --File.Sql.39 bug 4440895
22 p_error_code OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
23 p_error_message OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
24
25 IS
26
27 BEGIN
28 p_error_code := 0;
29 p_error_message := NULL;
30 p_out_start_date := p_in_start_date;
31 p_out_completion_date := p_in_completion_date;
32 EXCEPTION
33 WHEN OTHERS THEN
34 p_error_code := -1;
35
36 END customize_dates;
37
38 end PA_Client_Extn_PM;