PACKAGE BODY: APPS.INV_INVSRLOC_XMLP_PKG

Source

1 PACKAGE BODY INV_INVSRLOC_XMLP_PKG AS
2 /* $Header: INVSRLOCB.pls 120.1 2007/12/25 10:54:18 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     BEGIN
6       BEGIN
7         P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8         QTY_PRECISION:=inv_common_xmlp_pkg.get_precision(P_QTY_PRECISION);
9         /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
10       EXCEPTION
11         WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
12           /*SRW.MESSAGE(1
13                      ,'Before Report: Init')*/NULL;
14           RAISE;
15       END;
16       DECLARE
17         P_ORG_ID_CHAR VARCHAR2(100) := (P_ORG_ID);
18       BEGIN
19         FND_PROFILE.PUT('MFG_ORGANIZATION_ID'
20                        ,P_ORG_ID_CHAR);
21         /*SRW.USER_EXIT('FND PUTPROFILE NAME="' || 'MFG_ORGANIZATION_ID' || '" FIELD="' || P_ORG_ID_CHAR || '"')*/NULL;
22       EXCEPTION
23         WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
24           /*SRW.MESSAGE(020
25                      ,'Failed in before report trigger, setting org profile ')*/NULL;
26           RAISE;
27       END;
28       BEGIN
29         NULL;
30       EXCEPTION
31         WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
32           /*SRW.MESSAGE(1
33                      ,'Before Report: LocatorFlex')*/NULL;
34           RAISE;
35       END;
36     END;
37     RETURN (TRUE);
38   END BEFOREREPORT;
39   FUNCTION AFTERREPORT RETURN BOOLEAN IS
40   BEGIN
41     BEGIN
42       BEGIN
43         /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
44       EXCEPTION
45         WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
46           /*SRW.MESSAGE(1
47                      ,'SRWEXIT failed')*/NULL;
48       END;
49       RETURN (TRUE);
50     END;
51     RETURN (TRUE);
52   END AFTERREPORT;
53   FUNCTION AFTERPFORM RETURN BOOLEAN IS
54   BEGIN
55     RETURN (TRUE);
56   END AFTERPFORM;
57 END INV_INVSRLOC_XMLP_PKG;
58