[Home] [Help]
3:
4:
5: -- Start of wraper code generated automatically by Debug code generator
6: L_MODULE VARCHAR2(40) := 'LEASE.INSURANCE';
7: L_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
8: L_LEVEL_PROCEDURE NUMBER;
9: IS_DEBUG_PROCEDURE_ON BOOLEAN;
10: -- End of wraper code generated automatically by Debug code generator
11: --------------------------------------------------------
173:
174: -- Start of Debug code generator for okl_acc_call_pub.create_acc_trans
175: IF(L_DEBUG_ENABLED='Y') THEN
176: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
177: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
178: END IF;
179:
180: IF(IS_DEBUG_PROCEDURE_ON) THEN
181: BEGIN
178: END IF;
179:
180: IF(IS_DEBUG_PROCEDURE_ON) THEN
181: BEGIN
182: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call okl_trx_ar_invoices_pub.insert_trx_ar_invoices ');
183: END;
184: END IF;
185:
186: okl_trx_ar_invoices_pub.insert_trx_ar_invoices(p_api_version,
191: l_taiv_rec,
192: lx_taiv_rec);
193: IF(IS_DEBUG_PROCEDURE_ON) THEN
194: BEGIN
195: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call okl_trx_ar_invoices_pub.insert_trx_ar_invoices ');
196: END;
197: END IF;
198:
199: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
223:
224: -- Start of Debug code generator for okl_acc_call_pub.create_acc_trans
225: IF(L_DEBUG_ENABLED='Y') THEN
226: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
227: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
228: END IF;
229:
230: IF(IS_DEBUG_PROCEDURE_ON) THEN
231: BEGIN
228: END IF;
229:
230: IF(IS_DEBUG_PROCEDURE_ON) THEN
231: BEGIN
232: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns ');
233: END;
234: END IF;
235:
236:
244: lx_tilv_rec);
245:
246: IF(IS_DEBUG_PROCEDURE_ON) THEN
247: BEGIN
248: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns ');
249: END;
250: END IF;
251:
252: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
271:
272: -- Start of Debug code generator for okl_acc_call_pub.create_acc_trans
273: IF(L_DEBUG_ENABLED='Y') THEN
274: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
275: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
276: END IF;
277:
278: IF(IS_DEBUG_PROCEDURE_ON) THEN
279: BEGIN
276: END IF;
277:
278: IF(IS_DEBUG_PROCEDURE_ON) THEN
279: BEGIN
280: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call okl_acc_call_pub.create_acc_trans ');
281: END;
282: END IF;
283:
284: OKL_ACC_CALL_PUB.CREATE_ACC_TRANS(
290: ,p_bpd_acc_rec => l_bpd_acc_rec);
291:
292: IF(IS_DEBUG_PROCEDURE_ON) THEN
293: BEGIN
294: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call okl_acc_call_pub.create_acc_trans ');
295: END;
296: END IF;
297: -- End of Debug for okl_acc_call_pub.create_acc_trans
298: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
670: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT Start changes */
671:
672: IF(IS_DEBUG_PROCEDURE_ON) THEN
673: BEGIN
674: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_CREATE_DISB_TRANS_PVT.create_disb_trx ');
675: END;
676: END IF;
677:
678: l_tplv_tbl(0) := l_tplv_rec;
688: ,x_tplv_tbl =>x_tplv_tbl
689: );
690: IF(IS_DEBUG_PROCEDURE_ON) THEN
691: BEGIN
692: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_CREATE_DISB_TRANS_PVT.create_disb_trx ');
693: END;
694: END IF;
695:
696: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
993: ------------------------------------------------------------------------------------
994: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT Start changes */
995: IF(IS_DEBUG_PROCEDURE_ON) THEN
996: BEGIN
997: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_CREATE_DISB_TRANS_PVT.create_disb_trx ');
998: END;
999: END IF;
1000:
1001: l_tplv_tbl(0) := l_tplv_rec;
1011: ,x_tplv_tbl =>x_tplv_tbl
1012: );
1013: IF(IS_DEBUG_PROCEDURE_ON) THEN
1014: BEGIN
1015: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_CREATE_DISB_TRANS_PVT.create_disb_trx ');
1016: END;
1017: END IF;
1018:
1019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1203: -- Call API to create Credit Memo
1204: -- Start of wraper code generated automatically by Debug code generator for okl_credit_memo_pub.insert_request
1205: IF(L_DEBUG_ENABLED='Y') THEN
1206: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
1207: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
1208: END IF;
1209: IF(IS_DEBUG_PROCEDURE_ON) THEN
1210: BEGIN
1211: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call on_account_credit_memo');
1207: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
1208: END IF;
1209: IF(IS_DEBUG_PROCEDURE_ON) THEN
1210: BEGIN
1211: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call on_account_credit_memo');
1212: END;
1213: END IF;
1214: on_account_credit_memo
1215: (
1229:
1230: IF(IS_DEBUG_PROCEDURE_ON) THEN
1231:
1232: BEGIN
1233: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call on_account_credit_memo ');
1234: END;
1235: END IF;
1236: -- End of wraper code generated automatically by Debug code generator for okl_credit_memo_pub.insert_request
1237:
1482:
1483: -- Start of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
1484: IF(L_DEBUG_ENABLED='Y') THEN
1485: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
1486: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
1487: END IF;
1488: IF(IS_DEBUG_PROCEDURE_ON) THEN
1489: BEGIN
1490: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call Okl_Ins_Policies_Pub.update_ins_policies ');
1486: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
1487: END IF;
1488: IF(IS_DEBUG_PROCEDURE_ON) THEN
1489: BEGIN
1490: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call Okl_Ins_Policies_Pub.update_ins_policies ');
1491: END;
1492: END IF;
1493: Okl_Ins_Policies_Pub.update_ins_policies(
1494: p_api_version => p_api_version,
1500: x_ipyv_rec => x_ipyv_rec
1501: );
1502: IF(IS_DEBUG_PROCEDURE_ON) THEN
1503: BEGIN
1504: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call Okl_Ins_Policies_Pub.update_ins_policies ');
1505: END;
1506: END IF;
1507: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
1508:
2055:
2056: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2057: IF(L_DEBUG_ENABLED='Y') THEN
2058: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
2059: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
2060: END IF;
2061: IF(IS_DEBUG_PROCEDURE_ON) THEN
2062: BEGIN
2063: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2059: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
2060: END IF;
2061: IF(IS_DEBUG_PROCEDURE_ON) THEN
2062: BEGIN
2063: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2064: END;
2065: END IF;
2066: OKL_STREAMS_PUB.update_streams(
2067: p_api_version
2073: ,x_stmv_rec
2074: );
2075: IF(IS_DEBUG_PROCEDURE_ON) THEN
2076: BEGIN
2077: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2078: END;
2079: END IF;
2080: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2081:
2124: IF(p_stmv_rec.id IS NOT NULL AND p_stmv_rec.id <> OKC_API.G_MISS_NUM) THEN
2125: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2126: IF(IS_DEBUG_PROCEDURE_ON) THEN
2127: BEGIN
2128: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2129: END;
2130: END IF;
2131: OKL_STREAMS_PUB.update_streams(
2132: p_api_version
2138: ,x_stmv_rec
2139: );
2140: IF(IS_DEBUG_PROCEDURE_ON) THEN
2141: BEGIN
2142: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2143: END;
2144: END IF;
2145: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2146:
2161: IF(p_stmv_rec.id IS NOT NULL AND p_stmv_rec.id <> OKC_API.G_MISS_NUM) THEN
2162: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2163: IF(IS_DEBUG_PROCEDURE_ON) THEN
2164: BEGIN
2165: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2166: END;
2167: END IF;
2168: OKL_STREAMS_PUB.update_streams(
2169: p_api_version
2175: ,x_stmv_rec
2176: );
2177: IF(IS_DEBUG_PROCEDURE_ON) THEN
2178: BEGIN
2179: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2180: END;
2181: END IF;
2182: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2183:
2224: IF(p_stmv_rec.id IS NOT NULL AND p_stmv_rec.id <> OKC_API.G_MISS_NUM) THEN
2225: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2226: IF(IS_DEBUG_PROCEDURE_ON) THEN
2227: BEGIN
2228: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2229: END;
2230: END IF;
2231: OKL_STREAMS_PUB.update_streams(
2232: p_api_version
2238: ,x_stmv_rec
2239: );
2240: IF(IS_DEBUG_PROCEDURE_ON) THEN
2241: BEGIN
2242: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2243: END;
2244: END IF;
2245: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2246:
2290: IF(p_stmv_rec.id IS NOT NULL AND p_stmv_rec.id <> OKC_API.G_MISS_NUM) THEN
2291: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2292: IF(IS_DEBUG_PROCEDURE_ON) THEN
2293: BEGIN
2294: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2295: END;
2296: END IF;
2297: OKL_STREAMS_PUB.update_streams(
2298: p_api_version
2304: ,x_stmv_rec
2305: );
2306: IF(IS_DEBUG_PROCEDURE_ON) THEN
2307: BEGIN
2308: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2309: END;
2310: END IF;
2311: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2312:
2328: IF(p_stmv_rec.id IS NOT NULL AND p_stmv_rec.id <> OKC_API.G_MISS_NUM) THEN
2329: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2330: IF(IS_DEBUG_PROCEDURE_ON) THEN
2331: BEGIN
2332: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2333: END;
2334: END IF;
2335: OKL_STREAMS_PUB.update_streams(
2336: p_api_version
2342: ,x_stmv_rec
2343: );
2344: IF(IS_DEBUG_PROCEDURE_ON) THEN
2345: BEGIN
2346: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_STREAMS_PUB.update_streams ');
2347: END;
2348: END IF;
2349: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
2350:
3153: END IF ;
3154: CLOSE c_trx_type ;
3155: IF(L_DEBUG_ENABLED='Y') THEN
3156: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
3157: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
3158: END IF;
3159: IF(IS_DEBUG_PROCEDURE_ON) THEN
3160: BEGIN
3161: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug call insert_ap_request');
3157: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
3158: END IF;
3159: IF(IS_DEBUG_PROCEDURE_ON) THEN
3160: BEGIN
3161: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug call insert_ap_request');
3162: END;
3163: END IF;
3164: insert_ap_request(p_api_version => l_api_version,
3165: p_init_msg_list => OKL_API.G_FALSE,
3174: p_invoice_date => SYSDATE,
3175: p_trx_id => l_trx_type_id );
3176: IF(IS_DEBUG_PROCEDURE_ON) THEN
3177: BEGIN
3178: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug call insert_ap_request');
3179: END;
3180: END IF;
3181: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3182: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3569:
3570: -- Start of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
3571: IF(L_DEBUG_ENABLED='Y') THEN
3572: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
3573: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
3574: END IF;
3575: IF(IS_DEBUG_PROCEDURE_ON) THEN
3576: BEGIN
3577: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
3573: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
3574: END IF;
3575: IF(IS_DEBUG_PROCEDURE_ON) THEN
3576: BEGIN
3577: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
3578: END;
3579: END IF;
3580: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
3581: p_api_version => l_api_version,
3588: x_tcnv_rec => x_tcnv_rec_in,
3589: x_tclv_tbl => x_tclv_tbl );
3590: IF(IS_DEBUG_PROCEDURE_ON) THEN
3591: BEGIN
3592: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
3593: END;
3594: END IF;
3595: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
3596:
3663: IF (l_adjustment_amount > 0 )THEN
3664: -- Start of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
3665: IF(IS_DEBUG_PROCEDURE_ON) THEN
3666: BEGIN
3667: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST ');
3668: END;
3669: END IF;
3670:
3671: Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST(
3682: ,x_amount_tbl => l_amount_tbl);
3683:
3684: IF(IS_DEBUG_PROCEDURE_ON) THEN
3685: BEGIN
3686: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST ');
3687: END;
3688: END IF;
3689: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
3690: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3735:
3736: -- Start of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
3737: IF(IS_DEBUG_PROCEDURE_ON) THEN
3738: BEGIN
3739: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS ');
3740: END;
3741: END IF;
3742: OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS(
3743: p_api_version => p_api_version
3750: ,p_stream_tbl => l_stream_tbl);
3751:
3752: IF(IS_DEBUG_PROCEDURE_ON) THEN
3753: BEGIN
3754: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS ');
3755: END;
3756: END IF;
3757: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
3758: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3798:
3799: -- Start of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
3800: IF(IS_DEBUG_PROCEDURE_ON) THEN
3801: BEGIN
3802: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS ');
3803: END;
3804: END IF;
3805:
3806: l_accrual_rec.trx_number := l_trx_number;
3817:
3818: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
3819: IF(IS_DEBUG_PROCEDURE_ON) THEN
3820: BEGIN
3821: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS ');
3822: END;
3823: END IF;
3824:
3825:
4196:
4197: -- Start of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
4198: IF(IS_DEBUG_PROCEDURE_ON) THEN
4199: BEGIN
4200: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
4201: END;
4202: END IF;
4203: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
4204: p_api_version => l_api_version,
4212: x_tclv_tbl => x_tclv_tbl
4213: );
4214: IF(IS_DEBUG_PROCEDURE_ON) THEN
4215: BEGIN
4216: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
4217: END;
4218: END IF;
4219: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
4220: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4293:
4294: -- Start of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
4295: IF(IS_DEBUG_PROCEDURE_ON) THEN
4296: BEGIN
4297: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST ');
4298: END;
4299: END IF;
4300: Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST(
4301: p_api_version => p_api_version
4310: ,x_template_tbl => l_template_tbl
4311: ,x_amount_tbl => l_amount_tbl);
4312: IF(IS_DEBUG_PROCEDURE_ON) THEN
4313: BEGIN
4314: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST ');
4315: END;
4316: END IF;
4317: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
4318: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4364:
4365: -- Start of wraper code generated automatically by Debug code generator for OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS
4366: IF(IS_DEBUG_PROCEDURE_ON) THEN
4367: BEGIN
4368: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS ');
4369: END;
4370: END IF;
4371:
4372: OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS(
4380: ,p_stream_tbl => l_stream_tbl);
4381:
4382: IF(IS_DEBUG_PROCEDURE_ON) THEN
4383: BEGIN
4384: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST ');
4385: END;
4386: END IF;
4387: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
4388: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4430:
4431: -- Start of wraper code generated automatically by Debug code generator for OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS
4432: IF(IS_DEBUG_PROCEDURE_ON) THEN
4433: BEGIN
4434: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS ');
4435: END;
4436: END IF;
4437:
4438: l_accrual_rec.trx_number := l_trx_number;
4448: ,p_representation_type => 'SECONDARY');
4449:
4450: IF(IS_DEBUG_PROCEDURE_ON) THEN
4451: BEGIN
4452: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS ');
4453: END;
4454: END IF;
4455: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4456: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4559: l_taiv_rec.legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id(p_khr_id => p_khr_id);
4560: -- Start of Debug code generator for Okl_Trx_Ar_Invoices_Pub.insert_trx_ar_invoices
4561: IF(L_DEBUG_ENABLED='Y') THEN
4562: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
4563: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
4564: END IF;
4565: IF(IS_DEBUG_PROCEDURE_ON) THEN
4566: BEGIN
4567: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug call Okl_Trx_Ar_Invoices_Pub.insert_trx_ar_invoices');
4563: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
4564: END IF;
4565: IF(IS_DEBUG_PROCEDURE_ON) THEN
4566: BEGIN
4567: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug call Okl_Trx_Ar_Invoices_Pub.insert_trx_ar_invoices');
4568: END;
4569: END IF;
4570: -- Header level insertion
4571: Okl_Trx_Ar_Invoices_Pub.insert_trx_ar_invoices(
4577: ,l_taiv_rec
4578: ,lx_taiv_rec);
4579: IF(IS_DEBUG_PROCEDURE_ON) THEN
4580: BEGIN
4581: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug call Okl_Trx_Ar_Invoices_Pub.insert_trx_ar_invoices');
4582: END;
4583: END IF;
4584: -- End of wraper code generated automatically by Debug code generator for Okl_Trx_Ar_Invoices_Pub.insert_trx_ar_invoices
4585: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
4598: l_tilv_rec.sty_id := p_strm_typ_id;
4599: -- Start of Debug code generator for okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns
4600: IF(L_DEBUG_ENABLED='Y') THEN
4601: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
4602: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
4603: END IF;
4604: IF(IS_DEBUG_PROCEDURE_ON) THEN
4605: BEGIN
4606: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug call okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns');
4602: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
4603: END IF;
4604: IF(IS_DEBUG_PROCEDURE_ON) THEN
4605: BEGIN
4606: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug call okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns');
4607: END;
4608: END IF;
4609: --line level insertion
4610: okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns(
4616: ,l_tilv_rec
4617: ,lx_tilv_rec);
4618: IF(IS_DEBUG_PROCEDURE_ON) THEN
4619: BEGIN
4620: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug call okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns');
4621: END;
4622: END IF;
4623: -- End of wraper code generated automatically by Debug code generator for Okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns
4624: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
4633: ----------------------------------------------------
4634: -- Start of Debug code generator for Okl_Acc_Call_Pub.CREATE_ACC_TRANS
4635: IF(L_DEBUG_ENABLED='Y') THEN
4636: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
4637: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
4638: END IF;
4639: IF(IS_DEBUG_PROCEDURE_ON) THEN
4640: BEGIN
4641: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug call Okl_Acc_Call_Pub.CREATE_ACC_TRANS');
4637: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
4638: END IF;
4639: IF(IS_DEBUG_PROCEDURE_ON) THEN
4640: BEGIN
4641: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug call Okl_Acc_Call_Pub.CREATE_ACC_TRANS');
4642: END;
4643: END IF;
4644: Okl_Acc_Call_Pub.CREATE_ACC_TRANS(
4645: p_api_version
4649: ,l_msg_data
4650: ,p_bpd_acc_rec);
4651: IF(IS_DEBUG_PROCEDURE_ON) THEN
4652: BEGIN
4653: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug call Okl_Acc_Call_Pub.CREATE_ACC_TRANS');
4654: END;
4655: END IF;
4656: -- End of wraper code generated automatically by Debug code generator for Okl_Acc_Call_Pub.CREATE_ACC_TRANS
4657: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4831: -- Call API to create Credit Memo
4832: -- Start of Debug code generator for on_account_credit_memo
4833: IF(L_DEBUG_ENABLED='Y') THEN
4834: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
4835: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
4836: END IF;
4837: IF(IS_DEBUG_PROCEDURE_ON) THEN
4838: BEGIN
4839: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call okl_credit_memo_pub.insert_request ');
4835: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
4836: END IF;
4837: IF(IS_DEBUG_PROCEDURE_ON) THEN
4838: BEGIN
4839: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call okl_credit_memo_pub.insert_request ');
4840: END;
4841: END IF;
4842: --- Creating credit memo
4843: on_account_credit_memo
4857: x_tai_id => l_tai_id
4858: );
4859: IF(IS_DEBUG_PROCEDURE_ON) THEN
4860: BEGIN
4861: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call on_account_credit_memo ');
4862: END;
4863: END IF;
4864: -- End of wraper code generated automatically by Debug code generator for okl_credit_memo_pub.insert_request
4865: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4873: l_pro_refund_amount := -l_cust_refund_amount; --for making positive invoice amount
4874: -- Start of Debug code generator for Rebook_manual_invoice
4875: IF(L_DEBUG_ENABLED='Y') THEN
4876: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
4877: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
4878: END IF;
4879: IF(IS_DEBUG_PROCEDURE_ON) THEN
4880: BEGIN
4881: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug call Rebook_manual_invoice');
4877: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
4878: END IF;
4879: IF(IS_DEBUG_PROCEDURE_ON) THEN
4880: BEGIN
4881: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug call Rebook_manual_invoice');
4882: END;
4883: END IF;
4884: Rebook_manual_invoice( p_api_version
4885: ,p_init_msg_list
4891: ,l_strm_rcvbl_id
4892: ,l_pro_refund_amount );
4893: IF(IS_DEBUG_PROCEDURE_ON) THEN
4894: BEGIN
4895: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug call Rebook_manual_invoice');
4896: END;
4897: END IF;
4898: l_return_status := x_return_status;
4899: -- End of wraper code generated automatically by Debug code generator for Rebook_manual_invoice
5035: --Update Policy
5036: -- Start of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
5037: IF(IS_DEBUG_PROCEDURE_ON) THEN
5038: BEGIN
5039: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call Okl_Ins_Policies_Pub.update_ins_policies ');
5040: END;
5041: END IF;
5042: Okl_Ins_Policies_Pub.update_ins_policies(
5043: p_api_version => p_api_version,
5049: x_ipyv_rec => x_ipyv_rec
5050: );
5051: IF(IS_DEBUG_PROCEDURE_ON) THEN
5052: BEGIN
5053: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call Okl_Ins_Policies_Pub.update_ins_policies ');
5054: END;
5055: END IF;
5056: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
5057: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5531: lx_ipyv_newrec.adjustment := 0;
5532: -- Start of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.save_quote
5533: IF(L_DEBUG_ENABLED='Y') THEN
5534: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
5535: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
5536: END IF;
5537: IF(IS_DEBUG_PROCEDURE_ON) THEN
5538: BEGIN
5539: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call okl_ins_quote_pub.save_quote ');
5535: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
5536: END IF;
5537: IF(IS_DEBUG_PROCEDURE_ON) THEN
5538: BEGIN
5539: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call okl_ins_quote_pub.save_quote ');
5540: END;
5541: END IF;
5542: okl_ins_quote_pub.save_quote(
5543: p_api_version => l_api_version,
5548: px_ipyv_rec => lx_ipyv_newrec,
5549: x_message => x_message );
5550: IF(IS_DEBUG_PROCEDURE_ON) THEN
5551: BEGIN
5552: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call okl_ins_quote_pub.save_quote ');
5553: END;
5554: END IF;
5555: -- End of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.save_quote
5556: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5567: lx_ipyv_newrec.adjustment := 0;
5568: -- Start of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.accept_quote
5569: IF(IS_DEBUG_PROCEDURE_ON) THEN
5570: BEGIN
5571: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call okl_ins_quote_pub.accept_quote ');
5572: END;
5573: END IF;
5574: okl_ins_quote_pub.accept_quote(
5575: p_api_version => l_api_version,
5580: p_quote_id => lx_ipyv_newrec.ID
5581: );
5582: IF(IS_DEBUG_PROCEDURE_ON) THEN
5583: BEGIN
5584: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call okl_ins_quote_pub.accept_quote ');
5585: END;
5586: END IF;
5587: -- End of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.accept_quote
5588: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5633: IF (l_contract_status = 'ACTIVE') THEN --[4]
5634: -- Start of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.activate_ins_policy
5635: IF(IS_DEBUG_PROCEDURE_ON) THEN
5636: BEGIN
5637: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call okl_ins_quote_pub.activate_ins_policy ');
5638: END;
5639: END IF;
5640: okl_ins_quote_pub.activate_ins_policy(
5641: p_api_version => l_api_version ,
5645: x_msg_data => l_msg_data,
5646: p_ins_policy_id => l_ipy_id );
5647: IF(IS_DEBUG_PROCEDURE_ON) THEN
5648: BEGIN
5649: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call okl_ins_quote_pub.activate_ins_policy ');
5650: END;
5651: END IF;
5652: -- End of wraper code generated automatically by Debug code generator for okl_ins_quote_pub.activate_ins_policy
5653: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6394:
6395: -- Start of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
6396: IF(L_DEBUG_ENABLED='Y') THEN
6397: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
6398: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
6399: END IF;
6400: IF(IS_DEBUG_PROCEDURE_ON) THEN
6401: BEGIN
6402: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6398: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
6399: END IF;
6400: IF(IS_DEBUG_PROCEDURE_ON) THEN
6401: BEGIN
6402: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6403: END;
6404: END IF;
6405: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
6406: p_api_version => l_api_version,
6414: x_tclv_tbl => x_tclv_tbl
6415: );
6416: IF(IS_DEBUG_PROCEDURE_ON) THEN
6417: BEGIN
6418: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6419: END;
6420: END IF;
6421: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
6422:
6528:
6529: -- Start of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
6530: IF(IS_DEBUG_PROCEDURE_ON) THEN
6531: BEGIN
6532: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST ');
6533: END;
6534: END IF;
6535:
6536:
6549: ,x_template_tbl => l_template_tbl
6550: ,x_amount_tbl => l_amount_tbl);
6551: IF(IS_DEBUG_PROCEDURE_ON) THEN
6552: BEGIN
6553: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST ');
6554: END;
6555: END IF;
6556: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
6557:
6658:
6659: -- Start of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
6660: IF(IS_DEBUG_PROCEDURE_ON) THEN
6661: BEGIN
6662: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6663: END;
6664: END IF;
6665: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
6666: p_api_version => l_api_version,
6674: x_tclv_tbl => x_tclv_tbl
6675: );
6676: IF(IS_DEBUG_PROCEDURE_ON) THEN
6677: BEGIN
6678: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6679: END;
6680: END IF;
6681: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
6682:
6749:
6750: -- Start of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
6751: IF(IS_DEBUG_PROCEDURE_ON) THEN
6752: BEGIN
6753: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST ');
6754: END;
6755: END IF;
6756: Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST(
6757: p_api_version => p_api_version
6766: ,x_template_tbl => l_template_tbl
6767: ,x_amount_tbl => l_amount_tbl);
6768: IF(IS_DEBUG_PROCEDURE_ON) THEN
6769: BEGIN
6770: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST ');
6771: END;
6772: END IF;
6773: -- End of wraper code generated automatically by Debug code generator for Okl_Account_Dist_Pub.CREATE_ACCOUNTING_DIST
6774:
6793:
6794: -- Start of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
6795: IF(IS_DEBUG_PROCEDURE_ON) THEN
6796: BEGIN
6797: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call Okl_Ins_Policies_Pub.update_ins_policies ');
6798: END;
6799: END IF;
6800: Okl_Ins_Policies_Pub.update_ins_policies(
6801: p_api_version => p_api_version,
6808: );
6809:
6810: IF(IS_DEBUG_PROCEDURE_ON) THEN
6811: BEGIN
6812: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call Okl_Ins_Policies_Pub.update_ins_policies ');
6813: END;
6814: END IF;
6815: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
6816:
6917: CLOSE okl_ipy_rec ;
6918: -- Start of wraper code generated automatically by Debug code generator for OKL_EXECUTE_FORMULA_PUB.EXECUTE
6919: IF(L_DEBUG_ENABLED='Y') THEN
6920: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
6921: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
6922: END IF;
6923: IF(IS_DEBUG_PROCEDURE_ON) THEN
6924: BEGIN
6925: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_EXECUTE_FORMULA_PUB.EXECUTE ');
6921: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
6922: END IF;
6923: IF(IS_DEBUG_PROCEDURE_ON) THEN
6924: BEGIN
6925: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_EXECUTE_FORMULA_PUB.EXECUTE ');
6926: END;
6927: END IF;
6928: --++ Effective Dated Termination ++----
6929: l_params(1).name := G_FORMULA_PARAM_1;
6943: p_additional_parameters => l_params, ---+++ Eff Dated Term changes ++----
6944: x_value => x_refund_amount );
6945: IF(IS_DEBUG_PROCEDURE_ON) THEN
6946: BEGIN
6947: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_EXECUTE_FORMULA_PUB.EXECUTE ');
6948: END;
6949: END IF;
6950: -- End of wraper code generated automatically by Debug code generator for OKL_EXECUTE_FORMULA_PUB.EXECUTE
6951: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7175: -- Call API to create Credit Memo
7176: -- Start of wraper code generated automatically by Debug code generator for on_account_credit_memo
7177: IF(L_DEBUG_ENABLED='Y') THEN
7178: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
7179: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
7180: END IF;
7181: IF(IS_DEBUG_PROCEDURE_ON) THEN
7182: BEGIN
7183: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call on_account_credit_memo ');
7179: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
7180: END IF;
7181: IF(IS_DEBUG_PROCEDURE_ON) THEN
7182: BEGIN
7183: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call on_account_credit_memo ');
7184: END;
7185: END IF;
7186:
7187: --bug 3923601
7205:
7206:
7207: IF(IS_DEBUG_PROCEDURE_ON) THEN
7208: BEGIN
7209: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call on_account_credit_memo ');
7210: END;
7211: END IF;
7212: -- End of wraper code generated automatically by Debug code generator for on_account_credit_memo.
7213: