[Home] [Help]
1: PACKAGE BODY PA_COST_DIST_OVERRIDES_PKG as
2: /* $Header: PAXPRORB.pls 120.2 2005/08/03 13:57:27 aaggarwa noship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Cost_Dist_Override_Id IN OUT NOCOPY NUMBER,
15: X_Expenditure_Category VARCHAR2,
16: X_Override_From_Org_Id NUMBER,
17: X_End_Date_Active DATE
18: ) IS
19: CURSOR C IS SELECT rowid FROM PA_COST_DIST_OVERRIDES
20: WHERE cost_distribution_override_id = X_Cost_Dist_Override_Id;
21: CURSOR C2 IS SELECT pa_cost_dist_overrides_s.nextval FROM sys.dual;
22: BEGIN
23: if (X_Cost_Dist_Override_Id is NULL) then
17: X_End_Date_Active DATE
18: ) IS
19: CURSOR C IS SELECT rowid FROM PA_COST_DIST_OVERRIDES
20: WHERE cost_distribution_override_id = X_Cost_Dist_Override_Id;
21: CURSOR C2 IS SELECT pa_cost_dist_overrides_s.nextval FROM sys.dual;
22: BEGIN
23: if (X_Cost_Dist_Override_Id is NULL) then
24: OPEN C2;
25: FETCH C2 INTO X_Cost_Dist_Override_Id;
25: FETCH C2 INTO X_Cost_Dist_Override_Id;
26: CLOSE C2;
27: end if;
28:
29: INSERT INTO PA_COST_DIST_OVERRIDES(
30: cost_distribution_override_id,
31: project_id,
32: override_to_organization_id,
33: start_date_active,
77: X_End_Date_Active DATE
78: ) IS
79: CURSOR C IS
80: SELECT *
81: FROM PA_COST_DIST_OVERRIDES
82: WHERE rowid = X_Rowid
83: FOR UPDATE of Cost_Distribution_Override_Id NOWAIT;
84: Recinfo C%ROWTYPE;
85:
133: X_Override_From_Org_Id NUMBER,
134: X_End_Date_Active DATE
135: ) IS
136: BEGIN
137: UPDATE PA_COST_DIST_OVERRIDES
138: SET
139: cost_distribution_override_id = X_Cost_Dist_Override_Id,
140: project_id = X_Project_Id,
141: override_to_organization_id = X_Override_To_Org_Id,
153: end if;
154: END Update_Row;
155: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
156: BEGIN
157: DELETE FROM PA_COST_DIST_OVERRIDES
158: WHERE rowid = X_Rowid;
159: if (SQL%NOTFOUND) then
160: Raise NO_DATA_FOUND;
161: end if;
161: end if;
162: END Delete_Row;
163:
164:
165: END PA_COST_DIST_OVERRIDES_PKG;