[Home] [Help]
1: PACKAGE BODY GMD_FORMULA_SUBSTITUTION_PKG as
2: /* $Header: GMDFRSBB.pls 120.0 2005/05/25 18:33:19 appldev noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out nocopy VARCHAR2,
5: X_FORMULA_SUBSTITUTION_ID in NUMBER,
11: X_LAST_UPDATE_DATE in DATE,
12: X_LAST_UPDATED_BY in NUMBER,
13: X_LAST_UPDATE_LOGIN in NUMBER
14: ) is
15: cursor C is select ROWID from GMD_FORMULA_SUBSTITUTION
16: where FORMULA_SUBSTITUTION_ID = X_FORMULA_SUBSTITUTION_ID
17: ;
18: begin
19: insert into GMD_FORMULA_SUBSTITUTION (
15: cursor C is select ROWID from GMD_FORMULA_SUBSTITUTION
16: where FORMULA_SUBSTITUTION_ID = X_FORMULA_SUBSTITUTION_ID
17: ;
18: begin
19: insert into GMD_FORMULA_SUBSTITUTION (
20: FORMULA_SUBSTITUTION_ID,
21: SUBSTITUTION_ID,
22: FORMULA_ID,
23: ASSOCIATED_FLAG,
57: cursor c is select
58: SUBSTITUTION_ID,
59: FORMULA_ID,
60: ASSOCIATED_FLAG
61: from GMD_FORMULA_SUBSTITUTION
62: where FORMULA_SUBSTITUTION_ID = X_FORMULA_SUBSTITUTION_ID
63: for update of FORMULA_SUBSTITUTION_ID nowait;
64: recinfo c%rowtype;
65:
94: X_LAST_UPDATED_BY in NUMBER,
95: X_LAST_UPDATE_LOGIN in NUMBER
96: ) is
97: begin
98: update GMD_FORMULA_SUBSTITUTION set
99: SUBSTITUTION_ID = X_SUBSTITUTION_ID,
100: FORMULA_ID = X_FORMULA_ID,
101: ASSOCIATED_FLAG = X_ASSOCIATED_FLAG,
102: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
114: X_FORMULA_SUBSTITUTION_ID in NUMBER
115: ) is
116: begin
117:
118: delete from GMD_FORMULA_SUBSTITUTION
119: where FORMULA_SUBSTITUTION_ID = X_FORMULA_SUBSTITUTION_ID;
120:
121: if (sql%notfound) then
122: raise no_data_found;
122: raise no_data_found;
123: end if;
124: end DELETE_ROW;
125:
126: end GMD_FORMULA_SUBSTITUTION_PKG;