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;
1297: inserted_inv_t(l_temp_count).invoice_id := l_invoice_id;
1298: inserted_inv_t(l_temp_count).invoice_num := l_invoice_num;
1299: inserted_inv_t(l_temp_count).items_proc := l_next - l_start;
1300:
1301: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1302: fnd_message.set_token('INV_ID',l_invoice_id);
1303: fnd_message.set_token('INV_NUM',l_invoice_num);
1304: fnd_message.set_token('AMT',l_header_amount);
1305: pnp_debug_pkg.put_log_msg(fnd_message.get);
1298: inserted_inv_t(l_temp_count).invoice_num := l_invoice_num;
1299: inserted_inv_t(l_temp_count).items_proc := l_next - l_start;
1300:
1301: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1302: fnd_message.set_token('INV_ID',l_invoice_id);
1303: fnd_message.set_token('INV_NUM',l_invoice_num);
1304: fnd_message.set_token('AMT',l_header_amount);
1305: pnp_debug_pkg.put_log_msg(fnd_message.get);
1306:
1299: inserted_inv_t(l_temp_count).items_proc := l_next - l_start;
1300:
1301: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1302: fnd_message.set_token('INV_ID',l_invoice_id);
1303: fnd_message.set_token('INV_NUM',l_invoice_num);
1304: fnd_message.set_token('AMT',l_header_amount);
1305: pnp_debug_pkg.put_log_msg(fnd_message.get);
1306:
1307: PNP_DEBUG_PKG.put_log_msg(' ');
1300:
1301: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1302: fnd_message.set_token('INV_ID',l_invoice_id);
1303: fnd_message.set_token('INV_NUM',l_invoice_num);
1304: fnd_message.set_token('AMT',l_header_amount);
1305: pnp_debug_pkg.put_log_msg(fnd_message.get);
1306:
1307: PNP_DEBUG_PKG.put_log_msg(' ');
1308: -- now for the distributions
1301: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1302: fnd_message.set_token('INV_ID',l_invoice_id);
1303: fnd_message.set_token('INV_NUM',l_invoice_num);
1304: fnd_message.set_token('AMT',l_header_amount);
1305: pnp_debug_pkg.put_log_msg(fnd_message.get);
1306:
1307: PNP_DEBUG_PKG.put_log_msg(' ');
1308: -- now for the distributions
1309:
1455: ,exp_ap_cache(item).pn_tax_classification_code
1456: ,l_tax_code_override_flag)
1457: RETURNING invoice_line_id, amount INTO l_invoice_line_id, l_line_amount;
1458:
1459: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1460: fnd_message.set_token('INV_ID',l_invoice_id);
1461: fnd_message.set_token('NUM',l_invoice_num);
1462: fnd_message.set_token('ID',l_invoice_line_id);
1463: fnd_message.set_token('AMT',l_line_amount);
1456: ,l_tax_code_override_flag)
1457: RETURNING invoice_line_id, amount INTO l_invoice_line_id, l_line_amount;
1458:
1459: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1460: fnd_message.set_token('INV_ID',l_invoice_id);
1461: fnd_message.set_token('NUM',l_invoice_num);
1462: fnd_message.set_token('ID',l_invoice_line_id);
1463: fnd_message.set_token('AMT',l_line_amount);
1464: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1457: RETURNING invoice_line_id, amount INTO l_invoice_line_id, l_line_amount;
1458:
1459: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1460: fnd_message.set_token('INV_ID',l_invoice_id);
1461: fnd_message.set_token('NUM',l_invoice_num);
1462: fnd_message.set_token('ID',l_invoice_line_id);
1463: fnd_message.set_token('AMT',l_line_amount);
1464: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1465: pnp_debug_pkg.put_log_msg(fnd_message.get);
1458:
1459: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1460: fnd_message.set_token('INV_ID',l_invoice_id);
1461: fnd_message.set_token('NUM',l_invoice_num);
1462: fnd_message.set_token('ID',l_invoice_line_id);
1463: fnd_message.set_token('AMT',l_line_amount);
1464: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1465: pnp_debug_pkg.put_log_msg(fnd_message.get);
1466:
1459: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1460: fnd_message.set_token('INV_ID',l_invoice_id);
1461: fnd_message.set_token('NUM',l_invoice_num);
1462: fnd_message.set_token('ID',l_invoice_line_id);
1463: fnd_message.set_token('AMT',l_line_amount);
1464: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1465: pnp_debug_pkg.put_log_msg(fnd_message.get);
1466:
1467: END LOOP; -- for accrual_tab
1460: fnd_message.set_token('INV_ID',l_invoice_id);
1461: fnd_message.set_token('NUM',l_invoice_num);
1462: fnd_message.set_token('ID',l_invoice_line_id);
1463: fnd_message.set_token('AMT',l_line_amount);
1464: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1465: pnp_debug_pkg.put_log_msg(fnd_message.get);
1466:
1467: END LOOP; -- for accrual_tab
1468:
1461: fnd_message.set_token('NUM',l_invoice_num);
1462: fnd_message.set_token('ID',l_invoice_line_id);
1463: fnd_message.set_token('AMT',l_line_amount);
1464: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1465: pnp_debug_pkg.put_log_msg(fnd_message.get);
1466:
1467: END LOOP; -- for accrual_tab
1468:
1469: END IF; -- accrual entered if normalized
1544: ,exp_ap_cache(item).pn_tax_classification_code /*--Bug 6392393--*/
1545: ,l_tax_code_override_flag)
1546: RETURNING invoice_line_id, amount INTO l_invoice_line_id, l_line_amount;
1547:
1548: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1549: fnd_message.set_token('INV_ID',l_invoice_id);
1550: fnd_message.set_token('NUM',l_invoice_num);
1551: fnd_message.set_token('ID',l_invoice_line_id);
1552: fnd_message.set_token('AMT',l_line_amount);
1545: ,l_tax_code_override_flag)
1546: RETURNING invoice_line_id, amount INTO l_invoice_line_id, l_line_amount;
1547:
1548: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1549: fnd_message.set_token('INV_ID',l_invoice_id);
1550: fnd_message.set_token('NUM',l_invoice_num);
1551: fnd_message.set_token('ID',l_invoice_line_id);
1552: fnd_message.set_token('AMT',l_line_amount);
1553: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1546: RETURNING invoice_line_id, amount INTO l_invoice_line_id, l_line_amount;
1547:
1548: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1549: fnd_message.set_token('INV_ID',l_invoice_id);
1550: fnd_message.set_token('NUM',l_invoice_num);
1551: fnd_message.set_token('ID',l_invoice_line_id);
1552: fnd_message.set_token('AMT',l_line_amount);
1553: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1554: pnp_debug_pkg.put_log_msg(fnd_message.get);
1547:
1548: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1549: fnd_message.set_token('INV_ID',l_invoice_id);
1550: fnd_message.set_token('NUM',l_invoice_num);
1551: fnd_message.set_token('ID',l_invoice_line_id);
1552: fnd_message.set_token('AMT',l_line_amount);
1553: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1554: pnp_debug_pkg.put_log_msg(fnd_message.get);
1555:
1548: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1549: fnd_message.set_token('INV_ID',l_invoice_id);
1550: fnd_message.set_token('NUM',l_invoice_num);
1551: fnd_message.set_token('ID',l_invoice_line_id);
1552: fnd_message.set_token('AMT',l_line_amount);
1553: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1554: pnp_debug_pkg.put_log_msg(fnd_message.get);
1555:
1556: END LOOP;
1549: fnd_message.set_token('INV_ID',l_invoice_id);
1550: fnd_message.set_token('NUM',l_invoice_num);
1551: fnd_message.set_token('ID',l_invoice_line_id);
1552: fnd_message.set_token('AMT',l_line_amount);
1553: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1554: pnp_debug_pkg.put_log_msg(fnd_message.get);
1555:
1556: END LOOP;
1557:
1550: fnd_message.set_token('NUM',l_invoice_num);
1551: fnd_message.set_token('ID',l_invoice_line_id);
1552: fnd_message.set_token('AMT',l_line_amount);
1553: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1554: pnp_debug_pkg.put_log_msg(fnd_message.get);
1555:
1556: END LOOP;
1557:
1558: END IF; -- expense a/c
1570: export_group_id = p_group_id
1571: WHERE payment_item_id = exp_ap_cache(item).pn_payment_item_id;
1572:
1573: IF (SQL%NOTFOUND) then
1574: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_FLAG_NOT_SET');
1575: errbuf := fnd_message.get;
1576: pnp_debug_pkg.put_log_msg(errbuf);
1577: ROLLBACK;
1578: retcode := 2;
1571: WHERE payment_item_id = exp_ap_cache(item).pn_payment_item_id;
1572:
1573: IF (SQL%NOTFOUND) then
1574: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_FLAG_NOT_SET');
1575: errbuf := fnd_message.get;
1576: pnp_debug_pkg.put_log_msg(errbuf);
1577: ROLLBACK;
1578: retcode := 2;
1579: RETURN;
1592: last_update_date = l_last_update_date
1593: WHERE payment_schedule_id = exp_ap_cache(item).pn_payment_schedule_id;
1594:
1595: IF (SQL%NOTFOUND) then
1596: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_INFO_NOT_SET');
1597: errbuf := fnd_message.get;
1598: pnp_debug_pkg.put_log_msg(errbuf);
1599: ROLLBACK;
1600: retcode := 2;
1593: WHERE payment_schedule_id = exp_ap_cache(item).pn_payment_schedule_id;
1594:
1595: IF (SQL%NOTFOUND) then
1596: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_INFO_NOT_SET');
1597: errbuf := fnd_message.get;
1598: pnp_debug_pkg.put_log_msg(errbuf);
1599: ROLLBACK;
1600: retcode := 2;
1601: RETURN;
1614: FOR i IN exists_msg LOOP
1615: l_msg_exists := TRUE;
1616: END LOOP;
1617: IF l_msg_exists THEN
1618: fnd_message.set_name('PN', 'PN_CANNOT_GRP_ON_INV');
1619: fnd_message.set_token('INV_NUM',l_invoice_num);
1620: pnp_debug_pkg.put_log_msg(fnd_message.get);
1621: ELSE
1622: pnp_debug_pkg.put_log_msg
1615: l_msg_exists := TRUE;
1616: END LOOP;
1617: IF l_msg_exists THEN
1618: fnd_message.set_name('PN', 'PN_CANNOT_GRP_ON_INV');
1619: fnd_message.set_token('INV_NUM',l_invoice_num);
1620: pnp_debug_pkg.put_log_msg(fnd_message.get);
1621: ELSE
1622: pnp_debug_pkg.put_log_msg
1623: ('The system is unable to group and process items with invoice number '||
1616: END LOOP;
1617: IF l_msg_exists THEN
1618: fnd_message.set_name('PN', 'PN_CANNOT_GRP_ON_INV');
1619: fnd_message.set_token('INV_NUM',l_invoice_num);
1620: pnp_debug_pkg.put_log_msg(fnd_message.get);
1621: ELSE
1622: pnp_debug_pkg.put_log_msg
1623: ('The system is unable to group and process items with invoice number '||
1624: l_invoice_num||
1844: ,'Y')--For Bug 9068811
1845: RETURNING invoice_id, invoice_num, invoice_amount
1846: INTO l_invoice_id, l_invoice_num, l_header_amount;
1847:
1848: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1849: fnd_message.set_token('INV_ID',l_invoice_id);
1850: fnd_message.set_token('INV_NUM',l_invoice_num);
1851: fnd_message.set_token('AMT',l_header_amount);
1852: pnp_debug_pkg.put_log_msg(fnd_message.get);
1845: RETURNING invoice_id, invoice_num, invoice_amount
1846: INTO l_invoice_id, l_invoice_num, l_header_amount;
1847:
1848: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1849: fnd_message.set_token('INV_ID',l_invoice_id);
1850: fnd_message.set_token('INV_NUM',l_invoice_num);
1851: fnd_message.set_token('AMT',l_header_amount);
1852: pnp_debug_pkg.put_log_msg(fnd_message.get);
1853:
1846: INTO l_invoice_id, l_invoice_num, l_header_amount;
1847:
1848: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1849: fnd_message.set_token('INV_ID',l_invoice_id);
1850: fnd_message.set_token('INV_NUM',l_invoice_num);
1851: fnd_message.set_token('AMT',l_header_amount);
1852: pnp_debug_pkg.put_log_msg(fnd_message.get);
1853:
1854: PNP_DEBUG_PKG.put_log_msg(' ');
1847:
1848: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1849: fnd_message.set_token('INV_ID',l_invoice_id);
1850: fnd_message.set_token('INV_NUM',l_invoice_num);
1851: fnd_message.set_token('AMT',l_header_amount);
1852: pnp_debug_pkg.put_log_msg(fnd_message.get);
1853:
1854: PNP_DEBUG_PKG.put_log_msg(' ');
1855: /* Create a line for accrual amount if the term is normalized */
1848: fnd_message.set_name('PN','PN_EXPAP_HEAD_PARAM');
1849: fnd_message.set_token('INV_ID',l_invoice_id);
1850: fnd_message.set_token('INV_NUM',l_invoice_num);
1851: fnd_message.set_token('AMT',l_header_amount);
1852: pnp_debug_pkg.put_log_msg(fnd_message.get);
1853:
1854: PNP_DEBUG_PKG.put_log_msg(' ');
1855: /* Create a line for accrual amount if the term is normalized */
1856:
1919: ,l_tax_code_override_flag)
1920: RETURNING invoice_line_id, amount
1921: INTO l_invoice_line_id, l_line_amount;
1922:
1923: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1924: fnd_message.set_token('INV_ID',l_invoice_id);
1925: fnd_message.set_token('NUM',l_invoice_num);
1926: fnd_message.set_token('ID',l_invoice_line_id);
1927: fnd_message.set_token('AMT',l_line_amount);
1920: RETURNING invoice_line_id, amount
1921: INTO l_invoice_line_id, l_line_amount;
1922:
1923: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1924: fnd_message.set_token('INV_ID',l_invoice_id);
1925: fnd_message.set_token('NUM',l_invoice_num);
1926: fnd_message.set_token('ID',l_invoice_line_id);
1927: fnd_message.set_token('AMT',l_line_amount);
1928: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1921: INTO l_invoice_line_id, l_line_amount;
1922:
1923: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1924: fnd_message.set_token('INV_ID',l_invoice_id);
1925: fnd_message.set_token('NUM',l_invoice_num);
1926: fnd_message.set_token('ID',l_invoice_line_id);
1927: fnd_message.set_token('AMT',l_line_amount);
1928: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1929: pnp_debug_pkg.put_log_msg(fnd_message.get);
1922:
1923: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1924: fnd_message.set_token('INV_ID',l_invoice_id);
1925: fnd_message.set_token('NUM',l_invoice_num);
1926: fnd_message.set_token('ID',l_invoice_line_id);
1927: fnd_message.set_token('AMT',l_line_amount);
1928: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1929: pnp_debug_pkg.put_log_msg(fnd_message.get);
1930:
1923: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
1924: fnd_message.set_token('INV_ID',l_invoice_id);
1925: fnd_message.set_token('NUM',l_invoice_num);
1926: fnd_message.set_token('ID',l_invoice_line_id);
1927: fnd_message.set_token('AMT',l_line_amount);
1928: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1929: pnp_debug_pkg.put_log_msg(fnd_message.get);
1930:
1931: END LOOP; -- for accrual_tab
1924: fnd_message.set_token('INV_ID',l_invoice_id);
1925: fnd_message.set_token('NUM',l_invoice_num);
1926: fnd_message.set_token('ID',l_invoice_line_id);
1927: fnd_message.set_token('AMT',l_line_amount);
1928: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1929: pnp_debug_pkg.put_log_msg(fnd_message.get);
1930:
1931: END LOOP; -- for accrual_tab
1932: END IF; -- accrual entered if normalized
1925: fnd_message.set_token('NUM',l_invoice_num);
1926: fnd_message.set_token('ID',l_invoice_line_id);
1927: fnd_message.set_token('AMT',l_line_amount);
1928: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
1929: pnp_debug_pkg.put_log_msg(fnd_message.get);
1930:
1931: END LOOP; -- for accrual_tab
1932: END IF; -- accrual entered if normalized
1933:
2008: ,l_tax_code_override_flag)
2009: RETURNING invoice_line_id, amount
2010: INTO l_invoice_line_id, l_line_amount;
2011:
2012: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
2013: fnd_message.set_token('INV_ID',l_invoice_id);
2014: fnd_message.set_token('NUM',l_invoice_num);
2015: fnd_message.set_token('ID',l_invoice_line_id);
2016: fnd_message.set_token('AMT',l_line_amount);
2009: RETURNING invoice_line_id, amount
2010: INTO l_invoice_line_id, l_line_amount;
2011:
2012: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
2013: fnd_message.set_token('INV_ID',l_invoice_id);
2014: fnd_message.set_token('NUM',l_invoice_num);
2015: fnd_message.set_token('ID',l_invoice_line_id);
2016: fnd_message.set_token('AMT',l_line_amount);
2017: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
2010: INTO l_invoice_line_id, l_line_amount;
2011:
2012: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
2013: fnd_message.set_token('INV_ID',l_invoice_id);
2014: fnd_message.set_token('NUM',l_invoice_num);
2015: fnd_message.set_token('ID',l_invoice_line_id);
2016: fnd_message.set_token('AMT',l_line_amount);
2017: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
2018: pnp_debug_pkg.put_log_msg(fnd_message.get);
2011:
2012: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
2013: fnd_message.set_token('INV_ID',l_invoice_id);
2014: fnd_message.set_token('NUM',l_invoice_num);
2015: fnd_message.set_token('ID',l_invoice_line_id);
2016: fnd_message.set_token('AMT',l_line_amount);
2017: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
2018: pnp_debug_pkg.put_log_msg(fnd_message.get);
2019:
2012: fnd_message.set_name('PN','PN_EXPAP_LINE_PARAM');
2013: fnd_message.set_token('INV_ID',l_invoice_id);
2014: fnd_message.set_token('NUM',l_invoice_num);
2015: fnd_message.set_token('ID',l_invoice_line_id);
2016: fnd_message.set_token('AMT',l_line_amount);
2017: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
2018: pnp_debug_pkg.put_log_msg(fnd_message.get);
2019:
2020: END LOOP;
2013: fnd_message.set_token('INV_ID',l_invoice_id);
2014: fnd_message.set_token('NUM',l_invoice_num);
2015: fnd_message.set_token('ID',l_invoice_line_id);
2016: fnd_message.set_token('AMT',l_line_amount);
2017: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
2018: pnp_debug_pkg.put_log_msg(fnd_message.get);
2019:
2020: END LOOP;
2021: END IF; -- expense a/c
2014: fnd_message.set_token('NUM',l_invoice_num);
2015: fnd_message.set_token('ID',l_invoice_line_id);
2016: fnd_message.set_token('AMT',l_line_amount);
2017: fnd_message.set_token('PAY_ID',exp_ap_cache(item).pn_payment_item_id);
2018: pnp_debug_pkg.put_log_msg(fnd_message.get);
2019:
2020: END LOOP;
2021: END IF; -- expense a/c
2022:
2033: export_group_id = p_group_id
2034: WHERE payment_item_id = exp_ap_cache(item).pn_payment_item_id;
2035:
2036: IF (SQL%NOTFOUND) then
2037: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_FLAG_NOT_SET');
2038: errbuf := fnd_message.get;
2039: rollback;
2040: retcode := 2;
2041: RETURN;
2034: WHERE payment_item_id = exp_ap_cache(item).pn_payment_item_id;
2035:
2036: IF (SQL%NOTFOUND) then
2037: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_FLAG_NOT_SET');
2038: errbuf := fnd_message.get;
2039: rollback;
2040: retcode := 2;
2041: RETURN;
2042: END IF;
2054: last_update_date = l_last_update_date
2055: WHERE payment_schedule_id = exp_ap_cache(item).pn_payment_schedule_id;
2056:
2057: IF (SQL%NOTFOUND) then
2058: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_INFO_NOT_SET');
2059: errbuf := fnd_message.get;
2060: rollback;
2061: retcode := 2;
2062: return;
2055: WHERE payment_schedule_id = exp_ap_cache(item).pn_payment_schedule_id;
2056:
2057: IF (SQL%NOTFOUND) then
2058: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_INFO_NOT_SET');
2059: errbuf := fnd_message.get;
2060: rollback;
2061: retcode := 2;
2062: return;
2063: END IF;
2580: COMMIT;
2581:
2582: pnp_debug_pkg.put_log_msg('
2583: ===========================================================================');
2584: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_SUC');
2585: fnd_message.set_token ('NUM',(l_total_ctr - l_error_ctr));
2586: pnp_debug_pkg.put_log_msg(fnd_message.get);
2587:
2588: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2581:
2582: pnp_debug_pkg.put_log_msg('
2583: ===========================================================================');
2584: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_SUC');
2585: fnd_message.set_token ('NUM',(l_total_ctr - l_error_ctr));
2586: pnp_debug_pkg.put_log_msg(fnd_message.get);
2587:
2588: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2589: fnd_message.set_token ('NUM',l_error_ctr);
2582: pnp_debug_pkg.put_log_msg('
2583: ===========================================================================');
2584: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_SUC');
2585: fnd_message.set_token ('NUM',(l_total_ctr - l_error_ctr));
2586: pnp_debug_pkg.put_log_msg(fnd_message.get);
2587:
2588: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2589: fnd_message.set_token ('NUM',l_error_ctr);
2590: pnp_debug_pkg.put_log_msg(fnd_message.get);
2584: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_SUC');
2585: fnd_message.set_token ('NUM',(l_total_ctr - l_error_ctr));
2586: pnp_debug_pkg.put_log_msg(fnd_message.get);
2587:
2588: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2589: fnd_message.set_token ('NUM',l_error_ctr);
2590: pnp_debug_pkg.put_log_msg(fnd_message.get);
2591:
2592: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_TOT');
2585: fnd_message.set_token ('NUM',(l_total_ctr - l_error_ctr));
2586: pnp_debug_pkg.put_log_msg(fnd_message.get);
2587:
2588: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2589: fnd_message.set_token ('NUM',l_error_ctr);
2590: pnp_debug_pkg.put_log_msg(fnd_message.get);
2591:
2592: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_TOT');
2593: fnd_message.set_token ('NUM',l_total_ctr);
2586: pnp_debug_pkg.put_log_msg(fnd_message.get);
2587:
2588: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2589: fnd_message.set_token ('NUM',l_error_ctr);
2590: pnp_debug_pkg.put_log_msg(fnd_message.get);
2591:
2592: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_TOT');
2593: fnd_message.set_token ('NUM',l_total_ctr);
2594: pnp_debug_pkg.put_log_msg(fnd_message.get);
2588: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_FAIL');
2589: fnd_message.set_token ('NUM',l_error_ctr);
2590: pnp_debug_pkg.put_log_msg(fnd_message.get);
2591:
2592: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_TOT');
2593: fnd_message.set_token ('NUM',l_total_ctr);
2594: pnp_debug_pkg.put_log_msg(fnd_message.get);
2595:
2596: pnp_debug_pkg.put_log_msg('
2589: fnd_message.set_token ('NUM',l_error_ctr);
2590: pnp_debug_pkg.put_log_msg(fnd_message.get);
2591:
2592: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_TOT');
2593: fnd_message.set_token ('NUM',l_total_ctr);
2594: pnp_debug_pkg.put_log_msg(fnd_message.get);
2595:
2596: pnp_debug_pkg.put_log_msg('
2597: ===========================================================================');
2590: pnp_debug_pkg.put_log_msg(fnd_message.get);
2591:
2592: fnd_message.set_name ('PN','PN_EXPAP_PAY_PROC_TOT');
2593: fnd_message.set_token ('NUM',l_total_ctr);
2594: pnp_debug_pkg.put_log_msg(fnd_message.get);
2595:
2596: pnp_debug_pkg.put_log_msg('
2597: ===========================================================================');
2598: PNP_DEBUG_PKG.log('pn_exp_to_ap.exp_to_ap (-)');
2608: retcode := 2;
2609: ROLLBACK;
2610:
2611: WHEN OTHERS THEN
2612: -- fnd_message.set_name('PN', 'PN_TRANSFER_TO_AP_PROBLEM');
2613: pnp_debug_pkg.LOG(SUBSTR(l_context,1,244));
2614: errbuf := SQLERRM;
2615: retcode := 2;
2616: ROLLBACK;