[Home] [Help]
PACKAGE BODY: APPS.HZ_PARTY_INFO_V2PVT
Source
1 PACKAGE BODY HZ_PARTY_INFO_V2PVT AS
2 /*$Header: ARHPRI1B.pls 120.1 2005/06/16 21:14:30 jhuang noship $ */
3
4 --------------------------------------
5 -- declaration of private global varibles
6 --------------------------------------
7
8 DEFAULT_CREATED_BY_MODULE VARCHAR2(10) := 'TCA_V1_API';
9 x_msg_count NUMBER;
10 x_msg_data VARCHAR2(2000);
11
12 --------------------------------------
13 -- private procedures and functions
14 --------------------------------------
15
16 PROCEDURE v2_credit_rating_pre (
17 p_create_update_flag IN VARCHAR2,
18 p_credit_rating_rec IN HZ_PARTY_INFO_PUB.CREDIT_RATINGS_REC_TYPE,
19 x_credit_rating_rec OUT NOCOPY HZ_PARTY_INFO_V2PUB.CREDIT_RATING_REC_TYPE
20 ) IS
21
22 BEGIN
23
24 IF p_credit_rating_rec.credit_rating_id IS NULL THEN
25 x_credit_rating_rec.credit_rating_id := FND_API.G_MISS_NUM;
26 ELSIF p_credit_rating_rec.credit_rating_id <> FND_API.G_MISS_NUM THEN
27 x_credit_rating_rec.credit_rating_id := p_credit_rating_rec.credit_rating_id;
28 END IF;
29
30 IF p_credit_rating_rec.description IS NULL THEN
31 x_credit_rating_rec.description := FND_API.G_MISS_CHAR;
32 ELSIF p_credit_rating_rec.description <> FND_API.G_MISS_CHAR THEN
33 x_credit_rating_rec.description := p_credit_rating_rec.description;
34 END IF;
35
36 IF p_credit_rating_rec.party_id IS NULL THEN
37 x_credit_rating_rec.party_id := FND_API.G_MISS_NUM;
38 ELSIF p_credit_rating_rec.party_id <> FND_API.G_MISS_NUM THEN
39 x_credit_rating_rec.party_id := p_credit_rating_rec.party_id;
40 END IF;
41
42 IF p_credit_rating_rec.rating IS NULL THEN
43 x_credit_rating_rec.rating := FND_API.G_MISS_CHAR;
44 ELSIF p_credit_rating_rec.rating <> FND_API.G_MISS_CHAR THEN
45 x_credit_rating_rec.rating := p_credit_rating_rec.rating;
46 END IF;
47
48 IF p_credit_rating_rec.rated_as_of_date IS NULL THEN
49 x_credit_rating_rec.rated_as_of_date := FND_API.G_MISS_DATE;
50 ELSIF p_credit_rating_rec.rated_as_of_date <> FND_API.G_MISS_DATE THEN
51 x_credit_rating_rec.rated_as_of_date := p_credit_rating_rec.rated_as_of_date;
52 END IF;
53
54 IF p_credit_rating_rec.rating_organization IS NULL THEN
55 x_credit_rating_rec.rating_organization := FND_API.G_MISS_CHAR;
56 ELSIF p_credit_rating_rec.rating_organization <> FND_API.G_MISS_CHAR THEN
57 x_credit_rating_rec.rating_organization := p_credit_rating_rec.rating_organization;
58 END IF;
59
60 IF p_credit_rating_rec.comments IS NULL THEN
61 x_credit_rating_rec.comments := FND_API.G_MISS_CHAR;
62 ELSIF p_credit_rating_rec.comments <> FND_API.G_MISS_CHAR THEN
63 x_credit_rating_rec.comments := p_credit_rating_rec.comments;
64 END IF;
65
66 IF p_credit_rating_rec.det_history_ind IS NULL THEN
67 x_credit_rating_rec.det_history_ind := FND_API.G_MISS_CHAR;
68 ELSIF p_credit_rating_rec.det_history_ind <> FND_API.G_MISS_CHAR THEN
69 x_credit_rating_rec.det_history_ind := p_credit_rating_rec.det_history_ind;
70 END IF;
71
72 IF p_credit_rating_rec.fincl_embt_ind IS NULL THEN
73 x_credit_rating_rec.fincl_embt_ind := FND_API.G_MISS_CHAR;
74 ELSIF p_credit_rating_rec.fincl_embt_ind <> FND_API.G_MISS_CHAR THEN
75 x_credit_rating_rec.fincl_embt_ind := p_credit_rating_rec.fincl_embt_ind;
76 END IF;
77
78 IF p_credit_rating_rec.criminal_proceeding_ind IS NULL THEN
79 x_credit_rating_rec.criminal_proceeding_ind := FND_API.G_MISS_CHAR;
80 ELSIF p_credit_rating_rec.criminal_proceeding_ind <> FND_API.G_MISS_CHAR THEN
81 x_credit_rating_rec.criminal_proceeding_ind := p_credit_rating_rec.criminal_proceeding_ind;
82 END IF;
83
84 IF p_credit_rating_rec.claims_ind IS NULL THEN
85 x_credit_rating_rec.claims_ind := FND_API.G_MISS_CHAR;
86 ELSIF p_credit_rating_rec.claims_ind <> FND_API.G_MISS_CHAR THEN
87 x_credit_rating_rec.claims_ind := p_credit_rating_rec.claims_ind;
88 END IF;
89
90 IF p_credit_rating_rec.secured_flng_ind IS NULL THEN
91 x_credit_rating_rec.secured_flng_ind := FND_API.G_MISS_CHAR;
92 ELSIF p_credit_rating_rec.secured_flng_ind <> FND_API.G_MISS_CHAR THEN
93 x_credit_rating_rec.secured_flng_ind := p_credit_rating_rec.secured_flng_ind;
94 END IF;
95
96 IF p_credit_rating_rec.fincl_lgl_event_ind IS NULL THEN
97 x_credit_rating_rec.fincl_lgl_event_ind := FND_API.G_MISS_CHAR;
98 ELSIF p_credit_rating_rec.fincl_lgl_event_ind <> FND_API.G_MISS_CHAR THEN
99 x_credit_rating_rec.fincl_lgl_event_ind := p_credit_rating_rec.fincl_lgl_event_ind;
100 END IF;
101
102 IF p_credit_rating_rec.disaster_ind IS NULL THEN
103 x_credit_rating_rec.disaster_ind := FND_API.G_MISS_CHAR;
104 ELSIF p_credit_rating_rec.disaster_ind <> FND_API.G_MISS_CHAR THEN
105 x_credit_rating_rec.disaster_ind := p_credit_rating_rec.disaster_ind;
106 END IF;
107
108 IF p_credit_rating_rec.oprg_spec_evnt_ind IS NULL THEN
109 x_credit_rating_rec.oprg_spec_evnt_ind := FND_API.G_MISS_CHAR;
110 ELSIF p_credit_rating_rec.oprg_spec_evnt_ind <> FND_API.G_MISS_CHAR THEN
111 x_credit_rating_rec.oprg_spec_evnt_ind := p_credit_rating_rec.oprg_spec_evnt_ind;
112 END IF;
113
114 IF p_credit_rating_rec.other_spec_evnt_ind IS NULL THEN
115 x_credit_rating_rec.other_spec_evnt_ind := FND_API.G_MISS_CHAR;
116 ELSIF p_credit_rating_rec.other_spec_evnt_ind <> FND_API.G_MISS_CHAR THEN
117 x_credit_rating_rec.other_spec_evnt_ind := p_credit_rating_rec.other_spec_evnt_ind;
118 END IF;
119
120 IF p_credit_rating_rec.status IS NULL THEN
121 x_credit_rating_rec.status := FND_API.G_MISS_CHAR;
122 ELSIF p_credit_rating_rec.status <> FND_API.G_MISS_CHAR THEN
123 x_credit_rating_rec.status := p_credit_rating_rec.status;
124 END IF;
125
126 IF p_credit_rating_rec.avg_high_credit IS NULL THEN
127 x_credit_rating_rec.avg_high_credit := FND_API.G_MISS_NUM;
128 ELSIF p_credit_rating_rec.avg_high_credit <> FND_API.G_MISS_NUM THEN
129 x_credit_rating_rec.avg_high_credit := p_credit_rating_rec.avg_high_credit;
130 END IF;
131
132 IF p_credit_rating_rec.credit_score IS NULL THEN
133 x_credit_rating_rec.credit_score := FND_API.G_MISS_CHAR;
134 ELSIF p_credit_rating_rec.credit_score <> FND_API.G_MISS_CHAR THEN
135 x_credit_rating_rec.credit_score := p_credit_rating_rec.credit_score;
136 END IF;
137
138 IF p_credit_rating_rec.credit_score_age IS NULL THEN
139 x_credit_rating_rec.credit_score_age := FND_API.G_MISS_NUM;
140 ELSIF p_credit_rating_rec.credit_score_age <> FND_API.G_MISS_NUM THEN
141 x_credit_rating_rec.credit_score_age := p_credit_rating_rec.credit_score_age;
142 END IF;
143
144 IF p_credit_rating_rec.credit_score_class IS NULL THEN
145 x_credit_rating_rec.credit_score_class := FND_API.G_MISS_NUM;
146 ELSIF p_credit_rating_rec.credit_score_class <> FND_API.G_MISS_NUM THEN
147 x_credit_rating_rec.credit_score_class := p_credit_rating_rec.credit_score_class;
148 END IF;
149
150 IF p_credit_rating_rec.credit_score_commentary IS NULL THEN
151 x_credit_rating_rec.credit_score_commentary := FND_API.G_MISS_CHAR;
152 ELSIF p_credit_rating_rec.credit_score_commentary <> FND_API.G_MISS_CHAR THEN
153 x_credit_rating_rec.credit_score_commentary := p_credit_rating_rec.credit_score_commentary;
154 END IF;
155
156 IF p_credit_rating_rec.credit_score_commentary2 IS NULL THEN
157 x_credit_rating_rec.credit_score_commentary2 := FND_API.G_MISS_CHAR;
158 ELSIF p_credit_rating_rec.credit_score_commentary2 <> FND_API.G_MISS_CHAR THEN
159 x_credit_rating_rec.credit_score_commentary2 := p_credit_rating_rec.credit_score_commentary2;
160 END IF;
161
162 IF p_credit_rating_rec.credit_score_commentary3 IS NULL THEN
163 x_credit_rating_rec.credit_score_commentary3 := FND_API.G_MISS_CHAR;
164 ELSIF p_credit_rating_rec.credit_score_commentary3 <> FND_API.G_MISS_CHAR THEN
165 x_credit_rating_rec.credit_score_commentary3 := p_credit_rating_rec.credit_score_commentary3;
166 END IF;
167
168 IF p_credit_rating_rec.credit_score_commentary4 IS NULL THEN
169 x_credit_rating_rec.credit_score_commentary4 := FND_API.G_MISS_CHAR;
170 ELSIF p_credit_rating_rec.credit_score_commentary4 <> FND_API.G_MISS_CHAR THEN
171 x_credit_rating_rec.credit_score_commentary4 := p_credit_rating_rec.credit_score_commentary4;
172 END IF;
173
174 IF p_credit_rating_rec.credit_score_commentary5 IS NULL THEN
175 x_credit_rating_rec.credit_score_commentary5 := FND_API.G_MISS_CHAR;
176 ELSIF p_credit_rating_rec.credit_score_commentary5 <> FND_API.G_MISS_CHAR THEN
177 x_credit_rating_rec.credit_score_commentary5 := p_credit_rating_rec.credit_score_commentary5;
178 END IF;
179
180 IF p_credit_rating_rec.credit_score_commentary6 IS NULL THEN
181 x_credit_rating_rec.credit_score_commentary6 := FND_API.G_MISS_CHAR;
182 ELSIF p_credit_rating_rec.credit_score_commentary6 <> FND_API.G_MISS_CHAR THEN
183 x_credit_rating_rec.credit_score_commentary6 := p_credit_rating_rec.credit_score_commentary6;
184 END IF;
185
186 IF p_credit_rating_rec.credit_score_commentary7 IS NULL THEN
187 x_credit_rating_rec.credit_score_commentary7 := FND_API.G_MISS_CHAR;
188 ELSIF p_credit_rating_rec.credit_score_commentary7 <> FND_API.G_MISS_CHAR THEN
189 x_credit_rating_rec.credit_score_commentary7 := p_credit_rating_rec.credit_score_commentary7;
190 END IF;
191
192 IF p_credit_rating_rec.credit_score_commentary8 IS NULL THEN
193 x_credit_rating_rec.credit_score_commentary8 := FND_API.G_MISS_CHAR;
194 ELSIF p_credit_rating_rec.credit_score_commentary8 <> FND_API.G_MISS_CHAR THEN
195 x_credit_rating_rec.credit_score_commentary8 := p_credit_rating_rec.credit_score_commentary8;
196 END IF;
197
198 IF p_credit_rating_rec.credit_score_commentary9 IS NULL THEN
199 x_credit_rating_rec.credit_score_commentary9 := FND_API.G_MISS_CHAR;
200 ELSIF p_credit_rating_rec.credit_score_commentary9 <> FND_API.G_MISS_CHAR THEN
201 x_credit_rating_rec.credit_score_commentary9 := p_credit_rating_rec.credit_score_commentary9;
202 END IF;
203
204 IF p_credit_rating_rec.credit_score_commentary10 IS NULL THEN
205 x_credit_rating_rec.credit_score_commentary10 := FND_API.G_MISS_CHAR;
206 ELSIF p_credit_rating_rec.credit_score_commentary10 <> FND_API.G_MISS_CHAR THEN
207 x_credit_rating_rec.credit_score_commentary10 := p_credit_rating_rec.credit_score_commentary10;
208 END IF;
209
210 IF p_credit_rating_rec.credit_score_date IS NULL THEN
211 x_credit_rating_rec.credit_score_date := FND_API.G_MISS_DATE;
212 ELSIF p_credit_rating_rec.credit_score_date <> FND_API.G_MISS_DATE THEN
213 x_credit_rating_rec.credit_score_date := p_credit_rating_rec.credit_score_date;
214 END IF;
215
216 IF p_credit_rating_rec.credit_score_incd_default IS NULL THEN
217 x_credit_rating_rec.credit_score_incd_default := FND_API.G_MISS_NUM;
218 ELSIF p_credit_rating_rec.credit_score_incd_default <> FND_API.G_MISS_NUM THEN
219 x_credit_rating_rec.credit_score_incd_default := p_credit_rating_rec.credit_score_incd_default;
220 END IF;
221
222 IF p_credit_rating_rec.credit_score_natl_percentile IS NULL THEN
223 x_credit_rating_rec.credit_score_natl_percentile := FND_API.G_MISS_NUM;
224 ELSIF p_credit_rating_rec.credit_score_natl_percentile <> FND_API.G_MISS_NUM THEN
225 x_credit_rating_rec.credit_score_natl_percentile := p_credit_rating_rec.credit_score_natl_percentile;
226 END IF;
227
228 IF p_credit_rating_rec.failure_score IS NULL THEN
229 x_credit_rating_rec.failure_score := FND_API.G_MISS_CHAR;
230 ELSIF p_credit_rating_rec.failure_score <> FND_API.G_MISS_CHAR THEN
231 x_credit_rating_rec.failure_score := p_credit_rating_rec.failure_score;
232 END IF;
233
234 IF p_credit_rating_rec.failure_score_age IS NULL THEN
235 x_credit_rating_rec.failure_score_age := FND_API.G_MISS_NUM;
236 ELSIF p_credit_rating_rec.failure_score_age <> FND_API.G_MISS_NUM THEN
237 x_credit_rating_rec.failure_score_age := p_credit_rating_rec.failure_score_age;
238 END IF;
239
240 IF p_credit_rating_rec.failure_score_class IS NULL THEN
241 x_credit_rating_rec.failure_score_class := FND_API.G_MISS_NUM;
242 ELSIF p_credit_rating_rec.failure_score_class <> FND_API.G_MISS_NUM THEN
243 x_credit_rating_rec.failure_score_class := p_credit_rating_rec.failure_score_class;
244 END IF;
245
246 IF p_credit_rating_rec.failure_score_commentary IS NULL THEN
247 x_credit_rating_rec.failure_score_commentary := FND_API.G_MISS_CHAR;
248 ELSIF p_credit_rating_rec.failure_score_commentary <> FND_API.G_MISS_CHAR THEN
249 x_credit_rating_rec.failure_score_commentary := p_credit_rating_rec.failure_score_commentary;
250 END IF;
251
252 IF p_credit_rating_rec.failure_score_commentary2 IS NULL THEN
253 x_credit_rating_rec.failure_score_commentary2 := FND_API.G_MISS_CHAR;
254 ELSIF p_credit_rating_rec.failure_score_commentary2 <> FND_API.G_MISS_CHAR THEN
255 x_credit_rating_rec.failure_score_commentary2 := p_credit_rating_rec.failure_score_commentary2;
256 END IF;
257
258 IF p_credit_rating_rec.failure_score_commentary3 IS NULL THEN
259 x_credit_rating_rec.failure_score_commentary3 := FND_API.G_MISS_CHAR;
260 ELSIF p_credit_rating_rec.failure_score_commentary3 <> FND_API.G_MISS_CHAR THEN
261 x_credit_rating_rec.failure_score_commentary3 := p_credit_rating_rec.failure_score_commentary3;
262 END IF;
263
264 IF p_credit_rating_rec.failure_score_commentary4 IS NULL THEN
265 x_credit_rating_rec.failure_score_commentary4 := FND_API.G_MISS_CHAR;
266 ELSIF p_credit_rating_rec.failure_score_commentary4 <> FND_API.G_MISS_CHAR THEN
267 x_credit_rating_rec.failure_score_commentary4 := p_credit_rating_rec.failure_score_commentary4;
268 END IF;
269
270 IF p_credit_rating_rec.failure_score_commentary5 IS NULL THEN
271 x_credit_rating_rec.failure_score_commentary5 := FND_API.G_MISS_CHAR;
272 ELSIF p_credit_rating_rec.failure_score_commentary5 <> FND_API.G_MISS_CHAR THEN
273 x_credit_rating_rec.failure_score_commentary5 := p_credit_rating_rec.failure_score_commentary5;
274 END IF;
275
276 IF p_credit_rating_rec.failure_score_commentary6 IS NULL THEN
277 x_credit_rating_rec.failure_score_commentary6 := FND_API.G_MISS_CHAR;
278 ELSIF p_credit_rating_rec.failure_score_commentary6 <> FND_API.G_MISS_CHAR THEN
279 x_credit_rating_rec.failure_score_commentary6 := p_credit_rating_rec.failure_score_commentary6;
280 END IF;
281
282 IF p_credit_rating_rec.failure_score_commentary7 IS NULL THEN
283 x_credit_rating_rec.failure_score_commentary7 := FND_API.G_MISS_CHAR;
284 ELSIF p_credit_rating_rec.failure_score_commentary7 <> FND_API.G_MISS_CHAR THEN
285 x_credit_rating_rec.failure_score_commentary7 := p_credit_rating_rec.failure_score_commentary7;
286 END IF;
287
288 IF p_credit_rating_rec.failure_score_commentary8 IS NULL THEN
289 x_credit_rating_rec.failure_score_commentary8 := FND_API.G_MISS_CHAR;
290 ELSIF p_credit_rating_rec.failure_score_commentary8 <> FND_API.G_MISS_CHAR THEN
291 x_credit_rating_rec.failure_score_commentary8 := p_credit_rating_rec.failure_score_commentary8;
292 END IF;
293
294 IF p_credit_rating_rec.failure_score_commentary9 IS NULL THEN
295 x_credit_rating_rec.failure_score_commentary9 := FND_API.G_MISS_CHAR;
296 ELSIF p_credit_rating_rec.failure_score_commentary9 <> FND_API.G_MISS_CHAR THEN
297 x_credit_rating_rec.failure_score_commentary9 := p_credit_rating_rec.failure_score_commentary9;
298 END IF;
299
300 IF p_credit_rating_rec.failure_score_commentary10 IS NULL THEN
301 x_credit_rating_rec.failure_score_commentary10 := FND_API.G_MISS_CHAR;
302 ELSIF p_credit_rating_rec.failure_score_commentary10 <> FND_API.G_MISS_CHAR THEN
303 x_credit_rating_rec.failure_score_commentary10 := p_credit_rating_rec.failure_score_commentary10;
304 END IF;
305
306 IF p_credit_rating_rec.failure_score_date IS NULL THEN
307 x_credit_rating_rec.failure_score_date := FND_API.G_MISS_DATE;
308 ELSIF p_credit_rating_rec.failure_score_date <> FND_API.G_MISS_DATE THEN
309 x_credit_rating_rec.failure_score_date := p_credit_rating_rec.failure_score_date;
310 END IF;
311
312 IF p_credit_rating_rec.failure_score_incd_default IS NULL THEN
313 x_credit_rating_rec.failure_score_incd_default := FND_API.G_MISS_NUM;
314 ELSIF p_credit_rating_rec.failure_score_incd_default <> FND_API.G_MISS_NUM THEN
315 x_credit_rating_rec.failure_score_incd_default := p_credit_rating_rec.failure_score_incd_default;
316 END IF;
317
318 IF p_credit_rating_rec.failure_score_natnl_percentile IS NULL THEN
319 x_credit_rating_rec.failure_score_natnl_percentile := FND_API.G_MISS_NUM;
320 ELSIF p_credit_rating_rec.failure_score_natnl_percentile <> FND_API.G_MISS_NUM THEN
321 x_credit_rating_rec.failure_score_natnl_percentile := p_credit_rating_rec.failure_score_natnl_percentile;
322 END IF;
323
324 IF p_credit_rating_rec.failure_score_override_code IS NULL THEN
325 x_credit_rating_rec.failure_score_override_code := FND_API.G_MISS_CHAR;
326 ELSIF p_credit_rating_rec.failure_score_override_code <> FND_API.G_MISS_CHAR THEN
327 x_credit_rating_rec.failure_score_override_code := p_credit_rating_rec.failure_score_override_code;
328 END IF;
329
330 IF p_credit_rating_rec.global_failure_score IS NULL THEN
331 x_credit_rating_rec.global_failure_score := FND_API.G_MISS_CHAR;
332 ELSIF p_credit_rating_rec.global_failure_score <> FND_API.G_MISS_CHAR THEN
333 x_credit_rating_rec.global_failure_score := p_credit_rating_rec.global_failure_score;
334 END IF;
335
336 IF p_credit_rating_rec.debarment_ind IS NULL THEN
337 x_credit_rating_rec.debarment_ind := FND_API.G_MISS_CHAR;
338 ELSIF p_credit_rating_rec.debarment_ind <> FND_API.G_MISS_CHAR THEN
339 x_credit_rating_rec.debarment_ind := p_credit_rating_rec.debarment_ind;
340 END IF;
341
342 IF p_credit_rating_rec.debarments_count IS NULL THEN
343 x_credit_rating_rec.debarments_count := FND_API.G_MISS_NUM;
344 ELSIF p_credit_rating_rec.debarments_count <> FND_API.G_MISS_NUM THEN
345 x_credit_rating_rec.debarments_count := p_credit_rating_rec.debarments_count;
346 END IF;
347
348 IF p_credit_rating_rec.debarments_date IS NULL THEN
349 x_credit_rating_rec.debarments_date := FND_API.G_MISS_DATE;
350 ELSIF p_credit_rating_rec.debarments_date <> FND_API.G_MISS_DATE THEN
351 x_credit_rating_rec.debarments_date := p_credit_rating_rec.debarments_date;
352 END IF;
353
354 IF p_credit_rating_rec.high_credit IS NULL THEN
355 x_credit_rating_rec.high_credit := FND_API.G_MISS_NUM;
356 ELSIF p_credit_rating_rec.high_credit <> FND_API.G_MISS_NUM THEN
357 x_credit_rating_rec.high_credit := p_credit_rating_rec.high_credit;
358 END IF;
359
360 IF p_credit_rating_rec.maximum_credit_currency_code IS NULL THEN
361 x_credit_rating_rec.maximum_credit_currency_code := FND_API.G_MISS_CHAR;
362 ELSIF p_credit_rating_rec.maximum_credit_currency_code <> FND_API.G_MISS_CHAR THEN
363 x_credit_rating_rec.maximum_credit_currency_code := p_credit_rating_rec.maximum_credit_currency_code;
364 END IF;
365
366 IF p_credit_rating_rec.maximum_credit_rcmd IS NULL THEN
367 x_credit_rating_rec.maximum_credit_rcmd := FND_API.G_MISS_NUM;
368 ELSIF p_credit_rating_rec.maximum_credit_rcmd <> FND_API.G_MISS_NUM THEN
369 x_credit_rating_rec.maximum_credit_rcmd := p_credit_rating_rec.maximum_credit_rcmd;
370 END IF;
371
372 IF p_credit_rating_rec.paydex_norm IS NULL THEN
373 x_credit_rating_rec.paydex_norm := FND_API.G_MISS_CHAR;
374 ELSIF p_credit_rating_rec.paydex_norm <> FND_API.G_MISS_CHAR THEN
375 x_credit_rating_rec.paydex_norm := p_credit_rating_rec.paydex_norm;
376 END IF;
377
378 IF p_credit_rating_rec.paydex_score IS NULL THEN
379 x_credit_rating_rec.paydex_score := FND_API.G_MISS_CHAR;
380 ELSIF p_credit_rating_rec.paydex_score <> FND_API.G_MISS_CHAR THEN
381 x_credit_rating_rec.paydex_score := p_credit_rating_rec.paydex_score;
382 END IF;
383
384 IF p_credit_rating_rec.paydex_three_months_ago IS NULL THEN
385 x_credit_rating_rec.paydex_three_months_ago := FND_API.G_MISS_CHAR;
386 ELSIF p_credit_rating_rec.paydex_three_months_ago <> FND_API.G_MISS_CHAR THEN
387 x_credit_rating_rec.paydex_three_months_ago := p_credit_rating_rec.paydex_three_months_ago;
388 END IF;
389
390 IF p_credit_rating_rec.credit_score_override_code IS NULL THEN
391 x_credit_rating_rec.credit_score_override_code := FND_API.G_MISS_CHAR;
392 ELSIF p_credit_rating_rec.credit_score_override_code <> FND_API.G_MISS_CHAR THEN
393 x_credit_rating_rec.credit_score_override_code := p_credit_rating_rec.credit_score_override_code;
394 END IF;
395
396 IF p_credit_rating_rec.cr_scr_clas_expl IS NULL THEN
397 x_credit_rating_rec.cr_scr_clas_expl := FND_API.G_MISS_CHAR;
398 ELSIF p_credit_rating_rec.cr_scr_clas_expl <> FND_API.G_MISS_CHAR THEN
399 x_credit_rating_rec.cr_scr_clas_expl := p_credit_rating_rec.cr_scr_clas_expl;
400 END IF;
401
402 IF p_credit_rating_rec.low_rng_delq_scr IS NULL THEN
403 x_credit_rating_rec.low_rng_delq_scr := FND_API.G_MISS_NUM;
404 ELSIF p_credit_rating_rec.low_rng_delq_scr <> FND_API.G_MISS_NUM THEN
405 x_credit_rating_rec.low_rng_delq_scr := p_credit_rating_rec.low_rng_delq_scr;
406 END IF;
407
408 IF p_credit_rating_rec.high_rng_delq_scr IS NULL THEN
409 x_credit_rating_rec.high_rng_delq_scr := FND_API.G_MISS_NUM;
410 ELSIF p_credit_rating_rec.high_rng_delq_scr <> FND_API.G_MISS_NUM THEN
411 x_credit_rating_rec.high_rng_delq_scr := p_credit_rating_rec.high_rng_delq_scr;
412 END IF;
413
414 IF p_credit_rating_rec.delq_pmt_rng_prcnt IS NULL THEN
415 x_credit_rating_rec.delq_pmt_rng_prcnt := FND_API.G_MISS_NUM;
416 ELSIF p_credit_rating_rec.delq_pmt_rng_prcnt <> FND_API.G_MISS_NUM THEN
417 x_credit_rating_rec.delq_pmt_rng_prcnt := p_credit_rating_rec.delq_pmt_rng_prcnt;
418 END IF;
419
420 IF p_credit_rating_rec.delq_pmt_pctg_for_all_firms IS NULL THEN
421 x_credit_rating_rec.delq_pmt_pctg_for_all_firms := FND_API.G_MISS_NUM;
422 ELSIF p_credit_rating_rec.delq_pmt_pctg_for_all_firms <> FND_API.G_MISS_NUM THEN
423 x_credit_rating_rec.delq_pmt_pctg_for_all_firms := p_credit_rating_rec.delq_pmt_pctg_for_all_firms;
424 END IF;
425
426 IF p_credit_rating_rec.num_trade_experiences IS NULL THEN
427 x_credit_rating_rec.num_trade_experiences := FND_API.G_MISS_NUM;
428 ELSIF p_credit_rating_rec.num_trade_experiences <> FND_API.G_MISS_NUM THEN
429 x_credit_rating_rec.num_trade_experiences := p_credit_rating_rec.num_trade_experiences;
430 END IF;
431
432 IF p_credit_rating_rec.paydex_firm_days IS NULL THEN
433 x_credit_rating_rec.paydex_firm_days := FND_API.G_MISS_CHAR;
434 ELSIF p_credit_rating_rec.paydex_firm_days <> FND_API.G_MISS_CHAR THEN
435 x_credit_rating_rec.paydex_firm_days := p_credit_rating_rec.paydex_firm_days;
436 END IF;
437
438 IF p_credit_rating_rec.paydex_firm_comment IS NULL THEN
439 x_credit_rating_rec.paydex_firm_comment := FND_API.G_MISS_CHAR;
440 ELSIF p_credit_rating_rec.paydex_firm_comment <> FND_API.G_MISS_CHAR THEN
441 x_credit_rating_rec.paydex_firm_comment := p_credit_rating_rec.paydex_firm_comment;
442 END IF;
443
444 IF p_credit_rating_rec.paydex_industry_days IS NULL THEN
445 x_credit_rating_rec.paydex_industry_days := FND_API.G_MISS_CHAR;
446 ELSIF p_credit_rating_rec.paydex_industry_days <> FND_API.G_MISS_CHAR THEN
447 x_credit_rating_rec.paydex_industry_days := p_credit_rating_rec.paydex_industry_days;
448 END IF;
449
450 IF p_credit_rating_rec.paydex_industry_comment IS NULL THEN
451 x_credit_rating_rec.paydex_industry_comment := FND_API.G_MISS_CHAR;
452 ELSIF p_credit_rating_rec.paydex_industry_comment <> FND_API.G_MISS_CHAR THEN
453 x_credit_rating_rec.paydex_industry_comment := p_credit_rating_rec.paydex_industry_comment;
454 END IF;
455
456 IF p_credit_rating_rec.paydex_comment IS NULL THEN
457 x_credit_rating_rec.paydex_comment := FND_API.G_MISS_CHAR;
458 ELSIF p_credit_rating_rec.paydex_comment <> FND_API.G_MISS_CHAR THEN
459 x_credit_rating_rec.paydex_comment := p_credit_rating_rec.paydex_comment;
460 END IF;
461
462 IF p_credit_rating_rec.suit_ind IS NULL THEN
463 x_credit_rating_rec.suit_ind := FND_API.G_MISS_CHAR;
464 ELSIF p_credit_rating_rec.suit_ind <> FND_API.G_MISS_CHAR THEN
465 x_credit_rating_rec.suit_ind := p_credit_rating_rec.suit_ind;
466 END IF;
467
468 IF p_credit_rating_rec.lien_ind IS NULL THEN
469 x_credit_rating_rec.lien_ind := FND_API.G_MISS_CHAR;
470 ELSIF p_credit_rating_rec.lien_ind <> FND_API.G_MISS_CHAR THEN
471 x_credit_rating_rec.lien_ind := p_credit_rating_rec.lien_ind;
472 END IF;
473
474 IF p_credit_rating_rec.judgement_ind IS NULL THEN
475 x_credit_rating_rec.judgement_ind := FND_API.G_MISS_CHAR;
476 ELSIF p_credit_rating_rec.judgement_ind <> FND_API.G_MISS_CHAR THEN
477 x_credit_rating_rec.judgement_ind := p_credit_rating_rec.judgement_ind;
478 END IF;
479
480 IF p_credit_rating_rec.bankruptcy_ind IS NULL THEN
481 x_credit_rating_rec.bankruptcy_ind := FND_API.G_MISS_CHAR;
482 ELSIF p_credit_rating_rec.bankruptcy_ind <> FND_API.G_MISS_CHAR THEN
483 x_credit_rating_rec.bankruptcy_ind := p_credit_rating_rec.bankruptcy_ind;
484 END IF;
485
486 IF p_credit_rating_rec.no_trade_ind IS NULL THEN
487 x_credit_rating_rec.no_trade_ind := FND_API.G_MISS_CHAR;
488 ELSIF p_credit_rating_rec.no_trade_ind <> FND_API.G_MISS_CHAR THEN
489 x_credit_rating_rec.no_trade_ind := p_credit_rating_rec.no_trade_ind;
490 END IF;
491
492 IF p_credit_rating_rec.prnt_hq_bkcy_ind IS NULL THEN
493 x_credit_rating_rec.prnt_hq_bkcy_ind := FND_API.G_MISS_CHAR;
494 ELSIF p_credit_rating_rec.prnt_hq_bkcy_ind <> FND_API.G_MISS_CHAR THEN
495 x_credit_rating_rec.prnt_hq_bkcy_ind := p_credit_rating_rec.prnt_hq_bkcy_ind;
496 END IF;
497
498 IF p_credit_rating_rec.num_prnt_bkcy_filing IS NULL THEN
499 x_credit_rating_rec.num_prnt_bkcy_filing := FND_API.G_MISS_NUM;
500 ELSIF p_credit_rating_rec.num_prnt_bkcy_filing <> FND_API.G_MISS_NUM THEN
501 x_credit_rating_rec.num_prnt_bkcy_filing := p_credit_rating_rec.num_prnt_bkcy_filing;
502 END IF;
503
504 IF p_credit_rating_rec.prnt_bkcy_filg_type IS NULL THEN
505 x_credit_rating_rec.prnt_bkcy_filg_type := FND_API.G_MISS_CHAR;
506 ELSIF p_credit_rating_rec.prnt_bkcy_filg_type <> FND_API.G_MISS_CHAR THEN
507 x_credit_rating_rec.prnt_bkcy_filg_type := p_credit_rating_rec.prnt_bkcy_filg_type;
508 END IF;
509
510 IF p_credit_rating_rec.prnt_bkcy_filg_chapter IS NULL THEN
511 x_credit_rating_rec.prnt_bkcy_filg_chapter := FND_API.G_MISS_NUM;
512 ELSIF p_credit_rating_rec.prnt_bkcy_filg_chapter <> FND_API.G_MISS_NUM THEN
513 x_credit_rating_rec.prnt_bkcy_filg_chapter := p_credit_rating_rec.prnt_bkcy_filg_chapter;
514 END IF;
515
516 IF p_credit_rating_rec.prnt_bkcy_filg_date IS NULL THEN
517 x_credit_rating_rec.prnt_bkcy_filg_date := FND_API.G_MISS_DATE;
518 ELSIF p_credit_rating_rec.prnt_bkcy_filg_date <> FND_API.G_MISS_DATE THEN
519 x_credit_rating_rec.prnt_bkcy_filg_date := p_credit_rating_rec.prnt_bkcy_filg_date;
520 END IF;
521
522 IF p_credit_rating_rec.num_prnt_bkcy_convs IS NULL THEN
523 x_credit_rating_rec.num_prnt_bkcy_convs := FND_API.G_MISS_NUM;
524 ELSIF p_credit_rating_rec.num_prnt_bkcy_convs <> FND_API.G_MISS_NUM THEN
525 x_credit_rating_rec.num_prnt_bkcy_convs := p_credit_rating_rec.num_prnt_bkcy_convs;
526 END IF;
527
528 IF p_credit_rating_rec.prnt_bkcy_conv_date IS NULL THEN
529 x_credit_rating_rec.prnt_bkcy_conv_date := FND_API.G_MISS_DATE;
530 ELSIF p_credit_rating_rec.prnt_bkcy_conv_date <> FND_API.G_MISS_DATE THEN
531 x_credit_rating_rec.prnt_bkcy_conv_date := p_credit_rating_rec.prnt_bkcy_conv_date;
532 END IF;
533
534 IF p_credit_rating_rec.prnt_bkcy_chapter_conv IS NULL THEN
535 x_credit_rating_rec.prnt_bkcy_chapter_conv := FND_API.G_MISS_CHAR;
536 ELSIF p_credit_rating_rec.prnt_bkcy_chapter_conv <> FND_API.G_MISS_CHAR THEN
537 x_credit_rating_rec.prnt_bkcy_chapter_conv := p_credit_rating_rec.prnt_bkcy_chapter_conv;
538 END IF;
539
540 IF p_credit_rating_rec.slow_trade_expl IS NULL THEN
541 x_credit_rating_rec.slow_trade_expl := FND_API.G_MISS_CHAR;
542 ELSIF p_credit_rating_rec.slow_trade_expl <> FND_API.G_MISS_CHAR THEN
543 x_credit_rating_rec.slow_trade_expl := p_credit_rating_rec.slow_trade_expl;
544 END IF;
545
546 IF p_credit_rating_rec.negv_pmt_expl IS NULL THEN
547 x_credit_rating_rec.negv_pmt_expl := FND_API.G_MISS_CHAR;
548 ELSIF p_credit_rating_rec.negv_pmt_expl <> FND_API.G_MISS_CHAR THEN
549 x_credit_rating_rec.negv_pmt_expl := p_credit_rating_rec.negv_pmt_expl;
550 END IF;
551
552 IF p_credit_rating_rec.pub_rec_expl IS NULL THEN
553 x_credit_rating_rec.pub_rec_expl := FND_API.G_MISS_CHAR;
554 ELSIF p_credit_rating_rec.pub_rec_expl <> FND_API.G_MISS_CHAR THEN
555 x_credit_rating_rec.pub_rec_expl := p_credit_rating_rec.pub_rec_expl;
556 END IF;
557
558 IF p_credit_rating_rec.business_discontinued IS NULL THEN
559 x_credit_rating_rec.business_discontinued := FND_API.G_MISS_CHAR;
560 ELSIF p_credit_rating_rec.business_discontinued <> FND_API.G_MISS_CHAR THEN
561 x_credit_rating_rec.business_discontinued := p_credit_rating_rec.business_discontinued;
562 END IF;
563
564 IF p_credit_rating_rec.spcl_event_comment IS NULL THEN
565 x_credit_rating_rec.spcl_event_comment := FND_API.G_MISS_CHAR;
566 ELSIF p_credit_rating_rec.spcl_event_comment <> FND_API.G_MISS_CHAR THEN
567 x_credit_rating_rec.spcl_event_comment := p_credit_rating_rec.spcl_event_comment;
568 END IF;
569
570 IF p_credit_rating_rec.num_spcl_event IS NULL THEN
571 x_credit_rating_rec.num_spcl_event := FND_API.G_MISS_NUM;
572 ELSIF p_credit_rating_rec.num_spcl_event <> FND_API.G_MISS_NUM THEN
573 x_credit_rating_rec.num_spcl_event := p_credit_rating_rec.num_spcl_event;
574 END IF;
575
576 IF p_credit_rating_rec.spcl_event_update_date IS NULL THEN
577 x_credit_rating_rec.spcl_event_update_date := FND_API.G_MISS_DATE;
578 ELSIF p_credit_rating_rec.spcl_event_update_date <> FND_API.G_MISS_DATE THEN
579 x_credit_rating_rec.spcl_event_update_date := p_credit_rating_rec.spcl_event_update_date;
580 END IF;
581
582 IF p_credit_rating_rec.spcl_evnt_txt IS NULL THEN
583 x_credit_rating_rec.spcl_evnt_txt := FND_API.G_MISS_CHAR;
584 ELSIF p_credit_rating_rec.spcl_evnt_txt <> FND_API.G_MISS_CHAR THEN
585 x_credit_rating_rec.spcl_evnt_txt := p_credit_rating_rec.spcl_evnt_txt;
586 END IF;
587
588 IF p_credit_rating_rec.actual_content_source IS NULL THEN
589 x_credit_rating_rec.actual_content_source := FND_API.G_MISS_CHAR;
590 ELSIF p_credit_rating_rec.actual_content_source <> FND_API.G_MISS_CHAR THEN
591 x_credit_rating_rec.actual_content_source := p_credit_rating_rec.actual_content_source;
592 END IF;
593 IF p_create_update_flag = 'C' THEN
594 x_credit_rating_rec.created_by_module := DEFAULT_CREATED_BY_MODULE;
595 END IF;
596
597 END v2_credit_rating_pre;
598
599 --------------------------------------------------
600 -- public procedures and functions
601 --------------------------------------------------
602
603 PROCEDURE v2_create_credit_rating (
604 p_credit_rating_rec IN HZ_PARTY_INFO_PUB.CREDIT_RATINGS_REC_TYPE,
605 x_return_status IN OUT NOCOPY VARCHAR2,
606 x_credit_rating_id OUT NOCOPY NUMBER
607 ) IS
608
609 l_credit_rating_rec HZ_PARTY_INFO_V2PUB.CREDIT_RATING_REC_TYPE;
610
611 BEGIN
612
613 -- pre-process v1 and v2 record.
614 v2_credit_rating_pre (
615 'C',
616 p_credit_rating_rec,
617 l_credit_rating_rec );
618
619 -- call V2 API.
620
621 HZ_PARTY_INFO_V2PUB.create_credit_rating (
622 p_credit_rating_rec => l_credit_rating_rec,
623 x_credit_rating_id => x_credit_rating_id,
624 x_return_status => x_return_status,
625 x_msg_count => x_msg_count,
626 x_msg_data => x_msg_data );
627
628 END v2_create_credit_rating;
629
630
631 PROCEDURE v2_update_credit_rating (
632 p_credit_rating_rec IN HZ_PARTY_INFO_PUB.CREDIT_RATINGS_REC_TYPE,
633 p_last_update_date IN OUT NOCOPY DATE,
634 x_return_status IN OUT NOCOPY VARCHAR2
635 ) IS
636
637 l_credit_rating_rec HZ_PARTY_INFO_V2PUB.CREDIT_RATING_REC_TYPE;
638 l_last_update_date DATE;
639 l_rowid ROWID := NULL;
640 l_object_version_number NUMBER;
641
642 BEGIN
643
644 -- check required fields:
645 IF p_last_update_date IS NULL OR
646 p_last_update_date = FND_API.G_MISS_DATE
647 THEN
648 FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
649 FND_MESSAGE.SET_TOKEN('COLUMN', 'p_last_update_date');
650 FND_MSG_PUB.ADD;
651 RAISE FND_API.G_EXC_ERROR;
652 END IF;
653
654 -- get object_version_number
655 BEGIN
656
657 SELECT ROWID, OBJECT_VERSION_NUMBER, LAST_UPDATE_DATE
658 INTO l_rowid, l_object_version_number, l_last_update_date
659 FROM HZ_CREDIT_RATINGS
660 WHERE CREDIT_RATING_ID = p_credit_rating_rec.credit_rating_id;
661
662 IF TO_CHAR( p_last_update_date, 'DD-MON-YYYY HH:MI:SS') <>
663 TO_CHAR( l_last_update_date, 'DD-MON-YYYY HH:MI:SS')
664 THEN
665 FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
666 FND_MESSAGE.SET_TOKEN( 'TABLE', 'hz_credit_ratings' );
667 FND_MSG_PUB.ADD;
668 RAISE FND_API.G_EXC_ERROR;
669 END IF;
670 EXCEPTION
671 WHEN NO_DATA_FOUND THEN
672 FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NO_RECORD' );
673 FND_MESSAGE.SET_TOKEN( 'RECORD', 'credit ratings' );
674 FND_MESSAGE.SET_TOKEN( 'VALUE',
675 NVL( TO_CHAR( p_credit_rating_rec.credit_rating_id ), 'null' ) );
676 FND_MSG_PUB.ADD;
677 RAISE FND_API.G_EXC_ERROR;
678 END;
679
680 -- pre-process v1 and v2 record.
681 v2_credit_rating_pre (
682 'U',
683 p_credit_rating_rec,
684 l_credit_rating_rec );
685
686 -- call V2 API.
687
688 HZ_PARTY_INFO_V2PUB.update_credit_rating (
689 p_credit_rating_rec => l_credit_rating_rec,
690 p_object_version_number => l_object_version_number,
691 x_return_status => x_return_status,
692 x_msg_count => x_msg_count,
693 x_msg_data => x_msg_data
694 );
695
696 END v2_update_credit_rating;
697
698 END HZ_PARTY_INFO_V2PVT;