[Home] [Help]
PACKAGE BODY: APPS.OKL_VENDOR_PROGRAM_PUB_W
Source
1 package body okl_vendor_program_pub_w as
2 /* $Header: OKLUPRMB.pls 120.8 2005/12/29 08:42:57 abindal noship $ */
3 procedure create_program(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , x_return_status out nocopy VARCHAR2
6 , x_msg_count out nocopy NUMBER
7 , x_msg_data out nocopy VARCHAR2
8 , p5_a0 VARCHAR2
9 , p5_a1 VARCHAR2
10 , p5_a2 DATE
11 , p5_a3 DATE
12 , p5_a4 VARCHAR2
13 , p5_a5 VARCHAR2
14 , p5_a6 VARCHAR2
15 , p5_a7 VARCHAR2
16 , p5_a8 NUMBER
17 , p5_a9 VARCHAR2
18 , p5_a10 NUMBER
19 , p5_a11 NUMBER
20 , p5_a12 VARCHAR2
21 , p5_a13 VARCHAR2
22 , p5_a14 VARCHAR2
23 , p5_a15 VARCHAR2
24 , p5_a16 VARCHAR2
25 , p5_a17 VARCHAR2
26 , p5_a18 VARCHAR2
27 , p5_a19 VARCHAR2
28 , p5_a20 VARCHAR2
29 , p5_a21 VARCHAR2
30 , p5_a22 VARCHAR2
31 , p5_a23 VARCHAR2
32 , p5_a24 VARCHAR2
33 , p5_a25 VARCHAR2
34 , p5_a26 VARCHAR2
35 , p5_a27 VARCHAR2
36 , p5_a28 VARCHAR2
37 , p5_a29 VARCHAR2
38 , p_parent_agreement_number VARCHAR2
39 , p7_a0 out nocopy NUMBER
40 , p7_a1 out nocopy NUMBER
41 , p7_a2 out nocopy VARCHAR2
42 , p7_a3 out nocopy NUMBER
43 , p7_a4 out nocopy NUMBER
44 , p7_a5 out nocopy NUMBER
45 , p7_a6 out nocopy NUMBER
46 , p7_a7 out nocopy VARCHAR2
47 , p7_a8 out nocopy NUMBER
48 , p7_a9 out nocopy VARCHAR2
49 , p7_a10 out nocopy VARCHAR2
50 , p7_a11 out nocopy VARCHAR2
51 , p7_a12 out nocopy VARCHAR2
52 , p7_a13 out nocopy VARCHAR2
53 , p7_a14 out nocopy VARCHAR2
54 , p7_a15 out nocopy VARCHAR2
55 , p7_a16 out nocopy VARCHAR2
56 , p7_a17 out nocopy VARCHAR2
57 , p7_a18 out nocopy VARCHAR2
58 , p7_a19 out nocopy VARCHAR2
59 , p7_a20 out nocopy VARCHAR2
60 , p7_a21 out nocopy VARCHAR2
61 , p7_a22 out nocopy VARCHAR2
62 , p7_a23 out nocopy VARCHAR2
63 , p7_a24 out nocopy VARCHAR2
64 , p7_a25 out nocopy DATE
65 , p7_a26 out nocopy DATE
66 , p7_a27 out nocopy NUMBER
67 , p7_a28 out nocopy DATE
68 , p7_a29 out nocopy DATE
69 , p7_a30 out nocopy VARCHAR2
70 , p7_a31 out nocopy VARCHAR2
71 , p7_a32 out nocopy VARCHAR2
72 , p7_a33 out nocopy VARCHAR2
73 , p7_a34 out nocopy VARCHAR2
74 , p7_a35 out nocopy VARCHAR2
75 , p7_a36 out nocopy NUMBER
76 , p7_a37 out nocopy NUMBER
77 , p7_a38 out nocopy DATE
78 , p7_a39 out nocopy DATE
79 , p7_a40 out nocopy DATE
80 , p7_a41 out nocopy DATE
81 , p7_a42 out nocopy DATE
82 , p7_a43 out nocopy VARCHAR2
83 , p7_a44 out nocopy DATE
84 , p7_a45 out nocopy DATE
85 , p7_a46 out nocopy NUMBER
86 , p7_a47 out nocopy VARCHAR2
87 , p7_a48 out nocopy VARCHAR2
88 , p7_a49 out nocopy NUMBER
89 , p7_a50 out nocopy NUMBER
90 , p7_a51 out nocopy NUMBER
91 , p7_a52 out nocopy VARCHAR2
92 , p7_a53 out nocopy VARCHAR2
93 , p7_a54 out nocopy NUMBER
94 , p7_a55 out nocopy NUMBER
95 , p7_a56 out nocopy VARCHAR2
96 , p7_a57 out nocopy NUMBER
97 , p7_a58 out nocopy VARCHAR2
98 , p7_a59 out nocopy NUMBER
99 , p7_a60 out nocopy NUMBER
100 , p7_a61 out nocopy NUMBER
101 , p7_a62 out nocopy DATE
102 , p7_a63 out nocopy DATE
103 , p7_a64 out nocopy DATE
104 , p7_a65 out nocopy NUMBER
105 , p7_a66 out nocopy NUMBER
106 , p7_a67 out nocopy NUMBER
107 , p7_a68 out nocopy VARCHAR2
108 , p7_a69 out nocopy VARCHAR2
109 , p7_a70 out nocopy VARCHAR2
110 , p7_a71 out nocopy VARCHAR2
111 , p7_a72 out nocopy VARCHAR2
112 , p7_a73 out nocopy VARCHAR2
113 , p7_a74 out nocopy VARCHAR2
114 , p7_a75 out nocopy VARCHAR2
115 , p7_a76 out nocopy VARCHAR2
116 , p7_a77 out nocopy VARCHAR2
117 , p7_a78 out nocopy VARCHAR2
118 , p7_a79 out nocopy VARCHAR2
119 , p7_a80 out nocopy VARCHAR2
120 , p7_a81 out nocopy VARCHAR2
121 , p7_a82 out nocopy VARCHAR2
122 , p7_a83 out nocopy VARCHAR2
123 , p7_a84 out nocopy NUMBER
124 , p7_a85 out nocopy DATE
125 , p7_a86 out nocopy NUMBER
126 , p7_a87 out nocopy DATE
127 , p7_a88 out nocopy NUMBER
128 , p7_a89 out nocopy VARCHAR2
129 , p7_a90 out nocopy VARCHAR2
130 , p7_a91 out nocopy VARCHAR2
131 , p7_a92 out nocopy VARCHAR2
132 , p7_a93 out nocopy VARCHAR2
133 , p7_a94 out nocopy NUMBER
134 , p7_a95 out nocopy DATE
135 , p7_a96 out nocopy NUMBER
136 , p7_a97 out nocopy NUMBER
137 , p7_a98 out nocopy NUMBER
138 , p7_a99 out nocopy NUMBER
139 , p7_a100 out nocopy VARCHAR2
140 , p7_a101 out nocopy NUMBER
141 , p7_a102 out nocopy DATE
142 , p7_a103 out nocopy NUMBER
143 , p7_a104 out nocopy NUMBER
144 , p8_a0 out nocopy NUMBER
145 , p8_a1 out nocopy NUMBER
146 , p8_a2 out nocopy NUMBER
147 , p8_a3 out nocopy NUMBER
148 , p8_a4 out nocopy NUMBER
149 , p8_a5 out nocopy VARCHAR2
150 , p8_a6 out nocopy DATE
151 , p8_a7 out nocopy VARCHAR2
152 , p8_a8 out nocopy VARCHAR2
153 , p8_a9 out nocopy DATE
154 , p8_a10 out nocopy VARCHAR2
155 , p8_a11 out nocopy NUMBER
156 , p8_a12 out nocopy VARCHAR2
157 , p8_a13 out nocopy DATE
158 , p8_a14 out nocopy VARCHAR2
159 , p8_a15 out nocopy VARCHAR2
160 , p8_a16 out nocopy DATE
161 , p8_a17 out nocopy DATE
162 , p8_a18 out nocopy DATE
163 , p8_a19 out nocopy DATE
164 , p8_a20 out nocopy VARCHAR2
165 , p8_a21 out nocopy VARCHAR2
166 , p8_a22 out nocopy VARCHAR2
167 , p8_a23 out nocopy VARCHAR2
168 , p8_a24 out nocopy VARCHAR2
169 , p8_a25 out nocopy VARCHAR2
170 , p8_a26 out nocopy VARCHAR2
171 , p8_a27 out nocopy VARCHAR2
172 , p8_a28 out nocopy VARCHAR2
173 , p8_a29 out nocopy VARCHAR2
174 , p8_a30 out nocopy VARCHAR2
175 , p8_a31 out nocopy VARCHAR2
176 , p8_a32 out nocopy VARCHAR2
177 , p8_a33 out nocopy VARCHAR2
178 , p8_a34 out nocopy VARCHAR2
179 , p8_a35 out nocopy VARCHAR2
180 , p8_a36 out nocopy NUMBER
181 , p8_a37 out nocopy DATE
182 , p8_a38 out nocopy NUMBER
183 , p8_a39 out nocopy DATE
184 , p8_a40 out nocopy NUMBER
185 , p8_a41 out nocopy NUMBER
186 , p8_a42 out nocopy NUMBER
187 , p8_a43 out nocopy NUMBER
188 , p8_a44 out nocopy NUMBER
189 , p8_a45 out nocopy NUMBER
190 , p8_a46 out nocopy NUMBER
191 , p8_a47 out nocopy NUMBER
192 , p8_a48 out nocopy NUMBER
193 , p8_a49 out nocopy DATE
194 , p8_a50 out nocopy VARCHAR2
195 , p8_a51 out nocopy NUMBER
196 , p8_a52 out nocopy NUMBER
197 , p8_a53 out nocopy DATE
198 , p8_a54 out nocopy DATE
199 , p8_a55 out nocopy VARCHAR2
200 , p8_a56 out nocopy VARCHAR2
201 , p8_a57 out nocopy VARCHAR2
202 , p8_a58 out nocopy NUMBER
203 , p8_a59 out nocopy DATE
204 , p8_a60 out nocopy VARCHAR2
205 , p8_a61 out nocopy VARCHAR2
206 , p8_a62 out nocopy VARCHAR2
207 , p8_a63 out nocopy VARCHAR2
208 , p8_a64 out nocopy VARCHAR2
209 , p8_a65 out nocopy VARCHAR2
210 , p8_a66 out nocopy NUMBER
211 , p8_a67 out nocopy NUMBER
212 , p8_a68 out nocopy NUMBER
213 , p8_a69 out nocopy NUMBER
214 , p8_a70 out nocopy NUMBER
215 , p8_a71 out nocopy NUMBER
216 , p8_a72 out nocopy NUMBER
217 , p8_a73 out nocopy NUMBER
218 , p8_a74 out nocopy NUMBER
219 , p8_a75 out nocopy NUMBER
220 , p8_a76 out nocopy NUMBER
221 , p8_a77 out nocopy VARCHAR2
222 , p8_a78 out nocopy DATE
223 , p8_a79 out nocopy DATE
224 , p8_a80 out nocopy NUMBER
225 , p8_a81 out nocopy VARCHAR2
226 , p8_a82 out nocopy VARCHAR
227 )
228
229 as
230 ddp_hdr_rec okl_vendor_program_pub.program_header_rec_type;
231 ddx_header_rec okl_vendor_program_pub.chrv_rec_type;
232 ddx_k_header_rec okl_vendor_program_pub.khrv_rec_type;
233 ddindx binary_integer; indx binary_integer;
234 begin
235
236 -- copy data to the local IN or IN-OUT args, if any
237
238
239
240
241
242 ddp_hdr_rec.p_agreement_number := p5_a0;
243 ddp_hdr_rec.p_contract_category := p5_a1;
244 ddp_hdr_rec.p_start_date := p5_a2;
245 ddp_hdr_rec.p_end_date := p5_a3;
246 ddp_hdr_rec.p_short_description := p5_a4;
247 ddp_hdr_rec.p_description := p5_a5;
248 ddp_hdr_rec.p_comments := p5_a6;
249 ddp_hdr_rec.p_template_yn := p5_a7;
250 ddp_hdr_rec.p_qcl_id := p5_a8;
251 ddp_hdr_rec.p_issue_or_receive := p5_a9;
252 ddp_hdr_rec.p_workflow_process := p5_a10;
253 ddp_hdr_rec.p_referred_id := p5_a11;
254 ddp_hdr_rec.p_object1_id1 := p5_a12;
255 ddp_hdr_rec.p_object1_id2 := p5_a13;
256 ddp_hdr_rec.p_attribute_category := p5_a14;
257 ddp_hdr_rec.p_attribute1 := p5_a15;
258 ddp_hdr_rec.p_attribute2 := p5_a16;
259 ddp_hdr_rec.p_attribute3 := p5_a17;
260 ddp_hdr_rec.p_attribute4 := p5_a18;
261 ddp_hdr_rec.p_attribute5 := p5_a19;
262 ddp_hdr_rec.p_attribute6 := p5_a20;
263 ddp_hdr_rec.p_attribute7 := p5_a21;
264 ddp_hdr_rec.p_attribute8 := p5_a22;
265 ddp_hdr_rec.p_attribute9 := p5_a23;
266 ddp_hdr_rec.p_attribute10 := p5_a24;
267 ddp_hdr_rec.p_attribute11 := p5_a25;
268 ddp_hdr_rec.p_attribute12 := p5_a26;
269 ddp_hdr_rec.p_attribute13 := p5_a27;
270 ddp_hdr_rec.p_attribute14 := p5_a28;
271 ddp_hdr_rec.p_attribute15 := p5_a29;
272
273
274
275
276 -- here's the delegated call to the old PL/SQL routine
277 okl_vendor_program_pub.create_program(p_api_version,
278 p_init_msg_list,
279 x_return_status,
280 x_msg_count,
281 x_msg_data,
282 ddp_hdr_rec,
283 p_parent_agreement_number,
284 ddx_header_rec,
285 ddx_k_header_rec);
286
287 -- copy data back from the local variables to OUT or IN-OUT args, if any
288
289
290
291
292
293
294
295 p7_a0 := ddx_header_rec.id;
296 p7_a1 := ddx_header_rec.object_version_number;
297 p7_a2 := ddx_header_rec.sfwt_flag;
298 p7_a3 := ddx_header_rec.chr_id_response;
299 p7_a4 := ddx_header_rec.chr_id_award;
300 p7_a5 := ddx_header_rec.chr_id_renewed;
301 p7_a6 := ddx_header_rec.inv_organization_id;
302 p7_a7 := ddx_header_rec.sts_code;
303 p7_a8 := ddx_header_rec.qcl_id;
304 p7_a9 := ddx_header_rec.scs_code;
305 p7_a10 := ddx_header_rec.contract_number;
306 p7_a11 := ddx_header_rec.currency_code;
307 p7_a12 := ddx_header_rec.contract_number_modifier;
308 p7_a13 := ddx_header_rec.archived_yn;
309 p7_a14 := ddx_header_rec.deleted_yn;
310 p7_a15 := ddx_header_rec.cust_po_number_req_yn;
311 p7_a16 := ddx_header_rec.pre_pay_req_yn;
312 p7_a17 := ddx_header_rec.cust_po_number;
313 p7_a18 := ddx_header_rec.short_description;
314 p7_a19 := ddx_header_rec.comments;
315 p7_a20 := ddx_header_rec.description;
316 p7_a21 := ddx_header_rec.dpas_rating;
317 p7_a22 := ddx_header_rec.cognomen;
318 p7_a23 := ddx_header_rec.template_yn;
319 p7_a24 := ddx_header_rec.template_used;
320 p7_a25 := ddx_header_rec.date_approved;
321 p7_a26 := ddx_header_rec.datetime_cancelled;
322 p7_a27 := ddx_header_rec.auto_renew_days;
323 p7_a28 := ddx_header_rec.date_issued;
324 p7_a29 := ddx_header_rec.datetime_responded;
325 p7_a30 := ddx_header_rec.non_response_reason;
326 p7_a31 := ddx_header_rec.non_response_explain;
327 p7_a32 := ddx_header_rec.rfp_type;
328 p7_a33 := ddx_header_rec.chr_type;
329 p7_a34 := ddx_header_rec.keep_on_mail_list;
330 p7_a35 := ddx_header_rec.set_aside_reason;
331 p7_a36 := ddx_header_rec.set_aside_percent;
332 p7_a37 := ddx_header_rec.response_copies_req;
333 p7_a38 := ddx_header_rec.date_close_projected;
334 p7_a39 := ddx_header_rec.datetime_proposed;
335 p7_a40 := ddx_header_rec.date_signed;
336 p7_a41 := ddx_header_rec.date_terminated;
337 p7_a42 := ddx_header_rec.date_renewed;
338 p7_a43 := ddx_header_rec.trn_code;
339 p7_a44 := ddx_header_rec.start_date;
340 p7_a45 := ddx_header_rec.end_date;
341 p7_a46 := ddx_header_rec.authoring_org_id;
342 p7_a47 := ddx_header_rec.buy_or_sell;
343 p7_a48 := ddx_header_rec.issue_or_receive;
344 p7_a49 := ddx_header_rec.estimated_amount;
345 p7_a50 := ddx_header_rec.chr_id_renewed_to;
346 p7_a51 := ddx_header_rec.estimated_amount_renewed;
347 p7_a52 := ddx_header_rec.currency_code_renewed;
348 p7_a53 := ddx_header_rec.upg_orig_system_ref;
349 p7_a54 := ddx_header_rec.upg_orig_system_ref_id;
350 p7_a55 := ddx_header_rec.application_id;
351 p7_a56 := ddx_header_rec.orig_system_source_code;
352 p7_a57 := ddx_header_rec.orig_system_id1;
353 p7_a58 := ddx_header_rec.orig_system_reference1;
354 p7_a59 := ddx_header_rec.program_id;
355 p7_a60 := ddx_header_rec.request_id;
356 p7_a61 := ddx_header_rec.price_list_id;
357 p7_a62 := ddx_header_rec.pricing_date;
358 p7_a63 := ddx_header_rec.sign_by_date;
359 p7_a64 := ddx_header_rec.program_update_date;
360 p7_a65 := ddx_header_rec.total_line_list_price;
361 p7_a66 := ddx_header_rec.program_application_id;
362 p7_a67 := ddx_header_rec.user_estimated_amount;
363 p7_a68 := ddx_header_rec.attribute_category;
364 p7_a69 := ddx_header_rec.attribute1;
365 p7_a70 := ddx_header_rec.attribute2;
366 p7_a71 := ddx_header_rec.attribute3;
367 p7_a72 := ddx_header_rec.attribute4;
368 p7_a73 := ddx_header_rec.attribute5;
369 p7_a74 := ddx_header_rec.attribute6;
370 p7_a75 := ddx_header_rec.attribute7;
371 p7_a76 := ddx_header_rec.attribute8;
372 p7_a77 := ddx_header_rec.attribute9;
373 p7_a78 := ddx_header_rec.attribute10;
374 p7_a79 := ddx_header_rec.attribute11;
375 p7_a80 := ddx_header_rec.attribute12;
376 p7_a81 := ddx_header_rec.attribute13;
377 p7_a82 := ddx_header_rec.attribute14;
378 p7_a83 := ddx_header_rec.attribute15;
379 p7_a84 := ddx_header_rec.created_by;
380 p7_a85 := ddx_header_rec.creation_date;
381 p7_a86 := ddx_header_rec.last_updated_by;
382 p7_a87 := ddx_header_rec.last_update_date;
383 p7_a88 := ddx_header_rec.last_update_login;
384 p7_a89 := ddx_header_rec.old_sts_code;
385 p7_a90 := ddx_header_rec.new_sts_code;
386 p7_a91 := ddx_header_rec.old_ste_code;
387 p7_a92 := ddx_header_rec.new_ste_code;
388 p7_a93 := ddx_header_rec.conversion_type;
389 p7_a94 := ddx_header_rec.conversion_rate;
390 p7_a95 := ddx_header_rec.conversion_rate_date;
391 p7_a96 := ddx_header_rec.conversion_euro_rate;
392 p7_a97 := ddx_header_rec.cust_acct_id;
393 p7_a98 := ddx_header_rec.bill_to_site_use_id;
394 p7_a99 := ddx_header_rec.inv_rule_id;
395 p7_a100 := ddx_header_rec.renewal_type_code;
396 p7_a101 := ddx_header_rec.renewal_notify_to;
397 p7_a102 := ddx_header_rec.renewal_end_date;
398 p7_a103 := ddx_header_rec.ship_to_site_use_id;
399 p7_a104 := ddx_header_rec.payment_term_id;
400
401 p8_a0 := ddx_k_header_rec.id;
402 p8_a1 := ddx_k_header_rec.object_version_number;
403 p8_a2 := ddx_k_header_rec.isg_id;
404 p8_a3 := ddx_k_header_rec.khr_id;
405 p8_a4 := ddx_k_header_rec.pdt_id;
406 p8_a5 := ddx_k_header_rec.amd_code;
407 p8_a6 := ddx_k_header_rec.date_first_activity;
408 p8_a7 := ddx_k_header_rec.generate_accrual_yn;
409 p8_a8 := ddx_k_header_rec.generate_accrual_override_yn;
410 p8_a9 := ddx_k_header_rec.date_refinanced;
411 p8_a10 := ddx_k_header_rec.credit_act_yn;
412 p8_a11 := ddx_k_header_rec.term_duration;
413 p8_a12 := ddx_k_header_rec.converted_account_yn;
414 p8_a13 := ddx_k_header_rec.date_conversion_effective;
415 p8_a14 := ddx_k_header_rec.syndicatable_yn;
416 p8_a15 := ddx_k_header_rec.salestype_yn;
417 p8_a16 := ddx_k_header_rec.date_deal_transferred;
418 p8_a17 := ddx_k_header_rec.datetime_proposal_effective;
419 p8_a18 := ddx_k_header_rec.datetime_proposal_ineffective;
420 p8_a19 := ddx_k_header_rec.date_proposal_accepted;
421 p8_a20 := ddx_k_header_rec.attribute_category;
422 p8_a21 := ddx_k_header_rec.attribute1;
423 p8_a22 := ddx_k_header_rec.attribute2;
424 p8_a23 := ddx_k_header_rec.attribute3;
425 p8_a24 := ddx_k_header_rec.attribute4;
426 p8_a25 := ddx_k_header_rec.attribute5;
427 p8_a26 := ddx_k_header_rec.attribute6;
428 p8_a27 := ddx_k_header_rec.attribute7;
429 p8_a28 := ddx_k_header_rec.attribute8;
430 p8_a29 := ddx_k_header_rec.attribute9;
431 p8_a30 := ddx_k_header_rec.attribute10;
432 p8_a31 := ddx_k_header_rec.attribute11;
433 p8_a32 := ddx_k_header_rec.attribute12;
434 p8_a33 := ddx_k_header_rec.attribute13;
435 p8_a34 := ddx_k_header_rec.attribute14;
436 p8_a35 := ddx_k_header_rec.attribute15;
437 p8_a36 := ddx_k_header_rec.created_by;
438 p8_a37 := ddx_k_header_rec.creation_date;
439 p8_a38 := ddx_k_header_rec.last_updated_by;
440 p8_a39 := ddx_k_header_rec.last_update_date;
441 p8_a40 := ddx_k_header_rec.last_update_login;
442 p8_a41 := ddx_k_header_rec.pre_tax_yield;
443 p8_a42 := ddx_k_header_rec.after_tax_yield;
444 p8_a43 := ddx_k_header_rec.implicit_interest_rate;
445 p8_a44 := ddx_k_header_rec.implicit_non_idc_interest_rate;
446 p8_a45 := ddx_k_header_rec.target_pre_tax_yield;
447 p8_a46 := ddx_k_header_rec.target_after_tax_yield;
448 p8_a47 := ddx_k_header_rec.target_implicit_interest_rate;
449 p8_a48 := ddx_k_header_rec.target_implicit_nonidc_intrate;
450 p8_a49 := ddx_k_header_rec.date_last_interim_interest_cal;
451 p8_a50 := ddx_k_header_rec.deal_type;
452 p8_a51 := ddx_k_header_rec.pre_tax_irr;
453 p8_a52 := ddx_k_header_rec.after_tax_irr;
454 p8_a53 := ddx_k_header_rec.expected_delivery_date;
455 p8_a54 := ddx_k_header_rec.accepted_date;
456 p8_a55 := ddx_k_header_rec.prefunding_eligible_yn;
457 p8_a56 := ddx_k_header_rec.revolving_credit_yn;
458 p8_a57 := ddx_k_header_rec.currency_conversion_type;
459 p8_a58 := ddx_k_header_rec.currency_conversion_rate;
460 p8_a59 := ddx_k_header_rec.currency_conversion_date;
461 p8_a60 := ddx_k_header_rec.multi_gaap_yn;
462 p8_a61 := ddx_k_header_rec.recourse_code;
463 p8_a62 := ddx_k_header_rec.lessor_serv_org_code;
464 p8_a63 := ddx_k_header_rec.assignable_yn;
465 p8_a64 := ddx_k_header_rec.securitized_code;
466 p8_a65 := ddx_k_header_rec.securitization_type;
467 p8_a66 := ddx_k_header_rec.sub_pre_tax_yield;
468 p8_a67 := ddx_k_header_rec.sub_after_tax_yield;
469 p8_a68 := ddx_k_header_rec.sub_impl_interest_rate;
470 p8_a69 := ddx_k_header_rec.sub_impl_non_idc_int_rate;
471 p8_a70 := ddx_k_header_rec.sub_pre_tax_irr;
472 p8_a71 := ddx_k_header_rec.sub_after_tax_irr;
473 p8_a72 := ddx_k_header_rec.tot_cl_transfer_amt;
474 p8_a73 := ddx_k_header_rec.tot_cl_net_transfer_amt;
475 p8_a74 := ddx_k_header_rec.tot_cl_limit;
476 p8_a75 := ddx_k_header_rec.tot_cl_funding_amt;
477 p8_a76 := ddx_k_header_rec.crs_id;
478 p8_a77 := ddx_k_header_rec.template_type_code;
479 p8_a78 := ddx_k_header_rec.date_funding_expected;
480 p8_a79 := ddx_k_header_rec.date_tradein;
481 p8_a80 := ddx_k_header_rec.tradein_amount;
482 p8_a81 := ddx_k_header_rec.tradein_description;
483 p8_a82 := ddx_k_header_rec.validate_dff_yn;
484 end;
485
486 procedure update_program(p_api_version NUMBER
487 , p_init_msg_list VARCHAR2
488 , x_return_status out nocopy VARCHAR2
489 , x_msg_count out nocopy NUMBER
490 , x_msg_data out nocopy VARCHAR2
491 , p5_a0 VARCHAR2
492 , p5_a1 VARCHAR2
493 , p5_a2 DATE
494 , p5_a3 DATE
495 , p5_a4 VARCHAR2
496 , p5_a5 VARCHAR2
497 , p5_a6 VARCHAR2
498 , p5_a7 VARCHAR2
499 , p5_a8 NUMBER
500 , p5_a9 VARCHAR2
501 , p5_a10 NUMBER
502 , p5_a11 NUMBER
503 , p5_a12 VARCHAR2
504 , p5_a13 VARCHAR2
505 , p5_a14 VARCHAR2
506 , p5_a15 VARCHAR2
507 , p5_a16 VARCHAR2
508 , p5_a17 VARCHAR2
509 , p5_a18 VARCHAR2
510 , p5_a19 VARCHAR2
511 , p5_a20 VARCHAR2
512 , p5_a21 VARCHAR2
513 , p5_a22 VARCHAR2
514 , p5_a23 VARCHAR2
515 , p5_a24 VARCHAR2
516 , p5_a25 VARCHAR2
517 , p5_a26 VARCHAR2
518 , p5_a27 VARCHAR2
519 , p5_a28 VARCHAR2
520 , p5_a29 VARCHAR2
521 , p_program_id NUMBER
522 , p_parent_agreement_id NUMBER
523 )
524
525 as
526 ddp_hdr_rec okl_vendor_program_pub.program_header_rec_type;
527 ddindx binary_integer; indx binary_integer;
528 begin
529
530 -- copy data to the local IN or IN-OUT args, if any
531
532
533
534
535
536 ddp_hdr_rec.p_agreement_number := p5_a0;
537 ddp_hdr_rec.p_contract_category := p5_a1;
538 ddp_hdr_rec.p_start_date := p5_a2;
539 ddp_hdr_rec.p_end_date := p5_a3;
540 ddp_hdr_rec.p_short_description := p5_a4;
541 ddp_hdr_rec.p_description := p5_a5;
542 ddp_hdr_rec.p_comments := p5_a6;
543 ddp_hdr_rec.p_template_yn := p5_a7;
544 ddp_hdr_rec.p_qcl_id := p5_a8;
545 ddp_hdr_rec.p_issue_or_receive := p5_a9;
546 ddp_hdr_rec.p_workflow_process := p5_a10;
547 ddp_hdr_rec.p_referred_id := p5_a11;
548 ddp_hdr_rec.p_object1_id1 := p5_a12;
549 ddp_hdr_rec.p_object1_id2 := p5_a13;
550 ddp_hdr_rec.p_attribute_category := p5_a14;
551 ddp_hdr_rec.p_attribute1 := p5_a15;
552 ddp_hdr_rec.p_attribute2 := p5_a16;
553 ddp_hdr_rec.p_attribute3 := p5_a17;
554 ddp_hdr_rec.p_attribute4 := p5_a18;
555 ddp_hdr_rec.p_attribute5 := p5_a19;
556 ddp_hdr_rec.p_attribute6 := p5_a20;
557 ddp_hdr_rec.p_attribute7 := p5_a21;
558 ddp_hdr_rec.p_attribute8 := p5_a22;
559 ddp_hdr_rec.p_attribute9 := p5_a23;
560 ddp_hdr_rec.p_attribute10 := p5_a24;
561 ddp_hdr_rec.p_attribute11 := p5_a25;
562 ddp_hdr_rec.p_attribute12 := p5_a26;
563 ddp_hdr_rec.p_attribute13 := p5_a27;
564 ddp_hdr_rec.p_attribute14 := p5_a28;
565 ddp_hdr_rec.p_attribute15 := p5_a29;
566
567
568
569 -- here's the delegated call to the old PL/SQL routine
570 okl_vendor_program_pub.update_program(p_api_version,
571 p_init_msg_list,
572 x_return_status,
573 x_msg_count,
574 x_msg_data,
575 ddp_hdr_rec,
576 p_program_id,
577 p_parent_agreement_id);
578
579 -- copy data back from the local variables to OUT or IN-OUT args, if any
580
581
582
583
584
585
586
587 end;
588
589 end okl_vendor_program_pub_w;