70: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
71: WHEN OTHERS THEN
72: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
73: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
74: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
75: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
76: fnd_message.set_token('ERRNO', SQLCODE);
77: fnd_message.set_token('REASON', sqlerrm);
78: END IF;
71: WHEN OTHERS THEN
72: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
73: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
74: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
75: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
76: fnd_message.set_token('ERRNO', SQLCODE);
77: fnd_message.set_token('REASON', sqlerrm);
78: END IF;
79: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||sqlerrm);
72: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
73: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
74: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
75: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
76: fnd_message.set_token('ERRNO', SQLCODE);
77: fnd_message.set_token('REASON', sqlerrm);
78: END IF;
79: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||sqlerrm);
80: END Update_InterfaceErrSts;
73: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
74: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
75: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
76: fnd_message.set_token('ERRNO', SQLCODE);
77: fnd_message.set_token('REASON', sqlerrm);
78: END IF;
79: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||sqlerrm);
80: END Update_InterfaceErrSts;
81:
99: --BUG 6806974
100: IF p_txn_header_rec_type.operating_unit_name IS NULL
101: AND p_txn_header_rec_type.org_id IS NULL THEN
102: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
103: fnd_message.set_name( 'DPP', 'DPP_TXN_OPERATING_UNIT_NULL');
104: x_msg_data := fnd_message.get();
105: END IF;
106: x_return_status := fnd_api.g_ret_sts_error;
107: p_txn_header_rec_type.error_code := 'DPP_TXN_OPERATING_UNIT_NULL';
100: IF p_txn_header_rec_type.operating_unit_name IS NULL
101: AND p_txn_header_rec_type.org_id IS NULL THEN
102: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
103: fnd_message.set_name( 'DPP', 'DPP_TXN_OPERATING_UNIT_NULL');
104: x_msg_data := fnd_message.get();
105: END IF;
106: x_return_status := fnd_api.g_ret_sts_error;
107: p_txn_header_rec_type.error_code := 'DPP_TXN_OPERATING_UNIT_NULL';
108: RAISE Fnd_Api.G_EXC_ERROR;
130: EXCEPTION
131: WHEN NO_DATA_FOUND THEN
132: x_return_status := fnd_api.g_ret_sts_error;
133: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
134: fnd_message.set_name( 'DPP', 'DPP_TXN_OPERATING_UNIT_ERR');
135: fnd_message.set_token('OPERATING_UNIT', p_txn_header_rec_type.operating_unit_name);
136: fnd_message.set_token('ORG_ID', p_txn_header_rec_type.org_id);
137: x_msg_data := fnd_message.get();
138: END IF;
131: WHEN NO_DATA_FOUND THEN
132: x_return_status := fnd_api.g_ret_sts_error;
133: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
134: fnd_message.set_name( 'DPP', 'DPP_TXN_OPERATING_UNIT_ERR');
135: fnd_message.set_token('OPERATING_UNIT', p_txn_header_rec_type.operating_unit_name);
136: fnd_message.set_token('ORG_ID', p_txn_header_rec_type.org_id);
137: x_msg_data := fnd_message.get();
138: END IF;
139: p_txn_header_rec_type.error_code := 'DPP_TXN_OPERATING_UNIT_ERR';
132: x_return_status := fnd_api.g_ret_sts_error;
133: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
134: fnd_message.set_name( 'DPP', 'DPP_TXN_OPERATING_UNIT_ERR');
135: fnd_message.set_token('OPERATING_UNIT', p_txn_header_rec_type.operating_unit_name);
136: fnd_message.set_token('ORG_ID', p_txn_header_rec_type.org_id);
137: x_msg_data := fnd_message.get();
138: END IF;
139: p_txn_header_rec_type.error_code := 'DPP_TXN_OPERATING_UNIT_ERR';
140: WHEN Fnd_Api.G_EXC_ERROR THEN
133: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
134: fnd_message.set_name( 'DPP', 'DPP_TXN_OPERATING_UNIT_ERR');
135: fnd_message.set_token('OPERATING_UNIT', p_txn_header_rec_type.operating_unit_name);
136: fnd_message.set_token('ORG_ID', p_txn_header_rec_type.org_id);
137: x_msg_data := fnd_message.get();
138: END IF;
139: p_txn_header_rec_type.error_code := 'DPP_TXN_OPERATING_UNIT_ERR';
140: WHEN Fnd_Api.G_EXC_ERROR THEN
141: x_return_status := Fnd_Api.g_ret_sts_error ;
141: x_return_status := Fnd_Api.g_ret_sts_error ;
142: WHEN OTHERS THEN
143: x_return_status := fnd_api.g_ret_sts_unexp_error;
144: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
145: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
146: fnd_message.set_token('ROUTINE', l_full_name);
147: fnd_message.set_token('ERRNO', SQLCODE);
148: fnd_message.set_token('REASON', sqlerrm);
149: END IF;
142: WHEN OTHERS THEN
143: x_return_status := fnd_api.g_ret_sts_unexp_error;
144: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
145: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
146: fnd_message.set_token('ROUTINE', l_full_name);
147: fnd_message.set_token('ERRNO', SQLCODE);
148: fnd_message.set_token('REASON', sqlerrm);
149: END IF;
150: x_msg_data := fnd_message.get();
143: x_return_status := fnd_api.g_ret_sts_unexp_error;
144: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
145: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
146: fnd_message.set_token('ROUTINE', l_full_name);
147: fnd_message.set_token('ERRNO', SQLCODE);
148: fnd_message.set_token('REASON', sqlerrm);
149: END IF;
150: x_msg_data := fnd_message.get();
151: END Validate_OperatingUnit;
144: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
145: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
146: fnd_message.set_token('ROUTINE', l_full_name);
147: fnd_message.set_token('ERRNO', SQLCODE);
148: fnd_message.set_token('REASON', sqlerrm);
149: END IF;
150: x_msg_data := fnd_message.get();
151: END Validate_OperatingUnit;
152:
146: fnd_message.set_token('ROUTINE', l_full_name);
147: fnd_message.set_token('ERRNO', SQLCODE);
148: fnd_message.set_token('REASON', sqlerrm);
149: END IF;
150: x_msg_data := fnd_message.get();
151: END Validate_OperatingUnit;
152:
153:
154: FUNCTION has_docnum_chars (
186: -- Initialize API return status to sucess
187: x_return_status := fnd_api.g_ret_sts_success;
188: IF p_txn_header_rec_type.ref_document_number IS NULL THEN
189: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
190: fnd_message.set_name('DPP', 'DPP_DOC_REF_NUM_NULL');
191: END IF;
192: x_msg_data := fnd_message.get();
193: p_txn_header_rec_type.error_code := 'DPP_DOC_REF_NUM_NULL';
194: RAISE Fnd_Api.G_EXC_ERROR;
188: IF p_txn_header_rec_type.ref_document_number IS NULL THEN
189: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
190: fnd_message.set_name('DPP', 'DPP_DOC_REF_NUM_NULL');
191: END IF;
192: x_msg_data := fnd_message.get();
193: p_txn_header_rec_type.error_code := 'DPP_DOC_REF_NUM_NULL';
194: RAISE Fnd_Api.G_EXC_ERROR;
195: END IF;
196: --Call function to validate the document ref number for special characters other than _ and -.
200:
201: IF l_valid_doc = 'N' OR length(p_txn_header_rec_type.ref_document_number) > 40 THEN
202: x_return_status := fnd_api.g_ret_sts_error;
203: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
204: fnd_message.set_name('DPP', 'DPP_DOC_REF_NUM_ERR');
205: fnd_message.set_token('DOC_REF_NO', p_txn_header_rec_type.ref_document_number);
206: END IF;
207: x_msg_data := fnd_message.get();
208: p_txn_header_rec_type.error_code := 'DPP_DOC_REF_NUM_ERR';
201: IF l_valid_doc = 'N' OR length(p_txn_header_rec_type.ref_document_number) > 40 THEN
202: x_return_status := fnd_api.g_ret_sts_error;
203: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
204: fnd_message.set_name('DPP', 'DPP_DOC_REF_NUM_ERR');
205: fnd_message.set_token('DOC_REF_NO', p_txn_header_rec_type.ref_document_number);
206: END IF;
207: x_msg_data := fnd_message.get();
208: p_txn_header_rec_type.error_code := 'DPP_DOC_REF_NUM_ERR';
209: END IF;
203: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
204: fnd_message.set_name('DPP', 'DPP_DOC_REF_NUM_ERR');
205: fnd_message.set_token('DOC_REF_NO', p_txn_header_rec_type.ref_document_number);
206: END IF;
207: x_msg_data := fnd_message.get();
208: p_txn_header_rec_type.error_code := 'DPP_DOC_REF_NUM_ERR';
209: END IF;
210: IF DPP_DEBUG_HIGH_ON THEN
211: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Validate Document Reference Number');
215: x_return_status := Fnd_Api.g_ret_sts_error ;
216: WHEN OTHERS THEN
217: x_return_status := fnd_api.g_ret_sts_unexp_error;
218: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
220: fnd_message.set_token('ROUTINE', l_full_name);
221: fnd_message.set_token('ERRNO', SQLCODE);
222: fnd_message.set_token('REASON', sqlerrm);
223: x_msg_data := fnd_message.get();
216: WHEN OTHERS THEN
217: x_return_status := fnd_api.g_ret_sts_unexp_error;
218: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
220: fnd_message.set_token('ROUTINE', l_full_name);
221: fnd_message.set_token('ERRNO', SQLCODE);
222: fnd_message.set_token('REASON', sqlerrm);
223: x_msg_data := fnd_message.get();
224: END IF;
217: x_return_status := fnd_api.g_ret_sts_unexp_error;
218: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
220: fnd_message.set_token('ROUTINE', l_full_name);
221: fnd_message.set_token('ERRNO', SQLCODE);
222: fnd_message.set_token('REASON', sqlerrm);
223: x_msg_data := fnd_message.get();
224: END IF;
225: END Validate_RefDocNumber;
218: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
220: fnd_message.set_token('ROUTINE', l_full_name);
221: fnd_message.set_token('ERRNO', SQLCODE);
222: fnd_message.set_token('REASON', sqlerrm);
223: x_msg_data := fnd_message.get();
224: END IF;
225: END Validate_RefDocNumber;
226:
219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
220: fnd_message.set_token('ROUTINE', l_full_name);
221: fnd_message.set_token('ERRNO', SQLCODE);
222: fnd_message.set_token('REASON', sqlerrm);
223: x_msg_data := fnd_message.get();
224: END IF;
225: END Validate_RefDocNumber;
226:
227: PROCEDURE Validate_SupplierDetails(
243: --BUG 6806974
244: IF (p_txn_header_rec_type.vendor_name IS NULL
245: AND p_txn_header_rec_type.vendor_id IS NULL) THEN
246: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
247: fnd_message.set_name('DPP', 'DPP_TXN_SUPP_INFO_NULL');
248: x_msg_data :=fnd_message.get();
249: END IF;
250: p_txn_header_rec_type.error_code := 'DPP_TXN_SUPP_INFO_NULL';
251: RAISE Fnd_Api.G_EXC_ERROR;
244: IF (p_txn_header_rec_type.vendor_name IS NULL
245: AND p_txn_header_rec_type.vendor_id IS NULL) THEN
246: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
247: fnd_message.set_name('DPP', 'DPP_TXN_SUPP_INFO_NULL');
248: x_msg_data :=fnd_message.get();
249: END IF;
250: p_txn_header_rec_type.error_code := 'DPP_TXN_SUPP_INFO_NULL';
251: RAISE Fnd_Api.G_EXC_ERROR;
252: END IF;
266: EXCEPTION
267: WHEN NO_DATA_FOUND THEN
268: x_return_status := fnd_api.g_ret_sts_error;
269: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
270: fnd_message.set_name('DPP', 'DPP_TXN_SUPP_INFO_ERR');
271: fnd_message.set_token('SUPPLIER_NAME', p_txn_header_rec_type.vendor_name);
272: fnd_message.set_token('SUPPLIER_ID', p_txn_header_rec_type.vendor_id);
273: x_msg_data :=fnd_message.get();
274: END IF;
267: WHEN NO_DATA_FOUND THEN
268: x_return_status := fnd_api.g_ret_sts_error;
269: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
270: fnd_message.set_name('DPP', 'DPP_TXN_SUPP_INFO_ERR');
271: fnd_message.set_token('SUPPLIER_NAME', p_txn_header_rec_type.vendor_name);
272: fnd_message.set_token('SUPPLIER_ID', p_txn_header_rec_type.vendor_id);
273: x_msg_data :=fnd_message.get();
274: END IF;
275: p_txn_header_rec_type.error_code := 'DPP_TXN_SUPP_INFO_ERR';
268: x_return_status := fnd_api.g_ret_sts_error;
269: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
270: fnd_message.set_name('DPP', 'DPP_TXN_SUPP_INFO_ERR');
271: fnd_message.set_token('SUPPLIER_NAME', p_txn_header_rec_type.vendor_name);
272: fnd_message.set_token('SUPPLIER_ID', p_txn_header_rec_type.vendor_id);
273: x_msg_data :=fnd_message.get();
274: END IF;
275: p_txn_header_rec_type.error_code := 'DPP_TXN_SUPP_INFO_ERR';
276: RAISE Fnd_Api.G_EXC_ERROR;
269: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
270: fnd_message.set_name('DPP', 'DPP_TXN_SUPP_INFO_ERR');
271: fnd_message.set_token('SUPPLIER_NAME', p_txn_header_rec_type.vendor_name);
272: fnd_message.set_token('SUPPLIER_ID', p_txn_header_rec_type.vendor_id);
273: x_msg_data :=fnd_message.get();
274: END IF;
275: p_txn_header_rec_type.error_code := 'DPP_TXN_SUPP_INFO_ERR';
276: RAISE Fnd_Api.G_EXC_ERROR;
277: END;
278: --Validate Supplier Site
279: IF (p_txn_header_rec_type.vendor_site_code IS NULL
280: AND p_txn_header_rec_type.vendor_site_id IS NULL) THEN
281: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
282: fnd_message.set_name('DPP', 'DPP_TXN_SUPP_SITE_NULL');
283: x_msg_data :=fnd_message.get();
284: END IF;
285: p_txn_header_rec_type.error_code := 'DPP_TXN_SUPP_SITE_NULL';
286: RAISE Fnd_Api.G_EXC_ERROR;
279: IF (p_txn_header_rec_type.vendor_site_code IS NULL
280: AND p_txn_header_rec_type.vendor_site_id IS NULL) THEN
281: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
282: fnd_message.set_name('DPP', 'DPP_TXN_SUPP_SITE_NULL');
283: x_msg_data :=fnd_message.get();
284: END IF;
285: p_txn_header_rec_type.error_code := 'DPP_TXN_SUPP_SITE_NULL';
286: RAISE Fnd_Api.G_EXC_ERROR;
287: END IF;
304: EXCEPTION
305: WHEN NO_DATA_FOUND THEN
306: x_return_status := fnd_api.g_ret_sts_error;
307: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
308: fnd_message.set_name('DPP', 'DPP_TXN_SUPP_SITE_ERR');
309: fnd_message.set_token('SUPPLIER_SITE', p_txn_header_rec_type.vendor_site_code);
310: fnd_message.set_token('SITE_ID', p_txn_header_rec_type.vendor_site_id);
311: x_msg_data :=fnd_message.get();
312: END IF;
305: WHEN NO_DATA_FOUND THEN
306: x_return_status := fnd_api.g_ret_sts_error;
307: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
308: fnd_message.set_name('DPP', 'DPP_TXN_SUPP_SITE_ERR');
309: fnd_message.set_token('SUPPLIER_SITE', p_txn_header_rec_type.vendor_site_code);
310: fnd_message.set_token('SITE_ID', p_txn_header_rec_type.vendor_site_id);
311: x_msg_data :=fnd_message.get();
312: END IF;
313: p_txn_header_rec_type.error_code := 'DPP_TXN_SUPP_SITE_ERR';
306: x_return_status := fnd_api.g_ret_sts_error;
307: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
308: fnd_message.set_name('DPP', 'DPP_TXN_SUPP_SITE_ERR');
309: fnd_message.set_token('SUPPLIER_SITE', p_txn_header_rec_type.vendor_site_code);
310: fnd_message.set_token('SITE_ID', p_txn_header_rec_type.vendor_site_id);
311: x_msg_data :=fnd_message.get();
312: END IF;
313: p_txn_header_rec_type.error_code := 'DPP_TXN_SUPP_SITE_ERR';
314: RAISE Fnd_Api.G_EXC_ERROR;
307: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
308: fnd_message.set_name('DPP', 'DPP_TXN_SUPP_SITE_ERR');
309: fnd_message.set_token('SUPPLIER_SITE', p_txn_header_rec_type.vendor_site_code);
310: fnd_message.set_token('SITE_ID', p_txn_header_rec_type.vendor_site_id);
311: x_msg_data :=fnd_message.get();
312: END IF;
313: p_txn_header_rec_type.error_code := 'DPP_TXN_SUPP_SITE_ERR';
314: RAISE Fnd_Api.G_EXC_ERROR;
315: END;
321: x_return_status := Fnd_Api.g_ret_sts_error ;
322: WHEN others THEN
323: x_return_status := fnd_api.g_ret_sts_unexp_error;
324: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
325: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
326: fnd_message.set_token('ROUTINE', l_full_name);
327: fnd_message.set_token('ERRNO', SQLCODE);
328: fnd_message.set_token('REASON', sqlerrm);
329: x_msg_data :=fnd_message.get();
322: WHEN others THEN
323: x_return_status := fnd_api.g_ret_sts_unexp_error;
324: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
325: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
326: fnd_message.set_token('ROUTINE', l_full_name);
327: fnd_message.set_token('ERRNO', SQLCODE);
328: fnd_message.set_token('REASON', sqlerrm);
329: x_msg_data :=fnd_message.get();
330: END IF;
323: x_return_status := fnd_api.g_ret_sts_unexp_error;
324: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
325: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
326: fnd_message.set_token('ROUTINE', l_full_name);
327: fnd_message.set_token('ERRNO', SQLCODE);
328: fnd_message.set_token('REASON', sqlerrm);
329: x_msg_data :=fnd_message.get();
330: END IF;
331: END Validate_SupplierDetails;
324: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
325: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
326: fnd_message.set_token('ROUTINE', l_full_name);
327: fnd_message.set_token('ERRNO', SQLCODE);
328: fnd_message.set_token('REASON', sqlerrm);
329: x_msg_data :=fnd_message.get();
330: END IF;
331: END Validate_SupplierDetails;
332:
325: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
326: fnd_message.set_token('ROUTINE', l_full_name);
327: fnd_message.set_token('ERRNO', SQLCODE);
328: fnd_message.set_token('REASON', sqlerrm);
329: x_msg_data :=fnd_message.get();
330: END IF;
331: END Validate_SupplierDetails;
332:
333: --ANBBALAS for 12_1_2
365: EXCEPTION
366: WHEN NO_DATA_FOUND THEN
367: x_return_status := fnd_api.g_ret_sts_error;
368: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
369: fnd_message.set_name('DPP','DPP_SUPP_TRDPRFLS_MISSING_ERR');
370: x_msg_data :=fnd_message.get();
371: END IF;
372: p_txn_header_rec_type.error_code := 'DPP_SUPP_TRDPRFLS_MISSING_ERR';
373: FND_FILE.PUT_LINE(FND_FILE.LOG,'Supplier trade profile setup not available');
366: WHEN NO_DATA_FOUND THEN
367: x_return_status := fnd_api.g_ret_sts_error;
368: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
369: fnd_message.set_name('DPP','DPP_SUPP_TRDPRFLS_MISSING_ERR');
370: x_msg_data :=fnd_message.get();
371: END IF;
372: p_txn_header_rec_type.error_code := 'DPP_SUPP_TRDPRFLS_MISSING_ERR';
373: FND_FILE.PUT_LINE(FND_FILE.LOG,'Supplier trade profile setup not available');
374: FND_FILE.NEW_LINE(FND_FILE.LOG);
389: x_return_status := Fnd_Api.g_ret_sts_error ;
390: WHEN others THEN
391: x_return_status := fnd_api.g_ret_sts_unexp_error;
392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
393: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
394: fnd_message.set_token('ROUTINE', l_full_name);
395: fnd_message.set_token('ERRNO', SQLCODE);
396: fnd_message.set_token('REASON', sqlerrm);
397: x_msg_data :=fnd_message.get();
390: WHEN others THEN
391: x_return_status := fnd_api.g_ret_sts_unexp_error;
392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
393: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
394: fnd_message.set_token('ROUTINE', l_full_name);
395: fnd_message.set_token('ERRNO', SQLCODE);
396: fnd_message.set_token('REASON', sqlerrm);
397: x_msg_data :=fnd_message.get();
398: END IF;
391: x_return_status := fnd_api.g_ret_sts_unexp_error;
392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
393: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
394: fnd_message.set_token('ROUTINE', l_full_name);
395: fnd_message.set_token('ERRNO', SQLCODE);
396: fnd_message.set_token('REASON', sqlerrm);
397: x_msg_data :=fnd_message.get();
398: END IF;
399: END Validate_SupplierTrdPrfl;
392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
393: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
394: fnd_message.set_token('ROUTINE', l_full_name);
395: fnd_message.set_token('ERRNO', SQLCODE);
396: fnd_message.set_token('REASON', sqlerrm);
397: x_msg_data :=fnd_message.get();
398: END IF;
399: END Validate_SupplierTrdPrfl;
400:
393: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
394: fnd_message.set_token('ROUTINE', l_full_name);
395: fnd_message.set_token('ERRNO', SQLCODE);
396: fnd_message.set_token('REASON', sqlerrm);
397: x_msg_data :=fnd_message.get();
398: END IF;
399: END Validate_SupplierTrdPrfl;
400:
401: --ANBBALAS for 12_1_2
447:
448: IF l_count = 0 THEN --Process Setup does not exist
449: x_return_status := fnd_api.g_ret_sts_error;
450: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
451: fnd_message.set_name( 'DPP','DPP_PROCESS_SETUP_MISSING_ERR');
452: x_msg_data :=fnd_message.get();
453: END IF;
454: p_txn_header_rec_type.error_code := 'DPP_PROCESS_SETUP_MISSING_ERR';
455: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Execution processes setup available for this transaction.');
448: IF l_count = 0 THEN --Process Setup does not exist
449: x_return_status := fnd_api.g_ret_sts_error;
450: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
451: fnd_message.set_name( 'DPP','DPP_PROCESS_SETUP_MISSING_ERR');
452: x_msg_data :=fnd_message.get();
453: END IF;
454: p_txn_header_rec_type.error_code := 'DPP_PROCESS_SETUP_MISSING_ERR';
455: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Execution processes setup available for this transaction.');
456: FND_FILE.NEW_LINE(FND_FILE.LOG);
465: x_return_status := Fnd_Api.g_ret_sts_error ;
466: WHEN others THEN
467: x_return_status := fnd_api.g_ret_sts_unexp_error;
468: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
469: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
470: fnd_message.set_token('ROUTINE', l_full_name);
471: fnd_message.set_token('ERRNO', SQLCODE);
472: fnd_message.set_token('REASON', sqlerrm);
473: x_msg_data :=fnd_message.get();
466: WHEN others THEN
467: x_return_status := fnd_api.g_ret_sts_unexp_error;
468: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
469: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
470: fnd_message.set_token('ROUTINE', l_full_name);
471: fnd_message.set_token('ERRNO', SQLCODE);
472: fnd_message.set_token('REASON', sqlerrm);
473: x_msg_data :=fnd_message.get();
474: END IF;
467: x_return_status := fnd_api.g_ret_sts_unexp_error;
468: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
469: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
470: fnd_message.set_token('ROUTINE', l_full_name);
471: fnd_message.set_token('ERRNO', SQLCODE);
472: fnd_message.set_token('REASON', sqlerrm);
473: x_msg_data :=fnd_message.get();
474: END IF;
475: END Validate_ExecProcessSetup;
468: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
469: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
470: fnd_message.set_token('ROUTINE', l_full_name);
471: fnd_message.set_token('ERRNO', SQLCODE);
472: fnd_message.set_token('REASON', sqlerrm);
473: x_msg_data :=fnd_message.get();
474: END IF;
475: END Validate_ExecProcessSetup;
476:
469: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
470: fnd_message.set_token('ROUTINE', l_full_name);
471: fnd_message.set_token('ERRNO', SQLCODE);
472: fnd_message.set_token('REASON', sqlerrm);
473: x_msg_data :=fnd_message.get();
474: END IF;
475: END Validate_ExecProcessSetup;
476:
477: PROCEDURE Validate_lines(
550: NULL;
551: END;
552: END IF;
553: IF l_duplicate_lines > 1 THEN
554: fnd_message.set_name('DPP', 'DPP_DUPLICATE_TXN_LINES');
555: x_msg_data := fnd_message.get();
556: p_txn_header_rec_type.error_code := 'DPP_DUPLICATE_TXN_LINES';
557: x_return_status := Fnd_Api.g_ret_sts_error ;
558: --RAISE Fnd_Api.G_EXC_ERROR;
551: END;
552: END IF;
553: IF l_duplicate_lines > 1 THEN
554: fnd_message.set_name('DPP', 'DPP_DUPLICATE_TXN_LINES');
555: x_msg_data := fnd_message.get();
556: p_txn_header_rec_type.error_code := 'DPP_DUPLICATE_TXN_LINES';
557: x_return_status := Fnd_Api.g_ret_sts_error ;
558: --RAISE Fnd_Api.G_EXC_ERROR;
559: l_error_message := l_error_message ||x_msg_data;
573: , hr_operating_units hr
574: WHERE hr.set_of_books_id = gs.set_of_books_id
575: AND hr.organization_id = p_txn_header_rec_type.org_id;
576: EXCEPTION WHEN OTHERS THEN
577: fnd_message.set_name('DPP', 'DPP_TXN_FUNC_CURR_ERR');
578: x_msg_data := fnd_message.get();
579: p_txn_header_rec_type.error_code := 'DPP_TXN_FUNC_CURR_ERR';
580: x_return_status := Fnd_Api.g_ret_sts_error ;
581: --RAISE Fnd_Api.G_EXC_ERROR;
574: WHERE hr.set_of_books_id = gs.set_of_books_id
575: AND hr.organization_id = p_txn_header_rec_type.org_id;
576: EXCEPTION WHEN OTHERS THEN
577: fnd_message.set_name('DPP', 'DPP_TXN_FUNC_CURR_ERR');
578: x_msg_data := fnd_message.get();
579: p_txn_header_rec_type.error_code := 'DPP_TXN_FUNC_CURR_ERR';
580: x_return_status := Fnd_Api.g_ret_sts_error ;
581: --RAISE Fnd_Api.G_EXC_ERROR;
582: l_error_message := l_error_message ||x_msg_data;
590: dpp_txn_lines_int_all dtla WHERE
591: dtla.transaction_int_header_id = p_txn_header_rec_type.transaction_int_header_id;
592: EXCEPTION
593: WHEN NO_DATA_FOUND THEN
594: fnd_message.set_name('DPP', 'DPP_TXN_NO_LINES');
595: x_msg_data :=fnd_message.get();
596: p_txn_header_rec_type.error_code := 'DPP_TXN_NO_LINES';
597: l_error_message := l_error_message ||x_msg_data;
598: x_return_status := Fnd_Api.g_ret_sts_error ;
591: dtla.transaction_int_header_id = p_txn_header_rec_type.transaction_int_header_id;
592: EXCEPTION
593: WHEN NO_DATA_FOUND THEN
594: fnd_message.set_name('DPP', 'DPP_TXN_NO_LINES');
595: x_msg_data :=fnd_message.get();
596: p_txn_header_rec_type.error_code := 'DPP_TXN_NO_LINES';
597: l_error_message := l_error_message ||x_msg_data;
598: x_return_status := Fnd_Api.g_ret_sts_error ;
599: WHEN TOO_MANY_ROWS THEN
604: x_return_status := Fnd_Api.g_ret_sts_error ;
605: WHEN others THEN
606: x_return_status := fnd_api.g_ret_sts_unexp_error;
607: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
608: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
609: fnd_message.set_token('ROUTINE', l_full_name);
610: fnd_message.set_token('ERRNO', SQLCODE);
611: fnd_message.set_token('REASON', sqlerrm);
612: x_msg_data :=fnd_message.get();
605: WHEN others THEN
606: x_return_status := fnd_api.g_ret_sts_unexp_error;
607: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
608: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
609: fnd_message.set_token('ROUTINE', l_full_name);
610: fnd_message.set_token('ERRNO', SQLCODE);
611: fnd_message.set_token('REASON', sqlerrm);
612: x_msg_data :=fnd_message.get();
613: END IF;
606: x_return_status := fnd_api.g_ret_sts_unexp_error;
607: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
608: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
609: fnd_message.set_token('ROUTINE', l_full_name);
610: fnd_message.set_token('ERRNO', SQLCODE);
611: fnd_message.set_token('REASON', sqlerrm);
612: x_msg_data :=fnd_message.get();
613: END IF;
614: END Validate_lines;
607: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
608: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
609: fnd_message.set_token('ROUTINE', l_full_name);
610: fnd_message.set_token('ERRNO', SQLCODE);
611: fnd_message.set_token('REASON', sqlerrm);
612: x_msg_data :=fnd_message.get();
613: END IF;
614: END Validate_lines;
615:
608: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
609: fnd_message.set_token('ROUTINE', l_full_name);
610: fnd_message.set_token('ERRNO', SQLCODE);
611: fnd_message.set_token('REASON', sqlerrm);
612: x_msg_data :=fnd_message.get();
613: END IF;
614: END Validate_lines;
615:
616: PROCEDURE Get_DaysCovered(
638: EXCEPTION
639: WHEN NO_DATA_FOUND THEN
640: x_return_status := fnd_api.g_ret_sts_error;
641: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
642: fnd_message.set_name('DPP', 'DPP_DAYS_COVRD_ERR');
643: fnd_message.set_token('SUPPLIER_NAME', p_txn_header_rec_type.vendor_name);
644: x_msg_data :=fnd_message.get();
645: END IF;
646: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
639: WHEN NO_DATA_FOUND THEN
640: x_return_status := fnd_api.g_ret_sts_error;
641: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
642: fnd_message.set_name('DPP', 'DPP_DAYS_COVRD_ERR');
643: fnd_message.set_token('SUPPLIER_NAME', p_txn_header_rec_type.vendor_name);
644: x_msg_data :=fnd_message.get();
645: END IF;
646: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
647: p_txn_header_rec_type.error_code := 'DPP_DAYS_COVRD_ERR';
640: x_return_status := fnd_api.g_ret_sts_error;
641: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
642: fnd_message.set_name('DPP', 'DPP_DAYS_COVRD_ERR');
643: fnd_message.set_token('SUPPLIER_NAME', p_txn_header_rec_type.vendor_name);
644: x_msg_data :=fnd_message.get();
645: END IF;
646: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
647: p_txn_header_rec_type.error_code := 'DPP_DAYS_COVRD_ERR';
648: WHEN others THEN
647: p_txn_header_rec_type.error_code := 'DPP_DAYS_COVRD_ERR';
648: WHEN others THEN
649: x_return_status := fnd_api.g_ret_sts_unexp_error;
650: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
651: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
652: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
653: fnd_message.set_token('ERRNO', SQLCODE);
654: fnd_message.set_token('REASON', sqlerrm);
655: END IF;
648: WHEN others THEN
649: x_return_status := fnd_api.g_ret_sts_unexp_error;
650: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
651: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
652: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
653: fnd_message.set_token('ERRNO', SQLCODE);
654: fnd_message.set_token('REASON', sqlerrm);
655: END IF;
656: END Get_DaysCovered;
649: x_return_status := fnd_api.g_ret_sts_unexp_error;
650: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
651: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
652: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
653: fnd_message.set_token('ERRNO', SQLCODE);
654: fnd_message.set_token('REASON', sqlerrm);
655: END IF;
656: END Get_DaysCovered;
657:
650: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
651: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
652: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
653: fnd_message.set_token('ERRNO', SQLCODE);
654: fnd_message.set_token('REASON', sqlerrm);
655: END IF;
656: END Get_DaysCovered;
657:
658: PROCEDURE Validate_Currency(
683: IF DPP_DEBUG_HIGH_ON THEN
684: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Currency');
685: END IF;
686: IF p_txn_header_rec_type.trx_currency IS NULL THEN
687: fnd_message.set_name('DPP', 'DPP_TXN_CURR_NULL');
688: x_msg_data :=fnd_message.get();
689: p_txn_header_rec_type.error_code := 'DPP_TXN_CURR_NULL';
690: l_error_message := l_error_message || x_msg_data;
691: --RAISE Fnd_Api.G_EXC_ERROR ;
684: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Currency');
685: END IF;
686: IF p_txn_header_rec_type.trx_currency IS NULL THEN
687: fnd_message.set_name('DPP', 'DPP_TXN_CURR_NULL');
688: x_msg_data :=fnd_message.get();
689: p_txn_header_rec_type.error_code := 'DPP_TXN_CURR_NULL';
690: l_error_message := l_error_message || x_msg_data;
691: --RAISE Fnd_Api.G_EXC_ERROR ;
692: END IF;
701: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Validate Currency');
702: END IF;
703: EXCEPTION WHEN no_data_found THEN
704: x_return_status := fnd_api.g_ret_sts_error;
705: fnd_message.set_name('DPP', 'DPP_TXN_CURR_ERR');
706: fnd_message.set_token('CURRENCY_CODE', p_txn_header_rec_type.trx_currency);
707: x_msg_data :=fnd_message.get();
708: l_error_message := l_error_message || x_msg_data;
709: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
702: END IF;
703: EXCEPTION WHEN no_data_found THEN
704: x_return_status := fnd_api.g_ret_sts_error;
705: fnd_message.set_name('DPP', 'DPP_TXN_CURR_ERR');
706: fnd_message.set_token('CURRENCY_CODE', p_txn_header_rec_type.trx_currency);
707: x_msg_data :=fnd_message.get();
708: l_error_message := l_error_message || x_msg_data;
709: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
710: p_txn_header_rec_type.error_code := 'DPP_TXN_CURR_ERR';
703: EXCEPTION WHEN no_data_found THEN
704: x_return_status := fnd_api.g_ret_sts_error;
705: fnd_message.set_name('DPP', 'DPP_TXN_CURR_ERR');
706: fnd_message.set_token('CURRENCY_CODE', p_txn_header_rec_type.trx_currency);
707: x_msg_data :=fnd_message.get();
708: l_error_message := l_error_message || x_msg_data;
709: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
710: p_txn_header_rec_type.error_code := 'DPP_TXN_CURR_ERR';
711: END;
718: FROM dual;
719: EXCEPTION
720: WHEN no_data_found THEN
721: x_return_status := fnd_api.g_ret_sts_error;
722: fnd_message.set_name('DPP', 'DPP_TXN_SEQ_NO_ERR');
723: fnd_message.set_token('SEQ_NUM', 'Transaction Header Id');
724: x_msg_data := fnd_message.get();
725: l_error_message := l_error_message || x_msg_data;
726: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
719: EXCEPTION
720: WHEN no_data_found THEN
721: x_return_status := fnd_api.g_ret_sts_error;
722: fnd_message.set_name('DPP', 'DPP_TXN_SEQ_NO_ERR');
723: fnd_message.set_token('SEQ_NUM', 'Transaction Header Id');
724: x_msg_data := fnd_message.get();
725: l_error_message := l_error_message || x_msg_data;
726: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
727: l_error_message :=l_error_message|| x_msg_data;
720: WHEN no_data_found THEN
721: x_return_status := fnd_api.g_ret_sts_error;
722: fnd_message.set_name('DPP', 'DPP_TXN_SEQ_NO_ERR');
723: fnd_message.set_token('SEQ_NUM', 'Transaction Header Id');
724: x_msg_data := fnd_message.get();
725: l_error_message := l_error_message || x_msg_data;
726: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
727: l_error_message :=l_error_message|| x_msg_data;
728: p_txn_header_rec_type.error_code := 'DPP_TXN_SEQ_NO_ERR';
739: EXCEPTION
740: WHEN no_data_found THEN
741: x_return_status := fnd_api.g_ret_sts_error;
742: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
743: fnd_message.set_name('DPP', 'DPP_TXN_SEQ_NO_ERR');
744: fnd_message.set_token('SEQ_NUM', 'Transaction Number');
745: END IF;
746: x_msg_data := fnd_message.get();
747: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
740: WHEN no_data_found THEN
741: x_return_status := fnd_api.g_ret_sts_error;
742: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
743: fnd_message.set_name('DPP', 'DPP_TXN_SEQ_NO_ERR');
744: fnd_message.set_token('SEQ_NUM', 'Transaction Number');
745: END IF;
746: x_msg_data := fnd_message.get();
747: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
748: p_txn_header_rec_type.error_code := 'DPP_TXN_SEQ_NO_ERR';
742: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
743: fnd_message.set_name('DPP', 'DPP_TXN_SEQ_NO_ERR');
744: fnd_message.set_token('SEQ_NUM', 'Transaction Number');
745: END IF;
746: x_msg_data := fnd_message.get();
747: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
748: p_txn_header_rec_type.error_code := 'DPP_TXN_SEQ_NO_ERR';
749: l_error_message :=l_error_message|| x_msg_data;
750: --RAISE Fnd_Api.G_EXC_ERROR;
772: EXCEPTION
773: WHEN OTHERS THEN
774: x_return_status := fnd_api.g_ret_sts_error;
775: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
776: fnd_message.set_name('DPP', 'DPP_TXN_STS_ERR');
777: END IF;
778: x_msg_data := fnd_message.get();
779: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error while getting the truncated date' || x_msg_data);
780: p_txn_header_rec_type.error_code := 'DPP_TXN_STS_ERR';
774: x_return_status := fnd_api.g_ret_sts_error;
775: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
776: fnd_message.set_name('DPP', 'DPP_TXN_STS_ERR');
777: END IF;
778: x_msg_data := fnd_message.get();
779: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error while getting the truncated date' || x_msg_data);
780: p_txn_header_rec_type.error_code := 'DPP_TXN_STS_ERR';
781: l_error_message := l_error_message || x_msg_data;
782: END;
798: EXCEPTION
799: WHEN no_data_found THEN
800: x_return_status := fnd_api.g_ret_sts_error;
801: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
802: fnd_message.set_name('DPP', 'DPP_TXN_STS_ERR');
803: END IF;
804: x_msg_data := fnd_message.get();
805: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
806: p_txn_header_rec_type.error_code := 'DPP_TXN_STS_ERR';
800: x_return_status := fnd_api.g_ret_sts_error;
801: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
802: fnd_message.set_name('DPP', 'DPP_TXN_STS_ERR');
803: END IF;
804: x_msg_data := fnd_message.get();
805: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
806: p_txn_header_rec_type.error_code := 'DPP_TXN_STS_ERR';
807: l_error_message :=l_error_message|| x_msg_data;
808: --RAISE Fnd_Api.G_EXC_ERROR;
829: OR p_txn_header_rec_type.days_covered <> ROUND(p_txn_header_rec_type.days_covered)
830: THEN
831: x_return_status := fnd_api.g_ret_sts_error;
832: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
833: fnd_message.set_name('DPP', 'DPP_TXN_DAYS_COV_ERR');
834: END IF;
835: x_msg_data := fnd_message.get();
836: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
837: p_txn_header_rec_type.error_code := 'DPP_TXN_DAYS_COV_ERR';
831: x_return_status := fnd_api.g_ret_sts_error;
832: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
833: fnd_message.set_name('DPP', 'DPP_TXN_DAYS_COV_ERR');
834: END IF;
835: x_msg_data := fnd_message.get();
836: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
837: p_txn_header_rec_type.error_code := 'DPP_TXN_DAYS_COV_ERR';
838: l_error_message :=l_error_message|| x_msg_data;
839: --RAISE Fnd_Api.g_exc_error;
840: END IF;
841: IF p_txn_header_rec_type.effective_start_date IS NULL THEN
842: x_return_status := fnd_api.g_ret_sts_error;
843: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
844: fnd_message.set_name('DPP', 'DPP_EFF_START_DATE_ERR');
845: END IF;
846: x_msg_data := fnd_message.get();
847: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
848: p_txn_header_rec_type.error_code := 'DPP_EFF_START_DATE_ERR';
842: x_return_status := fnd_api.g_ret_sts_error;
843: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
844: fnd_message.set_name('DPP', 'DPP_EFF_START_DATE_ERR');
845: END IF;
846: x_msg_data := fnd_message.get();
847: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
848: p_txn_header_rec_type.error_code := 'DPP_EFF_START_DATE_ERR';
849: l_error_message :=l_error_message|| x_msg_data;
850: --RAISE Fnd_Api.g_exc_error;
860: x_return_status := Fnd_Api.g_ret_sts_error ;
861: WHEN others THEN
862: x_return_status := fnd_api.g_ret_sts_unexp_error;
863: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
864: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
865: fnd_message.set_token('ROUTINE', l_full_name);
866: fnd_message.set_token('ERRNO', SQLCODE);
867: fnd_message.set_token('REASON', sqlerrm);
868: END IF;
861: WHEN others THEN
862: x_return_status := fnd_api.g_ret_sts_unexp_error;
863: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
864: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
865: fnd_message.set_token('ROUTINE', l_full_name);
866: fnd_message.set_token('ERRNO', SQLCODE);
867: fnd_message.set_token('REASON', sqlerrm);
868: END IF;
869: x_msg_data :=fnd_message.get();
862: x_return_status := fnd_api.g_ret_sts_unexp_error;
863: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
864: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
865: fnd_message.set_token('ROUTINE', l_full_name);
866: fnd_message.set_token('ERRNO', SQLCODE);
867: fnd_message.set_token('REASON', sqlerrm);
868: END IF;
869: x_msg_data :=fnd_message.get();
870: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
863: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
864: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
865: fnd_message.set_token('ROUTINE', l_full_name);
866: fnd_message.set_token('ERRNO', SQLCODE);
867: fnd_message.set_token('REASON', sqlerrm);
868: END IF;
869: x_msg_data :=fnd_message.get();
870: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
871: END Validate_Currency;
865: fnd_message.set_token('ROUTINE', l_full_name);
866: fnd_message.set_token('ERRNO', SQLCODE);
867: fnd_message.set_token('REASON', sqlerrm);
868: END IF;
869: x_msg_data :=fnd_message.get();
870: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
871: END Validate_Currency;
872:
873:
1031: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Create Header OTHERS'||sqlerrm);
1032: x_return_status := Fnd_Api.g_ret_sts_unexp_erroR ;
1033: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
1034: THEN
1035: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1036: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
1037: fnd_message.set_token('ERRNO', SQLCODE);
1038: fnd_message.set_token('REASON', sqlerrm);
1039: END IF;
1032: x_return_status := Fnd_Api.g_ret_sts_unexp_erroR ;
1033: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
1034: THEN
1035: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1036: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
1037: fnd_message.set_token('ERRNO', SQLCODE);
1038: fnd_message.set_token('REASON', sqlerrm);
1039: END IF;
1040: x_msg_data := fnd_message.get;
1033: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
1034: THEN
1035: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1036: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
1037: fnd_message.set_token('ERRNO', SQLCODE);
1038: fnd_message.set_token('REASON', sqlerrm);
1039: END IF;
1040: x_msg_data := fnd_message.get;
1041: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1034: THEN
1035: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1036: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
1037: fnd_message.set_token('ERRNO', SQLCODE);
1038: fnd_message.set_token('REASON', sqlerrm);
1039: END IF;
1040: x_msg_data := fnd_message.get;
1041: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1042: END Create_Header;
1036: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
1037: fnd_message.set_token('ERRNO', SQLCODE);
1038: fnd_message.set_token('REASON', sqlerrm);
1039: END IF;
1040: x_msg_data := fnd_message.get;
1041: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1042: END Create_Header;
1043: PROCEDURE Validate_SupplierPartNum(
1044: p_txn_header_rec_type IN OUT nocopy txn_header_rec
1074: EXCEPTION
1075: WHEN no_data_found THEN
1076: x_return_status := fnd_api.g_ret_sts_error;
1077: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1078: fnd_message.set_name('DPP', 'DPP_TXN_SEQ_NO_ERR');
1079: fnd_message.set_token('SEQ_NUM', 'Transaction Line Id');
1080: END IF;
1081: x_msg_data := fnd_message.get();
1082: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1075: WHEN no_data_found THEN
1076: x_return_status := fnd_api.g_ret_sts_error;
1077: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1078: fnd_message.set_name('DPP', 'DPP_TXN_SEQ_NO_ERR');
1079: fnd_message.set_token('SEQ_NUM', 'Transaction Line Id');
1080: END IF;
1081: x_msg_data := fnd_message.get();
1082: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1083: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SEQ_NO_ERR';
1077: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1078: fnd_message.set_name('DPP', 'DPP_TXN_SEQ_NO_ERR');
1079: fnd_message.set_token('SEQ_NUM', 'Transaction Line Id');
1080: END IF;
1081: x_msg_data := fnd_message.get();
1082: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1083: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SEQ_NO_ERR';
1084: IF p_txn_header_rec_type.error_code IS NULL THEN
1085: p_txn_header_rec_type.error_code := 'DPP_TXN_SEQ_NO_ERR';
1099: EXCEPTION
1100: WHEN no_data_found THEN
1101: x_return_status := fnd_api.g_ret_sts_error;
1102: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1103: fnd_message.set_name('DPP', 'DPP_TXN_STS_ERR');
1104: END IF;
1105: x_msg_data := fnd_message.get();
1106: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1107: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_STS_ERR';
1101: x_return_status := fnd_api.g_ret_sts_error;
1102: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1103: fnd_message.set_name('DPP', 'DPP_TXN_STS_ERR');
1104: END IF;
1105: x_msg_data := fnd_message.get();
1106: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1107: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_STS_ERR';
1108: IF p_txn_header_rec_type.error_code IS NULL THEN
1109: p_txn_header_rec_type.error_code := 'DPP_TXN_STS_ERR';
1116: --BUG 6806974
1117: IF (p_txn_lines_tbl_type(i).supplier_part_num IS NULL AND p_txn_lines_tbl_type(i).item_number IS NULL
1118: AND p_txn_lines_tbl_type(i).inventory_item_id IS NULL) THEN
1119: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1120: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_NULL');
1121: END IF;
1122: x_msg_data := fnd_message.get();
1123: l_error_message :=l_error_message|| x_msg_data;
1124: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1118: AND p_txn_lines_tbl_type(i).inventory_item_id IS NULL) THEN
1119: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1120: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_NULL');
1121: END IF;
1122: x_msg_data := fnd_message.get();
1123: l_error_message :=l_error_message|| x_msg_data;
1124: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1125: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_NULL';
1126:
1189: END IF;
1190: EXCEPTION
1191: WHEN no_data_found THEN
1192: x_return_status := fnd_api.g_ret_sts_error;
1193: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1194: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1195: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1196: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1197: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1190: EXCEPTION
1191: WHEN no_data_found THEN
1192: x_return_status := fnd_api.g_ret_sts_error;
1193: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1194: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1195: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1196: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1197: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1198: x_msg_data := fnd_message.get();
1191: WHEN no_data_found THEN
1192: x_return_status := fnd_api.g_ret_sts_error;
1193: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1194: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1195: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1196: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1197: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1198: x_msg_data := fnd_message.get();
1199: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1192: x_return_status := fnd_api.g_ret_sts_error;
1193: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1194: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1195: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1196: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1197: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1198: x_msg_data := fnd_message.get();
1199: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1200: IF p_txn_header_rec_type.error_code IS NULL THEN
1193: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1194: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1195: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1196: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1197: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1198: x_msg_data := fnd_message.get();
1199: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1200: IF p_txn_header_rec_type.error_code IS NULL THEN
1201: p_txn_header_rec_type.error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1194: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1195: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1196: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1197: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1198: x_msg_data := fnd_message.get();
1199: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1200: IF p_txn_header_rec_type.error_code IS NULL THEN
1201: p_txn_header_rec_type.error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1202: ELSE
1205: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1206: l_error_message :=l_error_message|| x_msg_data;
1207: ELSE
1208: l_msg_exceeded := 'Y';
1209: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1210: x_msg_data := fnd_message.get();
1211: l_error_message := x_msg_data;
1212: END IF;
1213: END;
1206: l_error_message :=l_error_message|| x_msg_data;
1207: ELSE
1208: l_msg_exceeded := 'Y';
1209: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1210: x_msg_data := fnd_message.get();
1211: l_error_message := x_msg_data;
1212: END IF;
1213: END;
1214:
1230: AND occ.external_code =p_txn_lines_tbl_type(i).supplier_part_num;
1231: EXCEPTION
1232: WHEN no_data_found THEN
1233: x_return_status := fnd_api.g_ret_sts_error;
1234: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1235: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1236: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1237: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1238: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1231: EXCEPTION
1232: WHEN no_data_found THEN
1233: x_return_status := fnd_api.g_ret_sts_error;
1234: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1235: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1236: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1237: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1238: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1239: x_msg_data := fnd_message.get();
1232: WHEN no_data_found THEN
1233: x_return_status := fnd_api.g_ret_sts_error;
1234: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1235: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1236: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1237: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1238: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1239: x_msg_data := fnd_message.get();
1240: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1233: x_return_status := fnd_api.g_ret_sts_error;
1234: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1235: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1236: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1237: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1238: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1239: x_msg_data := fnd_message.get();
1240: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1241: IF p_txn_header_rec_type.error_code IS NULL THEN
1234: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1235: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1236: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1237: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1238: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1239: x_msg_data := fnd_message.get();
1240: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1241: IF p_txn_header_rec_type.error_code IS NULL THEN
1242: p_txn_header_rec_type.error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1235: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1236: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1237: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1238: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1239: x_msg_data := fnd_message.get();
1240: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1241: IF p_txn_header_rec_type.error_code IS NULL THEN
1242: p_txn_header_rec_type.error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1243: ELSE
1247: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1248: l_error_message :=l_error_message|| x_msg_data;
1249: ELSE
1250: l_msg_exceeded := 'Y';
1251: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1252: x_msg_data := fnd_message.get();
1253: l_error_message := x_msg_data;
1254: END IF;
1255:
1248: l_error_message :=l_error_message|| x_msg_data;
1249: ELSE
1250: l_msg_exceeded := 'Y';
1251: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1252: x_msg_data := fnd_message.get();
1253: l_error_message := x_msg_data;
1254: END IF;
1255:
1256: WHEN TOO_MANY_ROWS THEN
1253: l_error_message := x_msg_data;
1254: END IF;
1255:
1256: WHEN TOO_MANY_ROWS THEN
1257: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');
1258: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1259: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1260: x_msg_data := fnd_message.get();
1261: p_txn_header_rec_type.error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1254: END IF;
1255:
1256: WHEN TOO_MANY_ROWS THEN
1257: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');
1258: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1259: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1260: x_msg_data := fnd_message.get();
1261: p_txn_header_rec_type.error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1262: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1255:
1256: WHEN TOO_MANY_ROWS THEN
1257: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');
1258: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1259: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1260: x_msg_data := fnd_message.get();
1261: p_txn_header_rec_type.error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1262: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1263: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1256: WHEN TOO_MANY_ROWS THEN
1257: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');
1258: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1259: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1260: x_msg_data := fnd_message.get();
1261: p_txn_header_rec_type.error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1262: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1263: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1264: l_error_message :=l_error_message|| x_msg_data;
1263: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1264: l_error_message :=l_error_message|| x_msg_data;
1265: ELSE
1266: l_msg_exceeded := 'Y';
1267: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1268: x_msg_data := fnd_message.get();
1269: l_error_message := x_msg_data;
1270: END IF;
1271:
1264: l_error_message :=l_error_message|| x_msg_data;
1265: ELSE
1266: l_msg_exceeded := 'Y';
1267: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1268: x_msg_data := fnd_message.get();
1269: l_error_message := x_msg_data;
1270: END IF;
1271:
1272: END;
1289: FND_FILE.PUT_LINE(FND_FILE.LOG,' Supplier Part Number does not exist for Item Number '|| p_txn_lines_tbl_type(i).item_number ||
1290: '( Inventory Item ID '|| p_txn_lines_tbl_type(i).inventory_item_id );
1291: END IF;
1292: WHEN TOO_MANY_ROWS THEN
1293: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');
1294: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1295: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1296: x_msg_data := fnd_message.get();
1297: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1290: '( Inventory Item ID '|| p_txn_lines_tbl_type(i).inventory_item_id );
1291: END IF;
1292: WHEN TOO_MANY_ROWS THEN
1293: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');
1294: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1295: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1296: x_msg_data := fnd_message.get();
1297: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1298: IF p_txn_header_rec_type.error_code IS NULL THEN
1291: END IF;
1292: WHEN TOO_MANY_ROWS THEN
1293: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');
1294: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1295: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1296: x_msg_data := fnd_message.get();
1297: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1298: IF p_txn_header_rec_type.error_code IS NULL THEN
1299: p_txn_header_rec_type.error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1292: WHEN TOO_MANY_ROWS THEN
1293: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');
1294: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1295: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1296: x_msg_data := fnd_message.get();
1297: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1298: IF p_txn_header_rec_type.error_code IS NULL THEN
1299: p_txn_header_rec_type.error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1300: ELSE
1304: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1305: l_error_message :=l_error_message|| x_msg_data;
1306: ELSE
1307: l_msg_exceeded := 'Y';
1308: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1309: x_msg_data := fnd_message.get();
1310: l_error_message := x_msg_data;
1311: END IF;
1312:
1305: l_error_message :=l_error_message|| x_msg_data;
1306: ELSE
1307: l_msg_exceeded := 'Y';
1308: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1309: x_msg_data := fnd_message.get();
1310: l_error_message := x_msg_data;
1311: END IF;
1312:
1313: END;
1329: AND (trunc(sysdate) between occ.start_date_active and occ.end_date_active OR occ.end_date_active is null)
1330: AND occ.external_code =p_txn_lines_tbl_type(i).supplier_part_num;
1331: EXCEPTION WHEN NO_DATA_FOUND THEN
1332: x_return_status := fnd_api.g_ret_sts_error;
1333: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1334: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1335: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1336: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1337: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1330: AND occ.external_code =p_txn_lines_tbl_type(i).supplier_part_num;
1331: EXCEPTION WHEN NO_DATA_FOUND THEN
1332: x_return_status := fnd_api.g_ret_sts_error;
1333: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1334: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1335: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1336: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1337: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1338: x_msg_data := fnd_message.get();
1331: EXCEPTION WHEN NO_DATA_FOUND THEN
1332: x_return_status := fnd_api.g_ret_sts_error;
1333: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1334: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1335: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1336: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1337: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1338: x_msg_data := fnd_message.get();
1339: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1332: x_return_status := fnd_api.g_ret_sts_error;
1333: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1334: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1335: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1336: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1337: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1338: x_msg_data := fnd_message.get();
1339: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1340: IF p_txn_header_rec_type.error_code IS NULL THEN
1333: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_ERR');
1334: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1335: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1336: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1337: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1338: x_msg_data := fnd_message.get();
1339: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1340: IF p_txn_header_rec_type.error_code IS NULL THEN
1341: p_txn_header_rec_type.error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1334: fnd_message.set_token('SUPPLIER_PART_NUM', p_txn_lines_tbl_type(i).supplier_part_num);
1335: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1336: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1337: fnd_message.set_token('UOM_CODE', p_txn_lines_tbl_type(i).uom);
1338: x_msg_data := fnd_message.get();
1339: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1340: IF p_txn_header_rec_type.error_code IS NULL THEN
1341: p_txn_header_rec_type.error_code := 'DPP_TXN_SUP_PART_NO_ERR';
1342: ELSE
1345: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1346: l_error_message :=l_error_message|| x_msg_data;
1347: ELSE
1348: l_msg_exceeded := 'Y';
1349: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1350: x_msg_data := fnd_message.get();
1351:
1352: l_error_message := x_msg_data;
1353: END IF;
1346: l_error_message :=l_error_message|| x_msg_data;
1347: ELSE
1348: l_msg_exceeded := 'Y';
1349: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1350: x_msg_data := fnd_message.get();
1351:
1352: l_error_message := x_msg_data;
1353: END IF;
1354:
1352: l_error_message := x_msg_data;
1353: END IF;
1354:
1355: WHEN TOO_MANY_ROWS THEN
1356: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');
1357: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1358: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1359: x_msg_data := fnd_message.get();
1360: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1353: END IF;
1354:
1355: WHEN TOO_MANY_ROWS THEN
1356: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');
1357: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1358: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1359: x_msg_data := fnd_message.get();
1360: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1361: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1354:
1355: WHEN TOO_MANY_ROWS THEN
1356: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');
1357: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1358: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1359: x_msg_data := fnd_message.get();
1360: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1361: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1362: IF p_txn_header_rec_type.error_code IS NULL THEN
1355: WHEN TOO_MANY_ROWS THEN
1356: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');
1357: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1358: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1359: x_msg_data := fnd_message.get();
1360: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1361: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1362: IF p_txn_header_rec_type.error_code IS NULL THEN
1363: p_txn_header_rec_type.error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1367: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1368: l_error_message :=l_error_message|| x_msg_data;
1369: ELSE
1370: l_msg_exceeded := 'Y';
1371: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1372: x_msg_data := fnd_message.get();
1373: l_error_message := x_msg_data;
1374: END IF;
1375:
1368: l_error_message :=l_error_message|| x_msg_data;
1369: ELSE
1370: l_msg_exceeded := 'Y';
1371: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1372: x_msg_data := fnd_message.get();
1373: l_error_message := x_msg_data;
1374: END IF;
1375:
1376:
1408: ,x_to_amount => p_txn_lines_tbl_type(i).prior_price
1409: ,x_rate => l_exchange_rate);
1410:
1411: IF x_return_status <>fnd_api.g_ret_sts_success THEN
1412: fnd_message.set_name('DPP', 'DPP_TXN_CONV_PRICE_ER');
1413: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1414: x_msg_data := fnd_message.get();
1415: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CONV_PRICE_ER';
1416: IF p_txn_header_rec_type.error_code IS NULL THEN
1409: ,x_rate => l_exchange_rate);
1410:
1411: IF x_return_status <>fnd_api.g_ret_sts_success THEN
1412: fnd_message.set_name('DPP', 'DPP_TXN_CONV_PRICE_ER');
1413: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1414: x_msg_data := fnd_message.get();
1415: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CONV_PRICE_ER';
1416: IF p_txn_header_rec_type.error_code IS NULL THEN
1417: p_txn_header_rec_type.error_code := 'DPP_TXN_CONV_PRICE_ER';
1410:
1411: IF x_return_status <>fnd_api.g_ret_sts_success THEN
1412: fnd_message.set_name('DPP', 'DPP_TXN_CONV_PRICE_ER');
1413: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1414: x_msg_data := fnd_message.get();
1415: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CONV_PRICE_ER';
1416: IF p_txn_header_rec_type.error_code IS NULL THEN
1417: p_txn_header_rec_type.error_code := 'DPP_TXN_CONV_PRICE_ER';
1418: ELSE
1424: END IF;
1425: END IF;
1426: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Prior Price:'||p_txn_lines_tbl_type(i).prior_price);
1427: IF p_txn_lines_tbl_type(i).prior_price IS NULL THEN
1428: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_LIST_PRICE_ER');
1429: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1430: x_msg_data := fnd_message.get();
1431: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_LIST_PRICE_ER';
1432: IF p_txn_header_rec_type.error_code IS NULL THEN
1425: END IF;
1426: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Prior Price:'||p_txn_lines_tbl_type(i).prior_price);
1427: IF p_txn_lines_tbl_type(i).prior_price IS NULL THEN
1428: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_LIST_PRICE_ER');
1429: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1430: x_msg_data := fnd_message.get();
1431: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_LIST_PRICE_ER';
1432: IF p_txn_header_rec_type.error_code IS NULL THEN
1433: p_txn_header_rec_type.error_code := 'DPP_TXN_SUP_PART_LIST_PRICE_ER';
1426: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Prior Price:'||p_txn_lines_tbl_type(i).prior_price);
1427: IF p_txn_lines_tbl_type(i).prior_price IS NULL THEN
1428: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_LIST_PRICE_ER');
1429: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1430: x_msg_data := fnd_message.get();
1431: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_LIST_PRICE_ER';
1432: IF p_txn_header_rec_type.error_code IS NULL THEN
1433: p_txn_header_rec_type.error_code := 'DPP_TXN_SUP_PART_LIST_PRICE_ER';
1434: ELSE
1439: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1440: l_error_message :=l_error_message|| x_msg_data;
1441: ELSE
1442: l_msg_exceeded := 'Y';
1443: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1444: x_msg_data := fnd_message.get();
1445: l_error_message := x_msg_data;
1446: END IF;
1447: END IF;
1440: l_error_message :=l_error_message|| x_msg_data;
1441: ELSE
1442: l_msg_exceeded := 'Y';
1443: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1444: x_msg_data := fnd_message.get();
1445: l_error_message := x_msg_data;
1446: END IF;
1447: END IF;
1448: END IF;
1448: END IF;
1449: END IF;
1450: EXCEPTION
1451: WHEN no_data_found THEN
1452: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_LIST_PRICE_ER');
1453: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1454: x_msg_data := fnd_message.get();
1455: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_LIST_PRICE_ER';
1456: IF p_txn_header_rec_type.error_code IS NULL THEN
1449: END IF;
1450: EXCEPTION
1451: WHEN no_data_found THEN
1452: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_LIST_PRICE_ER');
1453: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1454: x_msg_data := fnd_message.get();
1455: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_LIST_PRICE_ER';
1456: IF p_txn_header_rec_type.error_code IS NULL THEN
1457: p_txn_header_rec_type.error_code := 'DPP_TXN_SUP_PART_LIST_PRICE_ER';
1450: EXCEPTION
1451: WHEN no_data_found THEN
1452: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_LIST_PRICE_ER');
1453: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1454: x_msg_data := fnd_message.get();
1455: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_LIST_PRICE_ER';
1456: IF p_txn_header_rec_type.error_code IS NULL THEN
1457: p_txn_header_rec_type.error_code := 'DPP_TXN_SUP_PART_LIST_PRICE_ER';
1458: ELSE
1463: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1464: l_error_message :=l_error_message|| x_msg_data;
1465: ELSE
1466: l_msg_exceeded := 'Y';
1467: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1468: x_msg_data := fnd_message.get();
1469: l_error_message := x_msg_data;
1470: END IF;
1471: END;
1464: l_error_message :=l_error_message|| x_msg_data;
1465: ELSE
1466: l_msg_exceeded := 'Y';
1467: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1468: x_msg_data := fnd_message.get();
1469: l_error_message := x_msg_data;
1470: END IF;
1471: END;
1472:
1472:
1473: --Validation for Prior Price --ANBBALAS
1474: IF p_txn_lines_tbl_type(i).prior_price <= 0 THEN
1475: FND_FILE.PUT_LINE(FND_FILE.LOG,' Prior Price is either zero or negative');
1476: fnd_message.set_name('DPP', 'DPP_PRIOR_PRICE_ERR');
1477: x_msg_data := fnd_message.get();
1478: p_txn_lines_tbl_type(i).error_code := 'DPP_PRIOR_PRICE_ERR';
1479: IF p_txn_header_rec_type.error_code IS NULL THEN
1480: p_txn_header_rec_type.error_code := 'DPP_PRIOR_PRICE_ERR';
1473: --Validation for Prior Price --ANBBALAS
1474: IF p_txn_lines_tbl_type(i).prior_price <= 0 THEN
1475: FND_FILE.PUT_LINE(FND_FILE.LOG,' Prior Price is either zero or negative');
1476: fnd_message.set_name('DPP', 'DPP_PRIOR_PRICE_ERR');
1477: x_msg_data := fnd_message.get();
1478: p_txn_lines_tbl_type(i).error_code := 'DPP_PRIOR_PRICE_ERR';
1479: IF p_txn_header_rec_type.error_code IS NULL THEN
1480: p_txn_header_rec_type.error_code := 'DPP_PRIOR_PRICE_ERR';
1481: ELSE
1484: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1485: l_error_message :=l_error_message|| x_msg_data;
1486: ELSE
1487: l_msg_exceeded := 'Y';
1488: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1489: x_msg_data := fnd_message.get();
1490: l_error_message := x_msg_data;
1491: END IF;
1492: END IF;
1485: l_error_message :=l_error_message|| x_msg_data;
1486: ELSE
1487: l_msg_exceeded := 'Y';
1488: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1489: x_msg_data := fnd_message.get();
1490: l_error_message := x_msg_data;
1491: END IF;
1492: END IF;
1493:
1493:
1494: --Validation for Change Value
1495: IF p_txn_lines_tbl_type(i).change_value IS NULL THEN
1496: FND_FILE.PUT_LINE(FND_FILE.LOG,' Change Value is null');
1497: fnd_message.set_name('DPP', 'DPP_CHANGE_VALUE_NULL');
1498: x_msg_data := fnd_message.get();
1499: p_txn_lines_tbl_type(i).error_code := 'DPP_CHANGE_VALUE_NULL';
1500: IF p_txn_header_rec_type.error_code IS NULL THEN
1501: p_txn_header_rec_type.error_code := 'DPP_CHANGE_VALUE_NULL';
1494: --Validation for Change Value
1495: IF p_txn_lines_tbl_type(i).change_value IS NULL THEN
1496: FND_FILE.PUT_LINE(FND_FILE.LOG,' Change Value is null');
1497: fnd_message.set_name('DPP', 'DPP_CHANGE_VALUE_NULL');
1498: x_msg_data := fnd_message.get();
1499: p_txn_lines_tbl_type(i).error_code := 'DPP_CHANGE_VALUE_NULL';
1500: IF p_txn_header_rec_type.error_code IS NULL THEN
1501: p_txn_header_rec_type.error_code := 'DPP_CHANGE_VALUE_NULL';
1502: ELSE
1505: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1506: l_error_message :=l_error_message|| x_msg_data;
1507: ELSE
1508: l_msg_exceeded := 'Y';
1509: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1510: x_msg_data := fnd_message.get();
1511: l_error_message := x_msg_data;
1512: END IF;
1513: END IF;
1506: l_error_message :=l_error_message|| x_msg_data;
1507: ELSE
1508: l_msg_exceeded := 'Y';
1509: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1510: x_msg_data := fnd_message.get();
1511: l_error_message := x_msg_data;
1512: END IF;
1513: END IF;
1514:
1513: END IF;
1514:
1515: IF p_txn_lines_tbl_type(i).change_type IS NULL THEN
1516: FND_FILE.PUT_LINE(FND_FILE.LOG,' Change type is null');
1517: fnd_message.set_name('DPP', 'DPP_CHANGE_TYPE_NULL');
1518: x_msg_data := fnd_message.get();
1519: p_txn_lines_tbl_type(i).error_code := 'DPP_CHANGE_TYPE_NULL';
1520: IF p_txn_header_rec_type.error_code IS NULL THEN
1521: p_txn_header_rec_type.error_code := 'DPP_CHANGE_TYPE_NULL';
1514:
1515: IF p_txn_lines_tbl_type(i).change_type IS NULL THEN
1516: FND_FILE.PUT_LINE(FND_FILE.LOG,' Change type is null');
1517: fnd_message.set_name('DPP', 'DPP_CHANGE_TYPE_NULL');
1518: x_msg_data := fnd_message.get();
1519: p_txn_lines_tbl_type(i).error_code := 'DPP_CHANGE_TYPE_NULL';
1520: IF p_txn_header_rec_type.error_code IS NULL THEN
1521: p_txn_header_rec_type.error_code := 'DPP_CHANGE_TYPE_NULL';
1522: ELSE
1525: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1526: l_error_message :=l_error_message|| x_msg_data;
1527: ELSE
1528: l_msg_exceeded := 'Y';
1529: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1530: x_msg_data := fnd_message.get();
1531: l_error_message := x_msg_data;
1532: END IF;
1533: END IF;
1526: l_error_message :=l_error_message|| x_msg_data;
1527: ELSE
1528: l_msg_exceeded := 'Y';
1529: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1530: x_msg_data := fnd_message.get();
1531: l_error_message := x_msg_data;
1532: END IF;
1533: END IF;
1534:
1538:
1539: IF p_txn_lines_tbl_type(i).change_type = 'NEW_PRICE' THEN
1540: IF p_txn_lines_tbl_type(i).change_value <= 0 THEN
1541: FND_FILE.PUT_LINE(FND_FILE.LOG,' Negative Price Change Value:' || p_txn_lines_tbl_type(i).change_value ||'. Please enter a valid Change value.');
1542: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1543: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1544: x_msg_data := fnd_message.get();
1545: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1546: IF p_txn_header_rec_type.error_code IS NULL THEN
1539: IF p_txn_lines_tbl_type(i).change_type = 'NEW_PRICE' THEN
1540: IF p_txn_lines_tbl_type(i).change_value <= 0 THEN
1541: FND_FILE.PUT_LINE(FND_FILE.LOG,' Negative Price Change Value:' || p_txn_lines_tbl_type(i).change_value ||'. Please enter a valid Change value.');
1542: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1543: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1544: x_msg_data := fnd_message.get();
1545: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1546: IF p_txn_header_rec_type.error_code IS NULL THEN
1547: p_txn_header_rec_type.error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1540: IF p_txn_lines_tbl_type(i).change_value <= 0 THEN
1541: FND_FILE.PUT_LINE(FND_FILE.LOG,' Negative Price Change Value:' || p_txn_lines_tbl_type(i).change_value ||'. Please enter a valid Change value.');
1542: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1543: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1544: x_msg_data := fnd_message.get();
1545: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1546: IF p_txn_header_rec_type.error_code IS NULL THEN
1547: p_txn_header_rec_type.error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1548: ELSE
1551: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1552: l_error_message :=l_error_message|| x_msg_data;
1553: ELSE
1554: l_msg_exceeded := 'Y';
1555: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1556: x_msg_data := fnd_message.get();
1557: l_error_message := x_msg_data;
1558: END IF;
1559: ELSE
1552: l_error_message :=l_error_message|| x_msg_data;
1553: ELSE
1554: l_msg_exceeded := 'Y';
1555: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1556: x_msg_data := fnd_message.get();
1557: l_error_message := x_msg_data;
1558: END IF;
1559: ELSE
1560: p_txn_lines_tbl_type(i).supplier_new_price := p_txn_lines_tbl_type(i).change_value;
1561: END IF;
1562: ELSIF p_txn_lines_tbl_type(i).change_type = 'PERCENT_DECREASE' THEN
1563: IF p_txn_lines_tbl_type(i).change_value <= 0 OR p_txn_lines_tbl_type(i).change_value >= 100 THEN
1564: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change Value:' || p_txn_lines_tbl_type(i).change_value || 'for the change type Percent Decrease. Please enter a valid Change value.');
1565: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1566: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1567: x_msg_data := fnd_message.get();
1568: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1569: IF p_txn_header_rec_type.error_code IS NULL THEN
1562: ELSIF p_txn_lines_tbl_type(i).change_type = 'PERCENT_DECREASE' THEN
1563: IF p_txn_lines_tbl_type(i).change_value <= 0 OR p_txn_lines_tbl_type(i).change_value >= 100 THEN
1564: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change Value:' || p_txn_lines_tbl_type(i).change_value || 'for the change type Percent Decrease. Please enter a valid Change value.');
1565: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1566: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1567: x_msg_data := fnd_message.get();
1568: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1569: IF p_txn_header_rec_type.error_code IS NULL THEN
1570: p_txn_header_rec_type.error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1563: IF p_txn_lines_tbl_type(i).change_value <= 0 OR p_txn_lines_tbl_type(i).change_value >= 100 THEN
1564: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change Value:' || p_txn_lines_tbl_type(i).change_value || 'for the change type Percent Decrease. Please enter a valid Change value.');
1565: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1566: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1567: x_msg_data := fnd_message.get();
1568: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1569: IF p_txn_header_rec_type.error_code IS NULL THEN
1570: p_txn_header_rec_type.error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1571: ELSE
1574: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1575: l_error_message :=l_error_message|| x_msg_data;
1576: ELSE
1577: l_msg_exceeded := 'Y';
1578: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1579: x_msg_data := fnd_message.get();
1580: l_error_message := x_msg_data;
1581: END IF;
1582: ELSE
1575: l_error_message :=l_error_message|| x_msg_data;
1576: ELSE
1577: l_msg_exceeded := 'Y';
1578: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1579: x_msg_data := fnd_message.get();
1580: l_error_message := x_msg_data;
1581: END IF;
1582: ELSE
1583: p_txn_lines_tbl_type(i).supplier_new_price := (p_txn_lines_tbl_type(i).prior_price-(p_txn_lines_tbl_type(i).prior_price*( p_txn_lines_tbl_type(i).change_value) / 100));
1585:
1586: ELSIF p_txn_lines_tbl_type(i).change_type = 'PERCENT_INCREASE' THEN
1587: IF p_txn_lines_tbl_type(i).change_value <= 0 THEN
1588: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change Value:' || p_txn_lines_tbl_type(i).change_value || 'for the change type Percent Increase. Please enter a valid Change value.');
1589: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1590: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1591: x_msg_data := fnd_message.get();
1592: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1593: IF p_txn_header_rec_type.error_code IS NULL THEN
1586: ELSIF p_txn_lines_tbl_type(i).change_type = 'PERCENT_INCREASE' THEN
1587: IF p_txn_lines_tbl_type(i).change_value <= 0 THEN
1588: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change Value:' || p_txn_lines_tbl_type(i).change_value || 'for the change type Percent Increase. Please enter a valid Change value.');
1589: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1590: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1591: x_msg_data := fnd_message.get();
1592: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1593: IF p_txn_header_rec_type.error_code IS NULL THEN
1594: p_txn_header_rec_type.error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1587: IF p_txn_lines_tbl_type(i).change_value <= 0 THEN
1588: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change Value:' || p_txn_lines_tbl_type(i).change_value || 'for the change type Percent Increase. Please enter a valid Change value.');
1589: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1590: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1591: x_msg_data := fnd_message.get();
1592: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1593: IF p_txn_header_rec_type.error_code IS NULL THEN
1594: p_txn_header_rec_type.error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1595: ELSE
1598: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1599: l_error_message :=l_error_message|| x_msg_data;
1600: ELSE
1601: l_msg_exceeded := 'Y';
1602: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1603: x_msg_data := fnd_message.get();
1604: l_error_message := x_msg_data;
1605: END IF;
1606: ELSE
1599: l_error_message :=l_error_message|| x_msg_data;
1600: ELSE
1601: l_msg_exceeded := 'Y';
1602: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1603: x_msg_data := fnd_message.get();
1604: l_error_message := x_msg_data;
1605: END IF;
1606: ELSE
1607: p_txn_lines_tbl_type(i).supplier_new_price := (p_txn_lines_tbl_type(i).prior_price+(p_txn_lines_tbl_type(i).prior_price*( p_txn_lines_tbl_type(i).change_value) / 100));
1608: END IF;
1609: ELSIF p_txn_lines_tbl_type(i).change_type = 'AMOUNT_INCREASE' THEN
1610: IF p_txn_lines_tbl_type(i).change_value <= 0 THEN
1611: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change Value:' || p_txn_lines_tbl_type(i).change_value || 'for the change type Amount Increase. Please enter a valid Change value.');
1612: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1613: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1614: x_msg_data := fnd_message.get();
1615: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1616: IF p_txn_header_rec_type.error_code IS NULL THEN
1609: ELSIF p_txn_lines_tbl_type(i).change_type = 'AMOUNT_INCREASE' THEN
1610: IF p_txn_lines_tbl_type(i).change_value <= 0 THEN
1611: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change Value:' || p_txn_lines_tbl_type(i).change_value || 'for the change type Amount Increase. Please enter a valid Change value.');
1612: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1613: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1614: x_msg_data := fnd_message.get();
1615: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1616: IF p_txn_header_rec_type.error_code IS NULL THEN
1617: p_txn_header_rec_type.error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1610: IF p_txn_lines_tbl_type(i).change_value <= 0 THEN
1611: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change Value:' || p_txn_lines_tbl_type(i).change_value || 'for the change type Amount Increase. Please enter a valid Change value.');
1612: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1613: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1614: x_msg_data := fnd_message.get();
1615: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1616: IF p_txn_header_rec_type.error_code IS NULL THEN
1617: p_txn_header_rec_type.error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1618: ELSE
1621: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1622: l_error_message :=l_error_message|| x_msg_data;
1623: ELSE
1624: l_msg_exceeded := 'Y';
1625: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1626: x_msg_data := fnd_message.get();
1627: l_error_message := x_msg_data;
1628: END IF;
1629: ELSE
1622: l_error_message :=l_error_message|| x_msg_data;
1623: ELSE
1624: l_msg_exceeded := 'Y';
1625: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1626: x_msg_data := fnd_message.get();
1627: l_error_message := x_msg_data;
1628: END IF;
1629: ELSE
1630: p_txn_lines_tbl_type(i).supplier_new_price := p_txn_lines_tbl_type(i).prior_price + p_txn_lines_tbl_type(i).change_value;
1632: ELSIF p_txn_lines_tbl_type(i).change_type = 'AMOUNT_DECREASE' THEN
1633: IF (p_txn_lines_tbl_type(i).change_value <= 0 OR
1634: (p_txn_lines_tbl_type(i).prior_price > 0 AND p_txn_lines_tbl_type(i).change_value >= p_txn_lines_tbl_type(i).prior_price) ) THEN
1635: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change Value:' || p_txn_lines_tbl_type(i).change_value || 'for the change type Amount Decrease. Please enter a valid Change value.');
1636: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1637: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1638: x_msg_data := fnd_message.get();
1639: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1640: IF p_txn_header_rec_type.error_code IS NULL THEN
1633: IF (p_txn_lines_tbl_type(i).change_value <= 0 OR
1634: (p_txn_lines_tbl_type(i).prior_price > 0 AND p_txn_lines_tbl_type(i).change_value >= p_txn_lines_tbl_type(i).prior_price) ) THEN
1635: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change Value:' || p_txn_lines_tbl_type(i).change_value || 'for the change type Amount Decrease. Please enter a valid Change value.');
1636: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1637: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1638: x_msg_data := fnd_message.get();
1639: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1640: IF p_txn_header_rec_type.error_code IS NULL THEN
1641: p_txn_header_rec_type.error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1634: (p_txn_lines_tbl_type(i).prior_price > 0 AND p_txn_lines_tbl_type(i).change_value >= p_txn_lines_tbl_type(i).prior_price) ) THEN
1635: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change Value:' || p_txn_lines_tbl_type(i).change_value || 'for the change type Amount Decrease. Please enter a valid Change value.');
1636: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1637: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1638: x_msg_data := fnd_message.get();
1639: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1640: IF p_txn_header_rec_type.error_code IS NULL THEN
1641: p_txn_header_rec_type.error_code := 'DPP_TXN_CHANGE_VALUE_ERR';
1642: ELSE
1645: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1646: l_error_message :=l_error_message|| x_msg_data;
1647: ELSE
1648: l_msg_exceeded := 'Y';
1649: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1650: x_msg_data := fnd_message.get();
1651: l_error_message := x_msg_data;
1652: END IF;
1653: ELSE
1646: l_error_message :=l_error_message|| x_msg_data;
1647: ELSE
1648: l_msg_exceeded := 'Y';
1649: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1650: x_msg_data := fnd_message.get();
1651: l_error_message := x_msg_data;
1652: END IF;
1653: ELSE
1654: p_txn_lines_tbl_type(i).supplier_new_price := p_txn_lines_tbl_type(i).prior_price - p_txn_lines_tbl_type(i).change_value;
1655: END IF;
1656:
1657: ELSE
1658: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change type:' || p_txn_lines_tbl_type(i).change_type ||'. Please enter a valid Change type.');
1659: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_TYPE_ERR');
1660: fnd_message.set_token('CHANGE_TYPE', p_txn_lines_tbl_type(i).change_type );
1661: x_msg_data := fnd_message.get();
1662: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_TYPE_ERR';
1663: IF p_txn_header_rec_type.error_code IS NULL THEN
1656:
1657: ELSE
1658: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change type:' || p_txn_lines_tbl_type(i).change_type ||'. Please enter a valid Change type.');
1659: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_TYPE_ERR');
1660: fnd_message.set_token('CHANGE_TYPE', p_txn_lines_tbl_type(i).change_type );
1661: x_msg_data := fnd_message.get();
1662: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_TYPE_ERR';
1663: IF p_txn_header_rec_type.error_code IS NULL THEN
1664: p_txn_header_rec_type.error_code := 'DPP_TXN_CHANGE_TYPE_ERR';
1657: ELSE
1658: FND_FILE.PUT_LINE(FND_FILE.LOG,' Invalid Price Change type:' || p_txn_lines_tbl_type(i).change_type ||'. Please enter a valid Change type.');
1659: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_TYPE_ERR');
1660: fnd_message.set_token('CHANGE_TYPE', p_txn_lines_tbl_type(i).change_type );
1661: x_msg_data := fnd_message.get();
1662: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_TYPE_ERR';
1663: IF p_txn_header_rec_type.error_code IS NULL THEN
1664: p_txn_header_rec_type.error_code := 'DPP_TXN_CHANGE_TYPE_ERR';
1665: ELSE
1668: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1669: l_error_message :=l_error_message|| x_msg_data;
1670: ELSE
1671: l_msg_exceeded := 'Y';
1672: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1673: x_msg_data := fnd_message.get();
1674: l_error_message := x_msg_data;
1675: END IF;
1676: --RAISE Fnd_Api.G_EXC_ERROR;
1669: l_error_message :=l_error_message|| x_msg_data;
1670: ELSE
1671: l_msg_exceeded := 'Y';
1672: fnd_message.set_name('DPP', 'DPP_ERROR_MSG_STD');
1673: x_msg_data := fnd_message.get();
1674: l_error_message := x_msg_data;
1675: END IF;
1676: --RAISE Fnd_Api.G_EXC_ERROR;
1677: END IF;
1701: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1702: WHEN OTHERS THEN
1703: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1704: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1705: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1706: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT VALIDATE SUPPLIER PART NUMBER');
1707: fnd_message.set_token('ERRNO', SQLCODE);
1708: fnd_message.set_token('REASON', sqlerrm);
1709: END IF;
1702: WHEN OTHERS THEN
1703: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1704: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1705: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1706: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT VALIDATE SUPPLIER PART NUMBER');
1707: fnd_message.set_token('ERRNO', SQLCODE);
1708: fnd_message.set_token('REASON', sqlerrm);
1709: END IF;
1710: x_msg_data := fnd_message.get();
1703: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1704: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1705: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1706: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT VALIDATE SUPPLIER PART NUMBER');
1707: fnd_message.set_token('ERRNO', SQLCODE);
1708: fnd_message.set_token('REASON', sqlerrm);
1709: END IF;
1710: x_msg_data := fnd_message.get();
1711: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1704: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1705: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1706: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT VALIDATE SUPPLIER PART NUMBER');
1707: fnd_message.set_token('ERRNO', SQLCODE);
1708: fnd_message.set_token('REASON', sqlerrm);
1709: END IF;
1710: x_msg_data := fnd_message.get();
1711: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1712: END Validate_SupplierPartNum;
1706: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT VALIDATE SUPPLIER PART NUMBER');
1707: fnd_message.set_token('ERRNO', SQLCODE);
1708: fnd_message.set_token('REASON', sqlerrm);
1709: END IF;
1710: x_msg_data := fnd_message.get();
1711: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1712: END Validate_SupplierPartNum;
1713:
1714:
1908: WHEN OTHERS THEN
1909: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Exception Create Lines'||sqlerrm);
1910: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1911: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1912: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1913: fnd_message.set_token('ROUTINE', l_full_name);
1914: fnd_message.set_token('ERRNO', SQLCODE);
1915: fnd_message.set_token('REASON', sqlerrm);
1916: END IF;
1909: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Exception Create Lines'||sqlerrm);
1910: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1911: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1912: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1913: fnd_message.set_token('ROUTINE', l_full_name);
1914: fnd_message.set_token('ERRNO', SQLCODE);
1915: fnd_message.set_token('REASON', sqlerrm);
1916: END IF;
1917: x_msg_data := fnd_message.get();
1910: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1911: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1912: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1913: fnd_message.set_token('ROUTINE', l_full_name);
1914: fnd_message.set_token('ERRNO', SQLCODE);
1915: fnd_message.set_token('REASON', sqlerrm);
1916: END IF;
1917: x_msg_data := fnd_message.get();
1918: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1911: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1912: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1913: fnd_message.set_token('ROUTINE', l_full_name);
1914: fnd_message.set_token('ERRNO', SQLCODE);
1915: fnd_message.set_token('REASON', sqlerrm);
1916: END IF;
1917: x_msg_data := fnd_message.get();
1918: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1919: END Create_lines;
1913: fnd_message.set_token('ROUTINE', l_full_name);
1914: fnd_message.set_token('ERRNO', SQLCODE);
1915: fnd_message.set_token('REASON', sqlerrm);
1916: END IF;
1917: x_msg_data := fnd_message.get();
1918: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1919: END Create_lines;
1920:
1921:
2059: AND ostp.org_id = to_number(dtha.org_id)
2060: AND dtha.transaction_header_id = p_txn_header_rec_type.transaction_header_id;
2061: EXCEPTION
2062: WHEN NO_DATA_FOUND THEN
2063: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2064: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
2065: fnd_message.set_token('ERRNO', sqlcode);
2066: fnd_message.set_token('REASON', 'SUPPLIER TRADE PROFILE IS NOT FOUND'); --To be modified
2067: FND_MSG_PUB.add;
2060: AND dtha.transaction_header_id = p_txn_header_rec_type.transaction_header_id;
2061: EXCEPTION
2062: WHEN NO_DATA_FOUND THEN
2063: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2064: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
2065: fnd_message.set_token('ERRNO', sqlcode);
2066: fnd_message.set_token('REASON', 'SUPPLIER TRADE PROFILE IS NOT FOUND'); --To be modified
2067: FND_MSG_PUB.add;
2068: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2061: EXCEPTION
2062: WHEN NO_DATA_FOUND THEN
2063: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2064: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
2065: fnd_message.set_token('ERRNO', sqlcode);
2066: fnd_message.set_token('REASON', 'SUPPLIER TRADE PROFILE IS NOT FOUND'); --To be modified
2067: FND_MSG_PUB.add;
2068: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2069: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
2062: WHEN NO_DATA_FOUND THEN
2063: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2064: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
2065: fnd_message.set_token('ERRNO', sqlcode);
2066: fnd_message.set_token('REASON', 'SUPPLIER TRADE PROFILE IS NOT FOUND'); --To be modified
2067: FND_MSG_PUB.add;
2068: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2069: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
2070: END IF;
2069: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
2070: END IF;
2071: RAISE FND_API.g_exc_error;
2072: WHEN OTHERS THEN
2073: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2074: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
2075: fnd_message.set_token('ERRNO', sqlcode);
2076: fnd_message.set_token('REASON', sqlerrm);
2077: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2070: END IF;
2071: RAISE FND_API.g_exc_error;
2072: WHEN OTHERS THEN
2073: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2074: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
2075: fnd_message.set_token('ERRNO', sqlcode);
2076: fnd_message.set_token('REASON', sqlerrm);
2077: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2078: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_EXE_DET_ID'); --To be modified
2071: RAISE FND_API.g_exc_error;
2072: WHEN OTHERS THEN
2073: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2074: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
2075: fnd_message.set_token('ERRNO', sqlcode);
2076: fnd_message.set_token('REASON', sqlerrm);
2077: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2078: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_EXE_DET_ID'); --To be modified
2079: fnd_message.set_token('SEQ_NAME', 'DPP_EXECUTION_DETAIL_ID_SEQ'); --To be modified
2072: WHEN OTHERS THEN
2073: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2074: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
2075: fnd_message.set_token('ERRNO', sqlcode);
2076: fnd_message.set_token('REASON', sqlerrm);
2077: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2078: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_EXE_DET_ID'); --To be modified
2079: fnd_message.set_token('SEQ_NAME', 'DPP_EXECUTION_DETAIL_ID_SEQ'); --To be modified
2080: FND_MSG_PUB.add;
2074: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
2075: fnd_message.set_token('ERRNO', sqlcode);
2076: fnd_message.set_token('REASON', sqlerrm);
2077: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2078: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_EXE_DET_ID'); --To be modified
2079: fnd_message.set_token('SEQ_NAME', 'DPP_EXECUTION_DETAIL_ID_SEQ'); --To be modified
2080: FND_MSG_PUB.add;
2081: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
2082: END IF;
2075: fnd_message.set_token('ERRNO', sqlcode);
2076: fnd_message.set_token('REASON', sqlerrm);
2077: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2078: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_EXE_DET_ID'); --To be modified
2079: fnd_message.set_token('SEQ_NAME', 'DPP_EXECUTION_DETAIL_ID_SEQ'); --To be modified
2080: FND_MSG_PUB.add;
2081: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
2082: END IF;
2083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2122: ROLLBACK TO DPP_Update_CoveredInv;
2123: WHEN OTHERS THEN
2124: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2125: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2126: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2127: fnd_message.set_token('ROUTINE', l_full_name);
2128: fnd_message.set_token('ERRNO', SQLCODE);
2129: fnd_message.set_token('REASON', sqlerrm);
2130: END IF;
2123: WHEN OTHERS THEN
2124: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2125: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2126: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2127: fnd_message.set_token('ROUTINE', l_full_name);
2128: fnd_message.set_token('ERRNO', SQLCODE);
2129: fnd_message.set_token('REASON', sqlerrm);
2130: END IF;
2131: x_msg_data := fnd_message.get();
2124: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2125: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2126: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2127: fnd_message.set_token('ROUTINE', l_full_name);
2128: fnd_message.set_token('ERRNO', SQLCODE);
2129: fnd_message.set_token('REASON', sqlerrm);
2130: END IF;
2131: x_msg_data := fnd_message.get();
2132: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2125: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2126: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2127: fnd_message.set_token('ROUTINE', l_full_name);
2128: fnd_message.set_token('ERRNO', SQLCODE);
2129: fnd_message.set_token('REASON', sqlerrm);
2130: END IF;
2131: x_msg_data := fnd_message.get();
2132: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2133: ROLLBACK TO DPP_Update_CoveredInv;
2127: fnd_message.set_token('ROUTINE', l_full_name);
2128: fnd_message.set_token('ERRNO', SQLCODE);
2129: fnd_message.set_token('REASON', sqlerrm);
2130: END IF;
2131: x_msg_data := fnd_message.get();
2132: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2133: ROLLBACK TO DPP_Update_CoveredInv;
2134: END Update_CoveredInv;
2135:
2160: IF (p_txn_header_rec_type.supp_dist_claim_number IS NULL AND
2161: p_txn_header_rec_type.supp_dist_claim_id IS NULL ) THEN
2162: x_return_status := fnd_api.g_ret_sts_error;
2163: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2164: fnd_message.set_name('DPP', 'DPP_CLAIM_NUMBER_NULL');
2165: x_msg_data := fnd_message.get();
2166: p_txn_header_rec_type.error_code := 'DPP_CLAIM_NUMBER_NULL';
2167: l_error_message := l_error_message || x_msg_data;
2168: IF DPP_DEBUG_HIGH_ON THEN
2161: p_txn_header_rec_type.supp_dist_claim_id IS NULL ) THEN
2162: x_return_status := fnd_api.g_ret_sts_error;
2163: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2164: fnd_message.set_name('DPP', 'DPP_CLAIM_NUMBER_NULL');
2165: x_msg_data := fnd_message.get();
2166: p_txn_header_rec_type.error_code := 'DPP_CLAIM_NUMBER_NULL';
2167: l_error_message := l_error_message || x_msg_data;
2168: IF DPP_DEBUG_HIGH_ON THEN
2169: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2191: END IF;
2192: EXCEPTION
2193: WHEN no_data_found THEN
2194: x_return_status := fnd_api.g_ret_sts_error;
2195: fnd_message.set_name('DPP', 'DPP_APPROVED_CLAIM_LINES_ERR');
2196: fnd_message.set_token('CLAIM_NUMBER', p_txn_header_rec_type.supp_dist_claim_number);
2197: fnd_message.set_token('CLAIM_ID', p_txn_header_rec_type.supp_dist_claim_id);
2198: x_msg_data := fnd_message.get();
2199: p_txn_lines_tbl_type(i).error_code := 'DPP_APPROVED_CLAIM_LINES_ERR';
2192: EXCEPTION
2193: WHEN no_data_found THEN
2194: x_return_status := fnd_api.g_ret_sts_error;
2195: fnd_message.set_name('DPP', 'DPP_APPROVED_CLAIM_LINES_ERR');
2196: fnd_message.set_token('CLAIM_NUMBER', p_txn_header_rec_type.supp_dist_claim_number);
2197: fnd_message.set_token('CLAIM_ID', p_txn_header_rec_type.supp_dist_claim_id);
2198: x_msg_data := fnd_message.get();
2199: p_txn_lines_tbl_type(i).error_code := 'DPP_APPROVED_CLAIM_LINES_ERR';
2200: IF p_txn_header_rec_type.error_code IS NULL THEN
2193: WHEN no_data_found THEN
2194: x_return_status := fnd_api.g_ret_sts_error;
2195: fnd_message.set_name('DPP', 'DPP_APPROVED_CLAIM_LINES_ERR');
2196: fnd_message.set_token('CLAIM_NUMBER', p_txn_header_rec_type.supp_dist_claim_number);
2197: fnd_message.set_token('CLAIM_ID', p_txn_header_rec_type.supp_dist_claim_id);
2198: x_msg_data := fnd_message.get();
2199: p_txn_lines_tbl_type(i).error_code := 'DPP_APPROVED_CLAIM_LINES_ERR';
2200: IF p_txn_header_rec_type.error_code IS NULL THEN
2201: p_txn_header_rec_type.error_code := 'DPP_APPROVED_CLAIM_LINES_ERR';
2194: x_return_status := fnd_api.g_ret_sts_error;
2195: fnd_message.set_name('DPP', 'DPP_APPROVED_CLAIM_LINES_ERR');
2196: fnd_message.set_token('CLAIM_NUMBER', p_txn_header_rec_type.supp_dist_claim_number);
2197: fnd_message.set_token('CLAIM_ID', p_txn_header_rec_type.supp_dist_claim_id);
2198: x_msg_data := fnd_message.get();
2199: p_txn_lines_tbl_type(i).error_code := 'DPP_APPROVED_CLAIM_LINES_ERR';
2200: IF p_txn_header_rec_type.error_code IS NULL THEN
2201: p_txn_header_rec_type.error_code := 'DPP_APPROVED_CLAIM_LINES_ERR';
2202: ELSE
2256: x_return_status := Fnd_Api.g_ret_sts_error ;
2257: WHEN others THEN
2258: x_return_status := fnd_api.g_ret_sts_unexp_error;
2259: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2260: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2261: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2262: fnd_message.set_token('ERRNO', SQLCODE);
2263: fnd_message.set_token('REASON', sqlerrm);
2264: END IF;
2257: WHEN others THEN
2258: x_return_status := fnd_api.g_ret_sts_unexp_error;
2259: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2260: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2261: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2262: fnd_message.set_token('ERRNO', SQLCODE);
2263: fnd_message.set_token('REASON', sqlerrm);
2264: END IF;
2265: x_msg_data := fnd_message.get();
2258: x_return_status := fnd_api.g_ret_sts_unexp_error;
2259: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2260: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2261: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2262: fnd_message.set_token('ERRNO', SQLCODE);
2263: fnd_message.set_token('REASON', sqlerrm);
2264: END IF;
2265: x_msg_data := fnd_message.get();
2266: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2259: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2260: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2261: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2262: fnd_message.set_token('ERRNO', SQLCODE);
2263: fnd_message.set_token('REASON', sqlerrm);
2264: END IF;
2265: x_msg_data := fnd_message.get();
2266: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2267: END Update_Approval;
2261: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2262: fnd_message.set_token('ERRNO', SQLCODE);
2263: fnd_message.set_token('REASON', sqlerrm);
2264: END IF;
2265: x_msg_data := fnd_message.get();
2266: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2267: END Update_Approval;
2268:
2269: PROCEDURE Update_ClaimsApproval(
2302: EXCEPTION
2303: WHEN no_data_found THEN
2304: x_return_status := fnd_api.g_ret_sts_error;
2305: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2306: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2307: fnd_message.set_token('ROUTINE', l_full_name);
2308: fnd_message.set_token('ERRNO', SQLCODE);
2309: fnd_message.set_token('REASON', sqlerrm);
2310: END IF;
2303: WHEN no_data_found THEN
2304: x_return_status := fnd_api.g_ret_sts_error;
2305: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2306: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2307: fnd_message.set_token('ROUTINE', l_full_name);
2308: fnd_message.set_token('ERRNO', SQLCODE);
2309: fnd_message.set_token('REASON', sqlerrm);
2310: END IF;
2311: x_msg_data := fnd_message.get();
2304: x_return_status := fnd_api.g_ret_sts_error;
2305: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2306: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2307: fnd_message.set_token('ROUTINE', l_full_name);
2308: fnd_message.set_token('ERRNO', SQLCODE);
2309: fnd_message.set_token('REASON', sqlerrm);
2310: END IF;
2311: x_msg_data := fnd_message.get();
2312: END;
2305: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2306: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2307: fnd_message.set_token('ROUTINE', l_full_name);
2308: fnd_message.set_token('ERRNO', SQLCODE);
2309: fnd_message.set_token('REASON', sqlerrm);
2310: END IF;
2311: x_msg_data := fnd_message.get();
2312: END;
2313:
2307: fnd_message.set_token('ROUTINE', l_full_name);
2308: fnd_message.set_token('ERRNO', SQLCODE);
2309: fnd_message.set_token('REASON', sqlerrm);
2310: END IF;
2311: x_msg_data := fnd_message.get();
2312: END;
2313:
2314: FOR i in p_txn_lines_tbl_type.FIRST..p_txn_lines_tbl_type.LAST
2315: LOOP
2389: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2390: WHEN OTHERS THEN
2391: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2393: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2394: fnd_message.set_token('ROUTINE', l_full_name);
2395: fnd_message.set_token('ERRNO', SQLCODE);
2396: fnd_message.set_token('REASON', sqlerrm);
2397: END IF;
2390: WHEN OTHERS THEN
2391: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2393: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2394: fnd_message.set_token('ROUTINE', l_full_name);
2395: fnd_message.set_token('ERRNO', SQLCODE);
2396: fnd_message.set_token('REASON', sqlerrm);
2397: END IF;
2398: x_msg_data := fnd_message.get();
2391: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2393: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2394: fnd_message.set_token('ROUTINE', l_full_name);
2395: fnd_message.set_token('ERRNO', SQLCODE);
2396: fnd_message.set_token('REASON', sqlerrm);
2397: END IF;
2398: x_msg_data := fnd_message.get();
2399: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2393: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2394: fnd_message.set_token('ROUTINE', l_full_name);
2395: fnd_message.set_token('ERRNO', SQLCODE);
2396: fnd_message.set_token('REASON', sqlerrm);
2397: END IF;
2398: x_msg_data := fnd_message.get();
2399: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2400: END Update_ClaimsApproval;
2394: fnd_message.set_token('ROUTINE', l_full_name);
2395: fnd_message.set_token('ERRNO', SQLCODE);
2396: fnd_message.set_token('REASON', sqlerrm);
2397: END IF;
2398: x_msg_data := fnd_message.get();
2399: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2400: END Update_ClaimsApproval;
2401:
2402: PROCEDURE form_line_tbl(
2437: FOR fetch_lines_rec IN fetch_lines_cur(p_txn_header_rec_type.transaction_int_header_id)
2438: LOOP
2439: IF p_txn_header_rec_type.org_id <> nvl(fetch_lines_rec.org_id,p_txn_header_rec_type.org_id) THEN
2440: x_return_status := fnd_api.g_ret_sts_error;
2441: fnd_message.set_name('DPP', 'DPP_TXN_ORG_MISMATCH');
2442: fnd_message.set_token('HEADER_ORG_ID', p_txn_header_rec_type.org_id);
2443: fnd_message.set_token('LINE_ORG_ID', fetch_lines_rec.org_id);
2444: x_msg_data :=fnd_message.get();
2445: --RAISE Fnd_Api.G_EXC_ERROR;
2438: LOOP
2439: IF p_txn_header_rec_type.org_id <> nvl(fetch_lines_rec.org_id,p_txn_header_rec_type.org_id) THEN
2440: x_return_status := fnd_api.g_ret_sts_error;
2441: fnd_message.set_name('DPP', 'DPP_TXN_ORG_MISMATCH');
2442: fnd_message.set_token('HEADER_ORG_ID', p_txn_header_rec_type.org_id);
2443: fnd_message.set_token('LINE_ORG_ID', fetch_lines_rec.org_id);
2444: x_msg_data :=fnd_message.get();
2445: --RAISE Fnd_Api.G_EXC_ERROR;
2446: l_txn_lines_rec_type.error_code := 'DPP_TXN_ORG_MISMATCH';
2439: IF p_txn_header_rec_type.org_id <> nvl(fetch_lines_rec.org_id,p_txn_header_rec_type.org_id) THEN
2440: x_return_status := fnd_api.g_ret_sts_error;
2441: fnd_message.set_name('DPP', 'DPP_TXN_ORG_MISMATCH');
2442: fnd_message.set_token('HEADER_ORG_ID', p_txn_header_rec_type.org_id);
2443: fnd_message.set_token('LINE_ORG_ID', fetch_lines_rec.org_id);
2444: x_msg_data :=fnd_message.get();
2445: --RAISE Fnd_Api.G_EXC_ERROR;
2446: l_txn_lines_rec_type.error_code := 'DPP_TXN_ORG_MISMATCH';
2447: x_return_status := Fnd_Api.g_ret_sts_error ;
2440: x_return_status := fnd_api.g_ret_sts_error;
2441: fnd_message.set_name('DPP', 'DPP_TXN_ORG_MISMATCH');
2442: fnd_message.set_token('HEADER_ORG_ID', p_txn_header_rec_type.org_id);
2443: fnd_message.set_token('LINE_ORG_ID', fetch_lines_rec.org_id);
2444: x_msg_data :=fnd_message.get();
2445: --RAISE Fnd_Api.G_EXC_ERROR;
2446: l_txn_lines_rec_type.error_code := 'DPP_TXN_ORG_MISMATCH';
2447: x_return_status := Fnd_Api.g_ret_sts_error ;
2448: l_error_message := l_error_message || x_msg_data;
2525: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2526: WHEN OTHERS THEN
2527: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2528: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2529: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2530: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2531: fnd_message.set_token('ERRNO', SQLCODE);
2532: fnd_message.set_token('REASON', sqlerrm);
2533: END IF;
2526: WHEN OTHERS THEN
2527: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2528: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2529: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2530: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2531: fnd_message.set_token('ERRNO', SQLCODE);
2532: fnd_message.set_token('REASON', sqlerrm);
2533: END IF;
2534: x_msg_data := fnd_message.get();
2527: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2528: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2529: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2530: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2531: fnd_message.set_token('ERRNO', SQLCODE);
2532: fnd_message.set_token('REASON', sqlerrm);
2533: END IF;
2534: x_msg_data := fnd_message.get();
2535: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2528: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2529: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2530: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2531: fnd_message.set_token('ERRNO', SQLCODE);
2532: fnd_message.set_token('REASON', sqlerrm);
2533: END IF;
2534: x_msg_data := fnd_message.get();
2535: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2536: END form_line_tbl;
2530: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2531: fnd_message.set_token('ERRNO', SQLCODE);
2532: fnd_message.set_token('REASON', sqlerrm);
2533: END IF;
2534: x_msg_data := fnd_message.get();
2535: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2536: END form_line_tbl;
2537:
2538: PROCEDURE Update_HeaderLog(
2640: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2641: WHEN OTHERS THEN
2642: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2643: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2644: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2645: fnd_message.set_token('ROUTINE', l_full_name);
2646: fnd_message.set_token('ERRNO', SQLCODE);
2647: fnd_message.set_token('REASON', sqlerrm);
2648: END IF;
2641: WHEN OTHERS THEN
2642: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2643: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2644: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2645: fnd_message.set_token('ROUTINE', l_full_name);
2646: fnd_message.set_token('ERRNO', SQLCODE);
2647: fnd_message.set_token('REASON', sqlerrm);
2648: END IF;
2649: x_msg_data := fnd_message.get();
2642: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2643: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2644: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2645: fnd_message.set_token('ROUTINE', l_full_name);
2646: fnd_message.set_token('ERRNO', SQLCODE);
2647: fnd_message.set_token('REASON', sqlerrm);
2648: END IF;
2649: x_msg_data := fnd_message.get();
2650: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2643: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2644: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2645: fnd_message.set_token('ROUTINE', l_full_name);
2646: fnd_message.set_token('ERRNO', SQLCODE);
2647: fnd_message.set_token('REASON', sqlerrm);
2648: END IF;
2649: x_msg_data := fnd_message.get();
2650: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2651: END Update_HeaderLog;
2645: fnd_message.set_token('ROUTINE', l_full_name);
2646: fnd_message.set_token('ERRNO', SQLCODE);
2647: fnd_message.set_token('REASON', sqlerrm);
2648: END IF;
2649: x_msg_data := fnd_message.get();
2650: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2651: END Update_HeaderLog;
2652:
2653: PROCEDURE Update_LinesLog(
2775: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2776: WHEN OTHERS THEN
2777: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2778: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2779: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2780: fnd_message.set_token('ROUTINE', l_full_name);
2781: fnd_message.set_token('ERRNO', SQLCODE);
2782: fnd_message.set_token('REASON', sqlerrm);
2783: END IF;
2776: WHEN OTHERS THEN
2777: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2778: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2779: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2780: fnd_message.set_token('ROUTINE', l_full_name);
2781: fnd_message.set_token('ERRNO', SQLCODE);
2782: fnd_message.set_token('REASON', sqlerrm);
2783: END IF;
2784: x_msg_data := fnd_message.get();
2777: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2778: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2779: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2780: fnd_message.set_token('ROUTINE', l_full_name);
2781: fnd_message.set_token('ERRNO', SQLCODE);
2782: fnd_message.set_token('REASON', sqlerrm);
2783: END IF;
2784: x_msg_data := fnd_message.get();
2785: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2778: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2779: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2780: fnd_message.set_token('ROUTINE', l_full_name);
2781: fnd_message.set_token('ERRNO', SQLCODE);
2782: fnd_message.set_token('REASON', sqlerrm);
2783: END IF;
2784: x_msg_data := fnd_message.get();
2785: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2786: END Update_LinesLog;
2780: fnd_message.set_token('ROUTINE', l_full_name);
2781: fnd_message.set_token('ERRNO', SQLCODE);
2782: fnd_message.set_token('REASON', sqlerrm);
2783: END IF;
2784: x_msg_data := fnd_message.get();
2785: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2786: END Update_LinesLog;
2787:
2788: PROCEDURE Update_InterfaceTbl(
2841:
2842: WHEN OTHERS THEN
2843: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2844: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2845: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2846: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2847: fnd_message.set_token('ERRNO', SQLCODE);
2848: fnd_message.set_token('REASON', sqlerrm);
2849: END IF;
2842: WHEN OTHERS THEN
2843: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2844: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2845: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2846: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2847: fnd_message.set_token('ERRNO', SQLCODE);
2848: fnd_message.set_token('REASON', sqlerrm);
2849: END IF;
2850: x_msg_data := fnd_message.get();
2843: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2844: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2845: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2846: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2847: fnd_message.set_token('ERRNO', SQLCODE);
2848: fnd_message.set_token('REASON', sqlerrm);
2849: END IF;
2850: x_msg_data := fnd_message.get();
2851: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2844: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2845: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2846: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2847: fnd_message.set_token('ERRNO', SQLCODE);
2848: fnd_message.set_token('REASON', sqlerrm);
2849: END IF;
2850: x_msg_data := fnd_message.get();
2851: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2852: END Update_InterfaceTbl;
2846: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2847: fnd_message.set_token('ERRNO', SQLCODE);
2848: fnd_message.set_token('REASON', sqlerrm);
2849: END IF;
2850: x_msg_data := fnd_message.get();
2851: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2852: END Update_InterfaceTbl;
2853:
2854:
2904: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2905: WHEN OTHERS THEN
2906: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2907: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2908: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2909: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2910: fnd_message.set_token('ERRNO', SQLCODE);
2911: fnd_message.set_token('REASON', sqlerrm);
2912: END IF;
2905: WHEN OTHERS THEN
2906: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2907: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2908: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2909: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2910: fnd_message.set_token('ERRNO', SQLCODE);
2911: fnd_message.set_token('REASON', sqlerrm);
2912: END IF;
2913: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||sqlerrm);
2906: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2907: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2908: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2909: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2910: fnd_message.set_token('ERRNO', SQLCODE);
2911: fnd_message.set_token('REASON', sqlerrm);
2912: END IF;
2913: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||sqlerrm);
2914: END Update_InterfaceLineErrSts;
2907: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2908: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2909: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2910: fnd_message.set_token('ERRNO', SQLCODE);
2911: fnd_message.set_token('REASON', sqlerrm);
2912: END IF;
2913: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||sqlerrm);
2914: END Update_InterfaceLineErrSts;
2915:
3244: EXCEPTION
3245: WHEN NO_DATA_FOUND THEN
3246: l_transaction_status := NULL;
3247: WHEN TOO_MANY_ROWS THEN
3248: fnd_message.set_name('DPP', 'DPP_TRANSACTION_EXIST');
3249: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3250: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3251: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3252: x_msg_data := fnd_message.get();
3245: WHEN NO_DATA_FOUND THEN
3246: l_transaction_status := NULL;
3247: WHEN TOO_MANY_ROWS THEN
3248: fnd_message.set_name('DPP', 'DPP_TRANSACTION_EXIST');
3249: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3250: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3251: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3252: x_msg_data := fnd_message.get();
3253: l_txn_header_rec_type.error_code := 'DPP_TRANSACTION_EXIST';
3246: l_transaction_status := NULL;
3247: WHEN TOO_MANY_ROWS THEN
3248: fnd_message.set_name('DPP', 'DPP_TRANSACTION_EXIST');
3249: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3250: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3251: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3252: x_msg_data := fnd_message.get();
3253: l_txn_header_rec_type.error_code := 'DPP_TRANSACTION_EXIST';
3254: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3247: WHEN TOO_MANY_ROWS THEN
3248: fnd_message.set_name('DPP', 'DPP_TRANSACTION_EXIST');
3249: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3250: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3251: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3252: x_msg_data := fnd_message.get();
3253: l_txn_header_rec_type.error_code := 'DPP_TRANSACTION_EXIST';
3254: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3255: Update_InterfaceErrSts(
3248: fnd_message.set_name('DPP', 'DPP_TRANSACTION_EXIST');
3249: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3250: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3251: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3252: x_msg_data := fnd_message.get();
3253: l_txn_header_rec_type.error_code := 'DPP_TRANSACTION_EXIST';
3254: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3255: Update_InterfaceErrSts(
3256: p_txn_header_rec_type => l_txn_header_rec_type
3269: EXCEPTION
3270: WHEN no_data_found THEN
3271: x_return_status := fnd_api.g_ret_sts_error;
3272: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3273: fnd_message.set_name('DPP', 'DPP_TXN_STS_ERR');
3274: END IF;
3275: x_msg_data := fnd_message.get();
3276: --RAISE Fnd_Api.G_EXC_ERROR;
3277: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3271: x_return_status := fnd_api.g_ret_sts_error;
3272: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3273: fnd_message.set_name('DPP', 'DPP_TXN_STS_ERR');
3274: END IF;
3275: x_msg_data := fnd_message.get();
3276: --RAISE Fnd_Api.G_EXC_ERROR;
3277: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3278: Update_InterfaceErrSts(
3279: p_txn_header_rec_type => l_txn_header_rec_type
3445: RAISE Fnd_Api.g_exc_error;
3446: END IF;
3447: ELSE
3448: --The transaction is in Active/.... Status
3449: fnd_message.set_name('DPP', 'DPP_TRANSACTION_EXIST');
3450: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3451: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3452: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3453: x_msg_data := fnd_message.get();
3446: END IF;
3447: ELSE
3448: --The transaction is in Active/.... Status
3449: fnd_message.set_name('DPP', 'DPP_TRANSACTION_EXIST');
3450: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3451: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3452: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3453: x_msg_data := fnd_message.get();
3454: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3447: ELSE
3448: --The transaction is in Active/.... Status
3449: fnd_message.set_name('DPP', 'DPP_TRANSACTION_EXIST');
3450: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3451: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3452: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3453: x_msg_data := fnd_message.get();
3454: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3455: l_txn_header_rec_type.error_code := 'DPP_TRANSACTION_EXIST';
3448: --The transaction is in Active/.... Status
3449: fnd_message.set_name('DPP', 'DPP_TRANSACTION_EXIST');
3450: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3451: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3452: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3453: x_msg_data := fnd_message.get();
3454: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3455: l_txn_header_rec_type.error_code := 'DPP_TRANSACTION_EXIST';
3456: IF DPP_DEBUG_HIGH_ON THEN
3449: fnd_message.set_name('DPP', 'DPP_TRANSACTION_EXIST');
3450: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3451: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3452: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3453: x_msg_data := fnd_message.get();
3454: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3455: l_txn_header_rec_type.error_code := 'DPP_TRANSACTION_EXIST';
3456: IF DPP_DEBUG_HIGH_ON THEN
3457: fnd_file.put_line(fnd_file.log, 'Error:' || x_msg_data);
3463: );
3464: RAISE Fnd_Api.g_exc_error;
3465: END IF; --l_transaction_status is null
3466:
3467: fnd_message.set_name('DPP', 'DPP_TRANSACTION_CREATED');
3468: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3469: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3470: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3471: fnd_message.set_token('TRANSACTION_NUMBER', l_txn_header_rec_type.transaction_number);
3464: RAISE Fnd_Api.g_exc_error;
3465: END IF; --l_transaction_status is null
3466:
3467: fnd_message.set_name('DPP', 'DPP_TRANSACTION_CREATED');
3468: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3469: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3470: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3471: fnd_message.set_token('TRANSACTION_NUMBER', l_txn_header_rec_type.transaction_number);
3472: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3465: END IF; --l_transaction_status is null
3466:
3467: fnd_message.set_name('DPP', 'DPP_TRANSACTION_CREATED');
3468: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3469: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3470: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3471: fnd_message.set_token('TRANSACTION_NUMBER', l_txn_header_rec_type.transaction_number);
3472: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3473: x_msg_data := fnd_message.get();
3466:
3467: fnd_message.set_name('DPP', 'DPP_TRANSACTION_CREATED');
3468: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3469: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3470: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3471: fnd_message.set_token('TRANSACTION_NUMBER', l_txn_header_rec_type.transaction_number);
3472: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3473: x_msg_data := fnd_message.get();
3474: fnd_file.put_line(fnd_file.log, x_msg_data);
3467: fnd_message.set_name('DPP', 'DPP_TRANSACTION_CREATED');
3468: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3469: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3470: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3471: fnd_message.set_token('TRANSACTION_NUMBER', l_txn_header_rec_type.transaction_number);
3472: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3473: x_msg_data := fnd_message.get();
3474: fnd_file.put_line(fnd_file.log, x_msg_data);
3475:
3468: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3469: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3470: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3471: fnd_message.set_token('TRANSACTION_NUMBER', l_txn_header_rec_type.transaction_number);
3472: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3473: x_msg_data := fnd_message.get();
3474: fnd_file.put_line(fnd_file.log, x_msg_data);
3475:
3476: IF l_concatenated_error_message IS NOT NULL THEN
3469: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3470: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3471: fnd_message.set_token('TRANSACTION_NUMBER', l_txn_header_rec_type.transaction_number);
3472: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3473: x_msg_data := fnd_message.get();
3474: fnd_file.put_line(fnd_file.log, x_msg_data);
3475:
3476: IF l_concatenated_error_message IS NOT NULL THEN
3477: x_msg_data := 'The Transaction for the supplier name '||l_txn_header_rec_type.vendor_name ||
3504:
3505: --The Transaction is an Approval response
3506: ELSE
3507: IF l_transaction_status IS NULL OR l_transaction_status <> 'APPROVED' THEN
3508: fnd_message.set_name('DPP', 'DPP_TXN_NOT_EXISTS');
3509: x_msg_data := fnd_message.get();
3510: l_txn_header_rec_type.error_code := 'DPP_TXN_NOT_EXISTS';
3511: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3512: Update_InterfaceErrSts(
3505: --The Transaction is an Approval response
3506: ELSE
3507: IF l_transaction_status IS NULL OR l_transaction_status <> 'APPROVED' THEN
3508: fnd_message.set_name('DPP', 'DPP_TXN_NOT_EXISTS');
3509: x_msg_data := fnd_message.get();
3510: l_txn_header_rec_type.error_code := 'DPP_TXN_NOT_EXISTS';
3511: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3512: Update_InterfaceErrSts(
3513: p_txn_header_rec_type => l_txn_header_rec_type
3517: END IF;
3518: --Validate Supplier approved date,claim Number
3519: IF l_txn_header_rec_type.supplier_approval_date IS NULL
3520: THEN
3521: fnd_message.set_name('DPP', 'DPP_APP_DETAILS_NOT_EXISTS');
3522: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3523: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3524: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3525: x_msg_data := fnd_message.get();
3518: --Validate Supplier approved date,claim Number
3519: IF l_txn_header_rec_type.supplier_approval_date IS NULL
3520: THEN
3521: fnd_message.set_name('DPP', 'DPP_APP_DETAILS_NOT_EXISTS');
3522: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3523: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3524: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3525: x_msg_data := fnd_message.get();
3526: l_txn_header_rec_type.error_code := 'DPP_APP_DETAILS_NOT_EXISTS';
3519: IF l_txn_header_rec_type.supplier_approval_date IS NULL
3520: THEN
3521: fnd_message.set_name('DPP', 'DPP_APP_DETAILS_NOT_EXISTS');
3522: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3523: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3524: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3525: x_msg_data := fnd_message.get();
3526: l_txn_header_rec_type.error_code := 'DPP_APP_DETAILS_NOT_EXISTS';
3527: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3520: THEN
3521: fnd_message.set_name('DPP', 'DPP_APP_DETAILS_NOT_EXISTS');
3522: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3523: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3524: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3525: x_msg_data := fnd_message.get();
3526: l_txn_header_rec_type.error_code := 'DPP_APP_DETAILS_NOT_EXISTS';
3527: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3528: Update_InterfaceErrSts(
3521: fnd_message.set_name('DPP', 'DPP_APP_DETAILS_NOT_EXISTS');
3522: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3523: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3524: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3525: x_msg_data := fnd_message.get();
3526: l_txn_header_rec_type.error_code := 'DPP_APP_DETAILS_NOT_EXISTS';
3527: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3528: Update_InterfaceErrSts(
3529: p_txn_header_rec_type => l_txn_header_rec_type
3670: ,x_return_status =>l_return_status
3671: );
3672: --RAISE Fnd_Api.g_exc_error;
3673: END IF;
3674: fnd_message.set_name('DPP', 'DPP_TRANSACTION_APPROVED');
3675: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3676: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3677: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3678: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3671: );
3672: --RAISE Fnd_Api.g_exc_error;
3673: END IF;
3674: fnd_message.set_name('DPP', 'DPP_TRANSACTION_APPROVED');
3675: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3676: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3677: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3678: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3679: x_msg_data := fnd_message.get();
3672: --RAISE Fnd_Api.g_exc_error;
3673: END IF;
3674: fnd_message.set_name('DPP', 'DPP_TRANSACTION_APPROVED');
3675: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3676: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3677: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3678: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3679: x_msg_data := fnd_message.get();
3680: fnd_file.put_line(fnd_file.log, x_msg_data);
3673: END IF;
3674: fnd_message.set_name('DPP', 'DPP_TRANSACTION_APPROVED');
3675: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3676: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3677: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3678: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3679: x_msg_data := fnd_message.get();
3680: fnd_file.put_line(fnd_file.log, x_msg_data);
3681: END IF; --l_transaction_type = 'INB'
3674: fnd_message.set_name('DPP', 'DPP_TRANSACTION_APPROVED');
3675: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3676: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3677: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3678: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3679: x_msg_data := fnd_message.get();
3680: fnd_file.put_line(fnd_file.log, x_msg_data);
3681: END IF; --l_transaction_type = 'INB'
3682: --Call procedure to update interface tables (header )
3675: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3676: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3677: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3678: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3679: x_msg_data := fnd_message.get();
3680: fnd_file.put_line(fnd_file.log, x_msg_data);
3681: END IF; --l_transaction_type = 'INB'
3682: --Call procedure to update interface tables (header )
3683: Update_InterfaceTbl (
3709: END LOOP; --End of loop FOR fetch_header_rec IN fetch_header_cur
3710: EXCEPTION
3711: WHEN Fnd_Api.G_EXC_ERROR THEN
3712: x_return_status := Fnd_Api.g_ret_sts_error ;
3713: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3714: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3715: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3716: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3717: l_msg_data := fnd_message.get();
3710: EXCEPTION
3711: WHEN Fnd_Api.G_EXC_ERROR THEN
3712: x_return_status := Fnd_Api.g_ret_sts_error ;
3713: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3714: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3715: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3716: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3717: l_msg_data := fnd_message.get();
3718: x_msg_data := l_msg_data || l_concatenated_error_message;
3711: WHEN Fnd_Api.G_EXC_ERROR THEN
3712: x_return_status := Fnd_Api.g_ret_sts_error ;
3713: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3714: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3715: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3716: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3717: l_msg_data := fnd_message.get();
3718: x_msg_data := l_msg_data || l_concatenated_error_message;
3719: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP G_EXC_ERROR x_msg_data');
3712: x_return_status := Fnd_Api.g_ret_sts_error ;
3713: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3714: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3715: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3716: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3717: l_msg_data := fnd_message.get();
3718: x_msg_data := l_msg_data || l_concatenated_error_message;
3719: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP G_EXC_ERROR x_msg_data');
3720: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Status '||x_return_status|| ' Message '||x_msg_data);
3713: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3714: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3715: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3716: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3717: l_msg_data := fnd_message.get();
3718: x_msg_data := l_msg_data || l_concatenated_error_message;
3719: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP G_EXC_ERROR x_msg_data');
3720: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Status '||x_return_status|| ' Message '||x_msg_data);
3721:
3720: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Status '||x_return_status|| ' Message '||x_msg_data);
3721:
3722:
3723: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3724: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3725: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3726: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3727: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3728: x_msg_data := fnd_message.get();
3721:
3722:
3723: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3724: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3725: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3726: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3727: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3728: x_msg_data := fnd_message.get();
3729: x_msg_data:= x_msg_data ||l_concatenated_error_message;
3722:
3723: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3724: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3725: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3726: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3727: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3728: x_msg_data := fnd_message.get();
3729: x_msg_data:= x_msg_data ||l_concatenated_error_message;
3730: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3723: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3724: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3725: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3726: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3727: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3728: x_msg_data := fnd_message.get();
3729: x_msg_data:= x_msg_data ||l_concatenated_error_message;
3730: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3731: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP G_EXC_UNEXPECTED_ERROR Transaction Int header id '||l_txn_header_rec_type.transaction_int_header_id);
3724: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3725: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3726: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3727: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3728: x_msg_data := fnd_message.get();
3729: x_msg_data:= x_msg_data ||l_concatenated_error_message;
3730: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3731: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP G_EXC_UNEXPECTED_ERROR Transaction Int header id '||l_txn_header_rec_type.transaction_int_header_id);
3732:
3730: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3731: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP G_EXC_UNEXPECTED_ERROR Transaction Int header id '||l_txn_header_rec_type.transaction_int_header_id);
3732:
3733: WHEN OTHERS THEN
3734: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3735: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3736: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3737: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3738: x_msg_data := fnd_message.get();
3731: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP G_EXC_UNEXPECTED_ERROR Transaction Int header id '||l_txn_header_rec_type.transaction_int_header_id);
3732:
3733: WHEN OTHERS THEN
3734: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3735: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3736: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3737: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3738: x_msg_data := fnd_message.get();
3739: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Error:' ||x_msg_data);
3732:
3733: WHEN OTHERS THEN
3734: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3735: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3736: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3737: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3738: x_msg_data := fnd_message.get();
3739: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Error:' ||x_msg_data);
3740: x_msg_data := x_msg_data || l_concatenated_error_message;
3733: WHEN OTHERS THEN
3734: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3735: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3736: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3737: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3738: x_msg_data := fnd_message.get();
3739: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Error:' ||x_msg_data);
3740: x_msg_data := x_msg_data || l_concatenated_error_message;
3741: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3734: fnd_message.set_name('DPP', 'DPP_TRANSACTION_ERROR');
3735: fnd_message.set_token('SUPPLIER_NAME', l_txn_header_rec_type.vendor_name);
3736: fnd_message.set_token('SUPPLIER_ID', l_txn_header_rec_type.vendor_id);
3737: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3738: x_msg_data := fnd_message.get();
3739: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Error:' ||x_msg_data);
3740: x_msg_data := x_msg_data || l_concatenated_error_message;
3741: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3742: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Error after assignment:' ||x_msg_data);
3965: EXCEPTION
3966: WHEN others THEN
3967: x_return_status := fnd_api.g_ret_sts_unexp_error;
3968: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3969: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
3970: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
3971: fnd_message.set_token('ERRNO', SQLCODE);
3972: fnd_message.set_token('REASON', sqlerrm);
3973: END IF;
3966: WHEN others THEN
3967: x_return_status := fnd_api.g_ret_sts_unexp_error;
3968: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3969: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
3970: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
3971: fnd_message.set_token('ERRNO', SQLCODE);
3972: fnd_message.set_token('REASON', sqlerrm);
3973: END IF;
3974:
3967: x_return_status := fnd_api.g_ret_sts_unexp_error;
3968: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3969: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
3970: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
3971: fnd_message.set_token('ERRNO', SQLCODE);
3972: fnd_message.set_token('REASON', sqlerrm);
3973: END IF;
3974:
3975: END Create_IntHeader;
3968: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3969: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
3970: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
3971: fnd_message.set_token('ERRNO', SQLCODE);
3972: fnd_message.set_token('REASON', sqlerrm);
3973: END IF;
3974:
3975: END Create_IntHeader;
3976:
4112: WHEN others THEN
4113: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Create IntLines : SQLERRM:'||SQLERRM);
4114: x_return_status := fnd_api.g_ret_sts_unexp_error;
4115: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4116: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
4117: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
4118: fnd_message.set_token('ERRNO', SQLCODE);
4119: fnd_message.set_token('REASON', sqlerrm);
4120: END IF;
4113: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Create IntLines : SQLERRM:'||SQLERRM);
4114: x_return_status := fnd_api.g_ret_sts_unexp_error;
4115: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4116: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
4117: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
4118: fnd_message.set_token('ERRNO', SQLCODE);
4119: fnd_message.set_token('REASON', sqlerrm);
4120: END IF;
4121: x_msg_data := fnd_message.get();
4114: x_return_status := fnd_api.g_ret_sts_unexp_error;
4115: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4116: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
4117: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
4118: fnd_message.set_token('ERRNO', SQLCODE);
4119: fnd_message.set_token('REASON', sqlerrm);
4120: END IF;
4121: x_msg_data := fnd_message.get();
4122: END Create_IntLines;
4115: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4116: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
4117: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
4118: fnd_message.set_token('ERRNO', SQLCODE);
4119: fnd_message.set_token('REASON', sqlerrm);
4120: END IF;
4121: x_msg_data := fnd_message.get();
4122: END Create_IntLines;
4123:
4117: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
4118: fnd_message.set_token('ERRNO', SQLCODE);
4119: fnd_message.set_token('REASON', sqlerrm);
4120: END IF;
4121: x_msg_data := fnd_message.get();
4122: END Create_IntLines;
4123:
4124:
4125: PROCEDURE inbound_transaction(
4233:
4234:
4235: IF p_distributor_operating_unit IS NULL THEN
4236: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'DPP Entered OU in webadi api');
4237: fnd_message.set_name('DPP', 'DPP_OPERATING_UNIT_NULL');
4238: l_error_message := fnd_message.get();
4239: l_message := l_message || l_error_message;
4240: --RAISE DPP_WEBADI_ERROR;
4241: --raise_application_error( -20000, l_error_message);
4234:
4235: IF p_distributor_operating_unit IS NULL THEN
4236: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'DPP Entered OU in webadi api');
4237: fnd_message.set_name('DPP', 'DPP_OPERATING_UNIT_NULL');
4238: l_error_message := fnd_message.get();
4239: l_message := l_message || l_error_message;
4240: --RAISE DPP_WEBADI_ERROR;
4241: --raise_application_error( -20000, l_error_message);
4242: END IF;
4241: --raise_application_error( -20000, l_error_message);
4242: END IF;
4243:
4244: IF p_document_reference IS NULL THEN
4245: fnd_message.set_name('DPP', 'DPP_DOC_REF_NUM_NULL');
4246: l_error_message := fnd_message.get();
4247: l_message := l_message || l_error_message;
4248: --raise_application_error( -20000, l_error_message);
4249: --RAISE DPP_WEBADI_ERROR;
4242: END IF;
4243:
4244: IF p_document_reference IS NULL THEN
4245: fnd_message.set_name('DPP', 'DPP_DOC_REF_NUM_NULL');
4246: l_error_message := fnd_message.get();
4247: l_message := l_message || l_error_message;
4248: --raise_application_error( -20000, l_error_message);
4249: --RAISE DPP_WEBADI_ERROR;
4250: END IF;
4249: --RAISE DPP_WEBADI_ERROR;
4250: END IF;
4251:
4252: IF LENGTH(p_document_reference) > 40 THEN
4253: fnd_message.set_name('DPP', 'DPP_DOC_REF_NUM');
4254: l_error_message := fnd_message.get();
4255: l_message := l_message || l_error_message;
4256: --raise_application_error( -20000, l_error_message);
4257: --RAISE DPP_WEBADI_ERROR;
4250: END IF;
4251:
4252: IF LENGTH(p_document_reference) > 40 THEN
4253: fnd_message.set_name('DPP', 'DPP_DOC_REF_NUM');
4254: l_error_message := fnd_message.get();
4255: l_message := l_message || l_error_message;
4256: --raise_application_error( -20000, l_error_message);
4257: --RAISE DPP_WEBADI_ERROR;
4258: END IF;
4258: END IF;
4259:
4260:
4261: IF p_supplier_name IS NULL THEN
4262: fnd_message.set_name ('DPP', 'DPP_SUPPLIER_NAME_NULL');
4263: l_error_message := fnd_message.get();
4264: l_message := l_message || l_error_message;
4265: --raise_application_error( -20000, l_error_message);
4266: -- RAISE DPP_WEBADI_ERROR;
4259:
4260:
4261: IF p_supplier_name IS NULL THEN
4262: fnd_message.set_name ('DPP', 'DPP_SUPPLIER_NAME_NULL');
4263: l_error_message := fnd_message.get();
4264: l_message := l_message || l_error_message;
4265: --raise_application_error( -20000, l_error_message);
4266: -- RAISE DPP_WEBADI_ERROR;
4267: END IF;
4266: -- RAISE DPP_WEBADI_ERROR;
4267: END IF;
4268:
4269: IF p_supplier_site IS NULL THEN
4270: fnd_message.set_name('DPP', 'DPP_SUPPLIER_SITE_NULL');
4271: l_error_message := fnd_message.get();
4272: l_message := l_message || l_error_message;
4273: --raise_application_error( -20000, l_error_message);
4274: --RAISE DPP_WEBADI_ERROR;
4267: END IF;
4268:
4269: IF p_supplier_site IS NULL THEN
4270: fnd_message.set_name('DPP', 'DPP_SUPPLIER_SITE_NULL');
4271: l_error_message := fnd_message.get();
4272: l_message := l_message || l_error_message;
4273: --raise_application_error( -20000, l_error_message);
4274: --RAISE DPP_WEBADI_ERROR;
4275: END IF;
4274: --RAISE DPP_WEBADI_ERROR;
4275: END IF;
4276:
4277: IF p_effective_date IS NULL THEN
4278: fnd_message.set_name('DPP', 'DPP_EFFECTIVE_DATE_NULL');
4279: l_error_message := fnd_message.get();
4280: l_message := l_message || l_error_message;
4281: --raise_application_error( -20000, l_error_message);
4282: --RAISE DPP_WEBADI_ERROR;
4275: END IF;
4276:
4277: IF p_effective_date IS NULL THEN
4278: fnd_message.set_name('DPP', 'DPP_EFFECTIVE_DATE_NULL');
4279: l_error_message := fnd_message.get();
4280: l_message := l_message || l_error_message;
4281: --raise_application_error( -20000, l_error_message);
4282: --RAISE DPP_WEBADI_ERROR;
4283: END IF;
4282: --RAISE DPP_WEBADI_ERROR;
4283: END IF;
4284:
4285: IF p_currency IS NULL THEN
4286: fnd_message.set_name('DPP', 'DPP_CURRENCY_NULL');
4287: l_error_message := fnd_message.get();
4288: l_message := l_message || l_error_message;
4289: --raise_application_error( -20000, l_error_message);
4290: --RAISE DPP_WEBADI_ERROR;
4283: END IF;
4284:
4285: IF p_currency IS NULL THEN
4286: fnd_message.set_name('DPP', 'DPP_CURRENCY_NULL');
4287: l_error_message := fnd_message.get();
4288: l_message := l_message || l_error_message;
4289: --raise_application_error( -20000, l_error_message);
4290: --RAISE DPP_WEBADI_ERROR;
4291: END IF;
4298: -- Line Level Mandatory Field Validation
4299:
4300: IF (p_supplier_part_num IS NULL and p_item_number IS NULL) THEN
4301: -- TBD: change the DPP_VENDOR_PART_NUM_NULL attribute text to reflect the either or validation
4302: fnd_message.set_name('DPP', 'DPP_SUPPLIER_PART_NUM_NULL');
4303: l_error_message := fnd_message.get();
4304: l_message := l_message || l_error_message;
4305: --raise_application_error( -20000, l_error_message);
4306: --RAISE DPP_WEBADI_ERROR;
4299:
4300: IF (p_supplier_part_num IS NULL and p_item_number IS NULL) THEN
4301: -- TBD: change the DPP_VENDOR_PART_NUM_NULL attribute text to reflect the either or validation
4302: fnd_message.set_name('DPP', 'DPP_SUPPLIER_PART_NUM_NULL');
4303: l_error_message := fnd_message.get();
4304: l_message := l_message || l_error_message;
4305: --raise_application_error( -20000, l_error_message);
4306: --RAISE DPP_WEBADI_ERROR;
4307: END IF;
4306: --RAISE DPP_WEBADI_ERROR;
4307: END IF;
4308:
4309: IF p_change_type IS NULL THEN
4310: fnd_message.set_name('DPP', 'DPP_CHANGE_TYPE_NULL');
4311: l_error_message := fnd_message.get();
4312: l_message := l_message || l_error_message;
4313: --raise_application_error( -20000, l_error_message);
4314: --RAISE DPP_WEBADI_ERROR;
4307: END IF;
4308:
4309: IF p_change_type IS NULL THEN
4310: fnd_message.set_name('DPP', 'DPP_CHANGE_TYPE_NULL');
4311: l_error_message := fnd_message.get();
4312: l_message := l_message || l_error_message;
4313: --raise_application_error( -20000, l_error_message);
4314: --RAISE DPP_WEBADI_ERROR;
4315: END IF;
4315: END IF;
4316:
4317: IF p_change_value IS NULL OR p_change_value <= 0 THEN
4318: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'DPP Entered VALUE');
4319: fnd_message.set_name('DPP', 'DPP_CHANGE_VALUE_NULL');
4320: l_error_message := fnd_message.get();
4321: l_message := l_message || l_error_message;
4322: --raise_application_error( -20000, l_error_message);
4323: --RAISE DPP_WEBADI_ERROR;
4316:
4317: IF p_change_value IS NULL OR p_change_value <= 0 THEN
4318: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'DPP Entered VALUE');
4319: fnd_message.set_name('DPP', 'DPP_CHANGE_VALUE_NULL');
4320: l_error_message := fnd_message.get();
4321: l_message := l_message || l_error_message;
4322: --raise_application_error( -20000, l_error_message);
4323: --RAISE DPP_WEBADI_ERROR;
4324: END IF;
4432:
4433:
4434: IF l_return_status = fnd_api.g_ret_sts_error THEN
4435: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'DPP SYSTEM ERROR');
4436: fnd_message.set_name('DPP', 'DPP_DUPLICATE_RECORDS');
4437: l_error_message := fnd_message.get();
4438: RAISE dpp_webadi_error;
4439: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4440: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'DPP UNEXPECTED ERROR');
4433:
4434: IF l_return_status = fnd_api.g_ret_sts_error THEN
4435: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'DPP SYSTEM ERROR');
4436: fnd_message.set_name('DPP', 'DPP_DUPLICATE_RECORDS');
4437: l_error_message := fnd_message.get();
4438: RAISE dpp_webadi_error;
4439: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4440: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'DPP UNEXPECTED ERROR');
4441: RAISE fnd_api.g_exc_unexpected_error;
4444: EXCEPTION
4445: WHEN dpp_webadi_error THEN
4446: ROLLBACK TO inbound_transaction;
4447: if l_message is NULL then
4448: l_message := fnd_message.get();
4449: end if;
4450: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP in DPP_webadi_error:'||l_error_message);
4451: raise_application_error( -20000, l_message);
4452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4453: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP IN FND_API.G_EXC_UNEXPECTED_ERROR BLOCK');
4454: ROLLBACK TO inbound_transaction;
4455: IF length( SQLERRM) > 30 THEN
4456: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, substr(SQLERRM,12,30));
4457: fnd_message.set_name ('DPP', substr(SQLERRM,12,30));
4458: ELSE
4459: fnd_message.set_name ('DPP', SQLERRM);
4460: END IF;
4461: l_error_message := fnd_message.get();
4455: IF length( SQLERRM) > 30 THEN
4456: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, substr(SQLERRM,12,30));
4457: fnd_message.set_name ('DPP', substr(SQLERRM,12,30));
4458: ELSE
4459: fnd_message.set_name ('DPP', SQLERRM);
4460: END IF;
4461: l_error_message := fnd_message.get();
4462: raise_application_error( -20000, l_error_message);
4463: WHEN OTHERS THEN
4457: fnd_message.set_name ('DPP', substr(SQLERRM,12,30));
4458: ELSE
4459: fnd_message.set_name ('DPP', SQLERRM);
4460: END IF;
4461: l_error_message := fnd_message.get();
4462: raise_application_error( -20000, l_error_message);
4463: WHEN OTHERS THEN
4464: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP IN OTHERS BLOCK');
4465: ROLLBACK TO inbound_transaction;
4464: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP IN OTHERS BLOCK');
4465: ROLLBACK TO inbound_transaction;
4466: IF length( SQLERRM) > 30 THEN
4467: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, substr(SQLERRM,12,30));
4468: fnd_message.set_name ('DPP', substr(SQLERRM,12,30));
4469: ELSE
4470: fnd_message.set_name ('DPP', SQLERRM);
4471: END IF;
4472: l_error_message := fnd_message.get();
4466: IF length( SQLERRM) > 30 THEN
4467: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, substr(SQLERRM,12,30));
4468: fnd_message.set_name ('DPP', substr(SQLERRM,12,30));
4469: ELSE
4470: fnd_message.set_name ('DPP', SQLERRM);
4471: END IF;
4472: l_error_message := fnd_message.get();
4473: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP l_error_message:'||l_error_message);
4474: raise_application_error( -20000, l_error_message);
4468: fnd_message.set_name ('DPP', substr(SQLERRM,12,30));
4469: ELSE
4470: fnd_message.set_name ('DPP', SQLERRM);
4471: END IF;
4472: l_error_message := fnd_message.get();
4473: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP l_error_message:'||l_error_message);
4474: raise_application_error( -20000, l_error_message);
4475: END inbound_transaction;
4476:
4541:
4542:
4543: IF x_return_status = Fnd_Api.g_ret_sts_error THEN
4544: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Create WebADI Transaction Fnd_Api.g_ret_sts_error');
4545: fnd_message.set_name('DPP', 'DPP_WEBADI_IMPORT_ERROR');
4546: fnd_message.set_token('MESSAGE', x_msg_data);
4547: RAISE FND_API.G_EXC_ERROR;
4548: ELSIF x_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4549: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Create WebADI Transaction Fnd_Api.g_ret_sts_unexp_error');
4542:
4543: IF x_return_status = Fnd_Api.g_ret_sts_error THEN
4544: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Create WebADI Transaction Fnd_Api.g_ret_sts_error');
4545: fnd_message.set_name('DPP', 'DPP_WEBADI_IMPORT_ERROR');
4546: fnd_message.set_token('MESSAGE', x_msg_data);
4547: RAISE FND_API.G_EXC_ERROR;
4548: ELSIF x_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4549: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Create WebADI Transaction Fnd_Api.g_ret_sts_unexp_error');
4550: fnd_message.set_name('DPP', 'DPP_WEBADI_IMPORT_ERROR');
4546: fnd_message.set_token('MESSAGE', x_msg_data);
4547: RAISE FND_API.G_EXC_ERROR;
4548: ELSIF x_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4549: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Create WebADI Transaction Fnd_Api.g_ret_sts_unexp_error');
4550: fnd_message.set_name('DPP', 'DPP_WEBADI_IMPORT_ERROR');
4551: fnd_message.set_token('MESSAGE', x_msg_data);
4552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4553: END IF;
4554: EXCEPTION
4547: RAISE FND_API.G_EXC_ERROR;
4548: ELSIF x_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4549: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Create WebADI Transaction Fnd_Api.g_ret_sts_unexp_error');
4550: fnd_message.set_name('DPP', 'DPP_WEBADI_IMPORT_ERROR');
4551: fnd_message.set_token('MESSAGE', x_msg_data);
4552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4553: END IF;
4554: EXCEPTION
4555: WHEN Fnd_Api.G_EXC_ERROR THEN
4608: evtkey := dbms_utility.get_time();
4609: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Event Key = ' || evtkey);
4610: l_event_test := wf_event.test(l_event_name);
4611: IF l_event_test = 'NONE' THEN
4612: fnd_message.set_name('DPP', 'DPP_EVENT_SUBS_ERR');
4613: fnd_message.set_token('CLAIM_NUMBER', p_claim_id);
4614: x_msg_data := fnd_message.get();
4615: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'No enabled local subscriptions reference the event, or the event does not exist.');
4616: RAISE FND_API.g_exc_error;
4609: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Event Key = ' || evtkey);
4610: l_event_test := wf_event.test(l_event_name);
4611: IF l_event_test = 'NONE' THEN
4612: fnd_message.set_name('DPP', 'DPP_EVENT_SUBS_ERR');
4613: fnd_message.set_token('CLAIM_NUMBER', p_claim_id);
4614: x_msg_data := fnd_message.get();
4615: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'No enabled local subscriptions reference the event, or the event does not exist.');
4616: RAISE FND_API.g_exc_error;
4617: END IF;
4610: l_event_test := wf_event.test(l_event_name);
4611: IF l_event_test = 'NONE' THEN
4612: fnd_message.set_name('DPP', 'DPP_EVENT_SUBS_ERR');
4613: fnd_message.set_token('CLAIM_NUMBER', p_claim_id);
4614: x_msg_data := fnd_message.get();
4615: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'No enabled local subscriptions reference the event, or the event does not exist.');
4616: RAISE FND_API.g_exc_error;
4617: END IF;
4618: -- DEFINE IN WF ATTRIBUTES
4641: );
4642: WHEN OTHERS THEN
4643: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
4644: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4645: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
4646: fnd_message.set_token('ROUTINE', l_full_name);
4647: fnd_message.set_token('ERRNO', SQLCODE);
4648: fnd_message.set_token('REASON', sqlerrm);
4649: END IF;
4642: WHEN OTHERS THEN
4643: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
4644: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4645: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
4646: fnd_message.set_token('ROUTINE', l_full_name);
4647: fnd_message.set_token('ERRNO', SQLCODE);
4648: fnd_message.set_token('REASON', sqlerrm);
4649: END IF;
4650: ROLLBACK TO DPP_Raise_OutBoundEvent;
4643: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
4644: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4645: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
4646: fnd_message.set_token('ROUTINE', l_full_name);
4647: fnd_message.set_token('ERRNO', SQLCODE);
4648: fnd_message.set_token('REASON', sqlerrm);
4649: END IF;
4650: ROLLBACK TO DPP_Raise_OutBoundEvent;
4651: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
4644: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4645: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
4646: fnd_message.set_token('ROUTINE', l_full_name);
4647: fnd_message.set_token('ERRNO', SQLCODE);
4648: fnd_message.set_token('REASON', sqlerrm);
4649: END IF;
4650: ROLLBACK TO DPP_Raise_OutBoundEvent;
4651: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
4652: THEN
4763: SAVEPOINT inbound_approval;
4764: x_return_status := fnd_api.g_ret_sts_success;
4765:
4766: IF p_distributor_operating_unit IS NULL THEN
4767: fnd_message.set_name('DPP', 'DPP_OPERATING_UNIT_NULL');
4768: l_error_message := fnd_message.get();
4769: l_message := l_message || l_error_message;
4770:
4771: END IF;
4764: x_return_status := fnd_api.g_ret_sts_success;
4765:
4766: IF p_distributor_operating_unit IS NULL THEN
4767: fnd_message.set_name('DPP', 'DPP_OPERATING_UNIT_NULL');
4768: l_error_message := fnd_message.get();
4769: l_message := l_message || l_error_message;
4770:
4771: END IF;
4772: IF p_document_reference IS NULL THEN
4769: l_message := l_message || l_error_message;
4770:
4771: END IF;
4772: IF p_document_reference IS NULL THEN
4773: fnd_message.set_name('DPP', 'DPP_DOC_REF_NUM_NULL');
4774: l_error_message := fnd_message.get();
4775: l_message := l_message || l_error_message;
4776: --raise_application_error( -20000, l_error_message);
4777: --RAISE DPP_WEBADI_ERROR;
4770:
4771: END IF;
4772: IF p_document_reference IS NULL THEN
4773: fnd_message.set_name('DPP', 'DPP_DOC_REF_NUM_NULL');
4774: l_error_message := fnd_message.get();
4775: l_message := l_message || l_error_message;
4776: --raise_application_error( -20000, l_error_message);
4777: --RAISE DPP_WEBADI_ERROR;
4778: END IF;
4777: --RAISE DPP_WEBADI_ERROR;
4778: END IF;
4779:
4780: IF LENGTH(p_document_reference) > 40 THEN
4781: fnd_message.set_name('DPP', 'DPP_DOC_REF_NUM');
4782: l_error_message := fnd_message.get();
4783: l_message := l_message || l_error_message;
4784: --raise_application_error( -20000, l_error_message);
4785: --RAISE DPP_WEBADI_ERROR;
4778: END IF;
4779:
4780: IF LENGTH(p_document_reference) > 40 THEN
4781: fnd_message.set_name('DPP', 'DPP_DOC_REF_NUM');
4782: l_error_message := fnd_message.get();
4783: l_message := l_message || l_error_message;
4784: --raise_application_error( -20000, l_error_message);
4785: --RAISE DPP_WEBADI_ERROR;
4786: END IF;
4785: --RAISE DPP_WEBADI_ERROR;
4786: END IF;
4787:
4788: IF p_supp_dist_claim_number IS NULL THEN
4789: fnd_message.set_name('DPP', 'DPP_CLAIM_NUM_NULL');
4790: l_error_message := fnd_message.get();
4791: l_message := l_message || l_error_message;
4792: --RAISE DPP_WEBADI_ERROR;
4793: END IF;
4786: END IF;
4787:
4788: IF p_supp_dist_claim_number IS NULL THEN
4789: fnd_message.set_name('DPP', 'DPP_CLAIM_NUM_NULL');
4790: l_error_message := fnd_message.get();
4791: l_message := l_message || l_error_message;
4792: --RAISE DPP_WEBADI_ERROR;
4793: END IF;
4794:
4792: --RAISE DPP_WEBADI_ERROR;
4793: END IF;
4794:
4795: IF p_supplier_approved_by IS NULL THEN
4796: fnd_message.set_name('DPP', 'DPP_APPROVEDBY_NULL');
4797: l_error_message := fnd_message.get();
4798: l_message := l_message || l_error_message;
4799: --RAISE DPP_WEBADI_ERROR;
4800: END IF;
4793: END IF;
4794:
4795: IF p_supplier_approved_by IS NULL THEN
4796: fnd_message.set_name('DPP', 'DPP_APPROVEDBY_NULL');
4797: l_error_message := fnd_message.get();
4798: l_message := l_message || l_error_message;
4799: --RAISE DPP_WEBADI_ERROR;
4800: END IF;
4801:
4799: --RAISE DPP_WEBADI_ERROR;
4800: END IF;
4801:
4802: IF p_supplier_approval_date IS NULL THEN
4803: fnd_message.set_name('DPP', 'DPP_APPROVED_DATE_NULL');
4804: l_error_message := fnd_message.get();
4805: l_message := l_message || l_error_message;
4806: --RAISE DPP_WEBADI_ERROR;
4807: END IF;
4800: END IF;
4801:
4802: IF p_supplier_approval_date IS NULL THEN
4803: fnd_message.set_name('DPP', 'DPP_APPROVED_DATE_NULL');
4804: l_error_message := fnd_message.get();
4805: l_message := l_message || l_error_message;
4806: --RAISE DPP_WEBADI_ERROR;
4807: END IF;
4808:
4806: --RAISE DPP_WEBADI_ERROR;
4807: END IF;
4808:
4809: IF p_supplier_name IS NULL THEN
4810: fnd_message.set_name ('DPP', 'DPP_SUPPLIER_NAME_NULL');
4811: l_error_message := fnd_message.get();
4812: --raise_application_error( -20000, l_error_message);
4813: l_message := l_message || l_error_message;
4814: --RAISE DPP_WEBADI_ERROR;
4807: END IF;
4808:
4809: IF p_supplier_name IS NULL THEN
4810: fnd_message.set_name ('DPP', 'DPP_SUPPLIER_NAME_NULL');
4811: l_error_message := fnd_message.get();
4812: --raise_application_error( -20000, l_error_message);
4813: l_message := l_message || l_error_message;
4814: --RAISE DPP_WEBADI_ERROR;
4815: END IF;
4815: END IF;
4816:
4817:
4818: IF p_supplier_site IS NULL THEN
4819: fnd_message.set_name('DPP', 'DPP_SUPPLIER_SITE_NULL');
4820: l_error_message := fnd_message.get();
4821: --raise_application_error( -20000, l_error_message);
4822: l_message := l_message || l_error_message;
4823: --RAISE DPP_WEBADI_ERROR;;
4816:
4817:
4818: IF p_supplier_site IS NULL THEN
4819: fnd_message.set_name('DPP', 'DPP_SUPPLIER_SITE_NULL');
4820: l_error_message := fnd_message.get();
4821: --raise_application_error( -20000, l_error_message);
4822: l_message := l_message || l_error_message;
4823: --RAISE DPP_WEBADI_ERROR;;
4824: END IF;
4825:
4826: -- Line Level Mandatory Field Validation
4827:
4828: IF (p_supplier_part_num IS NULL and p_item_number IS NULL) THEN
4829: fnd_message.set_name('DPP', 'DPP_SUPPLIER_PART_NUM_NULL');
4830: l_error_message := fnd_message.get();
4831: l_message := l_message || l_error_message;
4832: --RAISE DPP_WEBADI_ERROR;
4833: END IF;
4826: -- Line Level Mandatory Field Validation
4827:
4828: IF (p_supplier_part_num IS NULL and p_item_number IS NULL) THEN
4829: fnd_message.set_name('DPP', 'DPP_SUPPLIER_PART_NUM_NULL');
4830: l_error_message := fnd_message.get();
4831: l_message := l_message || l_error_message;
4832: --RAISE DPP_WEBADI_ERROR;
4833: END IF;
4834:
4832: --RAISE DPP_WEBADI_ERROR;
4833: END IF;
4834:
4835: IF p_approved_inventory IS NULL OR p_approved_inventory < 0 THEN
4836: fnd_message.set_name('DPP', 'DPP_APPROVED_QTY_NULL');
4837: l_error_message := fnd_message.get();
4838: l_message := l_message || l_error_message;
4839: --RAISE DPP_WEBADI_ERROR;
4840: END IF;
4833: END IF;
4834:
4835: IF p_approved_inventory IS NULL OR p_approved_inventory < 0 THEN
4836: fnd_message.set_name('DPP', 'DPP_APPROVED_QTY_NULL');
4837: l_error_message := fnd_message.get();
4838: l_message := l_message || l_error_message;
4839: --RAISE DPP_WEBADI_ERROR;
4840: END IF;
4841: IF l_message IS NOT NULL THEN
4949:
4950:
4951: IF l_return_status = fnd_api.g_ret_sts_error THEN
4952: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Create_Intlines fnd_api.g_ret_sts_error'||sqlerrm);
4953: fnd_message.set_name('DPP', 'DPP_DUPLICATE_RECORDS');
4954: l_error_message := fnd_message.get();
4955: RAISE dpp_webadi_error;
4956: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4957: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Create_Intlines fnd_api.g_ret_sts_error');
4950:
4951: IF l_return_status = fnd_api.g_ret_sts_error THEN
4952: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Create_Intlines fnd_api.g_ret_sts_error'||sqlerrm);
4953: fnd_message.set_name('DPP', 'DPP_DUPLICATE_RECORDS');
4954: l_error_message := fnd_message.get();
4955: RAISE dpp_webadi_error;
4956: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4957: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Create_Intlines fnd_api.g_ret_sts_error');
4958: RAISE fnd_api.g_exc_unexpected_error;
4964: --x_return_status := FND_API.G_RET_STS_ERROR;
4965: ROLLBACK TO inbound_approval;
4966: if l_error_message is NULL then
4967: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP in DPP_webadi_error l_error_message is null');
4968: l_error_message := fnd_message.get();
4969: end if;
4970: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP in DPP_webadi_error:'||l_error_message);
4971: raise_application_error( -20000, l_error_message);
4972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4973: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP IN FND_API.G_EXC_UNEXPECTED_ERROR BLOCK');
4974: ROLLBACK TO inbound_approval;
4975: IF length( SQLERRM) > 30 THEN
4976: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, substr(SQLERRM,12,30));
4977: fnd_message.set_name ('DPP', substr(SQLERRM,12,30));
4978: ELSE
4979: fnd_message.set_name ('DPP', SQLERRM);
4980: END IF;
4981: l_error_message := fnd_message.get();
4975: IF length( SQLERRM) > 30 THEN
4976: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, substr(SQLERRM,12,30));
4977: fnd_message.set_name ('DPP', substr(SQLERRM,12,30));
4978: ELSE
4979: fnd_message.set_name ('DPP', SQLERRM);
4980: END IF;
4981: l_error_message := fnd_message.get();
4982: raise_application_error( -20000, l_error_message);
4983: WHEN OTHERS THEN
4977: fnd_message.set_name ('DPP', substr(SQLERRM,12,30));
4978: ELSE
4979: fnd_message.set_name ('DPP', SQLERRM);
4980: END IF;
4981: l_error_message := fnd_message.get();
4982: raise_application_error( -20000, l_error_message);
4983: WHEN OTHERS THEN
4984: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP IN OTHERS BLOCK');
4985: ROLLBACK TO inbound_approval;
4984: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP IN OTHERS BLOCK');
4985: ROLLBACK TO inbound_approval;
4986: IF length( SQLERRM) > 30 THEN
4987: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, substr(SQLERRM,12,30));
4988: fnd_message.set_name ('DPP', substr(SQLERRM,12,30));
4989: ELSE
4990: fnd_message.set_name ('DPP', SQLERRM);
4991: END IF;
4992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4986: IF length( SQLERRM) > 30 THEN
4987: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, substr(SQLERRM,12,30));
4988: fnd_message.set_name ('DPP', substr(SQLERRM,12,30));
4989: ELSE
4990: fnd_message.set_name ('DPP', SQLERRM);
4991: END IF;
4992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4993: l_error_message := fnd_message.get();
4994: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP l_error_message:'||l_error_message);
4989: ELSE
4990: fnd_message.set_name ('DPP', SQLERRM);
4991: END IF;
4992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4993: l_error_message := fnd_message.get();
4994: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'DPP l_error_message:'||l_error_message);
4995: raise_application_error( -20000, l_error_message);
4996: END inbound_approval;
4997: