PACKAGE BODY: APPS.PJM_PJMRPSEW_XMLP_PKG

Source

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