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