eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.DPP_LOG_PVT

Source


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