[Home] [Help]
PACKAGE BODY: APPS.GL_TAX_CODES_PKG
Source
1 PACKAGE BODY GL_TAX_CODES_PKG AS
2 /* $Header: glisttcb.pls 120.4 2006/01/17 20:39:18 xiwu ship $ */
3
4
5 --
6 -- PRIVATE FUNCTIONS
7 --
8
9 --
10 -- Procedure
11 -- select_row
12 -- Purpose
13 -- Used to select a particular tax row
14 -- History
15 -- 28-MAR-94 D. J. Ogg Created
16 -- Arguments
17 -- recinfo Various information about the row
18 -- Example
19 -- gl_tax_codes_pkg.select_row(recinfo)
20 -- Notes
21 --
22 PROCEDURE select_row(recinfo IN OUT NOCOPY gl_tax_codes_v%ROWTYPE) IS
23 BEGIN
24 SELECT *
25 INTO recinfo
26 FROM gl_tax_codes_v
27 WHERE tax_code_id = recinfo.tax_code_id
28 AND tax_type_code in
29 (decode(recinfo.tax_type_code,'I', 'I', 'O', 'O'), 'T');
30 END SELECT_ROW;
31
32
33 --
34 -- PUBLIC FUNCTIONS
35 --
36
37 PROCEDURE select_columns(
38 x_tax_code_id NUMBER,
39 x_tax_type_code VARCHAR2,
40 x_tax_code IN OUT NOCOPY VARCHAR2) IS
41
42 recinfo gl_tax_codes_v%ROWTYPE;
43
44 BEGIN
45 recinfo.tax_code_id := x_tax_code_id;
46 recinfo.tax_type_code := x_tax_type_code;
47
48 select_row(recinfo);
49
50 x_tax_code := recinfo.tax_code;
51 END select_columns;
52
53 END GL_TAX_CODES_PKG;