PACKAGE BODY: APPS.PA_CLIENT_EXTN_PM

Source

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;