[Home] [Help]
PACKAGE BODY: APPS.PA_STATUS_LIST_ITEMS_PVT
Source
1 PACKAGE BODY PA_STATUS_LIST_ITEMS_pvt AS
2 /* $Header: PACISIVB.pls 120.1 2005/08/19 16:18:23 mwasowic noship $ */
3
4
5 -- --------------------------------------------------------------------------
6 -- PROCEDURE
7 -- Insert_Row
8 -- PURPOSE
9 -- This procedure inserts a row into the PA_STATUS_LIST_ITEMS table.
10 --
11 -- HISTORY
12 -- 28-JAN-04 svenketa Created
13
14 PROCEDURE CreateStatusListItem (
15 P_RECORD_VERSION_NUMBER IN NUMBER,
16 PX_STATUS_LIST_ITEM_ID IN OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
17 P_STATUS_LIST_ID IN NUMBER,
18 P_PROJECT_STATUS_CODE IN VARCHAR2,
19 P_LAST_UPDATE_DATE IN DATE ,
20 P_LAST_UPDATED_BY IN NUMBER ,
21 P_CREATION_DATE IN DATE ,
22 P_CREATED_BY IN NUMBER ,
23 P_LAST_UPDATE_LOGIN IN NUMBER ,
24 X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
25 X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
26 X_MSG_DATA OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
27 ) IS
28 BEGIN
29
30 -- Initialize the Error Stack
31 PA_DEBUG.init_err_stack('PA_STATUS_LIST_ITEMS_PVT.CreateStatusListItem');
32 x_msg_count := 0;
33 x_msg_data := NULL;
34
35
36 -- Initialize the return status to success
37 x_return_status := FND_API.G_RET_STS_SUCCESS;
38
39
40 PA_STATUS_LIST_ITEMS_PKG.INSERT_ROW
41 (
42 X_RECORD_VERSION_NUMBER=> P_RECORD_VERSION_NUMBER,
43 X_STATUS_LIST_ITEM_ID => PX_STATUS_LIST_ITEM_ID,
44 X_STATUS_LIST_ID => P_STATUS_LIST_ID,
45 X_PROJECT_STATUS_CODE => P_PROJECT_STATUS_CODE,
46 X_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
47 X_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
48 X_CREATION_DATE => P_CREATION_DATE,
49 X_CREATED_BY => P_CREATED_BY,
50 X_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN
51 );
52 -- Reset the Error Stack
53 PA_DEBUG.reset_err_stack;
54
55 EXCEPTION
56 WHEN OTHERS THEN
57 x_msg_count := 1;
58 x_msg_data := substr(SQLERRM,1,240);
59 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
60 FND_MSG_PUB.add_exc_msg
61 (p_pkg_name => 'PA_STATUS_LIST_ITEMS_PVT'
62 , p_procedure_name => PA_DEBUG.G_Err_Stack
63 , p_error_text => substr(SQLERRM,1,240));
64 RETURN;
65
66 END CreateStatusListItem;
67
68
69
70 -- -------------------------------------------------------------------------
71 -- PROCEDURE
72 -- Update_Row
73 -- PURPOSE
74 -- This procedure updates a row in the PA_STATUS_LIST_ITEMS table.
75 --
76 -- HISTORY
77 -- 16-JAN-04 svenketa Created
78
79 PROCEDURE UpdateStatusListItem (
80 P_RECORD_VERSION_NUMBER IN NUMBER,
81 P_STATUS_LIST_ITEM_ID IN NUMBER,
82 P_STATUS_LIST_ID IN NUMBER,
83 P_PROJECT_STATUS_CODE IN VARCHAR2,
84 P_LAST_UPDATE_DATE IN DATE ,
85 P_LAST_UPDATED_BY IN NUMBER ,
86 P_CREATION_DATE IN DATE ,
87 P_CREATED_BY IN NUMBER ,
88 P_LAST_UPDATE_LOGIN IN NUMBER ,
89 X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
90 X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
91 X_MSG_DATA OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
92 ) IS
93
94 BEGIN
95
96 -- Initialize the Error Stack
97 PA_DEBUG.init_err_stack('PA_STATUS_LIST_ITEMS_PVT.Update_Row');
98 x_msg_count := 0;
99 x_msg_data := NULL;
100
101 -- Initialize the return status to success
102 x_return_status := FND_API.G_RET_STS_SUCCESS;
103
104
105 PA_STATUS_LIST_ITEMS_PKG.UPDATE_ROW
106 (
107 X_RECORD_VERSION_NUMBER=> P_RECORD_VERSION_NUMBER,
108 X_STATUS_LIST_ITEM_ID => P_STATUS_LIST_ITEM_ID,
109 X_STATUS_LIST_ID => P_STATUS_LIST_ID,
110 X_PROJECT_STATUS_CODE => P_PROJECT_STATUS_CODE,
111 X_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
112 X_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
113 X_CREATION_DATE => P_CREATION_DATE,
114 X_CREATED_BY => P_CREATED_BY,
115 X_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN
116 );
117
118 -- Reset the Error Stack
119 PA_DEBUG.reset_err_stack;
120
121 EXCEPTION
122 WHEN OTHERS THEN
123 x_msg_count := 1;
124 x_msg_data := substr(SQLERRM,1,240);
125 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
126 FND_MSG_PUB.add_exc_msg
127 (p_pkg_name => 'PA_STATUS_LIST_ITEMS_PVT'
128 , p_procedure_name => PA_DEBUG.G_Err_Stack
129 , p_error_text => substr(SQLERRM,1,240));
130 RETURN;
131
132 END UpdateStatusListItem;
133
134
135 -- ---------------------------------------------------------------------
136 -- PROCEDURE
137 -- Delete_Row
138 -- PURPOSE
139 -- This procedure deletes a row in the PA_STATUS_LIST_ITEMS table.
140 --
141 -- If a row is deleted, this API returns (S)uccess for the
142 -- x_return_status.
143 --
144 -- HISTORY
145 -- 16-JAN-04 svenketa Created
146 --
147
148 PROCEDURE DeleteStatusListItem (
149 P_STATUS_LIST_ITEM_ID IN NUMBER,
150 P_RECORD_VERSION_NUMBER IN NUMBER,
151 X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
152 X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
153 X_MSG_DATA OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
154 )
155 IS
156 BEGIN
157
158
159
160 -- Initialize the Error Stack
161 PA_DEBUG.init_err_stack('PA_STATUS_LIST_ITEMS_PVT.Delete_Row');
162 x_msg_count := 0;
163 x_msg_data := NULL;
164
165 -- Initialize the return status to success
166 x_return_status := FND_API.G_RET_STS_SUCCESS;
167
168
169 -- Delete Role
170 PA_STATUS_LIST_ITEMS_PKG.DELETE_ROW
171 (
172 X_STATUS_LIST_ITEM_ID => P_STATUS_LIST_ITEM_ID ,
173 X_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER
174 );
175
176 -- Reset the Error Stack
177 PA_DEBUG.reset_err_stack;
178
179 EXCEPTION
180 WHEN OTHERS THEN
181 x_msg_count := 1;
182 x_msg_data := substr(SQLERRM,1,240);
183 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
184 FND_MSG_PUB.add_exc_msg
185 (p_pkg_name => 'PA_STATUS_LIST_ITEMS_PVT'
186 , p_procedure_name => PA_DEBUG.G_Err_Stack
187 , p_error_text => substr(SQLERRM,1,240));
188 RETURN;
189
190 END DeleteStatusListItem;
191
192
193 END PA_STATUS_LIST_ITEMS_pvt;