[Home] [Help]
PACKAGE BODY: APPS.BOM_CSTRUSTA_XMLP_PKG
Source
1 PACKAGE BODY BOM_CSTRUSTA_XMLP_PKG AS
2 /* $Header: CSTRUSTAB.pls 120.0 2007/12/24 10:23:04 dwkrishn noship $ */
3 FUNCTION ACC_ADJUSTMENTFORMULA(ACCOUNT_TOTAL IN NUMBER) RETURN NUMBER IS
4 BEGIN
5 RETURN (-(ACCOUNT_TOTAL));
6 END ACC_ADJUSTMENTFORMULA;
7
8 FUNCTION AFTERREPORT RETURN BOOLEAN IS
9 BEGIN
10 BEGIN
11 IF P_DEL_SNAPSHOT = 1 THEN
12 ROLLBACK;
13 DELETE FROM CST_STD_COST_ADJ_VALUES
14 WHERE COST_UPDATE_ID = P_UPDATE_ID
15 AND TRANSACTION_TYPE = 2;
16 COMMIT;
17 END IF;
18 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
19 /*SRW.MESSAGE(0
20 ,'BOM_CSTRUSTA_XMLP_PKG >> ' || TO_CHAR(SYSDATE
21 ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
22 EXCEPTION
23 WHEN OTHERS THEN
24 /*SRW.MESSAGE(999
25 ,SQLERRM)*/NULL;
26 END;
27 RETURN (TRUE);
28 END AFTERREPORT;
29
30 FUNCTION INTRANSIT_ACCT_DESCFORMULA(INTRANSIT_ACCT IN VARCHAR2
31 ,INTRANSIT_ACCT_SEG IN VARCHAR2
32 ,INTRANSIT_ACCT_DESC IN VARCHAR2) RETURN VARCHAR2 IS
33 BEGIN
34 /*SRW.REFERENCE(INTRANSIT_ACCT)*/NULL;
35 /*SRW.REFERENCE(INTRANSIT_ACCT_SEG)*/NULL;
36 RETURN (INTRANSIT_ACCT_DESC);
37 END INTRANSIT_ACCT_DESCFORMULA;
38
39 FUNCTION REP_ADJUSTMENTFORMULA(REP_INTRANSIT IN NUMBER) RETURN NUMBER IS
40 BEGIN
41 RETURN (-(REP_INTRANSIT));
42 END REP_ADJUSTMENTFORMULA;
43
44 FUNCTION ORG_ADJUSTMENTFORMULA(ORG_INTRANSIT IN NUMBER) RETURN NUMBER IS
45 BEGIN
46 RETURN (-ORG_INTRANSIT);
47 END ORG_ADJUSTMENTFORMULA;
48
49 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
50 BEGIN
51 BEGIN
52 IF P_RPT_ONLY = 1 THEN
53 SELECT
54 FC.CURRENCY_CODE,
55 NVL(FC.EXTENDED_PRECISION
56 ,FC.PRECISION),
57 NVL(FC.MINIMUM_ACCOUNTABLE_UNIT
58 ,POWER(10
59 ,NVL(-PRECISION
60 ,0))),
61 SOB.CHART_OF_ACCOUNTS_ID,
62 CAT.CATEGORY_SET_NAME,
63 CAT.CATEGORY_SET_ID,
64 CAT.STRUCTURE_ID,
65 O.ORGANIZATION_NAME ORGANIZATION,
66 CCT.COST_TYPE,
67 LU.MEANING
68 INTO P_CURRENCY_CODE,P_EXT_PREC,ROUND_UNIT,P_GL_NUM,P_CAT_SET_NAME,P_CATEGORY_SET,P_CAT_NUM,P_ORGANIZATION,P_COST_TYPE,P_ITEM_RANGE
69 FROM
70 FND_CURRENCIES FC,
71 GL_SETS_OF_BOOKS SOB,
72 ORG_ORGANIZATION_DEFINITIONS O,
73 MTL_CATEGORY_SETS CAT,
74 MTL_DEFAULT_CATEGORY_SETS DCAT,
75 CST_COST_TYPES CCT,
76 MFG_LOOKUPS LU
77 WHERE O.ORGANIZATION_ID = P_ORG_ID
78 AND O.SET_OF_BOOKS_ID = SOB.SET_OF_BOOKS_ID
79 AND SOB.CURRENCY_CODE = FC.CURRENCY_CODE
80 AND FC.ENABLED_FLAG = 'Y'
81 AND DCAT.FUNCTIONAL_AREA_ID = 5
82 AND CAT.CATEGORY_SET_ID = DECODE(P_RANGE_OPTION
83 ,5
84 ,P_CATEGORY_SET
85 ,DCAT.CATEGORY_SET_ID)
86 AND CCT.COST_TYPE_ID = P_COST_TYPE_ID
87 AND LU.LOOKUP_TYPE = 'CST_ITEM_RANGE'
88 AND LU.LOOKUP_CODE = P_RANGE_OPTION;
89 ELSE
90 SELECT
91 FC.CURRENCY_CODE,
92 NVL(FC.EXTENDED_PRECISION
93 ,FC.PRECISION),
94 NVL(FC.MINIMUM_ACCOUNTABLE_UNIT
95 ,POWER(10
96 ,NVL(-PRECISION
97 ,0))),
98 SOB.CHART_OF_ACCOUNTS_ID,
99 CAT.CATEGORY_SET_NAME,
100 CAT.CATEGORY_SET_ID,
101 CAT.STRUCTURE_ID,
102 O.ORGANIZATION_NAME,
103 C.RANGE_OPTION,
104 LU.MEANING,
105 C.ITEM_RANGE_LOW,
106 C.ITEM_RANGE_HIGH,
107 C.SINGLE_ITEM,
108 C.CATEGORY_ID,
109 C.INV_ADJUSTMENT_ACCOUNT,
110 C.UPDATE_DATE,
111 C.DESCRIPTION,
112 CCT.COST_TYPE
113 INTO P_CURRENCY_CODE,P_EXT_PREC,ROUND_UNIT,P_GL_NUM,P_CAT_SET_NAME,P_CATEGORY_SET,P_CAT_NUM,P_ORGANIZATION,P_RANGE_OPTION,P_ITEM_RANGE,P_ITEM_FROM,P_ITEM_TO,P_ITEM,P_CAT,P_ADJ_ACCOUNT,P_UPDATE_DATE,P_UPDATE_DESC,P_COST_TYPE
114 FROM
115 FND_CURRENCIES FC,
116 GL_SETS_OF_BOOKS SOB,
117 ORG_ORGANIZATION_DEFINITIONS O,
118 MTL_CATEGORY_SETS CAT,
119 MTL_DEFAULT_CATEGORY_SETS DCAT,
120 MFG_LOOKUPS LU,
121 CST_COST_TYPES CCT,
122 CST_COST_UPDATES C
123 WHERE C.COST_UPDATE_ID = P_UPDATE_ID
124 AND O.ORGANIZATION_ID = C.ORGANIZATION_ID
125 AND O.SET_OF_BOOKS_ID = SOB.SET_OF_BOOKS_ID
126 AND SOB.CURRENCY_CODE = FC.CURRENCY_CODE
127 AND FC.ENABLED_FLAG = 'Y'
128 AND DCAT.FUNCTIONAL_AREA_ID = 5
129 AND CAT.CATEGORY_SET_ID = NVL(C.CATEGORY_SET_ID
130 ,DCAT.CATEGORY_SET_ID)
131 AND CCT.COST_TYPE_ID = C.COST_TYPE_ID
132 AND LU.LOOKUP_TYPE = 'CST_ITEM_RANGE'
133 AND LU.LOOKUP_CODE = C.RANGE_OPTION;
134 END IF;
135 IF P_RANGE_OPTION <> 2 THEN
136 /*SRW.SET_MAXROW('Q_ITEM'
137 ,0)*/NULL;
138 END IF;
139 IF P_RANGE_OPTION <> 5 THEN
140 /*SRW.SET_MAXROW('Q_CAT'
141 ,0)*/NULL;
142 END IF;
143 BEGIN
144 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
145 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
146 EXCEPTION
147 WHEN OTHERS THEN
148 /*SRW.MESSAGE(999
149 ,'FND SRWINIT >X')*/NULL;
150 RAISE;
151 END;
152 BEGIN
153 NULL;
154 EXCEPTION
155 WHEN OTHERS THEN
156 /*SRW.MESSAGE(999
157 ,'FND FLEXSQL(MCAT) >X')*/NULL;
158 RAISE;
159 END;
160 BEGIN
161 NULL;
162 EXCEPTION
163 WHEN OTHERS THEN
164 /*SRW.MESSAGE(999
165 ,'FND FLEXSQL(MSTK) >X')*/NULL;
166 RAISE;
167 END;
168 BEGIN
169 NULL;
170 EXCEPTION
171 WHEN OTHERS THEN
172 /*SRW.MESSAGE(999
173 ,'FND FLEXSQL(GL#) >X')*/NULL;
174 RAISE;
175 END;
176 /*SRW.MESSAGE(0
177 ,'BOM_CSTRUSTA_XMLP_PKG << ' || TO_CHAR(SYSDATE
178 ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
179 EXCEPTION
180 WHEN OTHERS THEN
181 /*SRW.MESSAGE(999
182 ,SQLERRM)*/NULL;
183 /*SRW.MESSAGE(999
184 ,'BOM_CSTRUSTA_XMLP_PKG >X ' || TO_CHAR(SYSDATE
185 ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
186 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
187 END;
188 RETURN (TRUE);
189 END BEFOREREPORT;
190
191 FUNCTION INTRANSIT_ACCT_PSEGFORMULA(INTRANSIT_ACCT IN VARCHAR2
192 ,INTRANSIT_ACCT_SEG IN VARCHAR2
193 ,INTRANSIT_ACCT_PSEG IN VARCHAR2) RETURN VARCHAR2 IS
194 BEGIN
195 /*SRW.REFERENCE(INTRANSIT_ACCT)*/NULL;
196 /*SRW.REFERENCE(INTRANSIT_ACCT_SEG)*/NULL;
197 RETURN (INTRANSIT_ACCT_PSEG);
198 END INTRANSIT_ACCT_PSEGFORMULA;
199
200 FUNCTION ITEM_PSEGFORMULA(ITEM_NUMBER IN VARCHAR2
201 ,ITEM_SEGMENT IN VARCHAR2
202 ,ITEM_PSEG IN VARCHAR2) RETURN VARCHAR2 IS
203 BEGIN
204 /*SRW.REFERENCE(ITEM_NUMBER)*/NULL;
205 /*SRW.REFERENCE(ITEM_SEGMENT)*/NULL;
206 RETURN (ITEM_PSEG);
207 END ITEM_PSEGFORMULA;
208
209 END BOM_CSTRUSTA_XMLP_PKG;
210