1 PACKAGE BODY INV_INVCCIER_XMLP_PKG AS
2 /* $Header: INVCCIERB.pls 120.1 2007/12/25 10:14:20 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 temp_date_format varchar2(20):='DD'||'-MON-'||'YYYY';
5 BEGIN
6 BEGIN
7 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8
9 CP_COUNT_DATE_LOW := TO_DATE(P_COUNT_DATE_LOW,temp_date_format);
10
11 CP_COUNT_DATE_HIGH := TO_DATE(P_COUNT_DATE_HIGH,temp_date_format);
12
13 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
14 EXCEPTION
15 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
16 /*SRW.MESSAGE(010
17 ,'Failed in before report trigger, srwinit. ')*/NULL;
18 RAISE;
19 END;
20 BEGIN
21 SELECT
22 ORGANIZATION_NAME
23 INTO P_ORG_NAME
24 FROM
25 ORG_ORGANIZATION_DEFINITIONS
26 WHERE ORGANIZATION_ID = P_ORG_ID;
27 EXCEPTION
28 WHEN OTHERS THEN
29 NULL;
30 END;
31 BEGIN
32 NULL;
33 EXCEPTION
34 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
35 /*SRW.MESSAGE(020
36 ,'Failed in before report trigger, item select. ')*/NULL;
37 RAISE;
38 END;
39 BEGIN
40 NULL;
41 EXCEPTION
42 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
43 /*SRW.MESSAGE(030
44 ,'Failed in before report trigger, locator select. ')*/NULL;
45 RAISE;
46 END;
47 IF P_ORG_ID IS NOT NULL THEN
48 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND MCCI.ORGANIZATION_ID = ' || TO_CHAR(P_ORG_ID);
49 END IF;
50 IF P_CYCLE_COUNT_HEADER_ID IS NOT NULL THEN
51 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND MCCI.CYCLE_COUNT_HEADER_ID = ' || TO_CHAR(P_CYCLE_COUNT_HEADER_ID);
52 BEGIN
53 SELECT
54 CYCLE_COUNT_HEADER_NAME
55 INTO P_CYCLE_COUNT_HEADER_NAME
56 FROM
57 MTL_CYCLE_COUNT_HEADERS
58 WHERE CYCLE_COUNT_HEADER_ID = P_CYCLE_COUNT_HEADER_ID;
59 EXCEPTION
60 WHEN OTHERS THEN
61 NULL;
62 END;
63 END IF;
64 IF P_ACTION_CODE IS NOT NULL THEN
65 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND MCCI.ACTION_CODE = ' || TO_CHAR(P_ACTION_CODE);
66 BEGIN
67 SELECT
68 MEANING
69 INTO P_ACTION
70 FROM
71 MFG_LOOKUPS
72 WHERE LOOKUP_TYPE = 'MTL_CCEOI_ACTION_CODE'
73 AND LOOKUP_CODE = P_ACTION_CODE;
74 EXCEPTION
75 WHEN OTHERS THEN
76 NULL;
77 END;
78 END IF;
79 IF P_REQUEST_ID IS NOT NULL THEN
80 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND MCCI.REQUEST_ID = ' || TO_CHAR(P_REQUEST_ID);
81 END IF;
82 IF P_COUNT_DATE_LOW IS NOT NULL THEN
83 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND TO_CHAR(MCCI.COUNT_DATE,''YYYY-MM-DD'' ) >= ''' || TO_CHAR(CP_COUNT_DATE_LOW
84 ,'YYYY-MM-DD') || '''';
85 END IF;
86 IF P_COUNT_DATE_HIGH IS NOT NULL THEN
87 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND TO_CHAR(MCCI.COUNT_DATE,''YYYY-MM-DD'' ) <= ''' || TO_CHAR(CP_COUNT_DATE_HIGH
88 ,'YYYY-MM-DD') || '''';
89 END IF;
90 BEGIN
91 DECLARE
92 X_ERROR_CODE NUMBER;
93 X_RETURN_STATUS VARCHAR2(1);
94 X_MSG_COUNT NUMBER;
95 X_MSG_DATA VARCHAR2(240);
96 BEGIN
97 IF WMS_INSTALL.CHECK_INSTALL(X_RETURN_STATUS
98 ,X_MSG_COUNT
99 ,X_MSG_DATA
100 ,P_ORG_ID) THEN
101 P_WMS_INSTALLED := 1;
102 ELSE
103 P_WMS_INSTALLED := 2;
104 END IF;
105 END;
106 END;
107 RETURN (TRUE);
108 END BEFOREREPORT;
109
110 FUNCTION AFTERREPORT RETURN BOOLEAN IS
111 BEGIN
112 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
113 RETURN (TRUE);
114 END AFTERREPORT;
115
116 FUNCTION AFTERPFORM RETURN BOOLEAN IS
117 BEGIN
118 RETURN (TRUE);
119 END AFTERPFORM;
120
121 END INV_INVCCIER_XMLP_PKG;
122