1 PACKAGE BODY INV_INVTRSNT_XMLP_PKG AS
2 /* $Header: INVTRSNTB.pls 120.1 2007/12/25 11:13:35 dwkrishn noship $ */
3 FUNCTION P_STRUCT_NUMVALIDTRIGGER RETURN BOOLEAN IS
4 BEGIN
5 RETURN (TRUE);
6 END P_STRUCT_NUMVALIDTRIGGER;
7
8 FUNCTION WHERE_SERIAL RETURN VARCHAR2 IS
9 BEGIN
10 DECLARE
11 LO VARCHAR2(30);
12 HI VARCHAR2(30);
13 BEGIN
14 LO := P_SERIAL_LO;
15 HI := P_SERIAL_HI;
16 IF P_SERIAL_LO IS NULL AND P_SERIAL_HI IS NULL THEN
17 RETURN (' ');
18 ELSE
19 IF P_SERIAL_LO IS NOT NULL AND P_SERIAL_HI IS NULL THEN
20 RETURN (' and mut.serial_number >= ''' || LO || ''' ');
21 ELSE
22 IF P_SERIAL_LO IS NULL AND P_SERIAL_HI IS NOT NULL THEN
23 RETURN (' and mut.serial_number <= ''' || HI || ''' ');
24 ELSE
25 RETURN (' and mut.serial_number between ''' || LO || ''' and ''' || HI || ''' ');
26 END IF;
27 END IF;
28 END IF;
29 END;
30 RETURN NULL;
31 END WHERE_SERIAL;
32
33 FUNCTION C_LOT_FROMFORMULA RETURN VARCHAR2 IS
34 BEGIN
35 BEGIN
36 IF P_LOT_DETAIL <> 1 THEN
37 NULL;
38 ELSE
39 RETURN (' , MTL_TRANSACTION_LOT_NUMBERS MTLN ');
40 END IF;
41 END;
42 RETURN ' ';
43 END C_LOT_FROMFORMULA;
44
45 FUNCTION C_LOT_COLUMNFORMULA RETURN VARCHAR2 IS
46 BEGIN
47 BEGIN
48 IF P_LOT_DETAIL <> 1 THEN
49 RETURN ('''Y''');
50 ELSE
51 RETURN (' mtln.lot_number ');
52 END IF;
53 END;
54 RETURN NULL;
55 END C_LOT_COLUMNFORMULA;
56
57 FUNCTION WHERE_REASON RETURN VARCHAR2 IS
58 BEGIN
59 DECLARE
60 LO VARCHAR2(50);
61 HI VARCHAR2(50);
62 BEGIN
63 LO := P_REASON_LO;
64 HI := P_REASON_HI;
65 IF P_REASON_LO IS NULL AND P_REASON_HI IS NULL THEN
66 RETURN (' ');
67 ELSE
68 IF P_REASON_LO IS NOT NULL AND P_REASON_HI IS NULL THEN
69 RETURN (' AND mtr.reason_name >= ''' || LO || ''' ');
70 ELSE
71 IF P_REASON_LO IS NULL AND P_REASON_HI IS NOT NULL THEN
72 RETURN (' AND mtr.reason_name <= ''' || HI || ''' ');
73 ELSE
74 RETURN (' AND mtr.reason_name between ''' || LO || ''' and ''' || HI || ''' ');
75 END IF;
76 END IF;
77 END IF;
78 END;
79 RETURN ' ';
80 END WHERE_REASON;
81
82 FUNCTION WHERE_SUBINV RETURN VARCHAR2 IS
83 BEGIN
84 DECLARE
85 LO VARCHAR2(10);
86 HI VARCHAR2(10);
87 BEGIN
88 LO := P_SUBINV_LO;
89 HI := P_SUBINV_HI;
90 IF P_SUBINV_LO IS NULL AND P_SUBINV_HI IS NULL THEN
91 RETURN (' ');
92 ELSE
93 IF P_SUBINV_LO IS NOT NULL AND P_SUBINV_HI IS NULL THEN
94 RETURN (' AND mut.subinventory_code >= ''' || LO || ''' ');
95 ELSE
96 IF P_SUBINV_LO IS NULL AND P_SUBINV_HI IS NOT NULL THEN
97 RETURN (' AND mut.subinventory_code <= ''' || HI || ''' ');
98 ELSE
99 RETURN (' AND mut.subinventory_code between ''' || LO || ''' and ''' || HI || ''' ');
100 END IF;
101 END IF;
102 END IF;
103 END;
104 RETURN ' ';
105 END WHERE_SUBINV;
106
107 FUNCTION WHERE_TXN_TYPE RETURN VARCHAR2 IS
108 BEGIN
109 DECLARE
110 LO VARCHAR2(240);
111 HI VARCHAR2(240);
112 BEGIN
113 LO := P_TXN_TYPE_LO;
114 HI := P_TXN_TYPE_HI;
115 IF P_TXN_TYPE_LO IS NULL AND P_TXN_TYPE_HI IS NULL THEN
116 RETURN (' ');
117 ELSE
118 IF P_TXN_TYPE_LO IS NOT NULL AND P_TXN_TYPE_HI IS NULL THEN
119 RETURN (' AND mtxt.transaction_type_name >= ''' || LO || ''' ');
120 ELSE
121 IF P_TXN_TYPE_LO IS NULL AND P_TXN_TYPE_HI IS NOT NULL THEN
122 RETURN (' AND mtxt.transaction_type_name <= ''' || HI || ''' ');
123 ELSE
124 RETURN (' AND mtxt.transaction_type_name between ''' || LO || ''' and ''' || HI || ''' ');
125 END IF;
126 END IF;
127 END IF;
128 END;
129 RETURN ' ';
130 END WHERE_TXN_TYPE;
131
132 FUNCTION C_DATE_WHEREFORMULA RETURN VARCHAR2 IS
133 BEGIN
134 BEGIN
135 IF P_TXN_DATE_LO IS NULL AND P_TXN_DATE_HI IS NULL THEN
136 NULL;
137 ELSE
138 IF P_TXN_DATE_LO IS NOT NULL AND P_TXN_DATE_HI IS NULL THEN
139 RETURN (' AND mmt.transaction_date >= ' || TO_CHAR(P_TXN_DATE_LO
140 ,'DD-MON-RRRR'));
141 ELSE
142 IF P_TXN_DATE_LO IS NULL AND P_TXN_DATE_HI IS NOT NULL THEN
143 RETURN (' AND mmt.transaction_date <= ' || TO_CHAR(P_TXN_DATE_HI
144 ,'DD-MON-RRRR'));
145 ELSE
146 RETURN (' and ( mmt.transaction_date between ' || TO_CHAR(P_TXN_DATE_LO
147 ,'DD-MON-RRRR') || ' and ' || TO_CHAR(P_TXN_DATE_HI
148 ,'DD-MON-RRRR') || ' )');
149 END IF;
150 END IF;
151 END IF;
152 END;
153 RETURN ' ';
154 END C_DATE_WHEREFORMULA;
155
156 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
157 BEGIN
158 BEGIN
159 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
160 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
161 EXCEPTION
162 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
163 /*SRW.MESSAGE(010
164 ,'Failed in before report trigger, srwinit. ')*/NULL;
165 RAISE;
166 END;
167 DECLARE
168 P_ORG_ID_CHAR VARCHAR2(100) := TO_CHAR(P_G_ORG);
169 BEGIN
170 /*SRW.USER_EXIT('FND PUTPROFILE NAME="' || 'MFG_ORGANIZATION_ID' || '" FIELD="' || P_ORG_ID_CHAR || '"')*/NULL;
171 EXCEPTION
172 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
173 /*SRW.MESSAGE(020
174 ,'Failed in before report trigger, setting org profile ')*/NULL;
175 RAISE;
176 END;
177 BEGIN
178 NULL;
179 EXCEPTION
180 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
181 /*SRW.MESSAGE(020
182 ,'Failed in before report trigger, item select. ')*/NULL;
183 RAISE;
184 END;
185 BEGIN
186 NULL;
187 EXCEPTION
188 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
189 /*SRW.MESSAGE(030
190 ,'Failed in before report trigger, locator select. ')*/NULL;
191 RAISE;
192 END;
193 BEGIN
194 NULL;
195 EXCEPTION
196 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
197 /*SRW.MESSAGE(040
198 ,'Failed in before report trigger, mkts select. ')*/NULL;
199 RAISE;
200 END;
201 BEGIN
202 NULL;
203 EXCEPTION
204 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
205 /*SRW.MESSAGE(045
206 ,'Failed in before report trigger, mkts order by.')*/NULL;
207 RAISE;
208 END;
209 BEGIN
210 NULL;
211 EXCEPTION
212 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
213 /*SRW.MESSAGE(050
214 ,'Failed in before report trigger, mdsp select. ')*/NULL;
215 RAISE;
216 END;
217 BEGIN
218 NULL;
219 EXCEPTION
220 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
221 /*SRW.MESSAGE(055
222 ,'Failed in before report trigger, mdsp order by. ')*/NULL;
223 RAISE;
224 END;
225 BEGIN
226 NULL;
227 EXCEPTION
228 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
229 /*SRW.MESSAGE(060
230 ,'Failed in before report triger, glcc select. ')*/NULL;
231 RAISE;
232 END;
233 BEGIN
234 NULL;
235 EXCEPTION
236 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
237 /*SRW.MESSAGE(065
238 ,'Failed in before report trigger, glcc order by. ')*/NULL;
239 RAISE;
240 END;
241 BEGIN
242 NULL;
243 EXCEPTION
244 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
245 /*SRW.MESSAGE(070
246 ,'Failed in before report trigger, catg select. ')*/NULL;
247 RAISE;
248 END;
249 BEGIN
250 NULL;
251 EXCEPTION
252 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
253 /*SRW.MESSAGE(080
254 ,'Failed in before report trigger, item order by. ')*/NULL;
255 RAISE;
256 END;
257 BEGIN
258 NULL;
259 EXCEPTION
260 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
261 /*SRW.MESSAGE(100
262 ,'Failed in before report trigger, catg order by. ')*/NULL;
263 RAISE;
264 END;
265 BEGIN
266 NULL;
267 EXCEPTION
268 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
269 /*SRW.MESSAGE(110
270 ,'Failed in before report trigger, item where. ')*/NULL;
271 RAISE;
272 END;
273 BEGIN
274 NULL;
275 EXCEPTION
276 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
277 /*SRW.MESSAGE(120
278 ,'Failed in before report trigger, catg where. ')*/NULL;
279 RAISE;
280 END;
281 IF P_TXN_SOURCE_TYPE_ID in (2,8,12) THEN
282 BEGIN
283 IF P_TXN_SOURCE_HI IS NOT NULL OR P_TXN_SOURCE_LO IS NOT NULL THEN
284 NULL;
285 ELSE
286 NULL;
287 END IF;
288 EXCEPTION
289 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
290 /*SRW.MESSAGE(1
291 ,'Failed in before report trigger:MKTS/where')*/NULL;
292 RAISE;
293 END;
294 ELSE
295 IF P_TXN_SOURCE_TYPE_ID = 6 THEN
296 BEGIN
297 IF P_TXN_SOURCE_HI IS NOT NULL OR P_TXN_SOURCE_LO IS NOT NULL THEN
298 NULL;
299 ELSE
300 NULL;
301 END IF;
302 EXCEPTION
303 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
304 /*SRW.MESSAGE(1
305 ,'Failed in before report trigger:MDSP/where')*/NULL;
306 RAISE;
307 END;
308 ELSE
309 IF P_TXN_SOURCE_TYPE_ID = 3 THEN
310 BEGIN
311 IF P_TXN_SOURCE_HI IS NOT NULL OR P_TXN_SOURCE_LO IS NOT NULL THEN
312 NULL;
313 ELSE
314 NULL;
315 END IF;
316 EXCEPTION
317 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
318 /*SRW.MESSAGE(1
319 ,'Failed in before report trigger:GL/where')*/NULL;
320 RAISE;
321 END;
322 ELSE
323 NULL;
324 END IF;
325 END IF;
326 END IF;
327 RETURN (TRUE);
328 RETURN (TRUE);
329 END BEFOREREPORT;
330
331 FUNCTION C_SOURCE_WHEREFORMULA RETURN VARCHAR2 IS
332 BEGIN
333 BEGIN
334 IF P_TXN_SOURCE_TYPE_ID in (2,8,12) AND (P_TXN_SOURCE_LO IS NOT NULL OR P_TXN_SOURCE_HI IS NOT NULL) THEN
335 RETURN ('and mut.transaction_source_id = mkts.sales_order_id
336 and ' || P_SOURCE_WHERE);
337 ELSE
338 IF P_TXN_SOURCE_TYPE_ID = 3 AND (P_TXN_SOURCE_LO IS NOT NULL OR P_TXN_SOURCE_HI IS NOT NULL) THEN
339 RETURN ('and mut.transaction_source_id = gl1.code_combination_id
340 and ' || P_SOURCE_WHERE);
341 ELSE
342 IF P_TXN_SOURCE_TYPE_ID = 6 AND (P_TXN_SOURCE_LO IS NOT NULL OR P_TXN_SOURCE_HI IS NOT NULL) THEN
343 RETURN ('and mut.transaction_source_id = mdsp.disposition_id
344 and ' || P_SOURCE_WHERE);
345 END IF;
346 END IF;
347 END IF;
348 END;
349 BEGIN
350 IF P_TXN_SOURCE_TYPE_ID = 1 THEN
351 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
352 RETURN ('and mut.transaction_source_id = poh.po_header_id
353 and poh.segment1 between ''' || P_TXN_SOURCE_LO || ''' and ''' || P_TXN_SOURCE_HI || ''' ');
354 ELSE
355 IF P_TXN_SOURCE_HI IS NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
356 RETURN ('and mut.transaction_source_id = poh.po_header_id
357 and poh.segment1 >= ''' || P_TXN_SOURCE_LO || ''' ');
358 ELSE
359 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NULL THEN
360 RETURN ('and mut.transaction_source_id = poh.po_header_id
361 and poh.segment1 <= ''' || P_TXN_SOURCE_HI || ''' ');
362 END IF;
363 END IF;
364 END IF;
365 END IF;
366 END;
367 BEGIN
368 IF P_TXN_SOURCE_TYPE_ID = 5 THEN
369 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
370 RETURN ('and mut.transaction_source_id = wip1.wip_entity_id
371 and wip1.wip_entity_name between ''' || P_TXN_SOURCE_LO || ''' and ''' || P_TXN_SOURCE_HI || ''' ');
372 ELSE
373 IF P_TXN_SOURCE_HI IS NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
374 RETURN ('and mut.transaction_source_id = wip1.wip_entity_id
375 and wip1.wip_entity_name >= ''' || P_TXN_SOURCE_LO || ''' ');
376 ELSE
377 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NULL THEN
378 RETURN ('and mut.transaction_source_id = wip1.wip_entity_id
379 and wip1.wip_entity_name <= ''' || P_TXN_SOURCE_HI || ''' ');
380 END IF;
381 END IF;
382 END IF;
386 IF P_TXN_SOURCE_TYPE_ID = 7 THEN
383 END IF;
384 END;
385 BEGIN
387 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
388 RETURN ('and mut.transaction_source_id = porh.requisition_header_id
389 and porh.segment1 between ''' || P_TXN_SOURCE_LO || ''' and ''' || P_TXN_SOURCE_HI || ''' ');
390 ELSE
391 IF P_TXN_SOURCE_HI IS NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
392 RETURN ('and mut.transaction_source_id = porh.requisition_header_id
393 and porh.segment1 >= ''' || P_TXN_SOURCE_LO || ''' ');
394 ELSE
395 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NULL THEN
396 RETURN ('and mut.transaction_source_id = porh.requisition_header_id
397 and porh.segment1 <= ''' || P_TXN_SOURCE_HI || ''' ');
398 END IF;
399 END IF;
400 END IF;
401 END IF;
402 END;
403 BEGIN
404 IF P_TXN_SOURCE_TYPE_ID = 9 THEN
405 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
406 RETURN ('and mut.transaction_source_id = CCH.cycle_count_header_id
407 and CCH.cycle_count_header_name between ''' || P_TXN_SOURCE_LO || ''' and ''' || P_TXN_SOURCE_HI || ''' ');
408 ELSE
409 IF P_TXN_SOURCE_HI IS NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
410 RETURN ('and mut.transaction_source_id = CCH.cycle_count_header_id
411 and CCH.cycle_count_header_name >= ''' || P_TXN_SOURCE_LO || ''' ');
412 ELSE
413 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NULL THEN
414 RETURN ('and mut.transaction_source_id = CCH.cycle_count_header_id
415 and CCH.cycle_count_header_name <= ''' || P_TXN_SOURCE_HI || ''' ');
416 END IF;
417 END IF;
418 END IF;
419 END IF;
420 END;
421 BEGIN
422 IF P_TXN_SOURCE_TYPE_ID = 10 THEN
423 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
424 RETURN ('and mut.transaction_source_id = MPI.physical_inventory_id
425 and MPI.physical_inventory_name between ''' || P_TXN_SOURCE_LO || ''' and ''' || P_TXN_SOURCE_HI || ''' ');
426 ELSE
427 IF P_TXN_SOURCE_HI IS NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
428 RETURN ('and mut.transaction_source_id = MPI.physical_inventory_id
429 and MPI.physical_inventory_name >= ''' || P_TXN_SOURCE_LO || ''' ');
430 ELSE
431 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NULL THEN
432 RETURN ('and mut.transaction_source_id = MPI.physical_inventory_id
433 and MPI.physical_inventory_name <= ''' || P_TXN_SOURCE_HI || ''' ');
434 END IF;
435 END IF;
436 END IF;
437 END IF;
438 END;
439 BEGIN
440 IF P_TXN_SOURCE_TYPE_ID = 11 THEN
441 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
442 RETURN ('and mut.transaction_source_id = cupd.cost_update_id
443 and cupd.description between ''' || P_TXN_SOURCE_LO || ''' and ''' || P_TXN_SOURCE_HI || ''' ');
444 ELSE
445 IF P_TXN_SOURCE_HI IS NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
446 RETURN ('and mut.transaction_source_id = cupd.cost_update_id
447 and cupd.description between >= ''' || P_TXN_SOURCE_LO || ''' ');
448 ELSE
449 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NULL THEN
450 RETURN ('and mut.transaction_source_id = cupd.cost_update_id
451 and cupd.description <= ''' || P_TXN_SOURCE_HI || ''' ');
452 END IF;
453 END IF;
454 END IF;
455 END IF;
456 END;
457 BEGIN
458 IF P_TXN_SOURCE_TYPE_ID >= 13 THEN
459 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
460 RETURN ('and mmt.transaction_source_name between ''' || P_TXN_SOURCE_LO || ''' and ''' || P_TXN_SOURCE_HI || ''' ');
461 ELSE
462 IF P_TXN_SOURCE_HI IS NULL AND P_TXN_SOURCE_LO IS NOT NULL THEN
463 RETURN ('and mmt.transaction_source_name >= ''' || P_TXN_SOURCE_LO || ''' ');
464 ELSE
465 IF P_TXN_SOURCE_HI IS NOT NULL AND P_TXN_SOURCE_LO IS NULL THEN
466 RETURN ('and mmt.transaction_source_name <= ''' || P_TXN_SOURCE_HI || ''' ');
467 END IF;
468 END IF;
469 END IF;
470 END IF;
471 END;
472 RETURN ' ';
473 END C_SOURCE_WHEREFORMULA;
474
475 FUNCTION C_TYPE_BREAK_COLUMNFORMULA RETURN VARCHAR2 IS
476 BEGIN
477 IF P_BREAK_ID = 4 THEN
478 RETURN (' mtst.transaction_source_type_name ');
479 ELSE
480 RETURN (' mtxt.transaction_type_name ');
481 END IF;
482 RETURN NULL;
483 END C_TYPE_BREAK_COLUMNFORMULA;
484
485 FUNCTION C_TYPE_BREAK_FROMFORMULA RETURN VARCHAR2 IS
486 BEGIN
487 IF P_BREAK_ID = 4 THEN
488 RETURN (' MTL_TXN_SOURCE_TYPES mtst , ');
489 ELSE
490 RETURN (' ');
491 END IF;
492 RETURN NULL;
493 END C_TYPE_BREAK_FROMFORMULA;
494
495 FUNCTION C_TYPE_BREAK_WHEREFORMULA RETURN VARCHAR2 IS
496 BEGIN
497 IF P_BREAK_ID = 4 THEN
498 RETURN (' and mmt.transaction_source_type_id = mtst.transaction_source_type_id ');
499 ELSE
500 RETURN (' and mmt.transaction_type_id = mtxt.transaction_type_id ');
501 END IF;
502 RETURN NULL;
503 END C_TYPE_BREAK_WHEREFORMULA;
504
505 FUNCTION C_REPORT_DATE_CURRENCY_TITFORM(C_CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
506 BEGIN
507 RETURN (' From ' || TO_CHAR(P_TXN_DATE_LO
511
508 ,'DD-MON-YYYY') || ' to ' || TO_CHAR(P_TXN_DATE_HI
509 ,'DD-MON-YYYY') || ' (' || C_CURRENCY_CODE || ')');
510 END C_REPORT_DATE_CURRENCY_TITFORM;
512 FUNCTION C_ORDER_BYFORMULA RETURN VARCHAR2 IS
513 BEGIN
514 /*SRW.REFERENCE(P_ITEM_ORDER_BY)*/NULL;
515 /*SRW.REFERENCE(P_CATG_ORDER_BY)*/NULL;
516 IF P_BREAK_ID = 1 THEN
517 RETURN (' order by ' || P_ITEM_ORDER_BY || ' , mut.serial_number, mut.transaction_date, mut.transaction_id ');
518 ELSE
519 IF P_BREAK_ID = 2 THEN
520 RETURN (' order by mut.transaction_date, ' || P_ITEM_ORDER_BY || ' , mut.serial_number, mut.transaction_id ');
521 ELSE
522 RETURN (' order by mut.serial_number, ' || P_ITEM_ORDER_BY || ' , mut.transaction_date, mut.transaction_id ');
523 END IF;
524 END IF;
525 RETURN NULL;
526 END C_ORDER_BYFORMULA;
527
528 FUNCTION P_MDSP_ORDER_BYVALIDTRIGGER RETURN BOOLEAN IS
529 BEGIN
530 RETURN (TRUE);
531 END P_MDSP_ORDER_BYVALIDTRIGGER;
532
533 FUNCTION AFTERREPORT RETURN BOOLEAN IS
534 BEGIN
535 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
536 RETURN (TRUE);
537 END AFTERREPORT;
538
539 FUNCTION CALC_UNIT_COST(TOT_QTY IN NUMBER
540 ,EXTD_COST IN NUMBER
541 ,C_EXT_PRECISION IN VARCHAR2) RETURN NUMBER IS
542 BEGIN
543 DECLARE
544 IN_QTY NUMBER;
545 IN_EXTD_COST NUMBER;
546 IN_ROUND_AT NUMBER;
547 OUT_COST NUMBER;
548 BEGIN
549 IN_QTY := TOT_QTY;
550 IN_EXTD_COST := EXTD_COST;
551 IN_ROUND_AT := C_EXT_PRECISION;
552 IF IN_QTY = 0 THEN
553 OUT_COST := ROUND(0
554 ,IN_ROUND_AT);
555 ELSE
556 OUT_COST := ROUND(ABS(EXTD_COST)
557 ,IN_ROUND_AT);
558 END IF;
559 RETURN (OUT_COST);
560 END;
561 RETURN NULL;
562 END CALC_UNIT_COST;
563
564 FUNCTION AFTERPFORM RETURN BOOLEAN IS
565 BEGIN
566 RETURN (TRUE);
567 END AFTERPFORM;
568
569 FUNCTION C_SOURCE_TYPE_WHEREFORMULA RETURN VARCHAR2 IS
570 BEGIN
571 BEGIN
572 /*SRW.REFERENCE(P_TXN_SOURCE_TYPE_ID)*/NULL;
573 IF P_TXN_SOURCE_TYPE_ID IS NOT NULL THEN
574 RETURN (' and mut.transaction_source_type_id = ' || P_TXN_SOURCE_TYPE_ID);
575 END IF;
576 END;
577 RETURN ' ';
578 END C_SOURCE_TYPE_WHEREFORMULA;
579
580 END INV_INVTRSNT_XMLP_PKG;
581
582
[Home] [Help]