1 PACKAGE BODY INV_INVPRFDH_XMLP_PKG AS
2 /* $Header: INVPRFDHB.pls 120.1 2007/12/25 10:46:50 dwkrishn noship $ */
3 /* $Header: INVPRFDHB.pls 120.1 2007/12/25 10:46:50 dwkrishn noship $ */
4 FUNCTION WHERE_CAT(P_CAT_WHERE varchar2) RETURN VARCHAR2 IS
5 BEGIN
6 DECLARE
7 CAT_SET VARCHAR2(15);
8 CAT_WHERE VARCHAR2(960);
9 ORG VARCHAR2(15);
10 BEGIN
11 CAT_SET := P_CAT_SET;
12 CAT_WHERE := P_CAT_WHERE;
13 ORG := P_ORG;
14 IF P_CAT_SET IS NOT NULL THEN
15 RETURN (' and mdh.INVENTORY_ITEM_ID in
16 (select MIC.INVENTORY_ITEM_ID from MTL_ITEM_CATEGORIES MIC, MTL_CATEGORIES MC
17 where MIC.CATEGORY_SET_ID =''' || CAT_SET || ''' and ' || CAT_WHERE || '
18 and MIC.organization_id = ''' || ORG || ''' and MC.CATEGORY_ID =MIC.CATEGORY_ID)');
19 ELSE
20 RETURN (' ');
21 END IF;
22 END;
23 RETURN NULL;
24 END WHERE_CAT;
25
26 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
27 BEGIN
28 BEGIN
29 LP_START_DATE:=to_char(P_START_DATE,'DD-MON-YY');
30 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
31 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
32 EXCEPTION
33 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
34 /*SRW.MESSAGE(1
35 ,'Srwinit failed in before report trigger')*/NULL;
36 RAISE;
37 END;
38 BEGIN
39 NULL;
40 EXCEPTION
41 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
42 /*SRW.MESSAGE(2
43 ,'Item Flex Select failed in before report trigger')*/NULL;
44 RAISE;
45 END;
46 BEGIN
47 NULL;
48 EXCEPTION
49 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
50 /*SRW.MESSAGE(3
51 ,'Item Flex ORDER failed in before report trigger')*/NULL;
52 RAISE;
53 END;
54 BEGIN
55 NULL;
56 EXCEPTION
57 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
58 /*SRW.MESSAGE(4
59 ,'Item Flex Where failed 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(6
67 ,'Catg Flex Where failed in before report trigger')*/NULL;
68 RAISE;
69 END;
70 RETURN (TRUE);
71 END BEFOREREPORT;
72
73 FUNCTION AFTERREPORT RETURN BOOLEAN IS
74 BEGIN
75 RETURN (TRUE);
76 END AFTERREPORT;
77
78 FUNCTION C_ITEM_LO_NICEFORMULA RETURN VARCHAR2 IS
79 BEGIN
80 BEGIN
81 IF P_ITEM_LO = ':' THEN
82 RETURN (' ');
83 ELSE
84 RETURN (P_ITEM_LO);
85 END IF;
86 END;
87 RETURN NULL;
88 END C_ITEM_LO_NICEFORMULA;
89
90 FUNCTION C_ITEM_HI_NICEFORMULA RETURN VARCHAR2 IS
91 BEGIN
92 BEGIN
93 IF P_ITEM_HI = ':' THEN
94 RETURN (' ');
95 ELSE
96 RETURN (P_ITEM_HI);
97 END IF;
98 END;
99 RETURN NULL;
100 END C_ITEM_HI_NICEFORMULA;
101
102 FUNCTION C_CAT_LO_NICEFORMULA RETURN VARCHAR2 IS
103 BEGIN
104 BEGIN
105 IF P_CAT_LO = '-' THEN
106 RETURN (' ');
107 ELSE
108 RETURN (P_CAT_LO);
109 END IF;
110 END;
111 RETURN NULL;
112 END C_CAT_LO_NICEFORMULA;
113
114 FUNCTION C_CAT_HI_NICEFORMULA RETURN VARCHAR2 IS
115 BEGIN
116 BEGIN
117 IF P_CAT_HI = '-' THEN
118 RETURN (' ');
119 ELSE
120 RETURN (P_CAT_HI);
121 END IF;
122 END;
123 RETURN NULL;
124 END C_CAT_HI_NICEFORMULA;
125
126 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
127 BEGIN
128 RETURN (TRUE);
129 END BEFOREPFORM;
130
131 FUNCTION F_TOTALFORMULA(SALES_ORDERS IN NUMBER
132 ,INTERORG_ISSUES IN NUMBER
133 ,WIP_ISSUES IN NUMBER
134 ,MISCELLANEOUS_ISSUES IN NUMBER) RETURN NUMBER IS
135 BEGIN
136 BEGIN
137 RETURN (SALES_ORDERS + INTERORG_ISSUES + WIP_ISSUES + MISCELLANEOUS_ISSUES);
138 END;
139 RETURN NULL;
140 END F_TOTALFORMULA;
141
142 END INV_INVPRFDH_XMLP_PKG;
143
144