220: x_return_status);
221:
222:
223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
224: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
227: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
228: RAISE OKL_API.G_EXCEPTION_ERROR;
223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
224: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
227: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
228: RAISE OKL_API.G_EXCEPTION_ERROR;
229: END IF;
230:
231: l_init_msg_list := p_init_msg_list ;
248:
249: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
250: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Invoices of contract => ' || l_distinct_khr_cur.contract_number || ' not billed due to bankruptcy.');
251: END IF;
252: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoices of contract => ' || l_distinct_khr_cur.contract_number || ' not billed due to bankruptcy.');
253:
254: ELSIF (l_distinct_khr_cur.bankruptcy_sts = 'N')
255: THEN
256: -- End of code added as part of Bug# 14119181
259: -- FOR l_okl_khr_cur IN l_khr_cur -- Commented as part of bug 14119181
260: FOR l_okl_khr_cur IN l_khr_cur (l_distinct_khr_cur.contract_number) -- added as part of bug 14119181
261: LOOP
262: BEGIN
263: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Processing: OKS Contract ID => '||l_okl_khr_cur.oks_khr_id||
264: ' ,OKL Contract ID=> '||l_okl_khr_cur.contract_number
265: ||' ,Contract Line Id=> '||l_okl_khr_cur.cle_id);
266: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
267: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Processing: OKS Contract ID => '||l_okl_khr_cur.oks_khr_id||
282: OPEN l_fin_asset_id_cur(l_oks_khr_id, l_cov_asset_id);
283: FETCH l_fin_asset_id_cur INTO l_fin_asset_id;
284: CLOSE l_fin_asset_id_cur;
285:
286: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Transaction Type => '||l_try_id);
287:
288: l_taiv_rec.trx_status_code := 'SUBMITTED';
289: l_taiv_rec.sfwt_flag := 'Y';
290: l_taiv_rec.khr_id := l_okl_khr_id;
325: END IF;
326: -- End of wraper code generated automatically by Debug code generator for Okl_Trx_Ar_Invoices_Pub.insert_trx_ar_invoices
327:
328: IF (l_return_status = 'S' ) THEN
329: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' ... Internal TXN Header Created.');
330: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ... Internal TXN Header Created.');
332: END IF;
333: END IF;
333: END IF;
334:
335: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
336: RAISE ubb_failed;
337: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction => '||l_msg_data);
338: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
339: RAISE ubb_failed;
340: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction => '||l_msg_data);
341: END IF;*/
336: RAISE ubb_failed;
337: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction => '||l_msg_data);
338: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
339: RAISE ubb_failed;
340: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction => '||l_msg_data);
341: END IF;*/
342: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
343: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Inside Lines Cursor.');
344: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Processing: BTN ID => '||l_okl_khr_cur.BTN_ID
347: ||' ,Cont ID=> '||l_okl_khr_cur.oks_line_id
348: ||' ,Currency Code=> '||l_okl_khr_cur.CURRENCY_CODE
349: ||' ,Amount=> '||l_okl_khr_cur.LINE_AMOUNT);
350: END IF;
351: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Processing: BTN ID => '||l_okl_khr_cur.BTN_ID
352: ||' ,date billed from=> '||l_okl_khr_cur.DATE_BILLED_FROM
353: ||' ,date billed to=> '||l_okl_khr_cur.DATE_BILLED_TO
354: ||' ,Cont ID=> '||l_okl_khr_cur.oks_line_id
355: ||' ,Currency Code=> '||l_okl_khr_cur.CURRENCY_CODE
392: END IF;
393: -- End of wraper code generated automatically by Debug code generator for okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns
394:
395: IF (l_return_status = 'S' ) THEN
396: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' ... Internal TXN Lines Created.');
397: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
398: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ... Internal TXN Lines Created.');
399: END IF;
400: END IF;
399: END IF;
400: END IF;
401:
402: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
403: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction Lines => '||l_msg_data);
404: RAISE ubb_failed;
405: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
406: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction Lines=> '||l_msg_data);
407: RAISE ubb_failed;
402: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
403: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction Lines => '||l_msg_data);
404: RAISE ubb_failed;
405: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
406: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in creating Transaction Lines=> '||l_msg_data);
407: RAISE ubb_failed;
408: END IF;*/
409:
410: Okl_Streams_Util.get_primary_stream_type(
413: x_return_status => l_return_status,
414: x_primary_sty_id => l_sty_id );
415:
416: IF (l_return_status = 'S' ) THEN
417: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose USAGE_PAYMENT retrieved.');
418: ELSE
419: --Changed FND_FILE.LOG to FND_FILE.OUTPUT by bkatraga for bug 9667274
420: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Could not retrieve Stream Id for purpose USAGE_PAYMENT.');
421: END IF;
415:
416: IF (l_return_status = 'S' ) THEN
417: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose USAGE_PAYMENT retrieved.');
418: ELSE
419: --Changed FND_FILE.LOG to FND_FILE.OUTPUT by bkatraga for bug 9667274
420: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Could not retrieve Stream Id for purpose USAGE_PAYMENT.');
421: END IF;
422:
423: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
416: IF (l_return_status = 'S' ) THEN
417: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Stream Id for purpose USAGE_PAYMENT retrieved.');
418: ELSE
419: --Changed FND_FILE.LOG to FND_FILE.OUTPUT by bkatraga for bug 9667274
420: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Could not retrieve Stream Id for purpose USAGE_PAYMENT.');
421: END IF;
422:
423: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
424: RAISE ubb_failed; --Added by bkatraga for bug 9667274
430: OPEN l_sty_id_cur;
431: FETCH l_sty_id_cur INTO l_sty_id;
432: CLOSE l_sty_id_cur;
433: */
434: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Stream Type => '||l_sty_id);
435:
436: l_detail_number := l_first_line;
437:
438: l_tldv_rec.sty_id := l_sty_id;
444: l_tldv_rec.line_detail_number := l_detail_number;
445: --20-jun-07 ansethur added for R12B Billing Architecture project
446: l_tldv_rec.TXL_AR_LINE_NUMBER := 1;
447: --20-jun-07 ansethur added for R12B Billing Architecture project
448: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Line Detail Number => '||l_tldv_rec.line_detail_number);
449:
450: /*-- Start of wraper code generated automatically by Debug code generator for Okl_Txd_Ar_Ln_Dtls_Pub.insert_txd_ar_ln_dtls
451: IF(IS_DEBUG_PROCEDURE_ON) THEN
452: BEGIN
470: END IF;
471: -- End of wraper code generated automatically by Debug code generator for Okl_Txd_Ar_Ln_Dtls_Pub.insert_txd_ar_ln_dtls
472:
473: IF (l_return_status = 'S' ) THEN
474: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' ... Details Created.');
475: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
476: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ... Details Created.');
477: END IF;
478: END IF;*/
511: END IF;
512:
513: --Added by bkatraga for bug 9667274
514: COMMIT;
515: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '');
516: --end bkatraga
517:
518: -- p_bpd_acc_rec.id := lx_tldv_rec.id;
519: -- p_bpd_acc_rec.source_table := 'OKL_TXD_AR_LN_DTLS_B';
545: -- End of wraper code generated automatically by Debug code generator for Okl_Acc_Call_Pub.CREATE_ACC_TRANS
546:
547: IF (x_return_status = 'S' ) THEN
548: commit;
549: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' ... ACCOUNTING Created.');
550: ELSE
551: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
552: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ... Accounting Failed.');
553: END IF;
559: p_encoded => FND_API.G_FALSE,
560: p_data => x_msg_data,
561: p_msg_index_out => l_msg_index_out
562: );
563: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Error '||to_char(i)||': '||x_msg_data);
564: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Message Index: '||l_msg_index_out);
565: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
566: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error '||to_char(i)||': '||x_msg_data);
567: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Message Index: '||l_msg_index_out);
560: p_data => x_msg_data,
561: p_msg_index_out => l_msg_index_out
562: );
563: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Error '||to_char(i)||': '||x_msg_data);
564: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Message Index: '||l_msg_index_out);
565: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
566: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error '||to_char(i)||': '||x_msg_data);
567: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Message Index: '||l_msg_index_out);
568: END IF;
568: END IF;
569: END LOOP;
570:
571: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
572: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
573: RAISE ubb_failed;
574: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
575: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
576: RAISE ubb_failed;
571: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
572: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
573: RAISE ubb_failed;
574: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
575: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
576: RAISE ubb_failed;
577: END IF;*/
578: EXCEPTION
579: WHEN ubb_failed THEN
576: RAISE ubb_failed;
577: END IF;*/
578: EXCEPTION
579: WHEN ubb_failed THEN
580: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error In UBB, Processing Next Record ');
581: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
582:
583: --Added by bkatraga for bug 9667274
584: x_msg_count := fnd_msg_pub.count_msg;
577: END IF;*/
578: EXCEPTION
579: WHEN ubb_failed THEN
580: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error In UBB, Processing Next Record ');
581: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
582:
583: --Added by bkatraga for bug 9667274
584: x_msg_count := fnd_msg_pub.count_msg;
585:
591: p_encoded => FND_API.G_FALSE,
592: p_data => x_msg_data,
593: p_msg_index_out => l_msg_index_out
594: );
595: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Error '||to_char(i)||': '||x_msg_data);
596: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Message Index: '||l_msg_index_out);
597: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
598: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error '||to_char(i)||': '||x_msg_data);
599: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Message Index: '||l_msg_index_out);
592: p_data => x_msg_data,
593: p_msg_index_out => l_msg_index_out
594: );
595: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Error '||to_char(i)||': '||x_msg_data);
596: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Message Index: '||l_msg_index_out);
597: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
598: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error '||to_char(i)||': '||x_msg_data);
599: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Message Index: '||l_msg_index_out);
600: END IF;
602: fnd_msg_pub.delete_msg();
603: END IF;
604: --end bkatraga for bug 9667274
605:
606: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Rolling Back Transaction');
607: ROLLBACK;
608: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ''); --Added by bkatraga for bug 9667274
609: END;
610:
604: --end bkatraga for bug 9667274
605:
606: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Rolling Back Transaction');
607: ROLLBACK;
608: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ''); --Added by bkatraga for bug 9667274
609: END;
610:
611: END LOOP;
612:
617: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
618:
619: EXCEPTION
620: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
621: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
622: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
623: (
624: l_api_name,
625: G_PKG_NAME,
628: x_msg_data,
629: '_PVT'
630: );
631: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
632: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
633: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
634: (
635: l_api_name,
636: G_PKG_NAME,
639: x_msg_data,
640: '_PVT'
641: );
642: WHEN OTHERS THEN
643: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
644: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
914: x_msg_data => x_msg_data);
915:
916: EXCEPTION
917: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
918: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
919: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
920: (
921: l_api_name,
922: G_PKG_NAME,
925: x_msg_data,
926: '_PVT'
927: );
928: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
929: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
930: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
931: (
932: l_api_name,
933: G_PKG_NAME,
936: x_msg_data,
937: '_PVT'
938: );
939: WHEN OTHERS THEN
940: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
941: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
942: (
943: l_api_name,
944: G_PKG_NAME,
1088: ------------------------------------------------------------
1089: -- Start processing
1090: ------------------------------------------------------------
1091:
1092: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1093: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1094:
1095: l_return_status := Okl_Api.START_ACTIVITY(
1096: p_api_name => l_api_name,
1118: ------------------------------------------------------------
1119: -- Process every COVERED ASSET LINE to be billed
1120: ------------------------------------------------------------
1121:
1122: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1123: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ** Start Processing. Please See Error Log for any errored transactions ** ');
1124: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1125:
1126:
1119: -- Process every COVERED ASSET LINE to be billed
1120: ------------------------------------------------------------
1121:
1122: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1123: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ** Start Processing. Please See Error Log for any errored transactions ** ');
1124: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1125:
1126:
1127: FOR l_oks_bill_rec IN c_oks_bill(p_contract_number)
1120: ------------------------------------------------------------
1121:
1122: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1123: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ** Start Processing. Please See Error Log for any errored transactions ** ');
1124: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1125:
1126:
1127: FOR l_oks_bill_rec IN c_oks_bill(p_contract_number)
1128: LOOP
1126:
1127: FOR l_oks_bill_rec IN c_oks_bill(p_contract_number)
1128: LOOP
1129:
1130: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' Processing: Contract Number=> '||l_oks_bill_rec.contract_number
1131: ||' ,for date=> '||l_oks_bill_rec.DATE_BILLED_FROM||' and Amount=> '||l_ste_amount);
1132: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1133: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract Number'||l_oks_bill_rec.contract_number);
1134: END IF;
1134: END IF;
1135:
1136: l_ste_amount := l_oks_bill_rec.asset_amount;
1137:
1138: FND_FILE.PUT_LINE (FND_FILE.LOG, '===============================================================================');
1139: FND_FILE.PUT_LINE (FND_FILE.LOG, ' Processing: Contract Number=> '||l_oks_bill_rec.contract_number
1140: ||' ,for date=> '||l_oks_bill_rec.DATE_BILLED_FROM||' and Amount=> '||l_ste_amount);
1141:
1142: ----------------------------------------------------
1135:
1136: l_ste_amount := l_oks_bill_rec.asset_amount;
1137:
1138: FND_FILE.PUT_LINE (FND_FILE.LOG, '===============================================================================');
1139: FND_FILE.PUT_LINE (FND_FILE.LOG, ' Processing: Contract Number=> '||l_oks_bill_rec.contract_number
1140: ||' ,for date=> '||l_oks_bill_rec.DATE_BILLED_FROM||' and Amount=> '||l_ste_amount);
1141:
1142: ----------------------------------------------------
1143: -- Create new transaction header for every
1212: ,i_taiv_rec
1213: ,r_taiv_rec);
1214:
1215: IF (l_return_status = 'S' ) THEN
1216: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal TXN Header Created.');
1217: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1218: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN Header Created.');
1219: END IF;
1220: ELSE
1217: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1218: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN Header Created.');
1219: END IF;
1220: ELSE
1221: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Creating Internal TXN Header.');
1222: END IF;
1223:
1224: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1225: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1244:
1245: IF l_kle_id <> NVL (l_oks_bill_rec.kle_id, l_null_kle_id)
1246: OR l_bill_date <> l_oks_bill_rec.DATE_BILLED_FROM THEN
1247:
1248: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' Processing: Contract LINE=> '||l_oks_bill_rec.kle_id);
1249: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1250: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract Line'||l_oks_bill_rec.kle_id);
1251: END IF;
1252: ---------------------------------------------
1310: ,i_tilv_rec
1311: ,r_tilv_rec);
1312:
1313: IF (l_return_status = 'S' ) THEN
1314: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal TXN Line Created.');
1315: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1316: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN Line Created.');
1317: END IF;
1318: ELSE
1315: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1316: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN Line Created.');
1317: END IF;
1318: ELSE
1319: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Creating Internal TXN Line.');
1320: END IF;
1321:
1322:
1323: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1350: */
1351:
1352: l_sty_id := l_oks_bill_rec.sty_id;
1353:
1354: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Stream Type => '||l_sty_id);
1355:
1356: i_tldv_rec.sty_id := l_sty_id;
1357: i_tldv_rec.amount := l_oks_bill_rec.asset_amount;
1358: /* Find the values of these
1395: ,i_tldv_rec
1396: ,r_tldv_rec);
1397:
1398: IF (l_return_status = 'S' ) THEN
1399: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Internal TXN Details Created.');
1400: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1401: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1402: END IF;
1403: ELSE
1400: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1401: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1402: END IF;
1403: ELSE
1404: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Creating Internal TXN Details.');
1405: END IF;
1406:
1407: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1408: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1453: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1454: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Accounting Distributions Created.');
1455: END IF;
1456: IF (x_return_status = 'S' ) THEN
1457: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- Accounting Distributions Created.');
1458: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1459: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Accounting Distributions Created.');
1460: END IF;
1461: ELSE
1462: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1463: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Accounting Distributions Errored.');
1464: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error Message'||x_msg_data);
1465: END IF;
1466: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Accounting Distributions NOT Created.');
1467: END IF;
1468:
1469:
1470: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1489: -- Commit the present record
1490: ---------------------------------------------------
1491: COMMIT;
1492:
1493: FND_FILE.PUT_LINE (FND_FILE.LOG, ' DONE Processing: Contract Number=> '||l_oks_bill_rec.contract_number||' ,Stream Name=> '
1494: ||' ,for date=> '||l_oks_bill_rec.DATE_BILLED_FROM||' and Amount=> '||l_ste_amount);
1495:
1496: FND_FILE.PUT_LINE (FND_FILE.LOG, '===============================================================================');
1497:
1492:
1493: FND_FILE.PUT_LINE (FND_FILE.LOG, ' DONE Processing: Contract Number=> '||l_oks_bill_rec.contract_number||' ,Stream Name=> '
1494: ||' ,for date=> '||l_oks_bill_rec.DATE_BILLED_FROM||' and Amount=> '||l_ste_amount);
1495:
1496: FND_FILE.PUT_LINE (FND_FILE.LOG, '===============================================================================');
1497:
1498: END LOOP;
1499:
1500: ------------------------------------------------------------
1556: x_msg_data => x_msg_data);
1557:
1558: EXCEPTION
1559: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1560: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
1561: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1562: (
1563: l_api_name,
1564: G_PKG_NAME,
1567: x_msg_data,
1568: '_PVT'
1569: );
1570: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1571: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
1572: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1573: (
1574: l_api_name,
1575: G_PKG_NAME,
1578: x_msg_data,
1579: '_PVT'
1580: );
1581: WHEN OTHERS THEN
1582: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
1583: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1584: (
1585: l_api_name,
1586: G_PKG_NAME,