136: --convert to fnd_canonical date
137: l_to_date := FND_DATE.CANONICAL_TO_DATE(p_to_date);
138: END IF;
139:
140: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Create Investor Invoice Disbursements');
141: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
142: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date: '||sysdate||' Request Id: '||l_request_id);
143: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Investor Agreement: '||p_investor_agreement);
144: -- FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'From Invoice Date: '||l_from_date);
137: l_to_date := FND_DATE.CANONICAL_TO_DATE(p_to_date);
138: END IF;
139:
140: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Create Investor Invoice Disbursements');
141: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
142: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date: '||sysdate||' Request Id: '||l_request_id);
143: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Investor Agreement: '||p_investor_agreement);
144: -- FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'From Invoice Date: '||l_from_date);
145: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'To Invoice Date: '||l_to_date);
138: END IF;
139:
140: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Create Investor Invoice Disbursements');
141: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
142: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date: '||sysdate||' Request Id: '||l_request_id);
143: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Investor Agreement: '||p_investor_agreement);
144: -- FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'From Invoice Date: '||l_from_date);
145: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'To Invoice Date: '||l_to_date);
146: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
139:
140: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Create Investor Invoice Disbursements');
141: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
142: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date: '||sysdate||' Request Id: '||l_request_id);
143: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Investor Agreement: '||p_investor_agreement);
144: -- FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'From Invoice Date: '||l_from_date);
145: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'To Invoice Date: '||l_to_date);
146: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
147:
140: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Create Investor Invoice Disbursements');
141: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
142: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date: '||sysdate||' Request Id: '||l_request_id);
143: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Investor Agreement: '||p_investor_agreement);
144: -- FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'From Invoice Date: '||l_from_date);
145: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'To Invoice Date: '||l_to_date);
146: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
147:
148: OKL_INVESTOR_DISBURSEMENT_IN
141: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
142: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date: '||sysdate||' Request Id: '||l_request_id);
143: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Investor Agreement: '||p_investor_agreement);
144: -- FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'From Invoice Date: '||l_from_date);
145: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'To Invoice Date: '||l_to_date);
146: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
147:
148: OKL_INVESTOR_DISBURSEMENT_IN
149: (p_api_version => l_api_version
142: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date: '||sysdate||' Request Id: '||l_request_id);
143: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Investor Agreement: '||p_investor_agreement);
144: -- FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'From Invoice Date: '||l_from_date);
145: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'To Invoice Date: '||l_to_date);
146: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
147:
148: OKL_INVESTOR_DISBURSEMENT_IN
149: (p_api_version => l_api_version
150: ,p_init_msg_list => OKC_API.G_FALSE
165: FETCH tap_cnt_err_csr INTO l_err_cnt;
166: CLOSE tap_cnt_err_csr;
167:
168:
169: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Successful records in OKL_TRX_AP_INVOICES_B :'||l_succ_cnt);
170: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Errored records in OKL_TRX_AP_INVOICES_B :'||l_err_cnt);
171:
172:
173: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Success or Error Detailed Messages (If Any):');
166: CLOSE tap_cnt_err_csr;
167:
168:
169: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Successful records in OKL_TRX_AP_INVOICES_B :'||l_succ_cnt);
170: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Errored records in OKL_TRX_AP_INVOICES_B :'||l_err_cnt);
171:
172:
173: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Success or Error Detailed Messages (If Any):');
174:
169: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Successful records in OKL_TRX_AP_INVOICES_B :'||l_succ_cnt);
170: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Errored records in OKL_TRX_AP_INVOICES_B :'||l_err_cnt);
171:
172:
173: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Success or Error Detailed Messages (If Any):');
174:
175: IF lx_msg_count >= 1 THEN
176: FOR i in 1..lx_msg_count LOOP
177: fnd_msg_pub.get (
179: p_encoded => 'F',
180: p_data => lx_msg_data,
181: p_msg_index_out => l_msg_index_out);
182:
183: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,to_char(i) || ': ' || lx_msg_data);
184: END LOOP;
185: END IF;
186: EXCEPTION
187: WHEN OTHERS THEN
184: END LOOP;
185: END IF;
186: EXCEPTION
187: WHEN OTHERS THEN
188: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Error '||TO_CHAR(SQLCODE)||': '||SQLERRM);
189:
190: END OKL_INVESTOR_DISBURSEMENT;
191:
192: END OKL_INVESTOR_INVOICE_DISB_PUB;