DBA Data[Home] [Help]

APPS.DPP_CUSTOMERCLAIMS_PVT dependencies on FND_MSG_PUB

Line 11: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);

7: -- NOTE : Contains Procedures - Select Data for Customer Claims Tab Prepopulation, Populate data in DPP
8: -- End of Comments
9:
10: G_PKG_NAME CONSTANT VARCHAR2(30) := 'DPP_CUSTOMERCLAIMS_PVT';
11: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
12: G_FILE_NAME CONSTANT VARCHAR2(14) := 'dppvcusb.pls';
13:
14: ---------------------------------------------------------------------
15: -- PROCEDURE

Line 134: FND_MSG_PUB.initialize;

130: END IF;
131: -- Initialize message list if p_init_msg_list is set to TRUE.
132: IF FND_API.to_Boolean( p_init_msg_list )
133: THEN
134: FND_MSG_PUB.initialize;
135: END IF;
136:
137: -- Debug Message
138: IF g_debug THEN

Line 149: FND_MSG_PUB.add;

145: --
146: IF l_cust_hdr_rec.org_id IS NULL THEN
147: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
148: FND_MESSAGE.set_token('ID', 'Org ID');
149: FND_MSG_PUB.add;
150: RAISE FND_API.G_EXC_ERROR;
151: ELSIF l_cust_hdr_rec.Effective_Start_Date IS NULL THEN
152: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
153: FND_MESSAGE.set_token('ID', 'Effective Start Date');

Line 154: FND_MSG_PUB.add;

150: RAISE FND_API.G_EXC_ERROR;
151: ELSIF l_cust_hdr_rec.Effective_Start_Date IS NULL THEN
152: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
153: FND_MESSAGE.set_token('ID', 'Effective Start Date');
154: FND_MSG_PUB.add;
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF l_cust_hdr_rec.Effective_End_Date IS NULL THEN
157: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
158: FND_MESSAGE.set_token('ID', 'Effective End Date');

Line 159: FND_MSG_PUB.add;

155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF l_cust_hdr_rec.Effective_End_Date IS NULL THEN
157: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
158: FND_MESSAGE.set_token('ID', 'Effective End Date');
159: FND_MSG_PUB.add;
160: RAISE FND_API.G_EXC_ERROR;
161: ELSIF l_cust_hdr_rec.currency_code IS NULL THEN
162: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
163: FND_MESSAGE.set_token('ID', 'Currency Code');

Line 164: FND_MSG_PUB.add;

160: RAISE FND_API.G_EXC_ERROR;
161: ELSIF l_cust_hdr_rec.currency_code IS NULL THEN
162: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
163: FND_MESSAGE.set_token('ID', 'Currency Code');
164: FND_MSG_PUB.add;
165: RAISE FND_API.G_EXC_ERROR;
166: ELSE
167: IF l_customer_tbl.EXISTS(1) THEN
168: FOR i IN l_customer_tbl.FIRST..l_customer_tbl.LAST LOOP

Line 172: FND_MSG_PUB.add;

168: FOR i IN l_customer_tbl.FIRST..l_customer_tbl.LAST LOOP
169: IF l_customer_tbl(i).inventory_item_id IS NULL THEN
170: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
171: FND_MESSAGE.set_token('ID', 'Inventory Item Id');
172: FND_MSG_PUB.add;
173: RAISE FND_API.G_EXC_ERROR;
174: ELSIF l_customer_tbl(i).uom_code IS NULL THEN
175: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
176: FND_MESSAGE.set_token('ID', 'UOM Code');

Line 177: FND_MSG_PUB.add;

173: RAISE FND_API.G_EXC_ERROR;
174: ELSIF l_customer_tbl(i).uom_code IS NULL THEN
175: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
176: FND_MESSAGE.set_token('ID', 'UOM Code');
177: FND_MSG_PUB.add;
178: RAISE FND_API.G_EXC_ERROR;
179: ELSE --Inventory item id null
180: l_customer_price_tbl.delete();
181: l_count :=0;

