[Home] [Help]
PACKAGE BODY: APPS.BOM_CSTGILEV_XMLP_PKG
Source
1 PACKAGE BODY BOM_CSTGILEV_XMLP_PKG AS
2 /* $Header: CSTGILEVB.pls 120.1 2008/01/02 15:03:44 dwkrishn noship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
6 RETURN (TRUE);
7 END AFTERREPORT;
8
9 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
10 BEGIN
11 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
12 P_VALUE_PRECISION_1 :=nvl(P_VALUE_PRECISION,2);
13 P_QUANTITY_PRECISION_1:=nvl(P_QUANTITY_PRECISION,2);
14 P_COST_PRECISION_1:=nvl(P_COST_PRECISION,2);
15 qty_precision1:=bom_common_xmlp_pkg.get_precision(P_VALUE_PRECISION_1);
16 qty_precision2:=bom_common_xmlp_pkg.get_precision(P_QUANTITY_PRECISION_1);
17 qty_precision3:=bom_common_xmlp_pkg.get_precision(P_COST_PRECISION_1);
18 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
19 DECLARE
20 X_RETCODE NUMBER;
21 X_ERRBUFF VARCHAR2(240);
22 X_ERRCODE VARCHAR2(240);
23 BEGIN
24 CST_MGD_LIFO_COST_PROCESSOR.POPULATE_TEMP_TABLE(P_LEGAL_ENTITY_ID
25 ,P_PAC_PERIOD_ID
26 ,P_COST_GROUP_ID
27 ,P_COST_TYPE_ID
28 ,P_DETAILED_REPORT
29 ,P_ITEM_CODE_FROM
30 ,P_ITEM_CODE_TO
31 ,X_RETCODE
32 ,X_ERRBUFF
33 ,X_ERRCODE);
34 END;
35 SELECT
36 XFI.NAME,
37 GSOB.CURRENCY_CODE
38 INTO H_LEGAL_ENTITY,H_CURRENCY
39 FROM
40 XLE_FIRSTPARTY_INFORMATION_V XFI,
41 CST_LE_COST_TYPES CLCT,
42 GL_SETS_OF_BOOKS GSOB
43 WHERE XFI.LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID
44 AND CLCT.LEGAL_ENTITY = XFI.LEGAL_ENTITY_ID
45 AND CLCT.COST_TYPE_ID = P_COST_TYPE_ID
46 AND CLCT.SET_OF_BOOKS_ID = GSOB.SET_OF_BOOKS_ID;
47 SELECT
48 COST_GROUP,
49 DESCRIPTION
50 INTO H_COST_GROUP,H_COST_GROUP_DESC
51 FROM
52 CST_COST_GROUPS
53 WHERE COST_GROUP_ID = P_COST_GROUP_ID;
54 SELECT
55 COST_TYPE,
56 DESCRIPTION
57 INTO H_COST_TYPE,H_COST_TYPE_DESC
58 FROM
59 CST_COST_TYPES
60 WHERE COST_TYPE_ID = P_COST_TYPE_ID;
61 SELECT
62 PERIOD_NAME,
63 PERIOD_YEAR
64 INTO H_PERIOD,H_FISCAL_YEAR
65 FROM
66 CST_PAC_PERIODS
67 WHERE PAC_PERIOD_ID = P_PAC_PERIOD_ID;
68 SELECT
69 MAX(TO_CHAR(PROCESS_UPTO_DATE
70 ,' DD-MON-RR'))
71 INTO H_UPTO_DATE
72 FROM
73 CST_PAC_PROCESS_PHASES
74 WHERE COST_GROUP_ID = P_COST_GROUP_ID
75 AND PAC_PERIOD_ID = P_PAC_PERIOD_ID;
76 IF (P_DETAILED_REPORT = 'Y') THEN
77 H_REPORT_SUBTITLE := P_DETAILED_REPORT_SUBTITLE || ' ' || '(' || H_CURRENCY || ')';
78 ELSE
79 H_REPORT_SUBTITLE := P_SUMMARIZED_REPORT_SUBTITLE || ' ' || '(' || H_CURRENCY || ')';
80 END IF;
81 RETURN TRUE;
82 END BEFOREREPORT;
83
84 /* PROCEDURE FORMAT_QUANTITY(P_PRECISION IN NUMBER) IS
85 BEGIN
86 SRW.ATTR.MASK := SRW.FORMATMASK_ATTR;
87 IF P_PRECISION = 0 THEN
88 SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0';
89 ELSIF P_PRECISION = 1 THEN
90 SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0.0';
91 ELSIF P_PRECISION = 3 THEN
92 SRW.ATTR.FORMATMASK := '-NN,NNN,NNN,NN0.000';
93 ELSIF P_PRECISION = 4 THEN
94 SRW.ATTR.FORMATMASK := '-N,NNN,NNN,NN0.0000';
95 ELSIF P_PRECISION = 5 THEN
96 SRW.ATTR.FORMATMASK := '-NNN,NNN,NN0.00000';
97 ELSIF P_PRECISION = 6 THEN
98 SRW.ATTR.FORMATMASK := '-NN,NNN,NN0.000000';
99 ELSIF P_PRECISION = 7 THEN
100 SRW.ATTR.FORMATMASK := '-NNNNNNNNNNN0';
101 ELSIF P_PRECISION = 8 THEN
102 SRW.ATTR.FORMATMASK := '-NNNNNNNNNNN0.0';
103 ELSIF P_PRECISION = 9 THEN
104 SRW.ATTR.FORMATMASK := '-NNNNNNNNNN0.00';
105 ELSIF P_PRECISION = 10 THEN
106 SRW.ATTR.FORMATMASK := '-NNNNNNNNNN0.000';
107 ELSIF P_PRECISION = 11 THEN
108 SRW.ATTR.FORMATMASK := '-NNNNNNNNN0.0000';
109 ELSIF P_PRECISION = 12 THEN
110 SRW.ATTR.FORMATMASK := '-NNNNNNNN0.00000';
111 ELSIF P_PRECISION = 13 THEN
112 SRW.ATTR.FORMATMASK := '-NNNNNNN0.000000';
113 ELSE
114 SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0.00';
115 END IF;
116 SRW.SET_ATTR(0
117 ,SRW.ATTR);
118 END FORMAT_QUANTITY;
119 */
120 FUNCTION H_LEGAL_ENTITY_P RETURN VARCHAR2 IS
121 BEGIN
122 RETURN H_LEGAL_ENTITY;
123 END H_LEGAL_ENTITY_P;
124
125 FUNCTION H_COST_GROUP_P RETURN VARCHAR2 IS
126 BEGIN
127 RETURN H_COST_GROUP;
128 END H_COST_GROUP_P;
129
130 FUNCTION H_COST_TYPE_P RETURN VARCHAR2 IS
131 BEGIN
132 RETURN H_COST_TYPE;
133 END H_COST_TYPE_P;
134
135 FUNCTION H_PERIOD_P RETURN VARCHAR2 IS
136 BEGIN
137 RETURN H_PERIOD;
138 END H_PERIOD_P;
139
140 FUNCTION H_CURRENCY_P RETURN VARCHAR2 IS
141 BEGIN
142 RETURN H_CURRENCY;
143 END H_CURRENCY_P;
144
145 FUNCTION H_REPORT_SUBTITLE_P RETURN VARCHAR2 IS
146 BEGIN
147 RETURN H_REPORT_SUBTITLE;
148 END H_REPORT_SUBTITLE_P;
149
150 FUNCTION H_COST_GROUP_DESC_P RETURN VARCHAR2 IS
151 BEGIN
152 RETURN H_COST_GROUP_DESC;
153 END H_COST_GROUP_DESC_P;
154
155 FUNCTION H_COST_TYPE_DESC_P RETURN VARCHAR2 IS
156 BEGIN
157 RETURN H_COST_TYPE_DESC;
158 END H_COST_TYPE_DESC_P;
159
160 FUNCTION H_FISCAL_YEAR_P RETURN NUMBER IS
161 BEGIN
162 RETURN H_FISCAL_YEAR;
163 END H_FISCAL_YEAR_P;
164
165 FUNCTION H_UPTO_DATE_P RETURN VARCHAR2 IS
166 BEGIN
167 RETURN H_UPTO_DATE;
168 END H_UPTO_DATE_P;
169
170 END BOM_CSTGILEV_XMLP_PKG;
171