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