[Home] [Help]
PACKAGE BODY: APPS.BOM_CSTRFICR_XMLP_PKG
Source
1 PACKAGE BODY BOM_CSTRFICR_XMLP_PKG AS
2 /* $Header: CSTRFICRB.pls 120.0 2007/12/24 09:59:05 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 cursor c1 is
5 SELECT fifst.id_flex_num
6 FROM fnd_id_flex_structures fifst
7 WHERE fifst.application_id = 401
8 AND fifst.id_flex_code = 'MSTK'
9 AND fifst.enabled_flag = 'Y'
10 AND fifst.freeze_flex_definition_flag = 'Y'
11 ORDER BY fifst.id_flex_num;
12
13 BEGIN
14 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
15 UNIQUE_ID1 := UNIQUE_ID;
16
17 open c1;
18 fetch c1 into pid_flex_num;
19 close c1;
20
21 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
22 /*SRW.MESSAGE('100'
23 ,TO_CHAR(SYSDATE
24 ,'"Before report trigger started at "Dy Mon DD HH:MI:SS YYYY'))*/NULL;
25 IF P_VIEW_COST <> 1 THEN
26 FND_MESSAGE.SET_NAME('null'
27 ,'null');
28 /*SRW.USER_EXIT('FND MESSAGE_DISPLAY')*/NULL;
29 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
30 END IF;
31 IF P_FROM_ITEM IS NULL AND P_TO_ITEM IS NULL THEN
32 P_WHERE_ITEM := '1 = 1';
33 ELSE
34 NULL;
35 END IF;
36 IF P_FROM_CAT IS NULL AND P_TO_CAT IS NULL THEN
37 P_WHERE_CAT := '1 = 1';
38 ELSE
39 NULL;
40 END IF;
41 DECLARE
42 L_REPORT_NAME VARCHAR2(50);
43 L_QRY_COLUMN1 VARCHAR2(50);
44 L_QRY_COLUMN2 VARCHAR2(50);
45 L_COLUMN1_HEADING VARCHAR2(50);
46 L_COLUMN2_HEADING VARCHAR2(50);
47 L_FLEX_COLUMN1_HEADING VARCHAR2(50);
48 BEGIN
49 SELECT
50 REPORT_TITLE,
51 COLUMN1,
52 COLUMN2,
53 COLUMN1_HEADING,
54 COLUMN2_HEADING
55 INTO L_REPORT_NAME,L_QRY_COLUMN1,L_QRY_COLUMN2,L_COLUMN1_HEADING,L_COLUMN2_HEADING
56 FROM
57 CST_REPORT_TYPES
58 WHERE UNIQUE_ID = UNIQUE_ID1;
59 REPORT_NAME := L_REPORT_NAME;
60 QRY_COLUMN1 := L_QRY_COLUMN1;
61 QRY_COLUMN2 := L_QRY_COLUMN2;
62 QRY_COLUMN1_HEADING := L_COLUMN1_HEADING;
63 QRY_COLUMN2_HEADING := L_COLUMN2_HEADING;
64 IF QRY_COLUMN1 IS NULL THEN
65 IF UNIQUE_ID1 = 5 THEN
66 QRY_COLUMN1 := 'CA_' || FLEX_COLUMN1;
67 ELSIF UNIQUE_ID1 = 11 THEN
68 QRY_COLUMN1 := 'BR_' || FLEX_COLUMN1;
69 END IF;
70 SELECT
71 END_USER_COLUMN_NAME
72 INTO L_FLEX_COLUMN1_HEADING
73 FROM
74 FND_DESCR_FLEX_COLUMN_USAGES FLX,
75 CST_REPORT_TYPES CRT
76 WHERE APPLICATION_ID = FLEXFIELD_APPLICATION_ID
77 AND FLX.DESCRIPTIVE_FLEXFIELD_NAME = CRT.DESCRIPTIVE_FLEXFIELD_NAME
78 AND UNIQUE_ID = UNIQUE_ID1
79 AND ENABLED_FLAG = 'Y'
80 AND APPLICATION_COLUMN_NAME = FLEX_COLUMN1;
81 QRY_COLUMN1_HEADING := L_FLEX_COLUMN1_HEADING;
82 END IF;
83 IF QRY_COLUMN2 IS NULL THEN
84 QRY_COLUMN2 := ''' ''';
85 END IF;
86 END;
87 /*SRW.MESSAGE('100'
88 ,TO_CHAR(SYSDATE
89 ,'"Before report trigger completed at "Dy MON DD HH:MI:SS YYYY'))*/NULL;
90 RETURN (TRUE);
91 END BEFOREREPORT;
92
93 FUNCTION AFTERREPORT RETURN BOOLEAN IS
94 BEGIN
95 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
96 RETURN (TRUE);
97 END AFTERREPORT;
98
99 FUNCTION DISP_CURRENCYFORMULA(CURR_CODE_SAVED IN VARCHAR2) RETURN VARCHAR2 IS
100 BEGIN
101 RETURN (REPORT_NAME || '(' || CURR_CODE_SAVED || ')');
102 END DISP_CURRENCYFORMULA;
103
104 FUNCTION ORDER_FUNC(C_FLEXPAD_ITEM IN VARCHAR2
105 ,C_FLEXPAD_CAT IN VARCHAR2) RETURN CHARACTER IS
106 TEMP VARCHAR2(2000);
107 BEGIN
108 /*SRW.REFERENCE(C_FLEXPAD_ITEM)*/NULL;
109 /*SRW.REFERENCE(C_FLEXPAD_CAT)*/NULL;
110 IF REPORT_SORT_OPT = 1 THEN
111 TEMP := C_FLEXPAD_ITEM || C_FLEXPAD_CAT;
112 ELSE
113 TEMP := C_FLEXPAD_CAT || C_FLEXPAD_ITEM;
114 END IF;
115 RETURN (TEMP);
116 END ORDER_FUNC;
117
118 FUNCTION C_FLEXPAD_ITEMFORMULA(C_FLEXFIELD_ITEM IN VARCHAR2
119 ,C_FLEXPAD_ITEM IN VARCHAR2) RETURN VARCHAR2 IS
120 BEGIN
121 /*SRW.REFERENCE(C_FLEXFIELD_ITEM)*/NULL;
122 RETURN (C_FLEXPAD_ITEM);
123 END C_FLEXPAD_ITEMFORMULA;
124
125 FUNCTION C_FLEXPAD_CATFORMULA(C_FLEXFIELD_CAT IN VARCHAR2
126 ,C_FLEXPAD_CAT IN VARCHAR2) RETURN VARCHAR2 IS
127 BEGIN
128 /*SRW.REFERENCE(C_FLEXFIELD_CAT)*/NULL;
129 RETURN (C_FLEXPAD_CAT);
130 END C_FLEXPAD_CATFORMULA;
131
132 END BOM_CSTRFICR_XMLP_PKG;
133