[Home] [Help]
364: l_psl_id NUMBER;
365: l_is_cons_invoice VARCHAR2(1);
366: l_commit_flag VARCHAR2(3) := p_commit_flag;
367: l_chk_approval_limits VARCHAR2(3) := p_chk_approval_limits;
368: l_llca_adj_trx_lines_tbl ar_adjust_pub.llca_adj_trx_line_tbl_type;
369: l_llca_adj_create_tbl_type ar_adjust_pub.llca_adj_create_tbl_type;
370:
371: l_adj_hdr_tbl l_adj_hdr_tbl_type;
372: l_adj_lines_tbl l_adj_lines_tbl_type;
365: l_is_cons_invoice VARCHAR2(1);
366: l_commit_flag VARCHAR2(3) := p_commit_flag;
367: l_chk_approval_limits VARCHAR2(3) := p_chk_approval_limits;
368: l_llca_adj_trx_lines_tbl ar_adjust_pub.llca_adj_trx_line_tbl_type;
369: l_llca_adj_create_tbl_type ar_adjust_pub.llca_adj_create_tbl_type;
370:
371: l_adj_hdr_tbl l_adj_hdr_tbl_type;
372: l_adj_lines_tbl l_adj_lines_tbl_type;
373: l_customer_trx_id ra_customer_trx_all.customer_trx_id%type;
499: EXIT; -- move to next record.
500: END IF;
501:
502: -- Start of wraper code generated automatically
503: -- by Debug code generator for AR_ADJUST_PUB.CREATE_ADJUSTMENT
504: IF(L_DEBUG_ENABLED='Y') THEN
505: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
506: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
507: END IF;
506: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
507: END IF;
508: IF(IS_DEBUG_PROCEDURE_ON) THEN
509: BEGIN
510: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLROCAB.pls call AR_ADJUST_PUB.CREATE_ADJUSTMENT ');
511: END;
512: END IF;
513:
514: IF l_is_cons_invoice = 'Y' THEN
511: END;
512: END IF;
513:
514: IF l_is_cons_invoice = 'Y' THEN
515: AR_ADJUST_PUB.CREATE_ADJUSTMENT ( p_api_name => 'AR_ADJUST_PUB'
516: ,p_api_version => 1.0
517: ,p_msg_count => l_msg_count
518: ,p_msg_data => l_msg_data
519: ,p_return_status => l_return_status
523: ,p_new_adjust_number => x_new_adj_number
524: ,p_new_adjust_id => x_new_adj_id
525: );
526: ELSE
527: AR_ADJUST_PUB.CREATE_LINELEVEL_ADJUSTMENT
528: ( p_api_name => 'AR_ADJUST_PUB'
529: ,p_api_version => 1.0
530: ,p_msg_count => l_msg_count
531: ,p_msg_data => l_msg_data
524: ,p_new_adjust_id => x_new_adj_id
525: );
526: ELSE
527: AR_ADJUST_PUB.CREATE_LINELEVEL_ADJUSTMENT
528: ( p_api_name => 'AR_ADJUST_PUB'
529: ,p_api_version => 1.0
530: ,p_msg_count => l_msg_count
531: ,p_msg_data => l_msg_data
532: ,p_return_status => l_return_status
547: END IF;
548: END IF;
549: IF(IS_DEBUG_PROCEDURE_ON) THEN
550: BEGIN
551: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLROCAB.pls call AR_ADJUST_PUB.CREATE_ADJUSTMENT ');
552: END;
553: END IF;
554: -- End of wraper code generated automatically by Debug code generator for AR_ADJUST_PUB.CREATE_ADJUSTMENT
555:
550: BEGIN
551: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLROCAB.pls call AR_ADJUST_PUB.CREATE_ADJUSTMENT ');
552: END;
553: END IF;
554: -- End of wraper code generated automatically by Debug code generator for AR_ADJUST_PUB.CREATE_ADJUSTMENT
555:
556: OPEN c_get_cont_num(l_payment_schedule_id);
557: FETCH c_get_cont_num INTO l_contract_number;
558: CLOSE c_get_cont_num;