[Home] [Help]
PACKAGE BODY: APPS.FA_TAX_ACCT_CARD_PKG
Source
1 PACKAGE BODY fa_tax_acct_card_pkg AS
2 -- $Header: fastacpb.pls 120.1.12010000.2 2009/07/19 08:18:53 glchen ship $
3 -- ****************************************************************************************
4 -- Copyright (c) 2000 Oracle Solution Services (India) Product Development
5 -- All rights reserved
6 -- ****************************************************************************************
7 --
8 -- PROGRAM NAME
9 -- fastacps.pls
10 --
11 -- DESCRIPTION
12 -- This script creates the package specification of fastacpb.pls
13 -- This package is used to generate Asset Tax Accounting Card - Russia.
14 --
15 -- USAGE
16 -- To install How to Install
17 -- To execute How to Execute
18 --
19 -- PROGRAM LIST DESCRIPTION
20 -- beforereport initializes the where clauses with appropriate values
21 -- get_dff_column_name fetches DFF column names
22 --
23 -- DEPENDENCIES
24 -- None.
25 --
26 --
27 -- LAST UPDATE DATE 26-FEB-2007
28 -- Date the program has been modified for the last time
29 --
30 -- HISTORY
31 -- =======
32 --
33 -- VERSION DATE AUTHOR(S) DESCRIPTION
34 -- ------- ----------- ------------------- ---------------------------
35 -- 1.0 25-FEB-2007 Srikanth Mallikarjun Gupta Creation
36 --****************************************************************************************
37
38 FUNCTION beforereport RETURN BOOLEAN IS
39 BEGIN
40 --*****************************************************
41 --To select company Name--
42 --*****************************************************
43
44 BEGIN
45 SELECT FSC.company_name
46 INTO lc_company_name
47 FROM fa_system_controls FSC;
48 EXCEPTION
49 WHEN OTHERS THEN
50 FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
51 END;
52
53
54 --********************************************************
55 --To select Functional Currency--
56 --********************************************************
57
58
59 BEGIN
60 SELECT GL.currency_code
61 INTO lc_currency_code
62 FROM fa_book_controls FBC
63 ,gl_ledgers GL
64 WHERE book_type_code = P_BOOK_NAME
65 AND FBC.set_of_books_id = GL.ledger_id;
66 EXCEPTION
67 WHEN NO_DATA_FOUND THEN
68 FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
69 WHEN OTHERS THEN
70 FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
71 END;
72
73
74 --************************************************
75 --1)To fetch DFF STATE REGISTRATION DATE--
76 --************************************************
77
78 lc_state_reg_date:= GET_DFF_COLUMN_NAME ('140','fa_additions','state registration date');
79 FND_FILE.PUT_LINE(FND_FILE.LOG,'state registration date='||lc_state_reg_date);
80
81 --***********************************************
82 --2)To fetch DFF YEARS--
83 --***********************************************
84
85 lc_years:= GET_DFF_COLUMN_NAME ('140','fa_flat_rates','years');
86 FND_FILE.PUT_LINE(FND_FILE.LOG,'years='||lc_years);
87
88 --***********************************************
89 --3)To fetch DFF MONTHS--
90 --***********************************************
91
92 lc_months:= GET_DFF_COLUMN_NAME ('140','fa_flat_rates','months');
93 FND_FILE.PUT_LINE(FND_FILE.LOG,'months='||lc_months);
94
95 --***********************************************
96 --4)To fetch DFF TAX BOOK COST--
97 --***********************************************
98
99 lc_tax_book_cost:= GET_DFF_COLUMN_NAME ('140','fa_asset_invoices','tax book cost');
100 FND_FILE.PUT_LINE(FND_FILE.LOG,'tax book cost='||lc_tax_book_cost);
101
102 --***********************************************
103 --5)To fetch DFF REFERENCE--
104 --***********************************************
105
106 lc_reference:= GET_DFF_COLUMN_NAME ('140','fa_transaction_headers','reference');
107 FND_FILE.PUT_LINE(FND_FILE.LOG,'reference='||lc_reference);
108
109 --***********************************************
110 --6)To fetch DFF EVENT_DATE--
111 --***********************************************
112 lc_event_date:= GET_DFF_COLUMN_NAME ('140','fa_transaction_headers','event_date');
113 FND_FILE.PUT_LINE(FND_FILE.LOG,'event_date='||lc_event_date);
114
115 --***********************************************
116 --7)To fetch DFF SUSPENSE_REASON--
117 --***********************************************
118
119 lc_suspense_reason:= GET_DFF_COLUMN_NAME ('140','fa_transaction_headers','suspense_reason');
120 FND_FILE.PUT_LINE(FND_FILE.LOG,'suspense_reason='||lc_suspense_reason);
121
122 --***********************************************
123 --8)To fetch DFF ADJUSTING COEFFICIENT--
124 --***********************************************
125 lc_adjusting_coefficient:= GET_DFF_COLUMN_NAME ('140','fa_flat_rates','adjusting coefficient');
126 FND_FILE.PUT_LINE(FND_FILE.LOG,'adjusting coefficient='||lc_adjusting_coefficient);
127
128 --***********************************************
129 --9)To fetch DFF ADJ_RATE_REASON
130 --***********************************************
131
132 lc_adj_rate_reason:= GET_DFF_COLUMN_NAME ('140','fa_transaction_headers','adj_rate_reason');
133 FND_FILE.PUT_LINE(FND_FILE.LOG,'adj_rate_reason='||lc_adj_rate_reason);
134
135 --***********************************************
136 --10)To fetch DFF BASE RATE--
137 --***********************************************
138 lc_base_rate:= GET_DFF_COLUMN_NAME ('140','fa_flat_rates','base rate');
139 FND_FILE.PUT_LINE(FND_FILE.LOG,'base rate='||lc_base_rate);
140
141
142 RETURN TRUE;
143 END beforereport;
144
145
146
147 --***********************************************
148 -- FUNCTION To FETCH DFF COLUMN NAMES
149 --***********************************************
150
151
152 FUNCTION get_dff_column_name (p_appln_id IN NUMBER
153 ,p_dff_name IN VARCHAR2
154 ,p_segment_name IN VARCHAR2
155 ) RETURN VARCHAR2
156 AS
157 p_dff_appln_colname VARCHAR2(40):=NULL;
158 BEGIN
159 BEGIN
160 SELECT FDFCU.application_column_name
161 INTO p_dff_appln_colname
162 FROM fnd_descr_flex_column_usages FDFCU
163 WHERE FDFCU.application_id = p_appln_id
164 AND UPPER(FDFCU.descriptive_flexfield_name) = UPPER(p_dff_name)
165 AND UPPER(FDFCU.descriptive_flex_context_code) = 'GLOBAL DATA ELEMENTS'
166 AND UPPER(FDFCU.end_user_column_name) = UPPER(p_segment_name);
167 EXCEPTION
168 WHEN NO_DATA_FOUND THEN
169 FND_FILE.PUT_LINE(FND_FILE.LOG,'DATA NOT FOUND .');
170 WHEN OTHERS THEN
171 FND_FILE.PUT_LINE(FND_FILE.LOG,'DATA NOT FOUND .');
172 end;
173 IF p_dff_appln_colname IS NULL THEN
174 FND_FILE.PUT_LINE(FND_FILE.LOG,p_segment_name||'not found');
175 ELSE
176 RETURN (p_dff_appln_colname);
177 END IF;
178 END get_dff_column_name;
179
180
181
182
183 END fa_tax_acct_card_pkg;