Line 218: FND_MSG_PUB.add;

214: END LOOP;
215: ELSE --No line details available
216: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
217: FND_MESSAGE.set_token('ID', 'Line Details');
218: FND_MSG_PUB.add;
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
221:
222: p_customer_tbl := l_customer_tbl;

Line 235: FND_MSG_PUB.Count_And_Get

231: IF g_debug THEN
232: DPP_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
233: END IF;
234: -- Standard call to get message count and if count is 1, get message info.
235: FND_MSG_PUB.Count_And_Get
236: (p_count => x_msg_count,
237: p_data => x_msg_data
238: );
239:

Line 248: FND_MSG_PUB.Count_And_Get (

244: WHEN FND_API.G_EXC_ERROR THEN
245: ROLLBACK TO Select_CustomerPrice_PVT;
246: x_return_status := FND_API.G_RET_STS_ERROR;
247: -- Standard call to get message count and if count=1, get the message
248: FND_MSG_PUB.Count_And_Get (
249: p_encoded => FND_API.G_FALSE,
250: p_count => x_msg_count,
251: p_data => x_msg_data
252: );

Line 255: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);

251: p_data => x_msg_data
252: );
253: IF x_msg_count > 1 THEN
254: FOR I IN 1..x_msg_count LOOP
255: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);
256: END LOOP;
257: END IF;
258:
259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 263: FND_MSG_PUB.Count_And_Get (

259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
260: ROLLBACK TO Select_CustomerPrice_PVT;
261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
262: -- Standard call to get message count and if count=1, get the message
263: FND_MSG_PUB.Count_And_Get (
264: p_encoded => FND_API.G_FALSE,
265: p_count => x_msg_count,
266: p_data => x_msg_data
267: );

Line 270: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);

266: p_data => x_msg_data
267: );
268: IF x_msg_count > 1 THEN
269: FOR I IN 1..x_msg_count LOOP
270: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);
271: END LOOP;
272: END IF;
273:
274: WHEN OTHERS THEN

Line 281: FND_MSG_PUB.add;

277: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
278: fnd_message.set_token('ROUTINE', 'DPP_CUSTOMERCLAIMS_PVT.Select_CustomerPrice');
279: fnd_message.set_token('ERRNO', sqlcode);
280: fnd_message.set_token('REASON', sqlerrm);
281: FND_MSG_PUB.add;
282: -- Standard call to get message count and if count=1, get the message
283: FND_MSG_PUB.Count_And_Get (
284: p_encoded => FND_API.G_FALSE,
285: p_count => x_msg_count,

Line 283: FND_MSG_PUB.Count_And_Get (

279: fnd_message.set_token('ERRNO', sqlcode);
280: fnd_message.set_token('REASON', sqlerrm);
281: FND_MSG_PUB.add;
282: -- Standard call to get message count and if count=1, get the message
283: FND_MSG_PUB.Count_And_Get (
284: p_encoded => FND_API.G_FALSE,
285: p_count => x_msg_count,
286: p_data => x_msg_data
287: );

Line 290: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);

286: p_data => x_msg_data
287: );
288: IF x_msg_count > 1 THEN
289: FOR I IN 1..x_msg_count LOOP
290: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);
291: END LOOP;
292: END IF;
293:
294: END Select_CustomerPrice;

Line 373: FND_MSG_PUB.initialize;

369: END IF;
370: -- Initialize message list if p_init_msg_list is set to TRUE.
371: IF FND_API.to_Boolean( p_init_msg_list )
372: THEN
373: FND_MSG_PUB.initialize;
374: END IF;
375:
376: -- Debug Message
377: IF g_debug THEN

Line 393: FND_MSG_PUB.add;

