[Home] [Help]
546: AND gps1.period_year = pv_period_year);
547:
548:
549: CURSOR Cur_du_fiscal_year (p_du_id NUMBER) IS
550: SELECT du_fiscal_year from igi_exp_dus_v
551: WHERE du_id = p_du_id;
552:
553: l_current_fiscal_year igi_exp_dus_v.du_fiscal_year%TYPE;
554: l_du_fiscal_year igi_exp_dus_v.du_fiscal_year%TYPE;
549: CURSOR Cur_du_fiscal_year (p_du_id NUMBER) IS
550: SELECT du_fiscal_year from igi_exp_dus_v
551: WHERE du_id = p_du_id;
552:
553: l_current_fiscal_year igi_exp_dus_v.du_fiscal_year%TYPE;
554: l_du_fiscal_year igi_exp_dus_v.du_fiscal_year%TYPE;
555: /* shsaxena Bug 2777575 END */
556:
557: l_latest_encumbrance_year gl_sets_of_books.latest_encumbrance_year%TYPE ;
550: SELECT du_fiscal_year from igi_exp_dus_v
551: WHERE du_id = p_du_id;
552:
553: l_current_fiscal_year igi_exp_dus_v.du_fiscal_year%TYPE;
554: l_du_fiscal_year igi_exp_dus_v.du_fiscal_year%TYPE;
555: /* shsaxena Bug 2777575 END */
556:
557: l_latest_encumbrance_year gl_sets_of_books.latest_encumbrance_year%TYPE ;
558: l_period_year gl_period_statuses.period_year%TYPE ;
759: l_debug_info VARCHAR2(2000);
760: l_gl_date DATE;
761: l_trx_id NUMBER;
762:
763: CURSOR c_ap_invoices(pv_du_id igi_exp_dus_all.du_id%TYPE)
764: IS
765: SELECT a.invoice_id,
766: a.source,
767: a.cancelled_date,
770: ap_invoices_all a
771: WHERE i.invoice_id = a.invoice_id
772: AND i.du_id = pv_du_id;
773:
774: CURSOR c_ar_trx(pv_du_id igi_exp_dus_all.du_id%TYPE)
775: IS
776: SELECT rct.customer_trx_id
777: , rct.trx_number
778: , rctt.name
821: --dbms_output.put_line(l_debug_info);
822: ----------------------------------
823: SELECT COUNT(1)
824: INTO l_dummy
825: FROM igi_exp_dus
826: WHERE du_id = p_du_id;
827:
828: IF l_dummy = 0 THEN -- invalid p_du_id
829: RAISE e_invalid_p_du_id;
891: --dbms_output.put_line(l_debug_info);
892: ----------------------------------
893: -----------------------------------------------
894: -- only AP documents within the AP Dialog Unit
895: -- Dialog unit exists within igi_exp_dus
896: -- p_app_id is 200
897: --
898: -- Loop through invoices in Dialog Unit
899: -- 1. Release the EXP hold for all invoices within the
988: RAISE e_ap_trans;
989: ELSE
990: -----------------------------------------------
991: -- only AR documents within the AR Dialog Unit
992: -- Dialog unit exists within igi_exp_dus
993: -- p_app_id is 222
994: --
995: -- Loop through AR transactions in the Dialog Unit
996: -- 1. Update the complete flag
1061:
1062:
1063: WHEN e_invalid_p_du_id THEN
1064: p_error_message := 'Error: Parameter p_du_id '||TO_CHAR(p_du_id) ||
1065: ' does not exist within the table igi_exp_dus.'||
1066: ' This is an invalid Dialog Unit';
1067:
1068: WHEN e_ar_trans THEN
1069: p_trx_id :=l_trx_id;