[Home] [Help]
PACKAGE BODY: APPS.CN_CALC_EXT_TABLES_PVT_W
Source
1 package body cn_calc_ext_tables_pvt_w as
2 /* $Header: cnwexttb.pls 115.5 2003/01/31 08:44:27 hithanki 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 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 procedure create_calc_ext_table(p_api_version NUMBER
14 , p_init_msg_list VARCHAR2
15 , p_commit VARCHAR2
16 , p_validation_level NUMBER
17 , x_return_status out nocopy VARCHAR2
18 , x_msg_count out nocopy NUMBER
19 , x_msg_data out nocopy VARCHAR2
20 , x_loading_status out nocopy VARCHAR2
21 , x_calc_ext_table_id out nocopy NUMBER
22 , p9_a0 NUMBER
23 , p9_a1 VARCHAR2
24 , p9_a2 NUMBER
25 , p9_a3 NUMBER
26 , p9_a4 VARCHAR2
27 , p9_a5 VARCHAR2
28 , p9_a6 VARCHAR2
29 , p9_a7 VARCHAR2
30 , p9_a8 VARCHAR2
31 , p9_a9 NUMBER
32 )
33
34 as
35 ddp_calc_ext_table_rec cn_calc_ext_tables_pvt.calc_ext_table_rec_type;
36 ddindx binary_integer; indx binary_integer;
37 begin
38
39 -- copy data to the local IN or IN-OUT args, if any
40
41
42
43
44
45
46
47
48
49 ddp_calc_ext_table_rec.calc_ext_table_id := p9_a0;
50 ddp_calc_ext_table_rec.name := p9_a1;
51 ddp_calc_ext_table_rec.internal_table_id := p9_a2;
52 ddp_calc_ext_table_rec.external_table_id := p9_a3;
53 ddp_calc_ext_table_rec.used_flag := p9_a4;
54 ddp_calc_ext_table_rec.description := p9_a5;
55 ddp_calc_ext_table_rec.schema := p9_a6;
56 ddp_calc_ext_table_rec.external_table_name := p9_a7;
57 ddp_calc_ext_table_rec.alias := p9_a8;
58 ddp_calc_ext_table_rec.object_version_number := p9_a9;
59
60 -- here's the delegated call to the old PL/SQL routine
61 cn_calc_ext_tables_pvt.create_calc_ext_table(p_api_version,
62 p_init_msg_list,
63 p_commit,
64 p_validation_level,
65 x_return_status,
66 x_msg_count,
67 x_msg_data,
68 x_loading_status,
69 x_calc_ext_table_id,
70 ddp_calc_ext_table_rec);
71
72 -- copy data back from the local variables to OUT or IN-OUT args, if any
73
74
75
76
77
78
79
80
81
82 end;
83
84 procedure update_calc_ext_table(p_api_version NUMBER
85 , p_init_msg_list VARCHAR2
86 , p_commit VARCHAR2
87 , p_validation_level NUMBER
88 , x_return_status out nocopy VARCHAR2
89 , x_msg_count out nocopy NUMBER
90 , x_msg_data out nocopy VARCHAR2
91 , x_loading_status out nocopy VARCHAR2
92 , p8_a0 in out nocopy NUMBER
93 , p8_a1 in out nocopy VARCHAR2
94 , p8_a2 in out nocopy NUMBER
95 , p8_a3 in out nocopy NUMBER
96 , p8_a4 in out nocopy VARCHAR2
97 , p8_a5 in out nocopy VARCHAR2
98 , p8_a6 in out nocopy VARCHAR2
99 , p8_a7 in out nocopy VARCHAR2
100 , p8_a8 in out nocopy VARCHAR2
101 , p8_a9 in out nocopy NUMBER
102 , p9_a0 in out nocopy NUMBER
103 , p9_a1 in out nocopy VARCHAR2
104 , p9_a2 in out nocopy NUMBER
105 , p9_a3 in out nocopy NUMBER
106 , p9_a4 in out nocopy VARCHAR2
107 , p9_a5 in out nocopy VARCHAR2
108 , p9_a6 in out nocopy VARCHAR2
109 , p9_a7 in out nocopy VARCHAR2
110 , p9_a8 in out nocopy VARCHAR2
111 , p9_a9 in out nocopy NUMBER
112 )
113
114 as
115 ddp_old_calc_ext_table_rec cn_calc_ext_tables_pvt.calc_ext_table_rec_type;
116 ddp_calc_ext_table_rec cn_calc_ext_tables_pvt.calc_ext_table_rec_type;
117 ddindx binary_integer; indx binary_integer;
118 begin
119
120 -- copy data to the local IN or IN-OUT args, if any
121
122
123
124
125
126
127
128
129 ddp_old_calc_ext_table_rec.calc_ext_table_id := p8_a0;
130 ddp_old_calc_ext_table_rec.name := p8_a1;
131 ddp_old_calc_ext_table_rec.internal_table_id := p8_a2;
132 ddp_old_calc_ext_table_rec.external_table_id := p8_a3;
133 ddp_old_calc_ext_table_rec.used_flag := p8_a4;
134 ddp_old_calc_ext_table_rec.description := p8_a5;
135 ddp_old_calc_ext_table_rec.schema := p8_a6;
136 ddp_old_calc_ext_table_rec.external_table_name := p8_a7;
137 ddp_old_calc_ext_table_rec.alias := p8_a8;
138 ddp_old_calc_ext_table_rec.object_version_number := p8_a9;
139
140 ddp_calc_ext_table_rec.calc_ext_table_id := p9_a0;
141 ddp_calc_ext_table_rec.name := p9_a1;
142 ddp_calc_ext_table_rec.internal_table_id := p9_a2;
143 ddp_calc_ext_table_rec.external_table_id := p9_a3;
144 ddp_calc_ext_table_rec.used_flag := p9_a4;
145 ddp_calc_ext_table_rec.description := p9_a5;
146 ddp_calc_ext_table_rec.schema := p9_a6;
147 ddp_calc_ext_table_rec.external_table_name := p9_a7;
148 ddp_calc_ext_table_rec.alias := p9_a8;
149 ddp_calc_ext_table_rec.object_version_number := p9_a9;
150
151 -- here's the delegated call to the old PL/SQL routine
152 cn_calc_ext_tables_pvt.update_calc_ext_table(p_api_version,
153 p_init_msg_list,
154 p_commit,
155 p_validation_level,
156 x_return_status,
157 x_msg_count,
158 x_msg_data,
159 x_loading_status,
160 ddp_old_calc_ext_table_rec,
161 ddp_calc_ext_table_rec);
162
163 -- copy data back from the local variables to OUT or IN-OUT args, if any
164
165
166
167
168
169
170
171
172 p8_a0 := ddp_old_calc_ext_table_rec.calc_ext_table_id;
173 p8_a1 := ddp_old_calc_ext_table_rec.name;
174 p8_a2 := ddp_old_calc_ext_table_rec.internal_table_id;
175 p8_a3 := ddp_old_calc_ext_table_rec.external_table_id;
176 p8_a4 := ddp_old_calc_ext_table_rec.used_flag;
177 p8_a5 := ddp_old_calc_ext_table_rec.description;
178 p8_a6 := ddp_old_calc_ext_table_rec.schema;
179 p8_a7 := ddp_old_calc_ext_table_rec.external_table_name;
180 p8_a8 := ddp_old_calc_ext_table_rec.alias;
181 p8_a9 := ddp_old_calc_ext_table_rec.object_version_number;
182
183 p9_a0 := ddp_calc_ext_table_rec.calc_ext_table_id;
184 p9_a1 := ddp_calc_ext_table_rec.name;
185 p9_a2 := ddp_calc_ext_table_rec.internal_table_id;
186 p9_a3 := ddp_calc_ext_table_rec.external_table_id;
187 p9_a4 := ddp_calc_ext_table_rec.used_flag;
188 p9_a5 := ddp_calc_ext_table_rec.description;
189 p9_a6 := ddp_calc_ext_table_rec.schema;
190 p9_a7 := ddp_calc_ext_table_rec.external_table_name;
191 p9_a8 := ddp_calc_ext_table_rec.alias;
192 p9_a9 := ddp_calc_ext_table_rec.object_version_number;
193 end;
194
195 end cn_calc_ext_tables_pvt_w;