[Home] [Help]
PACKAGE BODY: APPS.BOM_BOMRDDEL_XMLP_PKG
Source
1 PACKAGE BODY BOM_BOMRDDEL_XMLP_PKG AS
2 /* $Header: BOMRDDELB.pls 120.0 2007/12/24 09:39:47 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7 RETURN (TRUE);
8 END BEFOREREPORT;
9
10 FUNCTION AFTERREPORT RETURN BOOLEAN IS
11 BEGIN
12 RETURN (TRUE);
13 END AFTERREPORT;
14
15 FUNCTION WHERE_GROUP RETURN VARCHAR2 IS
16 BEGIN
17 DECLARE
18 GROUP_FROM VARCHAR2(10);
19 GROUP_TO VARCHAR2(10);
20 BEGIN
21 GROUP_FROM := P_GROUP_FROM;
22 GROUP_TO := P_GROUP_TO;
23 IF (P_GROUP_FROM IS NOT NULL AND P_GROUP_TO IS NOT NULL) THEN
24 RETURN ('and bdg.DELETE_GROUP_NAME between ''' || GROUP_FROM || ''' and ''' || GROUP_TO || '''');
25 ELSE
26 IF P_GROUP_FROM IS NOT NULL THEN
27 RETURN ('and bdg.DELETE_GROUP_NAME like ''' || GROUP_FROM || '''');
28 ELSE
29 IF P_GROUP_TO IS NOT NULL THEN
30 RETURN ('and bdg.DELETE_GROUP_NAME like ''' || GROUP_TO || '''');
31 ELSE
32 RETURN (' ');
33 END IF;
34 END IF;
35 END IF;
36 END;
37 RETURN NULL;
38 END WHERE_GROUP;
39
40 FUNCTION WHERE_TYPE RETURN VARCHAR2 IS
41 BEGIN
42 DECLARE
43 ITEM_TYPE VARCHAR2(1);
44 BILL_TYPE VARCHAR2(1);
45 ROUT_TYPE VARCHAR2(1);
46 COMP_TYPE VARCHAR2(1);
47 OPER_TYPE VARCHAR2(1);
48 BR_TYPE VARCHAR2(1);
49 IBR_TYPE VARCHAR2(1);
50 BEGIN
51 IF P_ITEM_FLAG = 1 THEN
52 ITEM_TYPE := 1;
53 ELSE
54 ITEM_TYPE := 0;
55 END IF;
56 IF P_BILL_FLAG = 1 THEN
57 BILL_TYPE := 2;
58 ELSE
59 BILL_TYPE := 0;
60 END IF;
61 IF P_ROUT_FLAG = 1 THEN
62 ROUT_TYPE := 3;
63 ELSE
64 ROUT_TYPE := 0;
65 END IF;
66 IF P_COMP_FLAG = 1 THEN
67 COMP_TYPE := 4;
68 ELSE
69 COMP_TYPE := 0;
70 END IF;
71 IF P_OPER_FLAG = 1 THEN
72 OPER_TYPE := 5;
73 ELSE
74 OPER_TYPE := 0;
75 END IF;
76 IF P_BR_FLAG = 1 THEN
77 BR_TYPE := 6;
78 ELSE
79 BR_TYPE := 0;
80 END IF;
81 IF P_IBR_FLAG = 1 THEN
82 IBR_TYPE := 7;
83 ELSE
84 IBR_TYPE := 0;
85 END IF;
86 RETURN ('and bdg.DELETE_TYPE in ( ' || ITEM_TYPE || ', ' || BILL_TYPE || ', ' || ROUT_TYPE || ', ' || COMP_TYPE || ', ' || OPER_TYPE || ', ' || BR_TYPE || ', ' || IBR_TYPE || ')');
87 END;
88 RETURN ' ';
89 END WHERE_TYPE;
90
91 FUNCTION WHERE_TYPE1 RETURN VARCHAR2 IS
92 BEGIN
93 DECLARE
94 ITEM_TYPE VARCHAR2(1);
95 BILL_TYPE VARCHAR2(1);
96 ROUT_TYPE VARCHAR2(1);
97 COMP_TYPE VARCHAR2(1);
98 OPER_TYPE VARCHAR2(1);
99 BR_TYPE VARCHAR2(1);
100 IBR_TYPE VARCHAR2(1);
101 BEGIN
102 IF P_ITEM_FLAG = 1 THEN
103 ITEM_TYPE := 1;
104 ELSE
105 ITEM_TYPE := 0;
106 END IF;
107 IF P_BILL_FLAG = 1 THEN
108 BILL_TYPE := 2;
109 ELSE
110 BILL_TYPE := 0;
111 END IF;
112 IF P_ROUT_FLAG = 1 THEN
113 ROUT_TYPE := 3;
114 ELSE
115 ROUT_TYPE := 0;
116 END IF;
117 IF P_COMP_FLAG = 1 THEN
118 COMP_TYPE := 4;
119 ELSE
120 COMP_TYPE := 0;
121 END IF;
122 IF P_OPER_FLAG = 1 THEN
123 OPER_TYPE := 5;
124 ELSE
125 OPER_TYPE := 0;
126 END IF;
127 IF P_BR_FLAG = 1 THEN
128 BR_TYPE := 6;
129 ELSE
130 BR_TYPE := 0;
131 END IF;
132 IF P_IBR_FLAG = 1 THEN
133 IBR_TYPE := 7;
134 ELSE
135 IBR_TYPE := 0;
136 END IF;
137 RETURN ('and bdg.DELETE_TYPE in ( ' || ITEM_TYPE || ', ' || BILL_TYPE || ', ' || ROUT_TYPE || ', ' || COMP_TYPE || ', ' || OPER_TYPE || ', ' || BR_TYPE || ', ' || IBR_TYPE || ')');
138 END;
139 RETURN ' ';
140 END WHERE_TYPE1;
141
142 FUNCTION WHERE_ENTITY_STATUS RETURN VARCHAR2 IS
143 BEGIN
144 DECLARE
145 PEND VARCHAR2(1);
146 CHECK_OK VARCHAR2(1);
147 ERROR VARCHAR2(1);
148 DEL VARCHAR2(1);
149 BEGIN
150 IF P_PEND_STATUS_FLAG = 1 THEN
151 PEND := 1;
152 ELSE
153 PEND := 0;
154 END IF;
155 IF P_CHECK_STATUS_FLAG = 1 THEN
156 CHECK_OK := 2;
157 ELSE
158 CHECK_OK := 0;
159 END IF;
160 IF P_ERROR_STATUS_FLAG = 1 THEN
161 ERROR := 3;
162 ELSE
163 ERROR := 0;
164 END IF;
165 IF P_DEL_STATUS_FLAG = 1 THEN
166 DEL := 4;
167 ELSE
168 DEL := 0;
169 END IF;
170 RETURN ('and ( bde.delete_status_type is null or bde.DELETE_STATUS_TYPE in ( ' || PEND || ', ' || CHECK_OK || ', ' || ERROR || ', ' || DEL || '))');
171 END;
172 RETURN ' ';
173 END WHERE_ENTITY_STATUS;
174
175 FUNCTION WHERE_SUB_ENTITY_STATUS RETURN VARCHAR2 IS
176 BEGIN
177 DECLARE
178 PEND VARCHAR2(1);
179 CHECK_OK VARCHAR2(1);
180 ERROR VARCHAR2(1);
181 DEL VARCHAR2(1);
182 BEGIN
183 IF P_PEND_STATUS_FLAG = 1 THEN
184 PEND := 1;
185 ELSE
186 PEND := 0;
187 END IF;
188 IF P_CHECK_STATUS_FLAG = 1 THEN
189 CHECK_OK := 2;
190 ELSE
191 CHECK_OK := 0;
192 END IF;
193 IF P_ERROR_STATUS_FLAG = 1 THEN
194 ERROR := 3;
195 ELSE
196 ERROR := 0;
197 END IF;
198 IF P_DEL_STATUS_FLAG = 1 THEN
199 DEL := 4;
200 ELSE
201 DEL := 0;
202 END IF;
203 RETURN ('and ( bdse.delete_status_type is null or bdse.DELETE_STATUS_TYPE in ( ' || PEND || ', ' || CHECK_OK || ', ' || ERROR || ', ' || DEL || '))');
204 END;
205 RETURN ' ';
206 END WHERE_SUB_ENTITY_STATUS;
207
208 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
209 BEGIN
210 RETURN (TRUE);
211 END BEFOREPFORM;
212
213 FUNCTION C_ENG_FLAG_WHEREFORMULA RETURN VARCHAR2 IS
214 BEGIN
215 IF P_BOM_OR_ENG = 'ENG' THEN
216 RETURN (' and bdg.engineering_flag = 2 ');
217 ELSE
218 RETURN (' and bdg.engineering_flag = 1 ');
219 END IF;
220 RETURN ' ';
221 END C_ENG_FLAG_WHEREFORMULA;
222
223 --FUNCTION GET_MESSAGE RETURN VARCHAR2 IS
224 FUNCTION GET_MESSAGE(ENTITY_MESSAGE IN VARCHAR2) RETURN VARCHAR2 IS
225 BEGIN
226 FND_MESSAGE.SET_NAME('null'
227 ,ENTITY_MESSAGE);
228 P_ENT_MSG := FND_MESSAGE.GET;
229 RETURN (P_ENT_MSG);
230 END GET_MESSAGE;
231
232 FUNCTION GET_MESSAGE2 RETURN VARCHAR2 IS
233 BEGIN
234 FND_MESSAGE.SET_NAME('null'
235 ,':COMP_MESSAGE');
236 P_COMP_MSG := FND_MESSAGE.GET;
237 RETURN (P_COMP_MSG);
238 END GET_MESSAGE2;
239
240 FUNCTION GET_MESSAGE3 RETURN VARCHAR2 IS
241 BEGIN
242 FND_MESSAGE.SET_NAME('null'
243 ,':OP_MESSAGE');
244 P_OP_MSG := FND_MESSAGE.GET;
245 RETURN (P_OP_MSG);
246 END GET_MESSAGE3;
247
248 END BOM_BOMRDDEL_XMLP_PKG;
249