[Home] [Help]
1: package body IGW_BUSINESS_RULES_ALL_PKG as
2: /* $Header: igwstbrb.pls 115.5 2002/11/14 18:43:38 vmedikon ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_RULE_ID in NUMBER,
12: X_START_DATE_ACTIVE in DATE,
13: X_END_DATE_ACTIVE in DATE,
14: X_MODE in VARCHAR2 default 'R'
15: ) is
16: cursor C is select ROWID from IGW_BUSINESS_RULES_ALL
17: where RULE_ID = X_RULE_ID;
18: X_LAST_UPDATE_DATE DATE;
19: X_LAST_UPDATED_BY NUMBER;
20: X_LAST_UPDATE_LOGIN NUMBER;
35: else
36: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
37: app_exception.raise_exception;
38: end if;
39: insert into IGW_BUSINESS_RULES_ALL (
40: RULE_ID,
41: RULE_SEQUENCE_NUMBER,
42: ORGANIZATION_ID,
43: RULE_NAME,
90: X_START_DATE_ACTIVE in DATE,
91: X_END_DATE_ACTIVE in DATE
92: ) is
93: cursor c1 is select *
94: from IGW_BUSINESS_RULES_ALL
95: where ROWID = X_ROWID
96: for update of RULE_ID nowait;
97: tlinfo c1%rowtype;
98:
167: else
168: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
169: app_exception.raise_exception;
170: end if;
171: update IGW_BUSINESS_RULES_ALL set
172: RULE_ID = X_RULE_ID,
173: RULE_SEQUENCE_NUMBER = X_RULE_SEQUENCE_NUMBER,
174: ORGANIZATION_ID = X_ORGANIZATION_ID,
175: RULE_NAME = X_RULE_NAME,
200: X_START_DATE_ACTIVE in DATE,
201: X_END_DATE_ACTIVE in DATE,
202: X_MODE in VARCHAR2 default 'R'
203: ) is
204: cursor c1 is select rowid from IGW_BUSINESS_RULES_ALL
205: where RULE_ID = X_RULE_ID
206: ;
207: dummy c1%rowtype;
208: begin
241: procedure DELETE_ROW (
242: X_ROWID in VARCHAR2
243: ) is
244: begin
245: delete from IGW_BUSINESS_RULES_ALL
246: where ROWID = X_ROWID;
247: if (sql%notfound) then
248: raise no_data_found;
249: end if;
248: raise no_data_found;
249: end if;
250: end DELETE_ROW;
251:
252: end IGW_BUSINESS_RULES_ALL_PKG;