[Home] [Help]
PACKAGE BODY: APPS.AHL_MC_ITEM_COMP_PUB_W
Source
1 package body ahl_mc_item_comp_pub_w as
2 /* $Header: AHLPICWB.pls 120.1 2006/05/03 01:08 sathapli noship $ */
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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure process_item_composition(p_api_version NUMBER
17 , p_init_msg_list VARCHAR2
18 , p_commit VARCHAR2
19 , p_validation_level NUMBER
20 , p_module_type VARCHAR2
21 , x_return_status out nocopy VARCHAR2
22 , x_msg_count out nocopy NUMBER
23 , x_msg_data out nocopy VARCHAR2
24 , p8_a0 in out nocopy NUMBER
25 , p8_a1 in out nocopy NUMBER
26 , p8_a2 in out nocopy VARCHAR2
27 , p8_a3 in out nocopy NUMBER
28 , p8_a4 in out nocopy VARCHAR2
29 , p8_a5 in out nocopy NUMBER
30 , p8_a6 in out nocopy VARCHAR2
31 , p8_a7 in out nocopy VARCHAR2
32 , p8_a8 in out nocopy DATE
33 , p8_a9 in out nocopy NUMBER
34 , p8_a10 in out nocopy VARCHAR2
35 , p8_a11 in out nocopy VARCHAR2
36 , p8_a12 in out nocopy VARCHAR2
37 , p8_a13 in out nocopy VARCHAR2
38 , p8_a14 in out nocopy VARCHAR2
39 , p8_a15 in out nocopy VARCHAR2
40 , p8_a16 in out nocopy VARCHAR2
41 , p8_a17 in out nocopy VARCHAR2
42 , p8_a18 in out nocopy VARCHAR2
43 , p8_a19 in out nocopy VARCHAR2
44 , p8_a20 in out nocopy VARCHAR2
45 , p8_a21 in out nocopy VARCHAR2
46 , p8_a22 in out nocopy VARCHAR2
47 , p8_a23 in out nocopy VARCHAR2
48 , p8_a24 in out nocopy VARCHAR2
49 , p8_a25 in out nocopy VARCHAR2
50 , p8_a26 in out nocopy VARCHAR2
51 , p9_a0 in out nocopy JTF_NUMBER_TABLE
52 , p9_a1 in out nocopy JTF_NUMBER_TABLE
53 , p9_a2 in out nocopy JTF_NUMBER_TABLE
54 , p9_a3 in out nocopy JTF_VARCHAR2_TABLE_100
55 , p9_a4 in out nocopy JTF_NUMBER_TABLE
56 , p9_a5 in out nocopy JTF_VARCHAR2_TABLE_2000
57 , p9_a6 in out nocopy JTF_NUMBER_TABLE
58 , p9_a7 in out nocopy JTF_VARCHAR2_TABLE_100
59 , p9_a8 in out nocopy JTF_NUMBER_TABLE
60 , p9_a9 in out nocopy JTF_VARCHAR2_TABLE_100
61 , p9_a10 in out nocopy JTF_NUMBER_TABLE
62 , p9_a11 in out nocopy JTF_DATE_TABLE
63 , p9_a12 in out nocopy JTF_NUMBER_TABLE
64 , p9_a13 in out nocopy JTF_NUMBER_TABLE
65 , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_100
66 , p9_a15 in out nocopy JTF_VARCHAR2_TABLE_200
67 , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_200
68 , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_200
69 , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_200
70 , p9_a19 in out nocopy JTF_VARCHAR2_TABLE_200
71 , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_200
72 , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_200
73 , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_200
74 , p9_a23 in out nocopy JTF_VARCHAR2_TABLE_200
75 , p9_a24 in out nocopy JTF_VARCHAR2_TABLE_200
76 , p9_a25 in out nocopy JTF_VARCHAR2_TABLE_200
77 , p9_a26 in out nocopy JTF_VARCHAR2_TABLE_200
78 , p9_a27 in out nocopy JTF_VARCHAR2_TABLE_200
79 , p9_a28 in out nocopy JTF_VARCHAR2_TABLE_200
80 , p9_a29 in out nocopy JTF_VARCHAR2_TABLE_200
81 , p9_a30 in out nocopy JTF_VARCHAR2_TABLE_100
82 )
83
84 as
85 ddp_x_ic_header_rec ahl_mc_item_comp_pvt.header_rec_type;
86 ddp_x_ic_det_tbl ahl_mc_item_comp_pvt.det_tbl_type;
87 ddindx binary_integer; indx binary_integer;
88 begin
89
90 -- copy data to the local IN or IN-OUT args, if any
91
92
93
94
95
96
97
98
99 ddp_x_ic_header_rec.item_composition_id := p8_a0;
100 ddp_x_ic_header_rec.inventory_item_id := p8_a1;
101 ddp_x_ic_header_rec.inventory_item_name := p8_a2;
102 ddp_x_ic_header_rec.inventory_org_id := p8_a3;
103 ddp_x_ic_header_rec.inventory_org_code := p8_a4;
104 ddp_x_ic_header_rec.inventory_master_org_id := p8_a5;
105 ddp_x_ic_header_rec.draft_flag := p8_a6;
106 ddp_x_ic_header_rec.status_code := p8_a7;
107 ddp_x_ic_header_rec.effective_end_date := rosetta_g_miss_date_in_map(p8_a8);
108 ddp_x_ic_header_rec.object_version_number := p8_a9;
109 ddp_x_ic_header_rec.attribute_category := p8_a10;
110 ddp_x_ic_header_rec.attribute1 := p8_a11;
111 ddp_x_ic_header_rec.attribute2 := p8_a12;
112 ddp_x_ic_header_rec.attribute3 := p8_a13;
113 ddp_x_ic_header_rec.attribute4 := p8_a14;
114 ddp_x_ic_header_rec.attribute5 := p8_a15;
115 ddp_x_ic_header_rec.attribute6 := p8_a16;
116 ddp_x_ic_header_rec.attribute7 := p8_a17;
117 ddp_x_ic_header_rec.attribute8 := p8_a18;
118 ddp_x_ic_header_rec.attribute9 := p8_a19;
119 ddp_x_ic_header_rec.attribute10 := p8_a20;
120 ddp_x_ic_header_rec.attribute11 := p8_a21;
121 ddp_x_ic_header_rec.attribute12 := p8_a22;
122 ddp_x_ic_header_rec.attribute13 := p8_a23;
123 ddp_x_ic_header_rec.attribute14 := p8_a24;
124 ddp_x_ic_header_rec.attribute15 := p8_a25;
125 ddp_x_ic_header_rec.operation_flag := p8_a26;
126
127 ahl_mc_item_comp_pvt_w.rosetta_table_copy_in_p2(ddp_x_ic_det_tbl, p9_a0
128 , p9_a1
129 , p9_a2
130 , p9_a3
131 , p9_a4
132 , p9_a5
133 , p9_a6
134 , p9_a7
135 , p9_a8
136 , p9_a9
137 , p9_a10
138 , p9_a11
139 , p9_a12
140 , p9_a13
141 , p9_a14
142 , p9_a15
143 , p9_a16
144 , p9_a17
145 , p9_a18
146 , p9_a19
147 , p9_a20
148 , p9_a21
149 , p9_a22
150 , p9_a23
151 , p9_a24
152 , p9_a25
153 , p9_a26
154 , p9_a27
155 , p9_a28
156 , p9_a29
157 , p9_a30
158 );
159
160 -- here's the delegated call to the old PL/SQL routine
161 ahl_mc_item_comp_pub.process_item_composition(p_api_version,
162 p_init_msg_list,
163 p_commit,
164 p_validation_level,
165 p_module_type,
166 x_return_status,
167 x_msg_count,
168 x_msg_data,
169 ddp_x_ic_header_rec,
170 ddp_x_ic_det_tbl);
171
172 -- copy data back from the local variables to OUT or IN-OUT args, if any
173
174
175
176
177
178
179
180
181 p8_a0 := ddp_x_ic_header_rec.item_composition_id;
182 p8_a1 := ddp_x_ic_header_rec.inventory_item_id;
183 p8_a2 := ddp_x_ic_header_rec.inventory_item_name;
184 p8_a3 := ddp_x_ic_header_rec.inventory_org_id;
185 p8_a4 := ddp_x_ic_header_rec.inventory_org_code;
186 p8_a5 := ddp_x_ic_header_rec.inventory_master_org_id;
187 p8_a6 := ddp_x_ic_header_rec.draft_flag;
188 p8_a7 := ddp_x_ic_header_rec.status_code;
189 p8_a8 := ddp_x_ic_header_rec.effective_end_date;
190 p8_a9 := ddp_x_ic_header_rec.object_version_number;
191 p8_a10 := ddp_x_ic_header_rec.attribute_category;
192 p8_a11 := ddp_x_ic_header_rec.attribute1;
193 p8_a12 := ddp_x_ic_header_rec.attribute2;
194 p8_a13 := ddp_x_ic_header_rec.attribute3;
195 p8_a14 := ddp_x_ic_header_rec.attribute4;
196 p8_a15 := ddp_x_ic_header_rec.attribute5;
197 p8_a16 := ddp_x_ic_header_rec.attribute6;
198 p8_a17 := ddp_x_ic_header_rec.attribute7;
199 p8_a18 := ddp_x_ic_header_rec.attribute8;
200 p8_a19 := ddp_x_ic_header_rec.attribute9;
201 p8_a20 := ddp_x_ic_header_rec.attribute10;
202 p8_a21 := ddp_x_ic_header_rec.attribute11;
203 p8_a22 := ddp_x_ic_header_rec.attribute12;
204 p8_a23 := ddp_x_ic_header_rec.attribute13;
205 p8_a24 := ddp_x_ic_header_rec.attribute14;
206 p8_a25 := ddp_x_ic_header_rec.attribute15;
207 p8_a26 := ddp_x_ic_header_rec.operation_flag;
208
209 ahl_mc_item_comp_pvt_w.rosetta_table_copy_out_p2(ddp_x_ic_det_tbl, p9_a0
210 , p9_a1
211 , p9_a2
212 , p9_a3
213 , p9_a4
214 , p9_a5
215 , p9_a6
216 , p9_a7
217 , p9_a8
218 , p9_a9
219 , p9_a10
220 , p9_a11
221 , p9_a12
222 , p9_a13
223 , p9_a14
224 , p9_a15
225 , p9_a16
226 , p9_a17
227 , p9_a18
228 , p9_a19
229 , p9_a20
230 , p9_a21
231 , p9_a22
232 , p9_a23
233 , p9_a24
234 , p9_a25
235 , p9_a26
236 , p9_a27
237 , p9_a28
238 , p9_a29
239 , p9_a30
240 );
241 end;
242
243 end ahl_mc_item_comp_pub_w;