PACKAGE BODY: APPS.OKL_VP_COPY_CONTRACT_PVT_W

Source

1 package body okl_vp_copy_contract_pvt_w as
2   /* $Header: OKLECPXB.pls 120.2 2005/08/03 07:58:49 sjalasut noship $ */
3   procedure copy_contract(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  NUMBER
9     , p5_a1  VARCHAR2
10     , p5_a2  VARCHAR2
11     , x_new_contract_id out nocopy  NUMBER
12   )
13 
14   as
15     ddp_copy_rec okl_vp_copy_contract_pvt.copy_header_rec_type;
16     ddindx binary_integer; indx binary_integer;
17   begin
18 
19     -- copy data to the local IN or IN-OUT args, if any
20 
21 
22 
23 
24 
25     ddp_copy_rec.p_id := p5_a0;
26     ddp_copy_rec.p_to_agreement_number := p5_a1;
27     ddp_copy_rec.p_template_yn := p5_a2;
28 
29 
30     -- here's the delegated call to the old PL/SQL routine
31     okl_vp_copy_contract_pvt.copy_contract(p_api_version,
32       p_init_msg_list,
33       x_return_status,
34       x_msg_count,
35       x_msg_data,
36       ddp_copy_rec,
37       x_new_contract_id);
38 
39     -- copy data back from the local variables to OUT or IN-OUT args, if any
40 
41 
42 
43 
44 
45 
46   end;
47 
48 end okl_vp_copy_contract_pvt_w;