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;