[Home] [Help]
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;