APPS.PA_PROJECT_FUNDINGS_PKG dependencies on PA_PROJECT_FUNDINGS

Line 1: PACKAGE BODY PA_PROJECT_FUNDINGS_PKG as

1: PACKAGE BODY PA_PROJECT_FUNDINGS_PKG as
2: /* $Header: PAINPFDB.pls 120.1 2005/08/05 00:13:12 rgandhi noship $ */
3:
4: PROCEDURE Insert_Row(
5: X_Rowid IN OUT NOCOPY VARCHAR2, /*File.sql.39*/

Line 82: CURSOR C IS SELECT rowid FROM PA_PROJECT_FUNDINGS

78: x_program_id IN NUMBER DEFAULT NULL,
79: x_program_update_date IN DATE DEFAULT NULL
80: ) IS
81:
82: CURSOR C IS SELECT rowid FROM PA_PROJECT_FUNDINGS
83: WHERE project_funding_id = X_Project_Funding_Id;
84: CURSOR C2 IS SELECT pa_project_fundings_s.nextval FROM sys.dual;
85:
86: l_Project_Funding_Id NUMBER := X_Project_Funding_Id; /*File.sql.39*/

Line 84: CURSOR C2 IS SELECT pa_project_fundings_s.nextval FROM sys.dual;

80: ) IS
81:
82: CURSOR C IS SELECT rowid FROM PA_PROJECT_FUNDINGS
83: WHERE project_funding_id = X_Project_Funding_Id;
84: CURSOR C2 IS SELECT pa_project_fundings_s.nextval FROM sys.dual;
85:
86: l_Project_Funding_Id NUMBER := X_Project_Funding_Id; /*File.sql.39*/
87: BEGIN
88: if (X_Project_Funding_Id is NULL OR X_Project_Funding_Id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) then /* Added second condition for bug 3452865 */

Line 94: INSERT INTO PA_PROJECT_FUNDINGS(

90: FETCH C2 INTO X_Project_Funding_Id;
91: CLOSE C2;
92: end if;
93:
94: INSERT INTO PA_PROJECT_FUNDINGS(
95: project_funding_id,
96: last_update_date,
97: last_updated_by,
98: creation_date,

Line 301: FROM PA_PROJECT_FUNDINGS

297: X_funding_category IN VARCHAR2 /* For Bug 2244796 */
298: ) IS
299: CURSOR C IS
300: SELECT *
301: FROM PA_PROJECT_FUNDINGS
302: WHERE rowid = X_Rowid
303: FOR UPDATE of Project_Funding_Id NOWAIT;
304: Recinfo C%ROWTYPE;
305:

Line 462: UPDATE PA_PROJECT_FUNDINGS

458: x_revproc_allocated_amount IN NUMBER,
459: X_funding_category IN VARCHAR2 /* For Bug 2244796 */
460: ) IS
461: BEGIN
462: UPDATE PA_PROJECT_FUNDINGS
463: SET
464: project_funding_id = X_Project_Funding_Id,
465: last_update_date = X_Last_Update_Date,
466: last_updated_by = X_Last_Updated_By,

Line 518: DELETE FROM PA_PROJECT_FUNDINGS

514: END Update_Row;
515:
516: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
517: BEGIN
518: DELETE FROM PA_PROJECT_FUNDINGS
519: WHERE rowid = X_Rowid;
520:
521: if (SQL%NOTFOUND) then
522: Raise NO_DATA_FOUND;

Line 527: END PA_PROJECT_FUNDINGS_PKG;

523: end if;
524: END Delete_Row;
525:
526:
527: END PA_PROJECT_FUNDINGS_PKG;