1: PACKAGE BODY AS_ISSUE_LISTING_IDFR_PKG AS
2: /* $Header: asxiflib.pls 115.4 2002/11/06 00:41:52 appldev ship $ */
3: -- Start of Comments
4: -- Package name : AS_ISSUE_LISTING_IDFR_PKG
5:
1: PACKAGE BODY AS_ISSUE_LISTING_IDFR_PKG AS
2: /* $Header: asxiflib.pls 115.4 2002/11/06 00:41:52 appldev ship $ */
3: -- Start of Comments
4: -- Package name : AS_ISSUE_LISTING_IDFR_PKG
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AS_ISSUE_LISTING_IDFR_PKG';
7: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asxiflib.pls';
8:
2: /* $Header: asxiflib.pls 115.4 2002/11/06 00:41:52 appldev ship $ */
3: -- Start of Comments
4: -- Package name : AS_ISSUE_LISTING_IDFR_PKG
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AS_ISSUE_LISTING_IDFR_PKG';
7: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asxiflib.pls';
8:
9: PROCEDURE insert_row (
10: p_issue_listing_idfr_id IN OUT NUMBER,
36: p_attribute13 IN VARCHAR2,
37: p_attribute14 IN VARCHAR2,
38: p_attribute15 IN VARCHAR2) IS
39:
40: CURSOR C1 IS SELECT AS_ISSUE_LISTING_IDFR_S.nextval FROM sys.dual;
41:
42: CURSOR C2 IS SELECT ROWID FROM as_issue_listing_idfr
43: WHERE issue_listing_idfr_id = p_issue_listing_idfr_id;
44:
38: p_attribute15 IN VARCHAR2) IS
39:
40: CURSOR C1 IS SELECT AS_ISSUE_LISTING_IDFR_S.nextval FROM sys.dual;
41:
42: CURSOR C2 IS SELECT ROWID FROM as_issue_listing_idfr
43: WHERE issue_listing_idfr_id = p_issue_listing_idfr_id;
44:
45: BEGIN
46:
49: FETCH C1 INTO p_issue_listing_idfr_id;
50: CLOSE C1;
51: END IF;
52:
53: INSERT INTO AS_ISSUE_LISTING_IDFR (
54: issue_listing_idfr_id,
55: exchange_id,
56: issue_id,
57: scheme,
153: p_attribute15 IN VARCHAR2) IS
154:
155: BEGIN
156:
157: UPDATE AS_ISSUE_LISTING_IDFR SET
158: exchange_id = DECODE(p_exchange_id, FND_API.G_MISS_NUM, exchange_id, p_exchange_id),
159: issue_id = DECODE(p_issue_id, FND_API.G_MISS_NUM, issue_id, p_issue_id),
160: scheme = DECODE(p_scheme, FND_API.G_MISS_CHAR, scheme, p_scheme),
161: value = DECODE(p_value, FND_API.G_MISS_CHAR, value, p_value),
195: p_issue_listing_idfr_id IN NUMBER) IS
196:
197: BEGIN
198:
199: DELETE FROM AS_ISSUE_LISTING_IDFR
200: WHERE issue_listing_idfr_id = p_issue_listing_idfr_id;
201:
202: IF (SQL%NOTFOUND) THEN
203: RAISE no_data_found;
240: END IF;
241:
242: END lock_row;
243: */
244: END AS_ISSUE_LISTING_IDFR_PKG;