190: x_return_status);
191:
192:
193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
194: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
197: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
198: RAISE OKL_API.G_EXCEPTION_ERROR;
193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
194: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
197: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
198: RAISE OKL_API.G_EXCEPTION_ERROR;
199: END IF;
200:
201: l_init_msg_list := p_init_msg_list ;
206:
207: FOR l_okl_khr_cur IN l_khr_cur
208: LOOP
209: BEGIN
210: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Processing: OKS Contract ID => '||l_okl_khr_cur.oks_khr_id||
211: ' ,OKL Contract ID=> '||l_okl_khr_cur.contract_number
212: ||' ,Contract Line Id=> '||l_okl_khr_cur.cle_id);
213: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
214: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Processing: OKS Contract ID => '||l_okl_khr_cur.oks_khr_id||
229: OPEN l_fin_asset_id_cur(l_oks_khr_id, l_cov_asset_id);
230: FETCH l_fin_asset_id_cur INTO l_fin_asset_id;
231: CLOSE l_fin_asset_id_cur;
232:
233: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Transaction Type => '||l_try_id);
234:
235: l_taiv_rec.trx_status_code := 'SUBMITTED';
236: l_taiv_rec.sfwt_flag := 'Y';
237: l_taiv_rec.khr_id := l_okl_khr_id;
272: END IF;
273: -- End of wraper code generated automatically by Debug code generator for Okl_Trx_Ar_Invoices_Pub.insert_trx_ar_invoices
274:
275: IF (l_return_status = 'S' ) THEN
276: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' ... Internal TXN Header Created.');
277: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
278: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ... Internal TXN Header Created.');
279: END IF;
280: END IF;
280: END IF;
281:
282: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
283: RAISE ubb_failed;
284: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction => '||l_msg_data);
285: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
286: RAISE ubb_failed;
287: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction => '||l_msg_data);
288: END IF;*/
283: RAISE ubb_failed;
284: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction => '||l_msg_data);
285: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
286: RAISE ubb_failed;
287: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction => '||l_msg_data);
288: END IF;*/
289: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
290: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Inside Lines Cursor.');
291: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Processing: BTN ID => '||l_okl_khr_cur.BTN_ID
294: ||' ,Cont ID=> '||l_okl_khr_cur.oks_line_id
295: ||' ,Currency Code=> '||l_okl_khr_cur.CURRENCY_CODE
296: ||' ,Amount=> '||l_okl_khr_cur.LINE_AMOUNT);
297: END IF;
298: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Processing: BTN ID => '||l_okl_khr_cur.BTN_ID
299: ||' ,date billed from=> '||l_okl_khr_cur.DATE_BILLED_FROM
300: ||' ,date billed to=> '||l_okl_khr_cur.DATE_BILLED_TO
301: ||' ,Cont ID=> '||l_okl_khr_cur.oks_line_id
302: ||' ,Currency Code=> '||l_okl_khr_cur.CURRENCY_CODE
339: END IF;
340: -- End of wraper code generated automatically by Debug code generator for okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns
341:
342: IF (l_return_status = 'S' ) THEN
343: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' ... Internal TXN Lines Created.');
344: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
345: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ... Internal TXN Lines Created.');
346: END IF;
347: END IF;
346: END IF;
347: END IF;
348:
349: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
350: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction Lines => '||l_msg_data);
351: RAISE ubb_failed;
352: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
353: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction Lines=> '||l_msg_data);
354: RAISE ubb_failed;
349: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
350: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction Lines => '||l_msg_data);
351: RAISE ubb_failed;
352: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
353: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction Lines=> '||l_msg_data);
354: RAISE ubb_failed;
355: END IF;*/
356:
357: Okl_Streams_Util.get_primary_stream_type(
360: x_return_status => l_return_status,
361: x_primary_sty_id => l_sty_id );
362:
363: IF (l_return_status = 'S' ) THEN
364: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose USAGE_PAYMENT retrieved.');
365: ELSE
366: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Could not retrieve Stream Id for purpose USAGE_PAYMENT.');
367: END IF;
368:
362:
363: IF (l_return_status = 'S' ) THEN
364: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose USAGE_PAYMENT retrieved.');
365: ELSE
366: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Could not retrieve Stream Id for purpose USAGE_PAYMENT.');
367: END IF;
368:
369: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
370: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
376: OPEN l_sty_id_cur;
377: FETCH l_sty_id_cur INTO l_sty_id;
378: CLOSE l_sty_id_cur;
379: */
380: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Stream Type => '||l_sty_id);
381:
382: l_detail_number := l_first_line;
383:
384: l_tldv_rec.sty_id := l_sty_id;
390: l_tldv_rec.line_detail_number := l_detail_number;
391: --20-jun-07 ansethur added for R12B Billing Architecture project
392: l_tldv_rec.TXL_AR_LINE_NUMBER := 1;
393: --20-jun-07 ansethur added for R12B Billing Architecture project
394: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Line Detail Number => '||l_tldv_rec.line_detail_number);
395:
396: /*-- Start of wraper code generated automatically by Debug code generator for Okl_Txd_Ar_Ln_Dtls_Pub.insert_txd_ar_ln_dtls
397: IF(IS_DEBUG_PROCEDURE_ON) THEN
398: BEGIN
416: END IF;
417: -- End of wraper code generated automatically by Debug code generator for Okl_Txd_Ar_Ln_Dtls_Pub.insert_txd_ar_ln_dtls
418:
419: IF (l_return_status = 'S' ) THEN
420: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' ... Details Created.');
421: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
422: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ... Details Created.');
423: END IF;
424: END IF;*/
486: -- End of wraper code generated automatically by Debug code generator for Okl_Acc_Call_Pub.CREATE_ACC_TRANS
487:
488: IF (x_return_status = 'S' ) THEN
489: commit;
490: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' ... ACCOUNTING Created.');
491: ELSE
492: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
493: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ... Accounting Failed.');
494: END IF;
500: p_encoded => FND_API.G_FALSE,
501: p_data => x_msg_data,
502: p_msg_index_out => l_msg_index_out
503: );
504: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Error '||to_char(i)||': '||x_msg_data);
505: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Message Index: '||l_msg_index_out);
506: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error '||to_char(i)||': '||x_msg_data);
508: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Message Index: '||l_msg_index_out);
501: p_data => x_msg_data,
502: p_msg_index_out => l_msg_index_out
503: );
504: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Error '||to_char(i)||': '||x_msg_data);
505: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Message Index: '||l_msg_index_out);
506: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error '||to_char(i)||': '||x_msg_data);
508: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Message Index: '||l_msg_index_out);
509: END IF;
509: END IF;
510: END LOOP;
511:
512: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
513: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
514: RAISE ubb_failed;
515: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
516: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
517: RAISE ubb_failed;
512: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
513: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
514: RAISE ubb_failed;
515: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
516: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
517: RAISE ubb_failed;
518: END IF;*/
519: EXCEPTION
520: WHEN ubb_failed THEN
517: RAISE ubb_failed;
518: END IF;*/
519: EXCEPTION
520: WHEN ubb_failed THEN
521: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error In UBB, Processing Next Record ');
522: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
523: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Rolling Back Transaction');
524: ROLLBACK;
525: -- DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || '_PVT');
518: END IF;*/
519: EXCEPTION
520: WHEN ubb_failed THEN
521: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error In UBB, Processing Next Record ');
522: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
523: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Rolling Back Transaction');
524: ROLLBACK;
525: -- DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || '_PVT');
526: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error '||x_msg_data);
519: EXCEPTION
520: WHEN ubb_failed THEN
521: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error In UBB, Processing Next Record ');
522: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
523: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Rolling Back Transaction');
524: ROLLBACK;
525: -- DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || '_PVT');
526: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error '||x_msg_data);
527: END;
522: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
523: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Rolling Back Transaction');
524: ROLLBACK;
525: -- DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || '_PVT');
526: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error '||x_msg_data);
527: END;
528:
529: END LOOP;
530: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
530: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
531:
532: EXCEPTION
533: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
534: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
535: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
536: (
537: l_api_name,
538: G_PKG_NAME,
541: x_msg_data,
542: '_PVT'
543: );
544: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
545: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
546: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
547: (
548: l_api_name,
549: G_PKG_NAME,
552: x_msg_data,
553: '_PVT'
554: );
555: WHEN OTHERS THEN
556: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
557: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
558: (
559: l_api_name,
560: G_PKG_NAME,
827: x_msg_data => x_msg_data);
828:
829: EXCEPTION
830: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
831: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
832: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
833: (
834: l_api_name,
835: G_PKG_NAME,
838: x_msg_data,
839: '_PVT'
840: );
841: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
842: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
843: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
844: (
845: l_api_name,
846: G_PKG_NAME,
849: x_msg_data,
850: '_PVT'
851: );
852: WHEN OTHERS THEN
853: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
854: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
855: (
856: l_api_name,
857: G_PKG_NAME,
1001: ------------------------------------------------------------
1002: -- Start processing
1003: ------------------------------------------------------------
1004:
1005: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1006: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1007:
1008: l_return_status := Okl_Api.START_ACTIVITY(
1009: p_api_name => l_api_name,
1031: ------------------------------------------------------------
1032: -- Process every COVERED ASSET LINE to be billed
1033: ------------------------------------------------------------
1034:
1035: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1036: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ** Start Processing. Please See Error Log for any errored transactions ** ');
1037: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1038:
1039:
1032: -- Process every COVERED ASSET LINE to be billed
1033: ------------------------------------------------------------
1034:
1035: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1036: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ** Start Processing. Please See Error Log for any errored transactions ** ');
1037: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1038:
1039:
1040: FOR l_oks_bill_rec IN c_oks_bill(p_contract_number)
1033: ------------------------------------------------------------
1034:
1035: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1036: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ** Start Processing. Please See Error Log for any errored transactions ** ');
1037: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1038:
1039:
1040: FOR l_oks_bill_rec IN c_oks_bill(p_contract_number)
1041: LOOP
1039:
1040: FOR l_oks_bill_rec IN c_oks_bill(p_contract_number)
1041: LOOP
1042:
1043: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' Processing: Contract Number=> '||l_oks_bill_rec.contract_number
1044: ||' ,for date=> '||l_oks_bill_rec.DATE_BILLED_FROM||' and Amount=> '||l_ste_amount);
1045: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1046: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract Number'||l_oks_bill_rec.contract_number);
1047: END IF;
1047: END IF;
1048:
1049: l_ste_amount := l_oks_bill_rec.asset_amount;
1050:
1051: FND_FILE.PUT_LINE (FND_FILE.LOG, '===============================================================================');
1052: FND_FILE.PUT_LINE (FND_FILE.LOG, ' Processing: Contract Number=> '||l_oks_bill_rec.contract_number
1053: ||' ,for date=> '||l_oks_bill_rec.DATE_BILLED_FROM||' and Amount=> '||l_ste_amount);
1054:
1055: ----------------------------------------------------
1048:
1049: l_ste_amount := l_oks_bill_rec.asset_amount;
1050:
1051: FND_FILE.PUT_LINE (FND_FILE.LOG, '===============================================================================');
1052: FND_FILE.PUT_LINE (FND_FILE.LOG, ' Processing: Contract Number=> '||l_oks_bill_rec.contract_number
1053: ||' ,for date=> '||l_oks_bill_rec.DATE_BILLED_FROM||' and Amount=> '||l_ste_amount);
1054:
1055: ----------------------------------------------------
1056: -- Create new transaction header for every
1125: ,i_taiv_rec
1126: ,r_taiv_rec);
1127:
1128: IF (l_return_status = 'S' ) THEN
1129: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal TXN Header Created.');
1130: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1131: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN Header Created.');
1132: END IF;
1133: ELSE
1130: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1131: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN Header Created.');
1132: END IF;
1133: ELSE
1134: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Creating Internal TXN Header.');
1135: END IF;
1136:
1137: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1138: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1157:
1158: IF l_kle_id <> NVL (l_oks_bill_rec.kle_id, l_null_kle_id)
1159: OR l_bill_date <> l_oks_bill_rec.DATE_BILLED_FROM THEN
1160:
1161: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' Processing: Contract LINE=> '||l_oks_bill_rec.kle_id);
1162: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1163: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract Line'||l_oks_bill_rec.kle_id);
1164: END IF;
1165: ---------------------------------------------
1223: ,i_tilv_rec
1224: ,r_tilv_rec);
1225:
1226: IF (l_return_status = 'S' ) THEN
1227: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal TXN Line Created.');
1228: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1229: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN Line Created.');
1230: END IF;
1231: ELSE
1228: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1229: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN Line Created.');
1230: END IF;
1231: ELSE
1232: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Creating Internal TXN Line.');
1233: END IF;
1234:
1235:
1236: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1263: */
1264:
1265: l_sty_id := l_oks_bill_rec.sty_id;
1266:
1267: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Stream Type => '||l_sty_id);
1268:
1269: i_tldv_rec.sty_id := l_sty_id;
1270: i_tldv_rec.amount := l_oks_bill_rec.asset_amount;
1271: /* Find the values of these
1308: ,i_tldv_rec
1309: ,r_tldv_rec);
1310:
1311: IF (l_return_status = 'S' ) THEN
1312: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal TXN Details Created.');
1313: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1314: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1315: END IF;
1316: ELSE
1313: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1314: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1315: END IF;
1316: ELSE
1317: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Internal TXN Details.');
1318: END IF;
1319:
1320: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1321: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1366: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1367: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Accounting Distributions Created.');
1368: END IF;
1369: IF (x_return_status = 'S' ) THEN
1370: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Accounting Distributions Created.');
1371: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1372: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Accounting Distributions Created.');
1373: END IF;
1374: ELSE
1375: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Accounting Distributions Errored.');
1377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error Message'||x_msg_data);
1378: END IF;
1379: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Accounting Distributions NOT Created.');
1380: END IF;
1381:
1382:
1383: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1402: -- Commit the present record
1403: ---------------------------------------------------
1404: COMMIT;
1405:
1406: FND_FILE.PUT_LINE (FND_FILE.LOG, ' DONE Processing: Contract Number=> '||l_oks_bill_rec.contract_number||' ,Stream Name=> '
1407: ||' ,for date=> '||l_oks_bill_rec.DATE_BILLED_FROM||' and Amount=> '||l_ste_amount);
1408:
1409: FND_FILE.PUT_LINE (FND_FILE.LOG, '===============================================================================');
1410:
1405:
1406: FND_FILE.PUT_LINE (FND_FILE.LOG, ' DONE Processing: Contract Number=> '||l_oks_bill_rec.contract_number||' ,Stream Name=> '
1407: ||' ,for date=> '||l_oks_bill_rec.DATE_BILLED_FROM||' and Amount=> '||l_ste_amount);
1408:
1409: FND_FILE.PUT_LINE (FND_FILE.LOG, '===============================================================================');
1410:
1411: END LOOP;
1412:
1413: ------------------------------------------------------------
1469: x_msg_data => x_msg_data);
1470:
1471: EXCEPTION
1472: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1473: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
1474: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1475: (
1476: l_api_name,
1477: G_PKG_NAME,
1480: x_msg_data,
1481: '_PVT'
1482: );
1483: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1484: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
1485: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1486: (
1487: l_api_name,
1488: G_PKG_NAME,
1491: x_msg_data,
1492: '_PVT'
1493: );
1494: WHEN OTHERS THEN
1495: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
1496: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1497: (
1498: l_api_name,
1499: G_PKG_NAME,