1: PACKAGE BODY XTR_RM_MD_CURVES_PKG as
2: /* $Header: xtrmdcvb.pls 120.3 2005/06/29 10:42:11 csutaria ship $ */
3:
4: PROCEDURE INSERT_ROW(
5: X_ROWID IN OUT NOCOPY VARCHAR2,
36: X_CURVE_CODE_TMP VARCHAR(20);
37:
38: CURSOR GET_CURVE_CODE IS
39: SELECT CURVE_CODE
40: FROM XTR_RM_MD_CURVES
41: WHERE CURVE_CODE = X_CURVE_CODE;
42:
43: CURSOR C IS
44: SELECT ROWID FROM XTR_RM_MD_CURVES
40: FROM XTR_RM_MD_CURVES
41: WHERE CURVE_CODE = X_CURVE_CODE;
42:
43: CURSOR C IS
44: SELECT ROWID FROM XTR_RM_MD_CURVES
45: WHERE CURVE_CODE = X_CURVE_CODE;
46:
47: BEGIN
48: OPEN GET_CURVE_CODE;
48: OPEN GET_CURVE_CODE;
49: FETCH GET_CURVE_CODE INTO X_CURVE_CODE_TMP;
50: -- CURVE CODE DOESN'T ALREADY EXIST, SO SAVE INTO TABLE
51: IF (GET_CURVE_CODE%NOTFOUND) THEN
52: INSERT INTO XTR_RM_MD_CURVES (
53: CURVE_CODE,
54: DESCRIPTION,
55: TYPE,
56: CCY,
129: PROCEDURE DELETE_ROW (X_ROWID VARCHAR2) IS
130:
131: BEGIN
132: -- DELETE THE ROW, SINCE NOT USED ANYWHERE ELSE
133: DELETE FROM XTR_RM_MD_CURVES
134: WHERE ROWID = X_ROWID;
135: IF (SQL%NOTFOUND) THEN
136: RAISE NO_DATA_FOUND;
137: END IF;
167: X_LAST_UPDATED_BY NUMBER,
168: X_LAST_UPDATE_DATE DATE,
169: X_LAST_UPDATE_LOGIN NUMBER) IS
170: BEGIN
171: UPDATE XTR_RM_MD_CURVES
172: SET
173: CURVE_CODE = X_CURVE_CODE,
174: DESCRIPTION = X_DESCRIPTION,
175: TYPE = X_TYPE,
232: X_ATTRIBUTE15 VARCHAR2) IS
233:
234: CURSOR C IS
235: SELECT *
236: FROM XTR_RM_MD_CURVES
237: WHERE ROWID = X_ROWID
238: FOR UPDATE OF CURVE_CODE NOWAIT;
239: RECINFO C%ROWTYPE;
240:
316: APP_EXCEPTION.RAISE_EXCEPTION;
317: END IF;
318: END LOCK_ROW;
319:
320: END XTR_RM_MD_CURVES_PKG;
321: