929:
930: IF NVL(exp_ap_cache(l_index).pn_normalize,'N') = 'Y' AND
931: (l_exp_cnt = 0 OR l_acc_cnt = 0) THEN
932:
933: fnd_message.set_name ('PN', 'PN_ALL_ACNT_DIST_MSG');
934: PNP_DEBUG_PKG.put_log_msg(fnd_message.get);
935: RAISE BAD_ITEM_EXCEPTION;
936:
937: ELSIF NVL(exp_ap_cache(l_index).pn_normalize,'N') = 'N' AND
930: IF NVL(exp_ap_cache(l_index).pn_normalize,'N') = 'Y' AND
931: (l_exp_cnt = 0 OR l_acc_cnt = 0) THEN
932:
933: fnd_message.set_name ('PN', 'PN_ALL_ACNT_DIST_MSG');
934: PNP_DEBUG_PKG.put_log_msg(fnd_message.get);
935: RAISE BAD_ITEM_EXCEPTION;
936:
937: ELSIF NVL(exp_ap_cache(l_index).pn_normalize,'N') = 'N' AND
938: l_exp_cnt = 0 THEN
936:
937: ELSIF NVL(exp_ap_cache(l_index).pn_normalize,'N') = 'N' AND
938: l_exp_cnt = 0 THEN
939:
940: fnd_message.set_name ('PN', 'PN_EXP_DIST_MSG');
941: PNP_DEBUG_PKG.put_log_msg(fnd_message.get);
942: RAISE BAD_ITEM_EXCEPTION;
943:
944: END IF;
937: ELSIF NVL(exp_ap_cache(l_index).pn_normalize,'N') = 'N' AND
938: l_exp_cnt = 0 THEN
939:
940: fnd_message.set_name ('PN', 'PN_EXP_DIST_MSG');
941: PNP_DEBUG_PKG.put_log_msg(fnd_message.get);
942: RAISE BAD_ITEM_EXCEPTION;
943:
944: END IF;
945:
945:
946: ELSIF UPPER(exp_ap_cache(l_index).conv_rate_type) = 'USER' AND
947: exp_ap_cache(l_index).conv_rate IS NULL THEN
948:
949: fnd_message.set_name ('PN', 'PN_CONV_RATE_REQD');
950: pnp_debug_pkg.put_log_msg(fnd_message.get);
951: RAISE BAD_ITEM_EXCEPTION;
952:
953: ELSIF l_grpby_INVOICENUM THEN
946: ELSIF UPPER(exp_ap_cache(l_index).conv_rate_type) = 'USER' AND
947: exp_ap_cache(l_index).conv_rate IS NULL THEN
948:
949: fnd_message.set_name ('PN', 'PN_CONV_RATE_REQD');
950: pnp_debug_pkg.put_log_msg(fnd_message.get);
951: RAISE BAD_ITEM_EXCEPTION;
952:
953: ELSIF l_grpby_INVOICENUM THEN
954: IF exp_ap_cache(l_index).pn_ap_invoice_num IS NOT NULL THEN
955: FOR i IN c_inv_num(exp_ap_cache(l_index).pn_ap_invoice_num,
956: exp_ap_cache(l_index).pn_vendor_id,
957: exp_ap_cache(l_index).org_id)
958: LOOP
959: fnd_message.set_name ('PN', 'PN_INV_NUM_ALREADY_EXIST');
960: pnp_debug_pkg.put_log_msg(fnd_message.get);
961: RAISE BAD_ITEM_EXCEPTION;
962: END LOOP;
963: FOR i IN c_inv_num_itf(exp_ap_cache(l_index).pn_ap_invoice_num,
956: exp_ap_cache(l_index).pn_vendor_id,
957: exp_ap_cache(l_index).org_id)
958: LOOP
959: fnd_message.set_name ('PN', 'PN_INV_NUM_ALREADY_EXIST');
960: pnp_debug_pkg.put_log_msg(fnd_message.get);
961: RAISE BAD_ITEM_EXCEPTION;
962: END LOOP;
963: FOR i IN c_inv_num_itf(exp_ap_cache(l_index).pn_ap_invoice_num,
964: exp_ap_cache(l_index).pn_vendor_id,
963: FOR i IN c_inv_num_itf(exp_ap_cache(l_index).pn_ap_invoice_num,
964: exp_ap_cache(l_index).pn_vendor_id,
965: exp_ap_cache(l_index).org_id)
966: LOOP
967: fnd_message.set_name ('PN', 'PN_INV_NUM_ALREADY_EXIST');
968: pnp_debug_pkg.put_log_msg(fnd_message.get);
969: RAISE BAD_ITEM_EXCEPTION;
970: END LOOP;
971: END IF;
964: exp_ap_cache(l_index).pn_vendor_id,
965: exp_ap_cache(l_index).org_id)
966: LOOP
967: fnd_message.set_name ('PN', 'PN_INV_NUM_ALREADY_EXIST');
968: pnp_debug_pkg.put_log_msg(fnd_message.get);
969: RAISE BAD_ITEM_EXCEPTION;
970: END LOOP;
971: END IF;
972: END IF;
972: END IF;
973:
974: EXCEPTION
975: WHEN BAD_ITEM_EXCEPTION THEN
976: fnd_message.set_name ('PN','PN_EXPAP_ERR');
977: fnd_message.set_token ('ID',exp_ap_cache(l_index).pn_payment_item_id);
978: pnp_debug_pkg.put_log_msg(fnd_message.get);
979:
980: l_error_ctr := l_error_ctr + 1;
973:
974: EXCEPTION
975: WHEN BAD_ITEM_EXCEPTION THEN
976: fnd_message.set_name ('PN','PN_EXPAP_ERR');
977: fnd_message.set_token ('ID',exp_ap_cache(l_index).pn_payment_item_id);
978: pnp_debug_pkg.put_log_msg(fnd_message.get);
979:
980: l_error_ctr := l_error_ctr + 1;
981:
974: EXCEPTION
975: WHEN BAD_ITEM_EXCEPTION THEN
976: fnd_message.set_name ('PN','PN_EXPAP_ERR');
977: fnd_message.set_token ('ID',exp_ap_cache(l_index).pn_payment_item_id);
978: pnp_debug_pkg.put_log_msg(fnd_message.get);
979:
980: l_error_ctr := l_error_ctr + 1;
981:
982: exp_ap_cache.DELETE(l_index);
982: exp_ap_cache.DELETE(l_index);
983: l_index := l_index - 1;
984:
985: WHEN OTHERS THEN
986: fnd_message.set_name ('PN','PN_EXPAP_ERR');
987: fnd_message.set_token ('ID',exp_ap_cache(l_index).pn_payment_item_id);
988: pnp_debug_pkg.put_log_msg(fnd_message.get);
989:
990: pnp_debug_pkg.put_log_msg(SQLERRM);
983: l_index := l_index - 1;
984:
985: WHEN OTHERS THEN
986: fnd_message.set_name ('PN','PN_EXPAP_ERR');
987: fnd_message.set_token ('ID',exp_ap_cache(l_index).pn_payment_item_id);
988: pnp_debug_pkg.put_log_msg(fnd_message.get);
989:
990: pnp_debug_pkg.put_log_msg(SQLERRM);
991: RAISE;
984:
985: WHEN OTHERS THEN
986: fnd_message.set_name ('PN','PN_EXPAP_ERR');
987: fnd_message.set_token ('ID',exp_ap_cache(l_index).pn_payment_item_id);
988: pnp_debug_pkg.put_log_msg(fnd_message.get);
989:
990: pnp_debug_pkg.put_log_msg(SQLERRM);
991: RAISE;
992: END;
1293: inserted_inv_t(l_temp_count).invoice_id := l_invoice_id;
1294: inserted_inv_t(l_temp_count).invoice_num := l_invoice_num;
1295: inserted_inv_t(l_temp_count).items_proc := l_next - l_start;
1296:
1297: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1298: fnd_message.set_token('INV_ID',l_invoice_id);
1299: fnd_message.set_token('INV_NUM',l_invoice_num);
1300: fnd_message.set_token('AMT',l_header_amount);
1301: pnp_debug_pkg.put_log_msg(fnd_message.get);
1294: inserted_inv_t(l_temp_count).invoice_num := l_invoice_num;
1295: inserted_inv_t(l_temp_count).items_proc := l_next - l_start;
1296:
1297: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1298: fnd_message.set_token('INV_ID',l_invoice_id);
1299: fnd_message.set_token('INV_NUM',l_invoice_num);
1300: fnd_message.set_token('AMT',l_header_amount);
1301: pnp_debug_pkg.put_log_msg(fnd_message.get);
1302:
1295: inserted_inv_t(l_temp_count).items_proc := l_next - l_start;
1296:
1297: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1298: fnd_message.set_token('INV_ID',l_invoice_id);
1299: fnd_message.set_token('INV_NUM',l_invoice_num);
1300: fnd_message.set_token('AMT',l_header_amount);
1301: pnp_debug_pkg.put_log_msg(fnd_message.get);
1302:
1303: PNP_DEBUG_PKG.put_log_msg(' ');
1296:
1297: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1298: fnd_message.set_token('INV_ID',l_invoice_id);
1299: fnd_message.set_token('INV_NUM',l_invoice_num);
1300: fnd_message.set_token('AMT',l_header_amount);
1301: pnp_debug_pkg.put_log_msg(fnd_message.get);
1302:
1303: PNP_DEBUG_PKG.put_log_msg(' ');
1304: -- now for the distributions
1297: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1298: fnd_message.set_token('INV_ID',l_invoice_id);
1299: fnd_message.set_token('INV_NUM',l_invoice_num);
1300: fnd_message.set_token('AMT',l_header_amount);
1301: pnp_debug_pkg.put_log_msg(fnd_message.get);
1302:
1303: PNP_DEBUG_PKG.put_log_msg(' ');
1304: -- now for the distributions
1305:
1449: ,exp_ap_cache(item).pn_tax_classification_code
1450: ,l_tax_code_override_flag)
1451: RETURNING invoice_line_id, amount INTO l_invoice_line_id, l_line_amount;
1452:
1453: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1454: fnd_message.set_token('INV_ID',l_invoice_id);
1455: fnd_message.set_token('NUM',l_invoice_num);
1456: fnd_message.set_token('ID',l_invoice_line_id);
1457: fnd_message.set_token('AMT',l_line_amount);
1450: ,l_tax_code_override_flag)
1451: RETURNING invoice_line_id, amount INTO l_invoice_line_id, l_line_amount;
1452:
1453: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1454: fnd_message.set_token('INV_ID',l_invoice_id);
1455: fnd_message.set_token('NUM',l_invoice_num);
1456: fnd_message.set_token('ID',l_invoice_line_id);
1457: fnd_message.set_token('AMT',l_line_amount);
1458: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1451: RETURNING invoice_line_id, amount INTO l_invoice_line_id, l_line_amount;
1452:
1453: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1454: fnd_message.set_token('INV_ID',l_invoice_id);
1455: fnd_message.set_token('NUM',l_invoice_num);
1456: fnd_message.set_token('ID',l_invoice_line_id);
1457: fnd_message.set_token('AMT',l_line_amount);
1458: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1459: pnp_debug_pkg.put_log_msg(fnd_message.get);
1452:
1453: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1454: fnd_message.set_token('INV_ID',l_invoice_id);
1455: fnd_message.set_token('NUM',l_invoice_num);
1456: fnd_message.set_token('ID',l_invoice_line_id);
1457: fnd_message.set_token('AMT',l_line_amount);
1458: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1459: pnp_debug_pkg.put_log_msg(fnd_message.get);
1460:
1453: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1454: fnd_message.set_token('INV_ID',l_invoice_id);
1455: fnd_message.set_token('NUM',l_invoice_num);
1456: fnd_message.set_token('ID',l_invoice_line_id);
1457: fnd_message.set_token('AMT',l_line_amount);
1458: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1459: pnp_debug_pkg.put_log_msg(fnd_message.get);
1460:
1461: END LOOP; -- for accrual_tab
1454: fnd_message.set_token('INV_ID',l_invoice_id);
1455: fnd_message.set_token('NUM',l_invoice_num);
1456: fnd_message.set_token('ID',l_invoice_line_id);
1457: fnd_message.set_token('AMT',l_line_amount);
1458: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1459: pnp_debug_pkg.put_log_msg(fnd_message.get);
1460:
1461: END LOOP; -- for accrual_tab
1462:
1455: fnd_message.set_token('NUM',l_invoice_num);
1456: fnd_message.set_token('ID',l_invoice_line_id);
1457: fnd_message.set_token('AMT',l_line_amount);
1458: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1459: pnp_debug_pkg.put_log_msg(fnd_message.get);
1460:
1461: END LOOP; -- for accrual_tab
1462:
1463: END IF; -- accrual entered if normalized
1536: ,exp_ap_cache(item).pn_tax_classification_code /*--Bug 6392393--*/
1537: ,l_tax_code_override_flag)
1538: RETURNING invoice_line_id, amount INTO l_invoice_line_id, l_line_amount;
1539:
1540: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1541: fnd_message.set_token('INV_ID',l_invoice_id);
1542: fnd_message.set_token('NUM',l_invoice_num);
1543: fnd_message.set_token('ID',l_invoice_line_id);
1544: fnd_message.set_token('AMT',l_line_amount);
1537: ,l_tax_code_override_flag)
1538: RETURNING invoice_line_id, amount INTO l_invoice_line_id, l_line_amount;
1539:
1540: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1541: fnd_message.set_token('INV_ID',l_invoice_id);
1542: fnd_message.set_token('NUM',l_invoice_num);
1543: fnd_message.set_token('ID',l_invoice_line_id);
1544: fnd_message.set_token('AMT',l_line_amount);
1545: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1538: RETURNING invoice_line_id, amount INTO l_invoice_line_id, l_line_amount;
1539:
1540: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1541: fnd_message.set_token('INV_ID',l_invoice_id);
1542: fnd_message.set_token('NUM',l_invoice_num);
1543: fnd_message.set_token('ID',l_invoice_line_id);
1544: fnd_message.set_token('AMT',l_line_amount);
1545: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1546: pnp_debug_pkg.put_log_msg(fnd_message.get);
1539:
1540: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1541: fnd_message.set_token('INV_ID',l_invoice_id);
1542: fnd_message.set_token('NUM',l_invoice_num);
1543: fnd_message.set_token('ID',l_invoice_line_id);
1544: fnd_message.set_token('AMT',l_line_amount);
1545: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1546: pnp_debug_pkg.put_log_msg(fnd_message.get);
1547:
1540: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1541: fnd_message.set_token('INV_ID',l_invoice_id);
1542: fnd_message.set_token('NUM',l_invoice_num);
1543: fnd_message.set_token('ID',l_invoice_line_id);
1544: fnd_message.set_token('AMT',l_line_amount);
1545: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1546: pnp_debug_pkg.put_log_msg(fnd_message.get);
1547:
1548: END LOOP;
1541: fnd_message.set_token('INV_ID',l_invoice_id);
1542: fnd_message.set_token('NUM',l_invoice_num);
1543: fnd_message.set_token('ID',l_invoice_line_id);
1544: fnd_message.set_token('AMT',l_line_amount);
1545: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1546: pnp_debug_pkg.put_log_msg(fnd_message.get);
1547:
1548: END LOOP;
1549:
1542: fnd_message.set_token('NUM',l_invoice_num);
1543: fnd_message.set_token('ID',l_invoice_line_id);
1544: fnd_message.set_token('AMT',l_line_amount);
1545: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1546: pnp_debug_pkg.put_log_msg(fnd_message.get);
1547:
1548: END LOOP;
1549:
1550: END IF; -- expense a/c
1562: export_group_id = p_group_id
1563: WHERE payment_item_id = exp_ap_cache(item).pn_payment_item_id;
1564:
1565: IF (SQL%NOTFOUND) then
1566: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_FLAG_NOT_SET');
1567: errbuf := fnd_message.get;
1568: pnp_debug_pkg.put_log_msg(errbuf);
1569: ROLLBACK;
1570: retcode := 2;
1563: WHERE payment_item_id = exp_ap_cache(item).pn_payment_item_id;
1564:
1565: IF (SQL%NOTFOUND) then
1566: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_FLAG_NOT_SET');
1567: errbuf := fnd_message.get;
1568: pnp_debug_pkg.put_log_msg(errbuf);
1569: ROLLBACK;
1570: retcode := 2;
1571: RETURN;
1584: last_update_date = l_last_update_date
1585: WHERE payment_schedule_id = exp_ap_cache(item).pn_payment_schedule_id;
1586:
1587: IF (SQL%NOTFOUND) then
1588: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_INFO_NOT_SET');
1589: errbuf := fnd_message.get;
1590: pnp_debug_pkg.put_log_msg(errbuf);
1591: ROLLBACK;
1592: retcode := 2;
1585: WHERE payment_schedule_id = exp_ap_cache(item).pn_payment_schedule_id;
1586:
1587: IF (SQL%NOTFOUND) then
1588: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_INFO_NOT_SET');
1589: errbuf := fnd_message.get;
1590: pnp_debug_pkg.put_log_msg(errbuf);
1591: ROLLBACK;
1592: retcode := 2;
1593: RETURN;
1606: FOR i IN exists_msg LOOP
1607: l_msg_exists := TRUE;
1608: END LOOP;
1609: IF l_msg_exists THEN
1610: fnd_message.set_name('PN', 'PN_CANNOT_GRP_ON_INV');
1611: fnd_message.set_token('INV_NUM',l_invoice_num);
1612: pnp_debug_pkg.put_log_msg(fnd_message.get);
1613: ELSE
1614: pnp_debug_pkg.put_log_msg
1607: l_msg_exists := TRUE;
1608: END LOOP;
1609: IF l_msg_exists THEN
1610: fnd_message.set_name('PN', 'PN_CANNOT_GRP_ON_INV');
1611: fnd_message.set_token('INV_NUM',l_invoice_num);
1612: pnp_debug_pkg.put_log_msg(fnd_message.get);
1613: ELSE
1614: pnp_debug_pkg.put_log_msg
1615: ('The system is unable to group and process items with invoice number '||
1608: END LOOP;
1609: IF l_msg_exists THEN
1610: fnd_message.set_name('PN', 'PN_CANNOT_GRP_ON_INV');
1611: fnd_message.set_token('INV_NUM',l_invoice_num);
1612: pnp_debug_pkg.put_log_msg(fnd_message.get);
1613: ELSE
1614: pnp_debug_pkg.put_log_msg
1615: ('The system is unable to group and process items with invoice number '||
1616: l_invoice_num||
1832: ,exp_ap_cache(item).pn_accounted_date)
1833: RETURNING invoice_id, invoice_num, invoice_amount
1834: INTO l_invoice_id, l_invoice_num, l_header_amount;
1835:
1836: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1837: fnd_message.set_token('INV_ID',l_invoice_id);
1838: fnd_message.set_token('INV_NUM',l_invoice_num);
1839: fnd_message.set_token('AMT',l_header_amount);
1840: pnp_debug_pkg.put_log_msg(fnd_message.get);
1833: RETURNING invoice_id, invoice_num, invoice_amount
1834: INTO l_invoice_id, l_invoice_num, l_header_amount;
1835:
1836: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1837: fnd_message.set_token('INV_ID',l_invoice_id);
1838: fnd_message.set_token('INV_NUM',l_invoice_num);
1839: fnd_message.set_token('AMT',l_header_amount);
1840: pnp_debug_pkg.put_log_msg(fnd_message.get);
1841:
1834: INTO l_invoice_id, l_invoice_num, l_header_amount;
1835:
1836: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1837: fnd_message.set_token('INV_ID',l_invoice_id);
1838: fnd_message.set_token('INV_NUM',l_invoice_num);
1839: fnd_message.set_token('AMT',l_header_amount);
1840: pnp_debug_pkg.put_log_msg(fnd_message.get);
1841:
1842: PNP_DEBUG_PKG.put_log_msg(' ');
1835:
1836: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1837: fnd_message.set_token('INV_ID',l_invoice_id);
1838: fnd_message.set_token('INV_NUM',l_invoice_num);
1839: fnd_message.set_token('AMT',l_header_amount);
1840: pnp_debug_pkg.put_log_msg(fnd_message.get);
1841:
1842: PNP_DEBUG_PKG.put_log_msg(' ');
1843: /* Create a line for accrual amount if the term is normalized */
1836: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1837: fnd_message.set_token('INV_ID',l_invoice_id);
1838: fnd_message.set_token('INV_NUM',l_invoice_num);
1839: fnd_message.set_token('AMT',l_header_amount);
1840: pnp_debug_pkg.put_log_msg(fnd_message.get);
1841:
1842: PNP_DEBUG_PKG.put_log_msg(' ');
1843: /* Create a line for accrual amount if the term is normalized */
1844:
1905: ,l_tax_code_override_flag)
1906: RETURNING invoice_line_id, amount
1907: INTO l_invoice_line_id, l_line_amount;
1908:
1909: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1910: fnd_message.set_token('INV_ID',l_invoice_id);
1911: fnd_message.set_token('NUM',l_invoice_num);
1912: fnd_message.set_token('ID',l_invoice_line_id);
1913: fnd_message.set_token('AMT',l_line_amount);
1906: RETURNING invoice_line_id, amount
1907: INTO l_invoice_line_id, l_line_amount;
1908:
1909: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1910: fnd_message.set_token('INV_ID',l_invoice_id);
1911: fnd_message.set_token('NUM',l_invoice_num);
1912: fnd_message.set_token('ID',l_invoice_line_id);
1913: fnd_message.set_token('AMT',l_line_amount);
1914: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1907: INTO l_invoice_line_id, l_line_amount;
1908:
1909: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1910: fnd_message.set_token('INV_ID',l_invoice_id);
1911: fnd_message.set_token('NUM',l_invoice_num);
1912: fnd_message.set_token('ID',l_invoice_line_id);
1913: fnd_message.set_token('AMT',l_line_amount);
1914: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1915: pnp_debug_pkg.put_log_msg(fnd_message.get);
1908:
1909: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1910: fnd_message.set_token('INV_ID',l_invoice_id);
1911: fnd_message.set_token('NUM',l_invoice_num);
1912: fnd_message.set_token('ID',l_invoice_line_id);
1913: fnd_message.set_token('AMT',l_line_amount);
1914: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1915: pnp_debug_pkg.put_log_msg(fnd_message.get);
1916:
1909: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1910: fnd_message.set_token('INV_ID',l_invoice_id);
1911: fnd_message.set_token('NUM',l_invoice_num);
1912: fnd_message.set_token('ID',l_invoice_line_id);
1913: fnd_message.set_token('AMT',l_line_amount);
1914: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1915: pnp_debug_pkg.put_log_msg(fnd_message.get);
1916:
1917: END LOOP; -- for accrual_tab
1910: fnd_message.set_token('INV_ID',l_invoice_id);
1911: fnd_message.set_token('NUM',l_invoice_num);
1912: fnd_message.set_token('ID',l_invoice_line_id);
1913: fnd_message.set_token('AMT',l_line_amount);
1914: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1915: pnp_debug_pkg.put_log_msg(fnd_message.get);
1916:
1917: END LOOP; -- for accrual_tab
1918: END IF; -- accrual entered if normalized
1911: fnd_message.set_token('NUM',l_invoice_num);
1912: fnd_message.set_token('ID',l_invoice_line_id);
1913: fnd_message.set_token('AMT',l_line_amount);
1914: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1915: pnp_debug_pkg.put_log_msg(fnd_message.get);
1916:
1917: END LOOP; -- for accrual_tab
1918: END IF; -- accrual entered if normalized
1919:
1992: ,l_tax_code_override_flag)
1993: RETURNING invoice_line_id, amount
1994: INTO l_invoice_line_id, l_line_amount;
1995:
1996: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1997: fnd_message.set_token('INV_ID',l_invoice_id);
1998: fnd_message.set_token('NUM',l_invoice_num);
1999: fnd_message.set_token('ID',l_invoice_line_id);
2000: fnd_message.set_token('AMT',l_line_amount);
1993: RETURNING invoice_line_id, amount
1994: INTO l_invoice_line_id, l_line_amount;
1995:
1996: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1997: fnd_message.set_token('INV_ID',l_invoice_id);
1998: fnd_message.set_token('NUM',l_invoice_num);
1999: fnd_message.set_token('ID',l_invoice_line_id);
2000: fnd_message.set_token('AMT',l_line_amount);
2001: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1994: INTO l_invoice_line_id, l_line_amount;
1995:
1996: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1997: fnd_message.set_token('INV_ID',l_invoice_id);
1998: fnd_message.set_token('NUM',l_invoice_num);
1999: fnd_message.set_token('ID',l_invoice_line_id);
2000: fnd_message.set_token('AMT',l_line_amount);
2001: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
2002: pnp_debug_pkg.put_log_msg(fnd_message.get);
1995:
1996: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1997: fnd_message.set_token('INV_ID',l_invoice_id);
1998: fnd_message.set_token('NUM',l_invoice_num);
1999: fnd_message.set_token('ID',l_invoice_line_id);
2000: fnd_message.set_token('AMT',l_line_amount);
2001: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
2002: pnp_debug_pkg.put_log_msg(fnd_message.get);
2003:
1996: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1997: fnd_message.set_token('INV_ID',l_invoice_id);
1998: fnd_message.set_token('NUM',l_invoice_num);
1999: fnd_message.set_token('ID',l_invoice_line_id);
2000: fnd_message.set_token('AMT',l_line_amount);
2001: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
2002: pnp_debug_pkg.put_log_msg(fnd_message.get);
2003:
2004: END LOOP;
1997: fnd_message.set_token('INV_ID',l_invoice_id);
1998: fnd_message.set_token('NUM',l_invoice_num);
1999: fnd_message.set_token('ID',l_invoice_line_id);
2000: fnd_message.set_token('AMT',l_line_amount);
2001: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
2002: pnp_debug_pkg.put_log_msg(fnd_message.get);
2003:
2004: END LOOP;
2005: END IF; -- expense a/c
1998: fnd_message.set_token('NUM',l_invoice_num);
1999: fnd_message.set_token('ID',l_invoice_line_id);
2000: fnd_message.set_token('AMT',l_line_amount);
2001: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
2002: pnp_debug_pkg.put_log_msg(fnd_message.get);
2003:
2004: END LOOP;
2005: END IF; -- expense a/c
2006:
2017: export_group_id = p_group_id
2018: WHERE payment_item_id = exp_ap_cache(item).pn_payment_item_id;
2019:
2020: IF (SQL%NOTFOUND) then
2021: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_FLAG_NOT_SET');
2022: errbuf := fnd_message.get;
2023: rollback;
2024: retcode := 2;
2025: RETURN;
2018: WHERE payment_item_id = exp_ap_cache(item).pn_payment_item_id;
2019:
2020: IF (SQL%NOTFOUND) then
2021: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_FLAG_NOT_SET');
2022: errbuf := fnd_message.get;
2023: rollback;
2024: retcode := 2;
2025: RETURN;
2026: END IF;
2038: last_update_date = l_last_update_date
2039: WHERE payment_schedule_id = exp_ap_cache(item).pn_payment_schedule_id;
2040:
2041: IF (SQL%NOTFOUND) then
2042: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_INFO_NOT_SET');
2043: errbuf := fnd_message.get;
2044: rollback;
2045: retcode := 2;
2046: return;
2039: WHERE payment_schedule_id = exp_ap_cache(item).pn_payment_schedule_id;
2040:
2041: IF (SQL%NOTFOUND) then
2042: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_INFO_NOT_SET');
2043: errbuf := fnd_message.get;
2044: rollback;
2045: retcode := 2;
2046: return;
2047: END IF;
2564: COMMIT;
2565:
2566: pnp_debug_pkg.put_log_msg('
2567: ===========================================================================');
2568: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_SUC');
2569: fnd_message.set_token ('NUM',(l_total_ctr - l_error_ctr));
2570: pnp_debug_pkg.put_log_msg(fnd_message.get);
2571:
2572: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2565:
2566: pnp_debug_pkg.put_log_msg('
2567: ===========================================================================');
2568: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_SUC');
2569: fnd_message.set_token ('NUM',(l_total_ctr - l_error_ctr));
2570: pnp_debug_pkg.put_log_msg(fnd_message.get);
2571:
2572: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2573: fnd_message.set_token ('NUM',l_error_ctr);
2566: pnp_debug_pkg.put_log_msg('
2567: ===========================================================================');
2568: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_SUC');
2569: fnd_message.set_token ('NUM',(l_total_ctr - l_error_ctr));
2570: pnp_debug_pkg.put_log_msg(fnd_message.get);
2571:
2572: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2573: fnd_message.set_token ('NUM',l_error_ctr);
2574: pnp_debug_pkg.put_log_msg(fnd_message.get);
2568: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_SUC');
2569: fnd_message.set_token ('NUM',(l_total_ctr - l_error_ctr));
2570: pnp_debug_pkg.put_log_msg(fnd_message.get);
2571:
2572: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2573: fnd_message.set_token ('NUM',l_error_ctr);
2574: pnp_debug_pkg.put_log_msg(fnd_message.get);
2575:
2576: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_TOT');
2569: fnd_message.set_token ('NUM',(l_total_ctr - l_error_ctr));
2570: pnp_debug_pkg.put_log_msg(fnd_message.get);
2571:
2572: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2573: fnd_message.set_token ('NUM',l_error_ctr);
2574: pnp_debug_pkg.put_log_msg(fnd_message.get);
2575:
2576: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_TOT');
2577: fnd_message.set_token ('NUM',l_total_ctr);
2570: pnp_debug_pkg.put_log_msg(fnd_message.get);
2571:
2572: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2573: fnd_message.set_token ('NUM',l_error_ctr);
2574: pnp_debug_pkg.put_log_msg(fnd_message.get);
2575:
2576: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_TOT');
2577: fnd_message.set_token ('NUM',l_total_ctr);
2578: pnp_debug_pkg.put_log_msg(fnd_message.get);
2572: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2573: fnd_message.set_token ('NUM',l_error_ctr);
2574: pnp_debug_pkg.put_log_msg(fnd_message.get);
2575:
2576: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_TOT');
2577: fnd_message.set_token ('NUM',l_total_ctr);
2578: pnp_debug_pkg.put_log_msg(fnd_message.get);
2579:
2580: pnp_debug_pkg.put_log_msg('
2573: fnd_message.set_token ('NUM',l_error_ctr);
2574: pnp_debug_pkg.put_log_msg(fnd_message.get);
2575:
2576: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_TOT');
2577: fnd_message.set_token ('NUM',l_total_ctr);
2578: pnp_debug_pkg.put_log_msg(fnd_message.get);
2579:
2580: pnp_debug_pkg.put_log_msg('
2581: ===========================================================================');
2574: pnp_debug_pkg.put_log_msg(fnd_message.get);
2575:
2576: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_TOT');
2577: fnd_message.set_token ('NUM',l_total_ctr);
2578: pnp_debug_pkg.put_log_msg(fnd_message.get);
2579:
2580: pnp_debug_pkg.put_log_msg('
2581: ===========================================================================');
2582: PNP_DEBUG_PKG.log('pn_exp_to_ap.exp_to_ap (-)');
2592: retcode := 2;
2593: ROLLBACK;
2594:
2595: WHEN OTHERS THEN
2596: -- fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_PROBLEM');
2597: pnp_debug_pkg.LOG(SUBSTR(l_context,1,244));
2598: errbuf := SQLERRM;
2599: retcode := 2;
2600: ROLLBACK;