PACKAGE BODY: APPS.BOM_BOMRDODP_XMLP_PKG

Source

1 PACKAGE BODY BOM_BOMRDODP_XMLP_PKG AS
2 /* $Header: BOMRDODPB.pls 120.0 2007/12/24 09:42:54 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     IF P_OVERHEAD_FLAG = 2 AND P_RESOURCE_FLAG = 2 THEN
6       /*SRW.SET_MAXROW('Q_ovrhd'
7                     ,0)*/NULL;
8       /*SRW.SET_MAXROW('Q_res'
9                     ,0)*/NULL;
10       /*SRW.SET_MAXROW('Q_shift'
11                     ,0)*/NULL;
12       /*SRW.SET_MAXROW('Q_changes'
13                     ,0)*/NULL;
14       /*SRW.SET_MAXROW('Q_dept'
15                     ,0)*/NULL;
16     ELSE
17       IF P_OVERHEAD_FLAG = 1 AND P_RESOURCE_FLAG = 2 THEN
18         /*SRW.SET_MAXROW('Q_res'
19                       ,0)*/NULL;
20         /*SRW.SET_MAXROW('Q_shift'
21                       ,0)*/NULL;
22         /*SRW.SET_MAXROW('Q_changes'
23                       ,0)*/NULL;
24         /*SRW.SET_MAXROW('Q_dept_only'
25                       ,0)*/NULL;
26       ELSE
27         IF P_OVERHEAD_FLAG = 2 AND P_RESOURCE_FLAG = 1 THEN
28           /*SRW.SET_MAXROW('Q_ovrhd'
29                         ,0)*/NULL;
30           /*SRW.SET_MAXROW('Q_dept_only'
31                         ,0)*/NULL;
32         ELSE
33           /*SRW.SET_MAXROW('Q_dept_only'
34                         ,0)*/NULL;
35         END IF;
36       END IF;
37     END IF;
38     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
39     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
40     DECLARE
41       L_EXT_PRECISION NUMBER;
42       L_STD_PRECISION NUMBER;
43     BEGIN
44       SELECT
45         NVL(FC.EXTENDED_PRECISION
46            ,FC.PRECISION),
47         NVL(FC.PRECISION
48            ,0)
49       INTO L_EXT_PRECISION,L_STD_PRECISION
50       FROM
51         GL_SETS_OF_BOOKS GL,
52         FND_CURRENCIES FC,
53         ORG_ORGANIZATION_DEFINITIONS O
54       WHERE O.ORGANIZATION_ID = P_ORG_ID
55         AND O.SET_OF_BOOKS_ID = GL.SET_OF_BOOKS_ID
56         AND FC.CURRENCY_CODE = GL.CURRENCY_CODE;
57       P_EXT_PRECISION := L_EXT_PRECISION;
58       P_STD_PRECISION := L_STD_PRECISION;
59     END;
60     RETURN (TRUE);
61   END BEFOREREPORT;
62 
63   FUNCTION AFTERREPORT RETURN BOOLEAN IS
64   BEGIN
65     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
66     RETURN (TRUE);
67   END AFTERREPORT;
68 
69   FUNCTION SUBTITLEFORMULA(CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
70   BEGIN
71     BEGIN
72       IF P_OVERHEAD_FLAG = 2 AND P_RESOURCE_FLAG = 2 THEN
73         RETURN ('Departments Only');
74       ELSE
75         IF P_OVERHEAD_FLAG = 1 AND P_RESOURCE_FLAG = 2 THEN
76           RETURN ('Overhead Data (' || CURRENCY_CODE || ')');
77         ELSE
78           IF P_OVERHEAD_FLAG = 2 AND P_RESOURCE_FLAG = 1 THEN
79             RETURN ('Resource Data');
80           ELSE
81             IF P_OVERHEAD_FLAG = 1 AND P_RESOURCE_FLAG = 1 THEN
82               RETURN ('Resource and Overhead Data (' || CURRENCY_CODE || ')');
83             END IF;
84           END IF;
85         END IF;
86       END IF;
87     END;
88     RETURN NULL;
89   END SUBTITLEFORMULA;
90 
91   FUNCTION ROUND_AMOUNTFORMULA(RATE_OR_AMOUNT IN NUMBER) RETURN NUMBER IS
92   BEGIN
93     RETURN (ROUND(RATE_OR_AMOUNT
94                 ,P_QTY_PRECISION));
95   END ROUND_AMOUNTFORMULA;
96 
97 END BOM_BOMRDODP_XMLP_PKG;
98