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;