1: PACKAGE BODY SO_ITEM_GROUP_LINES_PKG as
2: /* $Header: OEXPREPB.pls 115.1 99/08/13 13:13:56 porting s $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT VARCHAR2,
5: X_Group_Line_Id IN OUT NUMBER,
47: X_Pricing_Attribute13 VARCHAR2,
48: X_Pricing_Attribute14 VARCHAR2,
49: X_Pricing_Attribute15 VARCHAR2
50: ) IS
51: CURSOR C IS SELECT rowid FROM so_item_group_lines
52: WHERE group_line_id = X_Group_Line_Id;
53: CURSOR C2 IS SELECT so_item_group_lines_s.nextval FROM sys.dual;
54: BEGIN
55: if (X_Group_Line_Id is NULL) then
49: X_Pricing_Attribute15 VARCHAR2
50: ) IS
51: CURSOR C IS SELECT rowid FROM so_item_group_lines
52: WHERE group_line_id = X_Group_Line_Id;
53: CURSOR C2 IS SELECT so_item_group_lines_s.nextval FROM sys.dual;
54: BEGIN
55: if (X_Group_Line_Id is NULL) then
56: OPEN C2;
57: FETCH C2 INTO X_Group_Line_Id;
57: FETCH C2 INTO X_Group_Line_Id;
58: CLOSE C2;
59: end if;
60:
61: INSERT INTO so_item_group_lines(
62: group_line_id,
63: creation_date,
64: created_by,
65: last_update_date,
205: X_Pricing_Attribute15 VARCHAR2
206: ) IS
207: CURSOR C IS
208: SELECT *
209: FROM so_item_group_lines
210: WHERE rowid = X_Rowid
211: FOR UPDATE of Group_Line_Id NOWAIT;
212: Recinfo C%ROWTYPE;
213:
388: X_Pricing_Attribute14 VARCHAR2,
389: X_Pricing_Attribute15 VARCHAR2
390: ) IS
391: BEGIN
392: UPDATE so_item_group_lines
393: SET
394: group_line_id = X_Group_Line_Id,
395: last_update_date = X_Last_Update_Date,
396: last_updated_by = X_Last_Updated_By,
441: end if;
442: END Update_Row;
443: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
444: BEGIN
445: DELETE FROM so_item_group_lines
446: WHERE rowid = X_Rowid;
447:
448: if (SQL%NOTFOUND) then
449: Raise NO_DATA_FOUND;
450: end if;
451: END Delete_Row;
452:
453:
454: END SO_ITEM_GROUP_LINES_PKG;