PACKAGE BODY: APPS.BOM_CSTRPCGW_XMLP_PKG

Source

1 PACKAGE BODY BOM_CSTRPCGW_XMLP_PKG AS
2 /* $Header: CSTRPCGWB.pls 120.0 2007/12/24 10:09:42 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     DECLARE
6       WMS_ORG_COUNT NUMBER;
7       PJM_ORG_COUNT NUMBER;
8     BEGIN
9       SELECT
10         count(*)
11       INTO WMS_ORG_COUNT
12       FROM
13         MTL_PARAMETERS
14       WHERE WMS_ENABLED_FLAG = 'Y'
15         AND ORGANIZATION_ID = P_ORG_ID;
16       SELECT
17         count(*)
18       INTO PJM_ORG_COUNT
19       FROM
20         MTL_PARAMETERS
21       WHERE COST_GROUP_ACCOUNTING = 1
22         AND PROJECT_REFERENCE_ENABLED = 1
23         AND ORGANIZATION_ID = P_ORG_ID;
24       IF WMS_ORG_COUNT < 1 AND PJM_ORG_COUNT < 1 THEN
25         FND_MESSAGE.SET_NAME('BOM'
26                             ,'CST_WMS_ORG_REPORT_ONLY');
27         /*SRW.MESSAGE(24200
28                    ,FND_MESSAGE.GET)*/NULL;
29         /*RETURN FALSE;*/NULL;
30       END IF;
31       IF P_SORT_ID = 1 THEN
32         C_ORDER_BY := 'order by 1,3';
33       ELSIF P_SORT_ID = 2 THEN
34         C_ORDER_BY := 'order by 3 ASC, 1';
35       ELSIF P_SORT_ID = 3 THEN
36         C_ORDER_BY := 'order by 3 DESC, 1';
37       ELSE
38         C_ORDER_BY := NULL;
39       END IF;
40       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
41       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
42     EXCEPTION
43       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
44         /*SRW.MESSAGE(1
45                    ,'Failed in before report trigger:SRWINIT')*/NULL;
46         RAISE;
47     END;
48     LP_CLOSE_DATE:=to_char(P_CLOSE_DATE,'DD-MON-YYYY');
49     RETURN (TRUE);
50   END BEFOREREPORT;
51 
52   FUNCTION AFTERREPORT RETURN BOOLEAN IS
53   BEGIN
54     BEGIN
55       /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
56     EXCEPTION
57       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
58         /*SRW.MESSAGE(1
59                    ,'SRWEXIT failed')*/NULL;
60     END;
61     RETURN (TRUE);
62   END AFTERREPORT;
63 
64   FUNCTION C_CURRENCY_CODEFORMULA(R_CURRENCY_CODE IN VARCHAR2) RETURN CHAR IS
65   BEGIN
66     RETURN ('(' || R_CURRENCY_CODE || ')');
67   END C_CURRENCY_CODEFORMULA;
68 
69 END BOM_CSTRPCGW_XMLP_PKG;
70