PACKAGE BODY: APPS.BOM_BOMRDRTG_XMLP_PKG

Source

1 PACKAGE BODY BOM_BOMRDRTG_XMLP_PKG AS
2 /* $Header: BOMRDRTGB.pls 120.1 2008/01/06 10:09:37 nchinnam noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     DECLARE
6       ORG_NAME VARCHAR2(60);
7       DISPLAY_OPTION VARCHAR2(80);
8       ALT_OPTION VARCHAR2(80);
9       RPT_SELECTION VARCHAR2(80);
10       DETAIL VARCHAR2(80);
11       SPECIFIC_ITEM VARCHAR2(80);
12       CAT_SET_NAME VARCHAR2(30);
13       CURRENCY_CODE VARCHAR2(15);
14       DTL_SUM_CHAR VARCHAR2(80);
15       ITEM_ID_NULL EXCEPTION;
16     BEGIN
17       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
18       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
19       IF (P_RPT_SELECTION = 1) AND (P_ITEM IS NULL) THEN
20         FND_MESSAGE.SET_NAME('null'
21                             ,'MFG_REQUIRED_VALUE');
22         FND_MESSAGE.SET_TOKEN('ENTITY'
23                              ,'specific item');
24         P_MSG_BUF := FND_MESSAGE.GET;
25         /*SRW.MESSAGE('999'
26                    ,P_MSG_BUF)*/NULL;
27         RAISE ITEM_ID_NULL;
28       END IF;
29       IF P_ITEM IS NOT NULL THEN
30         SELECT
31           ITEM_NUMBER
32         INTO SPECIFIC_ITEM
33         FROM
34           MTL_ITEM_FLEXFIELDS
35         WHERE ORGANIZATION_ID = P_ORG_ID
36           AND ITEM_ID = P_ITEM;
37       END IF;
38       IF P_EFF_DATE IS NULL THEN
39         P_EFF_DATE := TO_CHAR(SYSDATE
40                              ,'YYYY/MM/DD HH24:MI:SS');
41       END IF;
42       P_EFF_DATE1:=P_EFF_DATE;
43       SELECT
44         ORG.ORGANIZATION_NAME,
45         LU1.MEANING,
46         LU2.MEANING,
47         LU3.MEANING,
48         LU4.MEANING,
49         SETS.CATEGORY_SET_NAME,
50         BOOKS.CURRENCY_CODE,
51         LU5.MEANING
52       INTO ORG_NAME,DISPLAY_OPTION,ALT_OPTION,RPT_SELECTION,DETAIL,CAT_SET_NAME,CURRENCY_CODE,DTL_SUM_CHAR
53       FROM
54         ORG_ORGANIZATION_DEFINITIONS ORG,
55         MFG_LOOKUPS LU1,
56         MFG_LOOKUPS LU2,
57         MFG_LOOKUPS LU3,
58         MFG_LOOKUPS LU4,
59         MFG_LOOKUPS LU5,
60         MTL_CATEGORY_SETS SETS,
61         GL_SETS_OF_BOOKS BOOKS
62       WHERE ORG.ORGANIZATION_ID = P_ORG_ID
63         AND LU1.LOOKUP_CODE = P_DISPLAY_OPTION
64         AND LU1.LOOKUP_TYPE = 'BOM_INQUIRY_DISPLAY_TYPE'
65         AND LU2.LOOKUP_CODE = P_ALT_OPTION
66         AND LU2.LOOKUP_TYPE = 'MCG_AUTOLOAD_OPTION'
67         AND LU3.LOOKUP_CODE = P_RPT_SELECTION
68         AND LU3.LOOKUP_TYPE = 'BOM_SELECTION_TYPE'
69         AND LU4.LOOKUP_CODE = P_DETAIL
70         AND LU4.LOOKUP_TYPE = 'SYS_YES_NO'
71         AND SETS.CATEGORY_SET_ID = P_CAT_SET
72         AND ORG.SET_OF_BOOKS_ID = BOOKS.SET_OF_BOOKS_ID
73         AND LU5.LOOKUP_CODE = P_DETAIL
74         AND LU5.LOOKUP_TYPE = 'CST_RPT_DETAIL_OPTION';
75       P_ORG_NAME := ORG_NAME;
76       P_DISPLAY_OPTION_CHAR := DISPLAY_OPTION;
77       P_ALT_OPTION_CHAR := ALT_OPTION;
78       P_RPT_SELECTION_CHAR := RPT_SELECTION;
79       P_DETAIL_CHAR := DETAIL;
80       P_SPECIFIC_ITEM_FLEX := SPECIFIC_ITEM;
81       P_CAT_SET_NAME := CAT_SET_NAME;
82       P_CURRENCY_CODE := CURRENCY_CODE;
83       P_DTL_SUM_CHAR := DTL_SUM_CHAR;
84       IF P_DETAIL = 2 THEN
85         /*SRW.SET_MAXROW('Q_OP_RSC'
86                       ,0)*/NULL;
87       END IF;
88       IF P_RPT_SELECTION = 2 THEN
89         IF (P_ITEM_FROM IS NOT NULL) THEN
90           IF (P_ITEM_TO IS NOT NULL) THEN
91             NULL;
92           ELSE
93             NULL;
94           END IF;
95         ELSE
96           IF (P_ITEM_TO IS NOT NULL) THEN
97             NULL;
98           END IF;
99         END IF;
100         IF (P_CAT_FROM IS NOT NULL) THEN
101           IF (P_CAT_TO IS NOT NULL) THEN
102             NULL;
103           ELSE
104             NULL;
105           END IF;
106         ELSE
107           IF (P_CAT_TO IS NOT NULL) THEN
108             NULL;
109           END IF;
110         END IF;
111       END IF;
112     EXCEPTION
113       WHEN ITEM_ID_NULL THEN
114         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
115     END;
116     RETURN (TRUE);
117   END BEFOREREPORT;
118 
119   FUNCTION AFTERREPORT RETURN BOOLEAN IS
120   BEGIN
121     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
122     RETURN (TRUE);
123   END AFTERREPORT;
124 
125 END BOM_BOMRDRTG_XMLP_PKG;
126 
127 
128