1 PACKAGE BODY INV_INVIRSIQ_XMLP_PKG AS
2 /* $Header: INVIRSIQB.pls 120.1 2007/12/25 10:32:03 dwkrishn noship $ */
3 FUNCTION P_STRUCT_NUMVALIDTRIGGER RETURN BOOLEAN IS
4 BEGIN
5 RETURN (TRUE);
6 END P_STRUCT_NUMVALIDTRIGGER;
7
8 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
9 BEGIN
10 BEGIN
11 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
12 qty_precision:=inv_common_xmlp_pkg.get_precision(P_qty_precision);
13 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
14 EXCEPTION
15 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
16 /*SRW.MESSAGE(010
17 ,'Failed in before report trigger, srwinit. ')*/NULL;
18 RAISE;
19 END;
20 DECLARE
21 P_ORG_ID_CHAR VARCHAR2(100) := (P_ORGANIZATION_ID);
22 BEGIN
23 /*SRW.USER_EXIT('FND PUTPROFILE NAME="' || 'MFG_ORGANIZATION_ID' || '" FIELD="' || P_ORG_ID_CHAR || '"')*/NULL;
24 EXCEPTION
25 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
26 /*SRW.MESSAGE(020
27 ,'Failed in before report trigger, setting org profile ')*/NULL;
28 RAISE;
29 END;
30 BEGIN
31 NULL;
32 EXCEPTION
33 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
34 /*SRW.MESSAGE(020
35 ,'Failed in before report trigger, item select. ')*/NULL;
36 RAISE;
37 END;
38 BEGIN
39 NULL;
40 EXCEPTION
41 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
42 /*SRW.MESSAGE(080
43 ,'Failed in before report trigger, item order by. ')*/NULL;
44 RAISE;
45 END;
46 BEGIN
47 NULL;
48 EXCEPTION
49 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
50 /*SRW.MESSAGE(110
51 ,'Failed in before report trigger, item where. ')*/NULL;
52 RAISE;
53 END;
54 BEGIN
55 NULL;
56 EXCEPTION
57 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
58 /*SRW.MESSAGE(112
59 ,'Failed in before report trigger, locator select. ')*/NULL;
60 RAISE;
61 END;
62 RETURN (TRUE);
63 END BEFOREREPORT;
64
65 FUNCTION AFTERREPORT RETURN BOOLEAN IS
66 BEGIN
67 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
68 RETURN (TRUE);
69 END AFTERREPORT;
70
71 FUNCTION AFTERPFORM RETURN BOOLEAN IS
72 BEGIN
73 RETURN (TRUE);
74 END AFTERPFORM;
75
76 FUNCTION WHERE_SUBINV RETURN VARCHAR2 IS
77 BEGIN
78 DECLARE
79 LO VARCHAR2(10);
80 HI VARCHAR2(10);
81 BEGIN
82 LO := P_SUBINV_LO;
83 HI := P_SUBINV_HI;
84 IF P_SUBINV_LO IS NULL AND P_SUBINV_HI IS NULL THEN
85 RETURN (' ');
86 ELSE
87 IF P_SUBINV_LO IS NOT NULL AND P_SUBINV_HI IS NULL THEN
88 RETURN (' AND si.secondary_inventory_name >= ''' || LO || ''' ');
89 ELSE
90 IF P_SUBINV_LO IS NULL AND P_SUBINV_HI IS NOT NULL THEN
91 RETURN (' AND si.secondary_inventory_name <= ''' || HI || ''' ');
92 ELSE
93 RETURN (' AND si.secondary_inventory_name between ''' || LO || ''' and ''' || HI || ''' ');
94 END IF;
95 END IF;
96 END IF;
97 END;
98 RETURN (' ');
99 END WHERE_SUBINV;
100
101 FUNCTION CF_ROUNDEDQTYFORMULA(C_SUM_ITEM_QTY IN NUMBER) RETURN NUMBER IS
102 BEGIN
103 RETURN ROUND(C_SUM_ITEM_QTY
104 ,P_QTY_PRECISION);
105 END CF_ROUNDEDQTYFORMULA;
106
107 END INV_INVIRSIQ_XMLP_PKG;
108