1: PACKAGE BODY okl_create_adjst_pvt AS
2: /* $Header: OKLROCAB.pls 120.10.12010000.2 2008/09/25 17:54:51 apaul ship $ */
3: -- Start of wraper code generated automatically by Debug code generator
4: L_MODULE VARCHAR2(40) := 'LEASE.RECEIVABLES.ADJUSTMENTS';
5: L_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6: L_LEVEL_PROCEDURE NUMBER;
7: IS_DEBUG_PROCEDURE_ON BOOLEAN;
8: -- End of wraper code generated automatically by Debug code generator
9: ---------------------------------------------------------------------------
198:
199: -- Start of wraper code generated automatically by Debug code generator for AR_ADJUST_PUB.CREATE_ADJUSTMENT
200: IF(L_DEBUG_ENABLED='Y') THEN
201: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
202: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
203: END IF;
204: IF(IS_DEBUG_PROCEDURE_ON) THEN
205: BEGIN
206: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLROCAB.pls call AR_ADJUST_PUB.CREATE_ADJUSTMENT ');
202: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
203: END IF;
204: IF(IS_DEBUG_PROCEDURE_ON) THEN
205: BEGIN
206: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLROCAB.pls call AR_ADJUST_PUB.CREATE_ADJUSTMENT ');
207: END;
208: END IF;
209: AR_ADJUST_PUB.CREATE_ADJUSTMENT ( p_api_name => 'AR_ADJUST_PUB'
210: ,p_api_version => 1.0
216: ,p_new_adjust_id => x_new_adj_id
217: );
218: IF(IS_DEBUG_PROCEDURE_ON) THEN
219: BEGIN
220: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLROCAB.pls call AR_ADJUST_PUB.CREATE_ADJUSTMENT ');
221: END;
222: END IF;
223: -- End of wraper code generated automatically by Debug code generator for AR_ADJUST_PUB.CREATE_ADJUSTMENT
224:
259:
260: -- Start of wraper code generated automatically by Debug code generator for OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS
261: IF(IS_DEBUG_PROCEDURE_ON) THEN
262: BEGIN
263: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLROCAB.pls call OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS ');
264: END;
265: END IF;
266: OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS(l_api_version
267: ,l_init_msg_list
272: ,x_ajlv_rec
273: );
274: IF(IS_DEBUG_PROCEDURE_ON) THEN
275: BEGIN
276: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLROCAB.pls call OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS ');
277: END;
278: END IF;
279: -- End of wraper code generated automatically by Debug code generator for OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS
280:
959:
960: -- Start of wraper code generated automatically by Debug code generator for AR_ADJUST_PUB.CREATE_ADJUSTMENT
961: IF(L_DEBUG_ENABLED='Y') THEN
962: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
963: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
964: END IF;
965: IF(IS_DEBUG_PROCEDURE_ON) THEN
966: BEGIN
967: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLROCAB.pls call AR_ADJUST_PUB.CREATE_ADJUSTMENT ');
963: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
964: END IF;
965: IF(IS_DEBUG_PROCEDURE_ON) THEN
966: BEGIN
967: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLROCAB.pls call AR_ADJUST_PUB.CREATE_ADJUSTMENT ');
968: END;
969: END IF;
970:
971: AR_ADJUST_PUB.CREATE_ADJUSTMENT ( p_api_name => 'AR_ADJUST_PUB'
981: );
982:
983: IF(IS_DEBUG_PROCEDURE_ON) THEN
984: BEGIN
985: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLROCAB.pls call AR_ADJUST_PUB.CREATE_ADJUSTMENT ');
986: END;
987: END IF;
988: -- End of wraper code generated automatically by Debug code generator for AR_ADJUST_PUB.CREATE_ADJUSTMENT
989:
1034:
1035: -- Start of wraper code generated automatically by Debug code generator for OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS
1036: IF(IS_DEBUG_PROCEDURE_ON) THEN
1037: BEGIN
1038: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLROCAB.pls call OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS ');
1039: END;
1040: END IF;
1041: OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS(l_api_version
1042: ,l_init_msg_list
1047: ,x_ajlv_rec
1048: );
1049: IF(IS_DEBUG_PROCEDURE_ON) THEN
1050: BEGIN
1051: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLROCAB.pls call OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS ');
1052: END;
1053: END IF;
1054: -- End of wraper code generated automatically by Debug code generator for OKL_TXL_ADJSTS_LNS_PUB.UPDATE_TXL_ADJSTS_LNS
1055: