[Home] [Help]
PACKAGE BODY: APPS.PA_RES_AVL_PVT
Source
1 PACKAGE BODY PA_RES_AVL_PVT
2 -- $Header: PARRAVLB.pls 120.1 2005/08/19 16:59:49 mwasowic noship $
3 AS
4 -- Standard Table Handler procedures for PA_RES_AVAILABILITY table
5 PROCEDURE Insert_Row (
6 P_RESOURCE_ID IN pa_res_availability.resource_id%type
7 ,P_START_DATE IN pa_res_availability.start_date%type
8 ,P_END_DATE IN pa_res_availability.end_date%type
9 ,P_RECORD_TYPE IN pa_res_availability.record_type%type
10 ,P_PERCENT IN pa_res_availability.percent%type
11 ,P_HOURS IN pa_res_availability.hours%type
12 ,X_ROW_ID OUT NOCOPY ROWID --File.Sql.39 bug 4440895
13 ,X_RETURN_STATUS OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
14 )
15 IS
16 BEGIN
17
18 PA_DEBUG.init_err_stack('PA_RES_AVL_PVT.Insert_Row');
19
20 -- Initialize the return status to success
21 x_return_status := FND_API.G_RET_STS_SUCCESS;
22
23 insert into PA_RES_AVAILABILITY (
24 RESOURCE_ID
25 ,START_DATE
26 ,END_DATE
27 ,RECORD_TYPE
28 ,PERCENT
29 ,HOURS
30 ,LAST_UPDATE_DATE
31 ,LAST_UPDATED_BY
32 ,CREATION_DATE
33 ,CREATED_BY
34 ,LAST_UPDATE_LOGIN )
35 values (
36 P_RESOURCE_ID
37 ,P_START_DATE
38 ,P_END_DATE
39 ,P_RECORD_TYPE
40 ,P_PERCENT
41 ,P_HOURS
42 ,sysdate
43 ,fnd_global.user_id
44 ,sysdate
45 ,fnd_global.user_id
46 ,fnd_global.login_id
47 )
48 RETURNING rowid INTO X_ROW_ID;
49
50 EXCEPTION
51 WHEN OTHERS THEN
52 -- Set the exception Message and the stack
53 FND_MSG_PUB.add_exc_msg
54 (p_pkg_name => 'PA_RES_AVL_PVT'
55 ,p_procedure_name => PA_DEBUG.G_Err_Stack );
56
57 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
58
59 END Insert_Row;
60
61
62 PROCEDURE Update_Row (
63 P_RESOURCE_ID IN pa_res_availability.resource_id%type
64 ,P_START_DATE IN pa_res_availability.start_date%type
65 ,P_END_DATE IN pa_res_availability.end_date%type := FND_API.G_MISS_DATE
66 ,P_RECORD_TYPE IN pa_res_availability.record_type%type
67 ,P_PERCENT IN pa_res_availability.percent%type := FND_API.G_MISS_NUM
68 ,P_HOURS IN pa_res_availability.hours%type := FND_API.G_MISS_NUM
69 ,X_RETURN_STATUS OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
70 )
71 IS
72 BEGIN
73
74 PA_DEBUG.init_err_stack('PA_RES_AVL_PVT.Update_Row');
75
76 -- Initialize the return status to success
77 x_return_status := FND_API.G_RET_STS_SUCCESS;
78
79 update PA_RES_AVAILABILITY
80 set END_DATE = DECODE(p_end_date, FND_API.G_MISS_DATE, END_DATE, p_end_date)
81 ,PERCENT = DECODE(p_percent, FND_API.G_MISS_NUM, PERCENT, p_percent)
82 ,HOURS = DECODE(p_hours, FND_API.G_MISS_NUM, HOURS, p_hours)
83 ,LAST_UPDATE_DATE = sysdate
84 ,LAST_UPDATED_BY = fnd_global.user_id
85 ,LAST_UPDATE_LOGIN = fnd_global.login_id
86 where
87 RESOURCE_ID = p_resource_id
88 and START_DATE = p_start_date
89 and RECORD_TYPE = p_record_type;
90
91 EXCEPTION
92 WHEN OTHERS THEN
93 -- Set the exception Message and the stack
94 FND_MSG_PUB.add_exc_msg
95 (p_pkg_name => 'PA_RES_AVL_PVT'
96 ,p_procedure_name => PA_DEBUG.G_Err_Stack );
97
98 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
99
100 END Update_Row;
101
102 PROCEDURE Delete_Row (
103 P_RESOURCE_ID IN pa_res_availability.resource_id%type
104 ,P_START_DATE IN pa_res_availability.start_date%type
105 ,P_RECORD_TYPE IN pa_res_availability.record_type%type
106 ,X_RETURN_STATUS OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
107 )
108 IS
109 BEGIN
110
111 PA_DEBUG.init_err_stack('PA_RES_AVL_PVT.Delete_Row');
112
113 -- Initialize the return status to success
114 x_return_status := FND_API.G_RET_STS_SUCCESS;
115
116 delete from PA_RES_AVAILABILITY
117 where
118 RESOURCE_ID = p_resource_id
119 and START_DATE = p_start_date
120 and RECORD_TYPE = p_record_type;
121
122 EXCEPTION
123 WHEN OTHERS THEN
124 -- Set the exception Message and the stack
125 FND_MSG_PUB.add_exc_msg
126 (p_pkg_name => 'PA_RES_AVL_PVT'
127 ,p_procedure_name => PA_DEBUG.G_Err_Stack );
128
129 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130
131 END Delete_Row;
132
133
134 END PA_RES_AVL_PVT;