[Home] [Help]
PACKAGE BODY: APPS.PSP_ENC_SETUP_OPTIONS_PKG
Source
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,
6 X_BUSINESS_GROUP_ID in NUMBER,
7 X_SET_OF_BOOKS_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;
17 begin
18 X_LAST_UPDATE_DATE := SYSDATE;
19 if(X_MODE = 'I') then
20 X_LAST_UPDATED_BY := 1;
21 X_LAST_UPDATE_LOGIN := 0;
22 elsif (X_MODE = 'R') then
23 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
24 if X_LAST_UPDATED_BY is NULL then
25 X_LAST_UPDATED_BY := -1;
26 end if;
27 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
28 if X_LAST_UPDATE_LOGIN is NULL then
29 X_LAST_UPDATE_LOGIN := -1;
30 end if;
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,
40 PARAMETER_VALUE,
41 CREATION_DATE,
42 CREATED_BY,
43 LAST_UPDATE_DATE,
44 LAST_UPDATED_BY,
45 LAST_UPDATE_LOGIN
46 ) values (
47 X_ENC_SETUP_OPTION_ID,
48 X_BUSINESS_GROUP_ID,
49 X_SET_OF_BOOKS_ID,
50 X_SETUP_PARAMETER,
51 X_PARAMETER_VALUE,
52 X_LAST_UPDATE_DATE,
53 X_LAST_UPDATED_BY,
54 X_LAST_UPDATE_DATE,
55 X_LAST_UPDATED_BY,
56 X_LAST_UPDATE_LOGIN
57 );
58
59 open c;
60 fetch c into X_ROWID;
61 if (c%notfound) then
62 close c;
63 raise no_data_found;
64 end if;
65 close c;
66
67 end INSERT_ROW;
68
69 procedure LOCK_ROW (
70 X_ENC_SETUP_OPTION_ID in NUMBER,
71 X_BUSINESS_GROUP_ID in NUMBER,
72 X_SET_OF_BOOKS_ID in NUMBER,
73 X_SETUP_PARAMETER in VARCHAR2,
74 X_PARAMETER_VALUE in VARCHAR2
75 ) is
76 cursor c1 is select
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
86 begin
87 open c1;
88 fetch c1 into tlinfo;
89 if (c1%notfound) then
90 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
91 app_exception.raise_exception;
92 close c1;
93 return;
94 end if;
95 close c1;
96
97 if ( (tlinfo.BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID)
98 AND (tlinfo.SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID)
99 AND (tlinfo.SETUP_PARAMETER = X_SETUP_PARAMETER)
100 AND (tlinfo.PARAMETER_VALUE = X_PARAMETER_VALUE)
101 ) then
102 null;
103 else
104 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
105 app_exception.raise_exception;
106 end if;
107 return;
108 end LOCK_ROW;
109
110 procedure UPDATE_ROW (
111 X_ENC_SETUP_OPTION_ID in NUMBER,
112 X_BUSINESS_GROUP_ID in NUMBER,
113 X_SET_OF_BOOKS_ID in NUMBER,
114 X_SETUP_PARAMETER in VARCHAR2,
115 X_PARAMETER_VALUE in VARCHAR2,
116 X_MODE in VARCHAR2 default 'R'
117 ) is
118 X_LAST_UPDATE_DATE DATE;
119 X_LAST_UPDATED_BY NUMBER;
120 X_LAST_UPDATE_LOGIN NUMBER;
121 begin
122 X_LAST_UPDATE_DATE := SYSDATE;
123 if(X_MODE = 'I') then
124 X_LAST_UPDATED_BY := 1;
125 X_LAST_UPDATE_LOGIN := 0;
126 elsif (X_MODE = 'R') then
127 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
128 if X_LAST_UPDATED_BY is NULL then
129 X_LAST_UPDATED_BY := -1;
130 end if;
131 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
132 if X_LAST_UPDATE_LOGIN is NULL then
133 X_LAST_UPDATE_LOGIN := -1;
134 end if;
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,
144 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
145 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
146 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
147 where ENC_SETUP_OPTION_ID = X_ENC_SETUP_OPTION_ID
148 ;
149 if (sql%notfound) then
150 raise no_data_found;
151 end if;
152 end UPDATE_ROW;
153
154 procedure ADD_ROW (
155 X_ROWID in out NOCOPY VARCHAR2,
156 X_ENC_SETUP_OPTION_ID in NUMBER,
157 X_BUSINESS_GROUP_ID in NUMBER,
158 X_SET_OF_BOOKS_ID in NUMBER,
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
168 open c1;
169 fetch c1 into dummy;
170 if (c1%notfound) then
171 close c1;
172 INSERT_ROW (
173 X_ROWID,
174 X_ENC_SETUP_OPTION_ID,
175 X_BUSINESS_GROUP_ID,
176 X_SET_OF_BOOKS_ID,
177 X_SETUP_PARAMETER,
178 X_PARAMETER_VALUE,
179 X_MODE);
180 return;
181 end if;
182 close c1;
183 UPDATE_ROW (
184 X_ENC_SETUP_OPTION_ID,
185 X_BUSINESS_GROUP_ID,
186 X_SET_OF_BOOKS_ID,
187 X_SETUP_PARAMETER,
188 X_PARAMETER_VALUE,
189 X_MODE);
190 end ADD_ROW;
191
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;
201 end DELETE_ROW;
202
203 end PSP_ENC_SETUP_OPTIONS_PKG;