[Home] [Help]
PACKAGE BODY: APPS.AMS_ITEM_REVISION_PUB_W
Source
1 package body ams_item_revision_pub_w as
2 /* $Header: amswrevb.pls 115.5 2002/11/11 22:08:09 abhola 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_item_revision(p_api_version 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 , p7_a0 NUMBER := 0-1962.0724
30 , p7_a1 NUMBER := 0-1962.0724
31 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
32 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
33 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
34 , p7_a5 DATE := fnd_api.g_miss_date
35 , p7_a6 DATE := fnd_api.g_miss_date
36 , p7_a7 DATE := fnd_api.g_miss_date
37 , p7_a8 NUMBER := 0-1962.0724
38 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
39 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
40 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
41 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
42 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
43 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
44 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
45 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
46 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
47 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
48 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
49 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
50 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
51 , p7_a22 VARCHAR2 := fnd_api.g_miss_char
52 , p7_a23 VARCHAR2 := fnd_api.g_miss_char
53 , p7_a24 VARCHAR2 := fnd_api.g_miss_char
54 , p7_a25 DATE := fnd_api.g_miss_date
55 , p7_a26 NUMBER := 0-1962.0724
56 , p7_a27 DATE := fnd_api.g_miss_date
57 , p7_a28 NUMBER := 0-1962.0724
58 , p7_a29 NUMBER := 0-1962.0724
59 , p7_a30 NUMBER := 0-1962.0724
60 , p7_a31 NUMBER := 0-1962.0724
61 , p7_a32 NUMBER := 0-1962.0724
62 , p7_a33 DATE := fnd_api.g_miss_date
63 , p7_a34 NUMBER := 0-1962.0724
64 )
65 as
66 ddp_item_revision_rec ams_item_revision_pub.item_revision_rec_type;
67 ddindx binary_integer; indx binary_integer;
68 begin
69
70 -- copy data to the local IN or IN-OUT args, if any
71
72
73
74
75
76
77
78 ddp_item_revision_rec.inventory_item_id := rosetta_g_miss_num_map(p7_a0);
79 ddp_item_revision_rec.organization_id := rosetta_g_miss_num_map(p7_a1);
80 ddp_item_revision_rec.revision := p7_a2;
81 ddp_item_revision_rec.description := p7_a3;
82 ddp_item_revision_rec.change_notice := p7_a4;
83 ddp_item_revision_rec.ecn_initiation_date := rosetta_g_miss_date_in_map(p7_a5);
84 ddp_item_revision_rec.implementation_date := rosetta_g_miss_date_in_map(p7_a6);
85 ddp_item_revision_rec.effectivity_date := rosetta_g_miss_date_in_map(p7_a7);
86 ddp_item_revision_rec.revised_item_sequence_id := rosetta_g_miss_num_map(p7_a8);
87 ddp_item_revision_rec.attribute_category := p7_a9;
88 ddp_item_revision_rec.attribute1 := p7_a10;
89 ddp_item_revision_rec.attribute2 := p7_a11;
90 ddp_item_revision_rec.attribute3 := p7_a12;
91 ddp_item_revision_rec.attribute4 := p7_a13;
92 ddp_item_revision_rec.attribute5 := p7_a14;
93 ddp_item_revision_rec.attribute6 := p7_a15;
94 ddp_item_revision_rec.attribute7 := p7_a16;
95 ddp_item_revision_rec.attribute8 := p7_a17;
96 ddp_item_revision_rec.attribute9 := p7_a18;
97 ddp_item_revision_rec.attribute10 := p7_a19;
98 ddp_item_revision_rec.attribute11 := p7_a20;
99 ddp_item_revision_rec.attribute12 := p7_a21;
100 ddp_item_revision_rec.attribute13 := p7_a22;
101 ddp_item_revision_rec.attribute14 := p7_a23;
102 ddp_item_revision_rec.attribute15 := p7_a24;
103 ddp_item_revision_rec.creation_date := rosetta_g_miss_date_in_map(p7_a25);
104 ddp_item_revision_rec.created_by := rosetta_g_miss_num_map(p7_a26);
105 ddp_item_revision_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a27);
106 ddp_item_revision_rec.last_updated_by := rosetta_g_miss_num_map(p7_a28);
107 ddp_item_revision_rec.last_update_login := rosetta_g_miss_num_map(p7_a29);
108 ddp_item_revision_rec.request_id := rosetta_g_miss_num_map(p7_a30);
109 ddp_item_revision_rec.program_application_id := rosetta_g_miss_num_map(p7_a31);
110 ddp_item_revision_rec.program_id := rosetta_g_miss_num_map(p7_a32);
111 ddp_item_revision_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a33);
112 ddp_item_revision_rec.object_version_number := rosetta_g_miss_num_map(p7_a34);
113
114 -- here's the delegated call to the old PL/SQL routine
115 ams_item_revision_pub.create_item_revision(p_api_version,
116 p_init_msg_list,
117 p_commit,
118 p_validation_level,
119 x_return_status,
120 x_msg_count,
121 x_msg_data,
122 ddp_item_revision_rec);
123
124 -- copy data back from the local OUT or IN-OUT args, if any
125
126
127
128
129
130
131
132 end;
133
134 procedure update_item_revision(p_api_version NUMBER
135 , p_init_msg_list VARCHAR2
136 , p_commit VARCHAR2
137 , p_validation_level NUMBER
138 , x_return_status OUT NOCOPY VARCHAR2
139 , x_msg_count OUT NOCOPY NUMBER
140 , x_msg_data OUT NOCOPY VARCHAR2
141 , p7_a0 NUMBER := 0-1962.0724
142 , p7_a1 NUMBER := 0-1962.0724
143 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
144 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
145 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
146 , p7_a5 DATE := fnd_api.g_miss_date
147 , p7_a6 DATE := fnd_api.g_miss_date
148 , p7_a7 DATE := fnd_api.g_miss_date
149 , p7_a8 NUMBER := 0-1962.0724
150 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
151 , p7_a10 VARCHAR2 := fnd_api.g_miss_char
152 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
153 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
154 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
155 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
156 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
157 , p7_a16 VARCHAR2 := fnd_api.g_miss_char
158 , p7_a17 VARCHAR2 := fnd_api.g_miss_char
159 , p7_a18 VARCHAR2 := fnd_api.g_miss_char
160 , p7_a19 VARCHAR2 := fnd_api.g_miss_char
161 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
162 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
163 , p7_a22 VARCHAR2 := fnd_api.g_miss_char
164 , p7_a23 VARCHAR2 := fnd_api.g_miss_char
165 , p7_a24 VARCHAR2 := fnd_api.g_miss_char
166 , p7_a25 DATE := fnd_api.g_miss_date
167 , p7_a26 NUMBER := 0-1962.0724
168 , p7_a27 DATE := fnd_api.g_miss_date
169 , p7_a28 NUMBER := 0-1962.0724
170 , p7_a29 NUMBER := 0-1962.0724
171 , p7_a30 NUMBER := 0-1962.0724
172 , p7_a31 NUMBER := 0-1962.0724
173 , p7_a32 NUMBER := 0-1962.0724
174 , p7_a33 DATE := fnd_api.g_miss_date
175 , p7_a34 NUMBER := 0-1962.0724
176 )
177 as
178 ddp_item_revision_rec ams_item_revision_pub.item_revision_rec_type;
179 ddindx binary_integer; indx binary_integer;
180 begin
181
182 -- copy data to the local IN or IN-OUT args, if any
183
184
185
186
187
188
189
190 ddp_item_revision_rec.inventory_item_id := rosetta_g_miss_num_map(p7_a0);
191 ddp_item_revision_rec.organization_id := rosetta_g_miss_num_map(p7_a1);
192 ddp_item_revision_rec.revision := p7_a2;
193 ddp_item_revision_rec.description := p7_a3;
194 ddp_item_revision_rec.change_notice := p7_a4;
195 ddp_item_revision_rec.ecn_initiation_date := rosetta_g_miss_date_in_map(p7_a5);
196 ddp_item_revision_rec.implementation_date := rosetta_g_miss_date_in_map(p7_a6);
197 ddp_item_revision_rec.effectivity_date := rosetta_g_miss_date_in_map(p7_a7);
198 ddp_item_revision_rec.revised_item_sequence_id := rosetta_g_miss_num_map(p7_a8);
199 ddp_item_revision_rec.attribute_category := p7_a9;
200 ddp_item_revision_rec.attribute1 := p7_a10;
201 ddp_item_revision_rec.attribute2 := p7_a11;
202 ddp_item_revision_rec.attribute3 := p7_a12;
203 ddp_item_revision_rec.attribute4 := p7_a13;
204 ddp_item_revision_rec.attribute5 := p7_a14;
205 ddp_item_revision_rec.attribute6 := p7_a15;
206 ddp_item_revision_rec.attribute7 := p7_a16;
207 ddp_item_revision_rec.attribute8 := p7_a17;
208 ddp_item_revision_rec.attribute9 := p7_a18;
209 ddp_item_revision_rec.attribute10 := p7_a19;
210 ddp_item_revision_rec.attribute11 := p7_a20;
211 ddp_item_revision_rec.attribute12 := p7_a21;
212 ddp_item_revision_rec.attribute13 := p7_a22;
213 ddp_item_revision_rec.attribute14 := p7_a23;
214 ddp_item_revision_rec.attribute15 := p7_a24;
215 ddp_item_revision_rec.creation_date := rosetta_g_miss_date_in_map(p7_a25);
216 ddp_item_revision_rec.created_by := rosetta_g_miss_num_map(p7_a26);
217 ddp_item_revision_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a27);
218 ddp_item_revision_rec.last_updated_by := rosetta_g_miss_num_map(p7_a28);
219 ddp_item_revision_rec.last_update_login := rosetta_g_miss_num_map(p7_a29);
220 ddp_item_revision_rec.request_id := rosetta_g_miss_num_map(p7_a30);
221 ddp_item_revision_rec.program_application_id := rosetta_g_miss_num_map(p7_a31);
222 ddp_item_revision_rec.program_id := rosetta_g_miss_num_map(p7_a32);
223 ddp_item_revision_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a33);
224 ddp_item_revision_rec.object_version_number := rosetta_g_miss_num_map(p7_a34);
225
226 -- here's the delegated call to the old PL/SQL routine
227 ams_item_revision_pub.update_item_revision(p_api_version,
228 p_init_msg_list,
229 p_commit,
230 p_validation_level,
231 x_return_status,
232 x_msg_count,
233 x_msg_data,
234 ddp_item_revision_rec);
235
236 -- copy data back from the local OUT or IN-OUT args, if any
237
238
239
240
241
242
243
244 end;
245
246 end ams_item_revision_pub_w;