eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.ASF_HZ_CLASS_V2PUB_W

Source


1 package body asf_hz_class_v2pub_w as
2   /* $Header: asfwclsb.pls 115.1 2002/03/25 17:19:15 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 create_class_category(p_init_msg_list  VARCHAR2
23     , p1_a0  VARCHAR2 := fnd_api.g_miss_char
24     , p1_a1  VARCHAR2 := fnd_api.g_miss_char
25     , p1_a2  VARCHAR2 := fnd_api.g_miss_char
26     , p1_a3  VARCHAR2 := fnd_api.g_miss_char
27     , p1_a4  VARCHAR2 := fnd_api.g_miss_char
28     , p1_a5  NUMBER := 0-1962.0724
29     , x_return_status out  VARCHAR2
30     , x_msg_count out  NUMBER
31     , x_msg_data out  VARCHAR2
32   )
33   as
34     ddp_class_category_rec hz_classification_v2pub.class_category_rec_type;
35     ddindx binary_integer; indx binary_integer;
36   begin
37 
38     -- copy data to the local IN or IN-OUT args, if any
39 
40     ddp_class_category_rec.class_category := p1_a0;
41     ddp_class_category_rec.allow_multi_parent_flag := p1_a1;
42     ddp_class_category_rec.allow_multi_assign_flag := p1_a2;
43     ddp_class_category_rec.allow_leaf_node_only_flag := p1_a3;
44     ddp_class_category_rec.created_by_module := p1_a4;
45     ddp_class_category_rec.application_id := rosetta_g_miss_num_map(p1_a5);
46 
47 
48 
49 
50     -- here's the delegated call to the old PL/SQL routine
51     hz_classification_v2pub.create_class_category(p_init_msg_list,
52       ddp_class_category_rec,
53       x_return_status,
54       x_msg_count,
55       x_msg_data);
56 
57     -- copy data back from the local OUT or IN-OUT args, if any
58 
59 
60 
61 
62   end;
63 
64   procedure update_class_category(p_init_msg_list  VARCHAR2
65     , p1_a0  VARCHAR2 := fnd_api.g_miss_char
66     , p1_a1  VARCHAR2 := fnd_api.g_miss_char
67     , p1_a2  VARCHAR2 := fnd_api.g_miss_char
68     , p1_a3  VARCHAR2 := fnd_api.g_miss_char
69     , p1_a4  VARCHAR2 := fnd_api.g_miss_char
70     , p1_a5  NUMBER := 0-1962.0724
71     , p_object_version_number in out  NUMBER
72     , x_return_status out  VARCHAR2
73     , x_msg_count out  NUMBER
74     , x_msg_data out  VARCHAR2
75   )
76   as
77     ddp_class_category_rec hz_classification_v2pub.class_category_rec_type;
78     ddindx binary_integer; indx binary_integer;
79   begin
80 
81     -- copy data to the local IN or IN-OUT args, if any
82 
83     ddp_class_category_rec.class_category := p1_a0;
84     ddp_class_category_rec.allow_multi_parent_flag := p1_a1;
85     ddp_class_category_rec.allow_multi_assign_flag := p1_a2;
86     ddp_class_category_rec.allow_leaf_node_only_flag := p1_a3;
87     ddp_class_category_rec.created_by_module := p1_a4;
88     ddp_class_category_rec.application_id := rosetta_g_miss_num_map(p1_a5);
89 
90 
91 
92 
93 
94     -- here's the delegated call to the old PL/SQL routine
95     hz_classification_v2pub.update_class_category(p_init_msg_list,
96       ddp_class_category_rec,
97       p_object_version_number,
98       x_return_status,
99       x_msg_count,
100       x_msg_data);
101 
102     -- copy data back from the local OUT or IN-OUT args, if any
103 
104 
105 
106 
107 
108   end;
109 
110   procedure get_class_category_rec(p_init_msg_list  VARCHAR2
111     , p_class_category  VARCHAR2
112     , p2_a0 out  VARCHAR2
113     , p2_a1 out  VARCHAR2
114     , p2_a2 out  VARCHAR2
115     , p2_a3 out  VARCHAR2
116     , p2_a4 out  VARCHAR2
117     , p2_a5 out  NUMBER
118     , x_return_status out  VARCHAR2
119     , x_msg_count out  NUMBER
120     , x_msg_data out  VARCHAR2
121   )
122   as
123     ddx_class_category_rec hz_classification_v2pub.class_category_rec_type;
124     ddindx binary_integer; indx binary_integer;
125   begin
126 
127     -- copy data to the local IN or IN-OUT args, if any
128 
129 
130 
131 
132 
133 
134     -- here's the delegated call to the old PL/SQL routine
135     hz_classification_v2pub.get_class_category_rec(p_init_msg_list,
136       p_class_category,
137       ddx_class_category_rec,
138       x_return_status,
139       x_msg_count,
140       x_msg_data);
141 
142     -- copy data back from the local OUT or IN-OUT args, if any
143 
144 
145     p2_a0 := ddx_class_category_rec.class_category;
146     p2_a1 := ddx_class_category_rec.allow_multi_parent_flag;
147     p2_a2 := ddx_class_category_rec.allow_multi_assign_flag;
148     p2_a3 := ddx_class_category_rec.allow_leaf_node_only_flag;
149     p2_a4 := ddx_class_category_rec.created_by_module;
150     p2_a5 := rosetta_g_miss_num_map(ddx_class_category_rec.application_id);
151 
152 
153 
154   end;
155 
156   procedure create_class_code_relation(p_init_msg_list  VARCHAR2
157     , p1_a0  VARCHAR2 := fnd_api.g_miss_char
158     , p1_a1  VARCHAR2 := fnd_api.g_miss_char
159     , p1_a2  VARCHAR2 := fnd_api.g_miss_char
160     , p1_a3  DATE := fnd_api.g_miss_date
161     , p1_a4  DATE := fnd_api.g_miss_date
162     , p1_a5  VARCHAR2 := fnd_api.g_miss_char
163     , p1_a6  NUMBER := 0-1962.0724
164     , x_return_status out  VARCHAR2
165     , x_msg_count out  NUMBER
166     , x_msg_data out  VARCHAR2
167   )
168   as
169     ddp_class_code_relation_rec hz_classification_v2pub.class_code_relation_rec_type;
170     ddindx binary_integer; indx binary_integer;
171   begin
172 
173     -- copy data to the local IN or IN-OUT args, if any
174 
175     ddp_class_code_relation_rec.class_category := p1_a0;
176     ddp_class_code_relation_rec.class_code := p1_a1;
177     ddp_class_code_relation_rec.sub_class_code := p1_a2;
178     ddp_class_code_relation_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a3);
179     ddp_class_code_relation_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a4);
180     ddp_class_code_relation_rec.created_by_module := p1_a5;
181     ddp_class_code_relation_rec.application_id := rosetta_g_miss_num_map(p1_a6);
182 
183 
184 
185 
186     -- here's the delegated call to the old PL/SQL routine
187     hz_classification_v2pub.create_class_code_relation(p_init_msg_list,
188       ddp_class_code_relation_rec,
189       x_return_status,
190       x_msg_count,
191       x_msg_data);
192 
193     -- copy data back from the local OUT or IN-OUT args, if any
194 
195 
196 
197 
198   end;
199 
200   procedure update_class_code_relation(p_init_msg_list  VARCHAR2
201     , p1_a0  VARCHAR2 := fnd_api.g_miss_char
202     , p1_a1  VARCHAR2 := fnd_api.g_miss_char
203     , p1_a2  VARCHAR2 := fnd_api.g_miss_char
204     , p1_a3  DATE := fnd_api.g_miss_date
205     , p1_a4  DATE := fnd_api.g_miss_date
206     , p1_a5  VARCHAR2 := fnd_api.g_miss_char
207     , p1_a6  NUMBER := 0-1962.0724
208     , p_object_version_number in out  NUMBER
209     , x_return_status out  VARCHAR2
210     , x_msg_count out  NUMBER
211     , x_msg_data out  VARCHAR2
212   )
213   as
214     ddp_class_code_relation_rec hz_classification_v2pub.class_code_relation_rec_type;
215     ddindx binary_integer; indx binary_integer;
216   begin
217 
218     -- copy data to the local IN or IN-OUT args, if any
219 
220     ddp_class_code_relation_rec.class_category := p1_a0;
221     ddp_class_code_relation_rec.class_code := p1_a1;
222     ddp_class_code_relation_rec.sub_class_code := p1_a2;
223     ddp_class_code_relation_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a3);
224     ddp_class_code_relation_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a4);
225     ddp_class_code_relation_rec.created_by_module := p1_a5;
226     ddp_class_code_relation_rec.application_id := rosetta_g_miss_num_map(p1_a6);
227 
228 
229 
230 
231 
232     -- here's the delegated call to the old PL/SQL routine
233     hz_classification_v2pub.update_class_code_relation(p_init_msg_list,
234       ddp_class_code_relation_rec,
235       p_object_version_number,
236       x_return_status,
237       x_msg_count,
238       x_msg_data);
239 
240     -- copy data back from the local OUT or IN-OUT args, if any
241 
242 
243 
244 
245 
246   end;
247 
248   procedure get_class_code_relation_rec(p_init_msg_list  VARCHAR2
249     , p_class_category  VARCHAR2
250     , p_class_code  VARCHAR2
251     , p_sub_class_code  VARCHAR2
252     , p_start_date_active  date
253     , p5_a0 out  VARCHAR2
254     , p5_a1 out  VARCHAR2
255     , p5_a2 out  VARCHAR2
256     , p5_a3 out  DATE
257     , p5_a4 out  DATE
258     , p5_a5 out  VARCHAR2
259     , p5_a6 out  NUMBER
260     , x_return_status out  VARCHAR2
261     , x_msg_count out  NUMBER
262     , x_msg_data out  VARCHAR2
263   )
264   as
265     ddp_start_date_active date;
266     ddx_class_code_relation_rec hz_classification_v2pub.class_code_relation_rec_type;
267     ddindx binary_integer; indx binary_integer;
268   begin
269 
270     -- copy data to the local IN or IN-OUT args, if any
271 
272 
273 
274 
275     ddp_start_date_active := rosetta_g_miss_date_in_map(p_start_date_active);
276 
277 
278 
279 
280 
281     -- here's the delegated call to the old PL/SQL routine
282     hz_classification_v2pub.get_class_code_relation_rec(p_init_msg_list,
283       p_class_category,
284       p_class_code,
285       p_sub_class_code,
286       ddp_start_date_active,
287       ddx_class_code_relation_rec,
288       x_return_status,
289       x_msg_count,
290       x_msg_data);
291 
292     -- copy data back from the local OUT or IN-OUT args, if any
293 
294 
295 
296 
297 
298     p5_a0 := ddx_class_code_relation_rec.class_category;
299     p5_a1 := ddx_class_code_relation_rec.class_code;
300     p5_a2 := ddx_class_code_relation_rec.sub_class_code;
301     p5_a3 := ddx_class_code_relation_rec.start_date_active;
302     p5_a4 := ddx_class_code_relation_rec.end_date_active;
303     p5_a5 := ddx_class_code_relation_rec.created_by_module;
304     p5_a6 := rosetta_g_miss_num_map(ddx_class_code_relation_rec.application_id);
305 
306 
307 
308   end;
309 
310   procedure create_code_assignment(p_init_msg_list  VARCHAR2
311     , p1_a0  NUMBER := 0-1962.0724
312     , p1_a1  VARCHAR2 := fnd_api.g_miss_char
313     , p1_a2  NUMBER := 0-1962.0724
314     , p1_a3  VARCHAR2 := fnd_api.g_miss_char
315     , p1_a4  VARCHAR2 := fnd_api.g_miss_char
316     , p1_a5  VARCHAR2 := fnd_api.g_miss_char
317     , p1_a6  VARCHAR2 := fnd_api.g_miss_char
318     , p1_a7  DATE := fnd_api.g_miss_date
319     , p1_a8  DATE := fnd_api.g_miss_date
320     , p1_a9  VARCHAR2 := fnd_api.g_miss_char
321     , p1_a10  VARCHAR2 := fnd_api.g_miss_char
322     , p1_a11  NUMBER := 0-1962.0724
323     , x_return_status out  VARCHAR2
324     , x_msg_count out  NUMBER
325     , x_msg_data out  VARCHAR2
326     , x_code_assignment_id out  NUMBER
327   )
328   as
329     ddp_code_assignment_rec hz_classification_v2pub.code_assignment_rec_type;
330     ddindx binary_integer; indx binary_integer;
331   begin
332 
333     -- copy data to the local IN or IN-OUT args, if any
334 
335     ddp_code_assignment_rec.code_assignment_id := rosetta_g_miss_num_map(p1_a0);
336     ddp_code_assignment_rec.owner_table_name := p1_a1;
337     ddp_code_assignment_rec.owner_table_id := rosetta_g_miss_num_map(p1_a2);
338     ddp_code_assignment_rec.class_category := p1_a3;
339     ddp_code_assignment_rec.class_code := p1_a4;
340     ddp_code_assignment_rec.primary_flag := p1_a5;
341     ddp_code_assignment_rec.content_source_type := p1_a6;
342     ddp_code_assignment_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a7);
343     ddp_code_assignment_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a8);
344     ddp_code_assignment_rec.status := p1_a9;
345     ddp_code_assignment_rec.created_by_module := p1_a10;
346     ddp_code_assignment_rec.application_id := rosetta_g_miss_num_map(p1_a11);
347 
348 
349 
350 
351 
352     -- here's the delegated call to the old PL/SQL routine
353     hz_classification_v2pub.create_code_assignment(p_init_msg_list,
354       ddp_code_assignment_rec,
355       x_return_status,
356       x_msg_count,
357       x_msg_data,
358       x_code_assignment_id);
359 
360     -- copy data back from the local OUT or IN-OUT args, if any
361 
362 
363 
364 
365 
366   end;
367 
368   procedure update_code_assignment(p_init_msg_list  VARCHAR2
369     , p1_a0  NUMBER := 0-1962.0724
370     , p1_a1  VARCHAR2 := fnd_api.g_miss_char
371     , p1_a2  NUMBER := 0-1962.0724
372     , p1_a3  VARCHAR2 := fnd_api.g_miss_char
373     , p1_a4  VARCHAR2 := fnd_api.g_miss_char
374     , p1_a5  VARCHAR2 := fnd_api.g_miss_char
375     , p1_a6  VARCHAR2 := fnd_api.g_miss_char
376     , p1_a7  DATE := fnd_api.g_miss_date
377     , p1_a8  DATE := fnd_api.g_miss_date
378     , p1_a9  VARCHAR2 := fnd_api.g_miss_char
379     , p1_a10  VARCHAR2 := fnd_api.g_miss_char
380     , p1_a11  NUMBER := 0-1962.0724
381     , p_object_version_number in out  NUMBER
382     , x_return_status out  VARCHAR2
383     , x_msg_count out  NUMBER
384     , x_msg_data out  VARCHAR2
385   )
386   as
387     ddp_code_assignment_rec hz_classification_v2pub.code_assignment_rec_type;
388     ddindx binary_integer; indx binary_integer;
389   begin
390 
391     -- copy data to the local IN or IN-OUT args, if any
392 
396     ddp_code_assignment_rec.class_category := p1_a3;
393     ddp_code_assignment_rec.code_assignment_id := rosetta_g_miss_num_map(p1_a0);
394     ddp_code_assignment_rec.owner_table_name := p1_a1;
395     ddp_code_assignment_rec.owner_table_id := rosetta_g_miss_num_map(p1_a2);
397     ddp_code_assignment_rec.class_code := p1_a4;
398     ddp_code_assignment_rec.primary_flag := p1_a5;
399     ddp_code_assignment_rec.content_source_type := p1_a6;
400     ddp_code_assignment_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a7);
401     ddp_code_assignment_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a8);
402     ddp_code_assignment_rec.status := p1_a9;
403     ddp_code_assignment_rec.created_by_module := p1_a10;
404     ddp_code_assignment_rec.application_id := rosetta_g_miss_num_map(p1_a11);
405 
406 
407 
408 
409 
410     -- here's the delegated call to the old PL/SQL routine
411     hz_classification_v2pub.update_code_assignment(p_init_msg_list,
412       ddp_code_assignment_rec,
413       p_object_version_number,
414       x_return_status,
415       x_msg_count,
416       x_msg_data);
417 
418     -- copy data back from the local OUT or IN-OUT args, if any
419 
420 
421 
422 
423 
424   end;
425 
426 end asf_hz_class_v2pub_w;