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
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
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:
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
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,
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
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,
589:
590:
591: end;
592:
593: end okl_vendor_program_pvt_w;