PACKAGE BODY: APPS.BOM_CSTRWOCR_XMLP_PKG

Source

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