1: PACKAGE BODY jai_encum_prc AS
2: /* $Header: jai_encum_prc.plb 120.2 2008/01/21 11:26:26 ssumaith noship $ */
3: PROCEDURE fetch_nr_tax( p_dist_type_tbl IN po_tbl_varchar30,
4: p_dist_id_tbl IN po_tbl_number,
5: p_action IN VARCHAR2,
1: PACKAGE BODY jai_encum_prc AS
2: /* $Header: jai_encum_prc.plb 120.2 2008/01/21 11:26:26 ssumaith noship $ */
3: PROCEDURE fetch_nr_tax( p_dist_type_tbl IN po_tbl_varchar30,
4: p_dist_id_tbl IN po_tbl_number,
5: p_action IN VARCHAR2,
6: p_doc_type IN VARCHAR2,
707:
708: WHEN OTHERS THEN
709:
710: p_err_num := SQLCODE;
711: p_err_msg := 'jai_encum_prc.fetch_encum_rev_amt:' || substrb(SQLERRM,1,150);
712:
713: END fetch_encum_rev_amt;
714:
715: END jai_encum_prc;
711: p_err_msg := 'jai_encum_prc.fetch_encum_rev_amt:' || substrb(SQLERRM,1,150);
712:
713: END fetch_encum_rev_amt;
714:
715: END jai_encum_prc;