PACKAGE BODY: APPS.BOM_CSTRDACR_XMLP_PKG

Source

1 PACKAGE BODY BOM_CSTRDACR_XMLP_PKG AS
2 /* $Header: CSTRDACRB.pls 120.0 2007/12/24 09:53:53 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     DECLARE
6       EAM_ORG_COUNT NUMBER;
7       L_CURRENCY VARCHAR2(15);
8     BEGIN
9       SELECT
10         count(*)
11       INTO EAM_ORG_COUNT
12       FROM
13         MTL_PARAMETERS
14       WHERE ORGANIZATION_ID = P_ORG_ID
15         AND EAM_ENABLED_FLAG = 'Y';
16       IF EAM_ORG_COUNT < 1 THEN
17         FND_MESSAGE.SET_NAME('BOM'
18                             ,'CST_EAM_ORG_REPORT_ONLY');
19         /*SRW.MESSAGE(24200
20                    ,FND_MESSAGE.GET)*/NULL;
21         RETURN FALSE;
22       END IF;
23       SELECT
24         OAP1.PERIOD_START_DATE,
25         OAP2.SCHEDULE_CLOSE_DATE
26       INTO P_PERIOD_DATE_FROM,P_PERIOD_DATE_TO
27       FROM
28         ORG_ACCT_PERIODS OAP1,
29         ORG_ACCT_PERIODS OAP2
30       WHERE OAP1.ORGANIZATION_ID = P_ORG_ID
31         AND OAP1.ACCT_PERIOD_ID = P_PERIOD_ID_FROM
32         AND OAP2.ORGANIZATION_ID = P_ORG_ID
33         AND OAP2.ACCT_PERIOD_ID = P_PERIOD_ID_TO;
34       SELECT
35         OOD.ORGANIZATION_NAME,
36         SOB.CURRENCY_CODE
37       INTO P_ORG_NAME,L_CURRENCY
38       FROM
39         CST_ORGANIZATION_DEFINITIONS OOD,
40         GL_SETS_OF_BOOKS SOB
41       WHERE OOD.ORGANIZATION_ID = P_ORG_ID
42         AND OOD.SET_OF_BOOKS_ID = SOB.SET_OF_BOOKS_ID;
43       P_EXCHANGE_RATE := FND_NUMBER.CANONICAL_TO_NUMBER(P_EXCHANGE_RATE_CHAR);
44       IF L_CURRENCY = P_CURRENCY_CODE THEN
45         P_CURRENCY_DSP := P_CURRENCY_CODE;
46       ELSE
47         P_CURRENCY_DSP := P_CURRENCY_CODE || ' @ ' || TO_CHAR(ROUND(1 / P_EXCHANGE_RATE
48                                        ,5)) || ' ' || L_CURRENCY;
49       END IF;
50       SELECT
51         NVL(MINIMUM_ACCOUNTABLE_UNIT
52            ,POWER(10
53                 ,NVL(-PRECISION
54                    ,0)))
55       INTO P_ROUND_UNIT
56       FROM
57         FND_CURRENCIES
58       WHERE CURRENCY_CODE = P_CURRENCY_CODE;
59     END;
60     RETURN (TRUE);
61   END BEFOREREPORT;
62 
63   FUNCTION AFTERPFORM RETURN BOOLEAN IS
64     L_ENABLE_TRACE VARCHAR(1);
65   BEGIN
66     BEGIN
67       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
68       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
69     EXCEPTION
70       WHEN OTHERS THEN
71         /*SRW.MESSAGE(999
72                    ,'FND SRWINIT >X')*/NULL;
73         RAISE;
74     END;
75     IF P_PERIOD_ID_FROM = P_PERIOD_ID_TO THEN
76       P_PERIOD_WEPB_WHERE := 'and wepb.acct_period_id = :P_PERIOD_ID_FROM';
77       P_PERIOD_WPB_WHERE := 'and wpb.acct_period_id = :P_PERIOD_ID_FROM';
78     ELSE
79       P_PERIOD_WEPB_WHERE := 'and wepb.acct_period_id between :P_PERIOD_ID_FROM and :P_PERIOD_ID_TO';
80       P_PERIOD_WPB_WHERE := 'and wpb.acct_period_id between :P_PERIOD_ID_FROM and :P_PERIOD_ID_TO';
81     END IF;
82     IF P_DEPT_FROM IS NOT NULL THEN
83       IF P_DEPT_TO IS NOT NULL THEN
84         IF P_DEPT_FROM = P_DEPT_TO THEN
85           P_DEPT_WHERE := 'and bd.department_code = :P_DEPT_FROM';
86         ELSE
87           P_DEPT_WHERE := 'and bd.department_code between :P_DEPT_FROM and :P_DEPT_TO';
88         END IF;
89       ELSE
90         P_DEPT_WHERE := 'and bd.department_code >= :P_DEPT_FROM';
91       END IF;
92     ELSE
93       IF P_DEPT_TO IS NOT NULL THEN
94         P_DEPT_WHERE := 'and bd.department_code <= :P_DEPT_TO';
95       ELSE
96         P_DEPT_WHERE := ' ';
97       END IF;
98     END IF;
99     RETURN (TRUE);
100   END AFTERPFORM;
101 
102   FUNCTION AFTERREPORT RETURN BOOLEAN IS
103   BEGIN
104     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
105     RETURN (TRUE);
106   END AFTERREPORT;
107 
108 END BOM_CSTRDACR_XMLP_PKG;
109