1206:
1207: -- arp_global.init_global;
1208:
1209: -- Bug 3933606
1210: FND_MESSAGE.SET_NAME('AR','ARI_PRINT_PROGRAM_NAME');
1211: FND_MESSAGE.set_token('CUSTOMER_ID',p_customer_id);
1212: FND_MESSAGE.set_token('CUSTOMER_SITE_ID',p_customer_site_id);
1213: l_program_name := FND_MESSAGE.get;
1214:
1207: -- arp_global.init_global;
1208:
1209: -- Bug 3933606
1210: FND_MESSAGE.SET_NAME('AR','ARI_PRINT_PROGRAM_NAME');
1211: FND_MESSAGE.set_token('CUSTOMER_ID',p_customer_id);
1212: FND_MESSAGE.set_token('CUSTOMER_SITE_ID',p_customer_site_id);
1213: l_program_name := FND_MESSAGE.get;
1214:
1215: -- Bug 3957478 - Single notification for multiple print requests
1208:
1209: -- Bug 3933606
1210: FND_MESSAGE.SET_NAME('AR','ARI_PRINT_PROGRAM_NAME');
1211: FND_MESSAGE.set_token('CUSTOMER_ID',p_customer_id);
1212: FND_MESSAGE.set_token('CUSTOMER_SITE_ID',p_customer_site_id);
1213: l_program_name := FND_MESSAGE.get;
1214:
1215: -- Bug 3957478 - Single notification for multiple print requests
1216: -- Notification here removed
1209: -- Bug 3933606
1210: FND_MESSAGE.SET_NAME('AR','ARI_PRINT_PROGRAM_NAME');
1211: FND_MESSAGE.set_token('CUSTOMER_ID',p_customer_id);
1212: FND_MESSAGE.set_token('CUSTOMER_SITE_ID',p_customer_site_id);
1213: l_program_name := FND_MESSAGE.get;
1214:
1215: -- Bug 3957478 - Single notification for multiple print requests
1216: -- Notification here removed
1217: -- Added for bug 9005896
1239: '','','','','','','','','','',
1240: '','','','','');
1241: if ( l_request_id = 0 ) then
1242:
1243: fnd_message.retrieve(l_message);
1244:
1245: LOOP
1246: l_message:=FND_MSG_PUB.GET(p_encoded=>FND_API.G_FALSE);
1247: IF (l_message IS NULL)THEN
1719: return;
1720: end if;
1721: end if;
1722:
1723: fnd_message.set_name('FND', 'PURGING_UP_TO_DATE');
1724: fnd_message.set_token('ENTITY', 'AR_IREC_PRINT_REQUESTS');
1725: fnd_message.set_token('DATE', l_fnd_request_date);
1726: msgbuf := fnd_message.get;
1727: FND_FILE.put_line(FND_FILE.log, msgbuf);
1720: end if;
1721: end if;
1722:
1723: fnd_message.set_name('FND', 'PURGING_UP_TO_DATE');
1724: fnd_message.set_token('ENTITY', 'AR_IREC_PRINT_REQUESTS');
1725: fnd_message.set_token('DATE', l_fnd_request_date);
1726: msgbuf := fnd_message.get;
1727: FND_FILE.put_line(FND_FILE.log, msgbuf);
1728:
1721: end if;
1722:
1723: fnd_message.set_name('FND', 'PURGING_UP_TO_DATE');
1724: fnd_message.set_token('ENTITY', 'AR_IREC_PRINT_REQUESTS');
1725: fnd_message.set_token('DATE', l_fnd_request_date);
1726: msgbuf := fnd_message.get;
1727: FND_FILE.put_line(FND_FILE.log, msgbuf);
1728:
1729: select count(*) into numrows from ar_irec_print_requests where trunc(creation_date) < trunc(l_fnd_request_date);
1722:
1723: fnd_message.set_name('FND', 'PURGING_UP_TO_DATE');
1724: fnd_message.set_token('ENTITY', 'AR_IREC_PRINT_REQUESTS');
1725: fnd_message.set_token('DATE', l_fnd_request_date);
1726: msgbuf := fnd_message.get;
1727: FND_FILE.put_line(FND_FILE.log, msgbuf);
1728:
1729: select count(*) into numrows from ar_irec_print_requests where trunc(creation_date) < trunc(l_fnd_request_date);
1730: delete from ar_irec_print_requests where trunc(creation_date) < trunc(l_fnd_request_date);
1731: commit;
1732:
1733: fnd_file.put_line( FND_FILE.LOG, '+---------------------------------------------------------------------------+');
1734:
1735: fnd_message.set_name('FND', 'GENERIC_ROWS_PROCESSED');
1736: fnd_message.set_token('ROWS', numrows);
1737: msgbuf := fnd_message.get;
1738: FND_FILE.put_line(FND_FILE.log, msgbuf);
1739: l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(
1732:
1733: fnd_file.put_line( FND_FILE.LOG, '+---------------------------------------------------------------------------+');
1734:
1735: fnd_message.set_name('FND', 'GENERIC_ROWS_PROCESSED');
1736: fnd_message.set_token('ROWS', numrows);
1737: msgbuf := fnd_message.get;
1738: FND_FILE.put_line(FND_FILE.log, msgbuf);
1739: l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(
1740: status => l_cp_return_status,
1733: fnd_file.put_line( FND_FILE.LOG, '+---------------------------------------------------------------------------+');
1734:
1735: fnd_message.set_name('FND', 'GENERIC_ROWS_PROCESSED');
1736: fnd_message.set_token('ROWS', numrows);
1737: msgbuf := fnd_message.get;
1738: FND_FILE.put_line(FND_FILE.log, msgbuf);
1739: l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(
1740: status => l_cp_return_status,
1741: message => 'Purging AR_IREC_PRINT_REQUESTS completed successfully');
1814: return;
1815: end if;
1816: end if;
1817:
1818: fnd_message.set_name('FND', 'PURGING_UP_TO_DATE');
1819: fnd_message.set_token('ENTITY', 'AR_IREC_USER_ACCT_SITES_ALL');
1820: fnd_message.set_token('DATE', l_purge_date);
1821: msgbuf := fnd_message.get;
1822: FND_FILE.put_line(FND_FILE.log, msgbuf);
1815: end if;
1816: end if;
1817:
1818: fnd_message.set_name('FND', 'PURGING_UP_TO_DATE');
1819: fnd_message.set_token('ENTITY', 'AR_IREC_USER_ACCT_SITES_ALL');
1820: fnd_message.set_token('DATE', l_purge_date);
1821: msgbuf := fnd_message.get;
1822: FND_FILE.put_line(FND_FILE.log, msgbuf);
1823:
1816: end if;
1817:
1818: fnd_message.set_name('FND', 'PURGING_UP_TO_DATE');
1819: fnd_message.set_token('ENTITY', 'AR_IREC_USER_ACCT_SITES_ALL');
1820: fnd_message.set_token('DATE', l_purge_date);
1821: msgbuf := fnd_message.get;
1822: FND_FILE.put_line(FND_FILE.log, msgbuf);
1823:
1824: select count(*) into numrows from ar_irec_user_acct_sites_all where trunc(creation_date) < trunc(l_purge_date);
1817:
1818: fnd_message.set_name('FND', 'PURGING_UP_TO_DATE');
1819: fnd_message.set_token('ENTITY', 'AR_IREC_USER_ACCT_SITES_ALL');
1820: fnd_message.set_token('DATE', l_purge_date);
1821: msgbuf := fnd_message.get;
1822: FND_FILE.put_line(FND_FILE.log, msgbuf);
1823:
1824: select count(*) into numrows from ar_irec_user_acct_sites_all where trunc(creation_date) < trunc(l_purge_date);
1825: delete from ar_irec_user_acct_sites_all where trunc(creation_date) < trunc(l_purge_date);
1826: commit;
1827:
1828: fnd_file.put_line( FND_FILE.LOG, '+---------------------------------------------------------------------------+');
1829:
1830: fnd_message.set_name('FND', 'GENERIC_ROWS_PROCESSED');
1831: fnd_message.set_token('ROWS', numrows);
1832: msgbuf := fnd_message.get;
1833: FND_FILE.put_line(FND_FILE.log, msgbuf);
1834: l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(
1827:
1828: fnd_file.put_line( FND_FILE.LOG, '+---------------------------------------------------------------------------+');
1829:
1830: fnd_message.set_name('FND', 'GENERIC_ROWS_PROCESSED');
1831: fnd_message.set_token('ROWS', numrows);
1832: msgbuf := fnd_message.get;
1833: FND_FILE.put_line(FND_FILE.log, msgbuf);
1834: l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(
1835: status => l_cp_return_status,
1828: fnd_file.put_line( FND_FILE.LOG, '+---------------------------------------------------------------------------+');
1829:
1830: fnd_message.set_name('FND', 'GENERIC_ROWS_PROCESSED');
1831: fnd_message.set_token('ROWS', numrows);
1832: msgbuf := fnd_message.get;
1833: FND_FILE.put_line(FND_FILE.log, msgbuf);
1834: l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(
1835: status => l_cp_return_status,
1836: message => 'Purging AR_IREC_USER_ACCT_SITES_ALL completed successfully');