[Home] [Help]
PACKAGE: APPS.OKL_SUB_PVT
Source
1 PACKAGE OKL_SUB_PVT AS
2 /* $Header: OKLSSUBS.pls 120.4 2005/10/30 04:44:49 appldev noship $ */
3 ---------------------------------------------------------------------------
4 -- GLOBAL DATASTRUCTURES
5 ---------------------------------------------------------------------------
6 -- OKL_SUBSIDIES_V Record Spec
7 TYPE subv_rec_type IS RECORD (
8 id NUMBER := OKL_API.G_MISS_NUM
9 ,object_version_number NUMBER := OKL_API.G_MISS_NUM
10 ,sfwt_flag OKL_SUBSIDIES_V.SFWT_FLAG%TYPE := OKL_API.G_MISS_CHAR
11 ,org_id NUMBER := OKL_API.G_MISS_NUM
12 ,name OKL_SUBSIDIES_V.NAME%TYPE := OKL_API.G_MISS_CHAR
13 ,short_description OKL_SUBSIDIES_V.SHORT_DESCRIPTION%TYPE := OKL_API.G_MISS_CHAR
14 ,description OKL_SUBSIDIES_V.DESCRIPTION%TYPE := OKL_API.G_MISS_CHAR
15 ,effective_from_date OKL_SUBSIDIES_V.EFFECTIVE_FROM_DATE%TYPE := OKL_API.G_MISS_DATE
16 ,effective_to_date OKL_SUBSIDIES_V.EFFECTIVE_TO_DATE%TYPE := OKL_API.G_MISS_DATE
17 ,expire_after_days NUMBER := OKL_API.G_MISS_NUM
18 ,currency_code OKL_SUBSIDIES_V.CURRENCY_CODE%TYPE := OKL_API.G_MISS_CHAR
19 ,exclusive_yn OKL_SUBSIDIES_V.EXCLUSIVE_YN%TYPE := OKL_API.G_MISS_CHAR
20 ,applicable_to_release_yn OKL_SUBSIDIES_V.APPLICABLE_TO_RELEASE_YN%TYPE := OKL_API.G_MISS_CHAR
21 ,subsidy_calc_basis OKL_SUBSIDIES_V.SUBSIDY_CALC_BASIS%TYPE := OKL_API.G_MISS_CHAR
22 ,amount NUMBER := OKL_API.G_MISS_NUM
23 ,percent NUMBER := OKL_API.G_MISS_NUM
24 ,formula_id NUMBER := OKL_API.G_MISS_NUM
25 ,rate_points NUMBER := OKL_API.G_MISS_NUM
26 ,maximum_term NUMBER := OKL_API.G_MISS_NUM
27 ,vendor_id NUMBER := OKL_API.G_MISS_NUM
28 ,accounting_method_code OKL_SUBSIDIES_V.ACCOUNTING_METHOD_CODE%TYPE := OKL_API.G_MISS_CHAR
29 ,recourse_yn OKL_SUBSIDIES_V.RECOURSE_YN%TYPE := OKL_API.G_MISS_CHAR
30 ,termination_refund_basis OKL_SUBSIDIES_V.TERMINATION_REFUND_BASIS%TYPE := OKL_API.G_MISS_CHAR
31 ,refund_formula_id NUMBER := OKL_API.G_MISS_NUM
32 ,stream_type_id NUMBER := OKL_API.G_MISS_NUM
33 ,receipt_method_code OKL_SUBSIDIES_V.RECEIPT_METHOD_CODE%TYPE := OKL_API.G_MISS_CHAR
34 ,customer_visible_yn OKL_SUBSIDIES_V.CUSTOMER_VISIBLE_YN%TYPE := OKL_API.G_MISS_CHAR
35 ,maximum_financed_amount NUMBER := OKL_API.G_MISS_NUM
36 ,maximum_subsidy_amount NUMBER := OKL_API.G_MISS_NUM
37 --Start code changes for Subsidy by fmiao on 10/25/2004--
38 ,transfer_basis_code OKL_SUBSIDIES_V.TRANSFER_BASIS_CODE%TYPE := OKL_API.G_MISS_CHAR
39 --End code changes for Subsidy by fmiao on 10/25/2004--
40 ,attribute_category OKL_SUBSIDIES_V.ATTRIBUTE_CATEGORY%TYPE := OKL_API.G_MISS_CHAR
41 ,attribute1 OKL_SUBSIDIES_V.ATTRIBUTE1%TYPE := OKL_API.G_MISS_CHAR
42 ,attribute2 OKL_SUBSIDIES_V.ATTRIBUTE2%TYPE := OKL_API.G_MISS_CHAR
43 ,attribute3 OKL_SUBSIDIES_V.ATTRIBUTE3%TYPE := OKL_API.G_MISS_CHAR
44 ,attribute4 OKL_SUBSIDIES_V.ATTRIBUTE4%TYPE := OKL_API.G_MISS_CHAR
45 ,attribute5 OKL_SUBSIDIES_V.ATTRIBUTE5%TYPE := OKL_API.G_MISS_CHAR
46 ,attribute6 OKL_SUBSIDIES_V.ATTRIBUTE6%TYPE := OKL_API.G_MISS_CHAR
47 ,attribute7 OKL_SUBSIDIES_V.ATTRIBUTE7%TYPE := OKL_API.G_MISS_CHAR
48 ,attribute8 OKL_SUBSIDIES_V.ATTRIBUTE8%TYPE := OKL_API.G_MISS_CHAR
49 ,attribute9 OKL_SUBSIDIES_V.ATTRIBUTE9%TYPE := OKL_API.G_MISS_CHAR
50 ,attribute10 OKL_SUBSIDIES_V.ATTRIBUTE10%TYPE := OKL_API.G_MISS_CHAR
51 ,attribute11 OKL_SUBSIDIES_V.ATTRIBUTE11%TYPE := OKL_API.G_MISS_CHAR
52 ,attribute12 OKL_SUBSIDIES_V.ATTRIBUTE12%TYPE := OKL_API.G_MISS_CHAR
53 ,attribute13 OKL_SUBSIDIES_V.ATTRIBUTE13%TYPE := OKL_API.G_MISS_CHAR
54 ,attribute14 OKL_SUBSIDIES_V.ATTRIBUTE14%TYPE := OKL_API.G_MISS_CHAR
55 ,attribute15 OKL_SUBSIDIES_V.ATTRIBUTE15%TYPE := OKL_API.G_MISS_CHAR
56 ,created_by NUMBER := OKL_API.G_MISS_NUM
57 ,creation_date OKL_SUBSIDIES_V.CREATION_DATE%TYPE := OKL_API.G_MISS_DATE
58 ,last_updated_by NUMBER := OKL_API.G_MISS_NUM
59 ,last_update_date OKL_SUBSIDIES_V.LAST_UPDATE_DATE%TYPE := OKL_API.G_MISS_DATE
60 ,last_update_login NUMBER := OKL_API.G_MISS_NUM
61 -- sjalasut added new column for subsidy pools enhancement. start
62 ,subsidy_pool_id NUMBER := OKL_API.G_MISS_NUM
63 -- sjalasut added new column for subsidy pools enhancement. end
64 );
65 G_MISS_subv_rec subv_rec_type;
66 TYPE subv_tbl_type IS TABLE OF subv_rec_type
67 INDEX BY BINARY_INTEGER;
68 -- OKL_SUBSIDIES_TL Record Spec
69 TYPE subt_rec_type IS RECORD (
70 id NUMBER := OKL_API.G_MISS_NUM
71 ,short_description OKL_SUBSIDIES_TL.SHORT_DESCRIPTION%TYPE := OKL_API.G_MISS_CHAR
72 ,description OKL_SUBSIDIES_TL.DESCRIPTION%TYPE := OKL_API.G_MISS_CHAR
73 ,language OKL_SUBSIDIES_TL.LANGUAGE%TYPE := OKL_API.G_MISS_CHAR
74 ,source_lang OKL_SUBSIDIES_TL.SOURCE_LANG%TYPE := OKL_API.G_MISS_CHAR
75 ,sfwt_flag OKL_SUBSIDIES_TL.SFWT_FLAG%TYPE := OKL_API.G_MISS_CHAR
76 ,created_by NUMBER := OKL_API.G_MISS_NUM
77 ,creation_date OKL_SUBSIDIES_TL.CREATION_DATE%TYPE := OKL_API.G_MISS_DATE
78 ,last_updated_by NUMBER := OKL_API.G_MISS_NUM
79 ,last_update_date OKL_SUBSIDIES_TL.LAST_UPDATE_DATE%TYPE := OKL_API.G_MISS_DATE
80 ,last_update_login NUMBER := OKL_API.G_MISS_NUM);
81 G_MISS_subt_rec subt_rec_type;
82 TYPE subt_tbl_type IS TABLE OF subt_rec_type
83 INDEX BY BINARY_INTEGER;
84 -- OKL_SUBSIDIES_B Record Spec
85 TYPE subb_rec_type IS RECORD (
86 id NUMBER := OKL_API.G_MISS_NUM
87 ,object_version_number NUMBER := OKL_API.G_MISS_NUM
88 ,org_id NUMBER := OKL_API.G_MISS_NUM
89 ,name OKL_SUBSIDIES_B.NAME%TYPE := OKL_API.G_MISS_CHAR
90 ,effective_from_date OKL_SUBSIDIES_B.EFFECTIVE_FROM_DATE%TYPE := OKL_API.G_MISS_DATE
91 ,effective_to_date OKL_SUBSIDIES_B.EFFECTIVE_TO_DATE%TYPE := OKL_API.G_MISS_DATE
92 ,expire_after_days NUMBER := OKL_API.G_MISS_NUM
93 ,currency_code OKL_SUBSIDIES_B.CURRENCY_CODE%TYPE := OKL_API.G_MISS_CHAR
94 ,exclusive_yn OKL_SUBSIDIES_B.EXCLUSIVE_YN%TYPE := OKL_API.G_MISS_CHAR
95 ,applicable_to_release_yn OKL_SUBSIDIES_B.APPLICABLE_TO_RELEASE_YN%TYPE := OKL_API.G_MISS_CHAR
96 ,subsidy_calc_basis OKL_SUBSIDIES_B.SUBSIDY_CALC_BASIS%TYPE := OKL_API.G_MISS_CHAR
97 ,amount NUMBER := OKL_API.G_MISS_NUM
98 ,percent NUMBER := OKL_API.G_MISS_NUM
99 ,formula_id NUMBER := OKL_API.G_MISS_NUM
100 ,rate_points NUMBER := OKL_API.G_MISS_NUM
101 ,maximum_term NUMBER := OKL_API.G_MISS_NUM
102 ,vendor_id NUMBER := OKL_API.G_MISS_NUM
103 ,accounting_method_code OKL_SUBSIDIES_B.ACCOUNTING_METHOD_CODE%TYPE := OKL_API.G_MISS_CHAR
104 ,recourse_yn OKL_SUBSIDIES_B.RECOURSE_YN%TYPE := OKL_API.G_MISS_CHAR
105 ,termination_refund_basis OKL_SUBSIDIES_B.TERMINATION_REFUND_BASIS%TYPE := OKL_API.G_MISS_CHAR
106 ,refund_formula_id NUMBER := OKL_API.G_MISS_NUM
107 ,stream_type_id NUMBER := OKL_API.G_MISS_NUM
108 ,receipt_method_code OKL_SUBSIDIES_B.RECEIPT_METHOD_CODE%TYPE := OKL_API.G_MISS_CHAR
109 ,customer_visible_yn OKL_SUBSIDIES_B.CUSTOMER_VISIBLE_YN%TYPE := OKL_API.G_MISS_CHAR
110 ,maximum_financed_amount NUMBER := OKL_API.G_MISS_NUM
111 ,maximum_subsidy_amount NUMBER := OKL_API.G_MISS_NUM
112 --Start code changes for Subsidy by fmiao on 10/25/2004--
113 ,transfer_basis_code OKL_SUBSIDIES_B.TRANSFER_BASIS_CODE%TYPE := OKL_API.G_MISS_CHAR
114 --End code changes for Subsidy by fmiao on 10/25/2004--
115 ,attribute_category OKL_SUBSIDIES_B.ATTRIBUTE_CATEGORY%TYPE := OKL_API.G_MISS_CHAR
116 ,attribute1 OKL_SUBSIDIES_B.ATTRIBUTE1%TYPE := OKL_API.G_MISS_CHAR
117 ,attribute2 OKL_SUBSIDIES_B.ATTRIBUTE2%TYPE := OKL_API.G_MISS_CHAR
118 ,attribute3 OKL_SUBSIDIES_B.ATTRIBUTE3%TYPE := OKL_API.G_MISS_CHAR
119 ,attribute4 OKL_SUBSIDIES_B.ATTRIBUTE4%TYPE := OKL_API.G_MISS_CHAR
120 ,attribute5 OKL_SUBSIDIES_B.ATTRIBUTE5%TYPE := OKL_API.G_MISS_CHAR
121 ,attribute6 OKL_SUBSIDIES_B.ATTRIBUTE6%TYPE := OKL_API.G_MISS_CHAR
122 ,attribute7 OKL_SUBSIDIES_B.ATTRIBUTE7%TYPE := OKL_API.G_MISS_CHAR
123 ,attribute8 OKL_SUBSIDIES_B.ATTRIBUTE8%TYPE := OKL_API.G_MISS_CHAR
124 ,attribute9 OKL_SUBSIDIES_B.ATTRIBUTE9%TYPE := OKL_API.G_MISS_CHAR
125 ,attribute10 OKL_SUBSIDIES_B.ATTRIBUTE10%TYPE := OKL_API.G_MISS_CHAR
126 ,attribute11 OKL_SUBSIDIES_B.ATTRIBUTE11%TYPE := OKL_API.G_MISS_CHAR
127 ,attribute12 OKL_SUBSIDIES_B.ATTRIBUTE12%TYPE := OKL_API.G_MISS_CHAR
128 ,attribute13 OKL_SUBSIDIES_B.ATTRIBUTE13%TYPE := OKL_API.G_MISS_CHAR
129 ,attribute14 OKL_SUBSIDIES_B.ATTRIBUTE14%TYPE := OKL_API.G_MISS_CHAR
130 ,attribute15 OKL_SUBSIDIES_B.ATTRIBUTE15%TYPE := OKL_API.G_MISS_CHAR
131 ,created_by NUMBER := OKL_API.G_MISS_NUM
132 ,creation_date OKL_SUBSIDIES_B.CREATION_DATE%TYPE := OKL_API.G_MISS_DATE
133 ,last_updated_by NUMBER := OKL_API.G_MISS_NUM
134 ,last_update_date OKL_SUBSIDIES_B.LAST_UPDATE_DATE%TYPE := OKL_API.G_MISS_DATE
135 ,last_update_login NUMBER := OKL_API.G_MISS_NUM
136 -- sjalasut added new column for subsidy pools enhancement. start
137 ,subsidy_pool_id NUMBER := OKL_API.G_MISS_NUM
138 -- sjalasut added new column for subsidy pools enhancement. end
139 );
140 G_MISS_subb_rec subb_rec_type;
141 TYPE subb_tbl_type IS TABLE OF subb_rec_type
142 INDEX BY BINARY_INTEGER;
143 ---------------------------------------------------------------------------
144 -- GLOBAL MESSAGE CONSTANTS
145 ---------------------------------------------------------------------------
146 G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
147 G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
148 G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_DELETED;
149 G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_CHANGED;
150 G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_RECORD_LOGICALLY_DELETED;
151 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
152 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
153 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
154 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
155 G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
156 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
157 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
158 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
159
160 ---------------------------------------------------------------------------
161 -- GLOBAL EXCEPTIONS
162 ---------------------------------------------------------------------------
163 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
164
165 ---------------------------------------------------------------------------
166 -- GLOBAL VARIABLES
167 ---------------------------------------------------------------------------
168 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_SUB_PVT';
169 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
170 ---------------------------------------------------------------------------
171 -- Procedures and Functions
172 ---------------------------------------------------------------------------
173
174 PROCEDURE qc;
175 PROCEDURE change_version;
176 PROCEDURE api_copy;
177 PROCEDURE add_language;
178 PROCEDURE insert_row(
179 p_api_version IN NUMBER,
180 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
181 x_return_status OUT NOCOPY VARCHAR2,
182 x_msg_count OUT NOCOPY NUMBER,
183 x_msg_data OUT NOCOPY VARCHAR2,
184 p_subv_rec IN subv_rec_type,
185 x_subv_rec OUT NOCOPY subv_rec_type);
186 PROCEDURE insert_row(
187 p_api_version IN NUMBER,
188 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
189 x_return_status OUT NOCOPY VARCHAR2,
190 x_msg_count OUT NOCOPY NUMBER,
191 x_msg_data OUT NOCOPY VARCHAR2,
192 p_subv_tbl IN subv_tbl_type,
193 x_subv_tbl OUT NOCOPY subv_tbl_type,
194 px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE);
195 PROCEDURE insert_row(
196 p_api_version IN NUMBER,
197 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
198 x_return_status OUT NOCOPY VARCHAR2,
199 x_msg_count OUT NOCOPY NUMBER,
200 x_msg_data OUT NOCOPY VARCHAR2,
201 p_subv_tbl IN subv_tbl_type,
202 x_subv_tbl OUT NOCOPY subv_tbl_type);
203 PROCEDURE lock_row(
204 p_api_version IN NUMBER,
205 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
206 x_return_status OUT NOCOPY VARCHAR2,
207 x_msg_count OUT NOCOPY NUMBER,
208 x_msg_data OUT NOCOPY VARCHAR2,
209 p_subv_rec IN subv_rec_type);
210 PROCEDURE lock_row(
211 p_api_version IN NUMBER,
212 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
213 x_return_status OUT NOCOPY VARCHAR2,
214 x_msg_count OUT NOCOPY NUMBER,
215 x_msg_data OUT NOCOPY VARCHAR2,
216 p_subv_tbl IN subv_tbl_type,
217 px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE);
218 PROCEDURE lock_row(
219 p_api_version IN NUMBER,
220 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
221 x_return_status OUT NOCOPY VARCHAR2,
222 x_msg_count OUT NOCOPY NUMBER,
223 x_msg_data OUT NOCOPY VARCHAR2,
224 p_subv_tbl IN subv_tbl_type);
225 PROCEDURE update_row(
226 p_api_version IN NUMBER,
227 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
228 x_return_status OUT NOCOPY VARCHAR2,
229 x_msg_count OUT NOCOPY NUMBER,
230 x_msg_data OUT NOCOPY VARCHAR2,
231 p_subv_rec IN subv_rec_type,
232 x_subv_rec OUT NOCOPY subv_rec_type);
233 PROCEDURE update_row(
234 p_api_version IN NUMBER,
235 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
236 x_return_status OUT NOCOPY VARCHAR2,
237 x_msg_count OUT NOCOPY NUMBER,
238 x_msg_data OUT NOCOPY VARCHAR2,
239 p_subv_tbl IN subv_tbl_type,
240 x_subv_tbl OUT NOCOPY subv_tbl_type,
241 px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE);
242 PROCEDURE update_row(
243 p_api_version IN NUMBER,
244 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
245 x_return_status OUT NOCOPY VARCHAR2,
246 x_msg_count OUT NOCOPY NUMBER,
247 x_msg_data OUT NOCOPY VARCHAR2,
248 p_subv_tbl IN subv_tbl_type,
249 x_subv_tbl OUT NOCOPY subv_tbl_type);
250 PROCEDURE delete_row(
251 p_api_version IN NUMBER,
252 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
253 x_return_status OUT NOCOPY VARCHAR2,
254 x_msg_count OUT NOCOPY NUMBER,
255 x_msg_data OUT NOCOPY VARCHAR2,
256 p_subv_rec IN subv_rec_type);
257 PROCEDURE delete_row(
258 p_api_version IN NUMBER,
259 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
260 x_return_status OUT NOCOPY VARCHAR2,
261 x_msg_count OUT NOCOPY NUMBER,
262 x_msg_data OUT NOCOPY VARCHAR2,
263 p_subv_tbl IN subv_tbl_type,
264 px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE);
265 PROCEDURE delete_row(
266 p_api_version IN NUMBER,
267 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
268 x_return_status OUT NOCOPY VARCHAR2,
269 x_msg_count OUT NOCOPY NUMBER,
270 x_msg_data OUT NOCOPY VARCHAR2,
271 p_subv_tbl IN subv_tbl_type);
272 PROCEDURE validate_row(
273 p_api_version IN NUMBER,
274 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
275 x_return_status OUT NOCOPY VARCHAR2,
276 x_msg_count OUT NOCOPY NUMBER,
277 x_msg_data OUT NOCOPY VARCHAR2,
278 p_subv_rec IN subv_rec_type);
279 PROCEDURE validate_row(
280 p_api_version IN NUMBER,
281 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
282 x_return_status OUT NOCOPY VARCHAR2,
283 x_msg_count OUT NOCOPY NUMBER,
284 x_msg_data OUT NOCOPY VARCHAR2,
285 p_subv_tbl IN subv_tbl_type,
286 px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE);
287 PROCEDURE validate_row(
288 p_api_version IN NUMBER,
289 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
290 x_return_status OUT NOCOPY VARCHAR2,
291 x_msg_count OUT NOCOPY NUMBER,
292 x_msg_data OUT NOCOPY VARCHAR2,
293 p_subv_tbl IN subv_tbl_type);
294 END OKL_SUB_PVT;