[Home] [Help]
PACKAGE BODY: APPS.BOM_CSTRLIVR_XMLP_PKG
Source
1 PACKAGE BODY BOM_CSTRLIVR_XMLP_PKG AS
2 /* $Header: CSTRLIVRB.pls 120.0 2007/12/24 10:06:25 dwkrishn noship $ */
3 FUNCTION CF_ORDERFORMULA(CATEGORY IN VARCHAR2) RETURN CHAR IS
4 BEGIN
5 IF (P_SORT_OPTION = 1) THEN
6 RETURN NULL;
7 ELSE
8 RETURN CATEGORY;
9 END IF;
10 END CF_ORDERFORMULA;
11
12 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
13 L_FCN_CURRENCY VARCHAR2(15);
14 SQL_STMT_NUM VARCHAR2(5);
15 FIFO_ORG_COUNT NUMBER;
16 BEGIN
17 SQL_STMT_NUM := '-10: ';
18 PV_EXCHANGE_RATE := FND_NUMBER.CANONICAL_TO_NUMBER(P_EXCHANGE_RATE_CHAR);
19 SQL_STMT_NUM := '0: ';
20 SELECT
21 COUNT(*)
22 INTO FIFO_ORG_COUNT
23 FROM
24 MTL_PARAMETERS
25 WHERE ORGANIZATION_ID = P_ORG_ID
26 AND PRIMARY_COST_METHOD IN ( 5 , 6 );
27 IF FIFO_ORG_COUNT < 1 THEN
28 FND_MESSAGE.SET_NAME('BOM'
29 ,'CST_FIFO_LIFO_ORG_REPORT_ONLY');
30 /*SRW.MESSAGE(24200
31 ,FND_MESSAGE.GET)*/NULL;
32 RETURN FALSE;
33 END IF;
34 SQL_STMT_NUM := '10: ';
35 IF P_VIEW_COST <> 1 THEN
36 FND_MESSAGE.SET_NAME('null'
37 ,'null');
38 /*SRW.USER_EXIT('FND MESSAGE_DISPLAY')*/NULL;
39 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
40 END IF;
41 SQL_STMT_NUM := '15: ';
42 IF P_ZERO_COST_LAYERS = 2 THEN
43 P_ZERO_COST_WHERE := 'CIL.LAYER_COST <>0';
44 END IF;
45 IF P_ZERO_QTY_LAYERS = 2 THEN
46 P_ZERO_QTY_WHERE := 'CIL.LAYER_QUANTITY <>0';
47 END IF;
48 SQL_STMT_NUM := '20: ';
49 SQL_STMT_NUM := '30: ';
50 SELECT
51 OOD.ORGANIZATION_NAME,
52 SOB.CURRENCY_CODE,
53 NVL(FC.MINIMUM_ACCOUNTABLE_UNIT
54 ,POWER(10
55 ,NVL(-FC.PRECISION
56 ,0))),
57 MCS.CATEGORY_SET_NAME,
58 LOOKUP1.MEANING,
59 LOOKUP2.MEANING,
60 LOOKUP3.MEANING,
61 LOOKUP4.MEANING,
62 LOOKUP5.MEANING,
63 NVL(EXTENDED_PRECISION
64 ,PRECISION)
65 INTO PV_ORGANIZATION_NAME,L_FCN_CURRENCY,PV_ROUND_UNIT,PV_CATEGORY_SET_NAME,PV_SORT_OPTION,PV_COST_GROUP_OPTION,PV_ZERO_COST_LAYER,PV_REPORT_OPTION,PV_ZERO_QTY_LAYER,P_EXT_PREC
66 FROM
67 ORG_ORGANIZATION_DEFINITIONS OOD,
68 GL_SETS_OF_BOOKS SOB,
69 FND_CURRENCIES FC,
70 MTL_CATEGORY_SETS MCS,
71 MFG_LOOKUPS LOOKUP1,
72 MFG_LOOKUPS LOOKUP2,
73 MFG_LOOKUPS LOOKUP3,
74 MFG_LOOKUPS LOOKUP4,
75 MFG_LOOKUPS LOOKUP5
76 WHERE OOD.ORGANIZATION_ID = P_ORG_ID
77 AND SOB.SET_OF_BOOKS_ID = OOD.SET_OF_BOOKS_ID
78 AND FC.CURRENCY_CODE = P_CURRENCY_CODE
79 AND MCS.CATEGORY_SET_ID = P_CATEGORY_SET
80 AND LOOKUP1.LOOKUP_TYPE = 'CST_ITEM_REPORT_SORT'
81 AND LOOKUP1.LOOKUP_CODE = P_SORT_OPTION
82 AND LOOKUP2.LOOKUP_TYPE = 'CST_SRS_COST_GROUP_OPTION'
83 AND LOOKUP2.LOOKUP_CODE = P_COST_GROUP_OPTION_ID
84 AND LOOKUP3.LOOKUP_TYPE = 'SYS_YES_NO'
85 AND LOOKUP3.LOOKUP_CODE = P_ZERO_COST_LAYERS
86 AND LOOKUP4.LOOKUP_TYPE = 'CST_BICR_DETAIL_OPTION'
87 AND LOOKUP4.LOOKUP_CODE = P_RPT_OPTION
88 AND LOOKUP5.LOOKUP_TYPE = 'SYS_YES_NO'
89 AND LOOKUP5.LOOKUP_CODE = P_ZERO_QTY_LAYERS;
90 SQL_STMT_NUM := '40: ';
91 IF P_COST_GROUP_OPTION_ID = 2 THEN
92 SELECT
93 COST_GROUP
94 INTO PV_SPECIFIC_COST_GROUP
95 FROM
96 CST_COST_GROUPS
97 WHERE COST_GROUP_ID = P_COST_GROUP_ID;
98 END IF;
99 SQL_STMT_NUM := '50: ';
100 IF L_FCN_CURRENCY = P_CURRENCY_CODE THEN
101 PV_CURRENCY_CODE := P_CURRENCY_CODE;
102 ELSE
103 PV_CURRENCY_CODE := P_CURRENCY_CODE || ' @ ' || TO_CHAR(ROUND(1 / PV_EXCHANGE_RATE
104 ,5)) || ' ' || L_FCN_CURRENCY;
105 END IF;
106 SQL_STMT_NUM := '60: ';
107 BEGIN
108 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
109 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
110 EXCEPTION
111 WHEN OTHERS THEN
112 /*SRW.MESSAGE(999
113 ,'FND SRWINIT >X')*/NULL;
114 RAISE;
115 END;
116 SQL_STMT_NUM := '70: ';
117 BEGIN
118 SQL_STMT_NUM := '71: ';
119 SQL_STMT_NUM := '72: ';
120 EXCEPTION
121 WHEN OTHERS THEN
122 /*SRW.MESSAGE(999
123 ,'FND FLEXSQL(MCAT) >X')*/NULL;
124 RAISE;
125 END;
126 SQL_STMT_NUM := '80: ';
127 BEGIN
128 SQL_STMT_NUM := '81: ';
129 SQL_STMT_NUM := '82: ';
130 EXCEPTION
131 WHEN OTHERS THEN
132 /*SRW.MESSAGE(999
133 ,'FND FLEXSQL(MSTK) >X')*/NULL;
134 RAISE;
135 END;
136 SQL_STMT_NUM := '90: ';
137 /*SRW.MESSAGE(0
138 ,'CSTRAIVR << ' || TO_CHAR(SYSDATE
139 ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
140 RETURN (TRUE);
141 EXCEPTION
142 WHEN OTHERS THEN
143 /*SRW.MESSAGE(999
144 ,SQL_STMT_NUM || SQLERRM)*/NULL;
145 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
146 END BEFOREREPORT;
147
148 FUNCTION AFTERREPORT RETURN BOOLEAN IS
149 BEGIN
150 RETURN (TRUE);
151 END AFTERREPORT;
152
153 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
154 BEGIN
155 RETURN (TRUE);
156 END BEFOREPFORM;
157
158 FUNCTION AFTERPFORM RETURN BOOLEAN IS
159 BEGIN
160 RETURN (TRUE);
161 END AFTERPFORM;
162
163 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
164 BEGIN
165 RETURN (TRUE);
166 END BETWEENPAGE;
167
168 FUNCTION P_ITEM_WHEREVALIDTRIGGER RETURN BOOLEAN IS
169 BEGIN
170 RETURN (TRUE);
171 END P_ITEM_WHEREVALIDTRIGGER;
172
173 END BOM_CSTRLIVR_XMLP_PKG;
174