[Home] [Help]
PACKAGE: APPS.OKL_KRP_PVT
Source
1 PACKAGE OKL_KRP_PVT AS
2 /* $Header: OKLSKRPS.pls 120.3.12010000.2 2008/11/11 23:12:03 cklee ship $ */
3 ---------------------------------------------------------------------------
4 -- GLOBAL DATASTRUCTURES
5 ---------------------------------------------------------------------------
6 -- OKL_K_RATE_PARAMS_V Record Spec
7 TYPE krpv_rec_type IS RECORD (
8 khr_id NUMBER := OKC_API.G_MISS_NUM
9 ,parameter_type_code OKL_K_RATE_PARAMS_V.PARAMETER_TYPE_CODE%TYPE := OKC_API.G_MISS_CHAR
10 ,effective_from_date OKL_K_RATE_PARAMS_V.EFFECTIVE_FROM_DATE%TYPE := OKC_API.G_MISS_DATE
11 ,effective_to_date OKL_K_RATE_PARAMS_V.EFFECTIVE_TO_DATE%TYPE := OKC_API.G_MISS_DATE
12 ,interest_index_id NUMBER := OKC_API.G_MISS_NUM
13 ,base_rate NUMBER := OKC_API.G_MISS_NUM
14 ,interest_start_date OKL_K_RATE_PARAMS_V.INTEREST_START_DATE%TYPE := OKC_API.G_MISS_DATE
15 ,adder_rate NUMBER := OKC_API.G_MISS_NUM
16 ,maximum_rate NUMBER := OKC_API.G_MISS_NUM
17 ,minimum_rate NUMBER := OKC_API.G_MISS_NUM
18 ,principal_basis_code OKL_K_RATE_PARAMS_V.PRINCIPAL_BASIS_CODE%TYPE := OKC_API.G_MISS_CHAR
19 ,days_in_a_month_code OKL_K_RATE_PARAMS_V.DAYS_IN_A_MONTH_CODE%TYPE := OKC_API.G_MISS_CHAR
20 ,days_in_a_year_code OKL_K_RATE_PARAMS_V.DAYS_IN_A_YEAR_CODE%TYPE := OKC_API.G_MISS_CHAR
21 ,interest_basis_code OKL_K_RATE_PARAMS_V.INTEREST_BASIS_CODE%TYPE := OKC_API.G_MISS_CHAR
22 ,rate_delay_code OKL_K_RATE_PARAMS_V.RATE_DELAY_CODE%TYPE := OKC_API.G_MISS_CHAR
23 ,rate_delay_frequency NUMBER := OKC_API.G_MISS_NUM
24 ,compounding_frequency_code OKL_K_RATE_PARAMS_V.COMPOUNDING_FREQUENCY_CODE%TYPE := OKC_API.G_MISS_CHAR
25 ,calculation_formula_id NUMBER := OKC_API.G_MISS_NUM
26 ,catchup_basis_code OKL_K_RATE_PARAMS_V.CATCHUP_BASIS_CODE%TYPE := OKC_API.G_MISS_CHAR
27 ,catchup_start_date OKL_K_RATE_PARAMS_V.CATCHUP_START_DATE%TYPE := OKC_API.G_MISS_DATE
28 ,catchup_settlement_code OKL_K_RATE_PARAMS_V.CATCHUP_SETTLEMENT_CODE%TYPE := OKC_API.G_MISS_CHAR
29 ,rate_change_start_date OKL_K_RATE_PARAMS_V.RATE_CHANGE_START_DATE%TYPE := OKC_API.G_MISS_DATE
30 ,rate_change_frequency_code OKL_K_RATE_PARAMS_V.RATE_CHANGE_FREQUENCY_CODE%TYPE := OKC_API.G_MISS_CHAR
31 ,rate_change_value NUMBER := OKC_API.G_MISS_NUM
32 ,conversion_option_code OKL_K_RATE_PARAMS_V.CONVERSION_OPTION_CODE%TYPE := OKC_API.G_MISS_CHAR
33 ,next_conversion_date OKL_K_RATE_PARAMS_V.NEXT_CONVERSION_DATE%TYPE := OKC_API.G_MISS_DATE
34 ,conversion_type_code OKL_K_RATE_PARAMS_V.CONVERSION_TYPE_CODE%TYPE := OKC_API.G_MISS_CHAR
35 ,attribute_category OKL_K_RATE_PARAMS_V.ATTRIBUTE_CATEGORY%TYPE := OKC_API.G_MISS_CHAR
36 ,attribute1 OKL_K_RATE_PARAMS_V.ATTRIBUTE1%TYPE := OKC_API.G_MISS_CHAR
37 ,attribute2 OKL_K_RATE_PARAMS_V.ATTRIBUTE2%TYPE := OKC_API.G_MISS_CHAR
38 ,attribute3 OKL_K_RATE_PARAMS_V.ATTRIBUTE3%TYPE := OKC_API.G_MISS_CHAR
39 ,attribute4 OKL_K_RATE_PARAMS_V.ATTRIBUTE4%TYPE := OKC_API.G_MISS_CHAR
40 ,attribute5 OKL_K_RATE_PARAMS_V.ATTRIBUTE5%TYPE := OKC_API.G_MISS_CHAR
41 ,attribute6 OKL_K_RATE_PARAMS_V.ATTRIBUTE6%TYPE := OKC_API.G_MISS_CHAR
42 ,attribute7 OKL_K_RATE_PARAMS_V.ATTRIBUTE7%TYPE := OKC_API.G_MISS_CHAR
43 ,attribute8 OKL_K_RATE_PARAMS_V.ATTRIBUTE8%TYPE := OKC_API.G_MISS_CHAR
44 ,attribute9 OKL_K_RATE_PARAMS_V.ATTRIBUTE9%TYPE := OKC_API.G_MISS_CHAR
45 ,attribute10 OKL_K_RATE_PARAMS_V.ATTRIBUTE10%TYPE := OKC_API.G_MISS_CHAR
46 ,attribute11 OKL_K_RATE_PARAMS_V.ATTRIBUTE11%TYPE := OKC_API.G_MISS_CHAR
47 ,attribute12 OKL_K_RATE_PARAMS_V.ATTRIBUTE12%TYPE := OKC_API.G_MISS_CHAR
48 ,attribute13 OKL_K_RATE_PARAMS_V.ATTRIBUTE13%TYPE := OKC_API.G_MISS_CHAR
49 ,attribute14 OKL_K_RATE_PARAMS_V.ATTRIBUTE14%TYPE := OKC_API.G_MISS_CHAR
50 ,attribute15 OKL_K_RATE_PARAMS_V.ATTRIBUTE15%TYPE := OKC_API.G_MISS_CHAR
51 ,created_by NUMBER := OKC_API.G_MISS_NUM
52 ,creation_date OKL_K_RATE_PARAMS_V.CREATION_DATE%TYPE := OKC_API.G_MISS_DATE
53 ,last_updated_by NUMBER := OKC_API.G_MISS_NUM
54 ,last_update_date OKL_K_RATE_PARAMS_V.LAST_UPDATE_DATE%TYPE := OKC_API.G_MISS_DATE
55 ,last_update_login NUMBER := OKC_API.G_MISS_NUM
56 ,catchup_frequency_code OKL_K_RATE_PARAMS_V.CATCHUP_FREQUENCY_CODE%TYPE := OKC_API.G_MISS_CHAR);
57 G_MISS_krpv_rec krpv_rec_type;
58 TYPE krpv_tbl_type IS TABLE OF krpv_rec_type
59 INDEX BY BINARY_INTEGER;
60 -- OKL_K_RATE_PARAMS Record Spec
61 TYPE krp_rec_type IS RECORD (
62 khr_id NUMBER := OKC_API.G_MISS_NUM
63 ,parameter_type_code OKL_K_RATE_PARAMS.PARAMETER_TYPE_CODE%TYPE := OKC_API.G_MISS_CHAR
64 ,effective_from_date OKL_K_RATE_PARAMS.EFFECTIVE_FROM_DATE%TYPE := OKC_API.G_MISS_DATE
65 ,effective_to_date OKL_K_RATE_PARAMS.EFFECTIVE_TO_DATE%TYPE := OKC_API.G_MISS_DATE
66 ,interest_index_id NUMBER := OKC_API.G_MISS_NUM
67 ,base_rate NUMBER := OKC_API.G_MISS_NUM
68 ,interest_start_date OKL_K_RATE_PARAMS.INTEREST_START_DATE%TYPE := OKC_API.G_MISS_DATE
69 ,adder_rate NUMBER := OKC_API.G_MISS_NUM
70 ,maximum_rate NUMBER := OKC_API.G_MISS_NUM
71 ,minimum_rate NUMBER := OKC_API.G_MISS_NUM
72 ,principal_basis_code OKL_K_RATE_PARAMS.PRINCIPAL_BASIS_CODE%TYPE := OKC_API.G_MISS_CHAR
73 ,days_in_a_month_code OKL_K_RATE_PARAMS.DAYS_IN_A_MONTH_CODE%TYPE := OKC_API.G_MISS_CHAR
74 ,days_in_a_year_code OKL_K_RATE_PARAMS.DAYS_IN_A_YEAR_CODE%TYPE := OKC_API.G_MISS_CHAR
75 ,interest_basis_code OKL_K_RATE_PARAMS.INTEREST_BASIS_CODE%TYPE := OKC_API.G_MISS_CHAR
76 ,rate_delay_code OKL_K_RATE_PARAMS.RATE_DELAY_CODE%TYPE := OKC_API.G_MISS_CHAR
77 ,rate_delay_frequency NUMBER := OKC_API.G_MISS_NUM
78 ,compounding_frequency_code OKL_K_RATE_PARAMS.COMPOUNDING_FREQUENCY_CODE%TYPE := OKC_API.G_MISS_CHAR
79 ,calculation_formula_id NUMBER := OKC_API.G_MISS_NUM
80 ,catchup_basis_code OKL_K_RATE_PARAMS.CATCHUP_BASIS_CODE%TYPE := OKC_API.G_MISS_CHAR
81 ,catchup_start_date OKL_K_RATE_PARAMS.CATCHUP_START_DATE%TYPE := OKC_API.G_MISS_DATE
82 ,catchup_settlement_code OKL_K_RATE_PARAMS.CATCHUP_SETTLEMENT_CODE%TYPE := OKC_API.G_MISS_CHAR
83 ,rate_change_start_date OKL_K_RATE_PARAMS.RATE_CHANGE_START_DATE%TYPE := OKC_API.G_MISS_DATE
84 ,rate_change_frequency_code OKL_K_RATE_PARAMS.RATE_CHANGE_FREQUENCY_CODE%TYPE := OKC_API.G_MISS_CHAR
85 ,rate_change_value NUMBER := OKC_API.G_MISS_NUM
86 ,conversion_option_code OKL_K_RATE_PARAMS.CONVERSION_OPTION_CODE%TYPE := OKC_API.G_MISS_CHAR
87 ,next_conversion_date OKL_K_RATE_PARAMS.NEXT_CONVERSION_DATE%TYPE := OKC_API.G_MISS_DATE
88 ,conversion_type_code OKL_K_RATE_PARAMS.CONVERSION_TYPE_CODE%TYPE := OKC_API.G_MISS_CHAR
89 ,attribute_category OKL_K_RATE_PARAMS.ATTRIBUTE_CATEGORY%TYPE := OKC_API.G_MISS_CHAR
90 ,attribute1 OKL_K_RATE_PARAMS.ATTRIBUTE1%TYPE := OKC_API.G_MISS_CHAR
91 ,attribute2 OKL_K_RATE_PARAMS.ATTRIBUTE2%TYPE := OKC_API.G_MISS_CHAR
92 ,attribute3 OKL_K_RATE_PARAMS.ATTRIBUTE3%TYPE := OKC_API.G_MISS_CHAR
93 ,attribute4 OKL_K_RATE_PARAMS.ATTRIBUTE4%TYPE := OKC_API.G_MISS_CHAR
94 ,attribute5 OKL_K_RATE_PARAMS.ATTRIBUTE5%TYPE := OKC_API.G_MISS_CHAR
95 ,attribute6 OKL_K_RATE_PARAMS.ATTRIBUTE6%TYPE := OKC_API.G_MISS_CHAR
96 ,attribute7 OKL_K_RATE_PARAMS.ATTRIBUTE7%TYPE := OKC_API.G_MISS_CHAR
97 ,attribute8 OKL_K_RATE_PARAMS.ATTRIBUTE8%TYPE := OKC_API.G_MISS_CHAR
98 ,attribute9 OKL_K_RATE_PARAMS.ATTRIBUTE9%TYPE := OKC_API.G_MISS_CHAR
99 ,attribute10 OKL_K_RATE_PARAMS.ATTRIBUTE10%TYPE := OKC_API.G_MISS_CHAR
100 ,attribute11 OKL_K_RATE_PARAMS.ATTRIBUTE11%TYPE := OKC_API.G_MISS_CHAR
101 ,attribute12 OKL_K_RATE_PARAMS.ATTRIBUTE12%TYPE := OKC_API.G_MISS_CHAR
102 ,attribute13 OKL_K_RATE_PARAMS.ATTRIBUTE13%TYPE := OKC_API.G_MISS_CHAR
103 ,attribute14 OKL_K_RATE_PARAMS.ATTRIBUTE14%TYPE := OKC_API.G_MISS_CHAR
104 ,attribute15 OKL_K_RATE_PARAMS.ATTRIBUTE15%TYPE := OKC_API.G_MISS_CHAR
105 ,created_by NUMBER := OKC_API.G_MISS_NUM
106 ,creation_date OKL_K_RATE_PARAMS.CREATION_DATE%TYPE := OKC_API.G_MISS_DATE
107 ,last_updated_by NUMBER := OKC_API.G_MISS_NUM
108 ,last_update_date OKL_K_RATE_PARAMS.LAST_UPDATE_DATE%TYPE := OKC_API.G_MISS_DATE
109 ,last_update_login NUMBER := OKC_API.G_MISS_NUM
110 ,catchup_frequency_code OKL_K_RATE_PARAMS_V.CATCHUP_FREQUENCY_CODE%TYPE := OKC_API.G_MISS_CHAR);
111 G_MISS_krp_rec krp_rec_type;
112 TYPE krp_tbl_type IS TABLE OF krp_rec_type
113 INDEX BY BINARY_INTEGER;
114 ---------------------------------------------------------------------------
115 -- GLOBAL MESSAGE CONSTANTS
116 ---------------------------------------------------------------------------
117 G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
118 G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
119 G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_DELETED;
120 G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_CHANGED;
121 G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
122 --start:| 11-11-08 cklee 7557667 fixed bug: 7557667 . |
123 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
124 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
125 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
126 --end:| 11-11-08 cklee 7557667 fixed bug: 7557667 . |
127 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
128 G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
129 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKS_SERVICE_AVAILABILITY_UNEXPECTED_ERROR';
130 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
131 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
132
133 ---------------------------------------------------------------------------
134 -- GLOBAL EXCEPTIONS
135 ---------------------------------------------------------------------------
136 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
137
138 ---------------------------------------------------------------------------
139 -- GLOBAL VARIABLES
140 ---------------------------------------------------------------------------
141 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_KRP_PVT';
142 -- Bug 4723341
143 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
144 ---------------------------------------------------------------------------
145 -- Procedures and Functions
146 ---------------------------------------------------------------------------
147
148 PROCEDURE qc;
149 PROCEDURE change_version;
150 PROCEDURE api_copy;
151 PROCEDURE insert_row(
152 p_api_version IN NUMBER,
153 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
154 x_return_status OUT NOCOPY VARCHAR2,
155 x_msg_count OUT NOCOPY NUMBER,
156 x_msg_data OUT NOCOPY VARCHAR2,
157 p_krpv_rec IN krpv_rec_type,
158 x_krpv_rec OUT NOCOPY krpv_rec_type);
159 PROCEDURE insert_row(
160 p_api_version IN NUMBER,
161 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
162 x_return_status OUT NOCOPY VARCHAR2,
163 x_msg_count OUT NOCOPY NUMBER,
164 x_msg_data OUT NOCOPY VARCHAR2,
165 p_krpv_tbl IN krpv_tbl_type,
166 x_krpv_tbl OUT NOCOPY krpv_tbl_type,
167 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE);
168 PROCEDURE insert_row(
169 p_api_version IN NUMBER,
170 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
171 x_return_status OUT NOCOPY VARCHAR2,
172 x_msg_count OUT NOCOPY NUMBER,
173 x_msg_data OUT NOCOPY VARCHAR2,
174 p_krpv_tbl IN krpv_tbl_type,
175 x_krpv_tbl OUT NOCOPY krpv_tbl_type);
176 PROCEDURE lock_row(
177 p_api_version IN NUMBER,
178 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
179 x_return_status OUT NOCOPY VARCHAR2,
180 x_msg_count OUT NOCOPY NUMBER,
181 x_msg_data OUT NOCOPY VARCHAR2,
182 p_krpv_rec IN krpv_rec_type);
183 PROCEDURE lock_row(
184 p_api_version IN NUMBER,
185 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
186 x_return_status OUT NOCOPY VARCHAR2,
187 x_msg_count OUT NOCOPY NUMBER,
188 x_msg_data OUT NOCOPY VARCHAR2,
189 p_krpv_tbl IN krpv_tbl_type,
190 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE);
191 PROCEDURE lock_row(
192 p_api_version IN NUMBER,
193 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
194 x_return_status OUT NOCOPY VARCHAR2,
195 x_msg_count OUT NOCOPY NUMBER,
196 x_msg_data OUT NOCOPY VARCHAR2,
197 p_krpv_tbl IN krpv_tbl_type);
198 PROCEDURE update_row(
199 p_api_version IN NUMBER,
200 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
201 x_return_status OUT NOCOPY VARCHAR2,
202 x_msg_count OUT NOCOPY NUMBER,
203 x_msg_data OUT NOCOPY VARCHAR2,
204 p_krpv_rec IN krpv_rec_type,
205 x_krpv_rec OUT NOCOPY krpv_rec_type);
206 PROCEDURE update_row(
207 p_api_version IN NUMBER,
208 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
209 x_return_status OUT NOCOPY VARCHAR2,
210 x_msg_count OUT NOCOPY NUMBER,
211 x_msg_data OUT NOCOPY VARCHAR2,
212 p_krpv_tbl IN krpv_tbl_type,
213 x_krpv_tbl OUT NOCOPY krpv_tbl_type,
214 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE);
215 PROCEDURE update_row(
216 p_api_version IN NUMBER,
217 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
218 x_return_status OUT NOCOPY VARCHAR2,
219 x_msg_count OUT NOCOPY NUMBER,
220 x_msg_data OUT NOCOPY VARCHAR2,
221 p_krpv_tbl IN krpv_tbl_type,
222 x_krpv_tbl OUT NOCOPY krpv_tbl_type);
223 PROCEDURE delete_row(
224 p_api_version IN NUMBER,
225 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
226 x_return_status OUT NOCOPY VARCHAR2,
227 x_msg_count OUT NOCOPY NUMBER,
228 x_msg_data OUT NOCOPY VARCHAR2,
229 p_krpv_rec IN krpv_rec_type);
230 PROCEDURE delete_row(
231 p_api_version IN NUMBER,
232 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
233 x_return_status OUT NOCOPY VARCHAR2,
234 x_msg_count OUT NOCOPY NUMBER,
235 x_msg_data OUT NOCOPY VARCHAR2,
236 p_krpv_tbl IN krpv_tbl_type,
237 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE);
238 PROCEDURE delete_row(
239 p_api_version IN NUMBER,
240 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
241 x_return_status OUT NOCOPY VARCHAR2,
242 x_msg_count OUT NOCOPY NUMBER,
243 x_msg_data OUT NOCOPY VARCHAR2,
244 p_krpv_tbl IN krpv_tbl_type);
245 PROCEDURE validate_row(
246 p_api_version IN NUMBER,
247 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
248 x_return_status OUT NOCOPY VARCHAR2,
249 x_msg_count OUT NOCOPY NUMBER,
250 x_msg_data OUT NOCOPY VARCHAR2,
251 p_krpv_rec IN krpv_rec_type);
252 PROCEDURE validate_row(
253 p_api_version IN NUMBER,
254 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
255 x_return_status OUT NOCOPY VARCHAR2,
256 x_msg_count OUT NOCOPY NUMBER,
257 x_msg_data OUT NOCOPY VARCHAR2,
258 p_krpv_tbl IN krpv_tbl_type,
259 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE);
260 PROCEDURE validate_row(
261 p_api_version IN NUMBER,
262 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
263 x_return_status OUT NOCOPY VARCHAR2,
264 x_msg_count OUT NOCOPY NUMBER,
265 x_msg_data OUT NOCOPY VARCHAR2,
266 p_krpv_tbl IN krpv_tbl_type);
267 PROCEDURE validate_row(
268 p_api_version IN NUMBER,
269 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
270 x_return_status OUT NOCOPY VARCHAR2,
271 x_msg_count OUT NOCOPY NUMBER,
272 x_msg_data OUT NOCOPY VARCHAR2,
273 p_deal_type IN VARCHAR2,
274 p_rev_rec_method IN VARCHAR2,
275 p_int_calc_basis IN VARCHAR2,
276 p_krpv_tbl IN krpv_tbl_type,
277 p_stack_messages IN VARCHAR2 DEFAULT 'N',
278 p_validate_flag IN VARCHAR2 DEFAULT 'Y');
279 END OKL_KRP_PVT;