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 135: FND_MSG_PUB.initialize;

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

Line 150: FND_MSG_PUB.add;

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

Line 155: FND_MSG_PUB.add;

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

Line 160: FND_MSG_PUB.add;

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

Line 165: FND_MSG_PUB.add;

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

Line 173: FND_MSG_PUB.add;

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

Line 178: FND_MSG_PUB.add;

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

Line 219: FND_MSG_PUB.add;

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

Line 236: FND_MSG_PUB.Count_And_Get

232:
233: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Private API: ' || l_api_name || 'end');
234:
235: -- Standard call to get message count and if count is 1, get message info.
236: FND_MSG_PUB.Count_And_Get
237: (p_count => x_msg_count,
238: p_data => x_msg_data
239: );
240:

Line 249: FND_MSG_PUB.Count_And_Get (

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

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

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

Line 264: FND_MSG_PUB.Count_And_Get (

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

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

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

Line 282: FND_MSG_PUB.add;

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

Line 284: FND_MSG_PUB.Count_And_Get (

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

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

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

Line 376: FND_MSG_PUB.initialize;

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

Line 398: FND_MSG_PUB.add;

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

Line 403: FND_MSG_PUB.add;

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

Line 408: FND_MSG_PUB.add;

404: RAISE FND_API.G_EXC_ERROR;
405: ELSIF l_cust_hdr_rec.effective_end_date IS NULL THEN
406: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
407: FND_MESSAGE.set_token('ID', 'Effective End Date');
408: FND_MSG_PUB.add;
409: RAISE FND_API.G_EXC_ERROR;
410: ELSIF l_cust_hdr_rec.currency_code IS NULL THEN
411: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
412: FND_MESSAGE.set_token('ID', 'Currency Code');

Line 413: FND_MSG_PUB.add;

409: RAISE FND_API.G_EXC_ERROR;
410: ELSIF l_cust_hdr_rec.currency_code IS NULL THEN
411: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
412: FND_MESSAGE.set_token('ID', 'Currency Code');
413: FND_MSG_PUB.add;
414: RAISE FND_API.G_EXC_ERROR;
415: ELSE
416: IF l_customer_tbl.EXISTS(1) THEN
417: IF l_profile_option_value = 'Y' OR l_profile_option_value IS NULL THEN

Line 423: FND_MSG_PUB.add;

419: l_supp_new_price := 0;
420: IF l_customer_tbl(i).inventory_item_id IS NULL THEN
421: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
422: FND_MESSAGE.set_token('ID', 'Inventory Item Id');
423: FND_MSG_PUB.add;
424: RAISE FND_API.G_EXC_ERROR;
425: ELSE
426: BEGIN
427: SELECT SUPPLIER_NEW_PRICE, PRICE_CHANGE

Line 576: fnd_msg_pub.add;

572: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
573: fnd_message.set_token('ROUTINE', 'DPP_CUSTOMERCLAIMS_PVT.Populate_CustomerPrice');
574: fnd_message.set_token('ERRNO', sqlcode);
575: fnd_message.set_token('REASON', sqlerrm);
576: fnd_msg_pub.add;
577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
578: END;
579: -- Debug Message
580:

Line 604: FND_MSG_PUB.add;

600: END LOOP; --customer_price_tbl loop
601: ELSE --customer_price_tbl exists
602: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
603: FND_MESSAGE.set_token('ID', 'Line Details');
604: FND_MSG_PUB.add;
605: RAISE FND_API.G_EXC_ERROR;
606: END IF; --customer_price_tbl exists
607: END IF; --inventory_item_id is not null
608: END LOOP; --l_customer_tbl loop

Line 645: FND_MSG_PUB.add;

641:
642: ELSE
643: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
644: FND_MESSAGE.set_token('ID', 'Line Details');
645: FND_MSG_PUB.add;
646: RAISE FND_API.G_EXC_ERROR;
647: END IF; --l_customer_tbl.EXISTS(1)
648: END IF; --l_cust_hdr_rec.org_id IS NULL
649:

Line 661: FND_MSG_PUB.Count_And_Get

657:
658: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Private API: ' || l_api_name || 'end');
659:
660: -- Standard call to get message count and if count is 1, get message info.
661: FND_MSG_PUB.Count_And_Get
662: (p_count => x_msg_count,
663: p_data => x_msg_data
664: );
665:

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

664: );
665:
666: IF x_msg_count > 1 THEN
667: FOR I IN 1..x_msg_count LOOP
668: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);
669: END LOOP;
670: END IF;
671:
672: --Exception Handling

Line 678: FND_MSG_PUB.Count_And_Get (

674: WHEN DPP_UTILITY_PVT.resource_locked THEN
675: ROLLBACK TO Populate_CustomerPrice_PVT;
676: x_return_status := FND_API.g_ret_sts_error;
677: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
678: FND_MSG_PUB.Count_And_Get (
679: p_encoded => FND_API.G_FALSE,
680: p_count => x_msg_count,
681: p_data => x_msg_data
682: );

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

681: p_data => x_msg_data
682: );
683: IF x_msg_count > 1 THEN
684: FOR I IN 1..x_msg_count LOOP
685: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);
686: END LOOP;
687: END IF;
688:
689: WHEN FND_API.G_EXC_ERROR THEN

