[Home] [Help]
1: package body PSP_ENC_SETUP_OPTIONS_PKG as
2: --$Header: PSPENSOB.pls 115.7 2002/11/19 11:54:14 ddubey ship $
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_ENC_SETUP_OPTION_ID in NUMBER,
8: X_SETUP_PARAMETER in VARCHAR2,
9: X_PARAMETER_VALUE in VARCHAR2,
10: X_MODE in VARCHAR2 default 'R'
11: ) is
12: cursor C is select ROWID from PSP_ENC_SETUP_OPTIONS
13: where ENC_SETUP_OPTION_ID = X_ENC_SETUP_OPTION_ID;
14: X_LAST_UPDATE_DATE DATE;
15: X_LAST_UPDATED_BY NUMBER;
16: X_LAST_UPDATE_LOGIN NUMBER;
31: else
32: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
33: app_exception.raise_exception;
34: end if;
35: insert into PSP_ENC_SETUP_OPTIONS (
36: ENC_SETUP_OPTION_ID,
37: BUSINESS_GROUP_ID,
38: SET_OF_BOOKS_ID,
39: SETUP_PARAMETER,
77: BUSINESS_GROUP_ID,
78: SET_OF_BOOKS_ID,
79: SETUP_PARAMETER,
80: PARAMETER_VALUE
81: from PSP_ENC_SETUP_OPTIONS
82: where ENC_SETUP_OPTION_ID = X_ENC_SETUP_OPTION_ID
83: for update of ENC_SETUP_OPTION_ID nowait;
84: tlinfo c1%rowtype;
85:
135: else
136: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
137: app_exception.raise_exception;
138: end if;
139: update PSP_ENC_SETUP_OPTIONS set
140: BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID,
141: SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID,
142: SETUP_PARAMETER = X_SETUP_PARAMETER,
143: PARAMETER_VALUE = X_PARAMETER_VALUE,
159: X_SETUP_PARAMETER in VARCHAR2,
160: X_PARAMETER_VALUE in VARCHAR2,
161: X_MODE in VARCHAR2 default 'R'
162: ) is
163: cursor c1 is select rowid from PSP_ENC_SETUP_OPTIONS
164: where ENC_SETUP_OPTION_ID = X_ENC_SETUP_OPTION_ID
165: ;
166: dummy c1%rowtype;
167: begin
192: procedure DELETE_ROW (
193: X_ENC_SETUP_OPTION_ID in NUMBER
194: ) is
195: begin
196: delete from PSP_ENC_SETUP_OPTIONS
197: where ENC_SETUP_OPTION_ID = X_ENC_SETUP_OPTION_ID;
198: if (sql%notfound) then
199: raise no_data_found;
200: end if;
199: raise no_data_found;
200: end if;
201: end DELETE_ROW;
202:
203: end PSP_ENC_SETUP_OPTIONS_PKG;