[Home] [Help]
PACKAGE BODY: APPS.HZ_PARTY_INFO_V2PUB
Source
1 PACKAGE BODY HZ_PARTY_INFO_V2PUB AS
2 /* $Header: ARH2PRSB.pls 120.9 2005/12/07 19:31:20 acng noship $ */
3
4 --------------------------------------
5 -- declaration of private global varibles
6 --------------------------------------
7
8 --G_DEBUG BOOLEAN := FALSE;
9
10 --------------------------------------
11 -- declaration of private procedures and functions
12 --------------------------------------
13
14 /*PROCEDURE enable_debug;
15
16 PROCEDURE disable_debug;
17 */
18
19 PROCEDURE do_create_credit_rating(
20 p_credit_rating_rec IN OUT NOCOPY CREDIT_RATING_REC_TYPE,
21 x_credit_rating_id OUT NOCOPY NUMBER,
22 x_return_status IN OUT NOCOPY VARCHAR2
23 );
24
25 PROCEDURE do_update_credit_rating(
26 p_credit_rating_rec IN OUT NOCOPY CREDIT_RATING_REC_TYPE,
27 p_object_version_number IN OUT NOCOPY NUMBER,
28 x_return_status IN OUT NOCOPY VARCHAR2
29 );
30
31 --------------------------------------
32 -- private procedures and functions
33 --------------------------------------
34
35 /**
36 * PRIVATE PROCEDURE enable_debug
37 *
38 * DESCRIPTION
39 * Turn on debug mode.
40 *
41 * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
42 * HZ_UTILITY_V2PUB.enable_debug
43 *
44 * MODIFICATION HISTORY
45 *
46 * 27-JAN-2003 Sreedhar Mohan o Created.
47 *
48 */
49
50 /*PROCEDURE enable_debug IS
51
52 BEGIN
53
54 IF FND_PROFILE.value( 'HZ_API_FILE_DEBUG_ON' ) = 'Y' OR
55 FND_PROFILE.value( 'HZ_API_DBMS_DEBUG_ON' ) = 'Y'
56 THEN
57 HZ_UTILITY_V2PUB.enable_debug;
58 G_DEBUG := TRUE;
59 END IF;
60
61 END enable_debug;
62 */
63
64 /**
65 * PRIVATE PROCEDURE disable_debug
66 *
67 * DESCRIPTION
68 * Turn off debug mode.
69 *
70 * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
71 * HZ_UTILITY_V2PUB.disable_debug
72 *
73 * MODIFICATION HISTORY
74 *
75 * 27-JAN-2003 Sreedhar Mohan o Created.
76 *
77 */
78
79 /*PROCEDURE disable_debug IS
80
81 BEGIN
82
83 IF G_DEBUG THEN
84 HZ_UTILITY_V2PUB.disable_debug;
85 G_DEBUG := FALSE;
86 END IF;
87
88 END disable_debug;
89 */
90
91
92 /*===========================================================================+
93 | PROCEDURE
94 | do_create_credit_rating
95 |
96 | DESCRIPTION
97 | Creates credit rating
98 |
99 | SCOPE - PRIVATE
100 |
101 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
102 |
103 | ARGUMENTS : IN:
104 | OUT:
105 | credit_rating_id
106 | IN/ OUT:
107 | p_credit_rating_rec
108 | x_return_status
109 |
110 | RETURNS : NONE
111 |
112 | NOTES
113 |
114 | MODIFICATION HISTORY
115 |
116 +===========================================================================*/
117
118 PROCEDURE do_create_credit_rating(
119 p_credit_rating_rec IN OUT NOCOPY CREDIT_RATING_REC_TYPE,
120 x_credit_rating_id OUT NOCOPY NUMBER,
121 x_return_status IN OUT NOCOPY VARCHAR2
122 ) IS
123
124 l_dummy VARCHAR2(1);
125 l_rowid ROWID;
126
127 BEGIN
128
129 -- if primary key value is passed, check for uniqueness.
130 IF p_credit_rating_rec.credit_rating_id IS NOT NULL AND
131 p_credit_rating_rec.credit_rating_id <> FND_API.G_MISS_NUM
132 THEN
133 BEGIN
134 SELECT 'Y' INTO l_dummy
135 FROM HZ_CREDIT_RATINGS
136 WHERE CREDIT_RATING_ID = p_credit_rating_rec.credit_rating_id;
137
138 FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
139 FND_MESSAGE.SET_TOKEN('COLUMN', 'credit_rating_id');
140 FND_MSG_PUB.ADD;
141 RAISE FND_API.G_EXC_ERROR;
142
143 EXCEPTION
144 WHEN NO_DATA_FOUND THEN
145 NULL;
146 END;
147 END IF;
148
149 -- validate credit rating record
150 HZ_REGISTRY_VALIDATE_V2PUB.validate_credit_rating(
151 'C',
152 p_credit_rating_rec,
153 l_rowid,
154 x_return_status);
155
156 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
157 RAISE FND_API.G_EXC_ERROR;
158 END IF;
159
160 -- call table handler to insert a row
161 HZ_CREDIT_RATINGS_PKG.Insert_Row (
162 x_rowid => l_rowid,
163 x_credit_rating_id => p_credit_rating_rec.credit_rating_id,
164 x_description => p_credit_rating_rec.description,
165 x_party_id => p_credit_rating_rec.party_id,
166 x_rating => p_credit_rating_rec.rating,
167 x_rated_as_of_date => p_credit_rating_rec.rated_as_of_date,
168 x_rating_organization => p_credit_rating_rec.rating_organization,
169 x_comments => p_credit_rating_rec.comments,
170 x_det_history_ind => p_credit_rating_rec.det_history_ind,
171 x_fincl_embt_ind => p_credit_rating_rec.fincl_embt_ind,
172 x_criminal_proceeding_ind => p_credit_rating_rec.criminal_proceeding_ind,
173 x_suit_judge_ind => FND_API.G_MISS_CHAR,
174 x_claims_ind => p_credit_rating_rec.claims_ind,
175 x_secured_flng_ind => p_credit_rating_rec.secured_flng_ind,
176 x_fincl_lgl_event_ind => p_credit_rating_rec.fincl_lgl_event_ind,
177 x_disaster_ind => p_credit_rating_rec.disaster_ind,
178 x_oprg_spec_evnt_ind => p_credit_rating_rec.oprg_spec_evnt_ind,
179 x_other_spec_evnt_ind => p_credit_rating_rec.other_spec_evnt_ind,
180 x_content_source_type => FND_API.G_MISS_CHAR,
181 x_status => p_credit_rating_rec.status,
182 x_object_version_number => 1,
183 x_created_by_module => p_credit_rating_rec.created_by_module,
184 x_avg_high_credit => p_credit_rating_rec.avg_high_credit,
185 x_credit_score => p_credit_rating_rec.credit_score,
186 x_credit_score_age => p_credit_rating_rec.credit_score_age,
187 x_credit_score_class => p_credit_rating_rec.credit_score_class,
188 x_credit_score_commentary => p_credit_rating_rec.credit_score_commentary,
189 x_credit_score_commentary2 => p_credit_rating_rec.credit_score_commentary2,
190 x_credit_score_commentary3 => p_credit_rating_rec.credit_score_commentary3,
191 x_credit_score_commentary4 => p_credit_rating_rec.credit_score_commentary4,
192 x_credit_score_commentary5 => p_credit_rating_rec.credit_score_commentary5,
193 x_credit_score_commentary6 => p_credit_rating_rec.credit_score_commentary6,
194 x_credit_score_commentary7 => p_credit_rating_rec.credit_score_commentary7,
195 x_credit_score_commentary8 => p_credit_rating_rec.credit_score_commentary8,
196 x_credit_score_commentary9 => p_credit_rating_rec.credit_score_commentary9,
197 x_credit_score_commentary10 => p_credit_rating_rec.credit_score_commentary10,
198 x_credit_score_date => p_credit_rating_rec.credit_score_date,
199 x_credit_score_incd_default => p_credit_rating_rec.credit_score_incd_default,
200 x_credit_score_natl_percentile => p_credit_rating_rec.credit_score_natl_percentile,
201 x_debarment_ind => p_credit_rating_rec.debarment_ind,
202 x_debarments_count => p_credit_rating_rec.debarments_count,
203 x_debarments_date => p_credit_rating_rec.debarments_date,
204 x_high_credit => p_credit_rating_rec.high_credit,
205 x_maximum_credit_currency_code => p_credit_rating_rec.maximum_credit_currency_code,
206 x_maximum_credit_rcmd => p_credit_rating_rec.maximum_credit_rcmd,
207 x_paydex_norm => p_credit_rating_rec.paydex_norm,
208 x_paydex_score => p_credit_rating_rec.paydex_score,
209 x_paydex_three_months_ago => p_credit_rating_rec.paydex_three_months_ago,
210 x_credit_score_override_code => p_credit_rating_rec.credit_score_override_code,
211 x_cr_scr_clas_expl => p_credit_rating_rec.cr_scr_clas_expl,
212 x_low_rng_delq_scr => p_credit_rating_rec.low_rng_delq_scr,
213 x_high_rng_delq_scr => p_credit_rating_rec.high_rng_delq_scr,
214 x_delq_pmt_rng_prcnt => p_credit_rating_rec.delq_pmt_rng_prcnt,
215 x_delq_pmt_pctg_for_all_firms => p_credit_rating_rec.delq_pmt_pctg_for_all_firms,
216 x_num_trade_experiences => p_credit_rating_rec.num_trade_experiences,
217 x_paydex_firm_days => p_credit_rating_rec.paydex_firm_days,
218 x_paydex_firm_comment => p_credit_rating_rec.paydex_firm_comment,
219 x_paydex_industry_days => p_credit_rating_rec.paydex_industry_days,
220 x_paydex_industry_comment => p_credit_rating_rec.paydex_industry_comment,
221 x_paydex_comment => p_credit_rating_rec.paydex_comment,
222 x_suit_ind => p_credit_rating_rec.suit_ind,
223 x_lien_ind => p_credit_rating_rec.lien_ind,
224 x_judgement_ind => p_credit_rating_rec.judgement_ind,
225 x_bankruptcy_ind => p_credit_rating_rec.bankruptcy_ind,
226 x_no_trade_ind => p_credit_rating_rec.no_trade_ind,
227 x_prnt_hq_bkcy_ind => p_credit_rating_rec.prnt_hq_bkcy_ind,
228 x_num_prnt_bkcy_filing => p_credit_rating_rec.num_prnt_bkcy_filing,
229 x_prnt_bkcy_filg_type => p_credit_rating_rec.prnt_bkcy_filg_type,
230 x_prnt_bkcy_filg_chapter => p_credit_rating_rec.prnt_bkcy_filg_chapter,
231 x_prnt_bkcy_filg_date => p_credit_rating_rec.prnt_bkcy_filg_date,
232 x_num_prnt_bkcy_convs => p_credit_rating_rec.num_prnt_bkcy_convs,
233 x_prnt_bkcy_conv_date => p_credit_rating_rec.prnt_bkcy_conv_date,
234 x_prnt_bkcy_chapter_conv => p_credit_rating_rec.prnt_bkcy_chapter_conv,
235 x_slow_trade_expl => p_credit_rating_rec.slow_trade_expl,
236 x_negv_pmt_expl => p_credit_rating_rec.negv_pmt_expl,
237 x_pub_rec_expl => p_credit_rating_rec.pub_rec_expl,
238 x_business_discontinued => p_credit_rating_rec.business_discontinued,
239 x_spcl_event_comment => p_credit_rating_rec.spcl_event_comment,
240 x_num_spcl_event => p_credit_rating_rec.num_spcl_event,
241 x_spcl_event_update_date => p_credit_rating_rec.spcl_event_update_date,
242 x_spcl_evnt_txt => p_credit_rating_rec.spcl_evnt_txt,
243 x_failure_score => p_credit_rating_rec.failure_score,
244 x_failure_score_age => p_credit_rating_rec.failure_score_age,
245 x_failure_score_class => p_credit_rating_rec.failure_score_class,
246 x_failure_score_commentary => p_credit_rating_rec.failure_score_commentary,
247 x_failure_score_commentary2 => p_credit_rating_rec.failure_score_commentary2,
248 x_failure_score_commentary3 => p_credit_rating_rec.failure_score_commentary3,
249 x_failure_score_commentary4 => p_credit_rating_rec.failure_score_commentary4,
250 x_failure_score_commentary5 => p_credit_rating_rec.failure_score_commentary5,
251 x_failure_score_commentary6 => p_credit_rating_rec.failure_score_commentary6,
252 x_failure_score_commentary7 => p_credit_rating_rec.failure_score_commentary7,
253 x_failure_score_commentary8 => p_credit_rating_rec.failure_score_commentary8,
254 x_failure_score_commentary9 => p_credit_rating_rec.failure_score_commentary9,
255 x_failure_score_commentary10 => p_credit_rating_rec.failure_score_commentary10,
256 x_failure_score_date => p_credit_rating_rec.failure_score_date,
257 x_failure_score_incd_default => p_credit_rating_rec.failure_score_incd_default,
258 x_fail_score_natnl_percentile => p_credit_rating_rec.failure_score_natnl_percentile,
259 x_failure_score_override_code => p_credit_rating_rec.failure_score_override_code,
260 x_global_failure_score => p_credit_rating_rec.global_failure_score,
261 x_actual_content_source => p_credit_rating_rec.actual_content_source
262 );
263
264 -- assign the primary key back
265 x_credit_rating_id := p_credit_rating_rec.credit_rating_id;
266
267 END do_create_credit_rating;
268
269
270 /*===========================================================================+
271 | PROCEDURE
272 | do_update_credit_rating
273 |
274 | DESCRIPTION
275 | Updates credit rating
276 |
277 | SCOPE - PRIVATE
278 |
279 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
280 |
281 | ARGUMENTS : IN:
282 | OUT:
283 | IN/ OUT:
284 | p_credit_rating_rec
285 | p_object_version_number
286 | x_return_status
287 |
288 | RETURNS : NONE
289 |
290 | NOTES
291 |
292 | MODIFICATION HISTORY
293 |
294 +===========================================================================*/
295
296 PROCEDURE do_update_credit_rating(
297 p_credit_rating_rec IN OUT NOCOPY CREDIT_RATING_REC_TYPE,
298 p_object_version_number IN OUT NOCOPY NUMBER,
299 x_return_status IN OUT NOCOPY VARCHAR2
300 ) IS
301
302 l_rowid ROWID := NULL;
303 l_object_version_number NUMBER;
304 l_party_id NUMBER;
305 l_description HZ_CREDIT_RATINGS.description%TYPE;
306 l_rating HZ_CREDIT_RATINGS.rating%TYPE;
307 l_rated_as_of_date HZ_CREDIT_RATINGS.rated_as_of_date%TYPE;
308 l_rating_organization HZ_CREDIT_RATINGS.rating_organization%TYPE;
309 -- Bug 4693719 : Added for local assignment
310 db_actual_content_source HZ_CREDIT_RATINGS.actual_content_source%TYPE;
311 l_acs HZ_CREDIT_RATINGS.actual_content_source%TYPE;
312
313
314 BEGIN
315
316 -- check whether record has been updated by another user
317 BEGIN
318 -- check object_version_number
319 SELECT rowid, object_version_number, party_id,
320 description, rating, rated_as_of_date, rating_organization
321 INTO l_rowid, l_object_version_number, l_party_id,
322 l_description, l_rating, l_rated_as_of_date, l_rating_organization
323 FROM HZ_CREDIT_RATINGS
324 WHERE credit_rating_id = p_credit_rating_rec.credit_rating_id
325 FOR UPDATE NOWAIT;
326
327 IF NOT
328 (
329 ( p_object_version_number IS NULL AND l_object_version_number IS NULL )
330 OR
331 ( p_object_version_number IS NOT NULL AND
332 l_object_version_number IS NOT NULL AND
333 p_object_version_number = l_object_version_number
334 )
335 )
336 THEN
337 FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
338 FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_CREDIT_RATINGS');
339 FND_MSG_PUB.ADD;
340 RAISE FND_API.G_EXC_ERROR;
341 END IF;
342
343 p_object_version_number := nvl(l_object_version_number, 1) + 1;
344
345 EXCEPTION
346 WHEN NO_DATA_FOUND THEN
347 FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
348 FND_MESSAGE.SET_TOKEN('RECORD', 'HZ_CREDIT_RATINGS');
349 FND_MESSAGE.SET_TOKEN('VALUE', NVL( TO_CHAR( p_credit_rating_rec.credit_rating_id ), 'null' ) );
350 FND_MSG_PUB.ADD;
351 RAISE FND_API.G_EXC_ERROR;
352 END;
353
354 -- validate person interest record
355 HZ_REGISTRY_VALIDATE_V2PUB.validate_credit_rating(
356 'U',
357 p_credit_rating_rec,
358 l_rowid,
359 x_return_status);
360
361 IF x_return_status = FND_API.G_RET_STS_ERROR THEN
362 RAISE FND_API.G_EXC_ERROR;
363 END IF;
364
365 -- Bug 4693719 : pass NULL if the secure data is not updated
366 IF HZ_UTILITY_V2PUB.G_UPDATE_ACS = 'Y' THEN
367 l_acs := nvl(p_credit_rating_rec.actual_content_source, 'USER_ENTERED');
368 ELSE
369 l_acs := NULL;
370 END IF;
371
372 -- call table handler to update a row
373 HZ_CREDIT_RATINGS_PKG.Update_Row (
374 x_rowid => l_rowid,
375 x_credit_rating_id => p_credit_rating_rec.credit_rating_id,
376 x_description => p_credit_rating_rec.description,
377 x_party_id => p_credit_rating_rec.party_id,
378 x_rating => p_credit_rating_rec.rating,
379 x_rated_as_of_date => p_credit_rating_rec.rated_as_of_date,
380 x_rating_organization => p_credit_rating_rec.rating_organization,
381 x_comments => p_credit_rating_rec.comments,
382 x_det_history_ind => p_credit_rating_rec.det_history_ind,
383 x_fincl_embt_ind => p_credit_rating_rec.fincl_embt_ind,
384 x_criminal_proceeding_ind => p_credit_rating_rec.criminal_proceeding_ind,
385 x_suit_judge_ind => FND_API.G_MISS_CHAR,
386 x_claims_ind => p_credit_rating_rec.claims_ind,
387 x_secured_flng_ind => p_credit_rating_rec.secured_flng_ind,
388 x_fincl_lgl_event_ind => p_credit_rating_rec.fincl_lgl_event_ind,
389 x_disaster_ind => p_credit_rating_rec.disaster_ind,
390 x_oprg_spec_evnt_ind => p_credit_rating_rec.oprg_spec_evnt_ind,
391 x_other_spec_evnt_ind => p_credit_rating_rec.other_spec_evnt_ind,
392 x_content_source_type => FND_API.G_MISS_CHAR,
393 x_status => p_credit_rating_rec.status,
394 x_object_version_number => p_object_version_number,
395 x_created_by_module => p_credit_rating_rec.created_by_module,
396 x_avg_high_credit => p_credit_rating_rec.avg_high_credit,
397 x_credit_score => p_credit_rating_rec.credit_score,
398 x_credit_score_age => p_credit_rating_rec.credit_score_age,
399 x_credit_score_class => p_credit_rating_rec.credit_score_class,
400 x_credit_score_commentary => p_credit_rating_rec.credit_score_commentary,
401 x_credit_score_commentary2 => p_credit_rating_rec.credit_score_commentary2,
402 x_credit_score_commentary3 => p_credit_rating_rec.credit_score_commentary3,
403 x_credit_score_commentary4 => p_credit_rating_rec.credit_score_commentary4,
404 x_credit_score_commentary5 => p_credit_rating_rec.credit_score_commentary5,
405 x_credit_score_commentary6 => p_credit_rating_rec.credit_score_commentary6,
406 x_credit_score_commentary7 => p_credit_rating_rec.credit_score_commentary7,
407 x_credit_score_commentary8 => p_credit_rating_rec.credit_score_commentary8,
408 x_credit_score_commentary9 => p_credit_rating_rec.credit_score_commentary9,
409 x_credit_score_commentary10 => p_credit_rating_rec.credit_score_commentary10,
410 x_credit_score_date => p_credit_rating_rec.credit_score_date,
411 x_credit_score_incd_default => p_credit_rating_rec.credit_score_incd_default,
412 x_credit_score_natl_percentile => p_credit_rating_rec.credit_score_natl_percentile,
413 x_debarment_ind => p_credit_rating_rec.debarment_ind,
414 x_debarments_count => p_credit_rating_rec.debarments_count,
415 x_debarments_date => p_credit_rating_rec.debarments_date,
416 x_high_credit => p_credit_rating_rec.high_credit,
417 x_maximum_credit_currency_code => p_credit_rating_rec.maximum_credit_currency_code,
418 x_maximum_credit_rcmd => p_credit_rating_rec.maximum_credit_rcmd,
419 x_paydex_norm => p_credit_rating_rec.paydex_norm,
420 x_paydex_score => p_credit_rating_rec.paydex_score,
421 x_paydex_three_months_ago => p_credit_rating_rec.paydex_three_months_ago,
422 x_credit_score_override_code => p_credit_rating_rec.credit_score_override_code,
423 x_cr_scr_clas_expl => p_credit_rating_rec.cr_scr_clas_expl,
424 x_low_rng_delq_scr => p_credit_rating_rec.low_rng_delq_scr,
425 x_high_rng_delq_scr => p_credit_rating_rec.high_rng_delq_scr,
426 x_delq_pmt_rng_prcnt => p_credit_rating_rec.delq_pmt_rng_prcnt,
427 x_delq_pmt_pctg_for_all_firms => p_credit_rating_rec.delq_pmt_pctg_for_all_firms,
428 x_num_trade_experiences => p_credit_rating_rec.num_trade_experiences,
429 x_paydex_firm_days => p_credit_rating_rec.paydex_firm_days,
430 x_paydex_firm_comment => p_credit_rating_rec.paydex_firm_comment,
431 x_paydex_industry_days => p_credit_rating_rec.paydex_industry_days,
432 x_paydex_industry_comment => p_credit_rating_rec.paydex_industry_comment,
433 x_paydex_comment => p_credit_rating_rec.paydex_comment,
434 x_suit_ind => p_credit_rating_rec.suit_ind,
435 x_lien_ind => p_credit_rating_rec.lien_ind,
436 x_judgement_ind => p_credit_rating_rec.judgement_ind,
437 x_bankruptcy_ind => p_credit_rating_rec.bankruptcy_ind,
438 x_no_trade_ind => p_credit_rating_rec.no_trade_ind,
439 x_prnt_hq_bkcy_ind => p_credit_rating_rec.prnt_hq_bkcy_ind,
440 x_num_prnt_bkcy_filing => p_credit_rating_rec.num_prnt_bkcy_filing,
441 x_prnt_bkcy_filg_type => p_credit_rating_rec.prnt_bkcy_filg_type,
442 x_prnt_bkcy_filg_chapter => p_credit_rating_rec.prnt_bkcy_filg_chapter,
443 x_prnt_bkcy_filg_date => p_credit_rating_rec.prnt_bkcy_filg_date,
444 x_num_prnt_bkcy_convs => p_credit_rating_rec.num_prnt_bkcy_convs,
445 x_prnt_bkcy_conv_date => p_credit_rating_rec.prnt_bkcy_conv_date,
446 x_prnt_bkcy_chapter_conv => p_credit_rating_rec.prnt_bkcy_chapter_conv,
447 x_slow_trade_expl => p_credit_rating_rec.slow_trade_expl,
448 x_negv_pmt_expl => p_credit_rating_rec.negv_pmt_expl,
449 x_pub_rec_expl => p_credit_rating_rec.pub_rec_expl,
450 x_business_discontinued => p_credit_rating_rec.business_discontinued,
451 x_spcl_event_comment => p_credit_rating_rec.spcl_event_comment,
452 x_num_spcl_event => p_credit_rating_rec.num_spcl_event,
453 x_spcl_event_update_date => p_credit_rating_rec.spcl_event_update_date,
454 x_spcl_evnt_txt => p_credit_rating_rec.spcl_evnt_txt,
455 x_failure_score => p_credit_rating_rec.failure_score,
456 x_failure_score_age => p_credit_rating_rec.failure_score_age,
457 x_failure_score_class => p_credit_rating_rec.failure_score_class,
458 x_failure_score_commentary => p_credit_rating_rec.failure_score_commentary,
459 x_failure_score_commentary2 => p_credit_rating_rec.failure_score_commentary2,
460 x_failure_score_commentary3 => p_credit_rating_rec.failure_score_commentary3,
461 x_failure_score_commentary4 => p_credit_rating_rec.failure_score_commentary4,
462 x_failure_score_commentary5 => p_credit_rating_rec.failure_score_commentary5,
463 x_failure_score_commentary6 => p_credit_rating_rec.failure_score_commentary6,
464 x_failure_score_commentary7 => p_credit_rating_rec.failure_score_commentary7,
465 x_failure_score_commentary8 => p_credit_rating_rec.failure_score_commentary8,
466 x_failure_score_commentary9 => p_credit_rating_rec.failure_score_commentary9,
467 x_failure_score_commentary10 => p_credit_rating_rec.failure_score_commentary10,
468 x_failure_score_date => p_credit_rating_rec.failure_score_date,
469 x_failure_score_incd_default => p_credit_rating_rec.failure_score_incd_default,
470 x_fail_score_natnl_percentile => p_credit_rating_rec.failure_score_natnl_percentile,
471 x_failure_score_override_code => p_credit_rating_rec.failure_score_override_code,
472 x_global_failure_score => p_credit_rating_rec.global_failure_score,
473 x_actual_content_source => l_acs
474 );
475
476 END do_update_credit_rating;
477
478 --------------------------------------
479 -- public procedures and functions
480 --------------------------------------
481
482 /**
483 * PROCEDURE create_credit_rating
484 *
485 * DESCRIPTION
486 * Creates credit rating.
487 *
488 * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
489 * HZ_BUSINESS_EVENT_V2PVT.create_credit_rating_event
490 *
491 * ARGUMENTS
492 * IN:
493 * p_init_msg_list Initialize message stack if it is set to
494 * FND_API.G_TRUE. Default is FND_API.G_FALSE.
495 * p_credit_rating_rec Credit rating record.
496 * IN/OUT:
497 * OUT:
498 * credit_rating_id Credit rating Id.
499 * x_return_status Return status after the call. The status can
500 * be FND_API.G_RET_STS_SUCCESS (success),
501 * FND_API.G_RET_STS_ERROR (error),
502 * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
503 * x_msg_count Number of messages in message stack.
504 * x_msg_data Message text if x_msg_count is 1.
505 *
506 * NOTES
507 *
508 * MODIFICATION HISTORY
509 *
510 * * 27-JAN-2003 Sreedhar Mohan o Created.
511 * 22-MAR-2005 Rajib Ranjan Borah o Bug 4222898. Added the check for user
512 * creation privilege by checking against
513 * the user-creation rules.
514 *
515 */
516
517 PROCEDURE create_credit_rating(
518 p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
519 p_credit_rating_rec IN CREDIT_RATING_REC_TYPE,
520 x_credit_rating_id OUT NOCOPY NUMBER,
521 x_return_status OUT NOCOPY VARCHAR2,
522 x_msg_count OUT NOCOPY NUMBER,
523 x_msg_data OUT NOCOPY VARCHAR2
524 ) IS
525
526 l_api_name CONSTANT VARCHAR2(30) := 'create_credit_rating';
527 l_credit_rating_rec CREDIT_RATING_REC_TYPE := p_credit_rating_rec;
528 dummy_content_source_type VARCHAR2(30);
529 dummy_entity_attr_id NUMBER;
530 dummy_is_datasource_selected VARCHAR2(1);
531 BEGIN
532
533 --Standard start of API savepoint
534 SAVEPOINT create_credit_rating;
535
536 --Initialize message list if p_init_msg_list is set to TRUE.
537 IF FND_API.to_Boolean(p_init_msg_list) THEN
538 FND_MSG_PUB.initialize;
539 END IF;
540
541 --Initialize API return status to success.
542 x_return_status := FND_API.G_RET_STS_SUCCESS;
543
544
545 -- Bug 4222898
546 HZ_MIXNM_UTILITY.AssignDataSourceDuringCreation (
547 p_entity_name => 'HZ_CREDIT_RATINGS',
548 p_entity_attr_id => dummy_entity_attr_id,
549 p_mixnmatch_enabled => NULL,
550 p_selected_datasources => NULL,
551 p_content_source_type => dummy_content_source_type,
552 p_actual_content_source => l_credit_rating_rec.actual_content_source,
553 x_is_datasource_selected => dummy_is_datasource_selected,
554 x_return_status => x_return_status,
555 p_api_version => 'V2');
556
557
558 -- Call to business logic.
559 do_create_credit_rating(
560 l_credit_rating_rec,
561 x_credit_rating_id,
562 x_return_status);
563
564
565 IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
566 -- Invoke business event system.
567 IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
568 HZ_BUSINESS_EVENT_V2PVT.create_credit_ratings_event(l_credit_rating_rec );
569 END IF;
570
571 IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'BO_EVENTS_ENABLED')) THEN
572 -- populate function for integration service
573 HZ_POPULATE_BOT_PKG.pop_hz_credit_ratings(
574 p_operation => 'I',
575 p_credit_rating_id => x_credit_rating_id);
576 END IF;
577 END IF;
578
579
580 --Standard call to get message count and if count is 1, get message info.
581 FND_MSG_PUB.Count_And_Get(
582 p_encoded => FND_API.G_FALSE,
583 p_count => x_msg_count,
584 p_data => x_msg_data);
585
586 EXCEPTION
587 WHEN FND_API.G_EXC_ERROR THEN
588 ROLLBACK TO create_credit_rating;
589 x_return_status := FND_API.G_RET_STS_ERROR;
590 FND_MSG_PUB.Count_And_Get(
591 p_encoded => FND_API.G_FALSE,
592 p_count => x_msg_count,
593 p_data => x_msg_data);
594
595 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
596 ROLLBACK TO create_credit_rating;
597 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598 FND_MSG_PUB.Count_And_Get(
599 p_encoded => FND_API.G_FALSE,
600 p_count => x_msg_count,
601 p_data => x_msg_data);
602
603 WHEN OTHERS THEN
604 ROLLBACK TO create_credit_rating;
605 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
606 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
607 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
608 FND_MSG_PUB.ADD;
609 FND_MSG_PUB.Count_And_Get(
610 p_encoded => FND_API.G_FALSE,
611 p_count => x_msg_count,
612 p_data => x_msg_data);
613
614 END create_credit_rating;
615
616 /**
617 * PROCEDURE update_credit_rating
618 *
619 * DESCRIPTION
620 * Updates credit rating.
621 *
622 * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
623 * HZ_BUSINESS_EVENT_V2PVT.update_credit_rating_event
624 *
625 * ARGUMENTS
626 * IN:
627 * p_init_msg_list Initialize message stack if it is set to
628 * FND_API.G_TRUE. Default is FND_API.G_FALSE.
629 * p_credit_rating_rec Credit rating record.
630 * IN/OUT:
631 * p_object_version_number Used for locking the being updated record.
632 * OUT:
633 * x_return_status Return status after the call. The status can
634 * be FND_API.G_RET_STS_SUCCESS (success),
635 * FND_API.G_RET_STS_ERROR (error),
636 * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
637 * x_msg_count Number of messages in message stack.
638 * x_msg_data Message text if x_msg_count is 1.
639 *
640 * NOTES
641 *
642 * MODIFICATION HISTORY
643 *
644 * * 27-JAN-2003 Sreedhar Mohan o Created.
645 *
646 */
647
648 PROCEDURE update_credit_rating(
649 p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
650 p_credit_rating_rec IN CREDIT_RATING_REC_TYPE,
651 p_object_version_number IN OUT NOCOPY NUMBER,
652 x_return_status OUT NOCOPY VARCHAR2,
653 x_msg_count OUT NOCOPY NUMBER,
654 x_msg_data OUT NOCOPY VARCHAR2
655 ) IS
656
657 l_api_name CONSTANT VARCHAR2(30) := 'update_credit_rating';
658 l_credit_rating_rec CREDIT_RATING_REC_TYPE := p_credit_rating_rec;
659 l_old_credit_rating_rec CREDIT_RATING_REC_TYPE;
660
661 BEGIN
662
663 --Standard start of API savepoint
664 SAVEPOINT update_credit_rating;
665
666 --Initialize message list if p_init_msg_list is set to TRUE.
667 IF FND_API.to_Boolean(p_init_msg_list) THEN
668 FND_MSG_PUB.initialize;
669 END IF;
670
671 --Initialize API return status to success.
672 x_return_status := FND_API.G_RET_STS_SUCCESS;
673
674 get_credit_rating_rec (
675 p_credit_rating_id => p_credit_rating_rec.credit_rating_id,
676 x_credit_rating_rec => l_old_credit_rating_rec,
677 x_return_status => x_return_status,
678 x_msg_count => x_msg_count,
679 x_msg_data => x_msg_data);
680
681 IF x_return_status = FND_API.G_RET_STS_ERROR THEN
682 RAISE FND_API.G_EXC_ERROR;
683 ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
684 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685 END IF;
686
687 -- Call to business logic.
688 do_update_credit_rating(
689 l_credit_rating_rec,
690 p_object_version_number,
691 x_return_status);
692
693
694 IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
695 -- Invoke business event system.
696 --Bug 2979651: Since 2907261 made to HZ.K, keeping back the changes of 115.4 version.
697 IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
698 HZ_BUSINESS_EVENT_V2PVT.update_credit_ratings_event(
699 l_credit_rating_rec,
700 l_old_credit_rating_rec );
701 END IF;
702
703 IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'BO_EVENTS_ENABLED')) THEN
704 -- populate function for integration service
705 HZ_POPULATE_BOT_PKG.pop_hz_credit_ratings(
706 p_operation => 'U',
707 p_credit_rating_id => l_credit_rating_rec.credit_rating_id);
708 END IF;
709 END IF;
710 HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
711
712 --Standard call to get message count and if count is 1, get message info.
713 FND_MSG_PUB.Count_And_Get(
714 p_encoded => FND_API.G_FALSE,
715 p_count => x_msg_count,
716 p_data => x_msg_data);
717
718 EXCEPTION
719 WHEN FND_API.G_EXC_ERROR THEN
720 ROLLBACK TO update_credit_rating;
721 HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
722 x_return_status := FND_API.G_RET_STS_ERROR;
723 FND_MSG_PUB.Count_And_Get(
724 p_encoded => FND_API.G_FALSE,
725 p_count => x_msg_count,
726 p_data => x_msg_data);
727
728 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
729 ROLLBACK TO update_credit_rating;
730 HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
731 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
732 FND_MSG_PUB.Count_And_Get(
733 p_encoded => FND_API.G_FALSE,
734 p_count => x_msg_count,
735 p_data => x_msg_data);
736
737 WHEN OTHERS THEN
738 ROLLBACK TO update_credit_rating;
739 HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
740 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
741 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
742 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
743 FND_MSG_PUB.ADD;
744 FND_MSG_PUB.Count_And_Get(
745 p_encoded => FND_API.G_FALSE,
746 p_count => x_msg_count,
747 p_data => x_msg_data);
748
749 END update_credit_rating;
750
751 /**
752 * PROCEDURE get_credit_rating_rec
753 *
754 * DESCRIPTION
755 * Gets credit rating record.
756 *
757 * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
758 * HZ_CREDIT_RATINGS_PKG.Select_Row
759 *
760 * ARGUMENTS
761 * IN:
762 * p_init_msg_list Initialize message stack if it is set to
763 * FND_API.G_TRUE. Default is FND_API.G_FALSE.
764 * p_credit_rating_id Credit rating Id.
765 * IN/OUT:
766 * OUT:
767 * x_credit_rating_rec Returned credit rating record.
768 * x_return_status Return status after the call. The status can
769 * be FND_API.G_RET_STS_SUCCESS (success),
770 * FND_API.G_RET_STS_ERROR (error),
771 * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
772 * x_msg_count Number of messages in message stack.
773 * x_msg_data Message text if x_msg_count is 1.
774 *
775 * NOTES
776 *
777 * MODIFICATION HISTORY
778 *
779 * 01-23-2001 Sreedhar Mohan o Created.
780 *
781 */
782
783 PROCEDURE get_credit_rating_rec (
784 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
785 p_credit_rating_id IN NUMBER,
786 x_credit_rating_rec OUT NOCOPY CREDIT_RATING_REC_TYPE,
787 x_return_status OUT NOCOPY VARCHAR2,
788 x_msg_count OUT NOCOPY NUMBER,
789 x_msg_data OUT NOCOPY VARCHAR2
790 ) IS
791
792 l_api_name CONSTANT VARCHAR2(30) := 'get_credit_rating_rec';
793
794 BEGIN
795
796 --Initialize message list if p_init_msg_list is set to TRUE.
797 IF FND_API.to_Boolean(p_init_msg_list) THEN
798 FND_MSG_PUB.initialize;
799 END IF;
800
801 --Initialize API return status to success.
802 x_return_status := FND_API.G_RET_STS_SUCCESS;
803
804 --Check whether primary key has been passed in.
805 IF p_credit_rating_id IS NULL OR
806 p_credit_rating_id = FND_API.G_MISS_NUM THEN
807 FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
808 FND_MESSAGE.SET_TOKEN( 'COLUMN', 'credit_rating_id' );
809 FND_MSG_PUB.ADD;
810 RAISE FND_API.G_EXC_ERROR;
811 END IF;
812
813 -- The x_credit_rating_rec.credit_rating_id must be initiated to p_credit_rating_id
814 x_credit_rating_rec.credit_rating_id := p_credit_rating_id;
815
816 HZ_CREDIT_RATINGS_PKG.Select_Row (
817 x_credit_rating_id => x_credit_rating_rec.credit_rating_id,
818 x_description => x_credit_rating_rec.description,
819 x_party_id => x_credit_rating_rec.party_id,
820 x_rating => x_credit_rating_rec.rating,
821 x_rated_as_of_date => x_credit_rating_rec.rated_as_of_date,
822 x_rating_organization => x_credit_rating_rec.rating_organization,
823 x_comments => x_credit_rating_rec.comments,
824 x_det_history_ind => x_credit_rating_rec.det_history_ind,
825 x_fincl_embt_ind => x_credit_rating_rec.fincl_embt_ind,
826 x_criminal_proceeding_ind => x_credit_rating_rec.criminal_proceeding_ind,
827 x_claims_ind => x_credit_rating_rec.claims_ind,
828 x_secured_flng_ind => x_credit_rating_rec.secured_flng_ind,
829 x_fincl_lgl_event_ind => x_credit_rating_rec.fincl_lgl_event_ind,
830 x_disaster_ind => x_credit_rating_rec.disaster_ind,
831 x_oprg_spec_evnt_ind => x_credit_rating_rec.oprg_spec_evnt_ind,
832 x_other_spec_evnt_ind => x_credit_rating_rec.other_spec_evnt_ind,
833 x_status => x_credit_rating_rec.status,
834 x_created_by_module => x_credit_rating_rec.created_by_module,
835 x_avg_high_credit => x_credit_rating_rec.avg_high_credit,
836 x_credit_score => x_credit_rating_rec.credit_score,
837 x_credit_score_age => x_credit_rating_rec.credit_score_age,
838 x_credit_score_class => x_credit_rating_rec.credit_score_class,
839 x_credit_score_commentary => x_credit_rating_rec.credit_score_commentary,
840 x_credit_score_commentary2 => x_credit_rating_rec.credit_score_commentary2,
841 x_credit_score_commentary3 => x_credit_rating_rec.credit_score_commentary3,
842 x_credit_score_commentary4 => x_credit_rating_rec.credit_score_commentary4,
843 x_credit_score_commentary5 => x_credit_rating_rec.credit_score_commentary5,
844 x_credit_score_commentary6 => x_credit_rating_rec.credit_score_commentary6,
845 x_credit_score_commentary7 => x_credit_rating_rec.credit_score_commentary7,
846 x_credit_score_commentary8 => x_credit_rating_rec.credit_score_commentary8,
847 x_credit_score_commentary9 => x_credit_rating_rec.credit_score_commentary9,
848 x_credit_score_commentary10 => x_credit_rating_rec.credit_score_commentary10,
849 x_credit_score_date => x_credit_rating_rec.credit_score_date,
850 x_credit_score_incd_default => x_credit_rating_rec.credit_score_incd_default,
851 x_credit_score_natl_percentile => x_credit_rating_rec.credit_score_natl_percentile,
852 x_debarment_ind => x_credit_rating_rec.debarment_ind,
853 x_debarments_count => x_credit_rating_rec.debarments_count,
854 x_debarments_date => x_credit_rating_rec.debarments_date,
855 x_high_credit => x_credit_rating_rec.high_credit,
856 x_maximum_credit_currency_code => x_credit_rating_rec.maximum_credit_currency_code,
857 x_maximum_credit_rcmd => x_credit_rating_rec.maximum_credit_rcmd,
858 x_paydex_norm => x_credit_rating_rec.paydex_norm,
859 x_paydex_score => x_credit_rating_rec.paydex_score,
860 x_paydex_three_months_ago => x_credit_rating_rec.paydex_three_months_ago,
861 x_credit_score_override_code => x_credit_rating_rec.credit_score_override_code,
862 x_cr_scr_clas_expl => x_credit_rating_rec.cr_scr_clas_expl,
863 x_low_rng_delq_scr => x_credit_rating_rec.low_rng_delq_scr,
864 x_high_rng_delq_scr => x_credit_rating_rec.high_rng_delq_scr,
865 x_delq_pmt_rng_prcnt => x_credit_rating_rec.delq_pmt_rng_prcnt,
866 x_delq_pmt_pctg_for_all_firms => x_credit_rating_rec.delq_pmt_pctg_for_all_firms,
867 x_num_trade_experiences => x_credit_rating_rec.num_trade_experiences,
868 x_paydex_firm_days => x_credit_rating_rec.paydex_firm_days,
869 x_paydex_firm_comment => x_credit_rating_rec.paydex_firm_comment,
870 x_paydex_industry_days => x_credit_rating_rec.paydex_industry_days,
871 x_paydex_industry_comment => x_credit_rating_rec.paydex_industry_comment,
872 x_paydex_comment => x_credit_rating_rec.paydex_comment,
873 x_suit_ind => x_credit_rating_rec.suit_ind,
874 x_lien_ind => x_credit_rating_rec.lien_ind,
875 x_judgement_ind => x_credit_rating_rec.judgement_ind,
876 x_bankruptcy_ind => x_credit_rating_rec.bankruptcy_ind,
877 x_no_trade_ind => x_credit_rating_rec.no_trade_ind,
878 x_prnt_hq_bkcy_ind => x_credit_rating_rec.prnt_hq_bkcy_ind,
879 x_num_prnt_bkcy_filing => x_credit_rating_rec.num_prnt_bkcy_filing,
880 x_prnt_bkcy_filg_type => x_credit_rating_rec.prnt_bkcy_filg_type,
881 x_prnt_bkcy_filg_chapter => x_credit_rating_rec.prnt_bkcy_filg_chapter,
882 x_prnt_bkcy_filg_date => x_credit_rating_rec.prnt_bkcy_filg_date,
883 x_num_prnt_bkcy_convs => x_credit_rating_rec.num_prnt_bkcy_convs,
884 x_prnt_bkcy_conv_date => x_credit_rating_rec.prnt_bkcy_conv_date,
885 x_prnt_bkcy_chapter_conv => x_credit_rating_rec.prnt_bkcy_chapter_conv,
886 x_slow_trade_expl => x_credit_rating_rec.slow_trade_expl,
887 x_negv_pmt_expl => x_credit_rating_rec.negv_pmt_expl,
888 x_pub_rec_expl => x_credit_rating_rec.pub_rec_expl,
889 x_business_discontinued => x_credit_rating_rec.business_discontinued,
890 x_spcl_event_comment => x_credit_rating_rec.spcl_event_comment,
891 x_num_spcl_event => x_credit_rating_rec.num_spcl_event,
892 x_spcl_event_update_date => x_credit_rating_rec.spcl_event_update_date,
893 x_spcl_evnt_txt => x_credit_rating_rec.spcl_evnt_txt,
894 x_failure_score => x_credit_rating_rec.failure_score,
895 x_failure_score_age => x_credit_rating_rec.failure_score_age,
896 x_failure_score_class => x_credit_rating_rec.failure_score_class,
897 x_failure_score_commentary => x_credit_rating_rec.failure_score_commentary,
898 x_failure_score_commentary2 => x_credit_rating_rec.failure_score_commentary2,
899 x_failure_score_commentary3 => x_credit_rating_rec.failure_score_commentary3,
900 x_failure_score_commentary4 => x_credit_rating_rec.failure_score_commentary4,
901 x_failure_score_commentary5 => x_credit_rating_rec.failure_score_commentary5,
902 x_failure_score_commentary6 => x_credit_rating_rec.failure_score_commentary6,
903 x_failure_score_commentary7 => x_credit_rating_rec.failure_score_commentary7,
904 x_failure_score_commentary8 => x_credit_rating_rec.failure_score_commentary8,
905 x_failure_score_commentary9 => x_credit_rating_rec.failure_score_commentary9,
906 x_failure_score_commentary10 => x_credit_rating_rec.failure_score_commentary10,
907 x_failure_score_date => x_credit_rating_rec.failure_score_date,
908 x_failure_score_incd_default => x_credit_rating_rec.failure_score_incd_default,
909 x_fail_score_natnl_percentile => x_credit_rating_rec.failure_score_natnl_percentile,
910 x_failure_score_override_code => x_credit_rating_rec.failure_score_override_code,
911 x_global_failure_score => x_credit_rating_rec.global_failure_score,
912 x_actual_content_source => x_credit_rating_rec.actual_content_source
913 );
914
915 --Standard call to get message count and if count is 1, get message info.
916 FND_MSG_PUB.Count_And_Get(
917 p_encoded => FND_API.G_FALSE,
918 p_count => x_msg_count,
919 p_data => x_msg_data );
920
921 EXCEPTION
922 WHEN FND_API.G_EXC_ERROR THEN
923 x_return_status := FND_API.G_RET_STS_ERROR;
924
925 FND_MSG_PUB.Count_And_Get(
926 p_encoded => FND_API.G_FALSE,
927 p_count => x_msg_count,
928 p_data => x_msg_data );
929 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
930 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
931
932 FND_MSG_PUB.Count_And_Get(
933 p_encoded => FND_API.G_FALSE,
934 p_count => x_msg_count,
935 p_data => x_msg_data );
936
937 WHEN OTHERS THEN
938 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
939
940 FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
941 FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
942 FND_MSG_PUB.ADD;
943
944 FND_MSG_PUB.Count_And_Get(
945 p_encoded => FND_API.G_FALSE,
946 p_count => x_msg_count,
947 p_data => x_msg_data );
948
949 END get_credit_rating_rec;
950
951 END HZ_PARTY_INFO_V2PUB;