[Home] [Help]
PACKAGE BODY: APPS.AHL_RM_OPERATION_PVT_W
Source
1 package body ahl_rm_operation_pvt_w as
2 /* $Header: AHLWOPMB.pls 120.1.12010000.2 2008/11/23 14:30:11 bachandr 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 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_operation(p_api_version NUMBER
17 , p_init_msg_list VARCHAR2
18 , p_commit VARCHAR2
19 , p_validation_level NUMBER
20 , p_default VARCHAR2
21 , p_module_type VARCHAR2
22 , x_return_status out nocopy VARCHAR2
23 , x_msg_count out nocopy NUMBER
24 , x_msg_data out nocopy VARCHAR2
25 , p9_a0 in out nocopy NUMBER
26 , p9_a1 in out nocopy NUMBER
27 , p9_a2 in out nocopy DATE
28 , p9_a3 in out nocopy NUMBER
29 , p9_a4 in out nocopy DATE
30 , p9_a5 in out nocopy NUMBER
31 , p9_a6 in out nocopy NUMBER
32 , p9_a7 in out nocopy VARCHAR2
33 , p9_a8 in out nocopy VARCHAR2
34 , p9_a9 in out nocopy VARCHAR2
35 , p9_a10 in out nocopy VARCHAR2
36 , p9_a11 in out nocopy DATE
37 , p9_a12 in out nocopy DATE
38 , p9_a13 in out nocopy VARCHAR2
39 , p9_a14 in out nocopy VARCHAR2
40 , p9_a15 in out nocopy VARCHAR2
41 , p9_a16 in out nocopy VARCHAR2
42 , p9_a17 in out nocopy VARCHAR2
43 , p9_a18 in out nocopy VARCHAR2
44 , p9_a19 in out nocopy VARCHAR2
45 , p9_a20 in out nocopy VARCHAR2
46 , p9_a21 in out nocopy VARCHAR2
47 , p9_a22 in out nocopy VARCHAR2
48 , p9_a23 in out nocopy VARCHAR2
49 , p9_a24 in out nocopy VARCHAR2
50 , p9_a25 in out nocopy VARCHAR2
51 , p9_a26 in out nocopy VARCHAR2
52 , p9_a27 in out nocopy VARCHAR2
53 , p9_a28 in out nocopy VARCHAR2
54 , p9_a29 in out nocopy VARCHAR2
55 , p9_a30 in out nocopy VARCHAR2
56 , p9_a31 in out nocopy VARCHAR2
57 , p9_a32 in out nocopy VARCHAR2
58 , p9_a33 in out nocopy VARCHAR2
59 , p9_a34 in out nocopy VARCHAR2
60 , p9_a35 in out nocopy VARCHAR2
61 , p9_a36 in out nocopy VARCHAR2
62 , p9_a37 in out nocopy VARCHAR2
63 , p9_a38 in out nocopy VARCHAR2
64 , p9_a39 in out nocopy VARCHAR2
65 , p9_a40 in out nocopy VARCHAR2
66 , p9_a41 in out nocopy VARCHAR2
67 , p9_a42 in out nocopy VARCHAR2
68 , p9_a43 in out nocopy VARCHAR2
69 , p9_a44 in out nocopy VARCHAR2
70 , p9_a45 in out nocopy VARCHAR2
71 , p9_a46 in out nocopy VARCHAR2
72 , p9_a47 in out nocopy VARCHAR2
73 , p9_a48 in out nocopy VARCHAR2
74 , p9_a49 in out nocopy VARCHAR2
75 , p9_a50 in out nocopy VARCHAR2
76 , p9_a51 in out nocopy VARCHAR2
77 , p9_a52 in out nocopy VARCHAR2
78 , p9_a53 in out nocopy VARCHAR2
79 , p9_a54 in out nocopy VARCHAR2
80 , p9_a55 in out nocopy VARCHAR2
81 , p9_a56 in out nocopy VARCHAR2
82 , p9_a57 in out nocopy VARCHAR2
83 )
84
85 as
86 ddp_x_operation_rec ahl_rm_operation_pvt.operation_rec_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
100 ddp_x_operation_rec.operation_id := p9_a0;
101 ddp_x_operation_rec.object_version_number := p9_a1;
102 ddp_x_operation_rec.last_update_date := rosetta_g_miss_date_in_map(p9_a2);
103 ddp_x_operation_rec.last_updated_by := p9_a3;
104 ddp_x_operation_rec.creation_date := rosetta_g_miss_date_in_map(p9_a4);
105 ddp_x_operation_rec.created_by := p9_a5;
106 ddp_x_operation_rec.last_update_login := p9_a6;
107 ddp_x_operation_rec.standard_operation_flag := p9_a7;
108 ddp_x_operation_rec.revision_number := p9_a8;
109 ddp_x_operation_rec.revision_status_code := p9_a9;
110 ddp_x_operation_rec.revision_status := p9_a10;
111 ddp_x_operation_rec.active_start_date := rosetta_g_miss_date_in_map(p9_a11);
112 ddp_x_operation_rec.active_end_date := rosetta_g_miss_date_in_map(p9_a12);
113 ddp_x_operation_rec.qa_inspection_type := p9_a13;
114 ddp_x_operation_rec.qa_inspection_type_desc := p9_a14;
115 ddp_x_operation_rec.operation_type_code := p9_a15;
116 ddp_x_operation_rec.operation_type := p9_a16;
117 ddp_x_operation_rec.process_code := p9_a17;
118 ddp_x_operation_rec.process := p9_a18;
119 ddp_x_operation_rec.model_code := p9_a19;
120 ddp_x_operation_rec.model_meaning := p9_a20;
121 ddp_x_operation_rec.enigma_op_id := p9_a21;
122 ddp_x_operation_rec.description := p9_a22;
123 ddp_x_operation_rec.remarks := p9_a23;
124 ddp_x_operation_rec.revision_notes := p9_a24;
125 ddp_x_operation_rec.concatenated_segments := p9_a25;
126 ddp_x_operation_rec.segment1 := p9_a26;
127 ddp_x_operation_rec.segment2 := p9_a27;
128 ddp_x_operation_rec.segment3 := p9_a28;
129 ddp_x_operation_rec.segment4 := p9_a29;
130 ddp_x_operation_rec.segment5 := p9_a30;
131 ddp_x_operation_rec.segment6 := p9_a31;
132 ddp_x_operation_rec.segment7 := p9_a32;
133 ddp_x_operation_rec.segment8 := p9_a33;
134 ddp_x_operation_rec.segment9 := p9_a34;
135 ddp_x_operation_rec.segment10 := p9_a35;
136 ddp_x_operation_rec.segment11 := p9_a36;
137 ddp_x_operation_rec.segment12 := p9_a37;
138 ddp_x_operation_rec.segment13 := p9_a38;
139 ddp_x_operation_rec.segment14 := p9_a39;
140 ddp_x_operation_rec.segment15 := p9_a40;
141 ddp_x_operation_rec.attribute_category := p9_a41;
142 ddp_x_operation_rec.attribute1 := p9_a42;
143 ddp_x_operation_rec.attribute2 := p9_a43;
144 ddp_x_operation_rec.attribute3 := p9_a44;
145 ddp_x_operation_rec.attribute4 := p9_a45;
146 ddp_x_operation_rec.attribute5 := p9_a46;
147 ddp_x_operation_rec.attribute6 := p9_a47;
148 ddp_x_operation_rec.attribute7 := p9_a48;
149 ddp_x_operation_rec.attribute8 := p9_a49;
150 ddp_x_operation_rec.attribute9 := p9_a50;
151 ddp_x_operation_rec.attribute10 := p9_a51;
152 ddp_x_operation_rec.attribute11 := p9_a52;
153 ddp_x_operation_rec.attribute12 := p9_a53;
154 ddp_x_operation_rec.attribute13 := p9_a54;
155 ddp_x_operation_rec.attribute14 := p9_a55;
156 ddp_x_operation_rec.attribute15 := p9_a56;
157 ddp_x_operation_rec.dml_operation := p9_a57;
158
159 -- here's the delegated call to the old PL/SQL routine
160 ahl_rm_operation_pvt.process_operation(p_api_version,
161 p_init_msg_list,
162 p_commit,
163 p_validation_level,
164 p_default,
165 p_module_type,
166 x_return_status,
167 x_msg_count,
168 x_msg_data,
169 ddp_x_operation_rec);
170
171 -- copy data back from the local variables to OUT or IN-OUT args, if any
172
173
174
175
176
177
178
179
180
181 p9_a0 := ddp_x_operation_rec.operation_id;
182 p9_a1 := ddp_x_operation_rec.object_version_number;
183 p9_a2 := ddp_x_operation_rec.last_update_date;
184 p9_a3 := ddp_x_operation_rec.last_updated_by;
185 p9_a4 := ddp_x_operation_rec.creation_date;
186 p9_a5 := ddp_x_operation_rec.created_by;
187 p9_a6 := ddp_x_operation_rec.last_update_login;
188 p9_a7 := ddp_x_operation_rec.standard_operation_flag;
189 p9_a8 := ddp_x_operation_rec.revision_number;
190 p9_a9 := ddp_x_operation_rec.revision_status_code;
191 p9_a10 := ddp_x_operation_rec.revision_status;
192 p9_a11 := ddp_x_operation_rec.active_start_date;
193 p9_a12 := ddp_x_operation_rec.active_end_date;
194 p9_a13 := ddp_x_operation_rec.qa_inspection_type;
195 p9_a14 := ddp_x_operation_rec.qa_inspection_type_desc;
196 p9_a15 := ddp_x_operation_rec.operation_type_code;
197 p9_a16 := ddp_x_operation_rec.operation_type;
198 p9_a17 := ddp_x_operation_rec.process_code;
199 p9_a18 := ddp_x_operation_rec.process;
200 p9_a19 := ddp_x_operation_rec.model_code;
201 p9_a20 := ddp_x_operation_rec.model_meaning;
202 p9_a21 := ddp_x_operation_rec.enigma_op_id;
203 p9_a22 := ddp_x_operation_rec.description;
204 p9_a23 := ddp_x_operation_rec.remarks;
205 p9_a24 := ddp_x_operation_rec.revision_notes;
206 p9_a25 := ddp_x_operation_rec.concatenated_segments;
207 p9_a26 := ddp_x_operation_rec.segment1;
208 p9_a27 := ddp_x_operation_rec.segment2;
209 p9_a28 := ddp_x_operation_rec.segment3;
210 p9_a29 := ddp_x_operation_rec.segment4;
211 p9_a30 := ddp_x_operation_rec.segment5;
212 p9_a31 := ddp_x_operation_rec.segment6;
213 p9_a32 := ddp_x_operation_rec.segment7;
214 p9_a33 := ddp_x_operation_rec.segment8;
215 p9_a34 := ddp_x_operation_rec.segment9;
216 p9_a35 := ddp_x_operation_rec.segment10;
217 p9_a36 := ddp_x_operation_rec.segment11;
218 p9_a37 := ddp_x_operation_rec.segment12;
219 p9_a38 := ddp_x_operation_rec.segment13;
220 p9_a39 := ddp_x_operation_rec.segment14;
221 p9_a40 := ddp_x_operation_rec.segment15;
222 p9_a41 := ddp_x_operation_rec.attribute_category;
223 p9_a42 := ddp_x_operation_rec.attribute1;
224 p9_a43 := ddp_x_operation_rec.attribute2;
225 p9_a44 := ddp_x_operation_rec.attribute3;
226 p9_a45 := ddp_x_operation_rec.attribute4;
227 p9_a46 := ddp_x_operation_rec.attribute5;
228 p9_a47 := ddp_x_operation_rec.attribute6;
229 p9_a48 := ddp_x_operation_rec.attribute7;
230 p9_a49 := ddp_x_operation_rec.attribute8;
231 p9_a50 := ddp_x_operation_rec.attribute9;
232 p9_a51 := ddp_x_operation_rec.attribute10;
233 p9_a52 := ddp_x_operation_rec.attribute11;
234 p9_a53 := ddp_x_operation_rec.attribute12;
235 p9_a54 := ddp_x_operation_rec.attribute13;
236 p9_a55 := ddp_x_operation_rec.attribute14;
237 p9_a56 := ddp_x_operation_rec.attribute15;
238 p9_a57 := ddp_x_operation_rec.dml_operation;
239 end;
240
241 end ahl_rm_operation_pvt_w;