1 PACKAGE BODY INV_INVARPIA_XMLP_PKG AS
2 /* $Header: INVARPIAB.pls 120.2 2008/01/08 06:23:14 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 EXCEPTION
9 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
10 /*SRW.MESSAGE(1
11 ,'Failed in before report trigger:SRWINIT')*/NULL;
12 RAISE;
13 END;
14 BEGIN
15 SELECT
16 MEANING
17 INTO P_REJ_OPT_TITLE
18 FROM
19 MFG_LOOKUPS
20 WHERE LOOKUP_TYPE = 'SYS_YES_NO'
21 AND LOOKUP_CODE = NVL(P_INCLUDE_REJ_ITEMS
22 ,1);
23 EXCEPTION
24 WHEN OTHERS THEN
25 NULL;
26 END;
27 IF NVL(P_INCLUDE_REJ_ITEMS
28 ,1) = 1 THEN
29 P_INCLUDE_REJ_ITEMS_OPT := ' ';
30 ELSE
31 P_INCLUDE_REJ_ITEMS_OPT := 'and nvl(mpav.approval_status,1) <> 2 ';
32 END IF;
33 BEGIN
34 NULL;
35 EXCEPTION
36 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
37 /*SRW.MESSAGE(1
38 ,'Failed in before report trigger:MSTK/select')*/NULL;
39 RAISE;
40 END;
41 BEGIN
42 NULL;
43 EXCEPTION
44 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
45 /*SRW.MESSAGE(1
46 ,'Failed in before report trigger:MSTK/order')*/NULL;
47 RAISE;
48 END;
49 BEGIN
50 NULL;
51 EXCEPTION
52 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
53 /*SRW.MESSAGE(1
54 ,'Failed in before report trigger:MCAT/select')*/NULL;
55 RAISE;
56 END;
57 BEGIN
58 NULL;
59 EXCEPTION
60 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
61 /*SRW.MESSAGE(1
62 ,'Failed in before report trigger:MTLL')*/NULL;
63 RAISE;
64 END;
65 RETURN (TRUE);
66 END BEFOREREPORT;
67
68 FUNCTION AFTERREPORT RETURN BOOLEAN IS
69 BEGIN
70 BEGIN
71 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
72 EXCEPTION
73 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
74 /*SRW.MESSAGE(1
75 ,'SRWEXIT failed')*/NULL;
76 END;
77 RETURN (TRUE);
78 END AFTERREPORT;
79
80 FUNCTION AFTERPFORM RETURN BOOLEAN IS
81 BEGIN
82 RETURN (TRUE);
83 END AFTERPFORM;
84
85 FUNCTION C_PHYS_INV_NAMEFORMULA RETURN VARCHAR2 IS
86 BEGIN
87 DECLARE
88 NAME VARCHAR2(50);
89 BEGIN
90 SELECT
91 PHYSICAL_INVENTORY_NAME
92 INTO NAME
93 FROM
94 MTL_PHYSICAL_INVENTORIES
95 WHERE ORGANIZATION_ID = P_ORG_ID
96 AND PHYSICAL_INVENTORY_ID = P_PHYS_INV_ID;
97 RETURN (NAME);
98 EXCEPTION
99 WHEN NO_DATA_FOUND THEN
100 RETURN ('');
101 END;
102 RETURN NULL;
103 END C_PHYS_INV_NAMEFORMULA;
104
105 FUNCTION C_CAT_SET_NAMEFORMULA RETURN VARCHAR2 IS
106 BEGIN
107 DECLARE
108 NAME VARCHAR2(50);
109 BEGIN
110 SELECT
111 CATEGORY_SET_NAME
112 INTO NAME
113 FROM
114 MTL_CATEGORY_SETS
115 WHERE CATEGORY_SET_ID = P_CATEGORY_SET_ID;
116 RETURN (NAME);
117 EXCEPTION
118 WHEN NO_DATA_FOUND THEN
119 RETURN ('');
120 END;
121 RETURN NULL;
122 END C_CAT_SET_NAMEFORMULA;
123
124 FUNCTION C_CURRENCY_CODEFORMULA(R_CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
125 BEGIN
126 RETURN ('(' || R_CURRENCY_CODE || ')');
127 END C_CURRENCY_CODEFORMULA;
128
129 FUNCTION C_ADJ_PER_CATFORMULA(C_CNT_VAL_CAT IN NUMBER,C_ADJ_VAL_CAT IN NUMBER,C_STD_PREC IN NUMBER) RETURN NUMBER IS
130 BEGIN
131 BEGIN
132 IF (C_CNT_VAL_CAT = 0) THEN
133 IF (C_ADJ_VAL_CAT = 0) THEN
134 RETURN (0);
135 ELSE
136 RETURN (100);
137 END IF;
138 ELSE
139 RETURN (ROUND((C_ADJ_VAL_CAT / C_CNT_VAL_CAT) * 100 ,C_STD_PREC));
140 END IF;
141 EXCEPTION WHEN OTHERS THEN RETURN NULL;
142 END;
143 RETURN NULL;
144 END C_ADJ_PER_CATFORMULA;
145
146 FUNCTION C_ADJ_PER_TOTFORMULA(C_CNT_VAL_SUM IN NUMBER
147 ,C_ADJ_VAL_SUM IN NUMBER
148 ,C_STD_PREC IN NUMBER) RETURN NUMBER IS
149 BEGIN
150 BEGIN
151 IF (C_CNT_VAL_SUM = 0) THEN
152 IF (C_ADJ_VAL_SUM = 0) THEN
153 RETURN (0);
154 ELSE
155 RETURN (100);
156 END IF;
157 ELSE
158 RETURN (ROUND((C_ADJ_VAL_SUM / C_CNT_VAL_SUM) * 100
159 ,C_STD_PREC));
160 END IF;
161 EXCEPTION
162 WHEN OTHERS THEN
163 RETURN NULL;
164 END;
165 RETURN NULL;
166 END C_ADJ_PER_TOTFORMULA;
167
168 FUNCTION C_SORTFORMULA RETURN VARCHAR2 IS
169 BEGIN
170 IF P_SORT_ID = 1 THEN
171 RETURN ('ASC');
172 ELSE
173 RETURN ('DESC');
174 END IF;
175 RETURN NULL;
176 END C_SORTFORMULA;
177
178 FUNCTION C_CAT_PADFORMULA(C_CAT_PAD IN VARCHAR2) RETURN VARCHAR2 IS
179 BEGIN
180 RETURN (C_CAT_PAD);
181 END C_CAT_PADFORMULA;
182
183 END INV_INVARPIA_XMLP_PKG;
184
[Home] [Help]