[Home] [Help]
1: PACKAGE BODY SO_PRICE_LIST_LINES_PKG as
2: /* $Header: OEXPRDPB.pls 115.2 99/08/13 13:13:51 porting s $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT VARCHAR2,
5: X_Price_List_Line_Id IN OUT NUMBER,
49: X_Attribute13 VARCHAR2,
50: X_Attribute14 VARCHAR2,
51: X_Attribute15 VARCHAR2
52: ) IS
53: CURSOR C IS SELECT rowid FROM so_price_list_lines
54: WHERE price_list_line_id = X_Price_List_Line_Id;
55: CURSOR C2 IS SELECT so_price_list_lines_s.nextval FROM sys.dual;
56: BEGIN
57: if (X_Price_List_Line_Id is NULL) then
51: X_Attribute15 VARCHAR2
52: ) IS
53: CURSOR C IS SELECT rowid FROM so_price_list_lines
54: WHERE price_list_line_id = X_Price_List_Line_Id;
55: CURSOR C2 IS SELECT so_price_list_lines_s.nextval FROM sys.dual;
56: BEGIN
57: if (X_Price_List_Line_Id is NULL) then
58: OPEN C2;
59: FETCH C2 INTO X_Price_List_Line_Id;
59: FETCH C2 INTO X_Price_List_Line_Id;
60: CLOSE C2;
61: end if;
62:
63: INSERT INTO so_price_list_lines(
64: price_list_line_id,
65: creation_date,
66: created_by,
67: last_update_date,
213: X_Attribute15 VARCHAR2
214: ) IS
215: CURSOR C IS
216: SELECT *
217: FROM so_price_list_lines
218: WHERE rowid = X_Rowid
219: FOR UPDATE of Price_List_Line_Id NOWAIT;
220: Recinfo C%ROWTYPE;
221:
403: X_Attribute14 VARCHAR2,
404: X_Attribute15 VARCHAR2
405: ) IS
406: BEGIN
407: UPDATE so_price_list_lines
408: SET
409: price_list_line_id = X_Price_List_Line_Id,
410: last_update_date = X_Last_Update_Date,
411: last_updated_by = X_Last_Updated_By,
459: END Update_Row;
460:
461: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
462: BEGIN
463: DELETE FROM so_price_list_lines
464: WHERE rowid = X_Rowid;
465:
466: if (SQL%NOTFOUND) then
467: Raise NO_DATA_FOUND;
531: END IF;
532:
533: END Validate_Price_Line;
534:
535: END SO_PRICE_LIST_LINES_PKG;