Line 693: FND_MSG_PUB.Count_And_Get (

689: WHEN FND_API.G_EXC_ERROR THEN
690: ROLLBACK TO Populate_CustomerPrice_PVT;
691: x_return_status := FND_API.G_RET_STS_ERROR;
692: -- Standard call to get message count and if count=1, get the message
693: FND_MSG_PUB.Count_And_Get (
694: p_encoded => FND_API.G_FALSE,
695: p_count => x_msg_count,
696: p_data => x_msg_data
697: );

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

696: p_data => x_msg_data
697: );
698: IF x_msg_count > 1 THEN
699: FOR I IN 1..x_msg_count LOOP
700: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);
701: END LOOP;
702: END IF;
703:
704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 708: FND_MSG_PUB.Count_And_Get (

704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
705: ROLLBACK TO Populate_CustomerPrice_PVT;
706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
707: -- Standard call to get message count and if count=1, get the message
708: FND_MSG_PUB.Count_And_Get (
709: p_encoded => FND_API.G_FALSE,
710: p_count => x_msg_count,
711: p_data => x_msg_data
712: );

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

711: p_data => x_msg_data
712: );
713: IF x_msg_count > 1 THEN
714: FOR I IN 1..x_msg_count LOOP
715: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);
716: END LOOP;
717: END IF;
718:
719: WHEN OTHERS THEN

Line 726: FND_MSG_PUB.ADD;

722: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
723: fnd_message.set_token('ROUTINE', 'DPP_CUSTOMERCLAIMS_PVT.Populate_CustomerPrice');
724: fnd_message.set_token('ERRNO', sqlcode);
725: fnd_message.set_token('REASON', sqlerrm);
726: FND_MSG_PUB.ADD;
727: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Error in inserting into DPP_CUSTOMER_CLAIMS_ALL: '||SQLERRM);
728:
729: -- Standard call to get message count and if count=1, get the message
730: FND_MSG_PUB.Count_And_Get (

Line 730: FND_MSG_PUB.Count_And_Get (

726: FND_MSG_PUB.ADD;
727: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Error in inserting into DPP_CUSTOMER_CLAIMS_ALL: '||SQLERRM);
728:
729: -- Standard call to get message count and if count=1, get the message
730: FND_MSG_PUB.Count_And_Get (
731: p_encoded => FND_API.G_FALSE,
732: p_count => x_msg_count,
733: p_data => x_msg_data
734: );

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

733: p_data => x_msg_data
734: );
735: IF x_msg_count > 1 THEN
736: FOR I IN 1..x_msg_count LOOP
737: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 2000);
738: END LOOP;
739: END IF;
740:
741: