1: PACKAGE BODY CST_COST_GROUPS_PKG as
2: /* $Header: CSTCOGRB.pls 115.4 2002/11/08 03:19:33 awwang ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Cost_Group_Id IN OUT NOCOPY NUMBER,
29: X_Last_Updated_By NUMBER,
30: X_Last_Update_Login NUMBER DEFAULT NULL,
31: X_Cost_Group_Type NUMBER DEFAULT 1
32: ) IS
33: CURSOR C IS SELECT rowid FROM cst_cost_groups
34: WHERE cost_group_id = X_Cost_Group_Id;
35: CURSOR C2 IS SELECT cst_cost_groups_s.nextval FROM sys.dual;
36: -- X_Cost_Group_Type CONSTANT NUMBER := 1;
37:
31: X_Cost_Group_Type NUMBER DEFAULT 1
32: ) IS
33: CURSOR C IS SELECT rowid FROM cst_cost_groups
34: WHERE cost_group_id = X_Cost_Group_Id;
35: CURSOR C2 IS SELECT cst_cost_groups_s.nextval FROM sys.dual;
36: -- X_Cost_Group_Type CONSTANT NUMBER := 1;
37:
38: BEGIN
39: if (X_Cost_Group_Id is NULL) then
41: FETCH C2 INTO X_Cost_Group_Id;
42: CLOSE C2;
43: end if;
44:
45: INSERT INTO cst_cost_groups(
46:
47: cost_group_id,
48: cost_group,
49: description,
136: X_Attribute15 VARCHAR2 DEFAULT NULL
137: ) IS
138: CURSOR C IS
139: SELECT *
140: FROM cst_cost_groups
141: WHERE rowid = X_Rowid
142: FOR UPDATE of Cost_Group_Id NOWAIT;
143: Recinfo C%ROWTYPE;
144:
250: X_Cost_Group_Type NUMBER DEFAULT 1
251:
252: ) IS
253: BEGIN
254: UPDATE cst_cost_groups
255: SET
256: cost_group_id = X_Cost_Group_Id,
257: cost_group = X_Cost_Group,
258: description = X_Description,
286: END Update_Row;
287:
288: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
289: BEGIN
290: DELETE FROM cst_cost_groups
291: WHERE rowid = X_Rowid;
292:
293: if (SQL%NOTFOUND) then
294: Raise NO_DATA_FOUND;
323: X_Last_Update_Login NUMBER DEFAULT NULL,
324: X_Legal_Entity NUMBER
325: ) IS
326:
327: CURSOR C IS SELECT rowid FROM cst_cost_groups
328: WHERE cost_group_id = X_Cost_Group_Id;
329: CURSOR C2 IS SELECT cst_cost_groups_s.nextval FROM sys.dual;
330:
331: X_Cost_Group_Type CONSTANT NUMBER := 2;
325: ) IS
326:
327: CURSOR C IS SELECT rowid FROM cst_cost_groups
328: WHERE cost_group_id = X_Cost_Group_Id;
329: CURSOR C2 IS SELECT cst_cost_groups_s.nextval FROM sys.dual;
330:
331: X_Cost_Group_Type CONSTANT NUMBER := 2;
332: BEGIN
333: if (X_Cost_Group_Id is NULL) then
335: FETCH C2 INTO X_Cost_Group_Id;
336: CLOSE C2;
337: end if;
338:
339: INSERT INTO cst_cost_groups(
340:
341: cost_group_id,
342: cost_group,
343: description,
429: X_Legal_Entity NUMBER
430: ) IS
431: CURSOR C IS
432: SELECT *
433: FROM cst_cost_groups
434: WHERE rowid = X_Rowid
435: FOR UPDATE of Cost_Group_Id NOWAIT;
436: Recinfo C%ROWTYPE;
437:
539: X_Last_Update_Login NUMBER DEFAULT NULL,
540: X_Legal_Entity NUMBER
541: ) IS
542: BEGIN
543: UPDATE cst_cost_groups
544: SET
545: cost_group_id = X_Cost_Group_Id,
546: cost_group = X_Cost_Group,
547: description = X_Description,
573: end if;
574: END Update_Fiscal_Row;
575:
576:
577: END CST_COST_GROUPS_PKG;