[Home] [Help]
PACKAGE BODY: APPS.JTF_CAL_ADDR_PVT_W
Source
1 PACKAGE BODY JTF_CAL_ADDR_PVT_W AS
2 /* $Header: jtfwcab.pls 115.2 2002/04/09 10:57:48 pkm ship $ */
3
4 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
5 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
6
7 function rosetta_g_miss_num_map(n number) return number as
8 a number := fnd_api.g_miss_num;
9 b number := 0-1962.0724;
10 begin
11 if n=a then return b; end if;
12 if n=b then return a; end if;
13 return n;
14 end;
15
16 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
17 function rosetta_g_miss_date_in_map(d date) return date as
18 begin
19 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
20 return d;
21 end;
22
23 procedure insert_row(p_api_version NUMBER
24 , p_init_msg_list VARCHAR2
25 , p_commit VARCHAR2
26 , p_validation_level NUMBER
27 , x_return_status out VARCHAR2
28 , x_msg_count out NUMBER
29 , x_msg_data out VARCHAR2
30 , p7_a0 NUMBER
31 , p7_a1 NUMBER
32 , p7_a2 NUMBER
33 , p7_a3 DATE
34 , p7_a4 NUMBER
35 , p7_a5 DATE
36 , p7_a6 NUMBER
37 , p7_a7 VARCHAR2
38 , p7_a8 VARCHAR2
39 , p7_a9 VARCHAR2
40 , p7_a10 VARCHAR2
41 , p7_a11 NUMBER
42 , p7_a12 VARCHAR2
43 , p7_a13 VARCHAR2
44 , p7_a14 VARCHAR2
45 , p7_a15 VARCHAR2
46 , p7_a16 VARCHAR2
47 , p7_a17 VARCHAR2
48 , p7_a18 VARCHAR2
49 , p7_a19 VARCHAR2
50 , p7_a20 VARCHAR2
51 , p7_a21 VARCHAR2
52 , p7_a22 VARCHAR2
53 , p7_a23 VARCHAR2
54 , p7_a24 VARCHAR2
55 , p7_a25 NUMBER
56 , p7_a26 VARCHAR2
57 , p7_a27 VARCHAR2
58 , p7_a28 VARCHAR2
59 , p7_a29 VARCHAR2
60 , p7_a30 VARCHAR2
61 , p7_a31 VARCHAR2
62 , p7_a32 VARCHAR2
63 , p7_a33 VARCHAR2
64 , p7_a34 VARCHAR2
65 , p7_a35 VARCHAR2
66 , p7_a36 VARCHAR2
67 , p7_a37 DATE
68 , p7_a38 NUMBER
69 , p7_a39 NUMBER
70 , p7_a40 NUMBER
71 , x_address_id out NUMBER
72 )
73 as
74 ddp_adr_rec jtf_cal_addr_pvt.addrrec;
75 ddindx binary_integer; indx binary_integer;
76 begin
77
78 -- copy data to the local IN or IN-OUT args, if any
79
80
81
82
83
84
85
86 ddp_adr_rec.address_id := p7_a0;
87 ddp_adr_rec.resource_id := p7_a1;
88 ddp_adr_rec.created_by := p7_a2;
89 ddp_adr_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
90 ddp_adr_rec.last_updated_by := p7_a4;
91 ddp_adr_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a5);
92 ddp_adr_rec.last_update_login := p7_a6;
93 ddp_adr_rec.last_name := p7_a7;
94 ddp_adr_rec.first_name := p7_a8;
95 ddp_adr_rec.job_title := p7_a9;
96 ddp_adr_rec.company := p7_a10;
97 ddp_adr_rec.primary_contact := p7_a11;
98 ddp_adr_rec.contact1_type := p7_a12;
99 ddp_adr_rec.contact1 := p7_a13;
100 ddp_adr_rec.contact2_type := p7_a14;
101 ddp_adr_rec.contact2 := p7_a15;
102 ddp_adr_rec.contact3_type := p7_a16;
103 ddp_adr_rec.contact3 := p7_a17;
104 ddp_adr_rec.contact4_type := p7_a18;
105 ddp_adr_rec.contact4 := p7_a19;
106 ddp_adr_rec.contact5_type := p7_a20;
107 ddp_adr_rec.contact5 := p7_a21;
108 ddp_adr_rec.www_address := p7_a22;
109 ddp_adr_rec.assistant_name := p7_a23;
110 ddp_adr_rec.assistant_phone := p7_a24;
111 ddp_adr_rec.category := p7_a25;
112 ddp_adr_rec.address1 := p7_a26;
113 ddp_adr_rec.address2 := p7_a27;
114 ddp_adr_rec.address3 := p7_a28;
115 ddp_adr_rec.address4 := p7_a29;
116 ddp_adr_rec.city := p7_a30;
117 ddp_adr_rec.county := p7_a31;
118 ddp_adr_rec.state := p7_a32;
119 ddp_adr_rec.zip := p7_a33;
120 ddp_adr_rec.country := p7_a34;
121 ddp_adr_rec.note := p7_a35;
122 ddp_adr_rec.private_flag := p7_a36;
123 ddp_adr_rec.deleted_as_of := rosetta_g_miss_date_in_map(p7_a37);
124 ddp_adr_rec.application_id := p7_a38;
125 ddp_adr_rec.security_group_id := p7_a39;
126 ddp_adr_rec.object_version_number := p7_a40;
127
128
129 -- here's the delegated call to the old PL/SQL routine
130 jtf_cal_addr_pvt.insert_row(p_api_version,
131 p_init_msg_list,
132 p_commit,
133 p_validation_level,
134 x_return_status,
135 x_msg_count,
136 x_msg_data,
137 ddp_adr_rec,
138 x_address_id);
139
140 -- copy data back from the local OUT or IN-OUT args, if any
141
142
143
144
145
146
147
148
149 end;
150
151 procedure update_row(p_api_version NUMBER
152 , p_init_msg_list VARCHAR2
153 , p_commit VARCHAR2
154 , p_validation_level NUMBER
155 , x_return_status out VARCHAR2
156 , x_msg_count out NUMBER
157 , x_msg_data out VARCHAR2
158 , p7_a0 NUMBER
159 , p7_a1 NUMBER
160 , p7_a2 NUMBER
161 , p7_a3 DATE
162 , p7_a4 NUMBER
163 , p7_a5 DATE
164 , p7_a6 NUMBER
165 , p7_a7 VARCHAR2
166 , p7_a8 VARCHAR2
167 , p7_a9 VARCHAR2
168 , p7_a10 VARCHAR2
169 , p7_a11 NUMBER
170 , p7_a12 VARCHAR2
171 , p7_a13 VARCHAR2
172 , p7_a14 VARCHAR2
173 , p7_a15 VARCHAR2
174 , p7_a16 VARCHAR2
175 , p7_a17 VARCHAR2
176 , p7_a18 VARCHAR2
177 , p7_a19 VARCHAR2
178 , p7_a20 VARCHAR2
179 , p7_a21 VARCHAR2
180 , p7_a22 VARCHAR2
181 , p7_a23 VARCHAR2
182 , p7_a24 VARCHAR2
183 , p7_a25 NUMBER
184 , p7_a26 VARCHAR2
185 , p7_a27 VARCHAR2
186 , p7_a28 VARCHAR2
187 , p7_a29 VARCHAR2
188 , p7_a30 VARCHAR2
189 , p7_a31 VARCHAR2
190 , p7_a32 VARCHAR2
191 , p7_a33 VARCHAR2
192 , p7_a34 VARCHAR2
193 , p7_a35 VARCHAR2
194 , p7_a36 VARCHAR2
195 , p7_a37 DATE
196 , p7_a38 NUMBER
197 , p7_a39 NUMBER
198 , p7_a40 NUMBER
199 , x_object_version_number out NUMBER
200 )
201 as
202 ddp_adr_rec jtf_cal_addr_pvt.addrrec;
203 ddindx binary_integer; indx binary_integer;
204 begin
205
206 -- copy data to the local IN or IN-OUT args, if any
207
208
209
210
211
212
213
214 ddp_adr_rec.address_id := p7_a0;
215 ddp_adr_rec.resource_id := p7_a1;
216 ddp_adr_rec.created_by := p7_a2;
217 ddp_adr_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
218 ddp_adr_rec.last_updated_by := p7_a4;
219 ddp_adr_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a5);
220 ddp_adr_rec.last_update_login := p7_a6;
221 ddp_adr_rec.last_name := p7_a7;
222 ddp_adr_rec.first_name := p7_a8;
223 ddp_adr_rec.job_title := p7_a9;
224 ddp_adr_rec.company := p7_a10;
225 ddp_adr_rec.primary_contact := p7_a11;
226 ddp_adr_rec.contact1_type := p7_a12;
227 ddp_adr_rec.contact1 := p7_a13;
228 ddp_adr_rec.contact2_type := p7_a14;
229 ddp_adr_rec.contact2 := p7_a15;
230 ddp_adr_rec.contact3_type := p7_a16;
231 ddp_adr_rec.contact3 := p7_a17;
232 ddp_adr_rec.contact4_type := p7_a18;
233 ddp_adr_rec.contact4 := p7_a19;
234 ddp_adr_rec.contact5_type := p7_a20;
235 ddp_adr_rec.contact5 := p7_a21;
236 ddp_adr_rec.www_address := p7_a22;
237 ddp_adr_rec.assistant_name := p7_a23;
238 ddp_adr_rec.assistant_phone := p7_a24;
239 ddp_adr_rec.category := p7_a25;
240 ddp_adr_rec.address1 := p7_a26;
241 ddp_adr_rec.address2 := p7_a27;
242 ddp_adr_rec.address3 := p7_a28;
243 ddp_adr_rec.address4 := p7_a29;
244 ddp_adr_rec.city := p7_a30;
245 ddp_adr_rec.county := p7_a31;
246 ddp_adr_rec.state := p7_a32;
247 ddp_adr_rec.zip := p7_a33;
248 ddp_adr_rec.country := p7_a34;
249 ddp_adr_rec.note := p7_a35;
250 ddp_adr_rec.private_flag := p7_a36;
251 ddp_adr_rec.deleted_as_of := rosetta_g_miss_date_in_map(p7_a37);
252 ddp_adr_rec.application_id := p7_a38;
253 ddp_adr_rec.security_group_id := p7_a39;
254 ddp_adr_rec.object_version_number := p7_a40;
255
256
257 -- here's the delegated call to the old PL/SQL routine
258 jtf_cal_addr_pvt.update_row(p_api_version,
259 p_init_msg_list,
260 p_commit,
261 p_validation_level,
262 x_return_status,
263 x_msg_count,
264 x_msg_data,
265 ddp_adr_rec,
266 x_object_version_number);
267
268 -- copy data back from the local OUT or IN-OUT args, if any
269
270
271
272
273
274
275
276
277 end;
278
279 end jtf_cal_addr_pvt_w;