185: END IF;
186:
187: IF (l_system_status_code IN ('APPROVED', 'SUBMITTED')) THEN
188:
189: PA_PROJECT_VERIFY_PKG.Category_Required(
190: x_project_id => X_Project_Id,
191: x_err_stage => X_err_stage,
192: x_err_code => X_err_code,
193: x_err_stack => X_err_stack,
201: l_error_code := X_err_code;
202: l_error_msg := x_err_stage;
203: ELSIF (X_err_code < 0) THEN
204: FND_MSG_PUB.Add_Exc_Msg(
205: p_pkg_name => 'PA_PROJECT_VERIFY_PKG',
206: p_procedure_name => 'CATEGORY_REQUIRED',
207: p_error_text => 'ORA-'||LPAD(substr(to_char(x_err_code),2),5,'0'));
208: l_error_code := -1;
209: l_error_msg := to_char(x_err_code);
223:
224: -- Additional validation is required for Contract projects
225: IF (l_proj_type_class_code = 'CONTRACT') THEN
226:
227: PA_PROJECT_VERIFY_PKG.Customer_Exists(
228: x_project_id => X_Project_Id,
229: x_err_stage => X_err_stage,
230: x_err_code => X_err_code,
231: x_err_stack => X_err_stack,
241: l_error_msg := x_err_stage;
242: END IF;
243: ELSIF (X_err_code < 0) THEN
244: FND_MSG_PUB.Add_Exc_Msg(
245: p_pkg_name => 'PA_PROJECT_VERIFY_PKG',
246: p_procedure_name => 'CUSTOMER_EXISTS',
247: p_error_text => 'ORA-'||LPAD(substr(to_char(x_err_code),2),5,'0'));
248: IF (l_error_code = 0) THEN
249: l_error_code := -1;
250: l_error_msg := to_char(x_err_code);
251: END IF;
252: END IF;
253: /* Start of code change Done for Bug:4687520. Done by Sunkalya. */
254: /*PA_PROJECT_VERIFY_PKG.Manager_Exists(
255: x_project_id => X_Project_Id,
256: x_err_stage => X_err_stage,
257: x_err_code => X_err_code,
258: x_err_stack => X_err_stack,
268: l_error_msg := x_err_stage;
269: END IF;
270: ELSIF (X_err_code < 0) THEN
271: FND_MSG_PUB.Add_Exc_Msg(
272: p_pkg_name => 'PA_PROJECT_VERIFY_PKG',
273: p_procedure_name => 'MANAGER_EXISTS',
274: p_error_text => 'ORA-'||LPAD(substr(to_char(x_err_code),2),5,'0'));
275: IF (l_error_code = 0) THEN
276: l_error_code := -1;
351:
352: /* End of changes for bug 4687520 Done by Sunkalya */
353:
354: -- Commented below code for the bug 4867044
355: /* PA_PROJECT_VERIFY_PKG.Contact_Exists(
356: x_project_id => X_Project_Id,
357: x_err_stage => X_err_stage,
358: x_err_code => X_err_code,
359: x_err_stack => X_err_stack,
369: l_error_msg := x_err_stage;
370: END IF;
371: ELSIF (X_err_code < 0) THEN
372: FND_MSG_PUB.Add_Exc_Msg(
373: p_pkg_name => 'PA_PROJECT_VERIFY_PKG',
374: p_procedure_name => 'CONTACT_EXISTS',
375: p_error_text => 'ORA-'||LPAD(substr(to_char(x_err_code),2),5,'0'));
376: IF (l_error_code = 0) THEN
377: l_error_code := -1;