PACKAGE BODY: APPS.JL_ZZ_SH_LIBRARY_1_PKG

Source

1 PACKAGE BODY JL_ZZ_SH_LIBRARY_1_PKG AS
2 /* $Header: jlzzwl1b.pls 120.4 2005/12/03 01:12:29 pla ship $ */
3 
4 Procedure get_vat_count(sitevat        IN  Varchar2,
5                         tot_rec        IN OUT NOCOPY Number,
6                         row_number     IN Number,
7                         errcd          IN OUT NOCOPY Number) Is
8 Begin
9   errcd := 0;
10   select count(*)
11   into tot_rec
12   from ap_lookup_codes lc,ap_tax_codes tc
13   where lc.lookup_type = 'TAX TYPE'
14   and tc.tax_type = 'ICMS'
15   and lc.lookup_code = tc.tax_type
16   and sysdate < nvl(lc.inactive_date, sysdate+1)
17   and sysdate < nvl(tc.inactive_date, sysdate+1)
18   and tc.name = sitevat;
19 Exception
20   When Others Then
21   errcd := sqlcode;
22 End get_vat_count;
23 
24 Procedure get_translated_label
25     (p_lookup_code   IN            Varchar2,
26      p_label            OUT NOCOPY Varchar2,
27      p_errcd            OUT NOCOPY Number) Is
28 Begin
29   p_errcd := 0;
30 
31   Select   meaning
32     Into   p_label
33     From   fnd_lookup_values_vl
34     Where  lookup_type = 'JLZZ_AR_TX_LABEL'
35       And  lookup_code = p_lookup_code
36       And  enabled_flag = 'Y'
37       And  view_application_id = 0
38       And  security_group_id = 0;
39 
40 Exception
41   When Others Then
42      p_errcd := sqlcode;
43 End get_translated_label;
44 
45 END JL_ZZ_SH_LIBRARY_1_PKG;