PACKAGE BODY: APPS.PJM_PJMRPPSE_XMLP_PKG

Source

1 PACKAGE BODY PJM_PJMRPPSE_XMLP_PKG AS
2 /* $Header: PJMRPPSEB.pls 120.0 2007/12/24 12:27:05 nchinnam noship $ */
3   FUNCTION AFTERREPORT RETURN BOOLEAN IS
4   BEGIN
5     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
6     RETURN (TRUE);
7   END AFTERREPORT;
8 
9 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
10 BEGIN
11 
12    -- SRW.USER_EXIT('FND SRWINIT');
13   SELECT MEANING
14   INTO   P_ORDER_BY_DISP
15   FROM   MFG_LOOKUPS
16   WHERE  LOOKUP_TYPE = 'PJM_SCHEDEXC_ORDERBY'
17   AND    LOOKUP_CODE = P_ORDER_BY;
18 
19  /* IF (P_PRT_PO <> 'Y')  THEN
20     -- SRW.SET_MAXROW('Q_PO',0);
21   END IF;
22 
23   IF (P_PRT_REL <> 'Y') THEN
24     -- SRW.SET_MAXROW('Q_REL',0);
25   END IF;
26 
27   IF (P_PRT_PR <> 'Y') THEN
28     -- SRW.SET_MAXROW('Q_PR',0);
29   END IF;
30 
31   IF (P_PRT_RFQ <> 'Y') THEN
32     -- SRW.SET_MAXROW('Q_RFQ',0);
33   END IF;
34 
35   IF (P_PRT_QTN <> 'Y') THEN
36     -- SRW.SET_MAXROW('Q_QTN',0);
37 
38   END IF; */
39 
40   /*SRW.USER_EXIT('FND FLEXSQL
41             CODE="MSTK"
42             APPL_SHORT_NAME="INV"
43             MODE="WHERE"
44             OUTPUT=":P_ITEM_WHERE"
45             OPERATOR="BETWEEN"
46             OPERAND1=":P_ITEM_FROM"
47             OPERAND2=":P_ITEM_TO"
48             TABLEALIAS="MIF"'); */
49 
50   --
51   -- BUILDING PROJECT RANGE WHERE CLAUSE
52   --
53   IF ( P_PROJECT_NUMBER_FROM IS NOT NULL ) THEN
54 
55     IF ( P_PROJECT_NUMBER_TO IS NOT NULL ) THEN
56       P_PROJECT_WHERE :=
57          'PP.SEGMENT1 BETWEEN ''' || P_PROJECT_NUMBER_FROM || '''' ||
58          ' AND ''' || P_PROJECT_NUMBER_TO || '''' ;
59     ELSE
60       P_PROJECT_WHERE := 'PP.SEGMENT1 >= ''' || P_PROJECT_NUMBER_FROM || '''';
61     END IF;
62 
63   ELSE
64 
65     IF ( P_PROJECT_NUMBER_TO IS NOT NULL ) THEN
66       P_PROJECT_WHERE := 'PP.SEGMENT1 <= ''' || P_PROJECT_NUMBER_TO || '''';
67     ELSE
68       P_PROJECT_WHERE := '1 = 1';
69     END IF;
70 
71   END IF;
72 
73   --
74   -- BUILDING DATE RANGE WHERE CLAUSE
75   --
76 
77    D_DATE_FROM      := FND_DATE.CANONICAL_TO_DATE(P_DATE_FROM);
78   D_DATE_TO        := FND_DATE.CANONICAL_TO_DATE(P_DATE_TO);
79   D_DATE_FROM_DISP := FND_DATE.DATE_TO_DISPLAYDATE(D_DATE_FROM);
80   D_DATE_TO_DISP   := FND_DATE.DATE_TO_DISPLAYDATE(D_DATE_TO);
81 
82    /*D_DATE_FROM      := TO_DATE(P_DATE_FROM,'YYYY/MM/DD HH24:MI:SS');
83 
84    D_DATE_TO        := TO_DATE(P_DATE_TO,'YYYY/MM/DD HH24:MI:SS');
85 
86    D_DATE_FROM_DISP := TO_CHAR(D_DATE_FROM,'DD/MM/YYYY');
87 
88    D_DATE_TO_DISP   := TO_CHAR(D_DATE_TO,'DD/MM/YYYY');*/
89 
90 
91   IF ( P_DATE_FROM IS NOT NULL ) THEN
92 
93     IF ( P_DATE_TO IS NOT NULL ) THEN
94       P_DATE_WHERE := ' BETWEEN ' || '''' || D_DATE_FROM || '''' ||' AND '|| ''''|| D_DATE_TO || '''';
95     ELSE
96       P_DATE_WHERE := ' >= ' ||  D_DATE_FROM  ;
97     END IF;
98 
99   ELSE
100 
101     IF ( P_DATE_TO IS NOT NULL ) THEN
102       P_DATE_WHERE := ' <= ' ||  D_DATE_TO;
103     ELSE
104       P_DATE_WHERE := ' IS NOT NULL ';
105     END IF;
106 
107   END IF;
108   RETURN (TRUE);
109 END;
110 
111  FUNCTION G_POFILTER RETURN BOOLEAN
112  IS
113  BEGIN
114   IF (P_PRT_PO <> 'Y')  THEN
115      RETURN (FALSE);
116   END IF;
117  END;
118 
119  FUNCTION G_RELFILTER RETURN BOOLEAN
120  IS
121  BEGIN
122    IF (P_PRT_REL <> 'Y') THEN
123       RETURN (FALSE);
124    END IF;
125  END;
126 
127  FUNCTION G_PRFILTER RETURN BOOLEAN
128  IS
129  BEGIN
130    IF (P_PRT_PR <> 'Y') THEN
131       RETURN (FALSE);
132    END IF;
133  END;
134 
135  FUNCTION G_RFQFILTER RETURN BOOLEAN
136  IS
137  BEGIN
138    IF (P_PRT_RFQ <> 'Y') THEN
139        RETURN (FALSE);
140    END IF;
141  END;
142 
143  FUNCTION G_QTNFILTER RETURN BOOLEAN
144  IS
145  BEGIN
146    IF (P_PRT_QTN <> 'Y') THEN
147       RETURN (FALSE);
148    END IF;
149  END;
150 
151 END PJM_PJMRPPSE_XMLP_PKG;
152