1 PACKAGE BODY INV_INVIRCIT_XMLP_PKG AS
2 /* $Header: INVIRCITB.pls 120.1 2007/12/25 10:19:00 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 P_ORG_ID_1:=nvl(P_ORG_ID,592);
7 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
9 EXCEPTION
10 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
11 /*SRW.MESSAGE(1
12 ,'Srwinit failed before report trigger')*/NULL;
13 RAISE;
14 END;
15 IF (P_CUSTOMER IS NOT NULL) THEN
16 P_WHERE := ' And MCI.customer_id =' || '''' || P_CUSTOMER || '''';
17 END IF;
18 IF (P_CUSTOMER_ADDRESS_CATEGORY IS NOT NULL) THEN
19 P_WHERE := P_WHERE || ' And MCI.customer_category =' || '''' || P_CUSTOMER_ADDRESS_CATEGORY || '''';
20 END IF;
21 IF (P_CUSTOMER_ADDRESS IS NOT NULL) THEN
22 P_WHERE := P_WHERE || ' And MCI.concatenated_address =' || '''' || P_CUSTOMER_ADDRESS || '''';
23 END IF;
24 IF (P_CUSTOMER_ITEM_NBR_FROM IS NOT NULL) THEN
25 P_WHERE := P_WHERE || ' And MCI.customer_item_number >=' || '''' || P_CUSTOMER_ITEM_NBR_FROM || '''';
26 END IF;
27 IF (P_CUSTOMER_ITEM_NBR_TO IS NOT NULL) THEN
28 P_WHERE := P_WHERE || ' And MCI.customer_item_number <=' || '''' || P_CUSTOMER_ITEM_NBR_TO || '''';
29 END IF;
30 IF (P_LIST_CUSTOMER_ITEMS_WO_XREFS = 'Yes' OR P_LIST_CUSTOMER_ITEMS_WO_XREFS = 'Y') THEN
31 P_WHERE := P_WHERE || ' And MCI.Customer_Item_Id In
32 (Select A.Customer_Item_Id
33 From MTL_CUSTOMER_ITEMS A
34 Minus
35 Select Distinct B.Customer_Item_Id
36 From MTL_CUSTOMER_ITEM_XREFS B)';
37 END IF;
38 RETURN (TRUE);
39 END BEFOREREPORT;
40 FUNCTION AFTERREPORT RETURN BOOLEAN IS
41 BEGIN
42 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
43 RETURN (TRUE);
44 RETURN (TRUE);
45 END AFTERREPORT;
46 END INV_INVIRCIT_XMLP_PKG;
47