[Home] [Help]
1025: | PUBLIC procedure oir_bpa_print_invoices
1026: |
1027: | DESCRIPTION
1028: | This procedure is used to submit the print request to BPA and also
1029: | inserts the record in ar_irec_print_requests table.
1030: |
1031: | PSEUDO CODE/LOGIC
1032: |
1033: | PARAMETERS
1094:
1095: loop
1096: l_start_location := instr(l_req_id_list, ',', 1);
1097: if(l_start_location = 0) then
1098: INSERT INTO AR_IREC_PRINT_REQUESTS(REQUEST_ID, CUSTOMER_ID, CUSTOMER_SITE_USE_ID, REQUESTED_BY, PROGRAM_NAME, UPLOAD_DATE, CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE, LAST_UPDATE_LOGIN)
1099: VALUES (to_number(l_req_id_list), p_customer_id, p_customer_site_id, l_created_by, p_description, sysdate, l_created_by, l_creation_date, l_last_update_login, l_last_update_date, l_last_updated_by);
1100: exit;
1101: else
1102: l_request_id := substr(l_req_id_list, 1, l_start_location-1);
1100: exit;
1101: else
1102: l_request_id := substr(l_req_id_list, 1, l_start_location-1);
1103: l_req_id_list := substr(l_req_id_list, l_start_location+1);
1104: INSERT INTO AR_IREC_PRINT_REQUESTS(REQUEST_ID, CUSTOMER_ID, CUSTOMER_SITE_USE_ID, REQUESTED_BY, PROGRAM_NAME, UPLOAD_DATE, CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE, LAST_UPDATE_LOGIN)
1105: VALUES (to_number(l_request_id), p_customer_id, p_customer_site_id, l_created_by, p_description, sysdate, l_created_by, l_creation_date, l_last_update_login, l_last_update_date, l_last_updated_by);
1106: end if;
1107: end loop;
1108: commit;
1252: p_request_id := l_request_id;
1253: commit;
1254: end if;
1255:
1256: INSERT INTO AR_IREC_PRINT_REQUESTS(REQUEST_ID, CUSTOMER_ID, CUSTOMER_SITE_USE_ID, REQUESTED_BY, PROGRAM_NAME, UPLOAD_DATE, CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE, LAST_UPDATE_LOGIN)
1257: VALUES (to_number(l_request_id), p_customer_id, p_customer_site_id, l_created_by, l_program_name, sysdate, l_created_by, l_creation_date, l_last_update_login, l_last_update_date, l_last_updated_by);
1258:
1259: commit;
1260:
1659: /*========================================================================
1660: | PUBLIC procedure PURGE_IREC_PRINT_REQUESTS
1661: |
1662: | DESCRIPTION
1663: | This procedure submits cuncurrent request to purge AR_IREC_PRINT_REQUESTS
1664: | table data matching the purge process of FND_CONCURRENT_REQUESTS table.
1665: | --------------------------------------------------------------------
1666: |
1667: | PSEUDO CODE/LOGIC
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:
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, '+---------------------------------------------------------------------------+');
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:
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');
1742: exception
1743: when others then
1744: errbuf := sqlerrm;
1745: retcode := '2';