[Home] [Help]
PACKAGE BODY: APPS.DPP_LOG_PVT
Source
1 PACKAGE BODY DPP_LOG_PVT AS
2 /* $Header: dppvlogb.pls 120.6.12010000.3 2010/04/26 07:08:40 pvaramba ship $ */
3 -- Package name : DPP_LOG_PVT
4 -- Purpose :
5 -- History :
6 -- NOTE :
7 -- End of Comments
8
9 G_PKG_NAME CONSTANT VARCHAR2(30) := 'DPP_LOG_PVT';
10 G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
11
12 ---------------------------------------------------------------------
13 -- PROCEDURE
14 -- Insert_HeaderLog
15 --
16 -- PURPOSE
17 -- Insert Header Log
18 --
19 -- PARAMETERS
20 --
21 -- NOTES
22 -- 1.
23 -- 2.
24 ----------------------------------------------------------------------
25
26 PROCEDURE Insert_HeaderLog(
27 p_api_version IN NUMBER
28 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
29 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
30 ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
31 ,x_return_status OUT NOCOPY VARCHAR2
32 ,x_msg_count OUT NOCOPY NUMBER
33 ,x_msg_data OUT NOCOPY VARCHAR2
34 ,p_txn_hdr_rec IN dpp_cst_hdr_rec_type
35 )
36 IS
37 l_api_name CONSTANT VARCHAR2(30) := 'Insert_HeaderLog';
38 l_api_version CONSTANT NUMBER := 1.0;
39 l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME ||'.'|| l_api_name;
40
41 l_txn_hdr_rec DPP_LOG_PVT.dpp_cst_hdr_rec_type := p_txn_hdr_rec;
42
43 l_profile_option_value VARCHAR2(150);
44
45 BEGIN
46
47 -- Standard begin of API savepoint
48 SAVEPOINT Insert_HeaderLog_PVT;
49 -- Standard call to check for call compatibility.
50 IF NOT FND_API.Compatible_API_Call ( l_api_version,
51 p_api_version,
52 l_api_name,
53 G_PKG_NAME)
54 THEN
55 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56 END IF;
57 -- Initialize message list if p_init_msg_list is set to TRUE.
58 IF FND_API.to_Boolean( p_init_msg_list )
59 THEN
60 FND_MSG_PUB.initialize;
61 END IF;
62
63
64 DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, 'dpp.plsql.' || L_FULL_NAME, 'Private API: ' || l_api_name || 'start');
65
66 -- Initialize API return status to sucess
67 x_return_status := FND_API.G_RET_STS_SUCCESS;
68
69 --
70 -- API body
71 --
72
73 l_profile_option_value := fnd_profile.VALUE('DPP_AUDIT_ENABLED');
74
75 IF l_profile_option_value = 'Y' THEN
76
77 -- Log has Agreement Status, Headers has Transaction Status
78 INSERT INTO DPP_TRANSACTION_HEADERS_LOG
79 (
80 LOG_ID, LOG_MODE, TRANSACTION_HEADER_ID, REF_DOCUMENT_NUMBER, VENDOR_CONTACT_ID, CONTACT_EMAIL_ADDRESS,
81 CONTACT_PHONE, DAYS_COVERED, TRANSACTION_STATUS, ORG_ID, CREATION_DATE, CREATED_BY, LAST_UPDATE_DATE,
82 LAST_UPDATED_BY, LAST_UPDATE_LOGIN, ATTRIBUTE_CATEGORY, ATTRIBUTE1, ATTRIBUTE2, ATTRIBUTE3, ATTRIBUTE4,
83 ATTRIBUTE5, ATTRIBUTE6, ATTRIBUTE7, ATTRIBUTE8, ATTRIBUTE9, ATTRIBUTE10, ATTRIBUTE11, ATTRIBUTE12,
84 ATTRIBUTE13, ATTRIBUTE14, ATTRIBUTE15, ATTRIBUTE16, ATTRIBUTE17, ATTRIBUTE18, ATTRIBUTE19,
85 ATTRIBUTE20, ATTRIBUTE21, ATTRIBUTE22, ATTRIBUTE23, ATTRIBUTE24, ATTRIBUTE25, ATTRIBUTE26, ATTRIBUTE27,
86 ATTRIBUTE28, ATTRIBUTE29, ATTRIBUTE30,EFFECTIVE_START_DATE, VENDOR_SITE_ID, VENDOR_ID, LAST_REFRESHED_BY,
87 LAST_REFRESHED_DATE, TRX_CURRENCY)
88 VALUES
89 (DPP_HEADERS_LOG_ID_SEQ.nextval,l_txn_hdr_rec.LOG_MODE,l_txn_hdr_rec.TRANSACTION_HEADER_ID,
90 l_txn_hdr_rec.REF_DOCUMENT_NUMBER, l_txn_hdr_rec.VENDOR_CONTACT_ID, l_txn_hdr_rec.CONTACT_EMAIL_ADDRESS,
91 l_txn_hdr_rec.CONTACT_PHONE, l_txn_hdr_rec.DAYS_COVERED, l_txn_hdr_rec.TRANSACTION_STATUS,
92 l_txn_hdr_rec.ORG_ID, l_txn_hdr_rec.CREATION_DATE, l_txn_hdr_rec.CREATED_BY, l_txn_hdr_rec.LAST_UPDATE_DATE,
93 l_txn_hdr_rec.LAST_UPDATED_BY, l_txn_hdr_rec.LAST_UPDATE_LOGIN, l_txn_hdr_rec.ATTRIBUTE_CATEGORY,
94 l_txn_hdr_rec.ATTRIBUTE1, l_txn_hdr_rec.ATTRIBUTE2, l_txn_hdr_rec.ATTRIBUTE3, l_txn_hdr_rec.ATTRIBUTE4,
95 l_txn_hdr_rec.ATTRIBUTE5, l_txn_hdr_rec.ATTRIBUTE6, l_txn_hdr_rec.ATTRIBUTE7, l_txn_hdr_rec.ATTRIBUTE8,
96 l_txn_hdr_rec.ATTRIBUTE9, l_txn_hdr_rec.ATTRIBUTE10, l_txn_hdr_rec.ATTRIBUTE11, l_txn_hdr_rec.ATTRIBUTE12,
97 l_txn_hdr_rec.ATTRIBUTE13, l_txn_hdr_rec.ATTRIBUTE14, l_txn_hdr_rec.ATTRIBUTE15, l_txn_hdr_rec.ATTRIBUTE16,
98 l_txn_hdr_rec.ATTRIBUTE17, l_txn_hdr_rec.ATTRIBUTE18, l_txn_hdr_rec.ATTRIBUTE19,
99 l_txn_hdr_rec.ATTRIBUTE20, l_txn_hdr_rec.ATTRIBUTE21, l_txn_hdr_rec.ATTRIBUTE22,
100 l_txn_hdr_rec.ATTRIBUTE23, l_txn_hdr_rec.ATTRIBUTE24, l_txn_hdr_rec.ATTRIBUTE25,
101 l_txn_hdr_rec.ATTRIBUTE26, l_txn_hdr_rec.ATTRIBUTE27,
102 l_txn_hdr_rec.ATTRIBUTE28, l_txn_hdr_rec.ATTRIBUTE29, l_txn_hdr_rec.ATTRIBUTE30,
103 l_txn_hdr_rec.EFFECTIVE_START_DATE, l_txn_hdr_rec.VENDOR_SITE_ID, l_txn_hdr_rec.VENDOR_ID,
104 l_txn_hdr_rec.LAST_REFRESHED_BY,
105 l_txn_hdr_rec.LAST_REFRESHED_DATE, l_txn_hdr_rec.TRX_CURRENCY);
106
107
108 DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Debug Profile Option Value: ' || l_profile_option_value || '. Record inserted into DPP_TRANSACTION_HEADERS_LOG.');
109
110 ELSE
111
112 DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Debug Profile Option Value: ' || l_profile_option_value || '. No Logging.');
113
114 END IF;
115
116 -- Standard check for p_commit
117 IF FND_API.to_Boolean( p_commit )
118 THEN
119 COMMIT WORK;
120 END IF;
121
122 DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Private API: ' || l_api_name || 'end');
123
124 -- Standard call to get message count and if count is 1, get message info.
125 FND_MSG_PUB.Count_And_Get
126 (p_count => x_msg_count,
127 p_data => x_msg_data
128 );
129
130 --Exception Handling
131 EXCEPTION
132 WHEN FND_API.G_EXC_ERROR THEN
133 ROLLBACK TO INSERT_HEADERLOG_PVT;
134 x_return_status := FND_API.G_RET_STS_ERROR;
135 -- Standard call to get message count and if count=1, get the message
136 FND_MSG_PUB.Count_And_Get (
137 p_encoded => FND_API.G_FALSE,
138 p_count => x_msg_count,
139 p_data => x_msg_data
140 );
141 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
142 ROLLBACK TO INSERT_HEADERLOG_PVT;
143 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
144 -- Standard call to get message count and if count=1, get the message
145 FND_MSG_PUB.Count_And_Get (
146 p_encoded => FND_API.G_FALSE,
147 p_count => x_msg_count,
148 p_data => x_msg_data
149 );
150 WHEN OTHERS THEN
151 ROLLBACK TO INSERT_HEADERLOG_PVT;
152 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153 fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
154 fnd_message.set_token('ROUTINE', 'DPP_LOG_PVT.Insert_HeaderLog');
155 fnd_message.set_token('ERRNO', sqlcode);
156 fnd_message.set_token('REASON', sqlerrm);
157 FND_MSG_PUB.ADD;
158 -- Standard call to get message count and if count=1, get the message
159 FND_MSG_PUB.Count_And_Get (
160 p_encoded => FND_API.G_FALSE,
161 p_count => x_msg_count,
162 p_data => x_msg_data
163 );
164
165 END Insert_HeaderLog;
166
167 PROCEDURE Insert_LinesLog(
168 p_api_version IN NUMBER
169 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
170 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
171 ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
172 ,x_return_status OUT NOCOPY VARCHAR2
173 ,x_msg_count OUT NOCOPY NUMBER
174 ,x_msg_data OUT NOCOPY VARCHAR2
175 ,p_txn_lines_tbl IN dpp_txn_line_tbl_type
176 )
177 IS
178 l_api_name CONSTANT VARCHAR2(30) := 'Insert_LinesLog';
179 l_api_version CONSTANT NUMBER := 1.0;
180 l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME ||'.'|| l_api_name;
181
182 l_txn_lines_tbl dpp_txn_line_tbl_type := p_txn_lines_tbl;
183 l_profile_option_value VARCHAR2(150);
184
185 BEGIN
186
187 -- Standard begin of API savepoint
188 SAVEPOINT Insert_LinesLog_PVT;
189 -- Standard call to check for call compatibility.
190 IF NOT FND_API.Compatible_API_Call ( l_api_version,
191 p_api_version,
192 l_api_name,
193 G_PKG_NAME)
194 THEN
195 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196 END IF;
197 -- Initialize message list if p_init_msg_list is set to TRUE.
198 IF FND_API.to_Boolean( p_init_msg_list )
199 THEN
200 FND_MSG_PUB.initialize;
201 END IF;
202
203
204 DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, 'dpp.plsql.' || L_FULL_NAME, 'Private API: ' || l_api_name || 'start');
205
206 -- Initialize API return status to sucess
207 x_return_status := FND_API.G_RET_STS_SUCCESS;
208
209 --
210 -- API body
211 --
212
213 l_profile_option_value := fnd_profile.VALUE('DPP_AUDIT_ENABLED');
214
215 IF l_profile_option_value = 'Y' THEN
216
217 FOR i in l_txn_lines_tbl.FIRST..l_txn_lines_tbl.LAST
218 LOOP
219 INSERT INTO DPP_TRANSACTION_LINES_LOG
220 (
221 LOG_ID, LOG_MODE, TRANSACTION_LINE_ID, SUPPLIER_PART_NUM, INVENTORY_ITEM_ID, PRIOR_PRICE,
222 CHANGE_TYPE, CHANGE_VALUE, COVERED_INVENTORY, APPROVED_INVENTORY, ORG_ID,
223 CREATION_DATE, CREATED_BY,
224 LAST_UPDATE_DATE, LAST_UPDATED_BY, LAST_UPDATE_LOGIN, ATTRIBUTE_CATEGORY, ATTRIBUTE1, ATTRIBUTE2, ATTRIBUTE3,
225 ATTRIBUTE4, ATTRIBUTE5, ATTRIBUTE6, ATTRIBUTE7, ATTRIBUTE8, ATTRIBUTE9, ATTRIBUTE10,
226 ATTRIBUTE11, ATTRIBUTE12, ATTRIBUTE13, ATTRIBUTE14, ATTRIBUTE15, ATTRIBUTE16, ATTRIBUTE17, ATTRIBUTE18, ATTRIBUTE19,
227 ATTRIBUTE20, ATTRIBUTE21, ATTRIBUTE22, ATTRIBUTE23, ATTRIBUTE24, ATTRIBUTE25, ATTRIBUTE26, ATTRIBUTE27,
228 ATTRIBUTE28, ATTRIBUTE29, ATTRIBUTE30,
229 CLAIM_AMOUNT, UPDATE_PURCHASING_DOCS, NOTIFY_PURCHASING_DOCS,
230 UPDATE_INVENTORY_COSTING, UPDATE_ITEM_LIST_PRICE, SUPP_DIST_CLAIM_STATUS, ONHAND_INVENTORY,
231 MANUALLY_ADJUSTED, NOTIFY_INBOUND_PRICELIST, NOTIFY_OUTBOUND_PRICELIST,NOTIFY_PROMOTIONS_PRICELIST
232 )
233 VALUES
234 (
235 DPP_LINES_LOG_ID_SEQ.nextval,l_txn_lines_tbl(i).LOG_MODE, l_txn_lines_tbl(i).TRANSACTION_LINE_ID,
236 l_txn_lines_tbl(i).SUPPLIER_PART_NUM, l_txn_lines_tbl(i).INVENTORY_ITEM_ID, l_txn_lines_tbl(i).PRIOR_PRICE,
237 l_txn_lines_tbl(i).CHANGE_TYPE, l_txn_lines_tbl(i).CHANGE_VALUE, l_txn_lines_tbl(i).COVERED_INVENTORY,
238 l_txn_lines_tbl(i).APPROVED_INVENTORY, l_txn_lines_tbl(i).ORG_ID,
239 l_txn_lines_tbl(i).CREATION_DATE, l_txn_lines_tbl(i).CREATED_BY,
240 l_txn_lines_tbl(i).LAST_UPDATE_DATE, l_txn_lines_tbl(i).LAST_UPDATED_BY, l_txn_lines_tbl(i).LAST_UPDATE_LOGIN,
241 l_txn_lines_tbl(i).ATTRIBUTE_CATEGORY, l_txn_lines_tbl(i).ATTRIBUTE1, l_txn_lines_tbl(i).ATTRIBUTE2,
242 l_txn_lines_tbl(i).ATTRIBUTE3,
243 l_txn_lines_tbl(i).ATTRIBUTE4, l_txn_lines_tbl(i).ATTRIBUTE5, l_txn_lines_tbl(i).ATTRIBUTE6,
244 l_txn_lines_tbl(i).ATTRIBUTE7, l_txn_lines_tbl(i).ATTRIBUTE8, l_txn_lines_tbl(i).ATTRIBUTE9,
245 l_txn_lines_tbl(i).ATTRIBUTE10,
246 l_txn_lines_tbl(i).ATTRIBUTE11, l_txn_lines_tbl(i).ATTRIBUTE12, l_txn_lines_tbl(i).ATTRIBUTE13,
247 l_txn_lines_tbl(i).ATTRIBUTE14, l_txn_lines_tbl(i).ATTRIBUTE15,
248 l_txn_lines_tbl(i).ATTRIBUTE16, l_txn_lines_tbl(i).ATTRIBUTE17, l_txn_lines_tbl(i).ATTRIBUTE18,
249 l_txn_lines_tbl(i).ATTRIBUTE19,
250 l_txn_lines_tbl(i).ATTRIBUTE20, l_txn_lines_tbl(i).ATTRIBUTE21, l_txn_lines_tbl(i).ATTRIBUTE22,
251 l_txn_lines_tbl(i).ATTRIBUTE23, l_txn_lines_tbl(i).ATTRIBUTE24, l_txn_lines_tbl(i).ATTRIBUTE25,
252 l_txn_lines_tbl(i).ATTRIBUTE26, l_txn_lines_tbl(i).ATTRIBUTE27,
253 l_txn_lines_tbl(i).ATTRIBUTE28, l_txn_lines_tbl(i).ATTRIBUTE29, l_txn_lines_tbl(i).ATTRIBUTE30,
254 l_txn_lines_tbl(i).CLAIM_AMOUNT, l_txn_lines_tbl(i).UPDATE_PURCHASING_DOCS,
255 l_txn_lines_tbl(i).NOTIFY_PURCHASING_DOCS,
256 l_txn_lines_tbl(i).UPDATE_INVENTORY_COSTING, l_txn_lines_tbl(i).UPDATE_ITEM_LIST_PRICE,
257 l_txn_lines_tbl(i).SUPP_DIST_CLAIM_STATUS, l_txn_lines_tbl(i).ONHAND_INVENTORY,
258 l_txn_lines_tbl(i).MANUALLY_ADJUSTED, l_txn_lines_tbl(i).NOTIFY_INBOUND_PRICELIST,
259 l_txn_lines_tbl(i).NOTIFY_OUTBOUND_PRICELIST, l_txn_lines_tbl(i).NOTIFY_PROMOTIONS_PRICELIST
260 );
261 END LOOP;
262
263
264 DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Debug Profile Option Value: ' || l_profile_option_value || '. Record(s) inserted into DPP_TRANSACTION_LINES_LOG.');
265
266 ELSE
267
268 DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Debug Profile Option Value: ' || l_profile_option_value || '. No Logging.');
269
270 END IF;
271
272 -- Standard check for p_commit
273 IF FND_API.to_Boolean( p_commit )
274 THEN
275 COMMIT WORK;
276 END IF;
277
278 DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Private API: ' || l_api_name || 'end');
279
280 -- Standard call to get message count and if count is 1, get message info.
281 FND_MSG_PUB.Count_And_Get
282 (p_count => x_msg_count,
283 p_data => x_msg_data
284 );
285
286 --Exception Handling
287 EXCEPTION
288
289 WHEN OTHERS THEN
290 ROLLBACK TO INSERT_LINESLOG_PVT;
291 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292 fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
293 fnd_message.set_token('ROUTINE', 'DPP_LOG_PVT.Insert_LinesLog');
294 fnd_message.set_token('ERRNO', sqlcode);
295 fnd_message.set_token('REASON', sqlerrm);
296 FND_MSG_PUB.ADD;
297 -- Standard call to get message count and if count=1, get the message
298 FND_MSG_PUB.Count_And_Get (
299 p_encoded => FND_API.G_FALSE,
300 p_count => x_msg_count,
301 p_data => x_msg_data
302 );
303 END Insert_LinesLog;
304
305 PROCEDURE Insert_ClaimsLog(
306 p_api_version IN NUMBER
307 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
308 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
309 ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
310 ,x_return_status OUT NOCOPY VARCHAR2
311 ,x_msg_count OUT NOCOPY NUMBER
312 ,x_msg_data OUT NOCOPY VARCHAR2
313 ,p_claim_lines_tbl IN dpp_claim_line_tbl_type
314 )
315 IS
316 l_api_name CONSTANT VARCHAR2(30) := 'Insert_ClaimsLog';
317 l_api_version CONSTANT NUMBER := 1.0;
321 l_profile_option_value VARCHAR2(150);
318 l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME ||'.'|| l_api_name;
319
320 l_claim_lines_tbl dpp_claim_line_tbl_type := p_claim_lines_tbl;
322
323 BEGIN
324
325 -- Standard begin of API savepoint
326 SAVEPOINT Insert_ClaimsLog_PVT;
327 -- Standard call to check for call compatibility.
328 IF NOT FND_API.Compatible_API_Call ( l_api_version,
329 p_api_version,
330 l_api_name,
331 G_PKG_NAME)
332 THEN
333 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
334 END IF;
335 -- Initialize message list if p_init_msg_list is set to TRUE.
336 IF FND_API.to_Boolean( p_init_msg_list )
337 THEN
338 FND_MSG_PUB.initialize;
339 END IF;
340
341
342 DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, 'dpp.plsql.' || L_FULL_NAME, 'Private API: ' || l_api_name || 'start');
343
344 -- Initialize API return status to sucess
345 x_return_status := FND_API.G_RET_STS_SUCCESS;
346
347 --
348 -- API body
349 --
350
351 l_profile_option_value := fnd_profile.VALUE('DPP_AUDIT_ENABLED');
352
353 IF l_profile_option_value = 'Y' THEN
354
355 FOR i in l_claim_lines_tbl.FIRST..l_claim_lines_tbl.LAST
356 LOOP
357 INSERT INTO DPP_CUSTOMER_CLAIMS_LOG
358 (
359 LOG_ID, LOG_MODE, CUSTOMER_INV_LINE_ID, INVENTORY_ITEM_ID, CUSTOMER_NEW_PRICE,
360 REPORTED_INVENTORY, CUST_CLAIM_AMT, DEBIT_MEMO_NUMBER, CUSTOMER_CLAIM_ID,
361 CREATION_DATE, CREATED_BY, LAST_UPDATE_DATE, LAST_UPDATED_BY, LAST_UPDATE_LOGIN,
362 ATTRIBUTE_CATEGORY, ATTRIBUTE1, ATTRIBUTE2, ATTRIBUTE3, ATTRIBUTE4, ATTRIBUTE5, ATTRIBUTE6,
363 ATTRIBUTE7, ATTRIBUTE8, ATTRIBUTE9, ATTRIBUTE10, ATTRIBUTE11, ATTRIBUTE12, ATTRIBUTE13,
364 ATTRIBUTE14, ATTRIBUTE15, ATTRIBUTE16, ATTRIBUTE17, ATTRIBUTE18, ATTRIBUTE19,
365 ATTRIBUTE20, ATTRIBUTE21, ATTRIBUTE22, ATTRIBUTE23, ATTRIBUTE24, ATTRIBUTE25, ATTRIBUTE26, ATTRIBUTE27,
366 ATTRIBUTE28, ATTRIBUTE29, ATTRIBUTE30,SUPP_CLAIM_AMT, SUPP_CUST_CLAIM_ID,CUST_ACCOUNT_ID,
367 CUSTOMER_CLAIM_CREATED,SUPPLIER_CLAIM_CREATED, ORG_ID, TRX_CURRENCY
368 )
369 VALUES
370 (
371 DPP_CLAIMS_LOG_ID_SEQ.nextval,l_claim_lines_tbl(i).LOG_MODE, l_claim_lines_tbl(i).CUSTOMER_INV_LINE_ID,
372 l_claim_lines_tbl(i).INVENTORY_ITEM_ID, l_claim_lines_tbl(i).CUSTOMER_NEW_PRICE,
373 l_claim_lines_tbl(i).REPORTED_INVENTORY, l_claim_lines_tbl(i).CUST_CLAIM_AMT,
374 l_claim_lines_tbl(i).DEBIT_MEMO_NUMBER, l_claim_lines_tbl(i).CUSTOMER_CLAIM_ID,
375 l_claim_lines_tbl(i).CREATION_DATE, l_claim_lines_tbl(i).CREATED_BY, l_claim_lines_tbl(i).LAST_UPDATE_DATE,
376 l_claim_lines_tbl(i).LAST_UPDATED_BY, l_claim_lines_tbl(i).LAST_UPDATE_LOGIN,
377 l_claim_lines_tbl(i).ATTRIBUTE_CATEGORY, l_claim_lines_tbl(i).ATTRIBUTE1, l_claim_lines_tbl(i).ATTRIBUTE2,
378 l_claim_lines_tbl(i).ATTRIBUTE3, l_claim_lines_tbl(i).ATTRIBUTE4, l_claim_lines_tbl(i).ATTRIBUTE5,
379 l_claim_lines_tbl(i).ATTRIBUTE6,
380 l_claim_lines_tbl(i).ATTRIBUTE7, l_claim_lines_tbl(i).ATTRIBUTE8, l_claim_lines_tbl(i).ATTRIBUTE9,
381 l_claim_lines_tbl(i).ATTRIBUTE10, l_claim_lines_tbl(i).ATTRIBUTE11, l_claim_lines_tbl(i).ATTRIBUTE12,
382 l_claim_lines_tbl(i).ATTRIBUTE13,
383 l_claim_lines_tbl(i).ATTRIBUTE14, l_claim_lines_tbl(i).ATTRIBUTE15, l_claim_lines_tbl(i).ATTRIBUTE16,
384 l_claim_lines_tbl(i).ATTRIBUTE17, l_claim_lines_tbl(i).ATTRIBUTE18, l_claim_lines_tbl(i).ATTRIBUTE19,
385 l_claim_lines_tbl(i).ATTRIBUTE20, l_claim_lines_tbl(i).ATTRIBUTE21, l_claim_lines_tbl(i).ATTRIBUTE22,
386 l_claim_lines_tbl(i).ATTRIBUTE23, l_claim_lines_tbl(i).ATTRIBUTE24, l_claim_lines_tbl(i).ATTRIBUTE25,
387 l_claim_lines_tbl(i).ATTRIBUTE26, l_claim_lines_tbl(i).ATTRIBUTE27,
388 l_claim_lines_tbl(i).ATTRIBUTE28, l_claim_lines_tbl(i).ATTRIBUTE29, l_claim_lines_tbl(i).ATTRIBUTE30,
389 l_claim_lines_tbl(i).SUPP_CLAIM_AMT, l_claim_lines_tbl(i).SUPP_CUST_CLAIM_ID,
390 l_claim_lines_tbl(i).CUST_ACCOUNT_ID,l_claim_lines_tbl(i).CUSTOMER_CLAIM_CREATED,
391 l_claim_lines_tbl(i).SUPPLIER_CLAIM_CREATED, l_claim_lines_tbl(i).ORG_ID, l_claim_lines_tbl(i).TRX_CURRENCY
392 );
393 END LOOP;
394
395
396 DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Debug Profile Option Value: ' || l_profile_option_value || '. Record(s) inserted into DPP_CUSTOMER_CLAIMS_LOG.');
397
398 ELSE
399
400 DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Debug Profile Option Value: ' || l_profile_option_value || '. No Logging.');
401
402 END IF;
403
404 -- Standard check for p_commit
405 IF FND_API.to_Boolean( p_commit )
406 THEN
407 COMMIT WORK;
408 END IF;
409
410 DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Private API: ' || l_api_name || 'end');
411
412 -- Standard call to get message count and if count is 1, get message info.
413 FND_MSG_PUB.Count_And_Get
414 (p_count => x_msg_count,
415 p_data => x_msg_data
416 );
417
418 --Exception Handling
419 EXCEPTION
420
421 WHEN OTHERS THEN
422 ROLLBACK TO INSERT_CLAIMSLOG_PVT;
423 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
424 fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
425 fnd_message.set_token('ROUTINE', 'DPP_LOG_PVT.Insert_ClaimsLog');
426 fnd_message.set_token('ERRNO', sqlcode);
427 fnd_message.set_token('REASON', sqlerrm);
428 FND_MSG_PUB.ADD;
429 -- Standard call to get message count and if count=1, get the message
430 FND_MSG_PUB.Count_And_Get (
431 p_encoded => FND_API.G_FALSE,
432 p_count => x_msg_count,
433 p_data => x_msg_data
434 );
435 END Insert_ClaimsLog;
436
437 END DPP_LOG_PVT;