[Home] [Help]
PACKAGE BODY: APPS.AMS_TRACKING_PVT_W
Source
1 package body ams_tracking_pvt_w as
2 /* $Header: amswtrkb.pls 120.2 2006/01/05 13:24 rrajesh 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 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure log_interaction(p_api_version_number NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , p_validation_level NUMBER
26 , x_return_status out nocopy VARCHAR2
27 , x_msg_count out nocopy NUMBER
28 , x_msg_data out nocopy VARCHAR2
29 , x_interaction_id out nocopy NUMBER
30 , p8_a0 NUMBER := 0-1962.0724
31 , p8_a1 DATE := fnd_api.g_miss_date
32 , p8_a2 NUMBER := 0-1962.0724
33 , p8_a3 DATE := fnd_api.g_miss_date
34 , p8_a4 NUMBER := 0-1962.0724
35 , p8_a5 NUMBER := 0-1962.0724
36 , p8_a6 NUMBER := 0-1962.0724
37 , p8_a7 VARCHAR2 := fnd_api.g_miss_char
38 , p8_a8 VARCHAR2 := fnd_api.g_miss_char
39 , p8_a9 NUMBER := 0-1962.0724
40 , p8_a10 VARCHAR2 := fnd_api.g_miss_char
41 , p8_a11 NUMBER := 0-1962.0724
42 , p8_a12 NUMBER := 0-1962.0724
43 , p8_a13 NUMBER := 0-1962.0724
44 , p8_a14 NUMBER := 0-1962.0724
45 , p8_a15 NUMBER := 0-1962.0724
46 , p8_a16 VARCHAR2 := fnd_api.g_miss_char
47 , p8_a17 NUMBER := 0-1962.0724
48 )
49
50 as
51 ddp_track_rec ams_tracking_pvt.interaction_track_rec_type;
52 ddindx binary_integer; indx binary_integer;
53 begin
54
55 -- copy data to the local IN or IN-OUT args, if any
56
57
58
59
60
61
62
63
64 ddp_track_rec.created_by := rosetta_g_miss_num_map(p8_a0);
65 ddp_track_rec.creation_date := rosetta_g_miss_date_in_map(p8_a1);
66 ddp_track_rec.last_updated_by := rosetta_g_miss_num_map(p8_a2);
67 ddp_track_rec.last_update_date := rosetta_g_miss_date_in_map(p8_a3);
68 ddp_track_rec.last_update_login := rosetta_g_miss_num_map(p8_a4);
69 ddp_track_rec.object_version_number := rosetta_g_miss_num_map(p8_a5);
70 ddp_track_rec.web_content_id := rosetta_g_miss_num_map(p8_a6);
71 ddp_track_rec.obj_type := p8_a7;
72 ddp_track_rec.obj_src_code := p8_a8;
73 ddp_track_rec.obj_id := rosetta_g_miss_num_map(p8_a9);
74 ddp_track_rec.offer_src_code := p8_a10;
75 ddp_track_rec.offer_id := rosetta_g_miss_num_map(p8_a11);
76 ddp_track_rec.party_id := rosetta_g_miss_num_map(p8_a12);
77 ddp_track_rec.affiliate_id := rosetta_g_miss_num_map(p8_a13);
78 ddp_track_rec.posting_id := rosetta_g_miss_num_map(p8_a14);
79 ddp_track_rec.did := rosetta_g_miss_num_map(p8_a15);
80 ddp_track_rec.flavour := p8_a16;
81 ddp_track_rec.web_tracking_id := rosetta_g_miss_num_map(p8_a17);
82
83 -- here's the delegated call to the old PL/SQL routine
84 ams_tracking_pvt.log_interaction(p_api_version_number,
85 p_init_msg_list,
86 p_commit,
87 p_validation_level,
88 x_return_status,
89 x_msg_count,
90 x_msg_data,
91 x_interaction_id,
92 ddp_track_rec);
93
94 -- copy data back from the local variables to OUT or IN-OUT args, if any
95
96
97
98
99
100
101
102
103 end;
104
105 procedure log_redirect(x_redirect_url out nocopy VARCHAR2
106 , x_interaction_id out nocopy NUMBER
107 , x_action_parameter_code out nocopy VARCHAR2
108 , p0_a0 NUMBER := 0-1962.0724
109 , p0_a1 DATE := fnd_api.g_miss_date
110 , p0_a2 NUMBER := 0-1962.0724
111 , p0_a3 DATE := fnd_api.g_miss_date
112 , p0_a4 NUMBER := 0-1962.0724
113 , p0_a5 NUMBER := 0-1962.0724
114 , p0_a6 NUMBER := 0-1962.0724
115 , p0_a7 VARCHAR2 := fnd_api.g_miss_char
116 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
117 , p0_a9 NUMBER := 0-1962.0724
118 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
119 , p0_a11 NUMBER := 0-1962.0724
120 , p0_a12 NUMBER := 0-1962.0724
121 , p0_a13 NUMBER := 0-1962.0724
122 , p0_a14 NUMBER := 0-1962.0724
123 , p0_a15 NUMBER := 0-1962.0724
124 , p0_a16 VARCHAR2 := fnd_api.g_miss_char
125 , p0_a17 NUMBER := 0-1962.0724
126 )
127
128 as
129 ddtracking_rec ams_tracking_pvt.interaction_track_rec_type;
130 ddindx binary_integer; indx binary_integer;
131 begin
132
133 -- copy data to the local IN or IN-OUT args, if any
134 ddtracking_rec.created_by := rosetta_g_miss_num_map(p0_a0);
135 ddtracking_rec.creation_date := rosetta_g_miss_date_in_map(p0_a1);
136 ddtracking_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
137 ddtracking_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a3);
138 ddtracking_rec.last_update_login := rosetta_g_miss_num_map(p0_a4);
139 ddtracking_rec.object_version_number := rosetta_g_miss_num_map(p0_a5);
140 ddtracking_rec.web_content_id := rosetta_g_miss_num_map(p0_a6);
141 ddtracking_rec.obj_type := p0_a7;
142 ddtracking_rec.obj_src_code := p0_a8;
143 ddtracking_rec.obj_id := rosetta_g_miss_num_map(p0_a9);
144 ddtracking_rec.offer_src_code := p0_a10;
145 ddtracking_rec.offer_id := rosetta_g_miss_num_map(p0_a11);
146 ddtracking_rec.party_id := rosetta_g_miss_num_map(p0_a12);
147 ddtracking_rec.affiliate_id := rosetta_g_miss_num_map(p0_a13);
148 ddtracking_rec.posting_id := rosetta_g_miss_num_map(p0_a14);
149 ddtracking_rec.did := rosetta_g_miss_num_map(p0_a15);
150 ddtracking_rec.flavour := p0_a16;
151 ddtracking_rec.web_tracking_id := rosetta_g_miss_num_map(p0_a17);
152
153
154
155
156 -- here's the delegated call to the old PL/SQL routine
157 ams_tracking_pvt.log_redirect(ddtracking_rec,
158 x_redirect_url,
159 x_interaction_id,
160 x_action_parameter_code);
161
162 -- copy data back from the local variables to OUT or IN-OUT args, if any
163
164
165
166 end;
167
168 procedure weblite_log(x_interaction_id out nocopy NUMBER
169 , x_msource out nocopy NUMBER
170 , x_return_status out nocopy VARCHAR2
171 , x_msg_count out nocopy NUMBER
172 , x_msg_data out nocopy VARCHAR2
173 , p0_a0 NUMBER := 0-1962.0724
174 , p0_a1 DATE := fnd_api.g_miss_date
175 , p0_a2 NUMBER := 0-1962.0724
176 , p0_a3 DATE := fnd_api.g_miss_date
177 , p0_a4 NUMBER := 0-1962.0724
178 , p0_a5 NUMBER := 0-1962.0724
179 , p0_a6 NUMBER := 0-1962.0724
180 , p0_a7 VARCHAR2 := fnd_api.g_miss_char
181 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
182 , p0_a9 NUMBER := 0-1962.0724
183 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
184 , p0_a11 NUMBER := 0-1962.0724
185 , p0_a12 NUMBER := 0-1962.0724
186 , p0_a13 NUMBER := 0-1962.0724
187 , p0_a14 NUMBER := 0-1962.0724
188 , p0_a15 NUMBER := 0-1962.0724
189 , p0_a16 VARCHAR2 := fnd_api.g_miss_char
190 , p0_a17 NUMBER := 0-1962.0724
191 )
192
193 as
194 ddtracking_rec ams_tracking_pvt.interaction_track_rec_type;
195 ddindx binary_integer; indx binary_integer;
196 begin
197
198 -- copy data to the local IN or IN-OUT args, if any
199 ddtracking_rec.created_by := rosetta_g_miss_num_map(p0_a0);
200 ddtracking_rec.creation_date := rosetta_g_miss_date_in_map(p0_a1);
201 ddtracking_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
202 ddtracking_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a3);
203 ddtracking_rec.last_update_login := rosetta_g_miss_num_map(p0_a4);
204 ddtracking_rec.object_version_number := rosetta_g_miss_num_map(p0_a5);
205 ddtracking_rec.web_content_id := rosetta_g_miss_num_map(p0_a6);
206 ddtracking_rec.obj_type := p0_a7;
207 ddtracking_rec.obj_src_code := p0_a8;
208 ddtracking_rec.obj_id := rosetta_g_miss_num_map(p0_a9);
209 ddtracking_rec.offer_src_code := p0_a10;
210 ddtracking_rec.offer_id := rosetta_g_miss_num_map(p0_a11);
211 ddtracking_rec.party_id := rosetta_g_miss_num_map(p0_a12);
212 ddtracking_rec.affiliate_id := rosetta_g_miss_num_map(p0_a13);
213 ddtracking_rec.posting_id := rosetta_g_miss_num_map(p0_a14);
214 ddtracking_rec.did := rosetta_g_miss_num_map(p0_a15);
215 ddtracking_rec.flavour := p0_a16;
216 ddtracking_rec.web_tracking_id := rosetta_g_miss_num_map(p0_a17);
217
218
219
220
221
222
223 -- here's the delegated call to the old PL/SQL routine
224 ams_tracking_pvt.weblite_log(ddtracking_rec,
225 x_interaction_id,
226 x_msource,
227 x_return_status,
228 x_msg_count,
229 x_msg_data);
230
231 -- copy data back from the local variables to OUT or IN-OUT args, if any
232
233
234
235
236
237 end;
238
239 end ams_tracking_pvt_w;