1 package body asf_hz_class_v2pub_w2 as
2 /* $Header: asfwcl2b.pls 115.1 2002/03/25 17:19:11 pkm ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure get_code_assignment_rec(p_init_msg_list VARCHAR2
23 , p_code_assignment_id NUMBER
24 , p2_a0 out NUMBER
25 , p2_a1 out VARCHAR2
26 , p2_a2 out NUMBER
27 , p2_a3 out VARCHAR2
28 , p2_a4 out VARCHAR2
29 , p2_a5 out VARCHAR2
30 , p2_a6 out VARCHAR2
31 , p2_a7 out DATE
32 , p2_a8 out DATE
33 , p2_a9 out VARCHAR2
34 , p2_a10 out VARCHAR2
35 , p2_a11 out NUMBER
36 , x_return_status out VARCHAR2
37 , x_msg_count out NUMBER
38 , x_msg_data out VARCHAR2
39 )
40 as
41 ddx_code_assignment_rec hz_classification_v2pub.code_assignment_rec_type;
42 ddindx binary_integer; indx binary_integer;
43 begin
44
45 -- copy data to the local IN or IN-OUT args, if any
46
47
48
49
50
51
52 -- here's the delegated call to the old PL/SQL routine
53 hz_classification_v2pub.get_code_assignment_rec(p_init_msg_list,
54 p_code_assignment_id,
55 ddx_code_assignment_rec,
56 x_return_status,
57 x_msg_count,
58 x_msg_data);
59
60 -- copy data back from the local OUT or IN-OUT args, if any
61
62
63 p2_a0 := rosetta_g_miss_num_map(ddx_code_assignment_rec.code_assignment_id);
64 p2_a1 := ddx_code_assignment_rec.owner_table_name;
65 p2_a2 := rosetta_g_miss_num_map(ddx_code_assignment_rec.owner_table_id);
66 p2_a3 := ddx_code_assignment_rec.class_category;
67 p2_a4 := ddx_code_assignment_rec.class_code;
68 p2_a5 := ddx_code_assignment_rec.primary_flag;
69 p2_a6 := ddx_code_assignment_rec.content_source_type;
70 p2_a7 := ddx_code_assignment_rec.start_date_active;
71 p2_a8 := ddx_code_assignment_rec.end_date_active;
72 p2_a9 := ddx_code_assignment_rec.status;
73 p2_a10 := ddx_code_assignment_rec.created_by_module;
74 p2_a11 := rosetta_g_miss_num_map(ddx_code_assignment_rec.application_id);
75
76
77
78 end;
79
80 procedure create_class_category_use(p_init_msg_list VARCHAR2
81 , p1_a0 VARCHAR2 := fnd_api.g_miss_char
82 , p1_a1 VARCHAR2 := fnd_api.g_miss_char
83 , p1_a2 VARCHAR2 := fnd_api.g_miss_char
84 , p1_a3 VARCHAR2 := fnd_api.g_miss_char
85 , p1_a4 VARCHAR2 := fnd_api.g_miss_char
86 , p1_a5 NUMBER := 0-1962.0724
87 , x_return_status out VARCHAR2
88 , x_msg_count out NUMBER
89 , x_msg_data out VARCHAR2
90 )
91 as
92 ddp_class_category_use_rec hz_classification_v2pub.class_category_use_rec_type;
93 ddindx binary_integer; indx binary_integer;
94 begin
95
96 -- copy data to the local IN or IN-OUT args, if any
97
98 ddp_class_category_use_rec.class_category := p1_a0;
99 ddp_class_category_use_rec.owner_table := p1_a1;
100 ddp_class_category_use_rec.column_name := p1_a2;
101 ddp_class_category_use_rec.additional_where_clause := p1_a3;
102 ddp_class_category_use_rec.created_by_module := p1_a4;
103 ddp_class_category_use_rec.application_id := rosetta_g_miss_num_map(p1_a5);
104
105
106
107
108 -- here's the delegated call to the old PL/SQL routine
109 hz_classification_v2pub.create_class_category_use(p_init_msg_list,
110 ddp_class_category_use_rec,
111 x_return_status,
112 x_msg_count,
113 x_msg_data);
114
115 -- copy data back from the local OUT or IN-OUT args, if any
116
117
118
119
120 end;
121
122 procedure update_class_category_use(p_init_msg_list VARCHAR2
123 , p1_a0 VARCHAR2 := fnd_api.g_miss_char
124 , p1_a1 VARCHAR2 := fnd_api.g_miss_char
125 , p1_a2 VARCHAR2 := fnd_api.g_miss_char
126 , p1_a3 VARCHAR2 := fnd_api.g_miss_char
127 , p1_a4 VARCHAR2 := fnd_api.g_miss_char
128 , p1_a5 NUMBER := 0-1962.0724
129 , p_object_version_number in out NUMBER
130 , x_return_status out VARCHAR2
131 , x_msg_count out NUMBER
132 , x_msg_data out VARCHAR2
133 )
134 as
135 ddp_class_category_use_rec hz_classification_v2pub.class_category_use_rec_type;
136 ddindx binary_integer; indx binary_integer;
137 begin
138
139 -- copy data to the local IN or IN-OUT args, if any
140
141 ddp_class_category_use_rec.class_category := p1_a0;
142 ddp_class_category_use_rec.owner_table := p1_a1;
143 ddp_class_category_use_rec.column_name := p1_a2;
144 ddp_class_category_use_rec.additional_where_clause := p1_a3;
145 ddp_class_category_use_rec.created_by_module := p1_a4;
146 ddp_class_category_use_rec.application_id := rosetta_g_miss_num_map(p1_a5);
147
148
149
150
151
152 -- here's the delegated call to the old PL/SQL routine
153 hz_classification_v2pub.update_class_category_use(p_init_msg_list,
154 ddp_class_category_use_rec,
155 p_object_version_number,
156 x_return_status,
157 x_msg_count,
158 x_msg_data);
159
160 -- copy data back from the local OUT or IN-OUT args, if any
161
162
163
164
165
166 end;
167
168 procedure get_class_category_use_rec(p_init_msg_list VARCHAR2
169 , p_class_category VARCHAR2
170 , p_owner_table VARCHAR2
171 , p3_a0 out VARCHAR2
172 , p3_a1 out VARCHAR2
173 , p3_a2 out VARCHAR2
174 , p3_a3 out VARCHAR2
175 , p3_a4 out VARCHAR2
176 , p3_a5 out NUMBER
177 , x_return_status out VARCHAR2
178 , x_msg_count out NUMBER
179 , x_msg_data out VARCHAR2
180 )
181 as
182 ddx_class_category_use_rec hz_classification_v2pub.class_category_use_rec_type;
183 ddindx binary_integer; indx binary_integer;
184 begin
185
186 -- copy data to the local IN or IN-OUT args, if any
187
188
189
190
191
192
193
194 -- here's the delegated call to the old PL/SQL routine
195 hz_classification_v2pub.get_class_category_use_rec(p_init_msg_list,
196 p_class_category,
197 p_owner_table,
198 ddx_class_category_use_rec,
199 x_return_status,
200 x_msg_count,
201 x_msg_data);
202
203 -- copy data back from the local OUT or IN-OUT args, if any
204
205
206
207 p3_a0 := ddx_class_category_use_rec.class_category;
208 p3_a1 := ddx_class_category_use_rec.owner_table;
209 p3_a2 := ddx_class_category_use_rec.column_name;
210 p3_a3 := ddx_class_category_use_rec.additional_where_clause;
211 p3_a4 := ddx_class_category_use_rec.created_by_module;
212 p3_a5 := rosetta_g_miss_num_map(ddx_class_category_use_rec.application_id);
213
214
215
216 end;
217
218 end asf_hz_class_v2pub_w2;