1 PACKAGE BODY INV_INVMSCHR_XMLP_PKG AS
2 /* $Header: INVMSCHRB.pls 120.3 2008/01/11 10:32:04 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8
9 IF P_LOC_LOW IS NOT NULL OR P_LOC_HI IS NOT NULL
10 THEN
11 P_XML_WHERE := '1=1';
12 ELSE
13 P_XML_WHERE := '1=2';
14 END IF;
15 EXCEPTION
16 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
17 /*SRW.MESSAGE(1
18 ,'Before Report: Init')*/NULL;
19 END;
20 DECLARE
21 L_REPORT_NAME VARCHAR2(240);
22 BEGIN
23 SELECT
24 CP.USER_CONCURRENT_PROGRAM_NAME
25 INTO L_REPORT_NAME
26 FROM
27 FND_CONCURRENT_PROGRAMS_VL CP,
28 FND_CONCURRENT_REQUESTS CR
29 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
30 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
31 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
32 RP_REPORT_NAME := L_REPORT_NAME;
33 EXCEPTION
34 WHEN NO_DATA_FOUND THEN
35 RP_REPORT_NAME := 'Material Status Change History Report';
36 END;
37 BEGIN
38 NULL;
39 EXCEPTION
40 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
41 /*SRW.MESSAGE(2
42 ,'Failed in before report trigger:MSTK')*/NULL;
43 END;
44 BEGIN
45 NULL;
46 EXCEPTION
47 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
48 /*SRW.MESSAGE(5
49 ,'Failed flexsql loc select in before report trigger')*/NULL;
50 RAISE;
51 END;
52 BEGIN
53 IF P_LOC_LOW IS NOT NULL OR P_LOC_HI IS NOT NULL THEN
54 BEGIN
55 NULL;
56 EXCEPTION
57 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
58 /*SRW.MESSAGE(15
59 ,'Failed flexsql loc where in before report trigger')*/NULL;
60 RAISE;
61 END;
62 BEGIN
63 NULL;
64 EXCEPTION
65 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
66 /*SRW.MESSAGE(16
67 ,'Failed flexsql loc order by in before report trigger. ')*/NULL;
68 RAISE;
69 END;
70 ELSE
71 P_LOC_WHERE := ' 1=2 ';
72 END IF;
73
74
75 END;
76 RETURN (TRUE);
77 END BEFOREREPORT;
78
79 FUNCTION AFTERREPORT RETURN BOOLEAN IS
80 BEGIN
81 BEGIN
82 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
83 EXCEPTION
84 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
85 /*SRW.MESSAGE(1
86 ,'Failed in AFTER REPORT TRIGGER')*/NULL;
87 RETURN (FALSE);
88 END;
89 RETURN (TRUE);
90 END AFTERREPORT;
91
92 FUNCTION AFTERPFORM RETURN BOOLEAN IS
93 BEGIN
94 BEGIN
95 IF (P_DATE_FROM IS NOT NULL) AND (P_DATE_TO IS NOT NULL) THEN
96 L_DATE_RANGE := ' and mmsh.creation_date between :p_date_from and :p_date_to ';
97 ELSIF (P_DATE_FROM IS NULL) AND (P_DATE_TO IS NOT NULL) THEN
98 L_DATE_RANGE := ' and mmsh.creation_date <= :p_date_to ';
99 ELSIF (P_DATE_FROM IS NOT NULL) AND (P_DATE_TO IS NULL) THEN
100 L_DATE_RANGE := ' and mmsh.creation_date >= :p_date_from ';
101 ELSE
102 L_DATE_RANGE := ' ';
103 END IF;
104 END;
105 if L_DATE_RANGE is null then L_DATE_RANGE:= ' '; end if;
106 RETURN (TRUE);
107 END AFTERPFORM;
108
109 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
110 BEGIN
111 RETURN RP_REPORT_NAME;
112 END RP_REPORT_NAME_P;
113
114 END INV_INVMSCHR_XMLP_PKG;
115
116