[Home] [Help]
23: ------------------------------------------------------------
24: l_debug_info := 'Validate GL Date with params p_source_date ' || p_source_date || ' , p_valid_inv_gl_date ' || p_valid_inv_gl_date || ' ,p_source_item ' || p_source_item;
25: ------------------------------------------------------------
26: IF g_debug_switch = 'Y' THEN
27: fnd_file.put_line(fnd_file.log, l_debug_info);
28: END IF;
29:
30: BEGIN
31:
48: ----------------------------------
49: l_debug_info := p_source_item || ' GL Period status: ' || l_gl_period_status;
50: ----------------------------------
51: IF g_debug_switch = 'Y' THEN
52: fnd_file.put_line(fnd_file.log, l_debug_info);
53: END IF;
54:
55:
56: IF l_gl_period_status IS NOT NULL AND (l_gl_period_status = 'O' OR l_gl_period_status = 'F') THEN
58: ----------------------------------
59: l_debug_info := p_source_item || ' GL Date is in Valid Period';
60: ----------------------------------
61: IF g_debug_switch = 'Y' THEN
62: fnd_file.put_line(fnd_file.log, l_debug_info);
63: END IF;
64: p_open_gl_date := p_source_date;
65:
66: ELSIF l_gl_period_status IS NOT NULL AND l_gl_period_status = 'N' THEN
68: ----------------------------------
69: l_debug_info := p_source_item || ' GL Date is in Never Opened Period, Rejecting the expense report';
70: ----------------------------------
71: IF g_debug_switch = 'Y' THEN
72: fnd_file.put_line(fnd_file.log, l_debug_info);
73: END IF;
74:
75: p_reject_code := 'GL Date in Closed Period';
76:
79: ----------------------------------
80: l_debug_info := p_source_item || ' GL Date is in the closed period or GL period status is null. Getting new GL Date';
81: ----------------------------------
82: IF g_debug_switch = 'Y' THEN
83: fnd_file.put_line(fnd_file.log, l_debug_info);
84: END IF;
85:
86: IF p_valid_inv_gl_date IS NOT NULL THEN
87: p_open_gl_date := p_valid_inv_gl_date;
116: EXCEPTION
117: WHEN OTHERS THEN
118: p_reject_code := substr(SQLCODE,1,25);
119: IF g_debug_switch = 'Y' THEN
120: fnd_file.put_line(fnd_file.log, SQLERRM);
121: END IF;
122: END ValidateGLDate;
123:
124: --------------------------
221: ------------------------------------------------------------
222: l_debug_info := 'End UpdateDistsWithReceiptInfo';
223: ------------------------------------------------------------
224: IF g_debug_switch = 'Y' THEN
225: fnd_file.put_line(fnd_file.log, l_debug_info);
226: END IF;
227:
228: EXCEPTION
229: WHEN OTHERS THEN
230: ------------------------------------------------------------
231: l_debug_info := 'Exception in UpdateDistsWithReceiptInfo' || SQLERRM;
232: ------------------------------------------------------------
233: IF g_debug_switch = 'Y' THEN
234: fnd_file.put_line(fnd_file.log, l_debug_info);
235: END IF;
236: END UpdateDistsWithReceiptInfo;
237:
238: ------------------------------------------------------------------------
618:
619:
620:
621: IF g_debug_switch = 'Y' THEN
622: fnd_file.put_line(fnd_file.log, 'p_batch_name = ' || p_batch_name);
623: END IF;
624:
625: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
626:
627: ------------------------------------------------------------
628: l_debug_info := 'Get Batch Name if not unique';
629: ------------------------------------------------------------
630: IF g_debug_switch = 'Y' THEN
631: fnd_file.put_line(fnd_file.log, l_debug_info);
632: END IF;
633:
634: FND_PROFILE.GET('AP_USE_INV_BATCH_CONTROLS', l_batch_control_flag);
635:
666: ------------------------------------------------------------
667: l_debug_info := 'Batch Name = ' || l_batch_name;
668: ------------------------------------------------------------
669: IF g_debug_switch = 'Y' THEN
670: fnd_file.put_line(fnd_file.log, l_debug_info);
671: END IF;
672:
673: ------------------------------------------------------------
674: l_debug_info := 'Begin Receipts Management - Holds';
672:
673: ------------------------------------------------------------
674: l_debug_info := 'Begin Receipts Management - Holds';
675: ------------------------------------------------------------
676: fnd_file.put_line(fnd_file.log, l_debug_info);
677:
678: AP_WEB_HOLDS_WF.ExpenseHolds;
679:
680: ------------------------------------------------------------
680: ------------------------------------------------------------
681: l_debug_info := 'End Receipts Management - Holds';
682: ------------------------------------------------------------
683: IF g_debug_switch = 'Y' THEN
684: fnd_file.put_line(fnd_file.log, l_debug_info);
685: END IF;
686:
687: ------------------------------------------------------------
688: l_debug_info := 'Begin Processing Individual expense reports';
686:
687: ------------------------------------------------------------
688: l_debug_info := 'Begin Processing Individual expense reports';
689: ------------------------------------------------------------
690: fnd_file.put_line(fnd_file.log, l_debug_info);
691:
692: OPEN c_expenses_to_import(p_source);
693:
694: LOOP
695:
696: ------------------------------------------------------------
697: l_debug_info := 'Fetching expense report...';
698: ------------------------------------------------------------
699: fnd_file.put_line(fnd_file.log, l_debug_info);
700:
701: FETCH c_expenses_to_import
702: INTO l_invoice_rec;
703:
714:
715: l_expenses_fetched := l_expenses_fetched + 1;
716: l_reject_code := NULL;
717:
718: fnd_file.put_line(fnd_file.log,
719: 'Expense Report Number : **'||l_invoice_rec.invoice_num||'**');
720:
721: IF l_invoice_rec.org_id <> NVL(l_org_id, -3115) THEN
722:
725: ------------------------------------------------------------
726: l_debug_info := 'Get the system parameters';
727: ------------------------------------------------------------
728: IF g_debug_switch = 'Y' THEN
729: fnd_file.put_line(fnd_file.log, l_debug_info);
730: END IF;
731:
732: OPEN c_system_params(l_org_id);
733: FETCH c_system_params
750: IF l_employee_terms_id < 0 THEN
751: ---------------------------------------------------------------------------
752: l_debug_info := 'employee terms id is < 0 in system parameters. Aborting.';
753: ---------------------------------------------------------------------------
754: fnd_file.put_line(fnd_file.log, l_debug_info);
755:
756: raise batch_failure;
757: END IF;
758:
760: ----------------------------------
761: l_debug_info := 'Validate Vendor';
762: ----------------------------------
763: IF g_debug_switch = 'Y' THEN
764: fnd_file.put_line(fnd_file.log, l_debug_info);
765: END IF;
766:
767: vendor_valid_flag := AP_WEB_DB_PO_INT_PKG.IsVendorValid(l_invoice_rec.header_vendor_id);
768:
770: ---------------------------------------------------------------
771: l_debug_info := 'Inactive vendor *' ||
772: to_char(l_invoice_rec.header_vendor_id) || '*';
773: ---------------------------------------------------------------
774: fnd_file.put_line(fnd_file.log, l_debug_info);
775:
776: l_reject_code := 'Inactive vendor';
777: raise validation_failed;
778: END IF;
790: -------------------------------------------------------------------
791: l_debug_info := 'Validate Site if employee is a contingent worker';
792: -------------------------------------------------------------------
793: IF g_debug_switch = 'Y' THEN
794: fnd_file.put_line(fnd_file.log, l_debug_info);
795: END IF;
796:
797: IF l_invoice_rec.header_vendor_site_id is NULL THEN
798: -------------------------------------
797: IF l_invoice_rec.header_vendor_site_id is NULL THEN
798: -------------------------------------
799: l_debug_info := 'NULL vendor site *';
800: -------------------------------------
801: fnd_file.put_line(fnd_file.log, l_debug_info);
802:
803: l_reject_code := 'Inactive site';
804: raise validation_failed;
805: END IF;
813: --------------------------------------------------------------------
814: l_debug_info := 'Inactive site *' ||
815: to_char(l_invoice_rec.header_vendor_site_id) || '*';
816: --------------------------------------------------------------------
817: fnd_file.put_line(fnd_file.log, l_debug_info);
818:
819: l_reject_code := 'Inactive site';
820: raise validation_failed;
821: END IF;
823: --------------------------------------------------------------------
824: l_debug_info := 'Set the description field for a contingent worker';
825: --------------------------------------------------------------------
826: IF g_debug_switch = 'Y' THEN
827: fnd_file.put_line(fnd_file.log, l_debug_info);
828: END IF;
829:
830: FND_MESSAGE.SET_NAME('SQLAP', 'OIE_REMITTANCE_DESC');
831: FND_MESSAGE.Set_Token('PAID_ON_BEHALF_OF', l_invoice_rec.name);
842: ---------------------------------------------------
843: l_debug_info := 'Validation for Project Expenses ';
844: ---------------------------------------------------
845: IF g_debug_switch = 'Y' THEN
846: fnd_file.put_line(fnd_file.log, l_debug_info);
847: END IF;
848:
849: IF l_invoice_rec.employee_id = -1 THEN
850: l_reject_code := 'Invalid employee';
855: --------------------------------------------------------------
856: l_debug_info := 'Invalid SOB *' ||
857: to_char(l_invoice_rec.set_of_books_id) || '*';
858: --------------------------------------------------------------
859: fnd_file.put_line(fnd_file.log, l_debug_info);
860:
861: l_reject_code := 'Invalid set of books';
862: raise validation_failed;
863: END IF;
867: -------------------------------------------------
868: l_debug_info := 'Validate/Set the doc sequence';
869: -------------------------------------------------
870: IF g_debug_switch = 'Y' THEN
871: fnd_file.put_line(fnd_file.log, l_debug_info);
872: END IF;
873:
874: FND_PROFILE.GET('UNIQUE:SEQ_NUMBERS', l_seq_profile);
875: -------------------------------------------------
939: ----------------------------------
940: l_debug_info := 'Set the GL Date';
941: ----------------------------------
942: IF g_debug_switch = 'Y' THEN
943: fnd_file.put_line(fnd_file.log, l_debug_info);
944: END IF;
945:
946: IF l_gl_date_flag IN ('I', 'N') THEN
947: l_invoice_rec.gl_date := l_invoice_rec.week_end_date;
963: ----------------------------------
964: l_debug_info := 'Checking GL Period status for the set Invoice GL Date: ' || l_invoice_rec.gl_date;
965: ----------------------------------
966: IF g_debug_switch = 'Y' THEN
967: fnd_file.put_line(fnd_file.log, l_debug_info);
968: END IF;
969:
970: ValidateGLDate(l_invoice_rec.gl_date,
971: null,
982: -------------------------------------------------------------------
983: l_debug_info := 'Final Invoice GL Date: ' || l_invoice_rec.gl_date;
984: -------------------------------------------------------------------
985: IF g_debug_switch = 'Y' THEN
986: fnd_file.put_line(fnd_file.log, l_debug_info);
987: END IF;
988:
989: IF (l_invoice_rec.source = 'XpenseXpress') THEN
990: ----------------------------------
990: ----------------------------------
991: l_debug_info := 'Checking GL Period status for the set Prepayment GL Date: ' || l_invoice_rec.prepay_gl_date;
992: ----------------------------------
993: IF g_debug_switch = 'Y' THEN
994: fnd_file.put_line(fnd_file.log, l_debug_info);
995: END IF;
996:
997: ValidateGLDate(l_invoice_rec.prepay_gl_date,
998: l_invoice_rec.gl_date,
1009: -----------------------------------------------------------------------------
1010: l_debug_info := 'Final Prepayment GL Date: ' || l_invoice_rec.prepay_gl_date;
1011: -----------------------------------------------------------------------------
1012: IF g_debug_switch = 'Y' THEN
1013: fnd_file.put_line(fnd_file.log, l_debug_info);
1014: END IF;
1015: ELSE -- Bug#7278445 - Prepayment GL Date defaulting is done by AP
1016: -----------------------------------------------------------------------------
1017: l_debug_info := 'As source is not XpenseXpress Resetting Prepay GL date to Null since Prepay GL date defaulting is done by Payables';
1016: -----------------------------------------------------------------------------
1017: l_debug_info := 'As source is not XpenseXpress Resetting Prepay GL date to Null since Prepay GL date defaulting is done by Payables';
1018: -----------------------------------------------------------------------------
1019: IF g_debug_switch = 'Y' THEN
1020: fnd_file.put_line(fnd_file.log, l_debug_info);
1021: END IF;
1022: l_invoice_rec.prepay_gl_date := NULL;
1023: END IF;
1024:
1025: ----------------------------------------
1026: l_debug_info := 'Set the Exchange Rate';
1027: ----------------------------------------
1028: IF g_debug_switch = 'Y' THEN
1029: fnd_file.put_line(fnd_file.log, l_debug_info);
1030: END IF;
1031:
1032: IF l_base_currency = l_invoice_rec.default_currency_code THEN
1033: l_invoice_rec.default_exchange_rate := -1;
1046: ----------------------------------------
1047: l_debug_info := 'Set the Base Amount';
1048: ----------------------------------------
1049: IF g_debug_switch = 'Y' THEN
1050: fnd_file.put_line(fnd_file.log, l_debug_info);
1051: END IF;
1052:
1053: IF l_base_currency = l_invoice_rec.default_currency_code THEN
1054: l_invoice_rec.base_amount := '';
1069: ----------------------------------------
1070: l_debug_info := 'Set the Address flag';
1071: ----------------------------------------
1072: IF g_debug_switch = 'Y' THEN
1073: fnd_file.put_line(fnd_file.log, l_debug_info);
1074: END IF;
1075:
1076: --Bug#7207375 - Allow payment of Expense Report to Temporary Address
1077: l_invoice_rec.home_or_office := nvl(l_invoice_rec.home_or_office,l_address_flag);
1089: ---------------------------------------
1090: l_debug_info := 'Set the Invoice Type';
1091: ---------------------------------------
1092: IF g_debug_switch = 'Y' THEN
1093: fnd_file.put_line(fnd_file.log, l_debug_info);
1094: END IF;
1095:
1096: IF l_invoice_rec.source not IN
1097: ('XpenseXpress', 'SelfService', 'Both Pay', 'CREDIT CARD',
1118: ---------------------------------------------------------------------
1119: l_debug_info := 'Call procedure to query and validate expense lines';
1120: ---------------------------------------------------------------------
1121: IF g_debug_switch = 'Y' THEN
1122: fnd_file.put_line(fnd_file.log, l_debug_info);
1123: END IF;
1124:
1125: SELECT AP_INVOICES_INTERFACE_S.nextval
1126: INTO l_invoice_rec.invoice_id
1134: ----------------------------------------------------------------
1135: l_debug_info := 'Get/validate the vendor_id and vendor_site_id';
1136: ----------------------------------------------------------------
1137: IF g_debug_switch = 'Y' THEN
1138: fnd_file.put_line(fnd_file.log, l_debug_info);
1139: END IF;
1140:
1141: l_vendor_rec.vendor_id := l_invoice_rec.vendor_id;
1142: l_vendor_rec.vendor_site_id := l_invoice_rec.header_vendor_site_id;
1173: ----------------------------------
1174: l_debug_info := 'Get Vendor Info';
1175: ----------------------------------
1176: IF g_debug_switch = 'Y' THEN
1177: fnd_file.put_line(fnd_file.log, l_debug_info);
1178: END IF;
1179:
1180: IF NOT GetVendorInfo(l_vendor_rec,
1181: l_reject_code) THEN
1193: -------------------------------------------
1194: l_debug_info := 'Get the Payment Scenario';
1195: -------------------------------------------
1196: IF g_debug_switch = 'Y' THEN
1197: fnd_file.put_line(fnd_file.log, l_debug_info);
1198: END IF;
1199:
1200: l_payment_due_from := '';
1201:
1213: l_debug_info := 'Calling Reversal Logic for payment scenario ' ||
1214: l_payment_due_from;
1215: -----------------------------------------------------------------
1216: IF g_debug_switch = 'Y' THEN
1217: fnd_file.put_line(fnd_file.log, l_debug_info);
1218: END IF;
1219:
1220: l_total := AP_CREDIT_CARD_INVOICE_PKG.createCreditCardReversals(l_invoice_rec.invoice_id,
1221: l_invoice_rec.report_header_id,
1231: ---------------------------------------------------------
1232: l_debug_info := 'Create the Payee if one does not exist';
1233: ---------------------------------------------------------
1234: IF g_debug_switch = 'Y' THEN
1235: fnd_file.put_line(fnd_file.log, l_debug_info);
1236: END IF;
1237:
1238: IF NOT CreatePayee(l_vendor_rec.party_id,
1239: l_vendor_rec.org_id,
1255: ----------------------------------------------------------
1256: l_debug_info := 'Check if the employee is contingent worker';
1257: ----------------------------------------------------------
1258: IF g_debug_switch = 'Y' THEN
1259: fnd_file.put_line(fnd_file.log, l_debug_info);
1260: END IF;
1261:
1262: l_is_contigent_worker := AP_WEB_DB_HR_INT_PKG.IsPersonCwk(l_invoice_rec.employee_id);
1263:
1267: l_debug_info := 'Employee is not contingent worker, checking if it is active or not';
1268: ----------------------------------------------------------
1269:
1270: IF g_debug_switch = 'Y' THEN
1271: fnd_file.put_line(fnd_file.log, l_debug_info);
1272: END IF;
1273:
1274: l_is_active_employee := 'N';
1275:
1292: l_debug_info := 'Active Employee = ' || l_is_active_employee;
1293: ----------------------------------------------------------
1294:
1295: IF g_debug_switch = 'Y' THEN
1296: fnd_file.put_line(fnd_file.log, l_debug_info);
1297: END IF;
1298:
1299: IF l_is_active_employee = 'N' THEN
1300:
1310: l_debug_info := 'Employee is contingent worker';
1311: ----------------------------------------------------------
1312:
1313: IF g_debug_switch = 'Y' THEN
1314: fnd_file.put_line(fnd_file.log, l_debug_info);
1315: END IF;
1316:
1317: END IF;
1318:
1320: ----------------------------------------------------------
1321: l_debug_info := 'Check the Default Payment Method';
1322: ----------------------------------------------------------
1323: IF g_debug_switch = 'Y' THEN
1324: fnd_file.put_line(fnd_file.log, l_debug_info);
1325: END IF;
1326:
1327: if (l_invoice_rec.payment_method_code is null) then
1328:
1329: ----------------------------------------------------------
1330: l_debug_info := 'Get the Default Payment Method';
1331: ----------------------------------------------------------
1332: IF g_debug_switch = 'Y' THEN
1333: fnd_file.put_line(fnd_file.log, l_debug_info);
1334: END IF;
1335:
1336: l_trx_attributes.application_id := 200;
1337:
1338: ----------------------------------------------------------
1339: l_debug_info := 'Getting the legal entity id';
1340: ----------------------------------------------------------
1341: IF g_debug_switch = 'Y' THEN
1342: fnd_file.put_line(fnd_file.log, l_debug_info);
1343: END IF;
1344:
1345:
1346: AP_UTILITIES_PKG.Get_Invoice_LE(
1364: ----------------------------------------------------------
1365: l_debug_info := 'Calling iby_disbursement_comp_pub.get_default_payment_attributes';
1366: ----------------------------------------------------------
1367: IF g_debug_switch = 'Y' THEN
1368: fnd_file.put_line(fnd_file.log, l_debug_info);
1369: END IF;
1370:
1371:
1372: iby_disbursement_comp_pub.get_default_payment_attributes(
1388: l_debug_info := 'Calling get_default_payment_attributes is failed with result ' || l_return_status;
1389: ----------------------------------------------------------
1390:
1391: IF g_debug_switch = 'Y' THEN
1392: fnd_file.put_line(fnd_file.log, l_debug_info);
1393: END IF;
1394:
1395: END IF;
1396:
1399: ----------------------------------------------------------
1400: l_debug_info := 'l_invoice_rec.payment_method_code := '|| l_invoice_rec.payment_method_code;
1401: ----------------------------------------------------------
1402: IF g_debug_switch = 'Y' THEN
1403: fnd_file.put_line(fnd_file.log, l_debug_info);
1404: END IF;
1405:
1406:
1407: ----------------------------------------------------------
1408: l_debug_info := 'Check for apply advance default flag := ' || l_invoice_rec.apply_advances_flag;
1409: ----------------------------------------------------------
1410:
1411: IF g_debug_switch = 'Y' THEN
1412: fnd_file.put_line(fnd_file.log, l_debug_info);
1413: END IF;
1414:
1415: -- Bug: 7329159, Donot reset the advances flag for XpenseXpress
1416: IF nvl(l_invoice_rec.advance_invoice_to_apply, -1) = -1 AND
1420: l_debug_info := 'Rechecking if apply_advance_flag needs to be reset';
1421: ----------------------------------------------------------
1422:
1423: IF g_debug_switch = 'Y' THEN
1424: fnd_file.put_line(fnd_file.log, l_debug_info);
1425: END IF;
1426:
1427: ----------------------------------------------------------
1428: l_debug_info := 'Apply Advance in Payable options := ' || l_sys_apply_advances_flag;
1428: l_debug_info := 'Apply Advance in Payable options := ' || l_sys_apply_advances_flag;
1429: ----------------------------------------------------------
1430:
1431: IF g_debug_switch = 'Y' THEN
1432: fnd_file.put_line(fnd_file.log, l_debug_info);
1433: END IF;
1434:
1435: --------------------------------------------------------------------
1436: l_debug_info := 'Calculate available prepayments for this employee';
1436: l_debug_info := 'Calculate available prepayments for this employee';
1437: --------------------------------------------------------------------
1438:
1439: IF g_debug_switch = 'Y' THEN
1440: fnd_file.put_line(fnd_file.log, l_debug_info);
1441: END IF;
1442:
1443: l_available_prepays := 0;
1444: -- Bug#7440653 - Should not apply advances when invoice total is zero.
1506: l_debug_info := 'Available Prepayment Sign := ' || l_available_prepays;
1507: ----------------------------------------------------------
1508:
1509: IF g_debug_switch = 'Y' THEN
1510: fnd_file.put_line(fnd_file.log, l_debug_info);
1511: END IF;
1512:
1513:
1514: IF l_invoice_rec.apply_advances_flag = 'Y' AND
1519: l_debug_info := 'Resetting the apply advance default to N ';
1520: ----------------------------------------------------------
1521:
1522: IF g_debug_switch = 'Y' THEN
1523: fnd_file.put_line(fnd_file.log, l_debug_info);
1524: END IF;
1525:
1526:
1527: UPDATE ap_expense_report_headers_all
1538: l_debug_info := 'Resetting the apply advance default to Y ';
1539: ----------------------------------------------------------
1540:
1541: IF g_debug_switch = 'Y' THEN
1542: fnd_file.put_line(fnd_file.log, l_debug_info);
1543: END IF;
1544:
1545:
1546: UPDATE ap_expense_report_headers_all
1558: ----------------------------------------------------------
1559: l_debug_info := 'Insert into AP Invoices Interface table';
1560: ----------------------------------------------------------
1561: IF g_debug_switch = 'Y' THEN
1562: fnd_file.put_line(fnd_file.log, l_debug_info);
1563: END IF;
1564:
1565:
1566: InsertInvoiceInterface(l_invoice_rec, l_vendor_rec);
1574: ------------------------------------------------------------
1575: l_debug_info := 'Processing '||l_invoice_rec.source;
1576: ------------------------------------------------------------
1577: IF g_debug_switch = 'Y' THEN
1578: fnd_file.put_line(fnd_file.log, l_debug_info);
1579: END IF;
1580:
1581: ------------------------------------------------------------
1582: l_debug_info := 'Submitting Payment Request';
1581: ------------------------------------------------------------
1582: l_debug_info := 'Submitting Payment Request';
1583: ------------------------------------------------------------
1584: IF g_debug_switch = 'Y' THEN
1585: fnd_file.put_line(fnd_file.log, l_debug_info);
1586: END IF;
1587:
1588: l_cc_invoices_fetched := l_cc_invoices_fetched + 1;
1589: l_rows_to_import := l_rows_to_import - 1;
1604: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1605:
1606: FOR i in l_rejection_list.FIRST .. l_rejection_list.LAST LOOP
1607: l_debug_info := i||' Errors found interfacing data to AP ...';
1608: fnd_file.put_line(fnd_file.log, l_debug_info);
1609: l_debug_info := l_rejection_list(i).reject_lookup_code;
1610: fnd_file.put_line(fnd_file.log, l_debug_info);
1611: l_reject_code := l_rejection_list(i).reject_lookup_code;
1612: END LOOP;
1606: FOR i in l_rejection_list.FIRST .. l_rejection_list.LAST LOOP
1607: l_debug_info := i||' Errors found interfacing data to AP ...';
1608: fnd_file.put_line(fnd_file.log, l_debug_info);
1609: l_debug_info := l_rejection_list(i).reject_lookup_code;
1610: fnd_file.put_line(fnd_file.log, l_debug_info);
1611: l_reject_code := l_rejection_list(i).reject_lookup_code;
1612: END LOOP;
1613:
1614: raise validation_failed;
1624: ------------------------------------------------------------
1625: l_debug_info := 'Update request_id';
1626: ------------------------------------------------------------
1627: IF g_debug_switch = 'Y' THEN
1628: fnd_file.put_line(fnd_file.log, l_debug_info);
1629: END IF;
1630:
1631: UPDATE ap_expense_report_headers_all
1632: SET request_id = l_request_id
1638: ------------------------------------------------------------
1639: l_debug_info := 'Validation failed';
1640: ------------------------------------------------------------
1641: IF g_debug_switch = 'Y' THEN
1642: fnd_file.put_line(fnd_file.log, l_debug_info);
1643: END IF;
1644:
1645: UPDATE ap_expense_report_headers_all
1646: SET reject_code = l_reject_code,
1655:
1656: -------------------------------------------------------------------
1657: l_debug_info := 'Credit Card Expenses Fetched = '|| to_char(l_cc_invoices_fetched);
1658: -------------------------------------------------------------------
1659: fnd_file.put_line(fnd_file.log, l_debug_info);
1660:
1661: -------------------------------------------------------------------
1662: l_debug_info := 'Credit Card Invoices Created = '|| to_char(l_cc_invoices_created);
1663: -------------------------------------------------------------------
1660:
1661: -------------------------------------------------------------------
1662: l_debug_info := 'Credit Card Invoices Created = '|| to_char(l_cc_invoices_created);
1663: -------------------------------------------------------------------
1664: fnd_file.put_line(fnd_file.log, l_debug_info);
1665:
1666: CLOSE c_expenses_to_import;
1667:
1668: IF l_rows_to_import = 0 THEN
1668: IF l_rows_to_import = 0 THEN
1669: ------------------------------------------
1670: l_debug_info := 'No Rows found to import';
1671: ------------------------------------------
1672: fnd_file.put_line(fnd_file.log, l_debug_info);
1673:
1674: ELSE
1675: -----------------------------------------------
1676: l_debug_info := 'Call Payables Open Interface';
1674: ELSE
1675: -----------------------------------------------
1676: l_debug_info := 'Call Payables Open Interface';
1677: -----------------------------------------------
1678: fnd_file.put_line(fnd_file.log, l_debug_info);
1679:
1680: IF (NOT AP_IMPORT_INVOICES_PKG.IMPORT_INVOICES(l_batch_name,
1681: l_invoice_rec.gl_date,
1682: to_char(''),
1695: l_calling_sequence)) THEN
1696: -----------------------------------------------------------------------------------
1697: l_debug_info := 'Call to AP_IMPORT_INVOICES_PKG.IMPORT_INVOICES failed. Aborting.';
1698: -----------------------------------------------------------------------------------
1699: fnd_file.put_line(fnd_file.log, l_debug_info);
1700:
1701: RAISE batch_failure;
1702: END IF;
1703:
1746:
1747: -----------------------------------------------------------------------
1748: l_debug_info := 'Updated ap_expense_report_headers_all for report_header_id = '||to_char(l_report_header_id_list(i))||' with maximum_amount_to_apply = '||to_char(l_actual_adv_applied);
1749: -----------------------------------------------------------------------
1750: fnd_file.put_line(fnd_file.log, l_debug_info);
1751:
1752: END IF;
1753: END IF;
1754:
1799: l_debug_info := 'Invoices that failed Open Interface *' ||
1800: to_char(l_failed_open_interface) || '*';
1801: -----------------------------------------------------------
1802: IF g_debug_switch = 'Y' THEN
1803: fnd_file.put_line(fnd_file.log, l_debug_info);
1804: END IF;
1805:
1806: OPEN c_rejected_invoices(l_request_id);
1807:
1814: l_debug_info := 'Opening cursor for deleting from AP interface tables';
1815: -----------------------------------------------------------------------
1816:
1817: IF g_debug_switch = 'Y' THEN
1818: fnd_file.put_line(fnd_file.log, l_debug_info);
1819: END IF;
1820:
1821: FORALL i IN l_report_header_id_list.FIRST .. l_report_header_id_list.LAST
1822: UPDATE ap_expense_report_headers_all
1855: ----------------------------------------------------------
1856: l_debug_info := 'Purge data from the ap interface tables';
1857: ----------------------------------------------------------
1858: IF g_debug_switch = 'Y' THEN
1859: fnd_file.put_line(fnd_file.log, l_debug_info);
1860: END IF;
1861:
1862: IF (NOT AP_IMPORT_INVOICES_PKG.IMPORT_PURGE(p_source,
1863: p_group_id,
1867:
1868: ----------------------------------------------------------------------
1869: l_debug_info := 'Purge from the ap interface tables failed. Aborting';
1870: ----------------------------------------------------------------------
1871: fnd_file.put_line(fnd_file.log, l_debug_info);
1872: raise batch_failure;
1873: END IF;
1874: END IF; /* l_expenses_fetched <> 0 */
1875:
1876:
1877: -------------------------------------------------------------------
1878: l_debug_info := 'Expenses Fetched = '|| to_char(l_expenses_fetched);
1879: -------------------------------------------------------------------
1880: fnd_file.put_line(fnd_file.log, l_debug_info);
1881:
1882: -------------------------------------------------------------------
1883: l_debug_info := 'Invoices Created = '|| to_char(l_invoices_created);
1884: -------------------------------------------------------------------
1881:
1882: -------------------------------------------------------------------
1883: l_debug_info := 'Invoices Created = '|| to_char(l_invoices_created);
1884: -------------------------------------------------------------------
1885: fnd_file.put_line(fnd_file.log, l_debug_info);
1886:
1887: IF (l_expenses_fetched <> l_invoices_created AND
1888: p_role_name IS NOT NULL )THEN
1889:
1890: ---------------------------------------------------
1891: l_debug_info := 'Call Expenses Rejection Workflow';
1892: ---------------------------------------------------
1893: IF g_debug_switch = 'Y' THEN
1894: fnd_file.put_line(fnd_file.log, l_debug_info);
1895: END IF;
1896:
1897: AP_WEB_EXPORT_WF.RaiseRejectionEvent(l_request_id,
1898: p_role_name );
1901: COMMIT;
1902:
1903: EXCEPTION
1904: WHEN batch_failure THEN
1905: fnd_file.put_line(fnd_file.log, sqlerrm);
1906: rollback;
1907: raise;
1908: WHEN OTHERS THEN
1909: fnd_file.put_line(fnd_file.log, sqlerrm);
1905: fnd_file.put_line(fnd_file.log, sqlerrm);
1906: rollback;
1907: raise;
1908: WHEN OTHERS THEN
1909: fnd_file.put_line(fnd_file.log, sqlerrm);
1910: rollback;
1911: raise;
1912:
1913: END ExportERtoAP;
2064: ------------------------------------------------
2065: l_debug_info := 'Start Exporting Expense Lines';
2066: ------------------------------------------------
2067: IF g_debug_switch = 'Y' THEN
2068: fnd_file.put_line(fnd_file.log, l_debug_info);
2069: END IF;
2070:
2071: OPEN c_expense_lines(p_report_header_id, p_base_currency);
2072:
2081: ---------------------------------------------------------------------------
2082: l_debug_info := 'report_header_id = **'||to_char(p_report_header_id)||'**';
2083: ---------------------------------------------------------------------------
2084: IF g_debug_switch = 'Y' THEN
2085: fnd_file.put_line(fnd_file.log, l_debug_info);
2086: END IF;
2087:
2088: p_invoice_lines_rec_tab(i).invoice_id := p_invoice_id;
2089:
2092: ---------------------------------------------
2093: l_debug_info := 'Validate Line Set Of Books';
2094: ---------------------------------------------
2095: IF g_debug_switch = 'Y' THEN
2096: fnd_file.put_line(fnd_file.log, l_debug_info);
2097: END IF;
2098:
2099: IF p_invoice_lines_rec_tab(i).line_set_of_books_id <> p_set_of_books_id THEN
2100: ---------------------------------------------------------------------------------
2100: ---------------------------------------------------------------------------------
2101: l_debug_info := 'Invalid set of books-line *' ||
2102: to_char(p_invoice_lines_rec_tab(i) .line_set_of_books_id) || '*';
2103: ---------------------------------------------------------------------------------
2104: fnd_file.put_line(fnd_file.log, l_debug_info);
2105:
2106: p_reject_code := 'Invalid set of books-line';
2107: raise line_validation_failed;
2108: END IF;
2134: RETURN(FALSE);
2135: WHEN OTHERS THEN
2136: CLOSE c_expense_lines;
2137: p_reject_code := SQLCODE;
2138: fnd_file.put_line(fnd_file.log, SQLERRM);
2139: RETURN(FALSE);
2140:
2141: END ValidateERLines;
2142:
2370: BEGIN
2371:
2372: IF g_debug_switch = 'Y' THEN
2373: l_debug_info := 'Insert into Invoice Lines Interface, p_invoice_id ' || p_invoice_id || ', p_report_header_id ' || p_report_header_id || ', p_transfer_flag ' || p_transfer_flag || ', p_enable_recoverable_flag ' || p_enable_recoverable_flag;
2374: fnd_file.put_line(fnd_file.log, l_debug_info);
2375: END IF;
2376: INSERT INTO AP_INVOICE_LINES_INTERFACE
2377: (INVOICE_ID,
2378: APPLICATION_ID,
2584:
2585:
2586: IF g_debug_switch = 'Y' THEN
2587: l_debug_info := 'Done Insert into Invoice Lines Interface';
2588: fnd_file.put_line(fnd_file.log, l_debug_info);
2589: END IF;
2590: END InsertInvoiceLinesInterface;
2591:
2592: PROCEDURE PrintVendorInfo(p_vendor_rec IN VendorInfoRecType) IS
2593: l_debug_info VARCHAR2(2000);
2594: BEGIN
2595: IF g_debug_switch = 'Y' THEN
2596: l_debug_info := '>p_vendor_rec.vendor_id := '||p_vendor_rec.vendor_id;
2597: fnd_file.put_line(fnd_file.log, l_debug_info);
2598: l_debug_info := '>p_vendor_rec.vendor_site_id := '||p_vendor_rec.vendor_site_id;
2599: fnd_file.put_line(fnd_file.log, l_debug_info);
2600: l_debug_info := '>p_vendor_rec.home_or_office := '||p_vendor_rec.home_or_office;
2601: fnd_file.put_line(fnd_file.log, l_debug_info);
2595: IF g_debug_switch = 'Y' THEN
2596: l_debug_info := '>p_vendor_rec.vendor_id := '||p_vendor_rec.vendor_id;
2597: fnd_file.put_line(fnd_file.log, l_debug_info);
2598: l_debug_info := '>p_vendor_rec.vendor_site_id := '||p_vendor_rec.vendor_site_id;
2599: fnd_file.put_line(fnd_file.log, l_debug_info);
2600: l_debug_info := '>p_vendor_rec.home_or_office := '||p_vendor_rec.home_or_office;
2601: fnd_file.put_line(fnd_file.log, l_debug_info);
2602: l_debug_info := '>p_vendor_rec.employee_id := '||p_vendor_rec.employee_id;
2603: fnd_file.put_line(fnd_file.log, l_debug_info);
2597: fnd_file.put_line(fnd_file.log, l_debug_info);
2598: l_debug_info := '>p_vendor_rec.vendor_site_id := '||p_vendor_rec.vendor_site_id;
2599: fnd_file.put_line(fnd_file.log, l_debug_info);
2600: l_debug_info := '>p_vendor_rec.home_or_office := '||p_vendor_rec.home_or_office;
2601: fnd_file.put_line(fnd_file.log, l_debug_info);
2602: l_debug_info := '>p_vendor_rec.employee_id := '||p_vendor_rec.employee_id;
2603: fnd_file.put_line(fnd_file.log, l_debug_info);
2604: l_debug_info := '>p_vendor_rec.vendor_name := '||p_vendor_rec.vendor_name;
2605: fnd_file.put_line(fnd_file.log, l_debug_info);
2599: fnd_file.put_line(fnd_file.log, l_debug_info);
2600: l_debug_info := '>p_vendor_rec.home_or_office := '||p_vendor_rec.home_or_office;
2601: fnd_file.put_line(fnd_file.log, l_debug_info);
2602: l_debug_info := '>p_vendor_rec.employee_id := '||p_vendor_rec.employee_id;
2603: fnd_file.put_line(fnd_file.log, l_debug_info);
2604: l_debug_info := '>p_vendor_rec.vendor_name := '||p_vendor_rec.vendor_name;
2605: fnd_file.put_line(fnd_file.log, l_debug_info);
2606: l_debug_info := '>p_vendor_rec.org_id := '||p_vendor_rec.org_id;
2607: fnd_file.put_line(fnd_file.log, l_debug_info);
2601: fnd_file.put_line(fnd_file.log, l_debug_info);
2602: l_debug_info := '>p_vendor_rec.employee_id := '||p_vendor_rec.employee_id;
2603: fnd_file.put_line(fnd_file.log, l_debug_info);
2604: l_debug_info := '>p_vendor_rec.vendor_name := '||p_vendor_rec.vendor_name;
2605: fnd_file.put_line(fnd_file.log, l_debug_info);
2606: l_debug_info := '>p_vendor_rec.org_id := '||p_vendor_rec.org_id;
2607: fnd_file.put_line(fnd_file.log, l_debug_info);
2608: l_debug_info := '>p_vendor_rec.address_line_1 := '||p_vendor_rec.address_line_1;
2609: fnd_file.put_line(fnd_file.log, l_debug_info);
2603: fnd_file.put_line(fnd_file.log, l_debug_info);
2604: l_debug_info := '>p_vendor_rec.vendor_name := '||p_vendor_rec.vendor_name;
2605: fnd_file.put_line(fnd_file.log, l_debug_info);
2606: l_debug_info := '>p_vendor_rec.org_id := '||p_vendor_rec.org_id;
2607: fnd_file.put_line(fnd_file.log, l_debug_info);
2608: l_debug_info := '>p_vendor_rec.address_line_1 := '||p_vendor_rec.address_line_1;
2609: fnd_file.put_line(fnd_file.log, l_debug_info);
2610: l_debug_info := '>p_vendor_rec.address_line_2 := '||p_vendor_rec.address_line_2;
2611: fnd_file.put_line(fnd_file.log, l_debug_info);
2605: fnd_file.put_line(fnd_file.log, l_debug_info);
2606: l_debug_info := '>p_vendor_rec.org_id := '||p_vendor_rec.org_id;
2607: fnd_file.put_line(fnd_file.log, l_debug_info);
2608: l_debug_info := '>p_vendor_rec.address_line_1 := '||p_vendor_rec.address_line_1;
2609: fnd_file.put_line(fnd_file.log, l_debug_info);
2610: l_debug_info := '>p_vendor_rec.address_line_2 := '||p_vendor_rec.address_line_2;
2611: fnd_file.put_line(fnd_file.log, l_debug_info);
2612: l_debug_info := '>p_vendor_rec.address_line_3 := '||p_vendor_rec.address_line_3;
2613: fnd_file.put_line(fnd_file.log, l_debug_info);
2607: fnd_file.put_line(fnd_file.log, l_debug_info);
2608: l_debug_info := '>p_vendor_rec.address_line_1 := '||p_vendor_rec.address_line_1;
2609: fnd_file.put_line(fnd_file.log, l_debug_info);
2610: l_debug_info := '>p_vendor_rec.address_line_2 := '||p_vendor_rec.address_line_2;
2611: fnd_file.put_line(fnd_file.log, l_debug_info);
2612: l_debug_info := '>p_vendor_rec.address_line_3 := '||p_vendor_rec.address_line_3;
2613: fnd_file.put_line(fnd_file.log, l_debug_info);
2614: l_debug_info := '>p_vendor_rec.city := '||p_vendor_rec.city;
2615: fnd_file.put_line(fnd_file.log, l_debug_info);
2609: fnd_file.put_line(fnd_file.log, l_debug_info);
2610: l_debug_info := '>p_vendor_rec.address_line_2 := '||p_vendor_rec.address_line_2;
2611: fnd_file.put_line(fnd_file.log, l_debug_info);
2612: l_debug_info := '>p_vendor_rec.address_line_3 := '||p_vendor_rec.address_line_3;
2613: fnd_file.put_line(fnd_file.log, l_debug_info);
2614: l_debug_info := '>p_vendor_rec.city := '||p_vendor_rec.city;
2615: fnd_file.put_line(fnd_file.log, l_debug_info);
2616: l_debug_info := '>p_vendor_rec.state := '||p_vendor_rec.state;
2617: fnd_file.put_line(fnd_file.log, l_debug_info);
2611: fnd_file.put_line(fnd_file.log, l_debug_info);
2612: l_debug_info := '>p_vendor_rec.address_line_3 := '||p_vendor_rec.address_line_3;
2613: fnd_file.put_line(fnd_file.log, l_debug_info);
2614: l_debug_info := '>p_vendor_rec.city := '||p_vendor_rec.city;
2615: fnd_file.put_line(fnd_file.log, l_debug_info);
2616: l_debug_info := '>p_vendor_rec.state := '||p_vendor_rec.state;
2617: fnd_file.put_line(fnd_file.log, l_debug_info);
2618: l_debug_info := '>p_vendor_rec.postal_code := '||p_vendor_rec.postal_code;
2619: fnd_file.put_line(fnd_file.log, l_debug_info);
2613: fnd_file.put_line(fnd_file.log, l_debug_info);
2614: l_debug_info := '>p_vendor_rec.city := '||p_vendor_rec.city;
2615: fnd_file.put_line(fnd_file.log, l_debug_info);
2616: l_debug_info := '>p_vendor_rec.state := '||p_vendor_rec.state;
2617: fnd_file.put_line(fnd_file.log, l_debug_info);
2618: l_debug_info := '>p_vendor_rec.postal_code := '||p_vendor_rec.postal_code;
2619: fnd_file.put_line(fnd_file.log, l_debug_info);
2620: l_debug_info := '>p_vendor_rec.province := '||p_vendor_rec.province;
2621: fnd_file.put_line(fnd_file.log, l_debug_info);
2615: fnd_file.put_line(fnd_file.log, l_debug_info);
2616: l_debug_info := '>p_vendor_rec.state := '||p_vendor_rec.state;
2617: fnd_file.put_line(fnd_file.log, l_debug_info);
2618: l_debug_info := '>p_vendor_rec.postal_code := '||p_vendor_rec.postal_code;
2619: fnd_file.put_line(fnd_file.log, l_debug_info);
2620: l_debug_info := '>p_vendor_rec.province := '||p_vendor_rec.province;
2621: fnd_file.put_line(fnd_file.log, l_debug_info);
2622: l_debug_info := '>p_vendor_rec.county := '||p_vendor_rec.county;
2623: fnd_file.put_line(fnd_file.log, l_debug_info);
2617: fnd_file.put_line(fnd_file.log, l_debug_info);
2618: l_debug_info := '>p_vendor_rec.postal_code := '||p_vendor_rec.postal_code;
2619: fnd_file.put_line(fnd_file.log, l_debug_info);
2620: l_debug_info := '>p_vendor_rec.province := '||p_vendor_rec.province;
2621: fnd_file.put_line(fnd_file.log, l_debug_info);
2622: l_debug_info := '>p_vendor_rec.county := '||p_vendor_rec.county;
2623: fnd_file.put_line(fnd_file.log, l_debug_info);
2624: l_debug_info := '>p_vendor_rec.country := '||p_vendor_rec.country;
2625: fnd_file.put_line(fnd_file.log, l_debug_info);
2619: fnd_file.put_line(fnd_file.log, l_debug_info);
2620: l_debug_info := '>p_vendor_rec.province := '||p_vendor_rec.province;
2621: fnd_file.put_line(fnd_file.log, l_debug_info);
2622: l_debug_info := '>p_vendor_rec.county := '||p_vendor_rec.county;
2623: fnd_file.put_line(fnd_file.log, l_debug_info);
2624: l_debug_info := '>p_vendor_rec.country := '||p_vendor_rec.country;
2625: fnd_file.put_line(fnd_file.log, l_debug_info);
2626: l_debug_info := '>p_vendor_rec.style := '||p_vendor_rec.style;
2627: fnd_file.put_line(fnd_file.log, l_debug_info);
2621: fnd_file.put_line(fnd_file.log, l_debug_info);
2622: l_debug_info := '>p_vendor_rec.county := '||p_vendor_rec.county;
2623: fnd_file.put_line(fnd_file.log, l_debug_info);
2624: l_debug_info := '>p_vendor_rec.country := '||p_vendor_rec.country;
2625: fnd_file.put_line(fnd_file.log, l_debug_info);
2626: l_debug_info := '>p_vendor_rec.style := '||p_vendor_rec.style;
2627: fnd_file.put_line(fnd_file.log, l_debug_info);
2628:
2629: l_debug_info := '>p_vendor_rec.pay_group := '||p_vendor_rec.pay_group;
2623: fnd_file.put_line(fnd_file.log, l_debug_info);
2624: l_debug_info := '>p_vendor_rec.country := '||p_vendor_rec.country;
2625: fnd_file.put_line(fnd_file.log, l_debug_info);
2626: l_debug_info := '>p_vendor_rec.style := '||p_vendor_rec.style;
2627: fnd_file.put_line(fnd_file.log, l_debug_info);
2628:
2629: l_debug_info := '>p_vendor_rec.pay_group := '||p_vendor_rec.pay_group;
2630: fnd_file.put_line(fnd_file.log, l_debug_info);
2631: l_debug_info := '>p_vendor_rec.terms_date_basis := '||p_vendor_rec.terms_date_basis;
2626: l_debug_info := '>p_vendor_rec.style := '||p_vendor_rec.style;
2627: fnd_file.put_line(fnd_file.log, l_debug_info);
2628:
2629: l_debug_info := '>p_vendor_rec.pay_group := '||p_vendor_rec.pay_group;
2630: fnd_file.put_line(fnd_file.log, l_debug_info);
2631: l_debug_info := '>p_vendor_rec.terms_date_basis := '||p_vendor_rec.terms_date_basis;
2632: fnd_file.put_line(fnd_file.log, l_debug_info);
2633: l_debug_info := '>p_vendor_rec.liab_acc := '||p_vendor_rec.liab_acc;
2634: fnd_file.put_line(fnd_file.log, l_debug_info);
2628:
2629: l_debug_info := '>p_vendor_rec.pay_group := '||p_vendor_rec.pay_group;
2630: fnd_file.put_line(fnd_file.log, l_debug_info);
2631: l_debug_info := '>p_vendor_rec.terms_date_basis := '||p_vendor_rec.terms_date_basis;
2632: fnd_file.put_line(fnd_file.log, l_debug_info);
2633: l_debug_info := '>p_vendor_rec.liab_acc := '||p_vendor_rec.liab_acc;
2634: fnd_file.put_line(fnd_file.log, l_debug_info);
2635: l_debug_info := '>p_vendor_rec.terms_id := '||p_vendor_rec.terms_id;
2636: fnd_file.put_line(fnd_file.log, l_debug_info);
2630: fnd_file.put_line(fnd_file.log, l_debug_info);
2631: l_debug_info := '>p_vendor_rec.terms_date_basis := '||p_vendor_rec.terms_date_basis;
2632: fnd_file.put_line(fnd_file.log, l_debug_info);
2633: l_debug_info := '>p_vendor_rec.liab_acc := '||p_vendor_rec.liab_acc;
2634: fnd_file.put_line(fnd_file.log, l_debug_info);
2635: l_debug_info := '>p_vendor_rec.terms_id := '||p_vendor_rec.terms_id;
2636: fnd_file.put_line(fnd_file.log, l_debug_info);
2637: l_debug_info := '>p_vendor_rec.payment_priority := '||p_vendor_rec.payment_priority;
2638: fnd_file.put_line(fnd_file.log, l_debug_info);
2632: fnd_file.put_line(fnd_file.log, l_debug_info);
2633: l_debug_info := '>p_vendor_rec.liab_acc := '||p_vendor_rec.liab_acc;
2634: fnd_file.put_line(fnd_file.log, l_debug_info);
2635: l_debug_info := '>p_vendor_rec.terms_id := '||p_vendor_rec.terms_id;
2636: fnd_file.put_line(fnd_file.log, l_debug_info);
2637: l_debug_info := '>p_vendor_rec.payment_priority := '||p_vendor_rec.payment_priority;
2638: fnd_file.put_line(fnd_file.log, l_debug_info);
2639: l_debug_info := '>p_vendor_rec.prepay_ccid := '||p_vendor_rec.prepay_ccid;
2640: fnd_file.put_line(fnd_file.log, l_debug_info);
2634: fnd_file.put_line(fnd_file.log, l_debug_info);
2635: l_debug_info := '>p_vendor_rec.terms_id := '||p_vendor_rec.terms_id;
2636: fnd_file.put_line(fnd_file.log, l_debug_info);
2637: l_debug_info := '>p_vendor_rec.payment_priority := '||p_vendor_rec.payment_priority;
2638: fnd_file.put_line(fnd_file.log, l_debug_info);
2639: l_debug_info := '>p_vendor_rec.prepay_ccid := '||p_vendor_rec.prepay_ccid;
2640: fnd_file.put_line(fnd_file.log, l_debug_info);
2641: l_debug_info := '>p_vendor_rec.always_take_disc_flag := '||p_vendor_rec.always_take_disc_flag;
2642: fnd_file.put_line(fnd_file.log, l_debug_info);
2636: fnd_file.put_line(fnd_file.log, l_debug_info);
2637: l_debug_info := '>p_vendor_rec.payment_priority := '||p_vendor_rec.payment_priority;
2638: fnd_file.put_line(fnd_file.log, l_debug_info);
2639: l_debug_info := '>p_vendor_rec.prepay_ccid := '||p_vendor_rec.prepay_ccid;
2640: fnd_file.put_line(fnd_file.log, l_debug_info);
2641: l_debug_info := '>p_vendor_rec.always_take_disc_flag := '||p_vendor_rec.always_take_disc_flag;
2642: fnd_file.put_line(fnd_file.log, l_debug_info);
2643: l_debug_info := '>p_vendor_rec.pay_date_basis := '||p_vendor_rec.pay_date_basis;
2644: fnd_file.put_line(fnd_file.log, l_debug_info);
2638: fnd_file.put_line(fnd_file.log, l_debug_info);
2639: l_debug_info := '>p_vendor_rec.prepay_ccid := '||p_vendor_rec.prepay_ccid;
2640: fnd_file.put_line(fnd_file.log, l_debug_info);
2641: l_debug_info := '>p_vendor_rec.always_take_disc_flag := '||p_vendor_rec.always_take_disc_flag;
2642: fnd_file.put_line(fnd_file.log, l_debug_info);
2643: l_debug_info := '>p_vendor_rec.pay_date_basis := '||p_vendor_rec.pay_date_basis;
2644: fnd_file.put_line(fnd_file.log, l_debug_info);
2645: l_debug_info := '>p_vendor_rec.vendor_num := '||p_vendor_rec.vendor_num;
2646: fnd_file.put_line(fnd_file.log, l_debug_info);
2640: fnd_file.put_line(fnd_file.log, l_debug_info);
2641: l_debug_info := '>p_vendor_rec.always_take_disc_flag := '||p_vendor_rec.always_take_disc_flag;
2642: fnd_file.put_line(fnd_file.log, l_debug_info);
2643: l_debug_info := '>p_vendor_rec.pay_date_basis := '||p_vendor_rec.pay_date_basis;
2644: fnd_file.put_line(fnd_file.log, l_debug_info);
2645: l_debug_info := '>p_vendor_rec.vendor_num := '||p_vendor_rec.vendor_num;
2646: fnd_file.put_line(fnd_file.log, l_debug_info);
2647: l_debug_info := '>p_vendor_rec.allow_awt_flag := '||p_vendor_rec.allow_awt_flag;
2648: fnd_file.put_line(fnd_file.log, l_debug_info);
2642: fnd_file.put_line(fnd_file.log, l_debug_info);
2643: l_debug_info := '>p_vendor_rec.pay_date_basis := '||p_vendor_rec.pay_date_basis;
2644: fnd_file.put_line(fnd_file.log, l_debug_info);
2645: l_debug_info := '>p_vendor_rec.vendor_num := '||p_vendor_rec.vendor_num;
2646: fnd_file.put_line(fnd_file.log, l_debug_info);
2647: l_debug_info := '>p_vendor_rec.allow_awt_flag := '||p_vendor_rec.allow_awt_flag;
2648: fnd_file.put_line(fnd_file.log, l_debug_info);
2649: l_debug_info := '>p_vendor_rec.party_id := '||p_vendor_rec.party_id;
2650: fnd_file.put_line(fnd_file.log, l_debug_info);
2644: fnd_file.put_line(fnd_file.log, l_debug_info);
2645: l_debug_info := '>p_vendor_rec.vendor_num := '||p_vendor_rec.vendor_num;
2646: fnd_file.put_line(fnd_file.log, l_debug_info);
2647: l_debug_info := '>p_vendor_rec.allow_awt_flag := '||p_vendor_rec.allow_awt_flag;
2648: fnd_file.put_line(fnd_file.log, l_debug_info);
2649: l_debug_info := '>p_vendor_rec.party_id := '||p_vendor_rec.party_id;
2650: fnd_file.put_line(fnd_file.log, l_debug_info);
2651: END IF;
2652: END PrintVendorInfo;
2646: fnd_file.put_line(fnd_file.log, l_debug_info);
2647: l_debug_info := '>p_vendor_rec.allow_awt_flag := '||p_vendor_rec.allow_awt_flag;
2648: fnd_file.put_line(fnd_file.log, l_debug_info);
2649: l_debug_info := '>p_vendor_rec.party_id := '||p_vendor_rec.party_id;
2650: fnd_file.put_line(fnd_file.log, l_debug_info);
2651: END IF;
2652: END PrintVendorInfo;
2653:
2654: PROCEDURE PrintVendorSiteInfo(p_vendor_site_rec IN AP_VENDOR_PUB_PKG.r_vendor_site_rec_type) IS
2655: l_debug_info VARCHAR2(2000);
2656: BEGIN
2657: IF g_debug_switch = 'Y' THEN
2658: l_debug_info := '>p_vendor_site_rec.vendor_id := '||p_vendor_site_rec.vendor_id;
2659: fnd_file.put_line(fnd_file.log, l_debug_info);
2660: l_debug_info := '>p_vendor_site_rec.org_id := '||p_vendor_site_rec.org_id;
2661: fnd_file.put_line(fnd_file.log, l_debug_info);
2662: l_debug_info := '>p_vendor_site_rec.org_name := '||p_vendor_site_rec.org_name;
2663: fnd_file.put_line(fnd_file.log, l_debug_info);
2657: IF g_debug_switch = 'Y' THEN
2658: l_debug_info := '>p_vendor_site_rec.vendor_id := '||p_vendor_site_rec.vendor_id;
2659: fnd_file.put_line(fnd_file.log, l_debug_info);
2660: l_debug_info := '>p_vendor_site_rec.org_id := '||p_vendor_site_rec.org_id;
2661: fnd_file.put_line(fnd_file.log, l_debug_info);
2662: l_debug_info := '>p_vendor_site_rec.org_name := '||p_vendor_site_rec.org_name;
2663: fnd_file.put_line(fnd_file.log, l_debug_info);
2664: l_debug_info := '>p_vendor_site_rec.vendor_site_code := '||p_vendor_site_rec.vendor_site_code;
2665: fnd_file.put_line(fnd_file.log, l_debug_info);
2659: fnd_file.put_line(fnd_file.log, l_debug_info);
2660: l_debug_info := '>p_vendor_site_rec.org_id := '||p_vendor_site_rec.org_id;
2661: fnd_file.put_line(fnd_file.log, l_debug_info);
2662: l_debug_info := '>p_vendor_site_rec.org_name := '||p_vendor_site_rec.org_name;
2663: fnd_file.put_line(fnd_file.log, l_debug_info);
2664: l_debug_info := '>p_vendor_site_rec.vendor_site_code := '||p_vendor_site_rec.vendor_site_code;
2665: fnd_file.put_line(fnd_file.log, l_debug_info);
2666: l_debug_info := '>p_vendor_site_rec.pay_site_flag := '||p_vendor_site_rec.pay_site_flag;
2667: fnd_file.put_line(fnd_file.log, l_debug_info);
2661: fnd_file.put_line(fnd_file.log, l_debug_info);
2662: l_debug_info := '>p_vendor_site_rec.org_name := '||p_vendor_site_rec.org_name;
2663: fnd_file.put_line(fnd_file.log, l_debug_info);
2664: l_debug_info := '>p_vendor_site_rec.vendor_site_code := '||p_vendor_site_rec.vendor_site_code;
2665: fnd_file.put_line(fnd_file.log, l_debug_info);
2666: l_debug_info := '>p_vendor_site_rec.pay_site_flag := '||p_vendor_site_rec.pay_site_flag;
2667: fnd_file.put_line(fnd_file.log, l_debug_info);
2668: l_debug_info := '>p_vendor_site_rec.address_line1 := '||p_vendor_site_rec.address_line1;
2669: fnd_file.put_line(fnd_file.log, l_debug_info);
2663: fnd_file.put_line(fnd_file.log, l_debug_info);
2664: l_debug_info := '>p_vendor_site_rec.vendor_site_code := '||p_vendor_site_rec.vendor_site_code;
2665: fnd_file.put_line(fnd_file.log, l_debug_info);
2666: l_debug_info := '>p_vendor_site_rec.pay_site_flag := '||p_vendor_site_rec.pay_site_flag;
2667: fnd_file.put_line(fnd_file.log, l_debug_info);
2668: l_debug_info := '>p_vendor_site_rec.address_line1 := '||p_vendor_site_rec.address_line1;
2669: fnd_file.put_line(fnd_file.log, l_debug_info);
2670: l_debug_info := '>p_vendor_site_rec.address_line2 := '||p_vendor_site_rec.address_line2;
2671: fnd_file.put_line(fnd_file.log, l_debug_info);
2665: fnd_file.put_line(fnd_file.log, l_debug_info);
2666: l_debug_info := '>p_vendor_site_rec.pay_site_flag := '||p_vendor_site_rec.pay_site_flag;
2667: fnd_file.put_line(fnd_file.log, l_debug_info);
2668: l_debug_info := '>p_vendor_site_rec.address_line1 := '||p_vendor_site_rec.address_line1;
2669: fnd_file.put_line(fnd_file.log, l_debug_info);
2670: l_debug_info := '>p_vendor_site_rec.address_line2 := '||p_vendor_site_rec.address_line2;
2671: fnd_file.put_line(fnd_file.log, l_debug_info);
2672: l_debug_info := '>p_vendor_site_rec.address_line3 := '||p_vendor_site_rec.address_line3;
2673: fnd_file.put_line(fnd_file.log, l_debug_info);
2667: fnd_file.put_line(fnd_file.log, l_debug_info);
2668: l_debug_info := '>p_vendor_site_rec.address_line1 := '||p_vendor_site_rec.address_line1;
2669: fnd_file.put_line(fnd_file.log, l_debug_info);
2670: l_debug_info := '>p_vendor_site_rec.address_line2 := '||p_vendor_site_rec.address_line2;
2671: fnd_file.put_line(fnd_file.log, l_debug_info);
2672: l_debug_info := '>p_vendor_site_rec.address_line3 := '||p_vendor_site_rec.address_line3;
2673: fnd_file.put_line(fnd_file.log, l_debug_info);
2674: l_debug_info := '>p_vendor_site_rec.city := '||p_vendor_site_rec.city;
2675: fnd_file.put_line(fnd_file.log, l_debug_info);
2669: fnd_file.put_line(fnd_file.log, l_debug_info);
2670: l_debug_info := '>p_vendor_site_rec.address_line2 := '||p_vendor_site_rec.address_line2;
2671: fnd_file.put_line(fnd_file.log, l_debug_info);
2672: l_debug_info := '>p_vendor_site_rec.address_line3 := '||p_vendor_site_rec.address_line3;
2673: fnd_file.put_line(fnd_file.log, l_debug_info);
2674: l_debug_info := '>p_vendor_site_rec.city := '||p_vendor_site_rec.city;
2675: fnd_file.put_line(fnd_file.log, l_debug_info);
2676: l_debug_info := '>p_vendor_site_rec.state := '||p_vendor_site_rec.state;
2677: fnd_file.put_line(fnd_file.log, l_debug_info);
2671: fnd_file.put_line(fnd_file.log, l_debug_info);
2672: l_debug_info := '>p_vendor_site_rec.address_line3 := '||p_vendor_site_rec.address_line3;
2673: fnd_file.put_line(fnd_file.log, l_debug_info);
2674: l_debug_info := '>p_vendor_site_rec.city := '||p_vendor_site_rec.city;
2675: fnd_file.put_line(fnd_file.log, l_debug_info);
2676: l_debug_info := '>p_vendor_site_rec.state := '||p_vendor_site_rec.state;
2677: fnd_file.put_line(fnd_file.log, l_debug_info);
2678: l_debug_info := '>p_vendor_site_rec.zip := '||p_vendor_site_rec.zip;
2679: fnd_file.put_line(fnd_file.log, l_debug_info);
2673: fnd_file.put_line(fnd_file.log, l_debug_info);
2674: l_debug_info := '>p_vendor_site_rec.city := '||p_vendor_site_rec.city;
2675: fnd_file.put_line(fnd_file.log, l_debug_info);
2676: l_debug_info := '>p_vendor_site_rec.state := '||p_vendor_site_rec.state;
2677: fnd_file.put_line(fnd_file.log, l_debug_info);
2678: l_debug_info := '>p_vendor_site_rec.zip := '||p_vendor_site_rec.zip;
2679: fnd_file.put_line(fnd_file.log, l_debug_info);
2680: l_debug_info := '>p_vendor_site_rec.province := '||p_vendor_site_rec.province;
2681: fnd_file.put_line(fnd_file.log, l_debug_info);
2675: fnd_file.put_line(fnd_file.log, l_debug_info);
2676: l_debug_info := '>p_vendor_site_rec.state := '||p_vendor_site_rec.state;
2677: fnd_file.put_line(fnd_file.log, l_debug_info);
2678: l_debug_info := '>p_vendor_site_rec.zip := '||p_vendor_site_rec.zip;
2679: fnd_file.put_line(fnd_file.log, l_debug_info);
2680: l_debug_info := '>p_vendor_site_rec.province := '||p_vendor_site_rec.province;
2681: fnd_file.put_line(fnd_file.log, l_debug_info);
2682: l_debug_info := '>p_vendor_site_rec.county := '||p_vendor_site_rec.county;
2683: fnd_file.put_line(fnd_file.log, l_debug_info);
2677: fnd_file.put_line(fnd_file.log, l_debug_info);
2678: l_debug_info := '>p_vendor_site_rec.zip := '||p_vendor_site_rec.zip;
2679: fnd_file.put_line(fnd_file.log, l_debug_info);
2680: l_debug_info := '>p_vendor_site_rec.province := '||p_vendor_site_rec.province;
2681: fnd_file.put_line(fnd_file.log, l_debug_info);
2682: l_debug_info := '>p_vendor_site_rec.county := '||p_vendor_site_rec.county;
2683: fnd_file.put_line(fnd_file.log, l_debug_info);
2684: l_debug_info := '>p_vendor_site_rec.country := '||p_vendor_site_rec.country;
2685: fnd_file.put_line(fnd_file.log, l_debug_info);
2679: fnd_file.put_line(fnd_file.log, l_debug_info);
2680: l_debug_info := '>p_vendor_site_rec.province := '||p_vendor_site_rec.province;
2681: fnd_file.put_line(fnd_file.log, l_debug_info);
2682: l_debug_info := '>p_vendor_site_rec.county := '||p_vendor_site_rec.county;
2683: fnd_file.put_line(fnd_file.log, l_debug_info);
2684: l_debug_info := '>p_vendor_site_rec.country := '||p_vendor_site_rec.country;
2685: fnd_file.put_line(fnd_file.log, l_debug_info);
2686: l_debug_info := '>p_vendor_site_rec.address_style := '||p_vendor_site_rec.address_style;
2687: fnd_file.put_line(fnd_file.log, l_debug_info);
2681: fnd_file.put_line(fnd_file.log, l_debug_info);
2682: l_debug_info := '>p_vendor_site_rec.county := '||p_vendor_site_rec.county;
2683: fnd_file.put_line(fnd_file.log, l_debug_info);
2684: l_debug_info := '>p_vendor_site_rec.country := '||p_vendor_site_rec.country;
2685: fnd_file.put_line(fnd_file.log, l_debug_info);
2686: l_debug_info := '>p_vendor_site_rec.address_style := '||p_vendor_site_rec.address_style;
2687: fnd_file.put_line(fnd_file.log, l_debug_info);
2688: END IF;
2689: END PrintVendorSiteInfo;
2683: fnd_file.put_line(fnd_file.log, l_debug_info);
2684: l_debug_info := '>p_vendor_site_rec.country := '||p_vendor_site_rec.country;
2685: fnd_file.put_line(fnd_file.log, l_debug_info);
2686: l_debug_info := '>p_vendor_site_rec.address_style := '||p_vendor_site_rec.address_style;
2687: fnd_file.put_line(fnd_file.log, l_debug_info);
2688: END IF;
2689: END PrintVendorSiteInfo;
2690:
2691: ------------------------------------------------------------------------
2795: --------------------------------------------------------------
2796: l_debug_info := 'Get Vendor Info when vendor id is not known';
2797: --------------------------------------------------------------
2798: IF g_debug_switch = 'Y' THEN
2799: fnd_file.put_line(fnd_file.log, l_debug_info);
2800: END IF;
2801:
2802: BEGIN
2803: SELECT vendor_id,
2817: FROM ap_suppliers
2818: WHERE employee_id = p_vendor_rec.employee_id;
2819: EXCEPTION
2820: WHEN NO_DATA_FOUND THEN
2821: fnd_file.put_line(fnd_file.log, 'Employee Id '||p_vendor_rec.employee_id||' is not found');
2822: l_vendor_id := -1;
2823: WHEN TOO_MANY_ROWS THEN
2824: p_reject_code := 'Create duplicate vendor';
2825: RETURN (FALSE);
2826: END;
2827:
2828: IF g_debug_switch = 'Y' THEN
2829: l_debug_info := 'l_vendor_id := '||l_vendor_id;
2830: fnd_file.put_line(fnd_file.log, l_debug_info);
2831: l_debug_info := 'l_duplicate_vendor := '||l_duplicate_vendor;
2832: fnd_file.put_line(fnd_file.log, l_debug_info);
2833: l_debug_info := 'l_party_id := '||l_party_id;
2834: fnd_file.put_line(fnd_file.log, l_debug_info);
2828: IF g_debug_switch = 'Y' THEN
2829: l_debug_info := 'l_vendor_id := '||l_vendor_id;
2830: fnd_file.put_line(fnd_file.log, l_debug_info);
2831: l_debug_info := 'l_duplicate_vendor := '||l_duplicate_vendor;
2832: fnd_file.put_line(fnd_file.log, l_debug_info);
2833: l_debug_info := 'l_party_id := '||l_party_id;
2834: fnd_file.put_line(fnd_file.log, l_debug_info);
2835: END IF;
2836:
2830: fnd_file.put_line(fnd_file.log, l_debug_info);
2831: l_debug_info := 'l_duplicate_vendor := '||l_duplicate_vendor;
2832: fnd_file.put_line(fnd_file.log, l_debug_info);
2833: l_debug_info := 'l_party_id := '||l_party_id;
2834: fnd_file.put_line(fnd_file.log, l_debug_info);
2835: END IF;
2836:
2837: IF l_duplicate_vendor = 'Y' THEN
2838: p_reject_code := 'Create duplicate vendor';
2859: ----------------------------------------------------------
2860: l_debug_info := 'Get Vendor Info when vendor id is known';
2861: ----------------------------------------------------------
2862: IF g_debug_switch = 'Y' THEN
2863: fnd_file.put_line(fnd_file.log, l_debug_info);
2864: END IF;
2865:
2866: l_payment_priority := NULL;
2867:
2887: ------------------------------------
2888: l_debug_info := 'Get party_id';
2889: ------------------------------------
2890: IF g_debug_switch = 'Y' THEN
2891: fnd_file.put_line(fnd_file.log, l_debug_info);
2892: END IF;
2893:
2894: OPEN c_party_id(p_vendor_rec.employee_id);
2895: FETCH c_party_id INTO l_vendor_rec.party_id;
2898: ------------------------------------
2899: l_debug_info := 'l_vendor_rec.party_id = '||l_vendor_rec.party_id;
2900: ------------------------------------
2901: IF g_debug_switch = 'Y' THEN
2902: fnd_file.put_line(fnd_file.log, l_debug_info);
2903: END IF;
2904: if nvl(l_vendor_rec.party_id, -1) = -1 then
2905: p_reject_code := 'INVALID PARTY';
2906: RETURN (FALSE);
2909: ------------------------------------
2910: l_debug_info := 'Checking Automatic Create Employee as Supplier option';
2911: ------------------------------------
2912: IF g_debug_switch = 'Y' THEN
2913: fnd_file.put_line(fnd_file.log, l_debug_info);
2914: END IF;
2915:
2916:
2917: if(nvl(l_create_vendor_flag, 'N') <> 'Y') then
2919: ------------------------------------
2920: l_debug_info := 'Automatic Create Employee as Supplier is not checked in Payable Options';
2921: ------------------------------------
2922: IF g_debug_switch = 'Y' THEN
2923: fnd_file.put_line(fnd_file.log, l_debug_info);
2924: END IF;
2925:
2926: p_reject_code := 'Not a vendor';
2927: RETURN (FALSE);
2931: ------------------------------------
2932: l_debug_info := 'Checking ap_product_setup.supplier_numbering_method';
2933: ------------------------------------
2934: IF g_debug_switch = 'Y' THEN
2935: fnd_file.put_line(fnd_file.log, l_debug_info);
2936: END IF;
2937:
2938: OPEN c_supplier_numbering_method;
2939: FETCH c_supplier_numbering_method into l_supplier_numbering_method;
2944: ------------------------------------
2945: l_debug_info := 'ap_product_setup.supplier_numbering_method is not AUTOMATIC';
2946: ------------------------------------
2947: IF g_debug_switch = 'Y' THEN
2948: fnd_file.put_line(fnd_file.log, l_debug_info);
2949: END IF;
2950:
2951: p_reject_code := 'Create as vendor';
2952: RETURN (FALSE);
2955: ------------------------------------
2956: l_debug_info := 'Creating a vendor (AP_VENDOR_PUB_PKG.create_vendor())';
2957: ------------------------------------
2958: IF g_debug_switch = 'Y' THEN
2959: fnd_file.put_line(fnd_file.log, l_debug_info);
2960: END IF;
2961:
2962: l_create_vendor := TRUE;
2963: l_pay_group := p_vendor_rec.pay_group;
2989:
2990: IF g_debug_switch = 'Y' THEN
2991:
2992: l_debug_info := 'l_val_return_status := '||l_val_return_status;
2993: fnd_file.put_line(fnd_file.log, l_debug_info);
2994:
2995: l_debug_info := 'l_val_msg_count := '||l_val_msg_count;
2996: fnd_file.put_line(fnd_file.log, l_debug_info);
2997:
2992: l_debug_info := 'l_val_return_status := '||l_val_return_status;
2993: fnd_file.put_line(fnd_file.log, l_debug_info);
2994:
2995: l_debug_info := 'l_val_msg_count := '||l_val_msg_count;
2996: fnd_file.put_line(fnd_file.log, l_debug_info);
2997:
2998: if (nvl(l_val_msg_count, 0) > 1) then
2999: for i in 1..l_val_msg_count
3000: loop
2998: if (nvl(l_val_msg_count, 0) > 1) then
2999: for i in 1..l_val_msg_count
3000: loop
3001: l_debug_info := 'l_val_msg_data('||i||') := '||substrb(substr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255), 1, 30);
3002: fnd_file.put_line(fnd_file.log, l_debug_info);
3003: end loop;
3004: else
3005: l_debug_info := 'l_val_msg_data := '||l_val_msg_data;
3006: fnd_file.put_line(fnd_file.log, l_debug_info);
3002: fnd_file.put_line(fnd_file.log, l_debug_info);
3003: end loop;
3004: else
3005: l_debug_info := 'l_val_msg_data := '||l_val_msg_data;
3006: fnd_file.put_line(fnd_file.log, l_debug_info);
3007: end if;
3008:
3009: l_debug_info := 'l_vendor_id := '||l_vendor_id;
3010: fnd_file.put_line(fnd_file.log, l_debug_info);
3006: fnd_file.put_line(fnd_file.log, l_debug_info);
3007: end if;
3008:
3009: l_debug_info := 'l_vendor_id := '||l_vendor_id;
3010: fnd_file.put_line(fnd_file.log, l_debug_info);
3011: l_debug_info := 'l_party_id := '||l_party_id;
3012: fnd_file.put_line(fnd_file.log, l_debug_info);
3013:
3014: END IF;
3008:
3009: l_debug_info := 'l_vendor_id := '||l_vendor_id;
3010: fnd_file.put_line(fnd_file.log, l_debug_info);
3011: l_debug_info := 'l_party_id := '||l_party_id;
3012: fnd_file.put_line(fnd_file.log, l_debug_info);
3013:
3014: END IF;
3015:
3016: IF l_val_return_status = FND_API.G_RET_STS_SUCCESS THEN
3039: --------------------------------------------------------------------
3040: l_debug_info := 'Get Vendor Site Info when vendor site id is known';
3041: --------------------------------------------------------------------
3042: IF g_debug_switch = 'Y' THEN
3043: fnd_file.put_line(fnd_file.log, l_debug_info);
3044: END IF;
3045:
3046:
3047: OPEN c_vendor_site_known(p_vendor_rec.vendor_site_id);
3060: -------------------------------------------------------------
3061: l_debug_info := 'Get Vendor Site Info for Employee when vendor site id is not known';
3062: -------------------------------------------------------------
3063: IF g_debug_switch = 'Y' THEN
3064: fnd_file.put_line(fnd_file.log, l_debug_info);
3065: END IF;
3066:
3067: OPEN c_vendor_site(p_vendor_rec.vendor_id, p_vendor_rec.home_or_office, p_vendor_rec.org_id);
3068:
3084: -----------------------------------------
3085: l_debug_info := 'Creating a vendor site (AP_VENDOR_PUB_PKG.create_vendor_site())';
3086: -----------------------------------------
3087: IF g_debug_switch = 'Y' THEN
3088: fnd_file.put_line(fnd_file.log, l_debug_info);
3089: END IF;
3090:
3091: l_vendor_site_rec.vendor_id := p_vendor_rec.vendor_id;
3092: l_vendor_site_rec.org_id := p_vendor_rec.org_id;
3142:
3143: IF g_debug_switch = 'Y' THEN
3144:
3145: l_debug_info := 'l_val_return_status := '||l_val_return_status;
3146: fnd_file.put_line(fnd_file.log, l_debug_info);
3147:
3148: l_debug_info := 'l_val_msg_count := '||l_val_msg_count;
3149: fnd_file.put_line(fnd_file.log, l_debug_info);
3150:
3145: l_debug_info := 'l_val_return_status := '||l_val_return_status;
3146: fnd_file.put_line(fnd_file.log, l_debug_info);
3147:
3148: l_debug_info := 'l_val_msg_count := '||l_val_msg_count;
3149: fnd_file.put_line(fnd_file.log, l_debug_info);
3150:
3151: if (nvl(l_val_msg_count, 0) > 1) then
3152: for i in 1..l_val_msg_count
3153: loop
3151: if (nvl(l_val_msg_count, 0) > 1) then
3152: for i in 1..l_val_msg_count
3153: loop
3154: l_debug_info := 'l_val_msg_data('||i||') := '||substrb(substr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255), 1, 30);
3155: fnd_file.put_line(fnd_file.log, l_debug_info);
3156: end loop;
3157: else
3158: l_debug_info := 'l_val_msg_data := '||l_val_msg_data;
3159: fnd_file.put_line(fnd_file.log, l_debug_info);
3155: fnd_file.put_line(fnd_file.log, l_debug_info);
3156: end loop;
3157: else
3158: l_debug_info := 'l_val_msg_data := '||l_val_msg_data;
3159: fnd_file.put_line(fnd_file.log, l_debug_info);
3160: end if;
3161:
3162: l_debug_info := 'l_vendor_site_id := '||l_vendor_site_id;
3163: fnd_file.put_line(fnd_file.log, l_debug_info);
3159: fnd_file.put_line(fnd_file.log, l_debug_info);
3160: end if;
3161:
3162: l_debug_info := 'l_vendor_site_id := '||l_vendor_site_id;
3163: fnd_file.put_line(fnd_file.log, l_debug_info);
3164: l_debug_info := 'l_party_site_id := '||l_party_site_id;
3165: fnd_file.put_line(fnd_file.log, l_debug_info);
3166: l_debug_info := 'l_location_id := '||l_location_id;
3167: fnd_file.put_line(fnd_file.log, l_debug_info);
3161:
3162: l_debug_info := 'l_vendor_site_id := '||l_vendor_site_id;
3163: fnd_file.put_line(fnd_file.log, l_debug_info);
3164: l_debug_info := 'l_party_site_id := '||l_party_site_id;
3165: fnd_file.put_line(fnd_file.log, l_debug_info);
3166: l_debug_info := 'l_location_id := '||l_location_id;
3167: fnd_file.put_line(fnd_file.log, l_debug_info);
3168: END IF;
3169:
3163: fnd_file.put_line(fnd_file.log, l_debug_info);
3164: l_debug_info := 'l_party_site_id := '||l_party_site_id;
3165: fnd_file.put_line(fnd_file.log, l_debug_info);
3166: l_debug_info := 'l_location_id := '||l_location_id;
3167: fnd_file.put_line(fnd_file.log, l_debug_info);
3168: END IF;
3169:
3170:
3171: IF l_val_return_status = FND_API.G_RET_STS_SUCCESS THEN
3206: --------------------------------------------------------------------------------
3207: l_debug_info := 'Vendor Site ID got is '|| to_char(p_vendor_rec.vendor_site_id);
3208: --------------------------------------------------------------------------------
3209: IF g_debug_switch = 'Y' THEN
3210: fnd_file.put_line(fnd_file.log, l_debug_info);
3211: END IF;
3212:
3213: if (not l_create_vendor) then
3214: l_vendor_site_rec.vendor_id := p_vendor_rec.vendor_id;
3236: -------------------------------------
3237: l_debug_info := 'Update Vendor Site';
3238: -------------------------------------
3239: IF g_debug_switch = 'Y' THEN
3240: fnd_file.put_line(fnd_file.log, l_debug_info);
3241: END IF;
3242:
3243: PrintVendorSiteInfo(l_vendor_site_rec);
3244:
3256:
3257: IF g_debug_switch = 'Y' THEN
3258:
3259: l_debug_info := 'l_val_return_status := '||l_val_return_status;
3260: fnd_file.put_line(fnd_file.log, l_debug_info);
3261:
3262: l_debug_info := 'l_val_msg_count := '||l_val_msg_count;
3263: fnd_file.put_line(fnd_file.log, l_debug_info);
3264:
3259: l_debug_info := 'l_val_return_status := '||l_val_return_status;
3260: fnd_file.put_line(fnd_file.log, l_debug_info);
3261:
3262: l_debug_info := 'l_val_msg_count := '||l_val_msg_count;
3263: fnd_file.put_line(fnd_file.log, l_debug_info);
3264:
3265: if (nvl(l_val_msg_count, 0) > 1) then
3266: for i in 1..l_val_msg_count
3267: loop
3265: if (nvl(l_val_msg_count, 0) > 1) then
3266: for i in 1..l_val_msg_count
3267: loop
3268: l_debug_info := 'l_val_msg_data('||i||') := '||substrb(substr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255), 1, 30);
3269: fnd_file.put_line(fnd_file.log, l_debug_info);
3270: end loop;
3271: else
3272: l_debug_info := 'l_val_msg_data := '||l_val_msg_data;
3273: fnd_file.put_line(fnd_file.log, l_debug_info);
3269: fnd_file.put_line(fnd_file.log, l_debug_info);
3270: end loop;
3271: else
3272: l_debug_info := 'l_val_msg_data := '||l_val_msg_data;
3273: fnd_file.put_line(fnd_file.log, l_debug_info);
3274: end if;
3275:
3276: PrintVendorSiteInfo(l_vendor_site_rec);
3277:
3275:
3276: PrintVendorSiteInfo(l_vendor_site_rec);
3277:
3278: l_debug_info := 'l_vendor_site_id := '||l_vendor_site_id;
3279: fnd_file.put_line(fnd_file.log, l_debug_info);
3280: END IF;
3281:
3282: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3283:
3349: ------------------------------------------------------------------
3350: l_debug_info := 'Creating a Payee by calling Oracle Payments API';
3351: ------------------------------------------------------------------
3352: IF g_debug_switch = 'Y' THEN
3353: fnd_file.put_line(fnd_file.log, l_debug_info);
3354: END IF;
3355:
3356: l_External_Payee_Tab(0).Payee_Party_Id := p_party_id;
3357: l_External_Payee_Tab(0).Payer_Org_Id := p_org_id;
3368: x_ext_payee_id_tab => l_Ext_Payee_ID_Tab,
3369: x_ext_payee_status_tab => l_Ext_Payee_Create_Tab);
3370:
3371: IF g_debug_switch = 'Y' THEN
3372: fnd_file.put_line(fnd_file.log, 'l_return_status: ' || l_return_status);
3373:
3374: fnd_file.put_line(fnd_file.log, 'Payee_Creation_Status: ' ||
3375: l_Ext_Payee_Create_Tab(0).Payee_Creation_Status);
3376: fnd_file.put_line(fnd_file.log, 'Payee_Creation_Msg: ' ||
3370:
3371: IF g_debug_switch = 'Y' THEN
3372: fnd_file.put_line(fnd_file.log, 'l_return_status: ' || l_return_status);
3373:
3374: fnd_file.put_line(fnd_file.log, 'Payee_Creation_Status: ' ||
3375: l_Ext_Payee_Create_Tab(0).Payee_Creation_Status);
3376: fnd_file.put_line(fnd_file.log, 'Payee_Creation_Msg: ' ||
3377: l_Ext_Payee_Create_Tab(0).Payee_Creation_Msg);
3378: END IF;
3372: fnd_file.put_line(fnd_file.log, 'l_return_status: ' || l_return_status);
3373:
3374: fnd_file.put_line(fnd_file.log, 'Payee_Creation_Status: ' ||
3375: l_Ext_Payee_Create_Tab(0).Payee_Creation_Status);
3376: fnd_file.put_line(fnd_file.log, 'Payee_Creation_Msg: ' ||
3377: l_Ext_Payee_Create_Tab(0).Payee_Creation_Msg);
3378: END IF;
3379:
3380: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN