[Home] [Help]
PACKAGE BODY: APPS.FUN_RULE_CRITERIA_PUB_W
Source
1 package body fun_rule_criteria_pub_w as
2 /* $Header: FUNXTMRULRCTRWB.pls 120.0 2005/06/20 04:30:00 ammishra noship $ */
3 procedure create_rule_criteria(p_init_msg_list VARCHAR2
4 , p1_a0 NUMBER
5 , p1_a1 NUMBER
6 , p1_a2 NUMBER
7 , p1_a3 VARCHAR2
8 , p1_a4 VARCHAR2
9 , p1_a5 VARCHAR2
10 , p1_a6 DATE
11 , p1_a7 NUMBER
12 , p1_a8 DATE
13 , p1_a9 NUMBER
14 , p1_a10 NUMBER
15 , p1_a11 VARCHAR2
16 , x_criteria_id out nocopy NUMBER
17 , x_return_status out nocopy VARCHAR2
18 , x_msg_count out nocopy NUMBER
19 , x_msg_data out nocopy VARCHAR2
20 )
21
22 as
23 ddp_rule_criteria_rec fun_rule_criteria_pub.rule_criteria_rec_type;
24 ddindx binary_integer; indx binary_integer;
25 begin
26
27 -- copy data to the local IN or IN-OUT args, if any
28
29 ddp_rule_criteria_rec.criteria_id := p1_a0;
30 ddp_rule_criteria_rec.rule_detail_id := p1_a1;
31 ddp_rule_criteria_rec.criteria_param_id := p1_a2;
32 ddp_rule_criteria_rec.condition := p1_a3;
33 ddp_rule_criteria_rec.param_value := p1_a4;
34 ddp_rule_criteria_rec.case_sensitive_flag := p1_a5;
35 ddp_rule_criteria_rec.creation_date := p1_a6;
36 ddp_rule_criteria_rec.created_by := p1_a7;
37 ddp_rule_criteria_rec.last_update_date := p1_a8;
38 ddp_rule_criteria_rec.last_updated_by := p1_a9;
39 ddp_rule_criteria_rec.last_update_login := p1_a10;
40 ddp_rule_criteria_rec.created_by_module := p1_a11;
41
42
43
44
45
46 -- here's the delegated call to the old PL/SQL routine
47 fun_rule_criteria_pub.create_rule_criteria(p_init_msg_list,
48 ddp_rule_criteria_rec,
49 x_criteria_id,
50 x_return_status,
51 x_msg_count,
52 x_msg_data);
53
54 -- copy data back from the local variables to OUT or IN-OUT args, if any
55
56
57
58
59
60 end;
61
62 procedure update_rule_criteria(p_init_msg_list VARCHAR2
63 , p1_a0 NUMBER
64 , p1_a1 NUMBER
65 , p1_a2 NUMBER
66 , p1_a3 VARCHAR2
67 , p1_a4 VARCHAR2
68 , p1_a5 VARCHAR2
69 , p1_a6 DATE
70 , p1_a7 NUMBER
71 , p1_a8 DATE
72 , p1_a9 NUMBER
73 , p1_a10 NUMBER
74 , p1_a11 VARCHAR2
75 , p_object_version_number in out nocopy NUMBER
76 , x_return_status out nocopy VARCHAR2
77 , x_msg_count out nocopy NUMBER
78 , x_msg_data out nocopy VARCHAR2
79 )
80
81 as
82 ddp_rule_criteria_rec fun_rule_criteria_pub.rule_criteria_rec_type;
83 ddindx binary_integer; indx binary_integer;
84 begin
85
86 -- copy data to the local IN or IN-OUT args, if any
87
88 ddp_rule_criteria_rec.criteria_id := p1_a0;
89 ddp_rule_criteria_rec.rule_detail_id := p1_a1;
90 ddp_rule_criteria_rec.criteria_param_id := p1_a2;
91 ddp_rule_criteria_rec.condition := p1_a3;
92 ddp_rule_criteria_rec.param_value := p1_a4;
93 ddp_rule_criteria_rec.case_sensitive_flag := p1_a5;
94 ddp_rule_criteria_rec.creation_date := p1_a6;
95 ddp_rule_criteria_rec.created_by := p1_a7;
96 ddp_rule_criteria_rec.last_update_date := p1_a8;
97 ddp_rule_criteria_rec.last_updated_by := p1_a9;
98 ddp_rule_criteria_rec.last_update_login := p1_a10;
99 ddp_rule_criteria_rec.created_by_module := p1_a11;
100
101
102
103
104
105 -- here's the delegated call to the old PL/SQL routine
106 fun_rule_criteria_pub.update_rule_criteria(p_init_msg_list,
107 ddp_rule_criteria_rec,
108 p_object_version_number,
109 x_return_status,
110 x_msg_count,
111 x_msg_data);
112
113 -- copy data back from the local variables to OUT or IN-OUT args, if any
114
115
116
117
118
119 end;
120
121 procedure get_rule_criteria_rec(p_init_msg_list VARCHAR2
122 , p_criteria_id NUMBER
123 , p_rule_detail_id NUMBER
124 , p3_a0 out nocopy NUMBER
125 , p3_a1 out nocopy NUMBER
126 , p3_a2 out nocopy NUMBER
127 , p3_a3 out nocopy VARCHAR2
128 , p3_a4 out nocopy VARCHAR2
129 , p3_a5 out nocopy VARCHAR2
130 , p3_a6 out nocopy DATE
131 , p3_a7 out nocopy NUMBER
132 , p3_a8 out nocopy DATE
133 , p3_a9 out nocopy NUMBER
134 , p3_a10 out nocopy NUMBER
135 , p3_a11 out nocopy VARCHAR2
136 , x_return_status out nocopy VARCHAR2
137 , x_msg_count out nocopy NUMBER
138 , x_msg_data out nocopy VARCHAR2
139 )
140
141 as
142 ddx_rule_criteria_rec fun_rule_criteria_pub.rule_criteria_rec_type;
143 ddindx binary_integer; indx binary_integer;
144 begin
145
146 -- copy data to the local IN or IN-OUT args, if any
147
148
149
150
151
152
153
154 -- here's the delegated call to the old PL/SQL routine
155 fun_rule_criteria_pub.get_rule_criteria_rec(p_init_msg_list,
156 p_criteria_id,
157 p_rule_detail_id,
158 ddx_rule_criteria_rec,
159 x_return_status,
160 x_msg_count,
161 x_msg_data);
162
163 -- copy data back from the local variables to OUT or IN-OUT args, if any
164
165
166
167 p3_a0 := ddx_rule_criteria_rec.criteria_id;
168 p3_a1 := ddx_rule_criteria_rec.rule_detail_id;
169 p3_a2 := ddx_rule_criteria_rec.criteria_param_id;
170 p3_a3 := ddx_rule_criteria_rec.condition;
171 p3_a4 := ddx_rule_criteria_rec.param_value;
172 p3_a5 := ddx_rule_criteria_rec.case_sensitive_flag;
173 p3_a6 := ddx_rule_criteria_rec.creation_date;
174 p3_a7 := ddx_rule_criteria_rec.created_by;
175 p3_a8 := ddx_rule_criteria_rec.last_update_date;
176 p3_a9 := ddx_rule_criteria_rec.last_updated_by;
177 p3_a10 := ddx_rule_criteria_rec.last_update_login;
178 p3_a11 := ddx_rule_criteria_rec.created_by_module;
179
180
181
182 end;
183
184 end fun_rule_criteria_pub_w;