1 PACKAGE BODY INV_INVIRCXR_XMLP_PKG AS
2 /* $Header: INVIRCXRB.pls 120.1 2007/12/25 10:21:53 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 ,'Srwinit failed before report trigger')*/NULL;
12 RAISE;
13 END;
14 IF (P_CUSTOMER_FROM IS NOT NULL) THEN
15 P_WHERE := ' And A.customer_id =' || '''' || P_CUSTOMER_FROM || '''';
16 END IF;
17 IF (P_CUSTOMER_ADDRESS_CATEGORY IS NOT NULL) THEN
18 P_WHERE := P_WHERE || ' And A.customer_category =' || '''' || P_CUSTOMER_ADDRESS_CATEGORY || '''';
19 END IF;
20 IF (P_CUSTOMER_ADDRESS IS NOT NULL) THEN
21 P_WHERE := P_WHERE || ' And A.concatenated_address =' || '''' || P_CUSTOMER_ADDRESS || '''';
22 END IF;
23 IF (P_CUSTOMER_ITEM_NBR_FROM IS NOT NULL) THEN
24 P_WHERE := P_WHERE || ' And A.customer_item_number >=' || '''' || P_CUSTOMER_ITEM_NBR_FROM || '''';
25 END IF;
26 IF (P_CUSTOMER_ITEM_NBR_TO IS NOT NULL) THEN
27 P_WHERE := P_WHERE || ' And A.customer_item_number <=' || '''' || P_CUSTOMER_ITEM_NBR_TO || '''';
28 END IF;
29 IF (P_ITEM_LEVEL IS NOT NULL) THEN
30 P_WHERE := P_WHERE || ' And A.item_level = ' || '''' || P_ITEM_LEVEL || '''';
31 END IF;
32 IF (P_LIST_LOWEST_RANK = 'Yes' OR P_LIST_LOWEST_RANK = 'Y') THEN
33 P_WHERE := P_WHERE || ' And A.Rank =
34 (Select min(Rank) from MTL_CUSTOMER_ITEM_XREFS_V B
35 Where A.customer_item_id = B.customer_item_id
36 And A.master_organization_id = B.master_organization_id)';
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 FUNCTION G_BODYGROUPFILTER RETURN BOOLEAN IS
47 BEGIN
48 RETURN (TRUE);
49 END G_BODYGROUPFILTER;
50 END INV_INVIRCXR_XMLP_PKG;
51