PACKAGE BODY: APPS.PJM_PJMRPSES_XMLP_PKG

Source

1 PACKAGE BODY PJM_PJMRPSES_XMLP_PKG AS
2 /* $Header: PJMRPSESB.pls 120.0 2007/12/24 12:28:27 nchinnam noship $ */
3 function BeforeReport return boolean is
4 begin
5 
6  /* SRW.USER_EXIT('FND SRWINIT'); */
7 
8   select meaning
9   into   P_order_by_disp
10   from   mfg_lookups
11   where  lookup_type = 'PJM_SCHEDEXC_ORDERBY'
12   and    lookup_code = P_order_by;
13 
14  /* SRW.USER_EXIT('FND FLEXSQL
15             CODE="MSTK"
16             APPL_SHORT_NAME="INV"
17             MODE="WHERE"
18             OUTPUT="P_ITEM_WHERE"
19             OPERATOR="BETWEEN"
20             OPERAND1="P_ITEM_FROM"
21             OPERAND2="P_ITEM_TO"
22             TABLEALIAS="MIF"');
23 */
24   --
25   -- Building project range where clause
26   --
27   IF ( P_PROJECT_NUMBER_FROM IS NOT NULL ) THEN
28 
29     IF ( P_PROJECT_NUMBER_TO IS NOT NULL ) THEN
30       P_PROJECT_WHERE :=
31          'PP.SEGMENT1 BETWEEN ''' || P_PROJECT_NUMBER_FROM || '''' ||
32          ' AND ''' || P_PROJECT_NUMBER_TO || '''' ;
33     ELSE
34       P_PROJECT_WHERE := 'PP.SEGMENT1 >= ''' || P_PROJECT_NUMBER_FROM || '''';
35     END IF;
36 
37   ELSE
38 
39     IF ( P_PROJECT_NUMBER_TO IS NOT NULL ) THEN
40       P_PROJECT_WHERE := 'PP.SEGMENT1 <= ''' || P_PROJECT_NUMBER_TO || '''';
41     ELSE
42       P_PROJECT_WHERE := '1 = 1 ';
43     END IF;
44 
45   END IF;
46 
47   --
48   -- Building date range where clause
49   --
50   D_DATE_FROM      := FND_DATE.CANONICAL_TO_DATE(P_DATE_FROM);
51   D_DATE_TO        := FND_DATE.CANONICAL_TO_DATE(P_DATE_TO);
52   D_DATE_FROM_DISP := FND_DATE.DATE_TO_DISPLAYDATE(D_DATE_FROM);
53   D_DATE_TO_DISP   := FND_DATE.DATE_TO_DISPLAYDATE(D_DATE_TO);
54 
55   IF ( P_DATE_FROM IS NOT NULL ) THEN
56 
57     IF ( P_DATE_TO IS NOT NULL ) THEN
58       P_DATE_WHERE := ' BETWEEN TO_DATE(''' || D_DATE_FROM ||
59                        ''', ''YYYY/MM/DD'') AND TO_DATE(''' || D_DATE_TO || ''', ''YYYY/MM/DD'')';
60     ELSE
61       P_DATE_WHERE := ' >= TO_DATE(''' || D_DATE_FROM || ''', ''YYYY/MM/DD'')';
62     END IF;
63 
64   ELSE
65 
66     IF ( P_DATE_TO IS NOT NULL ) THEN
67       P_DATE_WHERE := ' <= TO_DATE(''' || D_DATE_TO || ''', ''YYYY/MM/DD'')';
68     ELSE
69       P_DATE_WHERE := ' IS NOT NULL ';
70     END IF;
71 
72   END IF;
73 
74 
75   return (TRUE);
76 end;
77 
78   FUNCTION AFTERREPORT RETURN BOOLEAN IS
79   BEGIN
80     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
81     RETURN (TRUE);
82   END AFTERREPORT;
83 
84 END PJM_PJMRPSES_XMLP_PKG;
85