1: PACKAGE BODY PA_PROJECTS_PKG1 as
2: /* $Header: PAXPRO1B.pls 120.2.12010000.2 2008/10/27 16:40:16 atshukla ship $ */
3:
4: PROCEDURE Update_Row(X_Rowid VARCHAR2,
5: X_Project_Id NUMBER,
194:
195: l_return_status VARCHAR2(1);
196: BEGIN
197:
198: UPDATE pa_projects
199: SET
200: project_id = X_Project_Id,
201: name = X_Name,
202: long_name = X_Long_Name,
399: PROCEDURE Delete_Row(X_project_id NUMBER) IS
400:
401: CURSOR get_template_flag IS
402: SELECT template_flag
403: FROM PA_PROJECTS_ALL
404: WHERE project_id = x_project_id;
405:
406: l_template_flag VARCHAR2(1);
407: l_return_status VARCHAR2(1);
418: ,p_template_flag => l_template_flag
419: ,x_return_status => l_return_status );
420: -- anlee end of changes
421:
422: DELETE FROM pa_projects
423: WHERE project_id = X_project_id;
424:
425: if (SQL%NOTFOUND) then
426: Raise NO_DATA_FOUND;
428:
429: END Delete_Row;
430:
431:
432: END PA_PROJECTS_PKG1;