[Home] [Help]
PACKAGE BODY: APPS.LNS_LOAN_HEADER_PUB_W
Source
1 package body lns_loan_header_pub_w as
2 /* $Header: LNS_LNHDR_PUBJ_B.pls 120.6.12010000.2 2008/11/17 13:14:15 mbolli ship $ */
3 procedure create_loan(p_init_msg_list VARCHAR2
4 , p1_a0 NUMBER
5 , p1_a1 NUMBER
6 , p1_a2 VARCHAR2
7 , p1_a3 VARCHAR2
8 , p1_a4 DATE
9 , p1_a5 DATE
10 , p1_a6 NUMBER
11 , p1_a7 DATE
12 , p1_a8 NUMBER
13 , p1_a9 NUMBER
14 , p1_a10 VARCHAR2
15 , p1_a11 NUMBER
16 , p1_a12 VARCHAR2
17 , p1_a13 VARCHAR2
18 , p1_a14 NUMBER
19 , p1_a15 VARCHAR2
20 , p1_a16 VARCHAR2
21 , p1_a17 VARCHAR2
22 , p1_a18 VARCHAR2
23 , p1_a19 VARCHAR2
24 , p1_a20 NUMBER
25 , p1_a21 NUMBER
26 , p1_a22 DATE
27 , p1_a23 DATE
28 , p1_a24 DATE
29 , p1_a25 NUMBER
30 , p1_a26 VARCHAR2
31 , p1_a27 VARCHAR2
32 , p1_a28 NUMBER
33 , p1_a29 VARCHAR2
34 , p1_a30 NUMBER
35 , p1_a31 NUMBER
36 , p1_a32 NUMBER
37 , p1_a33 NUMBER
38 , p1_a34 DATE
39 , p1_a35 NUMBER
40 , p1_a36 VARCHAR2
41 , p1_a37 VARCHAR2
42 , p1_a38 VARCHAR2
43 , p1_a39 VARCHAR2
44 , p1_a40 VARCHAR2
45 , p1_a41 VARCHAR2
46 , p1_a42 VARCHAR2
47 , p1_a43 VARCHAR2
48 , p1_a44 VARCHAR2
49 , p1_a45 VARCHAR2
50 , p1_a46 VARCHAR2
51 , p1_a47 VARCHAR2
52 , p1_a48 VARCHAR2
53 , p1_a49 VARCHAR2
54 , p1_a50 VARCHAR2
55 , p1_a51 VARCHAR2
56 , p1_a52 VARCHAR2
57 , p1_a53 VARCHAR2
58 , p1_a54 VARCHAR2
59 , p1_a55 VARCHAR2
60 , p1_a56 VARCHAR2
61 , p1_a57 DATE
62 , p1_a58 VARCHAR2
63 , p1_a59 VARCHAR2
64 , p1_a60 VARCHAR2
65 , p1_a61 VARCHAR2
66 , p1_a62 NUMBER
67 , p1_a63 VARCHAR2
68 , p1_a64 DATE
69 , p1_a65 VARCHAR2
70 , p1_a66 NUMBER
71 , p1_a67 NUMBER
72 , p1_a68 VARCHAR2
73 , p1_a69 VARCHAR2
74 , p1_a70 DATE
75 , p1_a71 NUMBER
76 , p1_a72 NUMBER
77 , p1_a73 NUMBER
78 , p1_a74 NUMBER
79 , p1_a75 NUMBER
80 , p1_a76 VARCHAR2
81 , p1_a77 VARCHAR2
82 , p1_a78 NUMBER
83 , p1_a79 VARCHAR2
84 , p1_a80 VARCHAR2
85 , p1_a81 VARCHAR2
86 , p1_a82 NUMBER
87 , p1_a83 VARCHAR2
88 , p1_a84 DATE
89 , p1_a85 NUMBER
90 , p1_a86 VARCHAR2
91 , p1_a87 DATE
92 , p1_a88 VARCHAR2
93 , p1_a89 DATE
94 , p1_a90 NUMBER
95 , p1_a91 NUMBER
96 , p1_a92 VARCHAR2
97 , p1_a93 VARCHAR2
98 , p1_a94 VARCHAR2
99 , p1_a95 NUMBER
100 , x_loan_id out nocopy NUMBER
101 , x_loan_number out nocopy VARCHAR2
102 , x_return_status out nocopy VARCHAR2
103 , x_msg_count out nocopy NUMBER
104 , x_msg_data out nocopy VARCHAR2
105 )
106
107 as
108 ddp_loan_header_rec lns_loan_header_pub.loan_header_rec_type;
109 ddindx binary_integer; indx binary_integer;
110 begin
111
112 -- copy data to the local IN or IN-OUT args, if any
113
114 ddp_loan_header_rec.loan_id := p1_a0;
115 ddp_loan_header_rec.org_id := p1_a1;
116 ddp_loan_header_rec.loan_number := p1_a2;
117 ddp_loan_header_rec.loan_description := p1_a3;
118 ddp_loan_header_rec.loan_application_date := p1_a4;
119 ddp_loan_header_rec.end_date := p1_a5;
120 ddp_loan_header_rec.initial_loan_balance := p1_a6;
121 ddp_loan_header_rec.last_payment_date := p1_a7;
122 ddp_loan_header_rec.last_payment_amount := p1_a8;
123 ddp_loan_header_rec.loan_term := p1_a9;
124 ddp_loan_header_rec.loan_term_period := p1_a10;
125 ddp_loan_header_rec.amortized_term := p1_a11;
126 ddp_loan_header_rec.amortized_term_period := p1_a12;
127 ddp_loan_header_rec.loan_status := p1_a13;
128 ddp_loan_header_rec.loan_assigned_to := p1_a14;
129 ddp_loan_header_rec.loan_currency := p1_a15;
130 ddp_loan_header_rec.loan_class_code := p1_a16;
131 ddp_loan_header_rec.loan_type := p1_a17;
132 ddp_loan_header_rec.loan_subtype := p1_a18;
133 ddp_loan_header_rec.loan_purpose_code := p1_a19;
134 ddp_loan_header_rec.cust_account_id := p1_a20;
135 ddp_loan_header_rec.bill_to_acct_site_id := p1_a21;
136 ddp_loan_header_rec.loan_maturity_date := p1_a22;
137 ddp_loan_header_rec.loan_start_date := p1_a23;
138 ddp_loan_header_rec.loan_closing_date := p1_a24;
139 ddp_loan_header_rec.reference_id := p1_a25;
140 ddp_loan_header_rec.reference_number := p1_a26;
141 ddp_loan_header_rec.reference_description := p1_a27;
142 ddp_loan_header_rec.reference_amount := p1_a28;
143 ddp_loan_header_rec.product_flag := p1_a29;
144 ddp_loan_header_rec.primary_borrower_id := p1_a30;
145 ddp_loan_header_rec.product_id := p1_a31;
146 ddp_loan_header_rec.requested_amount := p1_a32;
147 ddp_loan_header_rec.funded_amount := p1_a33;
148 ddp_loan_header_rec.loan_approval_date := p1_a34;
149 ddp_loan_header_rec.loan_approved_by := p1_a35;
150 ddp_loan_header_rec.attribute_category := p1_a36;
151 ddp_loan_header_rec.attribute1 := p1_a37;
152 ddp_loan_header_rec.attribute2 := p1_a38;
153 ddp_loan_header_rec.attribute3 := p1_a39;
154 ddp_loan_header_rec.attribute4 := p1_a40;
155 ddp_loan_header_rec.attribute5 := p1_a41;
156 ddp_loan_header_rec.attribute6 := p1_a42;
157 ddp_loan_header_rec.attribute7 := p1_a43;
158 ddp_loan_header_rec.attribute8 := p1_a44;
159 ddp_loan_header_rec.attribute9 := p1_a45;
160 ddp_loan_header_rec.attribute10 := p1_a46;
161 ddp_loan_header_rec.attribute11 := p1_a47;
162 ddp_loan_header_rec.attribute12 := p1_a48;
163 ddp_loan_header_rec.attribute13 := p1_a49;
164 ddp_loan_header_rec.attribute14 := p1_a50;
165 ddp_loan_header_rec.attribute15 := p1_a51;
166 ddp_loan_header_rec.attribute16 := p1_a52;
167 ddp_loan_header_rec.attribute17 := p1_a53;
168 ddp_loan_header_rec.attribute18 := p1_a54;
169 ddp_loan_header_rec.attribute19 := p1_a55;
170 ddp_loan_header_rec.attribute20 := p1_a56;
171 ddp_loan_header_rec.last_billed_date := p1_a57;
172 ddp_loan_header_rec.custom_payments_flag := p1_a58;
173 ddp_loan_header_rec.billed_flag := p1_a59;
174 ddp_loan_header_rec.reference_name := p1_a60;
175 ddp_loan_header_rec.reference_type := p1_a61;
176 ddp_loan_header_rec.reference_type_id := p1_a62;
177 ddp_loan_header_rec.ussgl_transaction_code := p1_a63;
178 ddp_loan_header_rec.gl_date := p1_a64;
179 ddp_loan_header_rec.rec_adjustment_number := p1_a65;
180 ddp_loan_header_rec.contact_rel_party_id := p1_a66;
181 ddp_loan_header_rec.contact_pers_party_id := p1_a67;
182 ddp_loan_header_rec.credit_review_flag := p1_a68;
183 ddp_loan_header_rec.exchange_rate_type := p1_a69;
184 ddp_loan_header_rec.exchange_date := p1_a70;
185 ddp_loan_header_rec.exchange_rate := p1_a71;
186 ddp_loan_header_rec.collateral_percent := p1_a72;
187 ddp_loan_header_rec.last_payment_number := p1_a73;
188 ddp_loan_header_rec.last_amortization_id := p1_a74;
189 ddp_loan_header_rec.legal_entity_id := p1_a75;
190 ddp_loan_header_rec.open_to_term_flag := p1_a76;
191 ddp_loan_header_rec.multiple_funding_flag := p1_a77;
192 ddp_loan_header_rec.loan_type_id := p1_a78;
193 ddp_loan_header_rec.secondary_status := p1_a79;
194 ddp_loan_header_rec.open_to_term_event := p1_a80;
195 ddp_loan_header_rec.balloon_payment_type := p1_a81;
196 ddp_loan_header_rec.balloon_payment_amount := p1_a82;
197 ddp_loan_header_rec.current_phase := p1_a83;
198 ddp_loan_header_rec.open_loan_start_date := p1_a84;
199 ddp_loan_header_rec.open_loan_term := p1_a85;
200 ddp_loan_header_rec.open_loan_term_period := p1_a86;
201 ddp_loan_header_rec.open_maturity_date := p1_a87;
202 ddp_loan_header_rec.funds_reserved_flag := p1_a88;
203 ddp_loan_header_rec.funds_check_date := p1_a89;
204 ddp_loan_header_rec.subsidy_rate := p1_a90;
205 ddp_loan_header_rec.application_id := p1_a91;
206 ddp_loan_header_rec.created_by_module := p1_a92;
207 ddp_loan_header_rec.party_type := p1_a93;
208 ddp_loan_header_rec.forgiveness_flag := p1_a94;
209 ddp_loan_header_rec.forgiveness_percent := p1_a95;
210
211
212
213
214
215
216 -- here's the delegated call to the old PL/SQL routine
217 lns_loan_header_pub.create_loan(p_init_msg_list,
218 ddp_loan_header_rec,
219 x_loan_id,
220 x_loan_number,
221 x_return_status,
222 x_msg_count,
223 x_msg_data);
224
225 -- copy data back from the local variables to OUT or IN-OUT args, if any
226
227
228
229
230
231
232 end;
233
234 procedure update_loan(p_init_msg_list VARCHAR2
235 , p1_a0 NUMBER
236 , p1_a1 NUMBER
237 , p1_a2 VARCHAR2
238 , p1_a3 VARCHAR2
239 , p1_a4 DATE
240 , p1_a5 DATE
241 , p1_a6 NUMBER
242 , p1_a7 DATE
243 , p1_a8 NUMBER
244 , p1_a9 NUMBER
245 , p1_a10 VARCHAR2
246 , p1_a11 NUMBER
247 , p1_a12 VARCHAR2
248 , p1_a13 VARCHAR2
249 , p1_a14 NUMBER
250 , p1_a15 VARCHAR2
251 , p1_a16 VARCHAR2
252 , p1_a17 VARCHAR2
253 , p1_a18 VARCHAR2
254 , p1_a19 VARCHAR2
255 , p1_a20 NUMBER
256 , p1_a21 NUMBER
257 , p1_a22 DATE
258 , p1_a23 DATE
259 , p1_a24 DATE
260 , p1_a25 NUMBER
261 , p1_a26 VARCHAR2
262 , p1_a27 VARCHAR2
263 , p1_a28 NUMBER
264 , p1_a29 VARCHAR2
265 , p1_a30 NUMBER
266 , p1_a31 NUMBER
267 , p1_a32 NUMBER
268 , p1_a33 NUMBER
269 , p1_a34 DATE
270 , p1_a35 NUMBER
271 , p1_a36 VARCHAR2
272 , p1_a37 VARCHAR2
273 , p1_a38 VARCHAR2
274 , p1_a39 VARCHAR2
275 , p1_a40 VARCHAR2
276 , p1_a41 VARCHAR2
277 , p1_a42 VARCHAR2
278 , p1_a43 VARCHAR2
279 , p1_a44 VARCHAR2
280 , p1_a45 VARCHAR2
281 , p1_a46 VARCHAR2
282 , p1_a47 VARCHAR2
283 , p1_a48 VARCHAR2
284 , p1_a49 VARCHAR2
285 , p1_a50 VARCHAR2
286 , p1_a51 VARCHAR2
287 , p1_a52 VARCHAR2
288 , p1_a53 VARCHAR2
289 , p1_a54 VARCHAR2
290 , p1_a55 VARCHAR2
291 , p1_a56 VARCHAR2
292 , p1_a57 DATE
293 , p1_a58 VARCHAR2
294 , p1_a59 VARCHAR2
295 , p1_a60 VARCHAR2
296 , p1_a61 VARCHAR2
297 , p1_a62 NUMBER
298 , p1_a63 VARCHAR2
299 , p1_a64 DATE
300 , p1_a65 VARCHAR2
301 , p1_a66 NUMBER
302 , p1_a67 NUMBER
303 , p1_a68 VARCHAR2
304 , p1_a69 VARCHAR2
305 , p1_a70 DATE
306 , p1_a71 NUMBER
307 , p1_a72 NUMBER
308 , p1_a73 NUMBER
309 , p1_a74 NUMBER
310 , p1_a75 NUMBER
311 , p1_a76 VARCHAR2
312 , p1_a77 VARCHAR2
313 , p1_a78 NUMBER
314 , p1_a79 VARCHAR2
315 , p1_a80 VARCHAR2
316 , p1_a81 VARCHAR2
317 , p1_a82 NUMBER
318 , p1_a83 VARCHAR2
319 , p1_a84 DATE
320 , p1_a85 NUMBER
321 , p1_a86 VARCHAR2
322 , p1_a87 DATE
323 , p1_a88 VARCHAR2
324 , p1_a89 DATE
325 , p1_a90 NUMBER
326 , p1_a91 NUMBER
327 , p1_a92 VARCHAR2
328 , p1_a93 VARCHAR2
329 , p1_a94 VARCHAR2
330 , p1_a95 NUMBER
331 , p_object_version_number in out nocopy NUMBER
332 , x_return_status out nocopy VARCHAR2
333 , x_msg_count out nocopy NUMBER
334 , x_msg_data out nocopy VARCHAR2
335 )
336
337 as
338 ddp_loan_header_rec lns_loan_header_pub.loan_header_rec_type;
339 ddindx binary_integer; indx binary_integer;
340 begin
341
342 -- copy data to the local IN or IN-OUT args, if any
343
344 ddp_loan_header_rec.loan_id := p1_a0;
345 ddp_loan_header_rec.org_id := p1_a1;
346 ddp_loan_header_rec.loan_number := p1_a2;
347 ddp_loan_header_rec.loan_description := p1_a3;
348 ddp_loan_header_rec.loan_application_date := p1_a4;
349 ddp_loan_header_rec.end_date := p1_a5;
350 ddp_loan_header_rec.initial_loan_balance := p1_a6;
351 ddp_loan_header_rec.last_payment_date := p1_a7;
352 ddp_loan_header_rec.last_payment_amount := p1_a8;
353 ddp_loan_header_rec.loan_term := p1_a9;
354 ddp_loan_header_rec.loan_term_period := p1_a10;
355 ddp_loan_header_rec.amortized_term := p1_a11;
356 ddp_loan_header_rec.amortized_term_period := p1_a12;
357 ddp_loan_header_rec.loan_status := p1_a13;
358 ddp_loan_header_rec.loan_assigned_to := p1_a14;
359 ddp_loan_header_rec.loan_currency := p1_a15;
360 ddp_loan_header_rec.loan_class_code := p1_a16;
361 ddp_loan_header_rec.loan_type := p1_a17;
362 ddp_loan_header_rec.loan_subtype := p1_a18;
363 ddp_loan_header_rec.loan_purpose_code := p1_a19;
364 ddp_loan_header_rec.cust_account_id := p1_a20;
365 ddp_loan_header_rec.bill_to_acct_site_id := p1_a21;
366 ddp_loan_header_rec.loan_maturity_date := p1_a22;
367 ddp_loan_header_rec.loan_start_date := p1_a23;
368 ddp_loan_header_rec.loan_closing_date := p1_a24;
369 ddp_loan_header_rec.reference_id := p1_a25;
370 ddp_loan_header_rec.reference_number := p1_a26;
371 ddp_loan_header_rec.reference_description := p1_a27;
372 ddp_loan_header_rec.reference_amount := p1_a28;
373 ddp_loan_header_rec.product_flag := p1_a29;
374 ddp_loan_header_rec.primary_borrower_id := p1_a30;
375 ddp_loan_header_rec.product_id := p1_a31;
376 ddp_loan_header_rec.requested_amount := p1_a32;
377 ddp_loan_header_rec.funded_amount := p1_a33;
378 ddp_loan_header_rec.loan_approval_date := p1_a34;
379 ddp_loan_header_rec.loan_approved_by := p1_a35;
380 ddp_loan_header_rec.attribute_category := p1_a36;
381 ddp_loan_header_rec.attribute1 := p1_a37;
382 ddp_loan_header_rec.attribute2 := p1_a38;
383 ddp_loan_header_rec.attribute3 := p1_a39;
384 ddp_loan_header_rec.attribute4 := p1_a40;
385 ddp_loan_header_rec.attribute5 := p1_a41;
386 ddp_loan_header_rec.attribute6 := p1_a42;
387 ddp_loan_header_rec.attribute7 := p1_a43;
388 ddp_loan_header_rec.attribute8 := p1_a44;
389 ddp_loan_header_rec.attribute9 := p1_a45;
390 ddp_loan_header_rec.attribute10 := p1_a46;
391 ddp_loan_header_rec.attribute11 := p1_a47;
392 ddp_loan_header_rec.attribute12 := p1_a48;
393 ddp_loan_header_rec.attribute13 := p1_a49;
394 ddp_loan_header_rec.attribute14 := p1_a50;
395 ddp_loan_header_rec.attribute15 := p1_a51;
396 ddp_loan_header_rec.attribute16 := p1_a52;
397 ddp_loan_header_rec.attribute17 := p1_a53;
398 ddp_loan_header_rec.attribute18 := p1_a54;
399 ddp_loan_header_rec.attribute19 := p1_a55;
400 ddp_loan_header_rec.attribute20 := p1_a56;
401 ddp_loan_header_rec.last_billed_date := p1_a57;
402 ddp_loan_header_rec.custom_payments_flag := p1_a58;
403 ddp_loan_header_rec.billed_flag := p1_a59;
404 ddp_loan_header_rec.reference_name := p1_a60;
405 ddp_loan_header_rec.reference_type := p1_a61;
406 ddp_loan_header_rec.reference_type_id := p1_a62;
407 ddp_loan_header_rec.ussgl_transaction_code := p1_a63;
408 ddp_loan_header_rec.gl_date := p1_a64;
409 ddp_loan_header_rec.rec_adjustment_number := p1_a65;
410 ddp_loan_header_rec.contact_rel_party_id := p1_a66;
411 ddp_loan_header_rec.contact_pers_party_id := p1_a67;
412 ddp_loan_header_rec.credit_review_flag := p1_a68;
413 ddp_loan_header_rec.exchange_rate_type := p1_a69;
414 ddp_loan_header_rec.exchange_date := p1_a70;
415 ddp_loan_header_rec.exchange_rate := p1_a71;
416 ddp_loan_header_rec.collateral_percent := p1_a72;
417 ddp_loan_header_rec.last_payment_number := p1_a73;
418 ddp_loan_header_rec.last_amortization_id := p1_a74;
419 ddp_loan_header_rec.legal_entity_id := p1_a75;
420 ddp_loan_header_rec.open_to_term_flag := p1_a76;
421 ddp_loan_header_rec.multiple_funding_flag := p1_a77;
422 ddp_loan_header_rec.loan_type_id := p1_a78;
423 ddp_loan_header_rec.secondary_status := p1_a79;
424 ddp_loan_header_rec.open_to_term_event := p1_a80;
425 ddp_loan_header_rec.balloon_payment_type := p1_a81;
426 ddp_loan_header_rec.balloon_payment_amount := p1_a82;
427 ddp_loan_header_rec.current_phase := p1_a83;
428 ddp_loan_header_rec.open_loan_start_date := p1_a84;
429 ddp_loan_header_rec.open_loan_term := p1_a85;
430 ddp_loan_header_rec.open_loan_term_period := p1_a86;
431 ddp_loan_header_rec.open_maturity_date := p1_a87;
432 ddp_loan_header_rec.funds_reserved_flag := p1_a88;
433 ddp_loan_header_rec.funds_check_date := p1_a89;
434 ddp_loan_header_rec.subsidy_rate := p1_a90;
435 ddp_loan_header_rec.application_id := p1_a91;
436 ddp_loan_header_rec.created_by_module := p1_a92;
437 ddp_loan_header_rec.party_type := p1_a93;
438 ddp_loan_header_rec.forgiveness_flag := p1_a94;
439 ddp_loan_header_rec.forgiveness_percent := p1_a95;
440
441
442
443
444
445 -- here's the delegated call to the old PL/SQL routine
446 lns_loan_header_pub.update_loan(p_init_msg_list,
447 ddp_loan_header_rec,
448 p_object_version_number,
449 x_return_status,
450 x_msg_count,
451 x_msg_data);
452
453 -- copy data back from the local variables to OUT or IN-OUT args, if any
454
455
456
457
458
459 end;
460
461 procedure validate_loan(p_init_msg_list VARCHAR2
462 , p1_a0 NUMBER
463 , p1_a1 NUMBER
464 , p1_a2 VARCHAR2
465 , p1_a3 VARCHAR2
466 , p1_a4 DATE
467 , p1_a5 DATE
468 , p1_a6 NUMBER
469 , p1_a7 DATE
470 , p1_a8 NUMBER
471 , p1_a9 NUMBER
472 , p1_a10 VARCHAR2
473 , p1_a11 NUMBER
474 , p1_a12 VARCHAR2
475 , p1_a13 VARCHAR2
476 , p1_a14 NUMBER
477 , p1_a15 VARCHAR2
478 , p1_a16 VARCHAR2
479 , p1_a17 VARCHAR2
480 , p1_a18 VARCHAR2
481 , p1_a19 VARCHAR2
482 , p1_a20 NUMBER
483 , p1_a21 NUMBER
484 , p1_a22 DATE
485 , p1_a23 DATE
486 , p1_a24 DATE
487 , p1_a25 NUMBER
488 , p1_a26 VARCHAR2
489 , p1_a27 VARCHAR2
490 , p1_a28 NUMBER
491 , p1_a29 VARCHAR2
492 , p1_a30 NUMBER
493 , p1_a31 NUMBER
494 , p1_a32 NUMBER
495 , p1_a33 NUMBER
496 , p1_a34 DATE
497 , p1_a35 NUMBER
498 , p1_a36 VARCHAR2
499 , p1_a37 VARCHAR2
500 , p1_a38 VARCHAR2
501 , p1_a39 VARCHAR2
502 , p1_a40 VARCHAR2
503 , p1_a41 VARCHAR2
504 , p1_a42 VARCHAR2
505 , p1_a43 VARCHAR2
506 , p1_a44 VARCHAR2
507 , p1_a45 VARCHAR2
508 , p1_a46 VARCHAR2
509 , p1_a47 VARCHAR2
510 , p1_a48 VARCHAR2
511 , p1_a49 VARCHAR2
512 , p1_a50 VARCHAR2
513 , p1_a51 VARCHAR2
514 , p1_a52 VARCHAR2
515 , p1_a53 VARCHAR2
516 , p1_a54 VARCHAR2
517 , p1_a55 VARCHAR2
518 , p1_a56 VARCHAR2
519 , p1_a57 DATE
520 , p1_a58 VARCHAR2
521 , p1_a59 VARCHAR2
522 , p1_a60 VARCHAR2
523 , p1_a61 VARCHAR2
524 , p1_a62 NUMBER
525 , p1_a63 VARCHAR2
526 , p1_a64 DATE
527 , p1_a65 VARCHAR2
528 , p1_a66 NUMBER
529 , p1_a67 NUMBER
530 , p1_a68 VARCHAR2
531 , p1_a69 VARCHAR2
532 , p1_a70 DATE
533 , p1_a71 NUMBER
534 , p1_a72 NUMBER
535 , p1_a73 NUMBER
536 , p1_a74 NUMBER
537 , p1_a75 NUMBER
538 , p1_a76 VARCHAR2
539 , p1_a77 VARCHAR2
540 , p1_a78 NUMBER
541 , p1_a79 VARCHAR2
542 , p1_a80 VARCHAR2
543 , p1_a81 VARCHAR2
544 , p1_a82 NUMBER
545 , p1_a83 VARCHAR2
546 , p1_a84 DATE
547 , p1_a85 NUMBER
548 , p1_a86 VARCHAR2
549 , p1_a87 DATE
550 , p1_a88 VARCHAR2
551 , p1_a89 DATE
552 , p1_a90 NUMBER
553 , p1_a91 NUMBER
554 , p1_a92 VARCHAR2
555 , p1_a93 VARCHAR2
556 , p1_a94 VARCHAR2
557 , p1_a95 NUMBER
558 , x_return_status out nocopy VARCHAR2
559 , x_msg_count out nocopy NUMBER
560 , x_msg_data out nocopy VARCHAR2
561 )
562
563 as
564 ddp_loan_header_rec lns_loan_header_pub.loan_header_rec_type;
565 ddindx binary_integer; indx binary_integer;
566 begin
567
568 -- copy data to the local IN or IN-OUT args, if any
569
570 ddp_loan_header_rec.loan_id := p1_a0;
571 ddp_loan_header_rec.org_id := p1_a1;
572 ddp_loan_header_rec.loan_number := p1_a2;
573 ddp_loan_header_rec.loan_description := p1_a3;
574 ddp_loan_header_rec.loan_application_date := p1_a4;
575 ddp_loan_header_rec.end_date := p1_a5;
576 ddp_loan_header_rec.initial_loan_balance := p1_a6;
577 ddp_loan_header_rec.last_payment_date := p1_a7;
578 ddp_loan_header_rec.last_payment_amount := p1_a8;
579 ddp_loan_header_rec.loan_term := p1_a9;
580 ddp_loan_header_rec.loan_term_period := p1_a10;
581 ddp_loan_header_rec.amortized_term := p1_a11;
582 ddp_loan_header_rec.amortized_term_period := p1_a12;
583 ddp_loan_header_rec.loan_status := p1_a13;
584 ddp_loan_header_rec.loan_assigned_to := p1_a14;
585 ddp_loan_header_rec.loan_currency := p1_a15;
586 ddp_loan_header_rec.loan_class_code := p1_a16;
587 ddp_loan_header_rec.loan_type := p1_a17;
588 ddp_loan_header_rec.loan_subtype := p1_a18;
589 ddp_loan_header_rec.loan_purpose_code := p1_a19;
590 ddp_loan_header_rec.cust_account_id := p1_a20;
591 ddp_loan_header_rec.bill_to_acct_site_id := p1_a21;
592 ddp_loan_header_rec.loan_maturity_date := p1_a22;
593 ddp_loan_header_rec.loan_start_date := p1_a23;
594 ddp_loan_header_rec.loan_closing_date := p1_a24;
595 ddp_loan_header_rec.reference_id := p1_a25;
596 ddp_loan_header_rec.reference_number := p1_a26;
597 ddp_loan_header_rec.reference_description := p1_a27;
598 ddp_loan_header_rec.reference_amount := p1_a28;
599 ddp_loan_header_rec.product_flag := p1_a29;
600 ddp_loan_header_rec.primary_borrower_id := p1_a30;
601 ddp_loan_header_rec.product_id := p1_a31;
602 ddp_loan_header_rec.requested_amount := p1_a32;
603 ddp_loan_header_rec.funded_amount := p1_a33;
604 ddp_loan_header_rec.loan_approval_date := p1_a34;
605 ddp_loan_header_rec.loan_approved_by := p1_a35;
606 ddp_loan_header_rec.attribute_category := p1_a36;
607 ddp_loan_header_rec.attribute1 := p1_a37;
608 ddp_loan_header_rec.attribute2 := p1_a38;
609 ddp_loan_header_rec.attribute3 := p1_a39;
610 ddp_loan_header_rec.attribute4 := p1_a40;
611 ddp_loan_header_rec.attribute5 := p1_a41;
612 ddp_loan_header_rec.attribute6 := p1_a42;
613 ddp_loan_header_rec.attribute7 := p1_a43;
614 ddp_loan_header_rec.attribute8 := p1_a44;
615 ddp_loan_header_rec.attribute9 := p1_a45;
616 ddp_loan_header_rec.attribute10 := p1_a46;
617 ddp_loan_header_rec.attribute11 := p1_a47;
618 ddp_loan_header_rec.attribute12 := p1_a48;
619 ddp_loan_header_rec.attribute13 := p1_a49;
620 ddp_loan_header_rec.attribute14 := p1_a50;
621 ddp_loan_header_rec.attribute15 := p1_a51;
622 ddp_loan_header_rec.attribute16 := p1_a52;
623 ddp_loan_header_rec.attribute17 := p1_a53;
624 ddp_loan_header_rec.attribute18 := p1_a54;
625 ddp_loan_header_rec.attribute19 := p1_a55;
626 ddp_loan_header_rec.attribute20 := p1_a56;
627 ddp_loan_header_rec.last_billed_date := p1_a57;
628 ddp_loan_header_rec.custom_payments_flag := p1_a58;
629 ddp_loan_header_rec.billed_flag := p1_a59;
630 ddp_loan_header_rec.reference_name := p1_a60;
631 ddp_loan_header_rec.reference_type := p1_a61;
632 ddp_loan_header_rec.reference_type_id := p1_a62;
633 ddp_loan_header_rec.ussgl_transaction_code := p1_a63;
634 ddp_loan_header_rec.gl_date := p1_a64;
635 ddp_loan_header_rec.rec_adjustment_number := p1_a65;
636 ddp_loan_header_rec.contact_rel_party_id := p1_a66;
637 ddp_loan_header_rec.contact_pers_party_id := p1_a67;
638 ddp_loan_header_rec.credit_review_flag := p1_a68;
639 ddp_loan_header_rec.exchange_rate_type := p1_a69;
640 ddp_loan_header_rec.exchange_date := p1_a70;
641 ddp_loan_header_rec.exchange_rate := p1_a71;
642 ddp_loan_header_rec.collateral_percent := p1_a72;
643 ddp_loan_header_rec.last_payment_number := p1_a73;
644 ddp_loan_header_rec.last_amortization_id := p1_a74;
645 ddp_loan_header_rec.legal_entity_id := p1_a75;
646 ddp_loan_header_rec.open_to_term_flag := p1_a76;
647 ddp_loan_header_rec.multiple_funding_flag := p1_a77;
648 ddp_loan_header_rec.loan_type_id := p1_a78;
649 ddp_loan_header_rec.secondary_status := p1_a79;
650 ddp_loan_header_rec.open_to_term_event := p1_a80;
651 ddp_loan_header_rec.balloon_payment_type := p1_a81;
652 ddp_loan_header_rec.balloon_payment_amount := p1_a82;
653 ddp_loan_header_rec.current_phase := p1_a83;
654 ddp_loan_header_rec.open_loan_start_date := p1_a84;
655 ddp_loan_header_rec.open_loan_term := p1_a85;
656 ddp_loan_header_rec.open_loan_term_period := p1_a86;
657 ddp_loan_header_rec.open_maturity_date := p1_a87;
658 ddp_loan_header_rec.funds_reserved_flag := p1_a88;
659 ddp_loan_header_rec.funds_check_date := p1_a89;
660 ddp_loan_header_rec.subsidy_rate := p1_a90;
661 ddp_loan_header_rec.application_id := p1_a91;
662 ddp_loan_header_rec.created_by_module := p1_a92;
663 ddp_loan_header_rec.party_type := p1_a93;
664 ddp_loan_header_rec.forgiveness_flag := p1_a94;
665 ddp_loan_header_rec.forgiveness_percent := p1_a95;
666
667
668
669
670 -- here's the delegated call to the old PL/SQL routine
671 lns_loan_header_pub.validate_loan(p_init_msg_list,
672 ddp_loan_header_rec,
673 x_return_status,
674 x_msg_count,
675 x_msg_data);
676
677 -- copy data back from the local variables to OUT or IN-OUT args, if any
678
679
680
681
682 end;
683
684 procedure get_loan_header_rec(p_init_msg_list VARCHAR2
685 , p_loan_id NUMBER
686 , p2_a0 out nocopy NUMBER
687 , p2_a1 out nocopy NUMBER
688 , p2_a2 out nocopy VARCHAR2
689 , p2_a3 out nocopy VARCHAR2
690 , p2_a4 out nocopy DATE
691 , p2_a5 out nocopy DATE
692 , p2_a6 out nocopy NUMBER
693 , p2_a7 out nocopy DATE
694 , p2_a8 out nocopy NUMBER
695 , p2_a9 out nocopy NUMBER
696 , p2_a10 out nocopy VARCHAR2
697 , p2_a11 out nocopy NUMBER
698 , p2_a12 out nocopy VARCHAR2
699 , p2_a13 out nocopy VARCHAR2
700 , p2_a14 out nocopy NUMBER
701 , p2_a15 out nocopy VARCHAR2
702 , p2_a16 out nocopy VARCHAR2
703 , p2_a17 out nocopy VARCHAR2
704 , p2_a18 out nocopy VARCHAR2
705 , p2_a19 out nocopy VARCHAR2
706 , p2_a20 out nocopy NUMBER
707 , p2_a21 out nocopy NUMBER
708 , p2_a22 out nocopy DATE
709 , p2_a23 out nocopy DATE
710 , p2_a24 out nocopy DATE
711 , p2_a25 out nocopy NUMBER
712 , p2_a26 out nocopy VARCHAR2
713 , p2_a27 out nocopy VARCHAR2
714 , p2_a28 out nocopy NUMBER
715 , p2_a29 out nocopy VARCHAR2
716 , p2_a30 out nocopy NUMBER
717 , p2_a31 out nocopy NUMBER
718 , p2_a32 out nocopy NUMBER
719 , p2_a33 out nocopy NUMBER
720 , p2_a34 out nocopy DATE
721 , p2_a35 out nocopy NUMBER
722 , p2_a36 out nocopy VARCHAR2
723 , p2_a37 out nocopy VARCHAR2
724 , p2_a38 out nocopy VARCHAR2
725 , p2_a39 out nocopy VARCHAR2
726 , p2_a40 out nocopy VARCHAR2
727 , p2_a41 out nocopy VARCHAR2
728 , p2_a42 out nocopy VARCHAR2
729 , p2_a43 out nocopy VARCHAR2
730 , p2_a44 out nocopy VARCHAR2
731 , p2_a45 out nocopy VARCHAR2
732 , p2_a46 out nocopy VARCHAR2
733 , p2_a47 out nocopy VARCHAR2
734 , p2_a48 out nocopy VARCHAR2
735 , p2_a49 out nocopy VARCHAR2
736 , p2_a50 out nocopy VARCHAR2
737 , p2_a51 out nocopy VARCHAR2
738 , p2_a52 out nocopy VARCHAR2
739 , p2_a53 out nocopy VARCHAR2
740 , p2_a54 out nocopy VARCHAR2
741 , p2_a55 out nocopy VARCHAR2
742 , p2_a56 out nocopy VARCHAR2
743 , p2_a57 out nocopy DATE
744 , p2_a58 out nocopy VARCHAR2
745 , p2_a59 out nocopy VARCHAR2
746 , p2_a60 out nocopy VARCHAR2
747 , p2_a61 out nocopy VARCHAR2
748 , p2_a62 out nocopy NUMBER
749 , p2_a63 out nocopy VARCHAR2
750 , p2_a64 out nocopy DATE
751 , p2_a65 out nocopy VARCHAR2
752 , p2_a66 out nocopy NUMBER
753 , p2_a67 out nocopy NUMBER
754 , p2_a68 out nocopy VARCHAR2
755 , p2_a69 out nocopy VARCHAR2
756 , p2_a70 out nocopy DATE
757 , p2_a71 out nocopy NUMBER
758 , p2_a72 out nocopy NUMBER
759 , p2_a73 out nocopy NUMBER
760 , p2_a74 out nocopy NUMBER
761 , p2_a75 out nocopy NUMBER
762 , p2_a76 out nocopy VARCHAR2
763 , p2_a77 out nocopy VARCHAR2
764 , p2_a78 out nocopy NUMBER
765 , p2_a79 out nocopy VARCHAR2
766 , p2_a80 out nocopy VARCHAR2
767 , p2_a81 out nocopy VARCHAR2
768 , p2_a82 out nocopy NUMBER
769 , p2_a83 out nocopy VARCHAR2
770 , p2_a84 out nocopy DATE
771 , p2_a85 out nocopy NUMBER
772 , p2_a86 out nocopy VARCHAR2
773 , p2_a87 out nocopy DATE
774 , p2_a88 out nocopy VARCHAR2
775 , p2_a89 out nocopy DATE
776 , p2_a90 out nocopy NUMBER
777 , p2_a91 out nocopy NUMBER
778 , p2_a92 out nocopy VARCHAR2
779 , p2_a93 out nocopy VARCHAR2
780 , p2_a94 out nocopy VARCHAR2
781 , p2_a95 out nocopy NUMBER
782 , x_return_status out nocopy VARCHAR2
783 , x_msg_count out nocopy NUMBER
784 , x_msg_data out nocopy VARCHAR2
785 )
786
787 as
788 ddx_loan_header_rec lns_loan_header_pub.loan_header_rec_type;
789 ddindx binary_integer; indx binary_integer;
790 begin
791
792 -- copy data to the local IN or IN-OUT args, if any
793
794
795
796
797
798
799 -- here's the delegated call to the old PL/SQL routine
800 lns_loan_header_pub.get_loan_header_rec(p_init_msg_list,
801 p_loan_id,
802 ddx_loan_header_rec,
803 x_return_status,
804 x_msg_count,
805 x_msg_data);
806
807 -- copy data back from the local variables to OUT or IN-OUT args, if any
808
809
810 p2_a0 := ddx_loan_header_rec.loan_id;
811 p2_a1 := ddx_loan_header_rec.org_id;
812 p2_a2 := ddx_loan_header_rec.loan_number;
813 p2_a3 := ddx_loan_header_rec.loan_description;
814 p2_a4 := ddx_loan_header_rec.loan_application_date;
815 p2_a5 := ddx_loan_header_rec.end_date;
816 p2_a6 := ddx_loan_header_rec.initial_loan_balance;
817 p2_a7 := ddx_loan_header_rec.last_payment_date;
818 p2_a8 := ddx_loan_header_rec.last_payment_amount;
819 p2_a9 := ddx_loan_header_rec.loan_term;
820 p2_a10 := ddx_loan_header_rec.loan_term_period;
821 p2_a11 := ddx_loan_header_rec.amortized_term;
822 p2_a12 := ddx_loan_header_rec.amortized_term_period;
823 p2_a13 := ddx_loan_header_rec.loan_status;
824 p2_a14 := ddx_loan_header_rec.loan_assigned_to;
825 p2_a15 := ddx_loan_header_rec.loan_currency;
826 p2_a16 := ddx_loan_header_rec.loan_class_code;
827 p2_a17 := ddx_loan_header_rec.loan_type;
828 p2_a18 := ddx_loan_header_rec.loan_subtype;
829 p2_a19 := ddx_loan_header_rec.loan_purpose_code;
830 p2_a20 := ddx_loan_header_rec.cust_account_id;
831 p2_a21 := ddx_loan_header_rec.bill_to_acct_site_id;
832 p2_a22 := ddx_loan_header_rec.loan_maturity_date;
833 p2_a23 := ddx_loan_header_rec.loan_start_date;
834 p2_a24 := ddx_loan_header_rec.loan_closing_date;
835 p2_a25 := ddx_loan_header_rec.reference_id;
836 p2_a26 := ddx_loan_header_rec.reference_number;
837 p2_a27 := ddx_loan_header_rec.reference_description;
838 p2_a28 := ddx_loan_header_rec.reference_amount;
839 p2_a29 := ddx_loan_header_rec.product_flag;
840 p2_a30 := ddx_loan_header_rec.primary_borrower_id;
841 p2_a31 := ddx_loan_header_rec.product_id;
842 p2_a32 := ddx_loan_header_rec.requested_amount;
843 p2_a33 := ddx_loan_header_rec.funded_amount;
844 p2_a34 := ddx_loan_header_rec.loan_approval_date;
845 p2_a35 := ddx_loan_header_rec.loan_approved_by;
846 p2_a36 := ddx_loan_header_rec.attribute_category;
847 p2_a37 := ddx_loan_header_rec.attribute1;
848 p2_a38 := ddx_loan_header_rec.attribute2;
849 p2_a39 := ddx_loan_header_rec.attribute3;
850 p2_a40 := ddx_loan_header_rec.attribute4;
851 p2_a41 := ddx_loan_header_rec.attribute5;
852 p2_a42 := ddx_loan_header_rec.attribute6;
853 p2_a43 := ddx_loan_header_rec.attribute7;
854 p2_a44 := ddx_loan_header_rec.attribute8;
855 p2_a45 := ddx_loan_header_rec.attribute9;
856 p2_a46 := ddx_loan_header_rec.attribute10;
857 p2_a47 := ddx_loan_header_rec.attribute11;
858 p2_a48 := ddx_loan_header_rec.attribute12;
859 p2_a49 := ddx_loan_header_rec.attribute13;
860 p2_a50 := ddx_loan_header_rec.attribute14;
861 p2_a51 := ddx_loan_header_rec.attribute15;
862 p2_a52 := ddx_loan_header_rec.attribute16;
863 p2_a53 := ddx_loan_header_rec.attribute17;
864 p2_a54 := ddx_loan_header_rec.attribute18;
865 p2_a55 := ddx_loan_header_rec.attribute19;
866 p2_a56 := ddx_loan_header_rec.attribute20;
867 p2_a57 := ddx_loan_header_rec.last_billed_date;
868 p2_a58 := ddx_loan_header_rec.custom_payments_flag;
869 p2_a59 := ddx_loan_header_rec.billed_flag;
870 p2_a60 := ddx_loan_header_rec.reference_name;
871 p2_a61 := ddx_loan_header_rec.reference_type;
872 p2_a62 := ddx_loan_header_rec.reference_type_id;
873 p2_a63 := ddx_loan_header_rec.ussgl_transaction_code;
874 p2_a64 := ddx_loan_header_rec.gl_date;
875 p2_a65 := ddx_loan_header_rec.rec_adjustment_number;
876 p2_a66 := ddx_loan_header_rec.contact_rel_party_id;
877 p2_a67 := ddx_loan_header_rec.contact_pers_party_id;
878 p2_a68 := ddx_loan_header_rec.credit_review_flag;
879 p2_a69 := ddx_loan_header_rec.exchange_rate_type;
880 p2_a70 := ddx_loan_header_rec.exchange_date;
881 p2_a71 := ddx_loan_header_rec.exchange_rate;
882 p2_a72 := ddx_loan_header_rec.collateral_percent;
883 p2_a73 := ddx_loan_header_rec.last_payment_number;
884 p2_a74 := ddx_loan_header_rec.last_amortization_id;
885 p2_a75 := ddx_loan_header_rec.legal_entity_id;
886 p2_a76 := ddx_loan_header_rec.open_to_term_flag;
887 p2_a77 := ddx_loan_header_rec.multiple_funding_flag;
888 p2_a78 := ddx_loan_header_rec.loan_type_id;
889 p2_a79 := ddx_loan_header_rec.secondary_status;
890 p2_a80 := ddx_loan_header_rec.open_to_term_event;
891 p2_a81 := ddx_loan_header_rec.balloon_payment_type;
892 p2_a82 := ddx_loan_header_rec.balloon_payment_amount;
893 p2_a83 := ddx_loan_header_rec.current_phase;
894 p2_a84 := ddx_loan_header_rec.open_loan_start_date;
895 p2_a85 := ddx_loan_header_rec.open_loan_term;
896 p2_a86 := ddx_loan_header_rec.open_loan_term_period;
897 p2_a87 := ddx_loan_header_rec.open_maturity_date;
898 p2_a88 := ddx_loan_header_rec.funds_reserved_flag;
899 p2_a89 := ddx_loan_header_rec.funds_check_date;
900 p2_a90 := ddx_loan_header_rec.subsidy_rate;
901 p2_a91 := ddx_loan_header_rec.application_id;
902 p2_a92 := ddx_loan_header_rec.created_by_module;
903 p2_a93 := ddx_loan_header_rec.party_type;
904 p2_a94 := ddx_loan_header_rec.forgiveness_flag;
905 p2_a95 := ddx_loan_header_rec.forgiveness_percent;
906
907
908
909 end;
910
911 end lns_loan_header_pub_w;