1: PACKAGE BODY gl_tax_option_accounts_pkg AS
2: /* $Header: glisttab.pls 120.6 2005/05/05 01:27:36 kvora ship $ */
3:
4: ---
5: --- PRIVATE VARIABLES
16: --
17: -- Procedure
18: -- select_row
19: -- Purpose
20: -- Gets the row from gl_tax_option_accounts associated with
21: -- the given account, ledger id, and organization.
22: -- History
23: -- 05-DEC-96 D J Ogg Created.
24: -- Arguments
23: -- 05-DEC-96 D J Ogg Created.
24: -- Arguments
25: -- recinfo A row from gl_tax_options
26: -- Example
27: -- gl_tax_option_accounts_pkg.select_row(recinfo);
28: -- Notes
29: --
30: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_tax_option_accounts%ROWTYPE ) IS
31: BEGIN
26: -- Example
27: -- gl_tax_option_accounts_pkg.select_row(recinfo);
28: -- Notes
29: --
30: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_tax_option_accounts%ROWTYPE ) IS
31: BEGIN
32: SELECT *
33: INTO recinfo
34: FROM gl_tax_option_accounts
30: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_tax_option_accounts%ROWTYPE ) IS
31: BEGIN
32: SELECT *
33: INTO recinfo
34: FROM gl_tax_option_accounts
35: WHERE account_segment_value = recinfo.account_segment_value
36: AND ledger_id = recinfo.ledger_id
37: AND org_id = recinfo.org_id;
38: EXCEPTION
40: RAISE;
41: WHEN OTHERS THEN
42: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
43: fnd_message.set_token('PROCEDURE',
44: 'gl_tax_option_accounts_pkg.select_row');
45: RAISE;
46: END select_row;
47:
48:
61: -- x_tax_type Tax Type to be checked
62: -- x_rowid Row ID
63: --
64: -- Example
65: -- gl_tax_option_accounts_pkg.check_line(ledger_id, org_id, account, tax_type);
66: -- Notes
67: --
68:
69: FUNCTION check_line( x_ledger_id NUMBER,
77: BEGIN
78: -- Need to check if account has another input line
79: SELECT count(*)
80: INTO x_total
81: FROM gl_tax_option_accounts
82: WHERE ledger_id = x_ledger_id
83: AND org_id = x_org_id
84: AND account_segment_value = x_account
85: AND tax_type_code = x_tax_type
102: x_tax_code IN OUT NOCOPY VARCHAR2,
103: x_allow_override IN OUT NOCOPY VARCHAR2,
104: x_amount_includes_tax IN OUT NOCOPY VARCHAR2) IS
105:
106: recinfo gl_tax_option_accounts%ROWTYPE;
107:
108: BEGIN
109: recinfo.ledger_id := x_ledger_id;
110: recinfo.org_id := x_org_id;
120: RAISE;
121: WHEN OTHERS THEN
122: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
123: fnd_message.set_token('PROCEDURE',
124: 'gl_tax_option_accounts_pkg.select_columns');
125: RAISE;
126: END select_columns;
127:
128:
228:
229: RETURN(fnd_flex_keyval.segment_description(acct_seg_num));
230: END get_acct_description;
231:
232: END gl_tax_option_accounts_pkg;
233: