[Home] [Help]
1: package body GMS_REFERENCE_NUMBERS_PKG as
2: -- $Header: gmsawrfb.pls 115.7 2002/11/26 19:03:16 jmuthuku ship $
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_AWARD_ID in NUMBER,
7: X_VALUE in VARCHAR2,
8: X_REQUIRED_FLAG in VARCHAR2,
9: X_MODE in VARCHAR2
10: ) is
11: cursor C is select ROWID from GMS_REFERENCE_NUMBERS
12: where AWARD_ID = X_AWARD_ID
13: and TYPE = X_TYPE
14: and (VALUE = X_VALUE
15: OR (VALUE IS NULL AND X_VALUE IS NULL)) ; -- Bug 2652987, Added;
33: else
34: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
35: app_exception.raise_exception;
36: end if;
37: insert into GMS_REFERENCE_NUMBERS (
38: AWARD_ID,
39: TYPE,
40: VALUE,
41: REQUIRED_FLAG,
74: X_ROWID in VARCHAR2
75: ) is
76: cursor c1 is select
77: TYPE, VALUE, REQUIRED_FLAG
78: from GMS_REFERENCE_NUMBERS
79: where ROWID = X_ROWID -- Bug 2652987, Added
80: for update of AWARD_ID nowait;
81: tlinfo c1%rowtype;
82:
131: else
132: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
133: app_exception.raise_exception;
134: end if;
135: update GMS_REFERENCE_NUMBERS set
136: TYPE = X_TYPE,
137: VALUE = X_VALUE,
138: REQUIRED_FLAG = X_REQUIRED_FLAG,
139: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
158: X_VALUE in VARCHAR2,
159: X_REQUIRED_FLAG in VARCHAR2,
160: X_MODE in VARCHAR2
161: ) is
162: cursor c1 is select rowid from GMS_REFERENCE_NUMBERS
163: where AWARD_ID = X_AWARD_ID
164: and TYPE = X_TYPE
165: ;
166: dummy c1%rowtype;
194: X_VALUE in VARCHAR2, -- Bug 2652987, Added
195: X_ROWID in VARCHAR2 -- Bug 2652987, Added
196: ) is
197: begin
198: delete from GMS_REFERENCE_NUMBERS
199: where ROWID = X_ROWID;
200: if (sql%notfound) then
201: raise no_data_found;
202: end if;
201: raise no_data_found;
202: end if;
203: end DELETE_ROW;
204:
205: end GMS_REFERENCE_NUMBERS_PKG;