[Home] [Help]
PACKAGE BODY: APPS.INV_TRANSACTION_HIDDEN
Source
1 PACKAGE BODY INV_TRANSACTION_HIDDEN AS
2 /* $Header: INVMWAHB.pls 120.1 2005/07/01 12:38:40 appldev ship $ */
3
4
5
6
7
8 FUNCTION IS_SERIAL_HIDDEN(p_Serial_Number_Control_Code IN NUMBER)
9 RETURN VARCHAR2
10 IS
11 BEGIN
12
13 IF p_Serial_Number_Control_Code = 2 OR p_Serial_Number_Control_Code = 5 THEN
14
15 RETURN 'F';
16 ELSE
17 RETURN 'T';
18
19 END IF;
20 END IS_SERIAL_HIDDEN;
21
22
23
24 FUNCTION IS_SER_TRIG_ISSUE(p_Transaction_Action_Id IN NUMBER,
25 p_Serial_Number_Control_Code IN NUMBER)
26 RETURN VARCHAR2
27 IS
28
29 BEGIN
30
31 IF p_Transaction_Action_Id = 1 OR p_Transaction_Action_Id = 2 OR p_Transaction_Action_Id = 3 THEN
32
33 IF p_Serial_Number_Control_Code = 2 OR p_Serial_Number_Control_Code = 5 THEN
34
35 RETURN 'T';
36 ELSE
37 RETURN 'F';
38 END IF;
39
40 ELSE
41 RETURN 'F';
42 END IF;
43
44 END IS_SER_TRIG_ISSUE;
45
46
47 FUNCTION IS_ACCT_HIDDEN(p_Transaction_Source_Type_Id IN NUMBER,
48 p_Transaction_Action_Id IN NUMBER)
49 RETURN VARCHAR2
50 IS
51 l_return VARCHAR2(1);
52 BEGIN
53 IF p_Transaction_Action_Id = 2 OR p_Transaction_Action_Id = 3 THEN
54 RETURN 'T';
55 ELSE
56
57 IF p_Transaction_Source_Type_Id = 6 THEN
58 l_return := 'T';
59 ELSE
60 l_return := 'F';
61 END IF;
62 END IF;
63 return l_return;
64 END IS_ACCT_HIDDEN;
65
66
67
68 FUNCTION IS_ACCT_ALIAS_HIDDEN(p_Transaction_Source_Type_Id IN NUMBER,
69 p_Transaction_Action_Id IN NUMBER)
70 RETURN VARCHAR2
71
72 IS
73 l_return VARCHAR2(1);
74 BEGIN
75
76 IF p_Transaction_Action_Id = 2 OR p_Transaction_Action_Id = 3 THEN
77 RETURN 'T';
78 ELSE
79 IF p_Transaction_Source_Type_Id = 13 THEN
80 l_return := 'T';
81
82 ELSE
83 l_return := 'F';
84
85 END IF;
86 END IF;
87 return l_return;
88 END IS_ACCT_ALIAS_HIDDEN;
89
90
91
92 FUNCTION IS_SUB_HIDDEN(p_Transaction_Action_Id IN NUMBER,
93 p_Serial_Number_Control_Code IN NUMBER)
94 RETURN VARCHAR2
95
96 IS
97 l_return VARCHAR2(1);
98 BEGIN
99
100 l_return := IS_SER_TRIG_ISSUE(p_Transaction_Action_Id,
101 p_Serial_Number_Control_Code);
102
103 RETURN l_return;
104
105 END IS_SUB_HIDDEN;
106
107
108
109
110
111 FUNCTION IS_LOCATOR_HIDDEN(p_Location_Control_Code IN NUMBER,
112 p_Organization_Id IN NUMBER,
113 p_Subinventory_Code IN VARCHAR2)
114 RETURN VARCHAR2
115 IS
116
117 l_org_level NUMBER;
118 l_sub_level NUMBER;
119 l_return VARCHAR2(1);
120
121 BEGIN
122
123
124 SELECT stock_locator_control_code INTO l_org_level
125 FROM mtl_parameters WHERE organization_id = p_Organization_Id;
126
127 SELECT locator_type INTO l_sub_level
128 FROM mtl_secondary_inventories WHERE organization_id = p_Organization_Id
129 AND secondary_inventory_name = p_Subinventory_Code;
130
131
132 --Now check through the hierarchy: Org->Sub->Item
133
134 IF l_org_level = 1 THEN l_return := 'T';
135
136 ELSIF l_org_level =2 or l_org_level =3 THEN l_return := 'F';
137
138 ELSIF l_org_level = 4 and l_sub_level = 1 THEN l_return := 'T';
139
140 ELSIF (l_org_level = 4 and l_sub_level = 2) or (l_org_level = 4 and l_sub_level = 3) THEN
141 l_return := 'F';
142
143 ELSIF (l_org_level = 4 and l_sub_level = 5 and p_Location_Control_Code = 1) THEN
144 l_return := 'T';
145
146 ELSIF (l_org_level = 4 and l_sub_level = 5 and p_Location_Control_Code = 2) OR
147 (l_org_level = 4 and l_sub_level = 5 and p_Location_Control_Code = 3) THEN
148 l_return := 'F';
149
150 ELSE
151 l_return := 'T';
152 END IF;
153
154 RETURN l_return;
155
156 EXCEPTION
157 WHEN NO_DATA_FOUND THEN --This means that the sub has not yet been defined
158 --No problem... Location remains hidden
159 l_return := 'T';
160 return l_return;
161
162 END IS_LOCATOR_HIDDEN;
163
164 FUNCTION IS_FROM_LOCATOR_HIDDEN(p_Transaction_Action_Id IN NUMBER,
165 p_Serial_Number_Control_Code IN NUMBER,
166 p_Location_Control_Code IN NUMBER,
167 p_Organization_Id IN NUMBER,
168 p_Subinventory_Code IN VARCHAR2)
169 RETURN VARCHAR2
170 IS
171 l_return VARCHAR2(1);
172 BEGIN
173
174 l_return := IS_SER_TRIG_ISSUE(p_Transaction_Action_Id,p_Serial_Number_Control_Code);
175
176 IF l_return = 'T' THEN
177 RETURN l_return;
178 ELSE
179
180 l_return := IS_LOCATOR_HIDDEN(p_Location_Control_Code,
181 p_Organization_Id,
182 p_Subinventory_Code);
183
184 RETURN l_return;
185 END IF;
186
187 END IS_FROM_LOCATOR_HIDDEN;
188
189
190 FUNCTION IS_REVISION_HIDDEN(p_Transaction_Action_Id IN NUMBER,
191 p_Serial_Number_Control_Code IN NUMBER,
192 p_Revision_Qty_Control_Code IN NUMBER)
193 RETURN VARCHAR2
194
195 IS
196 l_return VARCHAR2(1);
197 BEGIN
198 l_return := IS_SER_TRIG_ISSUE(p_Transaction_Action_Id,p_Serial_Number_Control_Code);
199
200 IF l_return = 'T' THEN
201 RETURN l_return;
202 ELSE
203
204 IF p_Revision_Qty_Control_Code = 2 THEN
205 l_return := 'F';
206
207 ELSE l_return := 'T';
208
209 END IF;
210 return l_return;
211 END IF;
212 END IS_REVISION_HIDDEN;
213
214
215
216 --The is lot hidden function will be used for both lot and expiration date fields.
217
218 FUNCTION IS_LOT_HIDDEN(p_Transaction_Action_Id IN NUMBER,
219 p_Serial_Number_Control_Code IN NUMBER,
220 p_Lot_Control_Code IN NUMBER)
221 RETURN VARCHAR2
222
223 IS
224 l_return VARCHAR2(1);
225
226 BEGIN
227 l_return := IS_SER_TRIG_ISSUE(p_Transaction_Action_Id,p_Serial_Number_Control_Code);
228 IF l_return = 'T' THEN
229 RETURN l_return;
230 ELSE
231 IF p_Lot_Control_Code = 2 THEN
232 l_return := 'F';
233 ELSE
234 l_return := 'T';
235
236 END IF;
237 END IF;
238 RETURN l_return;
239
240 END IS_LOT_HIDDEN;
241
242
243
244
245
246 FUNCTION IS_TO_ORG_HIDDEN(p_Transaction_Action_Id IN NUMBER)
247 RETURN VARCHAR2
248
249 --This is only necessary when performing direct org transfers.
250 IS
251
252 BEGIN
253 IF p_Transaction_Action_Id = 3 THEN
254 RETURN 'F';
255 ELSE
256 RETURN 'T';
257 END IF;
258 END IS_TO_ORG_HIDDEN;
259
260
261 FUNCTION IS_TO_LOC_HIDDEN(p_Location_Control_Code IN NUMBER,
262 p_Organization_Id IN NUMBER,
263 p_Subinventory_Code IN VARCHAR2,
264 p_Transaction_Action_Id IN NUMBER,
265 p_To_Organization_Id IN NUMBER,
266 p_Inventory_Item_Id IN NUMBER)
267 RETURN VARCHAR2
268 IS
269 l_result VARCHAR2(1);
270 l_org NUMBER;
271 l_Location_Control_Code NUMBER;
272 BEGIN
273 IF p_Transaction_Action_Id = 2 THEN l_org := p_Organization_Id;
274 l_Location_Control_Code := p_Location_Control_Code;
275 ELSIF p_Transaction_Action_Id = 3 THEN
276 l_org := p_To_Organization_Id;
277 select location_control_code into l_Location_Control_Code from
278 mtl_system_items where
279 inventory_item_id = p_Inventory_Item_Id and
280 organization_id = l_org;
281 ELSE
282 l_org := p_Organization_Id;
283 l_Location_Control_Code := p_Location_Control_Code;
284 END IF;
285
286
287
288 IF p_Transaction_Action_Id = 2 OR p_Transaction_Action_Id = 3 THEN
289
290 l_result := IS_LOCATOR_HIDDEN(l_Location_Control_Code,
291 l_org,
292 p_Subinventory_Code);
293 RETURN l_result;
294
295 ELSE
296 RETURN 'T';
297 END IF;
298 EXCEPTION
299 WHEN NO_DATA_FOUND THEN
300
301 l_result := 'T';
302 return l_result;
303
304
305 END IS_TO_LOC_HIDDEN;
306
307
308 FUNCTION IS_TO_SUB_HIDDEN(p_Transaction_Action_Id IN NUMBER,
309 p_done IN VARCHAR2)
310 RETURN VARCHAR2
311 IS
312 BEGIN
313
314 IF p_done = 'T' THEN
315 IF p_Transaction_Action_Id = 2 or p_Transaction_Action_Id = 3 THEN
316 RETURN 'F';
317 ELSE
318 RETURN 'T';
319 END IF;
320 ELSE
321 RETURN 'T';
322 END IF;
323
324 END IS_TO_SUB_HIDDEN;
325
326
327 FUNCTION IS_PROCESS_HIDDEN(p_Process_Flag IN VARCHAR2)
328 RETURN VARCHAR2
329 IS
330 BEGIN
331
332 IF p_Process_Flag = 'T' THEN
333 RETURN 'F';
334 ELSE
335 RETURN 'T';
336 END IF;
337
338 END IS_PROCESS_HIDDEN;
339
340 END INV_TRANSACTION_HIDDEN;