PACKAGE BODY: APPS.CN_PAYRUN_PVT_W

Source

1 package body cn_payrun_pvt_w as
2   /* $Header: cnwprunb.pls 120.5 2005/09/29 19:49 rnagired ship $ */
3   procedure create_payrun(p_api_version  NUMBER
4     , p_init_msg_list  VARCHAR2
5     , p_commit  VARCHAR2
6     , p_validation_level  NUMBER
7     , x_return_status out nocopy  VARCHAR2
8     , x_msg_count out nocopy  NUMBER
9     , x_msg_data out nocopy  VARCHAR2
10     , p7_a0 in out nocopy  NUMBER
11     , p7_a1 in out nocopy  VARCHAR2
12     , p7_a2 in out nocopy  DATE
13     , p7_a3 in out nocopy  NUMBER
14     , p7_a4 in out nocopy  NUMBER
15     , p7_a5 in out nocopy  VARCHAR2
16     , p7_a6 in out nocopy  NUMBER
17     , p7_a7 in out nocopy  DATE
18     , p7_a8 in out nocopy  DATE
19     , p7_a9 in out nocopy  VARCHAR2
20     , p7_a10 in out nocopy  NUMBER
21     , p7_a11 in out nocopy  NUMBER
22     , p7_a12 in out nocopy  NUMBER
23     , x_loading_status out nocopy  VARCHAR2
24     , x_status out nocopy  VARCHAR2
25   )
26 
27   as
28     ddp_payrun_rec cn_payrun_pvt.payrun_rec_type;
29     ddindx binary_integer; indx binary_integer;
30   begin
31 
32     -- copy data to the local IN or IN-OUT args, if any
33 
34 
35 
36 
37 
38 
39 
40     ddp_payrun_rec.payrun_id := p7_a0;
41     ddp_payrun_rec.name := p7_a1;
42     ddp_payrun_rec.pay_date := p7_a2;
43     ddp_payrun_rec.accounting_period_id := p7_a3;
44     ddp_payrun_rec.batch_id := p7_a4;
45     ddp_payrun_rec.status := p7_a5;
46     ddp_payrun_rec.pay_period_id := p7_a6;
47     ddp_payrun_rec.pay_period_start_date := p7_a7;
48     ddp_payrun_rec.pay_period_end_date := p7_a8;
49     ddp_payrun_rec.incentive_type_code := p7_a9;
50     ddp_payrun_rec.pay_group_id := p7_a10;
51     ddp_payrun_rec.org_id := p7_a11;
52     ddp_payrun_rec.object_version_number := p7_a12;
53 
54 
55 
56     -- here's the delegated call to the old PL/SQL routine
57     cn_payrun_pvt.create_payrun(p_api_version,
58       p_init_msg_list,
59       p_commit,
60       p_validation_level,
61       x_return_status,
62       x_msg_count,
63       x_msg_data,
64       ddp_payrun_rec,
65       x_loading_status,
66       x_status);
67 
68     -- copy data back from the local variables to OUT or IN-OUT args, if any
69 
70 
71 
72 
73 
74 
75 
76     p7_a0 := ddp_payrun_rec.payrun_id;
77     p7_a1 := ddp_payrun_rec.name;
78     p7_a2 := ddp_payrun_rec.pay_date;
79     p7_a3 := ddp_payrun_rec.accounting_period_id;
80     p7_a4 := ddp_payrun_rec.batch_id;
81     p7_a5 := ddp_payrun_rec.status;
82     p7_a6 := ddp_payrun_rec.pay_period_id;
83     p7_a7 := ddp_payrun_rec.pay_period_start_date;
84     p7_a8 := ddp_payrun_rec.pay_period_end_date;
85     p7_a9 := ddp_payrun_rec.incentive_type_code;
86     p7_a10 := ddp_payrun_rec.pay_group_id;
87     p7_a11 := ddp_payrun_rec.org_id;
88     p7_a12 := ddp_payrun_rec.object_version_number;
89 
90 
91   end;
92 
93 end cn_payrun_pvt_w;