389:
390: IF l_cust_hdr_rec.org_id IS NULL THEN
391: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
392: FND_MESSAGE.set_token('ID', 'Org Id');
393: FND_MSG_PUB.add;
394: RAISE FND_API.G_EXC_ERROR;
395: ELSIF l_cust_hdr_rec.effective_start_date IS NULL THEN
396: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
397: FND_MESSAGE.set_token('ID', 'Effective Start Date');

Line 398: FND_MSG_PUB.add;

394: RAISE FND_API.G_EXC_ERROR;
395: ELSIF l_cust_hdr_rec.effective_start_date IS NULL THEN
396: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
397: FND_MESSAGE.set_token('ID', 'Effective Start Date');
398: FND_MSG_PUB.add;
399: RAISE FND_API.G_EXC_ERROR;
400: ELSIF l_cust_hdr_rec.effective_end_date IS NULL THEN
401: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
402: FND_MESSAGE.set_token('ID', 'Effective End Date');

Line 403: FND_MSG_PUB.add;

399: RAISE FND_API.G_EXC_ERROR;
400: ELSIF l_cust_hdr_rec.effective_end_date IS NULL THEN
401: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
402: FND_MESSAGE.set_token('ID', 'Effective End Date');
403: FND_MSG_PUB.add;
404: RAISE FND_API.G_EXC_ERROR;
405: ELSIF l_cust_hdr_rec.currency_code IS NULL THEN
406: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
407: FND_MESSAGE.set_token('ID', 'Currency Code');

Line 408: FND_MSG_PUB.add;

404: RAISE FND_API.G_EXC_ERROR;
405: ELSIF l_cust_hdr_rec.currency_code IS NULL THEN
406: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
407: FND_MESSAGE.set_token('ID', 'Currency Code');
408: FND_MSG_PUB.add;
409: RAISE FND_API.G_EXC_ERROR;
410: ELSE
411: IF l_customer_tbl.EXISTS(1) THEN
412: FOR i IN l_customer_tbl.FIRST..l_customer_tbl.LAST LOOP

Line 417: FND_MSG_PUB.add;

413: l_supp_new_price := 0;
414: IF l_customer_tbl(i).inventory_item_id IS NULL THEN
415: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
416: FND_MESSAGE.set_token('ID', 'Inventory Item Id');
417: FND_MSG_PUB.add;
418: RAISE FND_API.G_EXC_ERROR;
419: ELSE
420: BEGIN
421: SELECT SUPPLIER_NEW_PRICE, PRICE_CHANGE

Line 570: fnd_msg_pub.add;

566: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
567: fnd_message.set_token('ROUTINE', 'DPP_CUSTOMERCLAIMS_PVT.Populate_CustomerPrice');
568: fnd_message.set_token('ERRNO', sqlcode);
569: fnd_message.set_token('REASON', sqlerrm);
570: fnd_msg_pub.add;
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END;
573: -- Debug Message
574: IF g_debug THEN

Line 598: FND_MSG_PUB.add;

594: END LOOP; --customer_price_tbl loop
595: ELSE --customer_price_tbl exists
596: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
597: FND_MESSAGE.set_token('ID', 'Line Details');
598: FND_MSG_PUB.add;
599: RAISE FND_API.G_EXC_ERROR;
600: END IF; --customer_price_tbl exists
601: END IF; --inventory_item_id is not null
602: END LOOP; --l_customer_tbl loop

Line 638: FND_MSG_PUB.add;

634: END IF;
635: ELSE
636: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
637: FND_MESSAGE.set_token('ID', 'Line Details');
638: FND_MSG_PUB.add;
639: RAISE FND_API.G_EXC_ERROR;
640: END IF; --l_customer_tbl.EXISTS(1)
641: END IF; --l_cust_hdr_rec.org_id IS NULL
642:

Line 654: FND_MSG_PUB.Count_And_Get

