38: INTO l_process_code
39: FROM fnd_lookups
40: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
41: AND lookup_code ='UPDTPO';
42: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_REQUESTED');
43: fnd_message.set_token('PROCESS_CODE', l_process_code);
44: fnd_msg_pub.add;
45: EXCEPTION WHEN OTHERS THEN
46: NULL;
39: FROM fnd_lookups
40: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
41: AND lookup_code ='UPDTPO';
42: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_REQUESTED');
43: fnd_message.set_token('PROCESS_CODE', l_process_code);
44: fnd_msg_pub.add;
45: EXCEPTION WHEN OTHERS THEN
46: NULL;
47: END;
56: INTO l_process_code
57: FROM fnd_lookups
58: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
59: AND lookup_code ='INVC';
60: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_REQUESTED');
61: fnd_message.set_token('PROCESS_CODE', l_process_code);
62: fnd_msg_pub.add;
63: EXCEPTION WHEN OTHERS THEN
64: NULL;
57: FROM fnd_lookups
58: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
59: AND lookup_code ='INVC';
60: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_REQUESTED');
61: fnd_message.set_token('PROCESS_CODE', l_process_code);
62: fnd_msg_pub.add;
63: EXCEPTION WHEN OTHERS THEN
64: NULL;
65: END;
74: INTO l_process_code
75: FROM fnd_lookups
76: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
77: AND lookup_code ='UPDTLP';
78: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_REQUESTED');
79: fnd_message.set_token('PROCESS_CODE', l_process_code);
80: fnd_msg_pub.add;
81: EXCEPTION WHEN OTHERS THEN
82: NULL;
75: FROM fnd_lookups
76: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
77: AND lookup_code ='UPDTLP';
78: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_REQUESTED');
79: fnd_message.set_token('PROCESS_CODE', l_process_code);
80: fnd_msg_pub.add;
81: EXCEPTION WHEN OTHERS THEN
82: NULL;
83: END;
91: INTO l_process_code
92: FROM fnd_lookups
93: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
94: AND lookup_code ='DSTRINVCL';
95: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_REQUESTED');
96: fnd_message.set_token('PROCESS_CODE', l_process_code);
97: fnd_msg_pub.add;
98: EXCEPTION WHEN OTHERS THEN
99: NULL;
92: FROM fnd_lookups
93: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
94: AND lookup_code ='DSTRINVCL';
95: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_REQUESTED');
96: fnd_message.set_token('PROCESS_CODE', l_process_code);
97: fnd_msg_pub.add;
98: EXCEPTION WHEN OTHERS THEN
99: NULL;
100: END;
108: INTO l_process_code
109: FROM fnd_lookups
110: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
111: AND lookup_code ='CUSTINVCL';
112: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_REQUESTED');
113: fnd_message.set_token('PROCESS_CODE', l_process_code);
114: fnd_msg_pub.add;
115: EXCEPTION WHEN OTHERS THEN
116: NULL;
109: FROM fnd_lookups
110: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
111: AND lookup_code ='CUSTINVCL';
112: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_REQUESTED');
113: fnd_message.set_token('PROCESS_CODE', l_process_code);
114: fnd_msg_pub.add;
115: EXCEPTION WHEN OTHERS THEN
116: NULL;
117: END;
116: NULL;
117: END;
118:
119: IF l_flag = 'Y' THEN
120: fnd_message.set_name('DPP', 'DPP_TXN_NOT_CANCELLED');
121: fnd_msg_pub.add;
122: RAISE FND_API.G_EXC_ERROR;
123: END IF;
124:
135: INTO l_process_code
136: FROM fnd_lookups
137: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
138: AND lookup_code ='UPDTPO';
139: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
140: fnd_message.set_token('PROCESS_CODE', l_process_code);
141: fnd_msg_pub.add;
142: EXCEPTION
143: WHEN NO_DATA_FOUND THEN
136: FROM fnd_lookups
137: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
138: AND lookup_code ='UPDTPO';
139: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
140: fnd_message.set_token('PROCESS_CODE', l_process_code);
141: fnd_msg_pub.add;
142: EXCEPTION
143: WHEN NO_DATA_FOUND THEN
144: NULL;
158: INTO l_process_code
159: FROM fnd_lookups
160: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
161: AND lookup_code ='NTFYPO';
162: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
163: fnd_message.set_token('PROCESS_CODE', l_process_code);
164: fnd_msg_pub.add;
165: EXCEPTION
166: WHEN NO_DATA_FOUND THEN
159: FROM fnd_lookups
160: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
161: AND lookup_code ='NTFYPO';
162: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
163: fnd_message.set_token('PROCESS_CODE', l_process_code);
164: fnd_msg_pub.add;
165: EXCEPTION
166: WHEN NO_DATA_FOUND THEN
167: NULL;
181: INTO l_process_code
182: FROM fnd_lookups
183: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
184: AND lookup_code ='INVC';
185: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
186: fnd_message.set_token('PROCESS_CODE', l_process_code);
187: fnd_msg_pub.add;
188: EXCEPTION
189: WHEN NO_DATA_FOUND THEN
182: FROM fnd_lookups
183: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
184: AND lookup_code ='INVC';
185: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
186: fnd_message.set_token('PROCESS_CODE', l_process_code);
187: fnd_msg_pub.add;
188: EXCEPTION
189: WHEN NO_DATA_FOUND THEN
190: NULL;
203: INTO l_process_code
204: FROM fnd_lookups
205: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
206: AND lookup_code ='UPDTLP';
207: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
208: fnd_message.set_token('PROCESS_CODE', l_process_code);
209: fnd_msg_pub.add;
210: EXCEPTION
211: WHEN NO_DATA_FOUND THEN
204: FROM fnd_lookups
205: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
206: AND lookup_code ='UPDTLP';
207: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
208: fnd_message.set_token('PROCESS_CODE', l_process_code);
209: fnd_msg_pub.add;
210: EXCEPTION
211: WHEN NO_DATA_FOUND THEN
212: NULL;
225: INTO l_process_code
226: FROM fnd_lookups
227: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
228: AND lookup_code ='INPL';
229: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
230: fnd_message.set_token('PROCESS_CODE', l_process_code);
231: fnd_msg_pub.add;
232: EXCEPTION
233: WHEN NO_DATA_FOUND THEN
226: FROM fnd_lookups
227: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
228: AND lookup_code ='INPL';
229: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
230: fnd_message.set_token('PROCESS_CODE', l_process_code);
231: fnd_msg_pub.add;
232: EXCEPTION
233: WHEN NO_DATA_FOUND THEN
234: NULL;
247: INTO l_process_code
248: FROM fnd_lookups
249: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
250: AND lookup_code ='OUTPL';
251: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
252: fnd_message.set_token('PROCESS_CODE', l_process_code);
253: fnd_msg_pub.add;
254: EXCEPTION
255: WHEN NO_DATA_FOUND THEN
248: FROM fnd_lookups
249: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
250: AND lookup_code ='OUTPL';
251: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
252: fnd_message.set_token('PROCESS_CODE', l_process_code);
253: fnd_msg_pub.add;
254: EXCEPTION
255: WHEN NO_DATA_FOUND THEN
256: NULL;
269: INTO l_process_code
270: FROM fnd_lookups
271: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
272: AND lookup_code ='PROMO';
273: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
274: fnd_message.set_token('PROCESS_CODE', l_process_code);
275: fnd_msg_pub.add;
276: EXCEPTION
277: WHEN NO_DATA_FOUND THEN
270: FROM fnd_lookups
271: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
272: AND lookup_code ='PROMO';
273: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
274: fnd_message.set_token('PROCESS_CODE', l_process_code);
275: fnd_msg_pub.add;
276: EXCEPTION
277: WHEN NO_DATA_FOUND THEN
278: NULL;
291: INTO l_process_code
292: FROM fnd_lookups
293: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
294: AND lookup_code ='DSTRINVCL';
295: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
296: fnd_message.set_token('PROCESS_CODE', l_process_code);
297: fnd_msg_pub.add;
298: EXCEPTION
299: WHEN NO_DATA_FOUND THEN
292: FROM fnd_lookups
293: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
294: AND lookup_code ='DSTRINVCL';
295: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
296: fnd_message.set_token('PROCESS_CODE', l_process_code);
297: fnd_msg_pub.add;
298: EXCEPTION
299: WHEN NO_DATA_FOUND THEN
300: NULL;
313: INTO l_process_code
314: FROM fnd_lookups
315: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
316: AND lookup_code ='CUSTINVCL';
317: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
318: fnd_message.set_token('PROCESS_CODE', l_process_code);
319: fnd_msg_pub.add;
320: EXCEPTION
321: WHEN NO_DATA_FOUND THEN
314: FROM fnd_lookups
315: WHERE lookup_type LIKE 'DPP_EXECUTION_PROCESSES%'
316: AND lookup_code ='CUSTINVCL';
317: fnd_message.set_name('DPP', 'DPP_EXE_PROCESS_INCOMPLETE');
318: fnd_message.set_token('PROCESS_CODE', l_process_code);
319: fnd_msg_pub.add;
320: EXCEPTION
321: WHEN NO_DATA_FOUND THEN
322: NULL;
326:
327: FOR select_claims_rec IN select_claims_csr(p_transaction_header_id)
328: LOOP
329: l_flag := 'Y';
330: fnd_message.set_name('DPP', 'DPP_CLAIM_NOT_CLOSED');
331: fnd_message.set_token('CLAIM_NUMBER',select_claims_rec.claim_number );
332: fnd_msg_pub.add;
333: END LOOP;
334: END IF;
327: FOR select_claims_rec IN select_claims_csr(p_transaction_header_id)
328: LOOP
329: l_flag := 'Y';
330: fnd_message.set_name('DPP', 'DPP_CLAIM_NOT_CLOSED');
331: fnd_message.set_token('CLAIM_NUMBER',select_claims_rec.claim_number );
332: fnd_msg_pub.add;
333: END LOOP;
334: END IF;
335: IF l_flag = 'Y' THEN
332: fnd_msg_pub.add;
333: END LOOP;
334: END IF;
335: IF l_flag = 'Y' THEN
336: fnd_message.set_name('DPP', 'DPP_TXN_NOT_CLOSED');
337: fnd_msg_pub.add;
338: RAISE FND_API.G_EXC_ERROR;
339: END IF;
340: EXCEPTION
353: END IF;
354:
355: WHEN OTHERS THEN
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
357: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
358: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.check_txnclose');
359: fnd_message.set_token('ERRNO', sqlcode);
360: fnd_message.set_token('REASON', sqlerrm);
361: FND_MSG_PUB.add;
354:
355: WHEN OTHERS THEN
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
357: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
358: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.check_txnclose');
359: fnd_message.set_token('ERRNO', sqlcode);
360: fnd_message.set_token('REASON', sqlerrm);
361: FND_MSG_PUB.add;
362:
355: WHEN OTHERS THEN
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
357: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
358: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.check_txnclose');
359: fnd_message.set_token('ERRNO', sqlcode);
360: fnd_message.set_token('REASON', sqlerrm);
361: FND_MSG_PUB.add;
362:
363: -- Standard call to get message count and if count=1, get the message
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
357: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
358: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.check_txnclose');
359: fnd_message.set_token('ERRNO', sqlcode);
360: fnd_message.set_token('REASON', sqlerrm);
361: FND_MSG_PUB.add;
362:
363: -- Standard call to get message count and if count=1, get the message
364: FND_MSG_PUB.Count_And_Get (
420: EXCEPTION
421: WHEN OTHERS THEN
422: x_return_status := fnd_api.g_ret_sts_unexp_error;
423:
424: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
425: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendors');
426: fnd_message.set_token('ERRNO', sqlcode);
427: fnd_message.set_token('REASON', sqlerrm);
428: FND_MSG_PUB.ADD;
421: WHEN OTHERS THEN
422: x_return_status := fnd_api.g_ret_sts_unexp_error;
423:
424: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
425: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendors');
426: fnd_message.set_token('ERRNO', sqlcode);
427: fnd_message.set_token('REASON', sqlerrm);
428: FND_MSG_PUB.ADD;
429:
422: x_return_status := fnd_api.g_ret_sts_unexp_error;
423:
424: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
425: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendors');
426: fnd_message.set_token('ERRNO', sqlcode);
427: fnd_message.set_token('REASON', sqlerrm);
428: FND_MSG_PUB.ADD;
429:
430: END search_vendors;
423:
424: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
425: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendors');
426: fnd_message.set_token('ERRNO', sqlcode);
427: fnd_message.set_token('REASON', sqlerrm);
428: FND_MSG_PUB.ADD;
429:
430: END search_vendors;
431:
475:
476: x_rec_count := 0;
477:
478: IF l_search_criteria_tbl(1).search_text IS NULL THEN
479: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_VENDORID');
480: fnd_msg_pub.add;
481: RAISE FND_API.G_EXC_ERROR;
482:
483: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
480: fnd_msg_pub.add;
481: RAISE FND_API.G_EXC_ERROR;
482:
483: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
484: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_ORGID');
485: fnd_msg_pub.add;
486: RAISE FND_API.G_EXC_ERROR;
487: END IF;
488:
509:
510: WHEN OTHERS THEN
511: x_return_status := fnd_api.g_ret_sts_unexp_error;
512:
513: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
514: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendor_sites');
515: fnd_message.set_token('ERRNO', sqlcode);
516: fnd_message.set_token('REASON', sqlerrm);
517: FND_MSG_PUB.ADD;
510: WHEN OTHERS THEN
511: x_return_status := fnd_api.g_ret_sts_unexp_error;
512:
513: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
514: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendor_sites');
515: fnd_message.set_token('ERRNO', sqlcode);
516: fnd_message.set_token('REASON', sqlerrm);
517: FND_MSG_PUB.ADD;
518:
511: x_return_status := fnd_api.g_ret_sts_unexp_error;
512:
513: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
514: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendor_sites');
515: fnd_message.set_token('ERRNO', sqlcode);
516: fnd_message.set_token('REASON', sqlerrm);
517: FND_MSG_PUB.ADD;
518:
519: END search_vendor_sites;
512:
513: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
514: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendor_sites');
515: fnd_message.set_token('ERRNO', sqlcode);
516: fnd_message.set_token('REASON', sqlerrm);
517: FND_MSG_PUB.ADD;
518:
519: END search_vendor_sites;
520:
559:
560: x_rec_count := 0;
561:
562: IF l_search_criteria_tbl(1).search_text IS NULL THEN
563: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_VENDORSITEID');
564: fnd_msg_pub.add;
565:
566: RAISE fnd_api.g_exc_error;
567: END IF;
586:
587: WHEN OTHERS THEN
588: x_return_status := fnd_api.g_ret_sts_unexp_error;
589:
590: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
591: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendor_contacts');
592: fnd_message.set_token('ERRNO', sqlcode);
593: fnd_message.set_token('REASON', sqlerrm);
594: FND_MSG_PUB.ADD;
587: WHEN OTHERS THEN
588: x_return_status := fnd_api.g_ret_sts_unexp_error;
589:
590: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
591: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendor_contacts');
592: fnd_message.set_token('ERRNO', sqlcode);
593: fnd_message.set_token('REASON', sqlerrm);
594: FND_MSG_PUB.ADD;
595:
588: x_return_status := fnd_api.g_ret_sts_unexp_error;
589:
590: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
591: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendor_contacts');
592: fnd_message.set_token('ERRNO', sqlcode);
593: fnd_message.set_token('REASON', sqlerrm);
594: FND_MSG_PUB.ADD;
595:
596: END search_vendor_contacts;
589:
590: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
591: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendor_contacts');
592: fnd_message.set_token('ERRNO', sqlcode);
593: fnd_message.set_token('REASON', sqlerrm);
594: FND_MSG_PUB.ADD;
595:
596: END search_vendor_contacts;
597:
692:
693: x_rec_count := 0;
694:
695: IF l_search_criteria_tbl(1).search_text IS NULL THEN
696: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_ORGID');
697: fnd_msg_pub.add;
698:
699: RAISE fnd_api.g_exc_error;
700: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
697: fnd_msg_pub.add;
698:
699: RAISE fnd_api.g_exc_error;
700: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
701: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_VENDORID');
702: fnd_msg_pub.add;
703: RAISE fnd_api.g_exc_error;
704: ELSIF l_search_criteria_tbl(4).search_text IS NULL THEN
705: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_VENDORSITEID');
701: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_VENDORID');
702: fnd_msg_pub.add;
703: RAISE fnd_api.g_exc_error;
704: ELSIF l_search_criteria_tbl(4).search_text IS NULL THEN
705: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_VENDORSITEID');
706: fnd_msg_pub.add;
707: RAISE fnd_api.g_exc_error;
708: END IF;
709:
795:
796: WHEN OTHERS THEN
797: x_return_status := fnd_api.g_ret_sts_unexp_error;
798:
799: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
800: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_items');
801: fnd_message.set_token('ERRNO', sqlcode);
802: fnd_message.set_token('REASON', sqlerrm);
803: FND_MSG_PUB.ADD;
796: WHEN OTHERS THEN
797: x_return_status := fnd_api.g_ret_sts_unexp_error;
798:
799: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
800: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_items');
801: fnd_message.set_token('ERRNO', sqlcode);
802: fnd_message.set_token('REASON', sqlerrm);
803: FND_MSG_PUB.ADD;
804:
797: x_return_status := fnd_api.g_ret_sts_unexp_error;
798:
799: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
800: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_items');
801: fnd_message.set_token('ERRNO', sqlcode);
802: fnd_message.set_token('REASON', sqlerrm);
803: FND_MSG_PUB.ADD;
804:
805: END search_items;
798:
799: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
800: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_items');
801: fnd_message.set_token('ERRNO', sqlcode);
802: fnd_message.set_token('REASON', sqlerrm);
803: FND_MSG_PUB.ADD;
804:
805: END search_items;
806:
852: BEGIN
853: x_rec_count := 0;
854:
855: IF l_search_criteria_tbl(1).search_text IS NULL THEN
856: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_TRANSACTIONID');
857: fnd_msg_pub.add;
858:
859: RAISE fnd_api.g_exc_error;
860: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
857: fnd_msg_pub.add;
858:
859: RAISE fnd_api.g_exc_error;
860: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
861: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_CUST_ACCT_ID');
862: fnd_msg_pub.add;
863: RAISE fnd_api.g_exc_error;
864: END IF;
865:
888:
889: WHEN OTHERS THEN
890: x_return_status := fnd_api.g_ret_sts_unexp_error;
891:
892: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
893: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customer_items');
894: fnd_message.set_token('ERRNO', sqlcode);
895: fnd_message.set_token('REASON', sqlerrm);
896: FND_MSG_PUB.ADD;
889: WHEN OTHERS THEN
890: x_return_status := fnd_api.g_ret_sts_unexp_error;
891:
892: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
893: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customer_items');
894: fnd_message.set_token('ERRNO', sqlcode);
895: fnd_message.set_token('REASON', sqlerrm);
896: FND_MSG_PUB.ADD;
897:
890: x_return_status := fnd_api.g_ret_sts_unexp_error;
891:
892: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
893: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customer_items');
894: fnd_message.set_token('ERRNO', sqlcode);
895: fnd_message.set_token('REASON', sqlerrm);
896: FND_MSG_PUB.ADD;
897:
898: END search_customer_items;
891:
892: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
893: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customer_items');
894: fnd_message.set_token('ERRNO', sqlcode);
895: fnd_message.set_token('REASON', sqlerrm);
896: FND_MSG_PUB.ADD;
897:
898: END search_customer_items;
899:
940: BEGIN
941: x_rec_count := 0;
942:
943: IF l_search_criteria_tbl(1).search_text IS NULL THEN
944: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_TRANSACTIONID');
945: fnd_msg_pub.add;
946:
947: RAISE fnd_api.g_exc_error;
948: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
945: fnd_msg_pub.add;
946:
947: RAISE fnd_api.g_exc_error;
948: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
949: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_CUST_ACCT_ID');
950: fnd_msg_pub.add;
951: RAISE fnd_api.g_exc_error;
952: END IF;
953:
975:
976: WHEN OTHERS THEN
977: x_return_status := fnd_api.g_ret_sts_unexp_error;
978:
979: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
980: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customer_items_all');
981: fnd_message.set_token('ERRNO', sqlcode);
982: fnd_message.set_token('REASON', sqlerrm);
983: FND_MSG_PUB.ADD;
976: WHEN OTHERS THEN
977: x_return_status := fnd_api.g_ret_sts_unexp_error;
978:
979: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
980: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customer_items_all');
981: fnd_message.set_token('ERRNO', sqlcode);
982: fnd_message.set_token('REASON', sqlerrm);
983: FND_MSG_PUB.ADD;
984:
977: x_return_status := fnd_api.g_ret_sts_unexp_error;
978:
979: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
980: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customer_items_all');
981: fnd_message.set_token('ERRNO', sqlcode);
982: fnd_message.set_token('REASON', sqlerrm);
983: FND_MSG_PUB.ADD;
984:
985: END search_customer_items_all;
978:
979: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
980: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customer_items_all');
981: fnd_message.set_token('ERRNO', sqlcode);
982: fnd_message.set_token('REASON', sqlerrm);
983: FND_MSG_PUB.ADD;
984:
985: END search_customer_items_all;
986:
1017: BEGIN
1018: x_rec_count := 0;
1019: x_return_status := fnd_api.g_ret_sts_success;
1020: IF l_search_criteria_tbl(2).search_text IS NULL THEN
1021: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_ORGID');
1022: fnd_msg_pub.add;
1023:
1024: RAISE FND_API.G_EXC_ERROR;
1025: END IF;
1045:
1046: WHEN OTHERS THEN
1047: x_return_status := fnd_api.g_ret_sts_unexp_error;
1048:
1049: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1050: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_warehouses');
1051: fnd_message.set_token('ERRNO', sqlcode);
1052: fnd_message.set_token('REASON', sqlerrm);
1053: FND_MSG_PUB.ADD;
1046: WHEN OTHERS THEN
1047: x_return_status := fnd_api.g_ret_sts_unexp_error;
1048:
1049: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1050: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_warehouses');
1051: fnd_message.set_token('ERRNO', sqlcode);
1052: fnd_message.set_token('REASON', sqlerrm);
1053: FND_MSG_PUB.ADD;
1054: END search_warehouses;
1047: x_return_status := fnd_api.g_ret_sts_unexp_error;
1048:
1049: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1050: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_warehouses');
1051: fnd_message.set_token('ERRNO', sqlcode);
1052: fnd_message.set_token('REASON', sqlerrm);
1053: FND_MSG_PUB.ADD;
1054: END search_warehouses;
1055:
1048:
1049: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1050: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_warehouses');
1051: fnd_message.set_token('ERRNO', sqlcode);
1052: fnd_message.set_token('REASON', sqlerrm);
1053: FND_MSG_PUB.ADD;
1054: END search_warehouses;
1055:
1056: PROCEDURE Get_CoveredInventory(
1215:
1216: WHEN OTHERS THEN
1217: x_return_status := fnd_api.g_ret_sts_unexp_error;
1218:
1219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1220: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_CoveredInventory');
1221: fnd_message.set_token('ERRNO', sqlcode);
1222: fnd_message.set_token('REASON', sqlerrm);
1223: FND_MSG_PUB.ADD;
1216: WHEN OTHERS THEN
1217: x_return_status := fnd_api.g_ret_sts_unexp_error;
1218:
1219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1220: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_CoveredInventory');
1221: fnd_message.set_token('ERRNO', sqlcode);
1222: fnd_message.set_token('REASON', sqlerrm);
1223: FND_MSG_PUB.ADD;
1224:
1217: x_return_status := fnd_api.g_ret_sts_unexp_error;
1218:
1219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1220: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_CoveredInventory');
1221: fnd_message.set_token('ERRNO', sqlcode);
1222: fnd_message.set_token('REASON', sqlerrm);
1223: FND_MSG_PUB.ADD;
1224:
1225: END Get_CoveredInventory;
1218:
1219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1220: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_CoveredInventory');
1221: fnd_message.set_token('ERRNO', sqlcode);
1222: fnd_message.set_token('REASON', sqlerrm);
1223: FND_MSG_PUB.ADD;
1224:
1225: END Get_CoveredInventory;
1226:
1323:
1324: x_rec_count := 0;
1325: x_return_status := fnd_api.g_ret_sts_success;
1326: IF l_hdr_rec.org_id IS NULL THEN
1327: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1328: FND_MESSAGE.set_token('ID', 'Org ID');
1329: FND_MSG_PUB.add;
1330: RAISE FND_API.G_EXC_ERROR;
1331: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
1324: x_rec_count := 0;
1325: x_return_status := fnd_api.g_ret_sts_success;
1326: IF l_hdr_rec.org_id IS NULL THEN
1327: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1328: FND_MESSAGE.set_token('ID', 'Org ID');
1329: FND_MSG_PUB.add;
1330: RAISE FND_API.G_EXC_ERROR;
1331: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
1332: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1328: FND_MESSAGE.set_token('ID', 'Org ID');
1329: FND_MSG_PUB.add;
1330: RAISE FND_API.G_EXC_ERROR;
1331: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
1332: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1333: FND_MESSAGE.set_token('ID', 'Effective Start Date');
1334: FND_MSG_PUB.add;
1335: RAISE FND_API.G_EXC_ERROR;
1336: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
1329: FND_MSG_PUB.add;
1330: RAISE FND_API.G_EXC_ERROR;
1331: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
1332: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1333: FND_MESSAGE.set_token('ID', 'Effective Start Date');
1334: FND_MSG_PUB.add;
1335: RAISE FND_API.G_EXC_ERROR;
1336: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
1337: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1333: FND_MESSAGE.set_token('ID', 'Effective Start Date');
1334: FND_MSG_PUB.add;
1335: RAISE FND_API.G_EXC_ERROR;
1336: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
1337: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1338: FND_MESSAGE.set_token('ID', 'Effective End Date');
1339: FND_MSG_PUB.add;
1340: RAISE FND_API.G_EXC_ERROR;
1341: END IF;
1334: FND_MSG_PUB.add;
1335: RAISE FND_API.G_EXC_ERROR;
1336: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
1337: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1338: FND_MESSAGE.set_token('ID', 'Effective End Date');
1339: FND_MSG_PUB.add;
1340: RAISE FND_API.G_EXC_ERROR;
1341: END IF;
1342:
1343: FOR i in l_inventorydetails_tbl.FIRST..l_inventorydetails_tbl.LAST
1344: LOOP
1345:
1346: IF l_inventorydetails_tbl(i).Inventory_Item_ID IS NULL THEN
1347: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1348: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
1349: FND_MSG_PUB.add;
1350: x_return_status := FND_API.G_RET_STS_ERROR;
1351: ELSE
1344: LOOP
1345:
1346: IF l_inventorydetails_tbl(i).Inventory_Item_ID IS NULL THEN
1347: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1348: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
1349: FND_MSG_PUB.add;
1350: x_return_status := FND_API.G_RET_STS_ERROR;
1351: ELSE
1352: FOR get_covered_inventory_rec IN get_covered_inventory_csr(l_hdr_rec.org_id, l_hdr_rec.effective_start_date, l_hdr_rec.effective_end_date, l_inventorydetails_tbl(i).Inventory_Item_ID)
1525:
1526: WHEN OTHERS THEN
1527: x_return_status := fnd_api.g_ret_sts_unexp_error;
1528:
1529: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1530: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_InventoryDetails');
1531: fnd_message.set_token('ERRNO', sqlcode);
1532: fnd_message.set_token('REASON', sqlerrm);
1533: FND_MSG_PUB.ADD;
1526: WHEN OTHERS THEN
1527: x_return_status := fnd_api.g_ret_sts_unexp_error;
1528:
1529: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1530: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_InventoryDetails');
1531: fnd_message.set_token('ERRNO', sqlcode);
1532: fnd_message.set_token('REASON', sqlerrm);
1533: FND_MSG_PUB.ADD;
1534:
1527: x_return_status := fnd_api.g_ret_sts_unexp_error;
1528:
1529: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1530: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_InventoryDetails');
1531: fnd_message.set_token('ERRNO', sqlcode);
1532: fnd_message.set_token('REASON', sqlerrm);
1533: FND_MSG_PUB.ADD;
1534:
1535: END Get_InventoryDetails;
1528:
1529: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1530: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_InventoryDetails');
1531: fnd_message.set_token('ERRNO', sqlcode);
1532: fnd_message.set_token('REASON', sqlerrm);
1533: FND_MSG_PUB.ADD;
1534:
1535: END Get_InventoryDetails;
1536:
1569:
1570: x_rec_count := 0;
1571: x_return_status := fnd_api.g_ret_sts_success;
1572: IF l_hdr_rec.effective_start_date IS NULL THEN
1573: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1574: FND_MESSAGE.set_token('ID', 'Effective Start Date');
1575: FND_MSG_PUB.add;
1576: RAISE FND_API.G_EXC_ERROR;
1577: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
1570: x_rec_count := 0;
1571: x_return_status := fnd_api.g_ret_sts_success;
1572: IF l_hdr_rec.effective_start_date IS NULL THEN
1573: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1574: FND_MESSAGE.set_token('ID', 'Effective Start Date');
1575: FND_MSG_PUB.add;
1576: RAISE FND_API.G_EXC_ERROR;
1577: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
1578: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1574: FND_MESSAGE.set_token('ID', 'Effective Start Date');
1575: FND_MSG_PUB.add;
1576: RAISE FND_API.G_EXC_ERROR;
1577: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
1578: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1579: FND_MESSAGE.set_token('ID', 'Effective End Date');
1580: FND_MSG_PUB.add;
1581: RAISE FND_API.G_EXC_ERROR;
1582: END IF;
1575: FND_MSG_PUB.add;
1576: RAISE FND_API.G_EXC_ERROR;
1577: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
1578: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1579: FND_MESSAGE.set_token('ID', 'Effective End Date');
1580: FND_MSG_PUB.add;
1581: RAISE FND_API.G_EXC_ERROR;
1582: END IF;
1583:
1584: FOR i in l_cust_inv_tbl.FIRST..l_cust_inv_tbl.LAST
1585: LOOP
1586:
1587: IF l_cust_inv_tbl(i).Inventory_Item_ID IS NULL THEN
1588: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1589: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
1590: FND_MSG_PUB.add;
1591: x_return_status := FND_API.G_RET_STS_ERROR;
1592: ELSIF l_cust_inv_tbl(i).Customer_ID IS NULL THEN
1585: LOOP
1586:
1587: IF l_cust_inv_tbl(i).Inventory_Item_ID IS NULL THEN
1588: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1589: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
1590: FND_MSG_PUB.add;
1591: x_return_status := FND_API.G_RET_STS_ERROR;
1592: ELSIF l_cust_inv_tbl(i).Customer_ID IS NULL THEN
1593: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1589: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
1590: FND_MSG_PUB.add;
1591: x_return_status := FND_API.G_RET_STS_ERROR;
1592: ELSIF l_cust_inv_tbl(i).Customer_ID IS NULL THEN
1593: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1594: FND_MESSAGE.set_token('ID', 'Customer ID');
1595: FND_MSG_PUB.add;
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597: ELSE
1590: FND_MSG_PUB.add;
1591: x_return_status := FND_API.G_RET_STS_ERROR;
1592: ELSIF l_cust_inv_tbl(i).Customer_ID IS NULL THEN
1593: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1594: FND_MESSAGE.set_token('ID', 'Customer ID');
1595: FND_MSG_PUB.add;
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597: ELSE
1598: FOR get_customer_inventory_rec IN get_customer_inventory_csr(l_hdr_rec.effective_start_date,
1616: x_return_status := FND_API.G_RET_STS_ERROR;
1617:
1618: WHEN OTHERS THEN
1619: x_return_status := fnd_api.g_ret_sts_unexp_error;
1620: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1621: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_CustomerInventory');
1622: fnd_message.set_token('ERRNO', sqlcode);
1623: fnd_message.set_token('REASON', sqlerrm);
1624: FND_MSG_PUB.ADD;
1617:
1618: WHEN OTHERS THEN
1619: x_return_status := fnd_api.g_ret_sts_unexp_error;
1620: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1621: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_CustomerInventory');
1622: fnd_message.set_token('ERRNO', sqlcode);
1623: fnd_message.set_token('REASON', sqlerrm);
1624: FND_MSG_PUB.ADD;
1625: END Get_CustomerInventory;
1618: WHEN OTHERS THEN
1619: x_return_status := fnd_api.g_ret_sts_unexp_error;
1620: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1621: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_CustomerInventory');
1622: fnd_message.set_token('ERRNO', sqlcode);
1623: fnd_message.set_token('REASON', sqlerrm);
1624: FND_MSG_PUB.ADD;
1625: END Get_CustomerInventory;
1626:
1619: x_return_status := fnd_api.g_ret_sts_unexp_error;
1620: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1621: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_CustomerInventory');
1622: fnd_message.set_token('ERRNO', sqlcode);
1623: fnd_message.set_token('REASON', sqlerrm);
1624: FND_MSG_PUB.ADD;
1625: END Get_CustomerInventory;
1626:
1627:
1672: BEGIN
1673: x_rec_count := 0;
1674: x_return_status := fnd_api.g_ret_sts_success;
1675: IF l_search_criteria_tbl(2).search_text IS NULL THEN
1676: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_TRANSACTIONID');
1677: fnd_msg_pub.add;
1678: RAISE FND_API.G_EXC_ERROR;
1679: END IF;
1680:
1699:
1700: WHEN OTHERS THEN
1701: x_return_status := fnd_api.g_ret_sts_unexp_error;
1702:
1703: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1704: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customers');
1705: fnd_message.set_token('ERRNO', sqlcode);
1706: fnd_message.set_token('REASON', sqlerrm);
1707: FND_MSG_PUB.ADD;
1700: WHEN OTHERS THEN
1701: x_return_status := fnd_api.g_ret_sts_unexp_error;
1702:
1703: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1704: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customers');
1705: fnd_message.set_token('ERRNO', sqlcode);
1706: fnd_message.set_token('REASON', sqlerrm);
1707: FND_MSG_PUB.ADD;
1708:
1701: x_return_status := fnd_api.g_ret_sts_unexp_error;
1702:
1703: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1704: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customers');
1705: fnd_message.set_token('ERRNO', sqlcode);
1706: fnd_message.set_token('REASON', sqlerrm);
1707: FND_MSG_PUB.ADD;
1708:
1709: END search_customers;
1702:
1703: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1704: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customers');
1705: fnd_message.set_token('ERRNO', sqlcode);
1706: fnd_message.set_token('REASON', sqlerrm);
1707: FND_MSG_PUB.ADD;
1708:
1709: END search_customers;
1710:
1742: BEGIN
1743: x_rec_count := 0;
1744: x_return_status := fnd_api.g_ret_sts_success;
1745: IF l_search_criteria_tbl(2).search_text IS NULL THEN
1746: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_TRANSACTIONID');
1747: fnd_msg_pub.add;
1748: RAISE FND_API.G_EXC_ERROR;
1749: END IF;
1750:
1768:
1769: WHEN OTHERS THEN
1770: x_return_status := fnd_api.g_ret_sts_unexp_error;
1771:
1772: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1773: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customers_all');
1774: fnd_message.set_token('ERRNO', sqlcode);
1775: fnd_message.set_token('REASON', sqlerrm);
1776: FND_MSG_PUB.ADD;
1769: WHEN OTHERS THEN
1770: x_return_status := fnd_api.g_ret_sts_unexp_error;
1771:
1772: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1773: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customers_all');
1774: fnd_message.set_token('ERRNO', sqlcode);
1775: fnd_message.set_token('REASON', sqlerrm);
1776: FND_MSG_PUB.ADD;
1777:
1770: x_return_status := fnd_api.g_ret_sts_unexp_error;
1771:
1772: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1773: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customers_all');
1774: fnd_message.set_token('ERRNO', sqlcode);
1775: fnd_message.set_token('REASON', sqlerrm);
1776: FND_MSG_PUB.ADD;
1777:
1778: END search_customers_all;
1771:
1772: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1773: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customers_all');
1774: fnd_message.set_token('ERRNO', sqlcode);
1775: fnd_message.set_token('REASON', sqlerrm);
1776: FND_MSG_PUB.ADD;
1777:
1778: END search_customers_all;
1779:
1841:
1842: x_rec_count := 0;
1843: x_return_status := fnd_api.g_ret_sts_success;
1844: IF l_hdr_rec.org_id IS NULL THEN
1845: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1846: FND_MESSAGE.set_token('ID', 'Org ID');
1847: FND_MSG_PUB.add;
1848: RAISE FND_API.G_EXC_ERROR;
1849: END IF;
1842: x_rec_count := 0;
1843: x_return_status := fnd_api.g_ret_sts_success;
1844: IF l_hdr_rec.org_id IS NULL THEN
1845: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1846: FND_MESSAGE.set_token('ID', 'Org ID');
1847: FND_MSG_PUB.add;
1848: RAISE FND_API.G_EXC_ERROR;
1849: END IF;
1850:
1851: FOR i in l_cust_price_tbl.FIRST..l_cust_price_tbl.LAST
1852: LOOP
1853:
1854: IF l_cust_price_tbl(i).Inventory_Item_ID IS NULL THEN
1855: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1856: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
1857: FND_MSG_PUB.add;
1858: x_return_status := FND_API.G_RET_STS_ERROR;
1859: ELSIF l_cust_price_tbl(i).Customer_ID IS NULL THEN
1852: LOOP
1853:
1854: IF l_cust_price_tbl(i).Inventory_Item_ID IS NULL THEN
1855: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1856: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
1857: FND_MSG_PUB.add;
1858: x_return_status := FND_API.G_RET_STS_ERROR;
1859: ELSIF l_cust_price_tbl(i).Customer_ID IS NULL THEN
1860: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1856: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
1857: FND_MSG_PUB.add;
1858: x_return_status := FND_API.G_RET_STS_ERROR;
1859: ELSIF l_cust_price_tbl(i).Customer_ID IS NULL THEN
1860: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1861: FND_MESSAGE.set_token('ID', 'Customer ID');
1862: FND_MSG_PUB.add;
1863: x_return_status := FND_API.G_RET_STS_ERROR;
1864: ELSIF l_cust_price_tbl(i).UOM_Code IS NULL THEN
1857: FND_MSG_PUB.add;
1858: x_return_status := FND_API.G_RET_STS_ERROR;
1859: ELSIF l_cust_price_tbl(i).Customer_ID IS NULL THEN
1860: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1861: FND_MESSAGE.set_token('ID', 'Customer ID');
1862: FND_MSG_PUB.add;
1863: x_return_status := FND_API.G_RET_STS_ERROR;
1864: ELSIF l_cust_price_tbl(i).UOM_Code IS NULL THEN
1865: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1861: FND_MESSAGE.set_token('ID', 'Customer ID');
1862: FND_MSG_PUB.add;
1863: x_return_status := FND_API.G_RET_STS_ERROR;
1864: ELSIF l_cust_price_tbl(i).UOM_Code IS NULL THEN
1865: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1866: FND_MESSAGE.set_token('ID', 'UOM Code');
1867: FND_MSG_PUB.add;
1868: x_return_status := FND_API.G_RET_STS_ERROR;
1869: ELSIF l_cust_price_tbl(i).price_change IS NULL THEN
1862: FND_MSG_PUB.add;
1863: x_return_status := FND_API.G_RET_STS_ERROR;
1864: ELSIF l_cust_price_tbl(i).UOM_Code IS NULL THEN
1865: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1866: FND_MESSAGE.set_token('ID', 'UOM Code');
1867: FND_MSG_PUB.add;
1868: x_return_status := FND_API.G_RET_STS_ERROR;
1869: ELSIF l_cust_price_tbl(i).price_change IS NULL THEN
1870: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1866: FND_MESSAGE.set_token('ID', 'UOM Code');
1867: FND_MSG_PUB.add;
1868: x_return_status := FND_API.G_RET_STS_ERROR;
1869: ELSIF l_cust_price_tbl(i).price_change IS NULL THEN
1870: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1871: FND_MESSAGE.set_token('ID', 'Price Change');
1872: FND_MSG_PUB.add;
1873: x_return_status := FND_API.G_RET_STS_ERROR;
1874: ELSE
1867: FND_MSG_PUB.add;
1868: x_return_status := FND_API.G_RET_STS_ERROR;
1869: ELSIF l_cust_price_tbl(i).price_change IS NULL THEN
1870: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1871: FND_MESSAGE.set_token('ID', 'Price Change');
1872: FND_MSG_PUB.add;
1873: x_return_status := FND_API.G_RET_STS_ERROR;
1874: ELSE
1875: FOR get_last_price_rec IN get_last_price_csr(l_hdr_rec.org_id,
1923:
1924: WHEN OTHERS THEN
1925: x_return_status := fnd_api.g_ret_sts_unexp_error;
1926:
1927: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1928: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_LastPrice');
1929: fnd_message.set_token('ERRNO', sqlcode);
1930: fnd_message.set_token('REASON', sqlerrm);
1931: FND_MSG_PUB.ADD;
1924: WHEN OTHERS THEN
1925: x_return_status := fnd_api.g_ret_sts_unexp_error;
1926:
1927: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1928: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_LastPrice');
1929: fnd_message.set_token('ERRNO', sqlcode);
1930: fnd_message.set_token('REASON', sqlerrm);
1931: FND_MSG_PUB.ADD;
1932:
1925: x_return_status := fnd_api.g_ret_sts_unexp_error;
1926:
1927: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1928: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_LastPrice');
1929: fnd_message.set_token('ERRNO', sqlcode);
1930: fnd_message.set_token('REASON', sqlerrm);
1931: FND_MSG_PUB.ADD;
1932:
1933: END Get_LastPrice;
1926:
1927: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1928: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_LastPrice');
1929: fnd_message.set_token('ERRNO', sqlcode);
1930: fnd_message.set_token('REASON', sqlerrm);
1931: FND_MSG_PUB.ADD;
1932:
1933: END Get_LastPrice;
1934:
1967: x_rec_count := 0;
1968: x_return_status := fnd_api.g_ret_sts_success;
1969:
1970: IF l_header_rec.org_id IS NULL THEN
1971: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1972: FND_MESSAGE.set_token('ID', 'Org ID');
1973: FND_MSG_PUB.add;
1974: RAISE FND_API.G_EXC_ERROR;
1975: ELSIF l_header_rec.currency_code IS NULL THEN
1968: x_return_status := fnd_api.g_ret_sts_success;
1969:
1970: IF l_header_rec.org_id IS NULL THEN
1971: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1972: FND_MESSAGE.set_token('ID', 'Org ID');
1973: FND_MSG_PUB.add;
1974: RAISE FND_API.G_EXC_ERROR;
1975: ELSIF l_header_rec.currency_code IS NULL THEN
1976: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1972: FND_MESSAGE.set_token('ID', 'Org ID');
1973: FND_MSG_PUB.add;
1974: RAISE FND_API.G_EXC_ERROR;
1975: ELSIF l_header_rec.currency_code IS NULL THEN
1976: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1977: FND_MESSAGE.set_token('ID', 'Currency Code');
1978: FND_MSG_PUB.add;
1979: RAISE FND_API.G_EXC_ERROR;
1980: END IF;
1973: FND_MSG_PUB.add;
1974: RAISE FND_API.G_EXC_ERROR;
1975: ELSIF l_header_rec.currency_code IS NULL THEN
1976: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1977: FND_MESSAGE.set_token('ID', 'Currency Code');
1978: FND_MSG_PUB.add;
1979: RAISE FND_API.G_EXC_ERROR;
1980: END IF;
1981: po_moac_utils_pvt.set_org_context(l_header_rec.org_id);
1996: FOR i in l_listprice_tbl.FIRST..l_listprice_tbl.LAST
1997: LOOP
1998:
1999: IF l_listprice_tbl(i).Inventory_Item_ID IS NULL THEN
2000: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2001: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
2002: FND_MSG_PUB.add;
2003: x_return_status := FND_API.G_RET_STS_ERROR;
2004: ELSE
1997: LOOP
1998:
1999: IF l_listprice_tbl(i).Inventory_Item_ID IS NULL THEN
2000: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2001: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
2002: FND_MSG_PUB.add;
2003: x_return_status := FND_API.G_RET_STS_ERROR;
2004: ELSE
2005: FOR get_list_price_rec IN get_list_price_csr(l_header_rec.org_id, l_listprice_tbl(i).Inventory_Item_ID)
2035:
2036: WHEN OTHERS THEN
2037: x_return_status := fnd_api.g_ret_sts_unexp_error;
2038:
2039: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2040: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_ListPrice');
2041: fnd_message.set_token('ERRNO', sqlcode);
2042: fnd_message.set_token('REASON', sqlerrm);
2043: FND_MSG_PUB.ADD;
2036: WHEN OTHERS THEN
2037: x_return_status := fnd_api.g_ret_sts_unexp_error;
2038:
2039: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2040: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_ListPrice');
2041: fnd_message.set_token('ERRNO', sqlcode);
2042: fnd_message.set_token('REASON', sqlerrm);
2043: FND_MSG_PUB.ADD;
2044:
2037: x_return_status := fnd_api.g_ret_sts_unexp_error;
2038:
2039: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2040: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_ListPrice');
2041: fnd_message.set_token('ERRNO', sqlcode);
2042: fnd_message.set_token('REASON', sqlerrm);
2043: FND_MSG_PUB.ADD;
2044:
2045:
2038:
2039: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2040: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_ListPrice');
2041: fnd_message.set_token('ERRNO', sqlcode);
2042: fnd_message.set_token('REASON', sqlerrm);
2043: FND_MSG_PUB.ADD;
2044:
2045:
2046: END Get_ListPrice;
2066: x_rec_count := 0;
2067: x_return_status := fnd_api.g_ret_sts_success;
2068:
2069: IF l_vendor_rec.vendor_ID IS NULL THEN
2070: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2071: FND_MESSAGE.set_token('ID', 'Vendor ID');
2072: FND_MSG_PUB.add;
2073: RAISE FND_API.G_EXC_ERROR;
2074: END IF;
2067: x_return_status := fnd_api.g_ret_sts_success;
2068:
2069: IF l_vendor_rec.vendor_ID IS NULL THEN
2070: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2071: FND_MESSAGE.set_token('ID', 'Vendor ID');
2072: FND_MSG_PUB.add;
2073: RAISE FND_API.G_EXC_ERROR;
2074: END IF;
2075: FOR get_vendor_rec IN get_vendor_csr(l_vendor_rec.vendor_ID)
2087:
2088: WHEN OTHERS THEN
2089: x_return_status := fnd_api.g_ret_sts_unexp_error;
2090:
2091: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2092: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor');
2093: fnd_message.set_token('ERRNO', sqlcode);
2094: fnd_message.set_token('REASON', sqlerrm);
2095: FND_MSG_PUB.ADD;
2088: WHEN OTHERS THEN
2089: x_return_status := fnd_api.g_ret_sts_unexp_error;
2090:
2091: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2092: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor');
2093: fnd_message.set_token('ERRNO', sqlcode);
2094: fnd_message.set_token('REASON', sqlerrm);
2095: FND_MSG_PUB.ADD;
2096: END Get_Vendor;
2089: x_return_status := fnd_api.g_ret_sts_unexp_error;
2090:
2091: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2092: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor');
2093: fnd_message.set_token('ERRNO', sqlcode);
2094: fnd_message.set_token('REASON', sqlerrm);
2095: FND_MSG_PUB.ADD;
2096: END Get_Vendor;
2097:
2090:
2091: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2092: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor');
2093: fnd_message.set_token('ERRNO', sqlcode);
2094: fnd_message.set_token('REASON', sqlerrm);
2095: FND_MSG_PUB.ADD;
2096: END Get_Vendor;
2097:
2098: PROCEDURE Get_Vendor_Site(
2124: x_rec_count := 0;
2125: x_return_status := fnd_api.g_ret_sts_success;
2126:
2127: IF l_vendor_site_rec.vendor_ID IS NULL THEN
2128: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2129: FND_MESSAGE.set_token('ID', 'Vendor ID');
2130: FND_MSG_PUB.add;
2131: RAISE FND_API.G_EXC_ERROR;
2132: ELSIF l_vendor_site_rec.vendor_site_ID IS NULL THEN
2125: x_return_status := fnd_api.g_ret_sts_success;
2126:
2127: IF l_vendor_site_rec.vendor_ID IS NULL THEN
2128: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2129: FND_MESSAGE.set_token('ID', 'Vendor ID');
2130: FND_MSG_PUB.add;
2131: RAISE FND_API.G_EXC_ERROR;
2132: ELSIF l_vendor_site_rec.vendor_site_ID IS NULL THEN
2133: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2129: FND_MESSAGE.set_token('ID', 'Vendor ID');
2130: FND_MSG_PUB.add;
2131: RAISE FND_API.G_EXC_ERROR;
2132: ELSIF l_vendor_site_rec.vendor_site_ID IS NULL THEN
2133: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2134: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
2135: FND_MSG_PUB.add;
2136: RAISE FND_API.G_EXC_ERROR;
2137: END IF;
2130: FND_MSG_PUB.add;
2131: RAISE FND_API.G_EXC_ERROR;
2132: ELSIF l_vendor_site_rec.vendor_site_ID IS NULL THEN
2133: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2134: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
2135: FND_MSG_PUB.add;
2136: RAISE FND_API.G_EXC_ERROR;
2137: END IF;
2138:
2157:
2158: WHEN OTHERS THEN
2159: x_return_status := fnd_api.g_ret_sts_unexp_error;
2160:
2161: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2162: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor_Site');
2163: fnd_message.set_token('ERRNO', sqlcode);
2164: fnd_message.set_token('REASON', sqlerrm);
2165: FND_MSG_PUB.ADD;
2158: WHEN OTHERS THEN
2159: x_return_status := fnd_api.g_ret_sts_unexp_error;
2160:
2161: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2162: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor_Site');
2163: fnd_message.set_token('ERRNO', sqlcode);
2164: fnd_message.set_token('REASON', sqlerrm);
2165: FND_MSG_PUB.ADD;
2166: END Get_Vendor_Site;
2159: x_return_status := fnd_api.g_ret_sts_unexp_error;
2160:
2161: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2162: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor_Site');
2163: fnd_message.set_token('ERRNO', sqlcode);
2164: fnd_message.set_token('REASON', sqlerrm);
2165: FND_MSG_PUB.ADD;
2166: END Get_Vendor_Site;
2167:
2160:
2161: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2162: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor_Site');
2163: fnd_message.set_token('ERRNO', sqlcode);
2164: fnd_message.set_token('REASON', sqlerrm);
2165: FND_MSG_PUB.ADD;
2166: END Get_Vendor_Site;
2167:
2168: PROCEDURE Get_Vendor_Contact(
2193: x_rec_count := 0;
2194: x_return_status := fnd_api.g_ret_sts_success;
2195:
2196: IF l_vendor_contact_rec.vendor_site_ID IS NULL THEN
2197: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2198: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
2199: FND_MSG_PUB.add;
2200: RAISE FND_API.G_EXC_ERROR;
2201: ELSIF l_vendor_contact_rec.vendor_contact_ID IS NULL THEN
2194: x_return_status := fnd_api.g_ret_sts_success;
2195:
2196: IF l_vendor_contact_rec.vendor_site_ID IS NULL THEN
2197: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2198: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
2199: FND_MSG_PUB.add;
2200: RAISE FND_API.G_EXC_ERROR;
2201: ELSIF l_vendor_contact_rec.vendor_contact_ID IS NULL THEN
2202: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2198: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
2199: FND_MSG_PUB.add;
2200: RAISE FND_API.G_EXC_ERROR;
2201: ELSIF l_vendor_contact_rec.vendor_contact_ID IS NULL THEN
2202: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2203: FND_MESSAGE.set_token('ID', 'Vendor Contact ID');
2204: FND_MSG_PUB.add;
2205: RAISE FND_API.G_EXC_ERROR;
2206: END IF;
2199: FND_MSG_PUB.add;
2200: RAISE FND_API.G_EXC_ERROR;
2201: ELSIF l_vendor_contact_rec.vendor_contact_ID IS NULL THEN
2202: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2203: FND_MESSAGE.set_token('ID', 'Vendor Contact ID');
2204: FND_MSG_PUB.add;
2205: RAISE FND_API.G_EXC_ERROR;
2206: END IF;
2207:
2225:
2226: WHEN OTHERS THEN
2227: x_return_status := fnd_api.g_ret_sts_unexp_error;
2228:
2229: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2230: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor_Contact');
2231: fnd_message.set_token('ERRNO', sqlcode);
2232: fnd_message.set_token('REASON', sqlerrm);
2233: FND_MSG_PUB.ADD;
2226: WHEN OTHERS THEN
2227: x_return_status := fnd_api.g_ret_sts_unexp_error;
2228:
2229: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2230: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor_Contact');
2231: fnd_message.set_token('ERRNO', sqlcode);
2232: fnd_message.set_token('REASON', sqlerrm);
2233: FND_MSG_PUB.ADD;
2234: END Get_Vendor_Contact;
2227: x_return_status := fnd_api.g_ret_sts_unexp_error;
2228:
2229: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2230: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor_Contact');
2231: fnd_message.set_token('ERRNO', sqlcode);
2232: fnd_message.set_token('REASON', sqlerrm);
2233: FND_MSG_PUB.ADD;
2234: END Get_Vendor_Contact;
2235:
2228:
2229: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2230: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor_Contact');
2231: fnd_message.set_token('ERRNO', sqlcode);
2232: fnd_message.set_token('REASON', sqlerrm);
2233: FND_MSG_PUB.ADD;
2234: END Get_Vendor_Contact;
2235:
2236: PROCEDURE Get_Warehouse(
2260:
2261: FOR i in l_warehouse_tbl.FIRST..l_warehouse_tbl.LAST
2262: LOOP
2263: IF l_warehouse_tbl(i).warehouse_id IS NULL THEN
2264: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2265: FND_MESSAGE.set_token('ID', 'Warehouse ID');
2266: FND_MSG_PUB.add;
2267: x_return_status := FND_API.G_RET_STS_ERROR;
2268: ELSE
2261: FOR i in l_warehouse_tbl.FIRST..l_warehouse_tbl.LAST
2262: LOOP
2263: IF l_warehouse_tbl(i).warehouse_id IS NULL THEN
2264: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2265: FND_MESSAGE.set_token('ID', 'Warehouse ID');
2266: FND_MSG_PUB.add;
2267: x_return_status := FND_API.G_RET_STS_ERROR;
2268: ELSE
2269: FOR get_warehouse_rec IN get_warehouse_csr(l_warehouse_tbl(i).warehouse_id)
2284: x_return_status := FND_API.G_RET_STS_ERROR;
2285: WHEN OTHERS THEN
2286: x_return_status := fnd_api.g_ret_sts_unexp_error;
2287:
2288: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2289: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Warehouse');
2290: fnd_message.set_token('ERRNO', sqlcode);
2291: fnd_message.set_token('REASON', sqlerrm);
2292: FND_MSG_PUB.ADD;
2285: WHEN OTHERS THEN
2286: x_return_status := fnd_api.g_ret_sts_unexp_error;
2287:
2288: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2289: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Warehouse');
2290: fnd_message.set_token('ERRNO', sqlcode);
2291: fnd_message.set_token('REASON', sqlerrm);
2292: FND_MSG_PUB.ADD;
2293: END Get_Warehouse;
2286: x_return_status := fnd_api.g_ret_sts_unexp_error;
2287:
2288: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2289: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Warehouse');
2290: fnd_message.set_token('ERRNO', sqlcode);
2291: fnd_message.set_token('REASON', sqlerrm);
2292: FND_MSG_PUB.ADD;
2293: END Get_Warehouse;
2294:
2287:
2288: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2289: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Warehouse');
2290: fnd_message.set_token('ERRNO', sqlcode);
2291: fnd_message.set_token('REASON', sqlerrm);
2292: FND_MSG_PUB.ADD;
2293: END Get_Warehouse;
2294:
2295: PROCEDURE Get_Customer(
2319: FOR i in l_customer_tbl.FIRST..l_customer_tbl.LAST
2320: LOOP
2321:
2322: IF l_customer_tbl(i).customer_id IS NULL THEN
2323: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2324: FND_MESSAGE.set_token('ID', 'Customer ID');
2325: FND_MSG_PUB.add;
2326: x_return_status := FND_API.G_RET_STS_ERROR;
2327: ELSE
2320: LOOP
2321:
2322: IF l_customer_tbl(i).customer_id IS NULL THEN
2323: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2324: FND_MESSAGE.set_token('ID', 'Customer ID');
2325: FND_MSG_PUB.add;
2326: x_return_status := FND_API.G_RET_STS_ERROR;
2327: ELSE
2328:
2343:
2344: EXCEPTION
2345: WHEN OTHERS THEN
2346: x_return_status := fnd_api.g_ret_sts_unexp_error;
2347: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2348: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Customer');
2349: fnd_message.set_token('ERRNO', sqlcode);
2350: fnd_message.set_token('REASON', sqlerrm);
2351: FND_MSG_PUB.ADD;
2344: EXCEPTION
2345: WHEN OTHERS THEN
2346: x_return_status := fnd_api.g_ret_sts_unexp_error;
2347: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2348: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Customer');
2349: fnd_message.set_token('ERRNO', sqlcode);
2350: fnd_message.set_token('REASON', sqlerrm);
2351: FND_MSG_PUB.ADD;
2352: END Get_Customer;
2345: WHEN OTHERS THEN
2346: x_return_status := fnd_api.g_ret_sts_unexp_error;
2347: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2348: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Customer');
2349: fnd_message.set_token('ERRNO', sqlcode);
2350: fnd_message.set_token('REASON', sqlerrm);
2351: FND_MSG_PUB.ADD;
2352: END Get_Customer;
2353:
2346: x_return_status := fnd_api.g_ret_sts_unexp_error;
2347: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2348: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Customer');
2349: fnd_message.set_token('ERRNO', sqlcode);
2350: fnd_message.set_token('REASON', sqlerrm);
2351: FND_MSG_PUB.ADD;
2352: END Get_Customer;
2353:
2354: PROCEDURE Get_Product(
2378:
2379: IF (p_org_id IS NOT NULL) THEN
2380: l_org_id := p_org_id;
2381: ELSE
2382: fnd_message.set_name('DPP', 'DPP_ORG_ID_NOTFOUND');
2383: fnd_msg_pub.add;
2384:
2385: RAISE fnd_api.g_exc_error;
2386: END IF;
2393: FOR i in l_item_tbl.FIRST..l_item_tbl.LAST
2394: LOOP
2395:
2396: IF l_item_tbl(i).inventory_item_id IS NULL THEN
2397: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2398: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
2399: FND_MSG_PUB.add;
2400: x_return_status := FND_API.G_RET_STS_ERROR;
2401:
2394: LOOP
2395:
2396: IF l_item_tbl(i).inventory_item_id IS NULL THEN
2397: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2398: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
2399: FND_MSG_PUB.add;
2400: x_return_status := FND_API.G_RET_STS_ERROR;
2401:
2402: ELSE
2417: EXCEPTION
2418: WHEN OTHERS THEN
2419: x_return_status := fnd_api.g_ret_sts_unexp_error;
2420:
2421: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2422: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Product');
2423: fnd_message.set_token('ERRNO', sqlcode);
2424: fnd_message.set_token('REASON', sqlerrm);
2425: FND_MSG_PUB.ADD;
2418: WHEN OTHERS THEN
2419: x_return_status := fnd_api.g_ret_sts_unexp_error;
2420:
2421: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2422: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Product');
2423: fnd_message.set_token('ERRNO', sqlcode);
2424: fnd_message.set_token('REASON', sqlerrm);
2425: FND_MSG_PUB.ADD;
2426: END Get_Product;
2419: x_return_status := fnd_api.g_ret_sts_unexp_error;
2420:
2421: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2422: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Product');
2423: fnd_message.set_token('ERRNO', sqlcode);
2424: fnd_message.set_token('REASON', sqlerrm);
2425: FND_MSG_PUB.ADD;
2426: END Get_Product;
2427:
2420:
2421: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2422: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Product');
2423: fnd_message.set_token('ERRNO', sqlcode);
2424: fnd_message.set_token('REASON', sqlerrm);
2425: FND_MSG_PUB.ADD;
2426: END Get_Product;
2427:
2428: --To be used incase we are storing the log messages in the fnd_log_messages table
2463: P_token_value VARCHAR2 := NULL
2464: )
2465: IS
2466: BEGIN
2467: FND_MESSAGE.set_name('DPP', p_message_name);
2468: IF p_token_name IS NOT NULL THEN
2469: FND_MESSAGE.set_token(p_token_name, p_token_value);
2470: END IF;
2471: FND_MSG_PUB.add;
2465: IS
2466: BEGIN
2467: FND_MESSAGE.set_name('DPP', p_message_name);
2468: IF p_token_name IS NOT NULL THEN
2469: FND_MESSAGE.set_token(p_token_name, p_token_value);
2470: END IF;
2471: FND_MSG_PUB.add;
2472: END error_message;
2473:
2489: BEGIN
2490: x_return_status := fnd_api.g_ret_sts_success;
2491:
2492: IF l_user_id IS NULL THEN
2493: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2494: FND_MESSAGE.set_token('ID', 'User ID');
2495: FND_MSG_PUB.add;
2496: RAISE FND_API.G_EXC_ERROR;
2497: ELSE
2490: x_return_status := fnd_api.g_ret_sts_success;
2491:
2492: IF l_user_id IS NULL THEN
2493: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2494: FND_MESSAGE.set_token('ID', 'User ID');
2495: FND_MSG_PUB.add;
2496: RAISE FND_API.G_EXC_ERROR;
2497: ELSE
2498:
2512: x_return_status := FND_API.G_RET_STS_ERROR;
2513: WHEN OTHERS THEN
2514: x_return_status := fnd_api.g_ret_sts_unexp_error;
2515:
2516: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2517: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.get_EmailAddress');
2518: fnd_message.set_token('ERRNO', sqlcode);
2519: fnd_message.set_token('REASON', sqlerrm);
2520: FND_MSG_PUB.ADD;
2513: WHEN OTHERS THEN
2514: x_return_status := fnd_api.g_ret_sts_unexp_error;
2515:
2516: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2517: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.get_EmailAddress');
2518: fnd_message.set_token('ERRNO', sqlcode);
2519: fnd_message.set_token('REASON', sqlerrm);
2520: FND_MSG_PUB.ADD;
2521: END get_EmailAddress;
2514: x_return_status := fnd_api.g_ret_sts_unexp_error;
2515:
2516: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2517: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.get_EmailAddress');
2518: fnd_message.set_token('ERRNO', sqlcode);
2519: fnd_message.set_token('REASON', sqlerrm);
2520: FND_MSG_PUB.ADD;
2521: END get_EmailAddress;
2522:
2515:
2516: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2517: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.get_EmailAddress');
2518: fnd_message.set_token('ERRNO', sqlcode);
2519: fnd_message.set_token('REASON', sqlerrm);
2520: FND_MSG_PUB.ADD;
2521: END get_EmailAddress;
2522:
2523: PROCEDURE convert_currency(
2551: -- Get the currency conversion type from profile option
2552: l_conversion_type := fnd_profile.VALUE(l_conversion_type_profile);
2553: -- Conversion type cannot be null in profile
2554: IF l_conversion_type IS NULL THEN
2555: fnd_message.set_name('DPP', 'DPP_NO_EXCHANGE_TYPE');
2556: fnd_msg_pub.add;
2557: x_return_status := fnd_api.g_ret_sts_error;
2558: RETURN;
2559: END IF;
2577: --
2578:
2579: EXCEPTION
2580: WHEN gl_currency_api.no_rate THEN
2581: fnd_message.set_name('DPP', 'DPP_NO_RATE');
2582: fnd_message.set_token('CURRENCY_FROM', p_from_currency);
2583: fnd_message.set_token('CURRENCY_TO', p_to_currency);
2584: fnd_msg_pub.add;
2585:
2578:
2579: EXCEPTION
2580: WHEN gl_currency_api.no_rate THEN
2581: fnd_message.set_name('DPP', 'DPP_NO_RATE');
2582: fnd_message.set_token('CURRENCY_FROM', p_from_currency);
2583: fnd_message.set_token('CURRENCY_TO', p_to_currency);
2584: fnd_msg_pub.add;
2585:
2586: x_return_status := fnd_api.g_ret_sts_error;
2579: EXCEPTION
2580: WHEN gl_currency_api.no_rate THEN
2581: fnd_message.set_name('DPP', 'DPP_NO_RATE');
2582: fnd_message.set_token('CURRENCY_FROM', p_from_currency);
2583: fnd_message.set_token('CURRENCY_TO', p_to_currency);
2584: fnd_msg_pub.add;
2585:
2586: x_return_status := fnd_api.g_ret_sts_error;
2587: WHEN gl_currency_api.invalid_currency THEN
2584: fnd_msg_pub.add;
2585:
2586: x_return_status := fnd_api.g_ret_sts_error;
2587: WHEN gl_currency_api.invalid_currency THEN
2588: fnd_message.set_name('DPP', 'DPP_INVALID_CURR');
2589: fnd_message.set_token('CURRENCY_FROM', p_from_currency);
2590: fnd_message.set_token('CURRENCY_TO', p_to_currency);
2591: fnd_msg_pub.add;
2592:
2585:
2586: x_return_status := fnd_api.g_ret_sts_error;
2587: WHEN gl_currency_api.invalid_currency THEN
2588: fnd_message.set_name('DPP', 'DPP_INVALID_CURR');
2589: fnd_message.set_token('CURRENCY_FROM', p_from_currency);
2590: fnd_message.set_token('CURRENCY_TO', p_to_currency);
2591: fnd_msg_pub.add;
2592:
2593: x_return_status := fnd_api.g_ret_sts_error;
2586: x_return_status := fnd_api.g_ret_sts_error;
2587: WHEN gl_currency_api.invalid_currency THEN
2588: fnd_message.set_name('DPP', 'DPP_INVALID_CURR');
2589: fnd_message.set_token('CURRENCY_FROM', p_from_currency);
2590: fnd_message.set_token('CURRENCY_TO', p_to_currency);
2591: fnd_msg_pub.add;
2592:
2593: x_return_status := fnd_api.g_ret_sts_error;
2594: WHEN OTHERS THEN
2592:
2593: x_return_status := fnd_api.g_ret_sts_error;
2594: WHEN OTHERS THEN
2595: x_return_status := fnd_api.g_ret_sts_unexp_error;
2596: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
2597: FND_MESSAGE.SET_TOKEN('ROUTINE', 'DPP_UTILITY_PVT.convert_currency');
2598: FND_MESSAGE.SET_TOKEN('ERRNO', sqlcode);
2599: FND_MESSAGE.SET_TOKEN('REASON', sqlerrm);
2600: FND_MSG_PUB.ADD;
2593: x_return_status := fnd_api.g_ret_sts_error;
2594: WHEN OTHERS THEN
2595: x_return_status := fnd_api.g_ret_sts_unexp_error;
2596: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
2597: FND_MESSAGE.SET_TOKEN('ROUTINE', 'DPP_UTILITY_PVT.convert_currency');
2598: FND_MESSAGE.SET_TOKEN('ERRNO', sqlcode);
2599: FND_MESSAGE.SET_TOKEN('REASON', sqlerrm);
2600: FND_MSG_PUB.ADD;
2601: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_EXCEPTION, l_module, sqlerrm);
2594: WHEN OTHERS THEN
2595: x_return_status := fnd_api.g_ret_sts_unexp_error;
2596: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
2597: FND_MESSAGE.SET_TOKEN('ROUTINE', 'DPP_UTILITY_PVT.convert_currency');
2598: FND_MESSAGE.SET_TOKEN('ERRNO', sqlcode);
2599: FND_MESSAGE.SET_TOKEN('REASON', sqlerrm);
2600: FND_MSG_PUB.ADD;
2601: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_EXCEPTION, l_module, sqlerrm);
2602:
2595: x_return_status := fnd_api.g_ret_sts_unexp_error;
2596: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
2597: FND_MESSAGE.SET_TOKEN('ROUTINE', 'DPP_UTILITY_PVT.convert_currency');
2598: FND_MESSAGE.SET_TOKEN('ERRNO', sqlcode);
2599: FND_MESSAGE.SET_TOKEN('REASON', sqlerrm);
2600: FND_MSG_PUB.ADD;
2601: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_EXCEPTION, l_module, sqlerrm);
2602:
2603: END convert_currency;
2648: l_conversion_type := x_exchange_rate_type;
2649: END IF;
2650:
2651: IF l_conversion_type IS NULL THEN
2652: fnd_message.set_name('DPP', 'DPP_NO_EXCHANGE_TYPE');
2653: fnd_msg_pub.add;
2654:
2655: x_return_status := fnd_api.g_ret_sts_error;
2656: RETURN;
2658: IF ozf_utility_pvt.check_fk_exists('GL_DAILY_CONVERSION_TYPES',
2659: 'CONVERSION_TYPE'
2660: ,l_conversion_type) = fnd_api.g_false
2661: THEN
2662: fnd_message.set_name('DPP', 'DPP_WRONG_CONVERSION_TYPE');
2663: fnd_msg_pub.add;
2664: x_return_status := fnd_api.g_ret_sts_error;
2665: RETURN;
2666: END IF;
2674:
2675: l_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
2676:
2677: IF l_org_id IS NULL THEN
2678: fnd_message.set_name('DPP', 'DPP_ORG_ID_NOTFOUND');
2679: fnd_msg_pub.add;
2680:
2681: RAISE fnd_api.g_exc_error;
2682: END IF;
2689: OPEN c_get_gl_info(l_org_id);
2690: FETCH c_get_gl_info INTO x_set_of_books_id, x_fc_currency_code;
2691:
2692: IF c_get_gl_info%NOTFOUND THEN
2693: fnd_message.set_name('DPP', 'DPP_GL_SOB_NOTFOUND');
2694: fnd_msg_pub.add;
2695:
2696: RAISE fnd_api.g_exc_error;
2697: END IF;
2717: EXCEPTION
2718: WHEN fnd_api.g_exc_error THEN
2719: x_return_status := fnd_api.g_ret_sts_error;
2720: WHEN gl_currency_api.no_rate THEN
2721: fnd_message.set_name('DPP', 'DPP_NO_RATE');
2722: fnd_msg_pub.add;
2723:
2724: x_return_status := fnd_api.g_ret_sts_error;
2725: WHEN gl_currency_api.invalid_currency THEN
2722: fnd_msg_pub.add;
2723:
2724: x_return_status := fnd_api.g_ret_sts_error;
2725: WHEN gl_currency_api.invalid_currency THEN
2726: fnd_message.set_name('DPP', 'DPP_INVALID_CURR');
2727: fnd_msg_pub.add;
2728:
2729: x_return_status := fnd_api.g_ret_sts_error;
2730: WHEN OTHERS THEN
2729: x_return_status := fnd_api.g_ret_sts_error;
2730: WHEN OTHERS THEN
2731: x_return_status := fnd_api.g_ret_sts_unexp_error;
2732:
2733: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
2734: FND_MESSAGE.SET_TOKEN('ROUTINE', 'DPP_UTILITY_PVT.Convert_functional_curr');
2735: FND_MESSAGE.SET_TOKEN('ERRNO', sqlcode);
2736: FND_MESSAGE.SET_TOKEN('REASON', sqlerrm);
2737: FND_MSG_PUB.ADD;
2730: WHEN OTHERS THEN
2731: x_return_status := fnd_api.g_ret_sts_unexp_error;
2732:
2733: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
2734: FND_MESSAGE.SET_TOKEN('ROUTINE', 'DPP_UTILITY_PVT.Convert_functional_curr');
2735: FND_MESSAGE.SET_TOKEN('ERRNO', sqlcode);
2736: FND_MESSAGE.SET_TOKEN('REASON', sqlerrm);
2737: FND_MSG_PUB.ADD;
2738: END calculate_functional_curr;
2731: x_return_status := fnd_api.g_ret_sts_unexp_error;
2732:
2733: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
2734: FND_MESSAGE.SET_TOKEN('ROUTINE', 'DPP_UTILITY_PVT.Convert_functional_curr');
2735: FND_MESSAGE.SET_TOKEN('ERRNO', sqlcode);
2736: FND_MESSAGE.SET_TOKEN('REASON', sqlerrm);
2737: FND_MSG_PUB.ADD;
2738: END calculate_functional_curr;
2739:
2732:
2733: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
2734: FND_MESSAGE.SET_TOKEN('ROUTINE', 'DPP_UTILITY_PVT.Convert_functional_curr');
2735: FND_MESSAGE.SET_TOKEN('ERRNO', sqlcode);
2736: FND_MESSAGE.SET_TOKEN('REASON', sqlerrm);
2737: FND_MSG_PUB.ADD;
2738: END calculate_functional_curr;
2739:
2740: --======================================================================