68:
69: BEGIN
70:
71: -- Initialize the Error Stack
72: PA_DEBUG.init_err_stack('PA_STATUS_LISTS_PVT.Insert_Row');
73: x_msg_count := 0;
74: x_msg_data := NULL;
75:
76: -- Initialize the return status to success
91: X_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
92: X_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN
93: );
94: -- Reset the Error Stack
95: PA_DEBUG.reset_err_stack;
96:
97: EXCEPTION
98: WHEN OTHERS THEN
99: x_msg_count := 1;
100: x_msg_data := substr(SQLERRM,1,240);
101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
102: FND_MSG_PUB.add_exc_msg
103: (p_pkg_name => 'PA_STTUS_LISTS_PVT'
104: , p_procedure_name => PA_DEBUG.G_Err_Stack
105: , p_error_text => substr(SQLERRM,1,240));
106: RETURN;
107:
108: END CreateStatusList;
146: l_debug_level5 CONSTANT NUMBER := 5;
147: BEGIN
148: savepoint UpdateSL;
149: -- Initialize the Error Stack
150: PA_DEBUG.init_err_stack('PA_STATUS_LISTS_PVT.Update_Row');
151: x_msg_count := 0;
152: x_msg_data := NULL;
153:
154: -- Initialize the return status to success
152: x_msg_data := NULL;
153:
154: -- Initialize the return status to success
155: x_return_status := FND_API.G_RET_STS_SUCCESS;
156: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
157: IF l_debug_mode = 'Y' THEN
158: pa_debug.g_err_stage:= 'Validating input parameters';
159: pa_debug.write(g_module_name,pa_debug.g_err_stage,
160: l_debug_level3);
154: -- Initialize the return status to success
155: x_return_status := FND_API.G_RET_STS_SUCCESS;
156: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
157: IF l_debug_mode = 'Y' THEN
158: pa_debug.g_err_stage:= 'Validating input parameters';
159: pa_debug.write(g_module_name,pa_debug.g_err_stage,
160: l_debug_level3);
161: END IF;
162:
155: x_return_status := FND_API.G_RET_STS_SUCCESS;
156: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
157: IF l_debug_mode = 'Y' THEN
158: pa_debug.g_err_stage:= 'Validating input parameters';
159: pa_debug.write(g_module_name,pa_debug.g_err_stage,
160: l_debug_level3);
161: END IF;
162:
163: IF l_debug_mode = 'Y' THEN
160: l_debug_level3);
161: END IF;
162:
163: IF l_debug_mode = 'Y' THEN
164: pa_debug.g_err_stage:= 'P_STATUS_LIST_ID = '|| P_STATUS_LIST_ID;
165: pa_debug.write(g_module_name,pa_debug.g_err_stage,
166: l_debug_level5);
167: pa_debug.g_err_stage:= 'P_STATUS_TYPE = '|| P_STATUS_TYPE;
168: pa_debug.write(g_module_name,pa_debug.g_err_stage,
161: END IF;
162:
163: IF l_debug_mode = 'Y' THEN
164: pa_debug.g_err_stage:= 'P_STATUS_LIST_ID = '|| P_STATUS_LIST_ID;
165: pa_debug.write(g_module_name,pa_debug.g_err_stage,
166: l_debug_level5);
167: pa_debug.g_err_stage:= 'P_STATUS_TYPE = '|| P_STATUS_TYPE;
168: pa_debug.write(g_module_name,pa_debug.g_err_stage,
169: l_debug_level5);
163: IF l_debug_mode = 'Y' THEN
164: pa_debug.g_err_stage:= 'P_STATUS_LIST_ID = '|| P_STATUS_LIST_ID;
165: pa_debug.write(g_module_name,pa_debug.g_err_stage,
166: l_debug_level5);
167: pa_debug.g_err_stage:= 'P_STATUS_TYPE = '|| P_STATUS_TYPE;
168: pa_debug.write(g_module_name,pa_debug.g_err_stage,
169: l_debug_level5);
170:
171: END IF;
164: pa_debug.g_err_stage:= 'P_STATUS_LIST_ID = '|| P_STATUS_LIST_ID;
165: pa_debug.write(g_module_name,pa_debug.g_err_stage,
166: l_debug_level5);
167: pa_debug.g_err_stage:= 'P_STATUS_TYPE = '|| P_STATUS_TYPE;
168: pa_debug.write(g_module_name,pa_debug.g_err_stage,
169: l_debug_level5);
170:
171: END IF;
172: IF l_debug_mode = 'Y' THEN
169: l_debug_level5);
170:
171: END IF;
172: IF l_debug_mode = 'Y' THEN
173: pa_debug.g_err_stage:= 'about to call lock row method';
174: pa_debug.write(g_module_name,pa_debug.g_err_stage,
175: l_debug_level3);
176: END IF;
177: PA_STATUS_LISTS_PKG.LOCK_ROW
170:
171: END IF;
172: IF l_debug_mode = 'Y' THEN
173: pa_debug.g_err_stage:= 'about to call lock row method';
174: pa_debug.write(g_module_name,pa_debug.g_err_stage,
175: l_debug_level3);
176: END IF;
177: PA_STATUS_LISTS_PKG.LOCK_ROW
178: (
179: X_STATUS_LIST_ID => P_STATUS_LIST_ID,
180: X_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER
181: );
182: IF l_debug_mode = 'Y' THEN
183: pa_debug.g_err_stage:= 'lock row method called';
184: pa_debug.write(g_module_name,pa_debug.g_err_stage,
185: l_debug_level3);
186: END IF;
187: l_msg_count := FND_MSG_PUB.count_msg;
180: X_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER
181: );
182: IF l_debug_mode = 'Y' THEN
183: pa_debug.g_err_stage:= 'lock row method called';
184: pa_debug.write(g_module_name,pa_debug.g_err_stage,
185: l_debug_level3);
186: END IF;
187: l_msg_count := FND_MSG_PUB.count_msg;
188: if(l_msg_count<>0) then
188: if(l_msg_count<>0) then
189: Raise Invalid_Ret_Status;
190: end if;
191: IF l_debug_mode = 'Y' THEN
192: pa_debug.g_err_stage:= 'about to call PA_STATUS_LISTS_PKG.UPDATE_ROW';
193: pa_debug.write(g_module_name,pa_debug.g_err_stage,
194: l_debug_level3);
195: END IF;
196: PA_STATUS_LISTS_PKG.UPDATE_ROW
189: Raise Invalid_Ret_Status;
190: end if;
191: IF l_debug_mode = 'Y' THEN
192: pa_debug.g_err_stage:= 'about to call PA_STATUS_LISTS_PKG.UPDATE_ROW';
193: pa_debug.write(g_module_name,pa_debug.g_err_stage,
194: l_debug_level3);
195: END IF;
196: PA_STATUS_LISTS_PKG.UPDATE_ROW
197: (X_STATUS_LIST_ID => P_STATUS_LIST_ID,
206: X_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN
207: );
208:
209: -- Reset the Error Stack
210: PA_DEBUG.reset_err_stack;
211:
212: EXCEPTION
213: WHEN Invalid_Ret_Status THEN
214: x_return_status := FND_API.G_RET_STS_ERROR;
234: x_msg_data := substr(SQLERRM,1,240);
235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
236: FND_MSG_PUB.add_exc_msg
237: (p_pkg_name => 'PA_STATUS_LISTS_PVT'
238: , p_procedure_name => PA_DEBUG.G_Err_Stack
239: , p_error_text => substr(SQLERRM,1,240));
240: rollback to UpdateSL;
241: RAISE;
242:
276: savepoint DeleteSL;
277:
278:
279: -- Initialize the Error Stack
280: PA_DEBUG.init_err_stack('PA_STATUS_LISTS_PVT.Delete_Row');
281: x_msg_count := 0;
282: x_msg_data := NULL;
283:
284: -- Initialize the return status to success
301: X_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER
302: );
303:
304: -- Reset the Error Stack
305: PA_DEBUG.reset_err_stack;
306:
307: EXCEPTION
308: WHEN Invalid_Ret_Status THEN
309: x_return_status := FND_API.G_RET_STS_ERROR;
329: x_msg_data := substr(SQLERRM,1,240);
330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
331: FND_MSG_PUB.add_exc_msg
332: (p_pkg_name => 'PA_STATUS_LISTS_PVT'
333: , p_procedure_name => PA_DEBUG.G_Err_Stack
334: , p_error_text => substr(SQLERRM,1,240));
335: rollback to DeleteSL;
336: RAISE;
337: