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

APPS.DPP_TRANSACTION_PVT dependencies on FND_FILE

Line 44: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update InterfaceErrSts');

40: BEGIN
41: -- Initialize API return status to sucess
42: x_return_status := fnd_api.g_ret_sts_success;
43: IF DPP_DEBUG_HIGH_ON THEN
44: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update InterfaceErrSts');
45: END IF;
46:
47: --Update Interface Header table with error status
48: UPDATE DPP_TXN_HEADERS_INT_ALL dtha

Line 59: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update InterfaceErrSts');

55: WHERE transaction_int_header_id = p_txn_header_rec_type.transaction_int_header_id;
56: COMMIT;
57:
58: IF DPP_DEBUG_HIGH_ON THEN
59: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update InterfaceErrSts');
60: END IF;
61: EXCEPTION
62: WHEN Fnd_Api.G_EXC_ERROR THEN
63: x_return_status := Fnd_Api.g_ret_sts_error ;

Line 74: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||sqlerrm);

70: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
71: fnd_message.set_token('ERRNO', SQLCODE);
72: fnd_message.set_token('REASON', sqlerrm);
73: END IF;
74: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||sqlerrm);
75: END Update_InterfaceErrSts;
76:
77: PROCEDURE Validate_OperatingUnit(
78: p_txn_header_rec_type IN OUT nocopy txn_header_rec

Line 90: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Operating Unit');

86:
87:
88: BEGIN
89: IF DPP_DEBUG_HIGH_ON THEN
90: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Operating Unit');
91: END IF;
92: -- Initialize API return status to sucess
93: x_return_status := fnd_api.g_ret_sts_success;
94: --BUG 6806974

Line 122: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Validate Operating Unit');

118: AND mo_global.check_access(hr.organization_id) = 'Y' ;
119: --MOAC
120: MO_GLOBAL.set_policy_context('S', p_txn_header_rec_type.org_id);
121: IF DPP_DEBUG_HIGH_ON THEN
122: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Validate Operating Unit');
123: END IF;
124:
125: EXCEPTION
126: WHEN NO_DATA_FOUND THEN

Line 179: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Document Reference Number');

175: l_full_name constant VARCHAR2(60) := g_pkg_name || '.' || l_api_name;
176: l_valid_doc VARCHAR2(1);
177: BEGIN
178: IF DPP_DEBUG_HIGH_ON THEN
179: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Document Reference Number');
180: END IF;
181: -- Initialize API return status to sucess
182: x_return_status := fnd_api.g_ret_sts_success;
183: IF p_txn_header_rec_type.ref_document_number IS NULL THEN

Line 206: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Validate Document Reference Number');

202: x_msg_data := fnd_message.get();
203: p_txn_header_rec_type.error_code := 'DPP_DOC_REF_NUM_ERR';
204: END IF;
205: IF DPP_DEBUG_HIGH_ON THEN
206: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Validate Document Reference Number');
207: END IF;
208: EXCEPTION
209: WHEN Fnd_Api.G_EXC_ERROR THEN
210: x_return_status := Fnd_Api.g_ret_sts_error ;

Line 234: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Supplier Details');

230: l_trunc_sysdate DATE := TRUNC(SYSDATE);
231:
232: BEGIN
233: IF DPP_DEBUG_HIGH_ON THEN
234: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Supplier Details');
235: END IF;
236: -- Initialize API return status to sucess
237: x_return_status := fnd_api.g_ret_sts_success;
238: --BUG 6806974

Line 312: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Validate Supplier Details Vendor Id: '||p_txn_header_rec_type.vendor_id);

308: p_txn_header_rec_type.error_code := 'DPP_TXN_SUPP_SITE_ERR';
309: RAISE Fnd_Api.G_EXC_ERROR;
310: END;
311: IF DPP_DEBUG_HIGH_ON THEN
312: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Validate Supplier Details Vendor Id: '||p_txn_header_rec_type.vendor_id);
313: END IF;
314: EXCEPTION
315: WHEN Fnd_Api.G_EXC_ERROR THEN
316: x_return_status := Fnd_Api.g_ret_sts_error ;

Line 343: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Lines Details');

339: l_lines NUMBER;
340:
341: BEGIN
342: IF DPP_DEBUG_HIGH_ON THEN
343: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Lines Details');
344: END IF;
345: -- Initialize API return status to sucess
346: x_return_status := fnd_api.g_ret_sts_success;
347:

Line 476: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Get Days Covered');

472: AS
473: BEGIN
474:
475: IF DPP_DEBUG_HIGH_ON THEN
476: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Get Days Covered');
477: END IF;
478: -- Initialize API return status to sucess
479: x_return_status := fnd_api.g_ret_sts_success;
480: SELECT default_days_covered

Line 487: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Get Days Covered');

483: WHERE ostpa.supplier_id =to_number(p_txn_header_rec_type.vendor_id)
484: AND ostpa.supplier_site_id =to_number(p_txn_header_rec_type.vendor_site_id);
485:
486: IF DPP_DEBUG_HIGH_ON THEN
487: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Get Days Covered');
488: END IF;
489: EXCEPTION
490: WHEN NO_DATA_FOUND THEN
491: x_return_status := fnd_api.g_ret_sts_error;

Line 497: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

493: fnd_message.set_name('DPP', 'DPP_DAYS_COVRD_ERR');
494: fnd_message.set_token('SUPPLIER_NAME', p_txn_header_rec_type.vendor_name);
495: x_msg_data :=fnd_message.get();
496: END IF;
497: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
498: p_txn_header_rec_type.error_code := 'DPP_DAYS_COVRD_ERR';
499: WHEN others THEN
500: x_return_status := fnd_api.g_ret_sts_unexp_error;
501: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN

Line 525: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Currency');

521: BEGIN
522: -- Initialize API return status to sucess
523: x_return_status := fnd_api.g_ret_sts_success;
524: IF DPP_DEBUG_HIGH_ON THEN
525: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Currency');
526: END IF;
527: IF p_txn_header_rec_type.trx_currency IS NULL THEN
528: fnd_message.set_name('DPP', 'DPP_TXN_CURR_NULL');
529: x_msg_data :=fnd_message.get();

Line 542: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Validate Currency');

538: WHERE currency_flag = 'Y'
539: AND enabled_flag = 'Y'
540: AND currency_code =p_txn_header_rec_type.trx_currency;
541: IF DPP_DEBUG_HIGH_ON THEN
542: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Validate Currency');
543: END IF;
544: EXCEPTION WHEN no_data_found THEN
545: x_return_status := fnd_api.g_ret_sts_error;
546: fnd_message.set_name('DPP', 'DPP_TXN_CURR_ERR');

Line 550: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

546: fnd_message.set_name('DPP', 'DPP_TXN_CURR_ERR');
547: fnd_message.set_token('CURRENCY_CODE', p_txn_header_rec_type.trx_currency);
548: x_msg_data :=fnd_message.get();
549: l_error_message := l_error_message || x_msg_data;
550: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
551: p_txn_header_rec_type.error_code := 'DPP_TXN_CURR_ERR';
552: END;
553: --for only inbound
554: IF p_txn_header_rec_type.supplier_approved_by is NULL THEN

Line 567: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

563: fnd_message.set_name('DPP', 'DPP_TXN_SEQ_NO_ERR');
564: fnd_message.set_token('SEQ_NUM', 'Transaction Header Id');
565: x_msg_data := fnd_message.get();
566: l_error_message := l_error_message || x_msg_data;
567: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
568: l_error_message :=l_error_message|| x_msg_data;
569: p_txn_header_rec_type.error_code := 'DPP_TXN_SEQ_NO_ERR';
570: --RAISE Fnd_Api.G_EXC_ERROR;
571: END;

Line 588: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

584: fnd_message.set_name('DPP', 'DPP_TXN_SEQ_NO_ERR');
585: fnd_message.set_token('SEQ_NUM', 'Transaction Number');
586: END IF;
587: x_msg_data := fnd_message.get();
588: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
589: p_txn_header_rec_type.error_code := 'DPP_TXN_SEQ_NO_ERR';
590: l_error_message :=l_error_message|| x_msg_data;
591: --RAISE Fnd_Api.G_EXC_ERROR;
592: END;

Line 622: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

618: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
619: fnd_message.set_name('DPP', 'DPP_TXN_STS_ERR');
620: END IF;
621: x_msg_data := fnd_message.get();
622: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
623: p_txn_header_rec_type.error_code := 'DPP_TXN_STS_ERR';
624: l_error_message :=l_error_message|| x_msg_data;
625: --RAISE Fnd_Api.G_EXC_ERROR;
626: END;

Line 641: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validating Days Covered');

637: IF x_return_status = Fnd_Api.g_ret_sts_error OR x_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
638: l_error_message :=l_error_message|| x_msg_data;
639: END IF;
640: IF DPP_DEBUG_HIGH_ON THEN
641: FND_FILE.PUT_LINE(FND_FILE.LOG,'Validating Days Covered');
642: END IF;
643: --Validate the given days covered should be between 0 and 9999
644: IF p_txn_header_rec_type.days_covered <= 0
645: OR p_txn_header_rec_type.days_covered > 9999

Line 653: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

649: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
650: fnd_message.set_name('DPP', 'DPP_TXN_DAYS_COV_ERR');
651: END IF;
652: x_msg_data := fnd_message.get();
653: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
654: p_txn_header_rec_type.error_code := 'DPP_TXN_DAYS_COV_ERR';
655: l_error_message :=l_error_message|| x_msg_data;
656: --RAISE Fnd_Api.g_exc_error;
657: END IF;

Line 664: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

660: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
661: fnd_message.set_name('DPP', 'DPP_EFF_START_DATE_ERR');
662: END IF;
663: x_msg_data := fnd_message.get();
664: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
665: p_txn_header_rec_type.error_code := 'DPP_EFF_START_DATE_ERR';
666: l_error_message :=l_error_message|| x_msg_data;
667: --RAISE Fnd_Api.g_exc_error;
668: END IF;

Line 676: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

672: RAISE Fnd_Api.g_exc_error;
673: END IF;
674: EXCEPTION
675: WHEN Fnd_Api.G_EXC_ERROR THEN
676: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
677: x_return_status := Fnd_Api.g_ret_sts_error ;
678: WHEN others THEN
679: x_return_status := fnd_api.g_ret_sts_unexp_error;
680: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN

Line 687: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

683: fnd_message.set_token('ERRNO', SQLCODE);
684: fnd_message.set_token('REASON', sqlerrm);
685: END IF;
686: x_msg_data :=fnd_message.get();
687: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
688: END Validate_Currency;
689:
690:
691:

Line 705: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Create Header');

701: l_transaction_number VARCHAR2(55);
702: l_error_message VARCHAR2(4000) := NULL;
703: BEGIN
704: IF DPP_DEBUG_HIGH_ON THEN
705: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Create Header');
706: END IF;
707: -- Initialize API return status to sucess
708: x_return_status := fnd_api.g_ret_sts_success;
709: --Get Transaction Header Id from sequence

Line 712: FND_FILE.PUT_LINE(FND_FILE.LOG,' Inserting Transaction Header');

708: x_return_status := fnd_api.g_ret_sts_success;
709: --Get Transaction Header Id from sequence
710:
711: IF DPP_DEBUG_HIGH_ON THEN
712: FND_FILE.PUT_LINE(FND_FILE.LOG,' Inserting Transaction Header');
713: END IF;
714: INSERT INTO DPP_TRANSACTION_HEADERS_ALL(
715: object_version_number
716: ,transaction_header_id

Line 836: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Create Header');

832: ,p_txn_header_rec_type.ATTRIBUTE30
833: ,p_txn_header_rec_type.trx_currency);
834:
835: IF DPP_DEBUG_HIGH_ON THEN
836: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Create Header');
837: END IF;
838: EXCEPTION
839: WHEN Fnd_Api.G_EXC_ERROR THEN
840: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

Line 840: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

836: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Create Header');
837: END IF;
838: EXCEPTION
839: WHEN Fnd_Api.G_EXC_ERROR THEN
840: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
841: dpp_utility_pvt.debug_message('Create Header G_EXC_ERROR '||x_msg_data);
842: x_return_status := Fnd_Api.g_ret_sts_error ;
843: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
844: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

Line 844: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

840: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
841: dpp_utility_pvt.debug_message('Create Header G_EXC_ERROR '||x_msg_data);
842: x_return_status := Fnd_Api.g_ret_sts_error ;
843: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
844: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
845: dpp_utility_pvt.debug_message('Create Header G_EXC_UNEXPECTED_ERROR' ||x_msg_data||sqlerrm);
846: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
847: WHEN OTHERS THEN
848: dpp_utility_pvt.debug_message('Create Header OTHERS'||sqlerrm);

Line 858: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

854: fnd_message.set_token('ERRNO', SQLCODE);
855: fnd_message.set_token('REASON', sqlerrm);
856: END IF;
857: x_msg_data := fnd_message.get;
858: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
859: END Create_Header;
860: PROCEDURE Validate_SupplierPartNum(
861: p_txn_header_rec_type IN OUT nocopy txn_header_rec
862: ,p_txn_lines_tbl_type IN OUT nocopy txn_lines_tbl

Line 881: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Supplier Part Number');

877: BEGIN
878: -- Initialize API return status to sucess
879: x_return_status := fnd_api.g_ret_sts_success;
880: IF DPP_DEBUG_HIGH_ON THEN
881: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Validate Supplier Part Number');
882: END IF;
883: FOR i in p_txn_lines_tbl_type.FIRST..p_txn_lines_tbl_type.LAST
884: LOOP
885: --Get transaction line id from sequence

Line 899: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

895: fnd_message.set_name('DPP', 'DPP_TXN_SEQ_NO_ERR');
896: fnd_message.set_token('SEQ_NUM', 'Transaction Line Id');
897: END IF;
898: x_msg_data := fnd_message.get();
899: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
900: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SEQ_NO_ERR';
901: IF p_txn_header_rec_type.error_code IS NULL THEN
902: p_txn_header_rec_type.error_code := 'DPP_TXN_SEQ_NO_ERR';
903: ELSE

Line 923: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

919: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
920: fnd_message.set_name('DPP', 'DPP_TXN_STS_ERR');
921: END IF;
922: x_msg_data := fnd_message.get();
923: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
924: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_STS_ERR';
925: IF p_txn_header_rec_type.error_code IS NULL THEN
926: p_txn_header_rec_type.error_code := 'DPP_TXN_STS_ERR';
927: ELSE

Line 941: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

937: fnd_message.set_name('DPP', 'DPP_TXN_SUP_PART_NO_NULL');
938: END IF;
939: x_msg_data := fnd_message.get();
940: l_error_message :=l_error_message|| x_msg_data;
941: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
942: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_SUP_PART_NO_NULL';
943:
944: RAISE Fnd_Api.g_exc_error;
945: END IF;

Line 1079: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

1075: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1076: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1077: x_msg_data := fnd_message.get();
1078: p_txn_header_rec_type.error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1079: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1080: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1081: l_error_message :=l_error_message|| x_msg_data;
1082: ELSE
1083: l_msg_exceeded := 'Y';

Line 1106: FND_FILE.PUT_LINE(FND_FILE.LOG,' Supplier Part Number does not exist for Item Number '|| p_txn_lines_tbl_type(i).item_number ||

1102: AND (trunc(sysdate) between occ.start_date_active and occ.end_date_active OR occ.end_date_active is null);
1103: END IF;
1104: EXCEPTION WHEN NO_DATA_FOUND THEN
1105: IF DPP_DEBUG_HIGH_ON THEN
1106: FND_FILE.PUT_LINE(FND_FILE.LOG,' Supplier Part Number does not exist for Item Number '|| p_txn_lines_tbl_type(i).item_number ||
1107: '( Inventory Item ID '|| p_txn_lines_tbl_type(i).inventory_item_id );
1108: END IF;
1109: WHEN TOO_MANY_ROWS THEN
1110: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');

Line 1120: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

1116: p_txn_header_rec_type.error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1117: ELSE
1118: p_txn_header_rec_type.error_code := 'MULTIPLE_ERRORS';
1119: END IF;
1120: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1121: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1122: l_error_message :=l_error_message|| x_msg_data;
1123: ELSE
1124: l_msg_exceeded := 'Y';

Line 1177: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

1173: fnd_message.set_name('DPP', 'DPP_TXN_DUP_SUP_PART_NUM_ERR');
1174: fnd_message.set_token('ITEM_NUMBER', p_txn_lines_tbl_type(i).item_number);
1175: fnd_message.set_token('INVENTORY_ITEM_ID', p_txn_lines_tbl_type(i).inventory_item_id);
1176: x_msg_data := fnd_message.get();
1177: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1178: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1179: IF p_txn_header_rec_type.error_code IS NULL THEN
1180: p_txn_header_rec_type.error_code := 'DPP_TXN_DUP_SUP_PART_NUM_ERR';
1181: ELSE

Line 1240: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

1236: p_txn_header_rec_type.error_code := 'MULTIPLE_ERRORS';
1237: END IF;
1238: x_return_status := fnd_api.g_ret_sts_error;
1239: l_error_message :=l_error_message|| x_msg_data;
1240: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1241: END IF;
1242: END IF;
1243: dpp_utility_pvt.debug_message('Prior Price:'||p_txn_lines_tbl_type(i).prior_price);
1244: IF p_txn_lines_tbl_type(i).prior_price IS NULL THEN

Line 1255: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

1251: ELSE
1252: p_txn_header_rec_type.error_code := 'MULTIPLE_ERRORS';
1253: END IF;
1254: x_return_status := fnd_api.g_ret_sts_error;
1255: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1256: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1257: l_error_message :=l_error_message|| x_msg_data;
1258: ELSE
1259: l_msg_exceeded := 'Y';

Line 1279: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

1275: ELSE
1276: p_txn_header_rec_type.error_code := 'MULTIPLE_ERRORS';
1277: END IF;
1278: x_return_status := fnd_api.g_ret_sts_error;
1279: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1280: IF (l_error_message is null or length(l_error_message) < 2000) and l_msg_exceeded = 'N' THEN
1281: l_error_message :=l_error_message|| x_msg_data;
1282: ELSE
1283: l_msg_exceeded := 'Y';

Line 1292: FND_FILE.PUT_LINE(FND_FILE.LOG,' Change Value is null');

1288: END;
1289:
1290: --Validation for Change Value
1291: IF p_txn_lines_tbl_type(i).change_value IS NULL THEN
1292: FND_FILE.PUT_LINE(FND_FILE.LOG,' Change Value is null');
1293: fnd_message.set_name('DPP', 'DPP_CHANGE_VALUE_NULL');
1294: x_msg_data := fnd_message.get();
1295: p_txn_lines_tbl_type(i).error_code := 'DPP_CHANGE_VALUE_NULL';
1296: IF p_txn_header_rec_type.error_code IS NULL THEN

Line 1312: FND_FILE.PUT_LINE(FND_FILE.LOG,' Change type is null');

1308: END IF;
1309: END IF;
1310:
1311: IF p_txn_lines_tbl_type(i).change_type IS NULL THEN
1312: FND_FILE.PUT_LINE(FND_FILE.LOG,' Change type is null');
1313: fnd_message.set_name('DPP', 'DPP_CHANGE_TYPE_NULL');
1314: x_msg_data := fnd_message.get();
1315: p_txn_lines_tbl_type(i).error_code := 'DPP_CHANGE_TYPE_NULL';
1316: IF p_txn_header_rec_type.error_code IS NULL THEN

Line 1337: 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.');

1333: --Calculate Supplier New Price and Price change columns
1334:
1335: IF p_txn_lines_tbl_type(i).change_type = 'NEW_PRICE' THEN
1336: IF p_txn_lines_tbl_type(i).change_value <= 0 THEN
1337: 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.');
1338: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1339: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1340: x_msg_data := fnd_message.get();
1341: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';

Line 1360: 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.');

1356: p_txn_lines_tbl_type(i).supplier_new_price := p_txn_lines_tbl_type(i).change_value;
1357: END IF;
1358: ELSIF p_txn_lines_tbl_type(i).change_type = 'PERCENT_DECREASE' THEN
1359: IF p_txn_lines_tbl_type(i).change_value <= 0 OR p_txn_lines_tbl_type(i).change_value >= 100 THEN
1360: 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.');
1361: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1362: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1363: x_msg_data := fnd_message.get();
1364: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';

Line 1384: 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.');

1380: END IF;
1381:
1382: ELSIF p_txn_lines_tbl_type(i).change_type = 'PERCENT_INCREASE' THEN
1383: IF p_txn_lines_tbl_type(i).change_value <= 0 THEN
1384: 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.');
1385: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1386: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1387: x_msg_data := fnd_message.get();
1388: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';

Line 1407: 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.');

1403: 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));
1404: END IF;
1405: ELSIF p_txn_lines_tbl_type(i).change_type = 'AMOUNT_INCREASE' THEN
1406: IF p_txn_lines_tbl_type(i).change_value <= 0 THEN
1407: 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.');
1408: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1409: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1410: x_msg_data := fnd_message.get();
1411: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';

Line 1430: 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.');

1426: 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;
1427: END IF;
1428: ELSIF p_txn_lines_tbl_type(i).change_type = 'AMOUNT_DECREASE' THEN
1429: IF p_txn_lines_tbl_type(i).change_value <= 0 AND p_txn_lines_tbl_type(i).change_value >= p_txn_lines_tbl_type(i).prior_price THEN
1430: 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.');
1431: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_VALUE_ERR');
1432: fnd_message.set_token('CHANGE_VALUE', p_txn_lines_tbl_type(i).change_value );
1433: x_msg_data := fnd_message.get();
1434: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_VALUE_ERR';

Line 1453: 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.');

1449: 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;
1450: END IF;
1451:
1452: ELSE
1453: 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.');
1454: fnd_message.set_name('DPP', 'DPP_TXN_CHANGE_TYPE_ERR');
1455: fnd_message.set_token('CHANGE_TYPE', p_txn_lines_tbl_type(i).change_type );
1456: x_msg_data := fnd_message.get();
1457: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_CHANGE_TYPE_ERR';

Line 1480: FND_FILE.PUT_LINE(FND_FILE.LOG,' Price Change: '||p_txn_lines_tbl_type(i).price_change);

1476: --end if;
1477: END IF;
1478:
1479: IF DPP_DEBUG_HIGH_ON THEN
1480: FND_FILE.PUT_LINE(FND_FILE.LOG,' Price Change: '||p_txn_lines_tbl_type(i).price_change);
1481: END IF;
1482: END LOOP;
1483: IF l_error_message IS NOT NULL THEN
1484: x_msg_data := substr(l_error_message,1,2000);

Line 1489: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Validate Supplier Part Number');

1485: RAISE Fnd_Api.G_EXC_ERROR;
1486: END IF;
1487:
1488: IF DPP_DEBUG_HIGH_ON THEN
1489: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Validate Supplier Part Number');
1490: END IF;
1491: EXCEPTION
1492: WHEN Fnd_Api.G_EXC_ERROR THEN
1493: x_return_status := Fnd_Api.g_ret_sts_error ;

Line 1506: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

1502: fnd_message.set_token('ERRNO', SQLCODE);
1503: fnd_message.set_token('REASON', sqlerrm);
1504: END IF;
1505: x_msg_data := fnd_message.get();
1506: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1507: END Validate_SupplierPartNum;
1508:
1509:
1510: PROCEDURE Create_lines(

Line 1527: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Create Lines');

1523: BEGIN
1524: -- Initialize API return status to sucess
1525: x_return_status := fnd_api.g_ret_sts_success;
1526: IF DPP_DEBUG_HIGH_ON THEN
1527: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Create Lines');
1528: END IF;
1529:
1530:
1531: SELECT fnd_profile.VALUE('DPP_NEW_PRICE_DECIMAL_PRECISION')

Line 1543: FND_FILE.PUT_LINE(FND_FILE.LOG,' Line');

1539:
1540: FOR i in p_txn_lines_tbl_type.FIRST..p_txn_lines_tbl_type.LAST
1541: LOOP
1542: IF DPP_DEBUG_HIGH_ON THEN
1543: FND_FILE.PUT_LINE(FND_FILE.LOG,' Line');
1544: FND_FILE.PUT_LINE(FND_FILE.LOG,' Transaction Header Id'||p_txn_lines_tbl_type(i).transaction_header_id);
1545: FND_FILE.PUT_LINE(FND_FILE.LOG,' Supplier Part Num'||p_txn_lines_tbl_type(i).supplier_part_num);
1546: FND_FILE.PUT_LINE(FND_FILE.LOG,' Inventory Item ID'||p_txn_lines_tbl_type(i).inventory_item_id);
1547: END IF;

Line 1544: FND_FILE.PUT_LINE(FND_FILE.LOG,' Transaction Header Id'||p_txn_lines_tbl_type(i).transaction_header_id);

1540: FOR i in p_txn_lines_tbl_type.FIRST..p_txn_lines_tbl_type.LAST
1541: LOOP
1542: IF DPP_DEBUG_HIGH_ON THEN
1543: FND_FILE.PUT_LINE(FND_FILE.LOG,' Line');
1544: FND_FILE.PUT_LINE(FND_FILE.LOG,' Transaction Header Id'||p_txn_lines_tbl_type(i).transaction_header_id);
1545: FND_FILE.PUT_LINE(FND_FILE.LOG,' Supplier Part Num'||p_txn_lines_tbl_type(i).supplier_part_num);
1546: FND_FILE.PUT_LINE(FND_FILE.LOG,' Inventory Item ID'||p_txn_lines_tbl_type(i).inventory_item_id);
1547: END IF;
1548: dpp_utility_pvt.debug_message('Prior Price Create Lines:'||p_txn_lines_tbl_type(i).prior_price);

Line 1545: FND_FILE.PUT_LINE(FND_FILE.LOG,' Supplier Part Num'||p_txn_lines_tbl_type(i).supplier_part_num);

1541: LOOP
1542: IF DPP_DEBUG_HIGH_ON THEN
1543: FND_FILE.PUT_LINE(FND_FILE.LOG,' Line');
1544: FND_FILE.PUT_LINE(FND_FILE.LOG,' Transaction Header Id'||p_txn_lines_tbl_type(i).transaction_header_id);
1545: FND_FILE.PUT_LINE(FND_FILE.LOG,' Supplier Part Num'||p_txn_lines_tbl_type(i).supplier_part_num);
1546: FND_FILE.PUT_LINE(FND_FILE.LOG,' Inventory Item ID'||p_txn_lines_tbl_type(i).inventory_item_id);
1547: END IF;
1548: dpp_utility_pvt.debug_message('Prior Price Create Lines:'||p_txn_lines_tbl_type(i).prior_price);
1549: -- Insert lines into dpp_transaction_lines_all table

Line 1546: FND_FILE.PUT_LINE(FND_FILE.LOG,' Inventory Item ID'||p_txn_lines_tbl_type(i).inventory_item_id);

1542: IF DPP_DEBUG_HIGH_ON THEN
1543: FND_FILE.PUT_LINE(FND_FILE.LOG,' Line');
1544: FND_FILE.PUT_LINE(FND_FILE.LOG,' Transaction Header Id'||p_txn_lines_tbl_type(i).transaction_header_id);
1545: FND_FILE.PUT_LINE(FND_FILE.LOG,' Supplier Part Num'||p_txn_lines_tbl_type(i).supplier_part_num);
1546: FND_FILE.PUT_LINE(FND_FILE.LOG,' Inventory Item ID'||p_txn_lines_tbl_type(i).inventory_item_id);
1547: END IF;
1548: dpp_utility_pvt.debug_message('Prior Price Create Lines:'||p_txn_lines_tbl_type(i).prior_price);
1549: -- Insert lines into dpp_transaction_lines_all table
1550: INSERT INTO dpp_transaction_lines_all(

Line 1695: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Create Lines');

1691: , 'N'--p_txn_lines_tbl_type(i).notify_promotions_pricelist
1692: );
1693: END LOOP; --FOR i in p_txn_lines_tbl_type.FIRST..p_txn_lines_tbl_type.LAST
1694: IF DPP_DEBUG_HIGH_ON THEN
1695: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Create Lines');
1696: END IF;
1697: dpp_utility_pvt.debug_message('End Create Lines'|| sqlerrm);
1698: EXCEPTION
1699: WHEN Fnd_Api.G_EXC_ERROR THEN

Line 1713: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

1709: fnd_message.set_token('ERRNO', SQLCODE);
1710: fnd_message.set_token('REASON', sqlerrm);
1711: END IF;
1712: x_msg_data := fnd_message.get();
1713: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1714: END Create_lines;
1715:
1716:
1717: PROCEDURE Update_CoveredInv(

Line 1744: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update Covered Inventory');

1740:
1741: -- Initialize API return status to sucess
1742: x_return_status := fnd_api.g_ret_sts_success;
1743: IF DPP_DEBUG_HIGH_ON THEN
1744: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update Covered Inventory');
1745: END IF;
1746: --Form Header rec to call covered inventory procedure
1747: l_header_rec_type.transaction_header_id :=p_txn_header_rec_type.transaction_header_id;
1748: l_header_rec_type.org_id := p_txn_header_rec_type.org_id;

Line 1758: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Transaction Header Id: '||l_header_rec_type.transaction_header_id);

1754: END IF;
1755: l_header_rec_type.effective_end_date :=(p_txn_header_rec_type.effective_start_date);
1756: l_header_rec_type.last_updated_by :=p_txn_header_rec_type.last_updated_by;
1757: IF DPP_DEBUG_HIGH_ON THEN
1758: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Transaction Header Id: '||l_header_rec_type.transaction_header_id);
1759: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Org_ID'||l_header_rec_type.org_id);
1760: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Effective Start Date'|| l_header_rec_type.effective_start_date);
1761: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Effective End Date'||l_header_rec_type.effective_end_date);
1762: END IF;

Line 1759: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Org_ID'||l_header_rec_type.org_id);

1755: l_header_rec_type.effective_end_date :=(p_txn_header_rec_type.effective_start_date);
1756: l_header_rec_type.last_updated_by :=p_txn_header_rec_type.last_updated_by;
1757: IF DPP_DEBUG_HIGH_ON THEN
1758: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Transaction Header Id: '||l_header_rec_type.transaction_header_id);
1759: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Org_ID'||l_header_rec_type.org_id);
1760: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Effective Start Date'|| l_header_rec_type.effective_start_date);
1761: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Effective End Date'||l_header_rec_type.effective_end_date);
1762: END IF;
1763: --Form Line table to to get covered Inventory Details DPP_UTILITY_PVT.Get_CoveredInventory

Line 1760: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Effective Start Date'|| l_header_rec_type.effective_start_date);

1756: l_header_rec_type.last_updated_by :=p_txn_header_rec_type.last_updated_by;
1757: IF DPP_DEBUG_HIGH_ON THEN
1758: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Transaction Header Id: '||l_header_rec_type.transaction_header_id);
1759: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Org_ID'||l_header_rec_type.org_id);
1760: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Effective Start Date'|| l_header_rec_type.effective_start_date);
1761: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Effective End Date'||l_header_rec_type.effective_end_date);
1762: END IF;
1763: --Form Line table to to get covered Inventory Details DPP_UTILITY_PVT.Get_CoveredInventory
1764: FOR i in p_txn_lines_tbl_type.FIRST..p_txn_lines_tbl_type.LAST

Line 1761: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Effective End Date'||l_header_rec_type.effective_end_date);

1757: IF DPP_DEBUG_HIGH_ON THEN
1758: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Transaction Header Id: '||l_header_rec_type.transaction_header_id);
1759: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Org_ID'||l_header_rec_type.org_id);
1760: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Effective Start Date'|| l_header_rec_type.effective_start_date);
1761: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv Rec type Effective End Date'||l_header_rec_type.effective_end_date);
1762: END IF;
1763: --Form Line table to to get covered Inventory Details DPP_UTILITY_PVT.Get_CoveredInventory
1764: FOR i in p_txn_lines_tbl_type.FIRST..p_txn_lines_tbl_type.LAST
1765: LOOP

Line 1773: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv TBL type Transaction Line Id'||l_line_tbl_type(i).transaction_line_id);

1769: l_line_tbl_type(i).uom_code := p_txn_lines_tbl_type(i).uom;
1770: l_line_tbl_type(i).wh_line_tbl := l_inv_cov_wh_tbl_type;
1771:
1772: IF DPP_DEBUG_HIGH_ON THEN
1773: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv TBL type Transaction Line Id'||l_line_tbl_type(i).transaction_line_id);
1774: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv TBL type Inventory Item ID'||l_line_tbl_type(i).inventory_item_id);
1775: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv TBL type UOM Code'||l_line_tbl_type(i).uom_code);
1776: END IF;
1777: END LOOP; -- FOR i in p_txn_lines_tbl_type.FIRST..p_txn_lines_tbl_type.LAST

Line 1774: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv TBL type Inventory Item ID'||l_line_tbl_type(i).inventory_item_id);

1770: l_line_tbl_type(i).wh_line_tbl := l_inv_cov_wh_tbl_type;
1771:
1772: IF DPP_DEBUG_HIGH_ON THEN
1773: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv TBL type Transaction Line Id'||l_line_tbl_type(i).transaction_line_id);
1774: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv TBL type Inventory Item ID'||l_line_tbl_type(i).inventory_item_id);
1775: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv TBL type UOM Code'||l_line_tbl_type(i).uom_code);
1776: END IF;
1777: END LOOP; -- FOR i in p_txn_lines_tbl_type.FIRST..p_txn_lines_tbl_type.LAST
1778: --Update Covered Inventory Value

Line 1775: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv TBL type UOM Code'||l_line_tbl_type(i).uom_code);

1771:
1772: IF DPP_DEBUG_HIGH_ON THEN
1773: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv TBL type Transaction Line Id'||l_line_tbl_type(i).transaction_line_id);
1774: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv TBL type Inventory Item ID'||l_line_tbl_type(i).inventory_item_id);
1775: FND_FILE.PUT_LINE(FND_FILE.LOG,' Update_CoveredInv TBL type UOM Code'||l_line_tbl_type(i).uom_code);
1776: END IF;
1777: END LOOP; -- FOR i in p_txn_lines_tbl_type.FIRST..p_txn_lines_tbl_type.LAST
1778: --Update Covered Inventory Value
1779: DPP_COVEREDINVENTORY_PVT.Select_CoveredInventory(

Line 1815: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update Covered Inventory');

1811: ELSIF x_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1812: RAISE Fnd_Api.g_exc_unexpected_error;
1813: END IF;
1814: IF DPP_DEBUG_HIGH_ON THEN
1815: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update Covered Inventory');
1816: END IF;
1817: FOR i in l_line_tbl_type.FIRST..l_line_tbl_type.LAST
1818: LOOP
1819: dpp_utility_pvt.debug_message('l_line_tbl_type(i).transaction_line_id:'||l_line_tbl_type(i).transaction_line_id);

Line 1824: FND_FILE.PUT_LINE(FND_FILE.LOG,'After get covered Inventory');

1820: dpp_utility_pvt.debug_message('l_line_tbl_type(i).inventory_item_id:'||l_line_tbl_type(i).inventory_item_id);
1821: dpp_utility_pvt.debug_message('l_line_tbl_type(i).onhand_quantity:'||l_line_tbl_type(i).onhand_quantity);
1822: dpp_utility_pvt.debug_message('l_line_tbl_type(i).covered_quantity:'||l_line_tbl_type(i).covered_quantity);
1823: IF DPP_DEBUG_HIGH_ON THEN
1824: FND_FILE.PUT_LINE(FND_FILE.LOG,'After get covered Inventory');
1825: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).transaction_line_id:'||l_line_tbl_type(i).transaction_line_id);
1826: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).inventory_item_id:'||l_line_tbl_type(i).inventory_item_id);
1827: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).uom_code:'||l_line_tbl_type(i).uom_code);
1828: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).onhand_quantity:'||l_line_tbl_type(i).onhand_quantity);

Line 1825: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).transaction_line_id:'||l_line_tbl_type(i).transaction_line_id);

1821: dpp_utility_pvt.debug_message('l_line_tbl_type(i).onhand_quantity:'||l_line_tbl_type(i).onhand_quantity);
1822: dpp_utility_pvt.debug_message('l_line_tbl_type(i).covered_quantity:'||l_line_tbl_type(i).covered_quantity);
1823: IF DPP_DEBUG_HIGH_ON THEN
1824: FND_FILE.PUT_LINE(FND_FILE.LOG,'After get covered Inventory');
1825: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).transaction_line_id:'||l_line_tbl_type(i).transaction_line_id);
1826: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).inventory_item_id:'||l_line_tbl_type(i).inventory_item_id);
1827: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).uom_code:'||l_line_tbl_type(i).uom_code);
1828: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).onhand_quantity:'||l_line_tbl_type(i).onhand_quantity);
1829: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).covered_quantity:'||l_line_tbl_type(i).covered_quantity);

Line 1826: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).inventory_item_id:'||l_line_tbl_type(i).inventory_item_id);

1822: dpp_utility_pvt.debug_message('l_line_tbl_type(i).covered_quantity:'||l_line_tbl_type(i).covered_quantity);
1823: IF DPP_DEBUG_HIGH_ON THEN
1824: FND_FILE.PUT_LINE(FND_FILE.LOG,'After get covered Inventory');
1825: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).transaction_line_id:'||l_line_tbl_type(i).transaction_line_id);
1826: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).inventory_item_id:'||l_line_tbl_type(i).inventory_item_id);
1827: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).uom_code:'||l_line_tbl_type(i).uom_code);
1828: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).onhand_quantity:'||l_line_tbl_type(i).onhand_quantity);
1829: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).covered_quantity:'||l_line_tbl_type(i).covered_quantity);
1830: END IF;

Line 1827: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).uom_code:'||l_line_tbl_type(i).uom_code);

1823: IF DPP_DEBUG_HIGH_ON THEN
1824: FND_FILE.PUT_LINE(FND_FILE.LOG,'After get covered Inventory');
1825: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).transaction_line_id:'||l_line_tbl_type(i).transaction_line_id);
1826: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).inventory_item_id:'||l_line_tbl_type(i).inventory_item_id);
1827: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).uom_code:'||l_line_tbl_type(i).uom_code);
1828: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).onhand_quantity:'||l_line_tbl_type(i).onhand_quantity);
1829: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).covered_quantity:'||l_line_tbl_type(i).covered_quantity);
1830: END IF;
1831: --BUG 6806974

Line 1828: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).onhand_quantity:'||l_line_tbl_type(i).onhand_quantity);

1824: FND_FILE.PUT_LINE(FND_FILE.LOG,'After get covered Inventory');
1825: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).transaction_line_id:'||l_line_tbl_type(i).transaction_line_id);
1826: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).inventory_item_id:'||l_line_tbl_type(i).inventory_item_id);
1827: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).uom_code:'||l_line_tbl_type(i).uom_code);
1828: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).onhand_quantity:'||l_line_tbl_type(i).onhand_quantity);
1829: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).covered_quantity:'||l_line_tbl_type(i).covered_quantity);
1830: END IF;
1831: --BUG 6806974
1832: UPDATE dpp_transaction_lines_all dtla

Line 1829: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).covered_quantity:'||l_line_tbl_type(i).covered_quantity);

1825: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).transaction_line_id:'||l_line_tbl_type(i).transaction_line_id);
1826: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).inventory_item_id:'||l_line_tbl_type(i).inventory_item_id);
1827: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).uom_code:'||l_line_tbl_type(i).uom_code);
1828: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).onhand_quantity:'||l_line_tbl_type(i).onhand_quantity);
1829: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_line_tbl_type(i).covered_quantity:'||l_line_tbl_type(i).covered_quantity);
1830: END IF;
1831: --BUG 6806974
1832: UPDATE dpp_transaction_lines_all dtla
1833: SET dtla.approved_inventory = dtla.covered_inventory,

Line 1923: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

1919: fnd_message.set_token('ERRNO', SQLCODE);
1920: fnd_message.set_token('REASON', sqlerrm);
1921: END IF;
1922: x_msg_data := fnd_message.get();
1923: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1924: ROLLBACK TO DPP_Update_CoveredInv;
1925: END Update_CoveredInv;
1926:
1927:

Line 1945: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update Approval');

1941: BEGIN
1942: -- Initialize API return status to sucess
1943: x_return_status := fnd_api.g_ret_sts_success;
1944: IF DPP_DEBUG_HIGH_ON THEN
1945: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update Approval');
1946: FND_FILE.PUT_LINE(FND_FILE.LOG,' Values Transaction header id '
1947: ||p_txn_header_rec_type.transaction_header_id
1948: ||'Claim Number'||p_txn_header_rec_type.supp_dist_claim_number);
1949: END IF;

Line 1946: FND_FILE.PUT_LINE(FND_FILE.LOG,' Values Transaction header id '

1942: -- Initialize API return status to sucess
1943: x_return_status := fnd_api.g_ret_sts_success;
1944: IF DPP_DEBUG_HIGH_ON THEN
1945: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update Approval');
1946: FND_FILE.PUT_LINE(FND_FILE.LOG,' Values Transaction header id '
1947: ||p_txn_header_rec_type.transaction_header_id
1948: ||'Claim Number'||p_txn_header_rec_type.supp_dist_claim_number);
1949: END IF;
1950: --Check whether the claim lines belong to the transaction

Line 1960: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

1956: x_msg_data := fnd_message.get();
1957: p_txn_header_rec_type.error_code := 'DPP_CLAIM_NUMBER_NULL';
1958: l_error_message := l_error_message || x_msg_data;
1959: IF DPP_DEBUG_HIGH_ON THEN
1960: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1961: END IF;
1962: END IF;
1963: x_return_status := fnd_api.g_ret_sts_error;
1964: --RAISE Fnd_Api.G_EXC_ERROR;

Line 1997: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

1993: ELSE
1994: p_txn_header_rec_type.error_code := 'MULTIPLE_ERRORS';
1995: END IF;
1996: l_error_message := l_error_message || x_msg_data;
1997: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
1998: RAISE Fnd_Api.G_EXC_ERROR;
1999:
2000: END;
2001:

Line 2024: FND_FILE.PUT_LINE(FND_FILE.LOG,' The line (Inventory Item ID '

2020: IF l_approved_by IS NOT NULL OR p_txn_lines_tbl_type(i).approved_inventory < 0 THEN
2021: p_txn_lines_tbl_type(i).interface_status := 'E';
2022: p_txn_lines_tbl_type(i).error_code := 'DPP_TXN_APPROVED';
2023: IF DPP_DEBUG_HIGH_ON THEN
2024: FND_FILE.PUT_LINE(FND_FILE.LOG,' The line (Inventory Item ID '
2025: || p_txn_lines_tbl_type(i).inventory_item_id ||'is already approved by '||
2026: l_approved_by);
2027: END IF;
2028: ELSE

Line 2043: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update Approval');

2039: AND dtla.inventory_item_id =p_txn_lines_tbl_type(i).inventory_item_id;
2040: END IF;
2041: END LOOP;--FOR i in p_txn_lines_tbl_type.FIRST..p_txn_lines_tbl_type.LAST
2042: IF DPP_DEBUG_HIGH_ON THEN
2043: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update Approval');
2044: END IF;
2045: EXCEPTION
2046: WHEN Fnd_Api.G_EXC_ERROR THEN
2047: x_return_status := Fnd_Api.g_ret_sts_error ;

Line 2057: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

2053: fnd_message.set_token('ERRNO', SQLCODE);
2054: fnd_message.set_token('REASON', sqlerrm);
2055: END IF;
2056: x_msg_data := fnd_message.get();
2057: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2058: END Update_Approval;
2059:
2060: PROCEDURE Update_ClaimsApproval(
2061: p_txn_header_rec_type IN OUT nocopy txn_header_rec

Line 2084: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update Claims Approval');

2080: -- Initialize API return status to sucess
2081: x_return_status := fnd_api.g_ret_sts_success;
2082:
2083: IF DPP_DEBUG_HIGH_ON THEN
2084: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update Claims Approval');
2085: END IF;
2086: --Get the Process code for Update Claim and set in the hdr rec type
2087: BEGIN
2088: SELECT fl.lookup_code

Line 2116: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update Claims Approval l_count_approved_lines:'

2112: AND dtla.supp_dist_claim_id = p_txn_lines_tbl_type(i).supp_dist_claim_id
2113: AND dtla.supplier_approved_by IS NOT NULL;
2114:
2115: IF DPP_DEBUG_HIGH_ON THEN
2116: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update Claims Approval l_count_approved_lines:'
2117: ||l_count_approved_lines);
2118: END IF;
2119: --Get the number of lines for the claim
2120: SELECT count(transaction_line_id)

Line 2127: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update Claims Approval l_count_lines:'

2123: WHERE transaction_header_id = p_txn_header_rec_type.transaction_header_id
2124: AND dtla.supp_dist_claim_id = p_txn_lines_tbl_type(i).supp_dist_claim_id;
2125:
2126: IF DPP_DEBUG_HIGH_ON THEN
2127: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update Claims Approval l_count_lines:'
2128: ||l_count_lines);
2129: END IF;
2130:
2131: IF l_count_approved_lines = l_count_lines THEN

Line 2148: FND_FILE.PUT_LINE(FND_FILE.LOG,' Raises Business Event to Update claims:'

2144: l_claim_txn_hdr_rec_type.Transaction_number := p_txn_header_rec_type.Transaction_number;
2145: l_claim_txn_hdr_rec_type.claim_id := p_txn_lines_tbl_type(i).supp_dist_claim_id;
2146:
2147: IF DPP_DEBUG_HIGH_ON THEN
2148: FND_FILE.PUT_LINE(FND_FILE.LOG,' Raises Business Event to Update claims:'
2149: ||l_count_lines);
2150: END IF;
2151: dpp_businessevents_pvt.Raise_Business_Event(
2152: p_api_version => l_api_version

Line 2168: FND_FILE.PUT_LINE(FND_FILE.LOG,' Procedure called to raise business event to'

2164: ELSIF x_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2165: RAISE Fnd_Api.g_exc_unexpected_error;
2166: END IF;
2167: IF DPP_DEBUG_HIGH_ON THEN
2168: FND_FILE.PUT_LINE(FND_FILE.LOG,' Procedure called to raise business event to'
2169: ||' update the claim status.');
2170: END IF;
2171: END IF;
2172: END LOOP;

Line 2174: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update Claims Approval');

2170: END IF;
2171: END IF;
2172: END LOOP;
2173: IF DPP_DEBUG_HIGH_ON THEN
2174: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update Claims Approval');
2175: END IF;
2176: EXCEPTION
2177: WHEN Fnd_Api.G_EXC_ERROR THEN
2178: x_return_status := Fnd_Api.g_ret_sts_error ;

Line 2190: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

2186: fnd_message.set_token('ERRNO', SQLCODE);
2187: fnd_message.set_token('REASON', sqlerrm);
2188: END IF;
2189: x_msg_data := fnd_message.get();
2190: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2191: END Update_ClaimsApproval;
2192:
2193: PROCEDURE form_line_tbl(
2194: p_txn_header_rec_type IN OUT nocopy txn_header_rec

Line 2222: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin form line tbl');

2218: BEGIN
2219: -- Initialize API return status to sucess
2220: x_return_status := fnd_api.g_ret_sts_success;
2221: IF DPP_DEBUG_HIGH_ON THEN
2222: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin form line tbl');
2223: END IF;
2224:
2225:
2226: l_line_number := 0;

Line 2309: FND_FILE.PUT_LINE(FND_FILE.LOG,' End form line tbl');

2305: x_msg_data := l_error_message;
2306: RAISE Fnd_Api.G_EXC_ERROR;
2307: END IF;
2308: IF DPP_DEBUG_HIGH_ON THEN
2309: FND_FILE.PUT_LINE(FND_FILE.LOG,' End form line tbl');
2310: END IF;
2311: EXCEPTION
2312: WHEN Fnd_Api.G_EXC_ERROR THEN
2313: x_return_status := Fnd_Api.g_ret_sts_error ;

Line 2325: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

2321: fnd_message.set_token('ERRNO', SQLCODE);
2322: fnd_message.set_token('REASON', sqlerrm);
2323: END IF;
2324: x_msg_data := fnd_message.get();
2325: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2326: END form_line_tbl;
2327:
2328: PROCEDURE Update_HeaderLog(
2329: p_txn_header_rec_type IN OUT nocopy txn_header_rec

Line 2350: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update HeaderLog');

2346: -- Initialize API return status to sucess
2347: x_return_status := fnd_api.g_ret_sts_success;
2348:
2349: IF DPP_DEBUG_HIGH_ON THEN
2350: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update HeaderLog');
2351: END IF;
2352:
2353: IF p_txn_header_rec_type.supplier_approved_by IS NULL THEN
2354: l_txn_hdr_hist_rec.log_mode := 'I';

Line 2419: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update HeaderLog');

2415: ,x_msg_data => x_msg_data
2416: ,p_txn_hdr_rec => l_txn_hdr_hist_rec
2417: );
2418: IF DPP_DEBUG_HIGH_ON THEN
2419: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update HeaderLog');
2420: END IF;
2421: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2422: RAISE Fnd_Api.g_exc_error;
2423: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN

Line 2440: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

2436: fnd_message.set_token('ERRNO', SQLCODE);
2437: fnd_message.set_token('REASON', sqlerrm);
2438: END IF;
2439: x_msg_data := fnd_message.get();
2440: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2441: END Update_HeaderLog;
2442:
2443: PROCEDURE Update_LinesLog(
2444: p_txn_lines_tbl_type IN OUT nocopy txn_lines_tbl

Line 2463: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update LinesLog');

2459: --SAVEPOINT DPP_Update_LinesLog;
2460: -- Initialize API return status to sucess
2461: x_return_status := fnd_api.g_ret_sts_success;
2462: IF DPP_DEBUG_HIGH_ON THEN
2463: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update LinesLog');
2464: END IF;
2465: FOR i in p_txn_lines_tbl_type.FIRST..p_txn_lines_tbl_type.LAST
2466: LOOP
2467: IF p_txn_lines_tbl_type(i).approved_inventory IS NULL THEN

Line 2554: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update LinesLog');

2550: ,p_txn_lines_tbl => l_txn_line_hist_tbl
2551: );
2552:
2553: IF DPP_DEBUG_HIGH_ON THEN
2554: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update LinesLog');
2555: END IF;
2556: IF x_return_status = Fnd_Api.g_ret_sts_error THEN
2557: RAISE Fnd_Api.g_exc_error;
2558: ELSIF x_return_status = Fnd_Api.g_ret_sts_unexp_error THEN

Line 2575: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

2571: fnd_message.set_token('ERRNO', SQLCODE);
2572: fnd_message.set_token('REASON', sqlerrm);
2573: END IF;
2574: x_msg_data := fnd_message.get();
2575: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2576: END Update_LinesLog;
2577:
2578: PROCEDURE Update_InterfaceTbl(
2579: p_txn_header_rec_type IN OUT nocopy txn_header_rec

Line 2593: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update InterfaceTbl');

2589: -- Initialize API return status to sucess
2590: x_return_status := fnd_api.g_ret_sts_success;
2591:
2592: IF DPP_DEBUG_HIGH_ON THEN
2593: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update InterfaceTbl');
2594: END IF;
2595: --Update Interface Header table
2596: UPDATE DPP_TXN_HEADERS_INT_ALL dtha
2597: SET

Line 2624: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update InterfaceTbl');

2620: dtla.last_update_login = nvl(l_user_id,0)
2621: WHERE dtla.transaction_int_line_id = p_txn_lines_tbl_type(i).transaction_int_line_id;
2622: END LOOP;--FOR i in p_txn_lines_tbl_type.FIRST..p_txn_lines_tbl_type.LAST
2623: IF DPP_DEBUG_HIGH_ON THEN
2624: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update InterfaceTbl');
2625: END IF;
2626: EXCEPTION
2627: WHEN Fnd_Api.G_EXC_ERROR THEN
2628: x_return_status := Fnd_Api.g_ret_sts_error ;

Line 2641: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);

2637: fnd_message.set_token('ERRNO', SQLCODE);
2638: fnd_message.set_token('REASON', sqlerrm);
2639: END IF;
2640: x_msg_data := fnd_message.get();
2641: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||x_msg_data);
2642: END Update_InterfaceTbl;
2643:
2644:
2645:

Line 2659: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update InterfaceErrSts');

2655: BEGIN
2656: -- Initialize API return status to sucess
2657: x_return_status := fnd_api.g_ret_sts_success;
2658: IF DPP_DEBUG_HIGH_ON THEN
2659: FND_FILE.PUT_LINE(FND_FILE.LOG,' Begin Update InterfaceErrSts');
2660: END IF;
2661:
2662: --Update Interface Header table with error status
2663: UPDATE DPP_TXN_HEADERS_INT_ALL dtha

Line 2688: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update InterfaceErrSts');

2684: END LOOP;
2685: COMMIT;
2686:
2687: IF DPP_DEBUG_HIGH_ON THEN
2688: FND_FILE.PUT_LINE(FND_FILE.LOG,' End Update InterfaceErrSts');
2689: END IF;
2690: EXCEPTION
2691: WHEN Fnd_Api.G_EXC_ERROR THEN
2692: x_return_status := Fnd_Api.g_ret_sts_error ;

Line 2703: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||sqlerrm);

2699: fnd_message.set_token('ROUTINE', 'DPP_TRANSACTION_PVT');
2700: fnd_message.set_token('ERRNO', SQLCODE);
2701: fnd_message.set_token('REASON', sqlerrm);
2702: END IF;
2703: FND_FILE.PUT_LINE(FND_FILE.LOG,' '||sqlerrm);
2704: END Update_InterfaceLineErrSts;
2705:
2706: ---------------------------------------------------------------------
2707: -- PROCEDURE

Line 2779: fnd_file.put_line(fnd_file.log, 'Begin Insert Transaction ' );

2775: x_return_status := fnd_api.g_ret_sts_success;
2776:
2777:
2778: IF DPP_DEBUG_HIGH_ON THEN
2779: fnd_file.put_line(fnd_file.log, 'Begin Insert Transaction ' );
2780: END IF;
2781:
2782: SELECT fnd_profile.VALUE('DPP_AUDIT_ENABLED')
2783: INTO l_log_enabled

Line 2787: fnd_file.put_line(fnd_file.log, 'Audit Enabled '||l_log_enabled );

2783: INTO l_log_enabled
2784: FROM dual;
2785:
2786: IF DPP_DEBUG_HIGH_ON THEN
2787: fnd_file.put_line(fnd_file.log, 'Audit Enabled '||l_log_enabled );
2788: END IF;
2789:
2790: --fetch records from dpp_txn_headers_int_all table
2791: FOR fetch_header_rec IN fetch_header_cur

Line 2877: fnd_file.put_line(fnd_file.log, 'Validate Ref Document Number Return Status: '||l_return_status ||'Error Msg: '||x_msg_data);

2873: ,x_return_status => l_return_status
2874: );
2875: dpp_utility_pvt.debug_message('Ref Doc Num Status :'||l_return_status);
2876: IF DPP_DEBUG_HIGH_ON THEN
2877: fnd_file.put_line(fnd_file.log, 'Validate Ref Document Number Return Status: '||l_return_status ||'Error Msg: '||x_msg_data);
2878: END IF;
2879: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2880: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
2881: Update_InterfaceErrSts(

Line 2899: fnd_file.put_line(fnd_file.log, 'Validate Operating Unit Return Status: '||l_txn_header_rec_type.org_id ||l_return_status ||'Error Msg: '||x_msg_data);

2895: ,x_return_status => l_return_status
2896: );
2897: dpp_utility_pvt.debug_message('Operating Unit Status :'||l_return_status);
2898: IF DPP_DEBUG_HIGH_ON THEN
2899: fnd_file.put_line(fnd_file.log, 'Validate Operating Unit Return Status: '||l_txn_header_rec_type.org_id ||l_return_status ||'Error Msg: '||x_msg_data);
2900: END IF;
2901:
2902: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2903: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;

Line 2921: fnd_file.put_line(fnd_file.log, 'Validate Supplier Details Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

2917: ,x_return_status => l_return_status
2918: );
2919: dpp_utility_pvt.debug_message('Supplier Details Status :'||l_return_status);
2920: IF DPP_DEBUG_HIGH_ON THEN
2921: fnd_file.put_line(fnd_file.log, 'Validate Supplier Details Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
2922: END IF;
2923: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2924: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
2925: ROLLBACK TO DPP_Insert_Transaction;

Line 2941: fnd_file.put_line(fnd_file.log, 'Validate Currency Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

2937: ,x_return_status => l_return_status
2938: );
2939: dpp_utility_pvt.debug_message('Currency Status :'||l_return_status);
2940: IF DPP_DEBUG_HIGH_ON THEN
2941: fnd_file.put_line(fnd_file.log, 'Validate Currency Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
2942: END IF;
2943: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2944: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
2945: Update_InterfaceErrSts(

Line 2958: fnd_file.put_line(fnd_file.log, 'Validate Line Details Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

2954: ,x_return_status => l_return_status
2955: );
2956: dpp_utility_pvt.debug_message('Validate Lines Status :'||l_return_status);
2957: IF DPP_DEBUG_HIGH_ON THEN
2958: fnd_file.put_line(fnd_file.log, 'Validate Line Details Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
2959: END IF;
2960: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2961: ROLLBACK TO DPP_Insert_Transaction;
2962: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;

Line 3025: fnd_file.put_line(fnd_file.log, ' Inbound Price Protection Transaction ' );

3021: --Check transaction type
3022: IF l_transaction_type = 'INB' THEN
3023: IF l_transaction_status IS NULL OR l_transaction_status = l_status_cancelled THEN
3024: IF DPP_DEBUG_HIGH_ON THEN
3025: fnd_file.put_line(fnd_file.log, ' Inbound Price Protection Transaction ' );
3026: END IF;
3027: dpp_utility_pvt.debug_message('New Transaction');
3028:
3029: IF l_concatenated_error_message IS NOT NULL THEN

Line 3040: fnd_file.put_line(fnd_file.log, 'Create Header Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

3036: ,x_return_status => l_return_status
3037: );
3038: dpp_utility_pvt.debug_message('Create Header Status :'||l_return_status);
3039: IF DPP_DEBUG_HIGH_ON THEN
3040: fnd_file.put_line(fnd_file.log, 'Create Header Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
3041: END IF;
3042: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3043: ROLLBACK TO DPP_Insert_Transaction;
3044: Update_InterfaceErrSts(

Line 3060: fnd_file.put_line(fnd_file.log, 'Update Header Log Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

3056: ,x_msg_data => x_msg_data
3057: ,x_return_status => l_return_status
3058: );
3059: IF DPP_DEBUG_HIGH_ON THEN
3060: fnd_file.put_line(fnd_file.log, 'Update Header Log Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
3061: END IF;
3062:
3063: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3064: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;

Line 3077: fnd_file.put_line(fnd_file.log, 'Form Line Tbl Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

3073: ,x_return_status => l_return_status
3074: );
3075: dpp_utility_pvt.debug_message('Form Line Tbl Status :'||l_return_status);
3076: IF DPP_DEBUG_HIGH_ON THEN
3077: fnd_file.put_line(fnd_file.log, 'Form Line Tbl Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
3078: END IF;
3079: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3080: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3081: Update_InterfaceLineErrSts(

Line 3098: fnd_file.put_line(fnd_file.log, 'Validate SupplierPartNum Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

3094: ,x_return_status => l_return_status
3095: );
3096: dpp_utility_pvt.debug_message('Supplier Part Num Status :'||l_return_status);
3097: IF DPP_DEBUG_HIGH_ON THEN
3098: fnd_file.put_line(fnd_file.log, 'Validate SupplierPartNum Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
3099: dpp_utility_pvt.debug_message('Validate SupplierPartNum Return Status:'||l_return_status ||'Error Msg'||substr(x_msg_data,1,1000));
3100: END IF;
3101:
3102: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN

Line 3125: fnd_file.put_line(fnd_file.log, 'Create Lines Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

3121: ,x_return_status => l_return_status
3122: );
3123: dpp_utility_pvt.debug_message('Create Lines Status :'||l_return_status);
3124: IF DPP_DEBUG_HIGH_ON THEN
3125: fnd_file.put_line(fnd_file.log, 'Create Lines Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
3126: END IF;
3127: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3128: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3129: ROLLBACK TO DPP_Insert_Transaction;

Line 3146: fnd_file.put_line(fnd_file.log, 'Update Lines Log Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

3142: ,x_msg_data => x_msg_data
3143: ,x_return_status => l_return_status
3144: );
3145: IF DPP_DEBUG_HIGH_ON THEN
3146: fnd_file.put_line(fnd_file.log, 'Update Lines Log Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
3147: END IF;
3148: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3149: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3150: Update_InterfaceLineErrSts(

Line 3171: fnd_file.put_line(fnd_file.log, 'Update Covered Inventory Return Status:'||l_return_status);

3167: ,x_return_status => l_return_status
3168: );
3169: dpp_utility_pvt.debug_message('Update CoveredInv Status :'||l_return_status);
3170: IF DPP_DEBUG_HIGH_ON THEN
3171: fnd_file.put_line(fnd_file.log, 'Update Covered Inventory Return Status:'||l_return_status);
3172: END IF;
3173: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3174: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3175: ROLLBACK TO DPP_Insert_Transaction;

Line 3194: fnd_file.put_line(fnd_file.log, 'Error:' || x_msg_data);

3190: x_msg_data := fnd_message.get();
3191: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3192: l_txn_header_rec_type.error_code := 'DPP_TRANSACTION_EXIST';
3193: IF DPP_DEBUG_HIGH_ON THEN
3194: fnd_file.put_line(fnd_file.log, 'Error:' || x_msg_data);
3195: END IF;
3196: dpp_utility_pvt.debug_message('Transaction Exist Status :'||l_return_status);
3197: Update_InterfaceErrSts(
3198: p_txn_header_rec_type => l_txn_header_rec_type

Line 3211: fnd_file.put_line(fnd_file.log, x_msg_data);

3207: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3208: fnd_message.set_token('TRANSACTION_NUMBER', l_txn_header_rec_type.transaction_number);
3209: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3210: x_msg_data := fnd_message.get();
3211: fnd_file.put_line(fnd_file.log, x_msg_data);
3212:
3213: IF l_concatenated_error_message IS NOT NULL THEN
3214: x_msg_data := 'The Transaction for the supplier name '||l_txn_header_rec_type.vendor_name ||
3215: ',Supplier site '||l_txn_header_rec_type.vendor_site_code ||' and Operating Unit Name '||l_txn_header_rec_type.operating_unit_name || ' failed.' ||l_concatenated_error_message;

Line 3248: fnd_file.put_line(fnd_file.log, 'Inbound Approval Transaction');

3244: );
3245: -- RAISE Fnd_Api.g_exc_error;
3246: END IF;
3247: IF DPP_DEBUG_HIGH_ON THEN
3248: fnd_file.put_line(fnd_file.log, 'Inbound Approval Transaction');
3249: END IF;
3250: IF l_concatenated_error_message IS NOT NULL THEN
3251: x_msg_data:= l_concatenated_error_message;
3252: RAISE Fnd_Api.g_exc_error;

Line 3263: fnd_file.put_line(fnd_file.log, 'Form Line Tbl Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

3259: ,x_msg_data => x_msg_data
3260: ,x_return_status => l_return_status
3261: );
3262: IF DPP_DEBUG_HIGH_ON THEN
3263: fnd_file.put_line(fnd_file.log, 'Form Line Tbl Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
3264: END IF;
3265: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3266: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3267: ROLLBACK TO DPP_Insert_Transaction;

Line 3283: fnd_file.put_line(fnd_file.log, 'Validate SupplierPartNum Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

3279: ,x_msg_data => x_msg_data
3280: ,x_return_status => l_return_status
3281: );
3282: IF DPP_DEBUG_HIGH_ON THEN
3283: fnd_file.put_line(fnd_file.log, 'Validate SupplierPartNum Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
3284: END IF;
3285:
3286: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3287: IF DPP_DEBUG_HIGH_ON THEN

Line 3288: fnd_file.put_line(fnd_file.log, 'Invalid Supplier part number/Item Number/Inventory Item Id.Status:'||l_return_status ||'Error Msg'||x_msg_data);

3284: END IF;
3285:
3286: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3287: IF DPP_DEBUG_HIGH_ON THEN
3288: fnd_file.put_line(fnd_file.log, 'Invalid Supplier part number/Item Number/Inventory Item Id.Status:'||l_return_status ||'Error Msg'||x_msg_data);
3289: END IF;
3290: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3291: Update_InterfaceLineErrSts(
3292: p_txn_header_rec_type => l_txn_header_rec_type,

Line 3308: fnd_file.put_line(fnd_file.log, 'Update Approval Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

3304: ,x_msg_data => x_msg_data
3305: ,x_return_status => l_return_status
3306: );
3307: IF DPP_DEBUG_HIGH_ON THEN
3308: fnd_file.put_line(fnd_file.log, 'Update Approval Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
3309: END IF;
3310: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3311: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3312: ROLLBACK TO DPP_Insert_Transaction;

Line 3337: fnd_file.put_line(fnd_file.log, 'Update Header Log Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

3333: ,x_msg_data => x_msg_data
3334: ,x_return_status => l_return_status
3335: );
3336: IF DPP_DEBUG_HIGH_ON THEN
3337: fnd_file.put_line(fnd_file.log, 'Update Header Log Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
3338: END IF;
3339: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3340: --RAISE Fnd_Api.g_exc_error;
3341: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;

Line 3351: fnd_file.put_line(fnd_file.log, 'Update Lines Log Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

3347: ,x_msg_data => x_msg_data
3348: ,x_return_status => l_return_status
3349: );
3350: IF DPP_DEBUG_HIGH_ON THEN
3351: fnd_file.put_line(fnd_file.log, 'Update Lines Log Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
3352: END IF;
3353: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3354: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3355: --RAISE Fnd_Api.g_exc_error;

Line 3376: fnd_file.put_line(fnd_file.log, 'Update Claims Approval Return Status:'||l_return_status ||'Error Msg'||x_msg_data);

3372: ,x_msg_data => x_msg_data
3373: ,x_return_status => l_return_status
3374: );
3375: IF DPP_DEBUG_HIGH_ON THEN
3376: fnd_file.put_line(fnd_file.log, 'Update Claims Approval Return Status:'||l_return_status ||'Error Msg'||x_msg_data);
3377: END IF;
3378: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3379: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3380: ROLLBACK TO DPP_Insert_Transaction;

Line 3393: fnd_file.put_line(fnd_file.log, x_msg_data);

3389: fnd_message.set_token('SUPPLIER_SITE', l_txn_header_rec_type.vendor_site_code);
3390: fnd_message.set_token('OPERATING_UNIT', l_txn_header_rec_type.operating_unit_name);
3391: fnd_message.set_token('DOC_REF_NO', l_txn_header_rec_type.ref_document_number);
3392: x_msg_data := fnd_message.get();
3393: fnd_file.put_line(fnd_file.log, x_msg_data);
3394: END IF; --l_transaction_type = 'INB'
3395: --Call procedure to update interface tables (header )
3396: Update_InterfaceTbl (
3397: p_txn_header_rec_type =>l_txn_header_rec_type

Line 3404: fnd_file.put_line(fnd_file.log, 'Update Interface Table Return Status: '||l_return_status ||'Error Msg '||x_msg_data);

3400: ,x_msg_data =>x_msg_data
3401: ,x_return_status => l_return_status
3402: );
3403: IF DPP_DEBUG_HIGH_ON THEN
3404: fnd_file.put_line(fnd_file.log, 'Update Interface Table Return Status: '||l_return_status ||'Error Msg '||x_msg_data);
3405: END IF;
3406: IF l_return_status = Fnd_Api.g_ret_sts_error OR l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3407: l_concatenated_error_message :=l_concatenated_error_message|| x_msg_data;
3408: ROLLBACK TO DPP_Insert_Transaction;

Line 4773: fnd_file.put_line(fnd_file.log,('=================================='));

4769: retcode := 0;
4770: ------------------------------------------
4771: -- Initialization
4772: ------------------------------------------
4773: fnd_file.put_line(fnd_file.log,('=================================='));
4774: fnd_file.put_line(fnd_file.log,('INITIALIZATION'));
4775: fnd_file.put_line(fnd_file.log,('USER : ' || ' (' || l_user_id || ')'));
4776: fnd_file.put_line(fnd_file.log,('ORG : ' || SUBSTR(userenv('CLIENT_INFO'), 1, 10)));
4777: fnd_file.put_line(fnd_file.log,('=================================='));

Line 4774: fnd_file.put_line(fnd_file.log,('INITIALIZATION'));

4770: ------------------------------------------
4771: -- Initialization
4772: ------------------------------------------
4773: fnd_file.put_line(fnd_file.log,('=================================='));
4774: fnd_file.put_line(fnd_file.log,('INITIALIZATION'));
4775: fnd_file.put_line(fnd_file.log,('USER : ' || ' (' || l_user_id || ')'));
4776: fnd_file.put_line(fnd_file.log,('ORG : ' || SUBSTR(userenv('CLIENT_INFO'), 1, 10)));
4777: fnd_file.put_line(fnd_file.log,('=================================='));
4778:

Line 4775: fnd_file.put_line(fnd_file.log,('USER : ' || ' (' || l_user_id || ')'));

4771: -- Initialization
4772: ------------------------------------------
4773: fnd_file.put_line(fnd_file.log,('=================================='));
4774: fnd_file.put_line(fnd_file.log,('INITIALIZATION'));
4775: fnd_file.put_line(fnd_file.log,('USER : ' || ' (' || l_user_id || ')'));
4776: fnd_file.put_line(fnd_file.log,('ORG : ' || SUBSTR(userenv('CLIENT_INFO'), 1, 10)));
4777: fnd_file.put_line(fnd_file.log,('=================================='));
4778:
4779: IF DPP_DEBUG_HIGH_ON THEN

Line 4776: fnd_file.put_line(fnd_file.log,('ORG : ' || SUBSTR(userenv('CLIENT_INFO'), 1, 10)));

4772: ------------------------------------------
4773: fnd_file.put_line(fnd_file.log,('=================================='));
4774: fnd_file.put_line(fnd_file.log,('INITIALIZATION'));
4775: fnd_file.put_line(fnd_file.log,('USER : ' || ' (' || l_user_id || ')'));
4776: fnd_file.put_line(fnd_file.log,('ORG : ' || SUBSTR(userenv('CLIENT_INFO'), 1, 10)));
4777: fnd_file.put_line(fnd_file.log,('=================================='));
4778:
4779: IF DPP_DEBUG_HIGH_ON THEN
4780: fnd_file.put_line(fnd_file.log, 'Begin Create Transaction');

Line 4777: fnd_file.put_line(fnd_file.log,('=================================='));

4773: fnd_file.put_line(fnd_file.log,('=================================='));
4774: fnd_file.put_line(fnd_file.log,('INITIALIZATION'));
4775: fnd_file.put_line(fnd_file.log,('USER : ' || ' (' || l_user_id || ')'));
4776: fnd_file.put_line(fnd_file.log,('ORG : ' || SUBSTR(userenv('CLIENT_INFO'), 1, 10)));
4777: fnd_file.put_line(fnd_file.log,('=================================='));
4778:
4779: IF DPP_DEBUG_HIGH_ON THEN
4780: fnd_file.put_line(fnd_file.log, 'Begin Create Transaction');
4781: fnd_file.put_line(fnd_file.log, '************************');

Line 4780: fnd_file.put_line(fnd_file.log, 'Begin Create Transaction');

4776: fnd_file.put_line(fnd_file.log,('ORG : ' || SUBSTR(userenv('CLIENT_INFO'), 1, 10)));
4777: fnd_file.put_line(fnd_file.log,('=================================='));
4778:
4779: IF DPP_DEBUG_HIGH_ON THEN
4780: fnd_file.put_line(fnd_file.log, 'Begin Create Transaction');
4781: fnd_file.put_line(fnd_file.log, '************************');
4782: fnd_file.put_line(fnd_file.log, ' Supplier Name:' || p_supplier_name
4783: ||' Supplier Site:' || p_supplier_site
4784: ||' Ref Document Number:' || p_document_reference_number

Line 4781: fnd_file.put_line(fnd_file.log, '************************');

4777: fnd_file.put_line(fnd_file.log,('=================================='));
4778:
4779: IF DPP_DEBUG_HIGH_ON THEN
4780: fnd_file.put_line(fnd_file.log, 'Begin Create Transaction');
4781: fnd_file.put_line(fnd_file.log, '************************');
4782: fnd_file.put_line(fnd_file.log, ' Supplier Name:' || p_supplier_name
4783: ||' Supplier Site:' || p_supplier_site
4784: ||' Ref Document Number:' || p_document_reference_number
4785: ||' Operating Unit: ' || p_operating_unit);

Line 4782: fnd_file.put_line(fnd_file.log, ' Supplier Name:' || p_supplier_name

4778:
4779: IF DPP_DEBUG_HIGH_ON THEN
4780: fnd_file.put_line(fnd_file.log, 'Begin Create Transaction');
4781: fnd_file.put_line(fnd_file.log, '************************');
4782: fnd_file.put_line(fnd_file.log, ' Supplier Name:' || p_supplier_name
4783: ||' Supplier Site:' || p_supplier_site
4784: ||' Ref Document Number:' || p_document_reference_number
4785: ||' Operating Unit: ' || p_operating_unit);
4786: END IF;

Line 4821: fnd_file.put_line(fnd_file.log, 'Vendor Id '||l_supplier_id

4817: FROM hr_operating_units
4818: WHERE name = p_operating_unit;
4819: END IF;
4820: IF DPP_DEBUG_HIGH_ON THEN
4821: fnd_file.put_line(fnd_file.log, 'Vendor Id '||l_supplier_id
4822: ||' Supplier Site ID '||l_supplier_site_id
4823: || ' Org ID '||l_org_id);
4824: END IF;
4825:

Line 4827: fnd_file.put_line(fnd_file.log, 'Error in deriving ID for the parameters');

4823: || ' Org ID '||l_org_id);
4824: END IF;
4825:
4826: EXCEPTION WHEN NO_DATA_FOUND THEN
4827: fnd_file.put_line(fnd_file.log, 'Error in deriving ID for the parameters');
4828: RAISE Fnd_Api.G_EXC_ERROR;
4829: END;
4830:
4831: FOR transaction_rec IN transaction_cur(p_document_reference_number,p_supplier_name,l_supplier_id,

Line 4835: fnd_file.put_line(fnd_file.log, 'Call Insert Transaction p_transaction_int_header_id:'||transaction_rec.transaction_int_header_id);

4831: FOR transaction_rec IN transaction_cur(p_document_reference_number,p_supplier_name,l_supplier_id,
4832: p_supplier_site,l_supplier_site_id,p_operating_unit,l_org_id)
4833: LOOP
4834: IF DPP_DEBUG_HIGH_ON THEN
4835: fnd_file.put_line(fnd_file.log, 'Call Insert Transaction p_transaction_int_header_id:'||transaction_rec.transaction_int_header_id);
4836: END IF;
4837: BEGIN
4838: UPDATE dpp_txn_headers_int_all dtha
4839: SET dtha.program_id = l_program_id,

Line 4852: fnd_file.put_line(fnd_file.log, 'Error in updating request id into the table.');

4848: dtla.request_id = l_request_id,
4849: dtla.program_update_date = sysdate
4850: WHERE dtla.transaction_int_header_id = transaction_rec.transaction_int_header_id;
4851: EXCEPTION WHEN OTHERS THEN
4852: fnd_file.put_line(fnd_file.log, 'Error in updating request id into the table.');
4853: RAISE Fnd_Api.G_EXC_ERROR;
4854: END;
4855: dpp_utility_pvt.debug_message('Call Insert Transaction p_transaction_int_header_id:'||transaction_rec.transaction_int_header_id);
4856: DPP_TRANSACTION_PVT.Insert_Transaction(

Line 4869: fnd_file.put_line(fnd_file.log,l_msg_data);

4865: , x_msg_data =>l_msg_data
4866: ) ;
4867:
4868: IF l_return_status IN ('E','U') THEN
4869: fnd_file.put_line(fnd_file.log,l_msg_data);
4870: l_line_count := l_line_count + 1;
4871: /*IF DPP_DEBUG_HIGH_ON THEN
4872: fnd_file.put_line(fnd_file.log, '************************');
4873: fnd_file.put_line(fnd_file.log, ' Message: '||l_msg_data);

Line 4872: fnd_file.put_line(fnd_file.log, '************************');

4868: IF l_return_status IN ('E','U') THEN
4869: fnd_file.put_line(fnd_file.log,l_msg_data);
4870: l_line_count := l_line_count + 1;
4871: /*IF DPP_DEBUG_HIGH_ON THEN
4872: fnd_file.put_line(fnd_file.log, '************************');
4873: fnd_file.put_line(fnd_file.log, ' Message: '||l_msg_data);
4874: fnd_file.put_line(fnd_file.log, '************************');
4875: END IF;*/
4876: END IF;

Line 4873: fnd_file.put_line(fnd_file.log, ' Message: '||l_msg_data);

4869: fnd_file.put_line(fnd_file.log,l_msg_data);
4870: l_line_count := l_line_count + 1;
4871: /*IF DPP_DEBUG_HIGH_ON THEN
4872: fnd_file.put_line(fnd_file.log, '************************');
4873: fnd_file.put_line(fnd_file.log, ' Message: '||l_msg_data);
4874: fnd_file.put_line(fnd_file.log, '************************');
4875: END IF;*/
4876: END IF;
4877: l_row_count := l_row_count +1;

Line 4874: fnd_file.put_line(fnd_file.log, '************************');

4870: l_line_count := l_line_count + 1;
4871: /*IF DPP_DEBUG_HIGH_ON THEN
4872: fnd_file.put_line(fnd_file.log, '************************');
4873: fnd_file.put_line(fnd_file.log, ' Message: '||l_msg_data);
4874: fnd_file.put_line(fnd_file.log, '************************');
4875: END IF;*/
4876: END IF;
4877: l_row_count := l_row_count +1;
4878: END LOOP;

Line 4879: fnd_file.put_line(fnd_file.log, ' No of Records Processed : '||l_row_count);

4875: END IF;*/
4876: END IF;
4877: l_row_count := l_row_count +1;
4878: END LOOP;
4879: fnd_file.put_line(fnd_file.log, ' No of Records Processed : '||l_row_count);
4880: fnd_file.put_line(fnd_file.log, ' No of Error Records : '||l_line_count);
4881: fnd_file.put_line(fnd_file.log, ' No of Success Records : '||(l_row_count-l_line_count));
4882:
4883:

Line 4880: fnd_file.put_line(fnd_file.log, ' No of Error Records : '||l_line_count);

4876: END IF;
4877: l_row_count := l_row_count +1;
4878: END LOOP;
4879: fnd_file.put_line(fnd_file.log, ' No of Records Processed : '||l_row_count);
4880: fnd_file.put_line(fnd_file.log, ' No of Error Records : '||l_line_count);
4881: fnd_file.put_line(fnd_file.log, ' No of Success Records : '||(l_row_count-l_line_count));
4882:
4883:
4884: dpp_utility_pvt.debug_message(' No of Records Processed : '||l_row_count

Line 4881: fnd_file.put_line(fnd_file.log, ' No of Success Records : '||(l_row_count-l_line_count));

4877: l_row_count := l_row_count +1;
4878: END LOOP;
4879: fnd_file.put_line(fnd_file.log, ' No of Records Processed : '||l_row_count);
4880: fnd_file.put_line(fnd_file.log, ' No of Error Records : '||l_line_count);
4881: fnd_file.put_line(fnd_file.log, ' No of Success Records : '||(l_row_count-l_line_count));
4882:
4883:
4884: dpp_utility_pvt.debug_message(' No of Records Processed : '||l_row_count
4885: ||' No of Error Records : '||l_line_count

Line 4889: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Records selected for Processing');

4885: ||' No of Error Records : '||l_line_count
4886: ||' No of Success Records : '||(l_row_count-l_line_count));
4887:
4888: IF l_row_count = 0 THEN
4889: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Records selected for Processing');
4890: END IF;
4891: IF l_line_count = 0 OR l_row_count = 0 THEN
4892: retcode := 0;
4893: errbuf :='Normal';

Line 4904: FND_FILE.PUT_LINE(FND_FILE.LOG,'End Create Transaction');

4900: END IF;
4901: dpp_utility_pvt.debug_message('DPP EXCEPTION l_msg_data:' ||l_msg_data);
4902:
4903: IF DPP_DEBUG_HIGH_ON THEN
4904: FND_FILE.PUT_LINE(FND_FILE.LOG,'End Create Transaction');
4905: END IF;
4906:
4907: EXCEPTION
4908: WHEN Fnd_Api.G_EXC_ERROR THEN