1 PACKAGE BODY INV_INVTRVLT_XMLP_PKG AS
2 /* $Header: INVTRVLTB.pls 120.2 2008/01/08 06:31:43 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 C_DATE_FORMAT varchar2(20);
5 BEGIN
6 BEGIN
7 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8 C_DATE_FORMAT := 'DD-MON-YY';
9 P_START_DATE_1 := to_char(P_START_DATE,C_DATE_FORMAT);
10 P_END_DATE_1 := to_char(P_END_DATE,C_DATE_FORMAT);
11 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
12 EXCEPTION
13 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
14 /*SRW.MESSAGE(0
15 ,'Failed srwinit, before report trigger')*/NULL;
16 END;
17 BEGIN
18 NULL;
19 EXCEPTION
20 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
21 /*SRW.MESSAGE(4
22 ,'Failed flexsql item select, before report trigger')*/NULL;
23 END;
24 BEGIN
25 NULL;
26 EXCEPTION
27 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
28 /*SRW.MESSAGE(8
29 ,'Failed flexsql item where, before report trigger')*/NULL;
30 END;
31 BEGIN
32 NULL;
33 EXCEPTION
34 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
35 /*SRW.MESSAGE(9
36 ,'Failed flexsql item order by, before report trigger')*/NULL;
37 END;
38 BEGIN
39 NULL;
40 EXCEPTION
41 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
42 /*SRW.MESSAGE(12
43 ,'Failed flexsql MKTS select, before report trigger')*/NULL;
44 END;
45 BEGIN
46 NULL;
47 EXCEPTION
48 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
49 /*SRW.MESSAGE(16
50 ,'Failed flexsql MDSP select, before report trigger')*/NULL;
51 END;
52 BEGIN
53 NULL;
54 EXCEPTION
55 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
56 /*SRW.MESSAGE(20
57 ,'Failed flexsql GL# select, before report trigger')*/NULL;
58 END;
59 IF P_SORT_ID = 1 THEN
60 /*SRW.SET_MAXROW('Q_LOT_TRACE_2'
61 ,0)*/NULL;
62 /*SRW.SET_MAXROW('Q_LOT_TRACE_3'
63 ,0)*/NULL;
64 END IF;
65 IF P_SORT_ID = 2 THEN
66 /*SRW.SET_MAXROW('Q_LOT_TRACE_1'
67 ,0)*/NULL;
68 /*SRW.SET_MAXROW('Q_LOT_TRACE_3'
69 ,0)*/NULL;
70 END IF;
71 IF P_SORT_ID = 3 THEN
72 /*SRW.SET_MAXROW('Q_LOT_TRACE_1'
73 ,0)*/NULL;
74 /*SRW.SET_MAXROW('Q_LOT_TRACE_2'
75 ,0)*/NULL;
76 END IF;
77 RETURN (TRUE);
78 END BEFOREREPORT;
79 FUNCTION P_ITEM_WHEREVALIDTRIGGER RETURN BOOLEAN IS
80 BEGIN
81 RETURN (TRUE);
82 END P_ITEM_WHEREVALIDTRIGGER;
83 FUNCTION WHERE_LOT RETURN VARCHAR2 IS
84 BEGIN
85 DECLARE
86 LO VARCHAR2(80);
87 HI VARCHAR2(80);
88 BEGIN
89 LO := P_LOT_NUMBER_LO;
90 HI := P_LOT_NUMBER_HI;
91 IF P_LOT_NUMBER_LO IS NULL AND P_LOT_NUMBER_HI IS NULL THEN
92 RETURN (' ');
93 ELSE
94 IF P_LOT_NUMBER_LO IS NOT NULL AND P_LOT_NUMBER_HI IS NULL THEN
95 RETURN (' and mtln.lot_number >= ''' || LO || ''' ');
96 ELSE
97 IF P_LOT_NUMBER_LO IS NULL AND P_LOT_NUMBER_HI IS NOT NULL THEN
98 RETURN (' and mtln.lot_number <= ''' || HI || ''' ');
99 ELSE
100 RETURN (' and mtln.lot_number between ''' || LO || ''' and ''' || HI || ''' ');
101 END IF;
102 END IF;
103 END IF;
104 END;
105 RETURN ' ';
106 END WHERE_LOT;
107 FUNCTION P_TRACE_FLAGVALIDTRIGGER RETURN BOOLEAN IS
108 BEGIN
109 RETURN (TRUE);
110 END P_TRACE_FLAGVALIDTRIGGER;
111 FUNCTION AFTERPFORM RETURN BOOLEAN IS
112 BEGIN
113 P_END_DATE_1 := TRUNC(P_END_DATE);
114 P_END_DATE_1 := TO_DATE(TO_CHAR(to_date(P_END_DATE_1,'DD-MON-YYYY')
115 ,'DD-MON-RRRR') || ' 23:59:59'
116 ,'DD-MON-YYYY HH24:MI:SS');
117 RETURN (TRUE);
118 END AFTERPFORM;
119 FUNCTION AFTERREPORT RETURN BOOLEAN IS
120 BEGIN
121 BEGIN
122 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
123 EXCEPTION
124 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
125 /*SRW.MESSAGE(0
126 ,'Failed srwexit, after report trigger')*/NULL;
127 END;
128 RETURN (TRUE);
129 END AFTERREPORT;
130 END INV_INVTRVLT_XMLP_PKG;
131
132