650: IF g_debug THEN
651: DPP_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
652: END IF;
653: -- Standard call to get message count and if count is 1, get message info.
654: FND_MSG_PUB.Count_And_Get
655: (p_count => x_msg_count,
656: p_data => x_msg_data
657: );
658:

Line 661: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);

657: );
658:
659: IF x_msg_count > 1 THEN
660: FOR I IN 1..x_msg_count LOOP
661: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);
662: END LOOP;
663: END IF;
664:
665: --Exception Handling

Line 671: FND_MSG_PUB.Count_And_Get (

667: WHEN DPP_UTILITY_PVT.resource_locked THEN
668: ROLLBACK TO Populate_CustomerPrice_PVT;
669: x_return_status := FND_API.g_ret_sts_error;
670: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
671: FND_MSG_PUB.Count_And_Get (
672: p_encoded => FND_API.G_FALSE,
673: p_count => x_msg_count,
674: p_data => x_msg_data
675: );

Line 678: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);

674: p_data => x_msg_data
675: );
676: IF x_msg_count > 1 THEN
677: FOR I IN 1..x_msg_count LOOP
678: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);
679: END LOOP;
680: END IF;
681:
682: WHEN FND_API.G_EXC_ERROR THEN

Line 686: FND_MSG_PUB.Count_And_Get (

682: WHEN FND_API.G_EXC_ERROR THEN
683: ROLLBACK TO Populate_CustomerPrice_PVT;
684: x_return_status := FND_API.G_RET_STS_ERROR;
685: -- Standard call to get message count and if count=1, get the message
686: FND_MSG_PUB.Count_And_Get (
687: p_encoded => FND_API.G_FALSE,
688: p_count => x_msg_count,
689: p_data => x_msg_data
690: );

Line 693: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);

689: p_data => x_msg_data
690: );
691: IF x_msg_count > 1 THEN
692: FOR I IN 1..x_msg_count LOOP
693: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);
694: END LOOP;
695: END IF;
696:
697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 701: FND_MSG_PUB.Count_And_Get (

697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
698: ROLLBACK TO Populate_CustomerPrice_PVT;
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
700: -- Standard call to get message count and if count=1, get the message
701: FND_MSG_PUB.Count_And_Get (
702: p_encoded => FND_API.G_FALSE,
703: p_count => x_msg_count,
704: p_data => x_msg_data
705: );

Line 708: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);

704: p_data => x_msg_data
705: );
706: IF x_msg_count > 1 THEN
707: FOR I IN 1..x_msg_count LOOP
708: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);
709: END LOOP;
710: END IF;
711:
712: WHEN OTHERS THEN

Line 719: FND_MSG_PUB.ADD;

715: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
716: fnd_message.set_token('ROUTINE', 'DPP_CUSTOMERCLAIMS_PVT.Populate_CustomerPrice');
717: fnd_message.set_token('ERRNO', sqlcode);
718: fnd_message.set_token('REASON', sqlerrm);
719: FND_MSG_PUB.ADD;
720: DPP_UTILITY_PVT.debug_message('Error in inserting into DPP_CUSTOMER_CLAIMS_ALL: '||SQLERRM);
721:
722: -- Standard call to get message count and if count=1, get the message
723: FND_MSG_PUB.Count_And_Get (

Line 723: FND_MSG_PUB.Count_And_Get (

719: FND_MSG_PUB.ADD;
720: DPP_UTILITY_PVT.debug_message('Error in inserting into DPP_CUSTOMER_CLAIMS_ALL: '||SQLERRM);
721:
722: -- Standard call to get message count and if count=1, get the message
723: FND_MSG_PUB.Count_And_Get (
724: p_encoded => FND_API.G_FALSE,
725: p_count => x_msg_count,
726: p_data => x_msg_data
727: );

Line 730: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);

726: p_data => x_msg_data
727: );
728: IF x_msg_count > 1 THEN
729: FOR I IN 1..x_msg_count LOOP
730: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);
731: END LOOP;
732: END IF;
733:
734: