PACKAGE BODY: APPS.PJM_PJMRPWSE_XMLP_PKG

Source

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