[Home] [Help]
PACKAGE: APPS.OKL_LEASE_QUOTE_ASSET_PVT
Source
1 PACKAGE OKL_LEASE_QUOTE_ASSET_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRQUAS.pls 120.12 2008/02/08 07:07:43 veramach noship $ */
3
4 --------------------
5 -- PACKAGE CONSTANTS
6 --------------------
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKL_LEASE_QUOTE_ASSET_PVT';
8 G_APP_NAME CONSTANT VARCHAR2(30) := OKL_API.G_APP_NAME;
9 G_API_VERSION CONSTANT NUMBER := 1;
10 G_USER_ID CONSTANT NUMBER := FND_GLOBAL.USER_ID;
11 G_LOGIN_ID CONSTANT NUMBER := FND_GLOBAL.LOGIN_ID;
12 G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
13 G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
14 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
15 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
16 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
17 G_DB_ERROR CONSTANT VARCHAR2(30) := 'OKL_DB_ERROR';
18 G_PKG_NAME_TOKEN CONSTANT VARCHAR2(30) := 'PKG_NAME';
19 G_PROG_NAME_TOKEN CONSTANT VARCHAR2(30) := 'PROG_NAME';
20 G_SQLCODE_TOKEN CONSTANT VARCHAR2(30) := 'SQLCODE';
21 G_SQLERRM_TOKEN CONSTANT VARCHAR2(30) := 'SQLERRM';
22 ------------------
23 -- DATA STRUCTURES
24 ------------------
25 subtype asset_rec_type is okl_ass_pvt.assv_rec_type;
26 subtype asset_tbl_type is okl_ass_pvt.assv_tbl_type;
27 subtype component_tbl_type is okl_aso_pvt.asov_tbl_type;
28 subtype cashflow_hdr_rec_type is okl_lease_quote_cashflow_pvt.cashflow_header_rec_type;
29 subtype cashflow_level_tbl_type is okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type;
30 subtype cf_object_rec_type is okl_cfo_pvt.cfov_rec_type;
31 subtype cf_header_rec_type is okl_caf_pvt.cafv_rec_type;
32 subtype cf_level_tbl_type is okl_cfl_pvt.cflv_tbl_type;
33
34 subtype cdj_tbl_type is okl_cdj_pvt.cdjv_tbl_type;
35
36 subtype asset_adj_tbl_type is okl_cdj_pvt.cdjv_tbl_type;
37
38 TYPE asset_component_rec_type IS RECORD (
39 id okl_asset_components_b.id%TYPE
40 ,object_version_number okl_asset_components_b.object_version_number%TYPE
41 ,asset_id okl_asset_components_b.asset_id%TYPE
42 ,inv_item_id okl_asset_components_b.inv_item_id%TYPE
43 ,supplier_id okl_asset_components_b.supplier_id%TYPE
44 ,primary_component okl_asset_components_b.primary_component%TYPE
45 ,unit_cost okl_asset_components_b.unit_cost%TYPE
46 ,number_of_units okl_asset_components_b.number_of_units%TYPE
47 ,manufacturer_name okl_asset_components_b.manufacturer_name%TYPE
48 ,year_manufactured okl_asset_components_b.year_manufactured%TYPE
49 ,model_number okl_asset_components_b.model_number%TYPE
50 ,short_description okl_asset_components_tl.short_description%TYPE
51 ,description okl_asset_components_tl.description%TYPE
52 ,comments okl_asset_components_tl.comments%TYPE
53 ,record_mode varchar2(10));
54 TYPE asset_component_tbl_type IS TABLE OF asset_component_rec_type INDEX BY PLS_INTEGER;
55
56 TYPE asset_adjustment_rec_type IS RECORD (
57 id okl_cost_adjustments_b.id%TYPE
58 ,object_version_number okl_cost_adjustments_b.object_version_number%TYPE
59 ,parent_object_code okl_cost_adjustments_b.parent_object_code%TYPE
60 ,parent_object_id okl_cost_adjustments_b.parent_object_id%TYPE
61 ,adjustment_source_type okl_cost_adjustments_b.adjustment_source_type%TYPE
62 ,adjustment_source_id okl_cost_adjustments_b.adjustment_source_id%TYPE
63 ,basis okl_cost_adjustments_b.basis%TYPE
64 ,value okl_cost_adjustments_b.value%TYPE
65 ,default_subsidy_amount okl_cost_adjustments_b.value%TYPE
66 ,processing_type okl_cost_adjustments_b.processing_type%TYPE
67 ,supplier_id okl_cost_adjustments_b.supplier_id%TYPE
68 ,short_description okl_cost_adjustments_tl.short_description%TYPE
69 ,description okl_cost_adjustments_tl.description%TYPE
70 ,comments okl_cost_adjustments_tl.comments%TYPE
71 ,quote_id okl_lease_quotes_b.id%TYPE
72 ,record_mode varchar2(10)
73 ,adjustment_amount okl_cost_adjustments_b.value%TYPE
74 ,percent_basis_value okl_cost_adjustments_b.percent_basis_value%TYPE
75 --Bug # 5142940 ssdeshpa start
76 ,stream_type_id okl_cost_adjustments_b.stream_type_id%TYPE);
77 --Bug # 5142940 ssdeshpa end;
78
79 TYPE asset_adjustment_tbl_type IS TABLE OF asset_adjustment_rec_type INDEX BY PLS_INTEGER;
80
81 ----------------
82 -- PROGRAM UNITS
83 ----------------
84 PROCEDURE create_asset (p_api_version IN NUMBER,
85 p_init_msg_list IN VARCHAR2,
86 p_transaction_control IN VARCHAR2,
87 p_asset_rec IN asset_rec_type,
88 p_component_tbl IN asset_component_tbl_type,
89 p_cf_hdr_rec IN cashflow_hdr_rec_type,
90 p_cf_level_tbl IN cashflow_level_tbl_type,
91 x_return_status OUT NOCOPY VARCHAR2,
92 x_msg_count OUT NOCOPY NUMBER,
93 x_msg_data OUT NOCOPY VARCHAR2);
94 PROCEDURE duplicate_asset (p_api_version IN NUMBER,
95 p_init_msg_list IN VARCHAR2,
96 p_transaction_control IN VARCHAR2,
97 p_source_asset_id IN NUMBER,
98 p_asset_rec IN asset_rec_type,
99 p_component_tbl IN asset_component_tbl_type,
100 p_cf_hdr_rec IN cashflow_hdr_rec_type,
101 p_cf_level_tbl IN cashflow_level_tbl_type,
102 x_return_status OUT NOCOPY VARCHAR2,
103 x_msg_count OUT NOCOPY NUMBER,
104 x_msg_data OUT NOCOPY VARCHAR2);
105 PROCEDURE duplicate_asset ( p_api_version IN NUMBER
106 ,p_init_msg_list IN VARCHAR2
107 ,p_transaction_control IN VARCHAR2
108 ,p_source_asset_id IN NUMBER
109 ,p_target_quote_id IN NUMBER
110 ,x_target_asset_id OUT NOCOPY NUMBER
111 ,x_return_status OUT NOCOPY VARCHAR2
112 ,x_msg_count OUT NOCOPY NUMBER
113 ,x_msg_data OUT NOCOPY VARCHAR2);
114 PROCEDURE delete_asset (p_api_version IN NUMBER,
115 p_init_msg_list IN VARCHAR2,
116 p_transaction_control IN VARCHAR2,
117 p_asset_id IN NUMBER,
118 x_return_status OUT NOCOPY VARCHAR2,
119 x_msg_count OUT NOCOPY NUMBER,
120 x_msg_data OUT NOCOPY VARCHAR2);
121 PROCEDURE update_asset (p_api_version IN NUMBER,
122 p_init_msg_list IN VARCHAR2,
123 p_transaction_control IN VARCHAR2,
124 p_asset_rec IN asset_rec_type,
125 p_component_tbl IN asset_component_tbl_type,
126 p_cf_hdr_rec IN cashflow_hdr_rec_type,
127 p_cf_level_tbl IN cashflow_level_tbl_type,
128 x_return_status OUT NOCOPY VARCHAR2,
129 x_msg_count OUT NOCOPY NUMBER,
130 x_msg_data OUT NOCOPY VARCHAR2);
131
132 PROCEDURE create_adjustment (p_api_version IN NUMBER,
133 p_init_msg_list IN VARCHAR2,
134 p_transaction_control IN VARCHAR2,
135 p_asset_adj_tbl IN asset_adjustment_tbl_type,
136 x_return_status OUT NOCOPY VARCHAR2,
137 x_msg_count OUT NOCOPY NUMBER,
138 x_msg_data OUT NOCOPY VARCHAR2);
139
140 PROCEDURE update_adjustment (p_api_version IN NUMBER,
141 p_init_msg_list IN VARCHAR2,
142 p_transaction_control IN VARCHAR2,
143 p_asset_adj_tbl IN asset_adjustment_tbl_type,
144 x_return_status OUT NOCOPY VARCHAR2,
145 x_msg_count OUT NOCOPY NUMBER,
146 x_msg_data OUT NOCOPY VARCHAR2);
147
148 PROCEDURE delete_adjustment (p_api_version IN NUMBER,
149 p_init_msg_list IN VARCHAR2,
150 p_transaction_control IN VARCHAR2,
151 p_adjustment_type IN VARCHAR2,
152 p_adjustment_id IN NUMBER,
153 p_quote_id IN NUMBER,
154 x_return_status OUT NOCOPY VARCHAR2,
155 x_msg_count OUT NOCOPY NUMBER,
156 x_msg_data OUT NOCOPY VARCHAR2);
157
158 PROCEDURE create_assets_with_adjustments (p_api_version IN NUMBER,
159 p_init_msg_list IN VARCHAR2,
160 p_transaction_control IN VARCHAR2,
161 p_asset_tbl IN asset_tbl_type,
162 p_component_tbl IN asset_component_tbl_type,
163 p_asset_adj_tbl IN asset_adjustment_tbl_type,
164 x_return_status OUT NOCOPY VARCHAR2,
165 x_msg_count OUT NOCOPY NUMBER,
166 x_msg_data OUT NOCOPY VARCHAR2);
167
168 PROCEDURE duplicate_adjustments(p_api_version IN NUMBER,
169 p_init_msg_list IN VARCHAR2,
170 p_source_quote_id IN NUMBER,
171 p_target_quote_id IN NUMBER,
172 x_msg_count OUT NOCOPY NUMBER,
173 x_msg_data OUT NOCOPY VARCHAR2,
174 x_return_status OUT NOCOPY VARCHAR2);
175
176 FUNCTION validate_subsidy_applicability(p_asset_id IN NUMBER,
177 p_subsidy_id IN NUMBER)
178 RETURN VARCHAR2;
179
180 FUNCTION validate_subsidy_applicability(p_inv_item_id IN NUMBER,
181 p_subsidy_id IN NUMBER,
182 p_exp_start_date IN DATE,
183 p_inv_org_id IN NUMBER,
184 p_currency_code IN VARCHAR2,
185 p_authoring_org_id IN NUMBER,
186 p_cust_acct_id IN NUMBER,
187 p_product_id IN NUMBER,
188 p_sales_rep_id IN NUMBER)
189 RETURN VARCHAR2;
190
191 --Fixing Bug # 4735811 ssdeshpa Start
192 PROCEDURE process_link_assets(p_api_version IN NUMBER,
193 p_init_msg_list IN VARCHAR2,
194 p_transaction_control IN VARCHAR2,
195 p_asset_adj_tbl IN asset_adjustment_tbl_type,
196 x_asset_adj_tbl OUT NOCOPY asset_adjustment_tbl_type,
197 x_return_status OUT NOCOPY VARCHAR2,
198 x_msg_count OUT NOCOPY NUMBER,
199 x_msg_data OUT NOCOPY VARCHAR2);
200 --Fixing Bug # 4735811 End
201
202 FUNCTION validate_subsidy(p_quote_id IN NUMBER,
203 p_subsidy_id IN NUMBER) RETURN VARCHAR2;
204 --veramach added for bug 6622178
205 PROCEDURE calculate_subsidy_amount(p_api_version IN NUMBER,
206 p_init_msg_list IN VARCHAR2,
207 x_return_status OUT NOCOPY VARCHAR2,
208 x_msg_count OUT NOCOPY NUMBER,
209 x_msg_data OUT NOCOPY VARCHAR2,
210 p_asset_id IN NUMBER,
211 p_subsidy_id IN NUMBER,
212 x_subsidy_amount OUT NOCOPY NUMBER) ;
213 --veramach bug 6622178 end
214
215 END OKL_LEASE_QUOTE_ASSET_PVT;