DBA Data[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;