[Home] [Help]
PACKAGE BODY: APPS.CN_RULEATTRIBUTE_PVT_W
Source
1 package body cn_ruleattribute_pvt_w as
2 /* $Header: cnwratrb.pls 120.1 2005/06/16 03:29 appldev $ */
3 procedure create_ruleattribute(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 , p8_a0 in out nocopy NUMBER
12 , p8_a1 in out nocopy NUMBER
13 , p8_a2 in out nocopy NUMBER
14 , p8_a3 in out nocopy NUMBER
15 , p8_a4 in out nocopy VARCHAR2
16 , p8_a5 in out nocopy VARCHAR2
17 , p8_a6 in out nocopy VARCHAR2
18 , p8_a7 in out nocopy VARCHAR2
19 , p8_a8 in out nocopy VARCHAR2
20 , p8_a9 in out nocopy NUMBER
21 )
22
23 as
24 ddp_ruleattribute_rec cn_ruleattribute_pvt.ruleattribute_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 ddp_ruleattribute_rec.ruleset_id := p8_a0;
38 ddp_ruleattribute_rec.rule_id := p8_a1;
39 ddp_ruleattribute_rec.attribute_rule_id := p8_a2;
40 ddp_ruleattribute_rec.org_id := p8_a3;
41 ddp_ruleattribute_rec.object_name := p8_a4;
42 ddp_ruleattribute_rec.not_flag := p8_a5;
43 ddp_ruleattribute_rec.value_1 := p8_a6;
44 ddp_ruleattribute_rec.value_2 := p8_a7;
45 ddp_ruleattribute_rec.data_flag := p8_a8;
46 ddp_ruleattribute_rec.object_version_number := p8_a9;
47
48 -- here's the delegated call to the old PL/SQL routine
49 cn_ruleattribute_pvt.create_ruleattribute(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 ddp_ruleattribute_rec);
58
59 -- copy data back from the local variables to OUT or IN-OUT args, if any
60
61
62
63
64
65
66
67
68 p8_a0 := ddp_ruleattribute_rec.ruleset_id;
69 p8_a1 := ddp_ruleattribute_rec.rule_id;
70 p8_a2 := ddp_ruleattribute_rec.attribute_rule_id;
71 p8_a3 := ddp_ruleattribute_rec.org_id;
72 p8_a4 := ddp_ruleattribute_rec.object_name;
73 p8_a5 := ddp_ruleattribute_rec.not_flag;
74 p8_a6 := ddp_ruleattribute_rec.value_1;
75 p8_a7 := ddp_ruleattribute_rec.value_2;
76 p8_a8 := ddp_ruleattribute_rec.data_flag;
77 p8_a9 := ddp_ruleattribute_rec.object_version_number;
78 end;
79
80 procedure update_ruleattribute(p_api_version NUMBER
81 , p_init_msg_list VARCHAR2
82 , p_commit VARCHAR2
83 , p_validation_level NUMBER
84 , x_return_status out nocopy VARCHAR2
85 , x_msg_count out nocopy NUMBER
86 , x_msg_data out nocopy VARCHAR2
87 , x_loading_status out nocopy VARCHAR2
88 , p8_a0 in out nocopy NUMBER
89 , p8_a1 in out nocopy NUMBER
90 , p8_a2 in out nocopy NUMBER
91 , p8_a3 in out nocopy NUMBER
92 , p8_a4 in out nocopy VARCHAR2
93 , p8_a5 in out nocopy VARCHAR2
94 , p8_a6 in out nocopy VARCHAR2
95 , p8_a7 in out nocopy VARCHAR2
96 , p8_a8 in out nocopy VARCHAR2
97 , p8_a9 in out nocopy NUMBER
98 , p9_a0 in out nocopy NUMBER
99 , p9_a1 in out nocopy NUMBER
100 , p9_a2 in out nocopy NUMBER
101 , p9_a3 in out nocopy NUMBER
102 , p9_a4 in out nocopy VARCHAR2
103 , p9_a5 in out nocopy VARCHAR2
104 , p9_a6 in out nocopy VARCHAR2
105 , p9_a7 in out nocopy VARCHAR2
106 , p9_a8 in out nocopy VARCHAR2
107 , p9_a9 in out nocopy NUMBER
108 )
109
110 as
111 ddp_old_ruleattribute_rec cn_ruleattribute_pvt.ruleattribute_rec_type;
112 ddp_ruleattribute_rec cn_ruleattribute_pvt.ruleattribute_rec_type;
113 ddindx binary_integer; indx binary_integer;
114 begin
115
116 -- copy data to the local IN or IN-OUT args, if any
117
118
119
120
121
122
123
124
125 ddp_old_ruleattribute_rec.ruleset_id := p8_a0;
126 ddp_old_ruleattribute_rec.rule_id := p8_a1;
127 ddp_old_ruleattribute_rec.attribute_rule_id := p8_a2;
128 ddp_old_ruleattribute_rec.org_id := p8_a3;
129 ddp_old_ruleattribute_rec.object_name := p8_a4;
130 ddp_old_ruleattribute_rec.not_flag := p8_a5;
131 ddp_old_ruleattribute_rec.value_1 := p8_a6;
132 ddp_old_ruleattribute_rec.value_2 := p8_a7;
133 ddp_old_ruleattribute_rec.data_flag := p8_a8;
134 ddp_old_ruleattribute_rec.object_version_number := p8_a9;
135
136 ddp_ruleattribute_rec.ruleset_id := p9_a0;
137 ddp_ruleattribute_rec.rule_id := p9_a1;
138 ddp_ruleattribute_rec.attribute_rule_id := p9_a2;
139 ddp_ruleattribute_rec.org_id := p9_a3;
140 ddp_ruleattribute_rec.object_name := p9_a4;
141 ddp_ruleattribute_rec.not_flag := p9_a5;
142 ddp_ruleattribute_rec.value_1 := p9_a6;
143 ddp_ruleattribute_rec.value_2 := p9_a7;
144 ddp_ruleattribute_rec.data_flag := p9_a8;
145 ddp_ruleattribute_rec.object_version_number := p9_a9;
146
147 -- here's the delegated call to the old PL/SQL routine
148 cn_ruleattribute_pvt.update_ruleattribute(p_api_version,
149 p_init_msg_list,
150 p_commit,
151 p_validation_level,
152 x_return_status,
153 x_msg_count,
154 x_msg_data,
155 x_loading_status,
156 ddp_old_ruleattribute_rec,
157 ddp_ruleattribute_rec);
158
159 -- copy data back from the local variables to OUT or IN-OUT args, if any
160
161
162
163
164
165
166
167
168 p8_a0 := ddp_old_ruleattribute_rec.ruleset_id;
169 p8_a1 := ddp_old_ruleattribute_rec.rule_id;
170 p8_a2 := ddp_old_ruleattribute_rec.attribute_rule_id;
171 p8_a3 := ddp_old_ruleattribute_rec.org_id;
172 p8_a4 := ddp_old_ruleattribute_rec.object_name;
173 p8_a5 := ddp_old_ruleattribute_rec.not_flag;
174 p8_a6 := ddp_old_ruleattribute_rec.value_1;
175 p8_a7 := ddp_old_ruleattribute_rec.value_2;
176 p8_a8 := ddp_old_ruleattribute_rec.data_flag;
177 p8_a9 := ddp_old_ruleattribute_rec.object_version_number;
178
179 p9_a0 := ddp_ruleattribute_rec.ruleset_id;
180 p9_a1 := ddp_ruleattribute_rec.rule_id;
181 p9_a2 := ddp_ruleattribute_rec.attribute_rule_id;
182 p9_a3 := ddp_ruleattribute_rec.org_id;
183 p9_a4 := ddp_ruleattribute_rec.object_name;
184 p9_a5 := ddp_ruleattribute_rec.not_flag;
185 p9_a6 := ddp_ruleattribute_rec.value_1;
186 p9_a7 := ddp_ruleattribute_rec.value_2;
187 p9_a8 := ddp_ruleattribute_rec.data_flag;
188 p9_a9 := ddp_ruleattribute_rec.object_version_number;
189 end;
190
191 end cn_ruleattribute_pvt_w;