APPS.PA_PROJECT_ASSETS_PKG dependencies on PA_PROJECT_ASSETS

Line 1: PACKAGE BODY PA_PROJECT_ASSETS_PKG as

1: PACKAGE BODY PA_PROJECT_ASSETS_PKG as
2: /* $Header: PAXASSTB.pls 120.2 2005/08/10 14:16:47 dlanka noship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Project_Asset_Id IN OUT NOCOPY NUMBER,

Line 60: CURSOR C IS SELECT rowid FROM pa_project_assets

56: X_Capital_Hold_Flag VARCHAR2,
57: X_Ret_Target_Asset_Id NUMBER,
58: X_Org_Id NUMBER
59: ) IS
60: CURSOR C IS SELECT rowid FROM pa_project_assets
61: WHERE project_asset_id = X_Project_Asset_Id;
62: CURSOR C2 IS SELECT pa_project_assets_s.nextval FROM sys.dual;
63: BEGIN
64: if (X_Project_Asset_Id is NULL) then

Line 62: CURSOR C2 IS SELECT pa_project_assets_s.nextval FROM sys.dual;

58: X_Org_Id NUMBER
59: ) IS
60: CURSOR C IS SELECT rowid FROM pa_project_assets
61: WHERE project_asset_id = X_Project_Asset_Id;
62: CURSOR C2 IS SELECT pa_project_assets_s.nextval FROM sys.dual;
63: BEGIN
64: if (X_Project_Asset_Id is NULL) then
65: OPEN C2;
66: FETCH C2 INTO X_Project_Asset_Id;

Line 70: INSERT INTO pa_project_assets(

66: FETCH C2 INTO X_Project_Asset_Id;
67: CLOSE C2;
68: end if;
69:
70: INSERT INTO pa_project_assets(
71: project_asset_id,
72: project_id,
73: asset_number,
74: asset_name,

Line 247: FROM pa_project_assets

243: X_Ret_Target_Asset_Id NUMBER
244: ) IS
245: CURSOR C IS
246: SELECT *
247: FROM pa_project_assets
248: WHERE pa_project_assets.rowid = X_Rowid
249: FOR UPDATE of Project_Asset_Id NOWAIT;
250: Recinfo C%ROWTYPE;
251:

Line 248: WHERE pa_project_assets.rowid = X_Rowid

244: ) IS
245: CURSOR C IS
246: SELECT *
247: FROM pa_project_assets
248: WHERE pa_project_assets.rowid = X_Rowid
249: FOR UPDATE of Project_Asset_Id NOWAIT;
250: Recinfo C%ROWTYPE;
251:
252:

Line 461: UPDATE pa_project_assets

457: X_Capital_Hold_Flag VARCHAR2,
458: X_Ret_Target_Asset_Id NUMBER
459: ) IS
460: BEGIN
461: UPDATE pa_project_assets
462: SET
463: project_asset_id = X_Project_Asset_Id,
464: project_id = X_Project_Id,
465: asset_number = X_Asset_Number,

Line 527: DELETE FROM pa_project_assets

523: BEGIN
524: DELETE FROM pa_project_asset_assignments
525: WHERE project_asset_id = X_project_asset_id;
526:
527: DELETE FROM pa_project_assets
528: WHERE rowid = X_Rowid;
529:
530: if (SQL%NOTFOUND) then
531: Raise NO_DATA_FOUND;

Line 536: END PA_PROJECT_ASSETS_PKG;

532: end if;
533: END Delete_Row;
534:
535:
536: END PA_PROJECT_ASSETS_PKG;