1 PACKAGE BODY INV_INVIRSLO_XMLP_PKG AS
2 /* $Header: INVIRSLOB.pls 120.2 2008/01/08 06:17:53 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 C_DATE_FORMAT varchar2(20);
5 BEGIN
6 BEGIN
7 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8 C_DATE_FORMAT := 'DD-MON-YY';
9 CP_CUTOFF_DATE := to_char(P_CUTOFF_DATE,C_DATE_FORMAT);
10 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
11 EXCEPTION
12 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
13 /*SRW.MESSAGE(1
14 ,'Failed in before report trigger:SRWINIT')*/NULL;
15 RAISE;
16 END;
17 BEGIN
18 NULL;
19 EXCEPTION
20 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
21 /*SRW.MESSAGE(1
22 ,'Failed in before report trigger:MSTK')*/NULL;
23 RAISE;
24 END;
25 BEGIN
26 NULL;
27 EXCEPTION
28 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
29 /*SRW.MESSAGE(1
30 ,'Failed in before report trigger:MCAT')*/NULL;
31 RAISE;
32 END;
33 RETURN (TRUE);
34 END BEFOREREPORT;
35
36 FUNCTION AFTERREPORT RETURN BOOLEAN IS
37 BEGIN
38 BEGIN
39 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
40 EXCEPTION
41 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
42 /*SRW.MESSAGE(1
43 ,'SRWEXIT failed')*/NULL;
44 END;
45 RETURN (TRUE);
46 END AFTERREPORT;
47
48 FUNCTION C_CAT_SET_NAMEFORMULA RETURN VARCHAR2 IS
49 BEGIN
50 DECLARE
51 CAT_SET_ID VARCHAR2(40);
52 CAT_SET_NAME VARCHAR2(30);
53 BEGIN
54 CAT_SET_ID := P_CAT_SET_ID;
55 SELECT
56 CATEGORY_SET_NAME
57 INTO CAT_SET_NAME
58 FROM
59 MTL_CATEGORY_SETS
60 WHERE CATEGORY_SET_ID = CAT_SET_ID;
61 RETURN (CAT_SET_NAME);
62 EXCEPTION
63 WHEN NO_DATA_FOUND THEN
64 NULL;
65 WHEN OTHERS THEN
66 /*SRW.MESSAGE(10
67 ,'No category set selected')*/NULL;
68 END;
69 RETURN NULL;
70 END C_CAT_SET_NAMEFORMULA;
71
72 FUNCTION C_SUBINV_WHEREFORMULA RETURN VARCHAR2 IS
73 BEGIN
74 IF P_SUBINV_LO IS NOT NULL AND P_SUBINV_HI IS NOT NULL THEN
75 RETURN ('and mmt.subinventory_code between ''' || P_SUBINV_LO || ''' and
76 ''' || P_SUBINV_HI || '''');
77 ELSE
78 IF P_SUBINV_LO IS NOT NULL AND P_SUBINV_HI IS NULL THEN
79 RETURN ('and mmt.subinventory_code >= ''' || P_SUBINV_LO || '''');
80 ELSE
81 IF P_SUBINV_LO IS NULL AND P_SUBINV_HI IS NOT NULL THEN
82 RETURN ('and mmt.subinventory_code <= ''' || P_SUBINV_HI || '''');
83 ELSE
84 RETURN (' ');
85 END IF;
86 END IF;
87 END IF;
88 RETURN (' ');
89 END C_SUBINV_WHEREFORMULA;
90
91 FUNCTION C_ITEM_PADFORMULA(C_ITEM_PAD IN VARCHAR2) RETURN VARCHAR2 IS
92 BEGIN
93 RETURN (C_ITEM_PAD);
94 END C_ITEM_PADFORMULA;
95
96 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
97 BEGIN
98 BEGIN
99 SELECT
100 STRUCTURE_ID
101 INTO P_CAT_STRUCT_NUM
102 FROM
103 MTL_CATEGORY_SETS
104 WHERE CATEGORY_SET_ID = P_CAT_SET_ID;
105 EXCEPTION
106 WHEN NO_DATA_FOUND THEN
107 /*SRW.MESSAGE(1
108 ,'Failed in before form trigger: Invalid category set id.')*/NULL;
109 RAISE;
110 END;
111 RETURN (TRUE);
112 END BEFOREPFORM;
113
114 END INV_INVIRSLO_XMLP_PKG;
115