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