1 PACKAGE BODY PJM_PJMRPSEP_XMLP_PKG AS
2 /* $Header: PJMRPSEPB.pls 120.0 2007/12/24 12:27:49 nchinnam noship $ */
3
4 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
5 BEGIN
6
7 /*SRW.USER_EXIT('FND SRWINIT');*/
8
9 select meaning
10 into P_ORDER_BY_DISP
11 from mfg_lookups
12 where lookup_type = 'PJM_SCHEDEXC_ORDERBY'
13 and lookup_code = P_order_by;
14
15 /* if (P_prt_po <> 'Y') then
16 srw.SET_MAXROW('Q_PO',0);
17 end if;
18
19 if (P_prt_rel <> 'Y') then
20 srw.SET_MAXROW('Q_REL',0);
21 end if;
22
23 if (P_prt_pr <> 'Y') then
24 srw.SET_MAXROW('Q_PR',0);
25 end if;
26
27 if (P_prt_rfq <> 'Y') then
28 srw.SET_MAXROW('Q_RFQ',0);
29 end if;
30
31 if (P_prt_qtn <> 'Y') then
32 srw.SET_MAXROW('Q_QTN',0);
33 end if; */
34
35 /*SRW.USER_EXIT('FND FLEXSQL
36 CODE="MSTK"
37 APPL_SHORT_NAME="INV"
38 MODE="WHERE"
39 OUTPUT=":P_ITEM_WHERE"
40 OPERATOR="BETWEEN"
41 OPERAND1=":P_ITEM_FROM"
42 OPERAND2=":P_ITEM_TO"
43 TABLEALIAS="MIF"');*/
44
45 --
46 -- Building project range where clause
47 --
48 IF ( P_PROJECT_NUMBER_FROM IS NOT NULL ) THEN
49
50 IF ( P_PROJECT_NUMBER_TO IS NOT NULL ) THEN
51 P_PROJECT_WHERE :=
52 'PP.SEGMENT1 BETWEEN ''' || P_PROJECT_NUMBER_FROM || '''' ||
53 ' AND ''' || P_PROJECT_NUMBER_TO || '''' ;
54 ELSE
55 P_PROJECT_WHERE := 'PP.SEGMENT1 >= ''' || P_PROJECT_NUMBER_FROM || '''';
56 END IF;
57
58 ELSE
59
60 IF ( P_PROJECT_NUMBER_TO IS NOT NULL ) THEN
61 P_PROJECT_WHERE := 'PP.SEGMENT1 <= ''' || P_PROJECT_NUMBER_TO || '''';
62 ELSE
63 P_PROJECT_WHERE := '1 = 1 ';
64 END IF;
65
66 END IF;
67
68 --
69 -- Building date range where clause
70 --
71 D_DATE_FROM := FND_DATE.CANONICAL_TO_DATE(P_DATE_FROM);
72 D_DATE_TO := FND_DATE.CANONICAL_TO_DATE(P_DATE_TO);
73 D_DATE_FROM_DISP := FND_DATE.DATE_TO_DISPLAYDATE(D_DATE_FROM);
74 D_DATE_TO_DISP := FND_DATE.DATE_TO_DISPLAYDATE(D_DATE_TO);
75
76 IF ( P_DATE_FROM IS NOT NULL ) THEN
77
78 IF ( P_DATE_TO IS NOT NULL ) THEN
79 P_DATE_WHERE := ' BETWEEN TO_DATE(''' || D_DATE_FROM ||
80 ''', ''YYYY/MM/DD'') AND TO_DATE(''' || D_DATE_TO || ''', ''YYYY/MM/DD'')';
81 ELSE
82 P_DATE_WHERE := ' >= TO_DATE(''' || D_DATE_FROM || ''', ''YYYY/MM/DD'')';
83 END IF;
84
85 ELSE
86
87 IF ( P_DATE_TO IS NOT NULL ) THEN
88 P_DATE_WHERE := ' <= TO_DATE(''' || D_DATE_TO || ''', ''YYYY/MM/DD'')';
89 ELSE
90 P_DATE_WHERE := ' IS NOT NULL ';
91 END IF;
92
93 END IF;
94
95 LP_ORDER_BY_DISP:=P_ORDER_BY_DISP;
96
97
98 RETURN (TRUE);
99 END;
100
101
102
103 FUNCTION AFTERREPORT RETURN BOOLEAN IS
104 BEGIN
105 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
106 RETURN (TRUE);
107 END AFTERREPORT;
108
109 Function Filter_G_PO return Boolean IS
110 BEGIN
111 if (P_prt_po <> 'Y') then
112 return (FALSE);
113 end if;
114 RETURN (TRUE);
115 END Filter_G_PO;
116
117 Function Filter_G_REL return Boolean IS
118 BEGIN
119 if (P_prt_rel <> 'Y') then
120 return (FALSE);
121 end if;
122 RETURN (TRUE);
123 END Filter_G_REL;
124
125 Function Filter_G_PR return Boolean IS
126 BEGIN
127 if (P_prt_pr <> 'Y') then
128 return (FALSE);
129 end if;
130 RETURN (TRUE);
131 END Filter_G_PR;
132
133 Function Filter_G_RFQ return Boolean IS
134 BEGIN
135
136 if (P_prt_rfq <> 'Y') then
137 return (FALSE);
138 end if;
139 RETURN (TRUE);
140 END Filter_G_RFQ;
141
142 Function Filter_G_QTN return Boolean IS
143 BEGIN
144
145 if (P_prt_qtn <> 'Y') then
146 return (FALSE);
147 end if;
148
149 RETURN (TRUE);
150 END Filter_G_QTN;
151
152 END PJM_PJMRPSEP_XMLP_PKG;
153