[Home] [Help]
PACKAGE BODY: APPS.HZ_PARTY_INFO_V2PUB_JW
Source
1 package body hz_party_info_v2pub_jw as
2 /* $Header: ARH2PRJB.pls 120.2 2005/06/18 04:28:54 jhuang noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure create_credit_rating_1(p_init_msg_list VARCHAR2
23 , x_credit_rating_id out nocopy NUMBER
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p1_a0 NUMBER := null
28 , p1_a1 VARCHAR2 := null
29 , p1_a2 NUMBER := null
30 , p1_a3 VARCHAR2 := null
31 , p1_a4 DATE := null
32 , p1_a5 VARCHAR2 := null
33 , p1_a6 VARCHAR2 := null
34 , p1_a7 VARCHAR2 := null
35 , p1_a8 VARCHAR2 := null
36 , p1_a9 VARCHAR2 := null
37 , p1_a10 VARCHAR2 := null
38 , p1_a11 VARCHAR2 := null
39 , p1_a12 VARCHAR2 := null
40 , p1_a13 VARCHAR2 := null
41 , p1_a14 VARCHAR2 := null
42 , p1_a15 VARCHAR2 := null
43 , p1_a16 VARCHAR2 := null
44 , p1_a17 NUMBER := null
45 , p1_a18 VARCHAR2 := null
46 , p1_a19 NUMBER := null
47 , p1_a20 NUMBER := null
48 , p1_a21 VARCHAR2 := null
49 , p1_a22 VARCHAR2 := null
50 , p1_a23 VARCHAR2 := null
51 , p1_a24 VARCHAR2 := null
52 , p1_a25 VARCHAR2 := null
53 , p1_a26 VARCHAR2 := null
54 , p1_a27 VARCHAR2 := null
55 , p1_a28 VARCHAR2 := null
56 , p1_a29 VARCHAR2 := null
57 , p1_a30 VARCHAR2 := null
58 , p1_a31 DATE := null
59 , p1_a32 NUMBER := null
60 , p1_a33 NUMBER := null
61 , p1_a34 VARCHAR2 := null
62 , p1_a35 NUMBER := null
63 , p1_a36 NUMBER := null
64 , p1_a37 VARCHAR2 := null
65 , p1_a38 VARCHAR2 := null
66 , p1_a39 VARCHAR2 := null
67 , p1_a40 VARCHAR2 := null
68 , p1_a41 VARCHAR2 := null
69 , p1_a42 VARCHAR2 := null
70 , p1_a43 VARCHAR2 := null
71 , p1_a44 VARCHAR2 := null
72 , p1_a45 VARCHAR2 := null
73 , p1_a46 VARCHAR2 := null
74 , p1_a47 DATE := null
75 , p1_a48 NUMBER := null
76 , p1_a49 NUMBER := null
77 , p1_a50 VARCHAR2 := null
78 , p1_a51 VARCHAR2 := null
79 , p1_a52 VARCHAR2 := null
80 , p1_a53 NUMBER := null
81 , p1_a54 DATE := null
82 , p1_a55 NUMBER := null
83 , p1_a56 VARCHAR2 := null
84 , p1_a57 NUMBER := null
85 , p1_a58 VARCHAR2 := null
86 , p1_a59 VARCHAR2 := null
87 , p1_a60 VARCHAR2 := null
88 , p1_a61 VARCHAR2 := null
89 , p1_a62 VARCHAR2 := null
90 , p1_a63 NUMBER := null
91 , p1_a64 NUMBER := null
92 , p1_a65 NUMBER := null
93 , p1_a66 NUMBER := null
94 , p1_a67 NUMBER := null
95 , p1_a68 VARCHAR2 := null
96 , p1_a69 VARCHAR2 := null
97 , p1_a70 VARCHAR2 := null
98 , p1_a71 VARCHAR2 := null
99 , p1_a72 VARCHAR2 := null
100 , p1_a73 VARCHAR2 := null
101 , p1_a74 VARCHAR2 := null
102 , p1_a75 VARCHAR2 := null
103 , p1_a76 VARCHAR2 := null
104 , p1_a77 VARCHAR2 := null
105 , p1_a78 VARCHAR2 := null
106 , p1_a79 NUMBER := null
107 , p1_a80 VARCHAR2 := null
108 , p1_a81 NUMBER := null
109 , p1_a82 DATE := null
110 , p1_a83 NUMBER := null
111 , p1_a84 DATE := null
112 , p1_a85 VARCHAR2 := null
113 , p1_a86 VARCHAR2 := null
114 , p1_a87 VARCHAR2 := null
115 , p1_a88 VARCHAR2 := null
116 , p1_a89 VARCHAR2 := null
117 , p1_a90 VARCHAR2 := null
118 , p1_a91 NUMBER := null
119 , p1_a92 DATE := null
120 , p1_a93 VARCHAR2 := null
121 , p1_a94 VARCHAR2 := null
122 , p1_a95 VARCHAR2 := null
123 )
124 as
125 ddp_credit_rating_rec hz_party_info_v2pub.credit_rating_rec_type;
126 ddindx binary_integer; indx binary_integer;
127 begin
128
129 -- copy data to the local IN or IN-OUT args, if any
130
131 ddp_credit_rating_rec.credit_rating_id := rosetta_g_miss_num_map(p1_a0);
132 ddp_credit_rating_rec.description := p1_a1;
133 ddp_credit_rating_rec.party_id := rosetta_g_miss_num_map(p1_a2);
134 ddp_credit_rating_rec.rating := p1_a3;
135 ddp_credit_rating_rec.rated_as_of_date := rosetta_g_miss_date_in_map(p1_a4);
136 ddp_credit_rating_rec.rating_organization := p1_a5;
137 ddp_credit_rating_rec.comments := p1_a6;
138 ddp_credit_rating_rec.det_history_ind := p1_a7;
139 ddp_credit_rating_rec.fincl_embt_ind := p1_a8;
140 ddp_credit_rating_rec.criminal_proceeding_ind := p1_a9;
141 ddp_credit_rating_rec.claims_ind := p1_a10;
142 ddp_credit_rating_rec.secured_flng_ind := p1_a11;
143 ddp_credit_rating_rec.fincl_lgl_event_ind := p1_a12;
144 ddp_credit_rating_rec.disaster_ind := p1_a13;
145 ddp_credit_rating_rec.oprg_spec_evnt_ind := p1_a14;
146 ddp_credit_rating_rec.other_spec_evnt_ind := p1_a15;
147 ddp_credit_rating_rec.status := p1_a16;
148 ddp_credit_rating_rec.avg_high_credit := rosetta_g_miss_num_map(p1_a17);
149 ddp_credit_rating_rec.credit_score := p1_a18;
150 ddp_credit_rating_rec.credit_score_age := rosetta_g_miss_num_map(p1_a19);
151 ddp_credit_rating_rec.credit_score_class := rosetta_g_miss_num_map(p1_a20);
152 ddp_credit_rating_rec.credit_score_commentary := p1_a21;
153 ddp_credit_rating_rec.credit_score_commentary2 := p1_a22;
154 ddp_credit_rating_rec.credit_score_commentary3 := p1_a23;
155 ddp_credit_rating_rec.credit_score_commentary4 := p1_a24;
156 ddp_credit_rating_rec.credit_score_commentary5 := p1_a25;
157 ddp_credit_rating_rec.credit_score_commentary6 := p1_a26;
158 ddp_credit_rating_rec.credit_score_commentary7 := p1_a27;
159 ddp_credit_rating_rec.credit_score_commentary8 := p1_a28;
160 ddp_credit_rating_rec.credit_score_commentary9 := p1_a29;
161 ddp_credit_rating_rec.credit_score_commentary10 := p1_a30;
162 ddp_credit_rating_rec.credit_score_date := rosetta_g_miss_date_in_map(p1_a31);
163 ddp_credit_rating_rec.credit_score_incd_default := rosetta_g_miss_num_map(p1_a32);
164 ddp_credit_rating_rec.credit_score_natl_percentile := rosetta_g_miss_num_map(p1_a33);
165 ddp_credit_rating_rec.failure_score := p1_a34;
166 ddp_credit_rating_rec.failure_score_age := rosetta_g_miss_num_map(p1_a35);
167 ddp_credit_rating_rec.failure_score_class := rosetta_g_miss_num_map(p1_a36);
168 ddp_credit_rating_rec.failure_score_commentary := p1_a37;
169 ddp_credit_rating_rec.failure_score_commentary2 := p1_a38;
170 ddp_credit_rating_rec.failure_score_commentary3 := p1_a39;
171 ddp_credit_rating_rec.failure_score_commentary4 := p1_a40;
172 ddp_credit_rating_rec.failure_score_commentary5 := p1_a41;
173 ddp_credit_rating_rec.failure_score_commentary6 := p1_a42;
174 ddp_credit_rating_rec.failure_score_commentary7 := p1_a43;
175 ddp_credit_rating_rec.failure_score_commentary8 := p1_a44;
176 ddp_credit_rating_rec.failure_score_commentary9 := p1_a45;
177 ddp_credit_rating_rec.failure_score_commentary10 := p1_a46;
178 ddp_credit_rating_rec.failure_score_date := rosetta_g_miss_date_in_map(p1_a47);
179 ddp_credit_rating_rec.failure_score_incd_default := rosetta_g_miss_num_map(p1_a48);
180 ddp_credit_rating_rec.failure_score_natnl_percentile := rosetta_g_miss_num_map(p1_a49);
181 ddp_credit_rating_rec.failure_score_override_code := p1_a50;
182 ddp_credit_rating_rec.global_failure_score := p1_a51;
183 ddp_credit_rating_rec.debarment_ind := p1_a52;
184 ddp_credit_rating_rec.debarments_count := rosetta_g_miss_num_map(p1_a53);
185 ddp_credit_rating_rec.debarments_date := rosetta_g_miss_date_in_map(p1_a54);
186 ddp_credit_rating_rec.high_credit := rosetta_g_miss_num_map(p1_a55);
187 ddp_credit_rating_rec.maximum_credit_currency_code := p1_a56;
188 ddp_credit_rating_rec.maximum_credit_rcmd := rosetta_g_miss_num_map(p1_a57);
189 ddp_credit_rating_rec.paydex_norm := p1_a58;
190 ddp_credit_rating_rec.paydex_score := p1_a59;
191 ddp_credit_rating_rec.paydex_three_months_ago := p1_a60;
192 ddp_credit_rating_rec.credit_score_override_code := p1_a61;
193 ddp_credit_rating_rec.cr_scr_clas_expl := p1_a62;
194 ddp_credit_rating_rec.low_rng_delq_scr := rosetta_g_miss_num_map(p1_a63);
195 ddp_credit_rating_rec.high_rng_delq_scr := rosetta_g_miss_num_map(p1_a64);
196 ddp_credit_rating_rec.delq_pmt_rng_prcnt := rosetta_g_miss_num_map(p1_a65);
197 ddp_credit_rating_rec.delq_pmt_pctg_for_all_firms := rosetta_g_miss_num_map(p1_a66);
198 ddp_credit_rating_rec.num_trade_experiences := rosetta_g_miss_num_map(p1_a67);
199 ddp_credit_rating_rec.paydex_firm_days := p1_a68;
200 ddp_credit_rating_rec.paydex_firm_comment := p1_a69;
201 ddp_credit_rating_rec.paydex_industry_days := p1_a70;
202 ddp_credit_rating_rec.paydex_industry_comment := p1_a71;
203 ddp_credit_rating_rec.paydex_comment := p1_a72;
204 ddp_credit_rating_rec.suit_ind := p1_a73;
205 ddp_credit_rating_rec.lien_ind := p1_a74;
206 ddp_credit_rating_rec.judgement_ind := p1_a75;
207 ddp_credit_rating_rec.bankruptcy_ind := p1_a76;
208 ddp_credit_rating_rec.no_trade_ind := p1_a77;
209 ddp_credit_rating_rec.prnt_hq_bkcy_ind := p1_a78;
210 ddp_credit_rating_rec.num_prnt_bkcy_filing := rosetta_g_miss_num_map(p1_a79);
211 ddp_credit_rating_rec.prnt_bkcy_filg_type := p1_a80;
212 ddp_credit_rating_rec.prnt_bkcy_filg_chapter := rosetta_g_miss_num_map(p1_a81);
213 ddp_credit_rating_rec.prnt_bkcy_filg_date := rosetta_g_miss_date_in_map(p1_a82);
214 ddp_credit_rating_rec.num_prnt_bkcy_convs := rosetta_g_miss_num_map(p1_a83);
215 ddp_credit_rating_rec.prnt_bkcy_conv_date := rosetta_g_miss_date_in_map(p1_a84);
216 ddp_credit_rating_rec.prnt_bkcy_chapter_conv := p1_a85;
217 ddp_credit_rating_rec.slow_trade_expl := p1_a86;
218 ddp_credit_rating_rec.negv_pmt_expl := p1_a87;
219 ddp_credit_rating_rec.pub_rec_expl := p1_a88;
220 ddp_credit_rating_rec.business_discontinued := p1_a89;
221 ddp_credit_rating_rec.spcl_event_comment := p1_a90;
222 ddp_credit_rating_rec.num_spcl_event := rosetta_g_miss_num_map(p1_a91);
223 ddp_credit_rating_rec.spcl_event_update_date := rosetta_g_miss_date_in_map(p1_a92);
224 ddp_credit_rating_rec.spcl_evnt_txt := p1_a93;
225 ddp_credit_rating_rec.actual_content_source := p1_a94;
226 ddp_credit_rating_rec.created_by_module := p1_a95;
227
228
229
230
231
232 -- here's the delegated call to the old PL/SQL routine
233 hz_party_info_v2pub.create_credit_rating(p_init_msg_list,
234 ddp_credit_rating_rec,
235 x_credit_rating_id,
236 x_return_status,
237 x_msg_count,
238 x_msg_data);
239
240 -- copy data back from the local OUT or IN-OUT args, if any
241
242
243
244
245
246 end;
247
248 procedure update_credit_rating_2(p_init_msg_list VARCHAR2
249 , p_object_version_number in out nocopy NUMBER
250 , x_return_status out nocopy VARCHAR2
251 , x_msg_count out nocopy NUMBER
252 , x_msg_data out nocopy VARCHAR2
253 , p1_a0 NUMBER := null
254 , p1_a1 VARCHAR2 := null
255 , p1_a2 NUMBER := null
256 , p1_a3 VARCHAR2 := null
257 , p1_a4 DATE := null
258 , p1_a5 VARCHAR2 := null
259 , p1_a6 VARCHAR2 := null
260 , p1_a7 VARCHAR2 := null
261 , p1_a8 VARCHAR2 := null
262 , p1_a9 VARCHAR2 := null
263 , p1_a10 VARCHAR2 := null
264 , p1_a11 VARCHAR2 := null
265 , p1_a12 VARCHAR2 := null
266 , p1_a13 VARCHAR2 := null
267 , p1_a14 VARCHAR2 := null
268 , p1_a15 VARCHAR2 := null
269 , p1_a16 VARCHAR2 := null
270 , p1_a17 NUMBER := null
271 , p1_a18 VARCHAR2 := null
272 , p1_a19 NUMBER := null
273 , p1_a20 NUMBER := null
274 , p1_a21 VARCHAR2 := null
275 , p1_a22 VARCHAR2 := null
276 , p1_a23 VARCHAR2 := null
277 , p1_a24 VARCHAR2 := null
278 , p1_a25 VARCHAR2 := null
279 , p1_a26 VARCHAR2 := null
280 , p1_a27 VARCHAR2 := null
281 , p1_a28 VARCHAR2 := null
282 , p1_a29 VARCHAR2 := null
283 , p1_a30 VARCHAR2 := null
284 , p1_a31 DATE := null
285 , p1_a32 NUMBER := null
286 , p1_a33 NUMBER := null
287 , p1_a34 VARCHAR2 := null
288 , p1_a35 NUMBER := null
289 , p1_a36 NUMBER := null
290 , p1_a37 VARCHAR2 := null
291 , p1_a38 VARCHAR2 := null
292 , p1_a39 VARCHAR2 := null
293 , p1_a40 VARCHAR2 := null
294 , p1_a41 VARCHAR2 := null
295 , p1_a42 VARCHAR2 := null
296 , p1_a43 VARCHAR2 := null
297 , p1_a44 VARCHAR2 := null
298 , p1_a45 VARCHAR2 := null
299 , p1_a46 VARCHAR2 := null
300 , p1_a47 DATE := null
301 , p1_a48 NUMBER := null
302 , p1_a49 NUMBER := null
303 , p1_a50 VARCHAR2 := null
304 , p1_a51 VARCHAR2 := null
305 , p1_a52 VARCHAR2 := null
306 , p1_a53 NUMBER := null
307 , p1_a54 DATE := null
308 , p1_a55 NUMBER := null
309 , p1_a56 VARCHAR2 := null
310 , p1_a57 NUMBER := null
311 , p1_a58 VARCHAR2 := null
312 , p1_a59 VARCHAR2 := null
313 , p1_a60 VARCHAR2 := null
314 , p1_a61 VARCHAR2 := null
315 , p1_a62 VARCHAR2 := null
316 , p1_a63 NUMBER := null
317 , p1_a64 NUMBER := null
318 , p1_a65 NUMBER := null
319 , p1_a66 NUMBER := null
320 , p1_a67 NUMBER := null
321 , p1_a68 VARCHAR2 := null
325 , p1_a72 VARCHAR2 := null
322 , p1_a69 VARCHAR2 := null
323 , p1_a70 VARCHAR2 := null
324 , p1_a71 VARCHAR2 := null
326 , p1_a73 VARCHAR2 := null
327 , p1_a74 VARCHAR2 := null
328 , p1_a75 VARCHAR2 := null
329 , p1_a76 VARCHAR2 := null
330 , p1_a77 VARCHAR2 := null
331 , p1_a78 VARCHAR2 := null
332 , p1_a79 NUMBER := null
333 , p1_a80 VARCHAR2 := null
334 , p1_a81 NUMBER := null
335 , p1_a82 DATE := null
336 , p1_a83 NUMBER := null
337 , p1_a84 DATE := null
338 , p1_a85 VARCHAR2 := null
339 , p1_a86 VARCHAR2 := null
340 , p1_a87 VARCHAR2 := null
341 , p1_a88 VARCHAR2 := null
342 , p1_a89 VARCHAR2 := null
343 , p1_a90 VARCHAR2 := null
344 , p1_a91 NUMBER := null
345 , p1_a92 DATE := null
346 , p1_a93 VARCHAR2 := null
347 , p1_a94 VARCHAR2 := null
348 , p1_a95 VARCHAR2 := null
349 )
350 as
351 ddp_credit_rating_rec hz_party_info_v2pub.credit_rating_rec_type;
352 ddindx binary_integer; indx binary_integer;
353 begin
354
355 -- copy data to the local IN or IN-OUT args, if any
356
357 ddp_credit_rating_rec.credit_rating_id := rosetta_g_miss_num_map(p1_a0);
358 ddp_credit_rating_rec.description := p1_a1;
359 ddp_credit_rating_rec.party_id := rosetta_g_miss_num_map(p1_a2);
360 ddp_credit_rating_rec.rating := p1_a3;
361 ddp_credit_rating_rec.rated_as_of_date := rosetta_g_miss_date_in_map(p1_a4);
362 ddp_credit_rating_rec.rating_organization := p1_a5;
363 ddp_credit_rating_rec.comments := p1_a6;
364 ddp_credit_rating_rec.det_history_ind := p1_a7;
365 ddp_credit_rating_rec.fincl_embt_ind := p1_a8;
366 ddp_credit_rating_rec.criminal_proceeding_ind := p1_a9;
367 ddp_credit_rating_rec.claims_ind := p1_a10;
368 ddp_credit_rating_rec.secured_flng_ind := p1_a11;
369 ddp_credit_rating_rec.fincl_lgl_event_ind := p1_a12;
370 ddp_credit_rating_rec.disaster_ind := p1_a13;
371 ddp_credit_rating_rec.oprg_spec_evnt_ind := p1_a14;
372 ddp_credit_rating_rec.other_spec_evnt_ind := p1_a15;
373 ddp_credit_rating_rec.status := p1_a16;
374 ddp_credit_rating_rec.avg_high_credit := rosetta_g_miss_num_map(p1_a17);
375 ddp_credit_rating_rec.credit_score := p1_a18;
376 ddp_credit_rating_rec.credit_score_age := rosetta_g_miss_num_map(p1_a19);
377 ddp_credit_rating_rec.credit_score_class := rosetta_g_miss_num_map(p1_a20);
378 ddp_credit_rating_rec.credit_score_commentary := p1_a21;
379 ddp_credit_rating_rec.credit_score_commentary2 := p1_a22;
380 ddp_credit_rating_rec.credit_score_commentary3 := p1_a23;
381 ddp_credit_rating_rec.credit_score_commentary4 := p1_a24;
382 ddp_credit_rating_rec.credit_score_commentary5 := p1_a25;
383 ddp_credit_rating_rec.credit_score_commentary6 := p1_a26;
384 ddp_credit_rating_rec.credit_score_commentary7 := p1_a27;
385 ddp_credit_rating_rec.credit_score_commentary8 := p1_a28;
386 ddp_credit_rating_rec.credit_score_commentary9 := p1_a29;
387 ddp_credit_rating_rec.credit_score_commentary10 := p1_a30;
388 ddp_credit_rating_rec.credit_score_date := rosetta_g_miss_date_in_map(p1_a31);
389 ddp_credit_rating_rec.credit_score_incd_default := rosetta_g_miss_num_map(p1_a32);
390 ddp_credit_rating_rec.credit_score_natl_percentile := rosetta_g_miss_num_map(p1_a33);
391 ddp_credit_rating_rec.failure_score := p1_a34;
392 ddp_credit_rating_rec.failure_score_age := rosetta_g_miss_num_map(p1_a35);
393 ddp_credit_rating_rec.failure_score_class := rosetta_g_miss_num_map(p1_a36);
394 ddp_credit_rating_rec.failure_score_commentary := p1_a37;
395 ddp_credit_rating_rec.failure_score_commentary2 := p1_a38;
396 ddp_credit_rating_rec.failure_score_commentary3 := p1_a39;
397 ddp_credit_rating_rec.failure_score_commentary4 := p1_a40;
398 ddp_credit_rating_rec.failure_score_commentary5 := p1_a41;
399 ddp_credit_rating_rec.failure_score_commentary6 := p1_a42;
400 ddp_credit_rating_rec.failure_score_commentary7 := p1_a43;
401 ddp_credit_rating_rec.failure_score_commentary8 := p1_a44;
402 ddp_credit_rating_rec.failure_score_commentary9 := p1_a45;
403 ddp_credit_rating_rec.failure_score_commentary10 := p1_a46;
404 ddp_credit_rating_rec.failure_score_date := rosetta_g_miss_date_in_map(p1_a47);
405 ddp_credit_rating_rec.failure_score_incd_default := rosetta_g_miss_num_map(p1_a48);
406 ddp_credit_rating_rec.failure_score_natnl_percentile := rosetta_g_miss_num_map(p1_a49);
407 ddp_credit_rating_rec.failure_score_override_code := p1_a50;
408 ddp_credit_rating_rec.global_failure_score := p1_a51;
409 ddp_credit_rating_rec.debarment_ind := p1_a52;
410 ddp_credit_rating_rec.debarments_count := rosetta_g_miss_num_map(p1_a53);
411 ddp_credit_rating_rec.debarments_date := rosetta_g_miss_date_in_map(p1_a54);
412 ddp_credit_rating_rec.high_credit := rosetta_g_miss_num_map(p1_a55);
413 ddp_credit_rating_rec.maximum_credit_currency_code := p1_a56;
414 ddp_credit_rating_rec.maximum_credit_rcmd := rosetta_g_miss_num_map(p1_a57);
415 ddp_credit_rating_rec.paydex_norm := p1_a58;
416 ddp_credit_rating_rec.paydex_score := p1_a59;
417 ddp_credit_rating_rec.paydex_three_months_ago := p1_a60;
418 ddp_credit_rating_rec.credit_score_override_code := p1_a61;
419 ddp_credit_rating_rec.cr_scr_clas_expl := p1_a62;
420 ddp_credit_rating_rec.low_rng_delq_scr := rosetta_g_miss_num_map(p1_a63);
424 ddp_credit_rating_rec.num_trade_experiences := rosetta_g_miss_num_map(p1_a67);
421 ddp_credit_rating_rec.high_rng_delq_scr := rosetta_g_miss_num_map(p1_a64);
422 ddp_credit_rating_rec.delq_pmt_rng_prcnt := rosetta_g_miss_num_map(p1_a65);
423 ddp_credit_rating_rec.delq_pmt_pctg_for_all_firms := rosetta_g_miss_num_map(p1_a66);
425 ddp_credit_rating_rec.paydex_firm_days := p1_a68;
426 ddp_credit_rating_rec.paydex_firm_comment := p1_a69;
427 ddp_credit_rating_rec.paydex_industry_days := p1_a70;
428 ddp_credit_rating_rec.paydex_industry_comment := p1_a71;
429 ddp_credit_rating_rec.paydex_comment := p1_a72;
430 ddp_credit_rating_rec.suit_ind := p1_a73;
431 ddp_credit_rating_rec.lien_ind := p1_a74;
432 ddp_credit_rating_rec.judgement_ind := p1_a75;
433 ddp_credit_rating_rec.bankruptcy_ind := p1_a76;
434 ddp_credit_rating_rec.no_trade_ind := p1_a77;
435 ddp_credit_rating_rec.prnt_hq_bkcy_ind := p1_a78;
436 ddp_credit_rating_rec.num_prnt_bkcy_filing := rosetta_g_miss_num_map(p1_a79);
437 ddp_credit_rating_rec.prnt_bkcy_filg_type := p1_a80;
438 ddp_credit_rating_rec.prnt_bkcy_filg_chapter := rosetta_g_miss_num_map(p1_a81);
439 ddp_credit_rating_rec.prnt_bkcy_filg_date := rosetta_g_miss_date_in_map(p1_a82);
440 ddp_credit_rating_rec.num_prnt_bkcy_convs := rosetta_g_miss_num_map(p1_a83);
441 ddp_credit_rating_rec.prnt_bkcy_conv_date := rosetta_g_miss_date_in_map(p1_a84);
442 ddp_credit_rating_rec.prnt_bkcy_chapter_conv := p1_a85;
443 ddp_credit_rating_rec.slow_trade_expl := p1_a86;
444 ddp_credit_rating_rec.negv_pmt_expl := p1_a87;
445 ddp_credit_rating_rec.pub_rec_expl := p1_a88;
446 ddp_credit_rating_rec.business_discontinued := p1_a89;
447 ddp_credit_rating_rec.spcl_event_comment := p1_a90;
448 ddp_credit_rating_rec.num_spcl_event := rosetta_g_miss_num_map(p1_a91);
449 ddp_credit_rating_rec.spcl_event_update_date := rosetta_g_miss_date_in_map(p1_a92);
450 ddp_credit_rating_rec.spcl_evnt_txt := p1_a93;
451 ddp_credit_rating_rec.actual_content_source := p1_a94;
452 ddp_credit_rating_rec.created_by_module := p1_a95;
453
454
455
456
457
458 -- here's the delegated call to the old PL/SQL routine
459 hz_party_info_v2pub.update_credit_rating(p_init_msg_list,
460 ddp_credit_rating_rec,
461 p_object_version_number,
462 x_return_status,
463 x_msg_count,
464 x_msg_data);
465
466 -- copy data back from the local OUT or IN-OUT args, if any
467
468
469
470
471
472 end;
473
474 procedure get_credit_rating_rec_3(p_init_msg_list VARCHAR2
475 , p_credit_rating_id NUMBER
476 , p2_a0 out nocopy NUMBER
477 , p2_a1 out nocopy VARCHAR2
478 , p2_a2 out nocopy NUMBER
479 , p2_a3 out nocopy VARCHAR2
480 , p2_a4 out nocopy DATE
481 , p2_a5 out nocopy VARCHAR2
482 , p2_a6 out nocopy VARCHAR2
483 , p2_a7 out nocopy VARCHAR2
484 , p2_a8 out nocopy VARCHAR2
485 , p2_a9 out nocopy VARCHAR2
486 , p2_a10 out nocopy VARCHAR2
487 , p2_a11 out nocopy VARCHAR2
488 , p2_a12 out nocopy VARCHAR2
489 , p2_a13 out nocopy VARCHAR2
490 , p2_a14 out nocopy VARCHAR2
491 , p2_a15 out nocopy VARCHAR2
492 , p2_a16 out nocopy VARCHAR2
493 , p2_a17 out nocopy NUMBER
494 , p2_a18 out nocopy VARCHAR2
495 , p2_a19 out nocopy NUMBER
496 , p2_a20 out nocopy NUMBER
497 , p2_a21 out nocopy VARCHAR2
498 , p2_a22 out nocopy VARCHAR2
499 , p2_a23 out nocopy VARCHAR2
500 , p2_a24 out nocopy VARCHAR2
501 , p2_a25 out nocopy VARCHAR2
502 , p2_a26 out nocopy VARCHAR2
503 , p2_a27 out nocopy VARCHAR2
504 , p2_a28 out nocopy VARCHAR2
505 , p2_a29 out nocopy VARCHAR2
506 , p2_a30 out nocopy VARCHAR2
507 , p2_a31 out nocopy DATE
508 , p2_a32 out nocopy NUMBER
509 , p2_a33 out nocopy NUMBER
510 , p2_a34 out nocopy VARCHAR2
511 , p2_a35 out nocopy NUMBER
512 , p2_a36 out nocopy NUMBER
513 , p2_a37 out nocopy VARCHAR2
514 , p2_a38 out nocopy VARCHAR2
515 , p2_a39 out nocopy VARCHAR2
516 , p2_a40 out nocopy VARCHAR2
517 , p2_a41 out nocopy VARCHAR2
518 , p2_a42 out nocopy VARCHAR2
519 , p2_a43 out nocopy VARCHAR2
520 , p2_a44 out nocopy VARCHAR2
521 , p2_a45 out nocopy VARCHAR2
522 , p2_a46 out nocopy VARCHAR2
523 , p2_a47 out nocopy DATE
527 , p2_a51 out nocopy VARCHAR2
524 , p2_a48 out nocopy NUMBER
525 , p2_a49 out nocopy NUMBER
526 , p2_a50 out nocopy VARCHAR2
528 , p2_a52 out nocopy VARCHAR2
529 , p2_a53 out nocopy NUMBER
530 , p2_a54 out nocopy DATE
531 , p2_a55 out nocopy NUMBER
532 , p2_a56 out nocopy VARCHAR2
533 , p2_a57 out nocopy NUMBER
534 , p2_a58 out nocopy VARCHAR2
535 , p2_a59 out nocopy VARCHAR2
536 , p2_a60 out nocopy VARCHAR2
537 , p2_a61 out nocopy VARCHAR2
538 , p2_a62 out nocopy VARCHAR2
539 , p2_a63 out nocopy NUMBER
540 , p2_a64 out nocopy NUMBER
541 , p2_a65 out nocopy NUMBER
542 , p2_a66 out nocopy NUMBER
543 , p2_a67 out nocopy NUMBER
544 , p2_a68 out nocopy VARCHAR2
545 , p2_a69 out nocopy VARCHAR2
546 , p2_a70 out nocopy VARCHAR2
547 , p2_a71 out nocopy VARCHAR2
548 , p2_a72 out nocopy VARCHAR2
549 , p2_a73 out nocopy VARCHAR2
550 , p2_a74 out nocopy VARCHAR2
551 , p2_a75 out nocopy VARCHAR2
552 , p2_a76 out nocopy VARCHAR2
553 , p2_a77 out nocopy VARCHAR2
554 , p2_a78 out nocopy VARCHAR2
555 , p2_a79 out nocopy NUMBER
556 , p2_a80 out nocopy VARCHAR2
557 , p2_a81 out nocopy NUMBER
558 , p2_a82 out nocopy DATE
559 , p2_a83 out nocopy NUMBER
560 , p2_a84 out nocopy DATE
561 , p2_a85 out nocopy VARCHAR2
562 , p2_a86 out nocopy VARCHAR2
563 , p2_a87 out nocopy VARCHAR2
564 , p2_a88 out nocopy VARCHAR2
565 , p2_a89 out nocopy VARCHAR2
566 , p2_a90 out nocopy VARCHAR2
567 , p2_a91 out nocopy NUMBER
568 , p2_a92 out nocopy DATE
569 , p2_a93 out nocopy VARCHAR2
570 , p2_a94 out nocopy VARCHAR2
571 , p2_a95 out nocopy VARCHAR2
572 , x_return_status out nocopy VARCHAR2
573 , x_msg_count out nocopy NUMBER
574 , x_msg_data out nocopy VARCHAR2
575 )
576 as
577 ddx_credit_rating_rec hz_party_info_v2pub.credit_rating_rec_type;
578 ddindx binary_integer; indx binary_integer;
579 begin
580
581 -- copy data to the local IN or IN-OUT args, if any
582
583
584
585
586
587
588 -- here's the delegated call to the old PL/SQL routine
589 hz_party_info_v2pub.get_credit_rating_rec(p_init_msg_list,
590 p_credit_rating_id,
591 ddx_credit_rating_rec,
592 x_return_status,
593 x_msg_count,
594 x_msg_data);
595
596 -- copy data back from the local OUT or IN-OUT args, if any
597
598
599 p2_a0 := rosetta_g_miss_num_map(ddx_credit_rating_rec.credit_rating_id);
600 p2_a1 := ddx_credit_rating_rec.description;
601 p2_a2 := rosetta_g_miss_num_map(ddx_credit_rating_rec.party_id);
602 p2_a3 := ddx_credit_rating_rec.rating;
603 p2_a4 := ddx_credit_rating_rec.rated_as_of_date;
604 p2_a5 := ddx_credit_rating_rec.rating_organization;
605 p2_a6 := ddx_credit_rating_rec.comments;
606 p2_a7 := ddx_credit_rating_rec.det_history_ind;
607 p2_a8 := ddx_credit_rating_rec.fincl_embt_ind;
608 p2_a9 := ddx_credit_rating_rec.criminal_proceeding_ind;
609 p2_a10 := ddx_credit_rating_rec.claims_ind;
610 p2_a11 := ddx_credit_rating_rec.secured_flng_ind;
611 p2_a12 := ddx_credit_rating_rec.fincl_lgl_event_ind;
612 p2_a13 := ddx_credit_rating_rec.disaster_ind;
613 p2_a14 := ddx_credit_rating_rec.oprg_spec_evnt_ind;
614 p2_a15 := ddx_credit_rating_rec.other_spec_evnt_ind;
615 p2_a16 := ddx_credit_rating_rec.status;
616 p2_a17 := rosetta_g_miss_num_map(ddx_credit_rating_rec.avg_high_credit);
617 p2_a18 := ddx_credit_rating_rec.credit_score;
618 p2_a19 := rosetta_g_miss_num_map(ddx_credit_rating_rec.credit_score_age);
619 p2_a20 := rosetta_g_miss_num_map(ddx_credit_rating_rec.credit_score_class);
620 p2_a21 := ddx_credit_rating_rec.credit_score_commentary;
621 p2_a22 := ddx_credit_rating_rec.credit_score_commentary2;
622 p2_a23 := ddx_credit_rating_rec.credit_score_commentary3;
623 p2_a24 := ddx_credit_rating_rec.credit_score_commentary4;
624 p2_a25 := ddx_credit_rating_rec.credit_score_commentary5;
625 p2_a26 := ddx_credit_rating_rec.credit_score_commentary6;
626 p2_a27 := ddx_credit_rating_rec.credit_score_commentary7;
627 p2_a28 := ddx_credit_rating_rec.credit_score_commentary8;
628 p2_a29 := ddx_credit_rating_rec.credit_score_commentary9;
629 p2_a30 := ddx_credit_rating_rec.credit_score_commentary10;
630 p2_a31 := ddx_credit_rating_rec.credit_score_date;
631 p2_a32 := rosetta_g_miss_num_map(ddx_credit_rating_rec.credit_score_incd_default);
632 p2_a33 := rosetta_g_miss_num_map(ddx_credit_rating_rec.credit_score_natl_percentile);
633 p2_a34 := ddx_credit_rating_rec.failure_score;
634 p2_a35 := rosetta_g_miss_num_map(ddx_credit_rating_rec.failure_score_age);
635 p2_a36 := rosetta_g_miss_num_map(ddx_credit_rating_rec.failure_score_class);
636 p2_a37 := ddx_credit_rating_rec.failure_score_commentary;
637 p2_a38 := ddx_credit_rating_rec.failure_score_commentary2;
638 p2_a39 := ddx_credit_rating_rec.failure_score_commentary3;
642 p2_a43 := ddx_credit_rating_rec.failure_score_commentary7;
639 p2_a40 := ddx_credit_rating_rec.failure_score_commentary4;
640 p2_a41 := ddx_credit_rating_rec.failure_score_commentary5;
641 p2_a42 := ddx_credit_rating_rec.failure_score_commentary6;
643 p2_a44 := ddx_credit_rating_rec.failure_score_commentary8;
644 p2_a45 := ddx_credit_rating_rec.failure_score_commentary9;
645 p2_a46 := ddx_credit_rating_rec.failure_score_commentary10;
646 p2_a47 := ddx_credit_rating_rec.failure_score_date;
647 p2_a48 := rosetta_g_miss_num_map(ddx_credit_rating_rec.failure_score_incd_default);
648 p2_a49 := rosetta_g_miss_num_map(ddx_credit_rating_rec.failure_score_natnl_percentile);
649 p2_a50 := ddx_credit_rating_rec.failure_score_override_code;
650 p2_a51 := ddx_credit_rating_rec.global_failure_score;
651 p2_a52 := ddx_credit_rating_rec.debarment_ind;
652 p2_a53 := rosetta_g_miss_num_map(ddx_credit_rating_rec.debarments_count);
653 p2_a54 := ddx_credit_rating_rec.debarments_date;
654 p2_a55 := rosetta_g_miss_num_map(ddx_credit_rating_rec.high_credit);
655 p2_a56 := ddx_credit_rating_rec.maximum_credit_currency_code;
656 p2_a57 := rosetta_g_miss_num_map(ddx_credit_rating_rec.maximum_credit_rcmd);
657 p2_a58 := ddx_credit_rating_rec.paydex_norm;
658 p2_a59 := ddx_credit_rating_rec.paydex_score;
659 p2_a60 := ddx_credit_rating_rec.paydex_three_months_ago;
660 p2_a61 := ddx_credit_rating_rec.credit_score_override_code;
661 p2_a62 := ddx_credit_rating_rec.cr_scr_clas_expl;
662 p2_a63 := rosetta_g_miss_num_map(ddx_credit_rating_rec.low_rng_delq_scr);
663 p2_a64 := rosetta_g_miss_num_map(ddx_credit_rating_rec.high_rng_delq_scr);
664 p2_a65 := rosetta_g_miss_num_map(ddx_credit_rating_rec.delq_pmt_rng_prcnt);
665 p2_a66 := rosetta_g_miss_num_map(ddx_credit_rating_rec.delq_pmt_pctg_for_all_firms);
666 p2_a67 := rosetta_g_miss_num_map(ddx_credit_rating_rec.num_trade_experiences);
667 p2_a68 := ddx_credit_rating_rec.paydex_firm_days;
668 p2_a69 := ddx_credit_rating_rec.paydex_firm_comment;
669 p2_a70 := ddx_credit_rating_rec.paydex_industry_days;
670 p2_a71 := ddx_credit_rating_rec.paydex_industry_comment;
671 p2_a72 := ddx_credit_rating_rec.paydex_comment;
672 p2_a73 := ddx_credit_rating_rec.suit_ind;
673 p2_a74 := ddx_credit_rating_rec.lien_ind;
674 p2_a75 := ddx_credit_rating_rec.judgement_ind;
675 p2_a76 := ddx_credit_rating_rec.bankruptcy_ind;
676 p2_a77 := ddx_credit_rating_rec.no_trade_ind;
677 p2_a78 := ddx_credit_rating_rec.prnt_hq_bkcy_ind;
678 p2_a79 := rosetta_g_miss_num_map(ddx_credit_rating_rec.num_prnt_bkcy_filing);
679 p2_a80 := ddx_credit_rating_rec.prnt_bkcy_filg_type;
680 p2_a81 := rosetta_g_miss_num_map(ddx_credit_rating_rec.prnt_bkcy_filg_chapter);
681 p2_a82 := ddx_credit_rating_rec.prnt_bkcy_filg_date;
682 p2_a83 := rosetta_g_miss_num_map(ddx_credit_rating_rec.num_prnt_bkcy_convs);
683 p2_a84 := ddx_credit_rating_rec.prnt_bkcy_conv_date;
684 p2_a85 := ddx_credit_rating_rec.prnt_bkcy_chapter_conv;
685 p2_a86 := ddx_credit_rating_rec.slow_trade_expl;
686 p2_a87 := ddx_credit_rating_rec.negv_pmt_expl;
687 p2_a88 := ddx_credit_rating_rec.pub_rec_expl;
688 p2_a89 := ddx_credit_rating_rec.business_discontinued;
689 p2_a90 := ddx_credit_rating_rec.spcl_event_comment;
690 p2_a91 := rosetta_g_miss_num_map(ddx_credit_rating_rec.num_spcl_event);
691 p2_a92 := ddx_credit_rating_rec.spcl_event_update_date;
692 p2_a93 := ddx_credit_rating_rec.spcl_evnt_txt;
693 p2_a94 := ddx_credit_rating_rec.actual_content_source;
694 p2_a95 := ddx_credit_rating_rec.created_by_module;
695
696
697
698 end;
699
700 end hz_party_info_v2pub_jw;