[Home] [Help]
PACKAGE BODY: APPS.CN_RULESET_PVT_W
Source
1 package body cn_ruleset_pvt_w as
2 /* $Header: cnwrsetb.pls 120.2 2005/10/10 01:06 rramakri noship $ */
3 procedure create_ruleset(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 , x_loading_status out nocopy VARCHAR2
11 , x_ruleset_id out nocopy NUMBER
12 , p9_a0 NUMBER
13 , p9_a1 VARCHAR2
14 , p9_a2 VARCHAR2
15 , p9_a3 DATE
16 , p9_a4 DATE
17 , p9_a5 VARCHAR2
18 , p9_a6 NUMBER
19 , p9_a7 VARCHAR2
20 , p9_a8 NUMBER
21 )
22
23 as
24 ddp_ruleset_rec cn_ruleset_pvt.ruleset_rec_type;
25 ddindx binary_integer; indx binary_integer;
26 begin
27
28 -- copy data to the local IN or IN-OUT args, if any
29
30
31
32
33
34
35
36
37
38 ddp_ruleset_rec.ruleset_id := p9_a0;
39 ddp_ruleset_rec.ruleset_name := p9_a1;
40 ddp_ruleset_rec.module_type := p9_a2;
41 ddp_ruleset_rec.end_date := p9_a3;
42 ddp_ruleset_rec.start_date := p9_a4;
43 ddp_ruleset_rec.sync_flag := p9_a5;
44 ddp_ruleset_rec.object_version_number := p9_a6;
45 ddp_ruleset_rec.status := p9_a7;
46 ddp_ruleset_rec.org_id := p9_a8;
47
48 -- here's the delegated call to the old PL/SQL routine
49 cn_ruleset_pvt.create_ruleset(p_api_version,
50 p_init_msg_list,
51 p_commit,
52 p_validation_level,
53 x_return_status,
54 x_msg_count,
55 x_msg_data,
56 x_loading_status,
57 x_ruleset_id,
58 ddp_ruleset_rec);
59
60 -- copy data back from the local variables to OUT or IN-OUT args, if any
61
62
63
64
65
66
67
68
69
70 end;
71
72 procedure update_ruleset(p_api_version NUMBER
73 , p_init_msg_list VARCHAR2
74 , p_commit VARCHAR2
75 , p_validation_level NUMBER
76 , x_return_status out nocopy VARCHAR2
77 , x_msg_count out nocopy NUMBER
78 , x_msg_data out nocopy VARCHAR2
79 , x_loading_status out nocopy VARCHAR2
80 , p8_a0 in out nocopy NUMBER
81 , p8_a1 in out nocopy VARCHAR2
82 , p8_a2 in out nocopy VARCHAR2
83 , p8_a3 in out nocopy DATE
84 , p8_a4 in out nocopy DATE
85 , p8_a5 in out nocopy VARCHAR2
86 , p8_a6 in out nocopy NUMBER
87 , p8_a7 in out nocopy VARCHAR2
88 , p8_a8 in out nocopy NUMBER
89 , p9_a0 in out nocopy NUMBER
90 , p9_a1 in out nocopy VARCHAR2
91 , p9_a2 in out nocopy VARCHAR2
92 , p9_a3 in out nocopy DATE
93 , p9_a4 in out nocopy DATE
94 , p9_a5 in out nocopy VARCHAR2
95 , p9_a6 in out nocopy NUMBER
96 , p9_a7 in out nocopy VARCHAR2
97 , p9_a8 in out nocopy NUMBER
98 )
99
100 as
101 ddp_old_ruleset_rec cn_ruleset_pvt.ruleset_rec_type;
102 ddp_ruleset_rec cn_ruleset_pvt.ruleset_rec_type;
103 ddindx binary_integer; indx binary_integer;
104 begin
105
106 -- copy data to the local IN or IN-OUT args, if any
107
108
109
110
111
112
113
114
115 ddp_old_ruleset_rec.ruleset_id := p8_a0;
116 ddp_old_ruleset_rec.ruleset_name := p8_a1;
117 ddp_old_ruleset_rec.module_type := p8_a2;
118 ddp_old_ruleset_rec.end_date := p8_a3;
119 ddp_old_ruleset_rec.start_date := p8_a4;
120 ddp_old_ruleset_rec.sync_flag := p8_a5;
121 ddp_old_ruleset_rec.object_version_number := p8_a6;
122 ddp_old_ruleset_rec.status := p8_a7;
123 ddp_old_ruleset_rec.org_id := p8_a8;
124
125 ddp_ruleset_rec.ruleset_id := p9_a0;
126 ddp_ruleset_rec.ruleset_name := p9_a1;
127 ddp_ruleset_rec.module_type := p9_a2;
128 ddp_ruleset_rec.end_date := p9_a3;
129 ddp_ruleset_rec.start_date := p9_a4;
130 ddp_ruleset_rec.sync_flag := p9_a5;
131 ddp_ruleset_rec.object_version_number := p9_a6;
132 ddp_ruleset_rec.status := p9_a7;
133 ddp_ruleset_rec.org_id := p9_a8;
134
135 -- here's the delegated call to the old PL/SQL routine
136 cn_ruleset_pvt.update_ruleset(p_api_version,
137 p_init_msg_list,
138 p_commit,
139 p_validation_level,
140 x_return_status,
141 x_msg_count,
142 x_msg_data,
143 x_loading_status,
144 ddp_old_ruleset_rec,
145 ddp_ruleset_rec);
146
147 -- copy data back from the local variables to OUT or IN-OUT args, if any
148
149
150
151
152
153
154
155
156 p8_a0 := ddp_old_ruleset_rec.ruleset_id;
157 p8_a1 := ddp_old_ruleset_rec.ruleset_name;
158 p8_a2 := ddp_old_ruleset_rec.module_type;
159 p8_a3 := ddp_old_ruleset_rec.end_date;
160 p8_a4 := ddp_old_ruleset_rec.start_date;
161 p8_a5 := ddp_old_ruleset_rec.sync_flag;
162 p8_a6 := ddp_old_ruleset_rec.object_version_number;
163 p8_a7 := ddp_old_ruleset_rec.status;
164 p8_a8 := ddp_old_ruleset_rec.org_id;
165
166 p9_a0 := ddp_ruleset_rec.ruleset_id;
167 p9_a1 := ddp_ruleset_rec.ruleset_name;
168 p9_a2 := ddp_ruleset_rec.module_type;
169 p9_a3 := ddp_ruleset_rec.end_date;
170 p9_a4 := ddp_ruleset_rec.start_date;
171 p9_a5 := ddp_ruleset_rec.sync_flag;
172 p9_a6 := ddp_ruleset_rec.object_version_number;
173 p9_a7 := ddp_ruleset_rec.status;
174 p9_a8 := ddp_ruleset_rec.org_id;
175 end;
176
177 end cn_ruleset_pvt_w;