PACKAGE BODY: APPS.BOM_BOMRDORS_XMLP_PKG

Source

1 PACKAGE BODY BOM_BOMRDORS_XMLP_PKG AS
2 /* $Header: BOMRDORSB.pls 120.0 2007/12/24 09:43:33 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     IF P_REPORT_TYPE = 1 THEN
6       /*SRW.SET_MAXROW('Q_Res_Only'
7                     ,0)*/NULL;
8     ELSE
9       /*SRW.SET_MAXROW('Q_Res_Costs'
10                     ,0)*/NULL;
11       /*SRW.SET_MAXROW('Q_Ovrhds'
12                     ,0)*/NULL;
13       /*SRW.SET_MAXROW('Q_Res'
14                     ,0)*/NULL;
15     END IF;
16     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
17     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
18     /*SRW.USER_EXIT('FND FLEXSQL CODE="MSTK" NUM=":P_STRUCT_NUM"
19                                  APPL_SHORT_NAME="INV" OUTPUT=":P_FLEXDATA"
20                                  MODE="SELECT" DISPLAY="ALL" TABLEALIAS="msi"')*/NULL;
21     DECLARE
22       L_EXT_PRECISION NUMBER;
23       L_STD_PRECISION NUMBER;
24     BEGIN
25       SELECT
26         NVL(FC.EXTENDED_PRECISION
27            ,FC.PRECISION),
28         NVL(FC.PRECISION
29            ,0)
30       INTO L_EXT_PRECISION,L_STD_PRECISION
31       FROM
32         GL_SETS_OF_BOOKS GL,
33         FND_CURRENCIES FC,
34         ORG_ORGANIZATION_DEFINITIONS O
35       WHERE O.ORGANIZATION_ID = P_ORG_ID
36         AND O.SET_OF_BOOKS_ID = GL.SET_OF_BOOKS_ID
37         AND FC.CURRENCY_CODE = GL.CURRENCY_CODE;
38       P_EXT_PRECISION := L_EXT_PRECISION;
39       P_STD_PRECISION := L_STD_PRECISION;
40     END;
41     RETURN (TRUE);
42   END BEFOREREPORT;
43 
44   FUNCTION AFTERREPORT RETURN BOOLEAN IS
45   BEGIN
46     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
47     RETURN (TRUE);
48   END AFTERREPORT;
49 
50   FUNCTION SUBTITLEFORMULA(CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
51   BEGIN
52     BEGIN
53       IF P_REPORT_TYPE = 1 THEN
54         RETURN ('Detail (' || CURRENCY_CODE || ')');
55       ELSE
56         RETURN ('Summary');
57       END IF;
58     END;
59     RETURN NULL;
60   END SUBTITLEFORMULA;
61 
62 END BOM_BOMRDORS_XMLP_PKG;
63