[Home] [Help]
PACKAGE BODY: APPS.JTF_RS_SALESREPS_PKG
Source
1 package body JTF_RS_SALESREPS_PKG as
2 /* $Header: jtfrstsb.pls 120.1 2005/06/23 22:46:47 baianand ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_SALESREP_ID in NUMBER,
6 X_RESOURCE_ID in NUMBER,
7 X_SALES_CREDIT_TYPE_ID in NUMBER,
8 X_NAME in VARCHAR2,
9 X_STATUS in VARCHAR2,
10 X_START_DATE_ACTIVE in DATE,
11 X_END_DATE_ACTIVE in DATE,
12 X_ORG_ID in NUMBER,
13 X_GL_ID_REV in NUMBER,
14 X_GL_ID_FREIGHT in NUMBER,
15 X_GL_ID_REC in NUMBER,
16 X_SET_OF_BOOKS_ID in NUMBER,
17 X_SALESREP_NUMBER in VARCHAR2,
18 X_EMAIL_ADDRESS in VARCHAR2,
19 X_WH_UPDATE_DATE in DATE,
20 X_PERSON_ID in NUMBER,
21 X_SALES_TAX_GEOCODE in VARCHAR2,
22 X_SALES_TAX_INSIDE_CITY_LIMITS in VARCHAR2,
23 X_ATTRIBUTE_CATEGORY in VARCHAR2,
24 X_ATTRIBUTE2 in VARCHAR2,
25 X_ATTRIBUTE3 in VARCHAR2,
26 X_ATTRIBUTE4 in VARCHAR2,
27 X_ATTRIBUTE5 in VARCHAR2,
28 X_ATTRIBUTE6 in VARCHAR2,
29 X_ATTRIBUTE7 in VARCHAR2,
30 X_ATTRIBUTE8 in VARCHAR2,
31 X_ATTRIBUTE9 in VARCHAR2,
32 X_ATTRIBUTE10 in VARCHAR2,
33 X_ATTRIBUTE11 in VARCHAR2,
34 X_ATTRIBUTE12 in VARCHAR2,
35 X_ATTRIBUTE13 in VARCHAR2,
36 X_ATTRIBUTE14 in VARCHAR2,
37 X_ATTRIBUTE15 in VARCHAR2,
38 X_ATTRIBUTE1 in VARCHAR2,
39 X_CREATION_DATE in DATE,
40 X_CREATED_BY in NUMBER,
41 X_LAST_UPDATE_DATE in DATE,
42 X_LAST_UPDATED_BY in NUMBER,
43 X_LAST_UPDATE_LOGIN in NUMBER
44 ) is
45 cursor C is select ROWID from JTF_RS_SALESREPS
46 where SALESREP_ID = X_SALESREP_ID
47 ;
48 begin
49
50 --dbms_output.put_line ('Inside Table Handler');
51
52 insert into JTF_RS_SALESREPS (
53 SALESREP_ID,
54 RESOURCE_ID,
55 LAST_UPDATE_DATE,
56 LAST_UPDATED_BY,
57 CREATION_DATE,
58 CREATED_BY,
59 LAST_UPDATE_LOGIN,
60 SALES_CREDIT_TYPE_ID,
61 NAME,
62 STATUS,
63 START_DATE_ACTIVE,
64 END_DATE_ACTIVE,
65 ORG_ID,
66 GL_ID_REV,
67 GL_ID_FREIGHT,
68 GL_ID_REC,
69 SET_OF_BOOKS_ID,
70 SALESREP_NUMBER,
71 EMAIL_ADDRESS,
72 WH_UPDATE_DATE,
73 PERSON_ID,
74 SALES_TAX_GEOCODE,
75 SALES_TAX_INSIDE_CITY_LIMITS,
76 OBJECT_VERSION_NUMBER,
77 ATTRIBUTE_CATEGORY,
78 ATTRIBUTE1,
79 ATTRIBUTE2,
80 ATTRIBUTE3,
81 ATTRIBUTE4,
82 ATTRIBUTE5,
83 ATTRIBUTE6,
84 ATTRIBUTE7,
85 ATTRIBUTE8,
86 ATTRIBUTE9,
87 ATTRIBUTE10,
88 ATTRIBUTE11,
89 ATTRIBUTE12,
90 ATTRIBUTE13,
91 ATTRIBUTE14,
92 ATTRIBUTE15
93 ) values (
94 X_SALESREP_ID,
95 X_RESOURCE_ID,
96 X_LAST_UPDATE_DATE,
97 X_LAST_UPDATED_BY,
98 X_CREATION_DATE,
99 X_CREATED_BY,
100 X_LAST_UPDATE_LOGIN,
101 X_SALES_CREDIT_TYPE_ID,
102 X_NAME,
103 X_STATUS,
104 X_START_DATE_ACTIVE,
105 X_END_DATE_ACTIVE,
106 X_ORG_ID,
107 X_GL_ID_REV,
108 X_GL_ID_FREIGHT,
109 X_GL_ID_REC,
110 X_SET_OF_BOOKS_ID,
111 X_SALESREP_NUMBER,
112 X_EMAIL_ADDRESS,
113 X_WH_UPDATE_DATE,
114 X_PERSON_ID,
115 X_SALES_TAX_GEOCODE,
116 X_SALES_TAX_INSIDE_CITY_LIMITS,
117 1,
118 X_ATTRIBUTE_CATEGORY,
119 X_ATTRIBUTE1,
120 X_ATTRIBUTE2,
121 X_ATTRIBUTE3,
122 X_ATTRIBUTE4,
123 X_ATTRIBUTE5,
124 X_ATTRIBUTE6,
125 X_ATTRIBUTE7,
126 X_ATTRIBUTE8,
127 X_ATTRIBUTE9,
128 X_ATTRIBUTE10,
129 X_ATTRIBUTE11,
130 X_ATTRIBUTE12,
131 X_ATTRIBUTE13,
132 X_ATTRIBUTE14,
133 X_ATTRIBUTE15);
134
135 --dbms_output.put_line ('After insert through Table Handler');
136
137 open c;
138 fetch c into X_ROWID;
139 if (c%notfound) then
140 close c;
141 raise no_data_found;
142 end if;
143 close c;
144
145 end INSERT_ROW;
146
147 procedure LOCK_ROW (
148 X_SALESREP_ID in NUMBER,
149 X_ORG_ID in NUMBER,
150 X_OBJECT_VERSION_NUMBER in NUMBER
151 ) is
152 cursor c1 is select
153 OBJECT_VERSION_NUMBER
154 from JTF_RS_SALESREPS
155 where SALESREP_ID = X_SALESREP_ID
156 and NVL(ORG_ID,-99) = NVL(X_ORG_ID,-99)
157 for update of SALESREP_ID nowait;
158 tlinfo c1%rowtype ;
159 begin
160 open c1;
161 fetch c1 into tlinfo;
162 if (c1%notfound) then
163 close c1;
164 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
165 app_exception.raise_exception;
166 end if;
167 close c1;
168
169 if (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
170 then
171 null;
172 else
173 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
174 app_exception.raise_exception;
175 end if;
176
177 end LOCK_ROW;
178
179 procedure UPDATE_ROW (
180 X_SALESREP_ID in NUMBER,
181 X_RESOURCE_ID in NUMBER,
182 X_SALES_CREDIT_TYPE_ID in NUMBER,
183 X_NAME in VARCHAR2,
184 X_STATUS in VARCHAR2,
185 X_START_DATE_ACTIVE in DATE,
186 X_END_DATE_ACTIVE in DATE,
187 X_GL_ID_REV in NUMBER,
188 X_GL_ID_FREIGHT in NUMBER,
189 X_GL_ID_REC in NUMBER,
190 X_SET_OF_BOOKS_ID in NUMBER,
191 X_SALESREP_NUMBER in VARCHAR2,
192 X_EMAIL_ADDRESS in VARCHAR2,
193 X_WH_UPDATE_DATE in DATE,
194 X_PERSON_ID in NUMBER,
195 X_SALES_TAX_GEOCODE in VARCHAR2,
196 X_SALES_TAX_INSIDE_CITY_LIMITS in VARCHAR2,
197 X_ORG_ID in NUMBER,
198 X_OBJECT_VERSION_NUMBER in NUMBER,
199 X_ATTRIBUTE_CATEGORY in VARCHAR2,
200 X_ATTRIBUTE2 in VARCHAR2,
201 X_ATTRIBUTE3 in VARCHAR2,
202 X_ATTRIBUTE4 in VARCHAR2,
203 X_ATTRIBUTE5 in VARCHAR2,
204 X_ATTRIBUTE6 in VARCHAR2,
205 X_ATTRIBUTE7 in VARCHAR2,
206 X_ATTRIBUTE8 in VARCHAR2,
207 X_ATTRIBUTE9 in VARCHAR2,
208 X_ATTRIBUTE10 in VARCHAR2,
209 X_ATTRIBUTE11 in VARCHAR2,
210 X_ATTRIBUTE12 in VARCHAR2,
211 X_ATTRIBUTE13 in VARCHAR2,
212 X_ATTRIBUTE14 in VARCHAR2,
213 X_ATTRIBUTE15 in VARCHAR2,
214 X_ATTRIBUTE1 in VARCHAR2,
215 X_LAST_UPDATE_DATE in DATE,
216 X_LAST_UPDATED_BY in NUMBER,
217 X_LAST_UPDATE_LOGIN in NUMBER
218 ) is
219 begin
220 update JTF_RS_SALESREPS set
221 RESOURCE_ID = X_RESOURCE_ID,
222 SALES_CREDIT_TYPE_ID = X_SALES_CREDIT_TYPE_ID,
223 NAME = X_NAME,
224 STATUS = X_STATUS,
225 START_DATE_ACTIVE = X_START_DATE_ACTIVE,
226 END_DATE_ACTIVE = X_END_DATE_ACTIVE,
227 GL_ID_REV = X_GL_ID_REV,
228 GL_ID_FREIGHT = X_GL_ID_FREIGHT,
229 GL_ID_REC = X_GL_ID_REC,
230 SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID,
231 SALESREP_NUMBER = X_SALESREP_NUMBER,
232 EMAIL_ADDRESS = X_EMAIL_ADDRESS,
233 WH_UPDATE_DATE = X_WH_UPDATE_DATE,
234 PERSON_ID = X_PERSON_ID,
235 SALES_TAX_GEOCODE = X_SALES_TAX_GEOCODE,
236 SALES_TAX_INSIDE_CITY_LIMITS = X_SALES_TAX_INSIDE_CITY_LIMITS,
237 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
238 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
239 ATTRIBUTE2 = X_ATTRIBUTE2,
240 ATTRIBUTE3 = X_ATTRIBUTE3,
241 ATTRIBUTE4 = X_ATTRIBUTE4,
242 ATTRIBUTE5 = X_ATTRIBUTE5,
243 ATTRIBUTE6 = X_ATTRIBUTE6,
244 ATTRIBUTE7 = X_ATTRIBUTE7,
245 ATTRIBUTE8 = X_ATTRIBUTE8,
246 ATTRIBUTE9 = X_ATTRIBUTE9,
247 ATTRIBUTE10 = X_ATTRIBUTE10,
248 ATTRIBUTE11 = X_ATTRIBUTE11,
249 ATTRIBUTE12 = X_ATTRIBUTE12,
250 ATTRIBUTE13 = X_ATTRIBUTE13,
251 ATTRIBUTE14 = X_ATTRIBUTE14,
252 ATTRIBUTE15 = X_ATTRIBUTE15,
253 ATTRIBUTE1 = X_ATTRIBUTE1,
254 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
255 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
256 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
257 where SALESREP_ID = X_SALESREP_ID
258 and NVL(ORG_ID,-99) = NVL(X_ORG_ID,-99);
259
260 if (sql%notfound) then
261 raise no_data_found;
262 end if;
263 end UPDATE_ROW;
264
265 procedure DELETE_ROW (
266 X_SALESREP_ID in NUMBER,
267 X_ORG_ID in NUMBER
268 ) is
269 begin
270 delete from JTF_RS_SALESREPS
271 where SALESREP_ID = X_SALESREP_ID
272 and NVL(ORG_ID,-99) = NVL(X_ORG_ID,-99);
273
274 if (sql%notfound) then
275 raise no_data_found;
276 end if;
277
278 end DELETE_ROW;
279
280 end JTF_RS_SALESREPS_PKG;