1 PACKAGE BODY GMF_CMR05USR_XMLP_PKG AS
2 /* $Header: CMR05USRB.pls 120.0 2007/12/24 13:19:11 nchinnam noship $ */
3 FUNCTION ITEMCFFORMULA RETURN VARCHAR2 IS
4 BEGIN
5 IF FROM_ITEM IS NOT NULL AND TO_ITEM IS NOT NULL THEN
6 ITEMCP := ' and iim.item_number >= ''' || FROM_ITEM || ''' and iim.item_number <= ''' || TO_ITEM || '''';
7 ELSIF FROM_ITEM IS NULL AND TO_ITEM IS NULL THEN
8 ITEMCP := ' ';
9 FROM_ITEM := SY_ALL;
10 TO_ITEM := SY_ALL;
11 ELSIF FROM_ITEM IS NOT NULL AND TO_ITEM IS NULL THEN
12 ITEMCP := ' and iim.item_number >= ''' || FROM_ITEM || '''';
13 TO_ITEM := SY_ALL;
14 ELSIF FROM_ITEM IS NULL AND TO_ITEM IS NOT NULL THEN
15 ITEMCP := ' and iim.item_number <= ''' || TO_ITEM || '''';
16 FROM_ITEM := SY_ALL;
17 END IF;
18 RETURN NULL;
19 END ITEMCFFORMULA;
20
21 FUNCTION ITEMCPFORMULA(ITEMCF IN VARCHAR2) RETURN VARCHAR2 IS
22 BEGIN
23 RETURN NULL;
24 END ITEMCPFORMULA;
25
26 FUNCTION ORGANIZATIONCPFORMULA(ORGANIZATIONCF IN VARCHAR2) RETURN VARCHAR2 IS
27 BEGIN
28 RETURN NULL;
29 END ORGANIZATIONCPFORMULA;
30
31 FUNCTION ORGANIZATIONCFFORMULA RETURN VARCHAR2 IS
32 BEGIN
33 IF FROM_ORGN IS NOT NULL AND TO_ORGN IS NOT NULL THEN
34 ORGANIZATIONCP := ' and mp.organization_code >= ''' || FROM_ORGN || ''' and mp.organization_code <= ''' || TO_ORGN || '''';
35 ELSIF FROM_ORGN IS NULL AND TO_ORGN IS NULL THEN
36 ORGANIZATIONCP := ' ';
37 FROM_ORGN := SY_ALL;
38 TO_ORGN := SY_ALL;
39 ELSIF FROM_ORGN IS NOT NULL AND TO_ORGN IS NULL THEN
40 ORGANIZATIONCP := ' and mp.organization_code >= ''' || FROM_ORGN || '''';
41 TO_ORGN := SY_ALL;
42 ELSIF FROM_ORGN IS NULL AND TO_ORGN IS NOT NULL THEN
43 ORGANIZATIONCP := ' and mp.organization_code <= ''' || TO_ORGN || '''';
44 FROM_ORGN := SY_ALL;
45 END IF;
46 RETURN NULL;
47 END ORGANIZATIONCFFORMULA;
48
49 FUNCTION COSTCATEGORYCFFORMULA RETURN VARCHAR2 IS
50 BEGIN
51 IF FROM_COST_CATEGORY IS NOT NULL AND TO_COST_CATEGORY IS NOT NULL THEN
52 COSTCATEGORYCP := ' and NVL(mckfv.concatenated_segments,'' '') >= ''' || FROM_COST_CATEGORY || ''' and NVL(mckfv.concatenated_segments,'' '') <= ''' || TO_COST_CATEGORY || '''';
53 ELSIF FROM_COST_CATEGORY IS NULL AND TO_COST_CATEGORY IS NULL THEN
54 COSTCATEGORYCP := ' ';
55 FROM_COST_CATEGORY := SY_ALL;
56 TO_COST_CATEGORY := SY_ALL;
57 ELSIF FROM_COST_CATEGORY IS NOT NULL AND TO_COST_CATEGORY IS NULL THEN
58 COSTCATEGORYCP := ' and NVL(mckfv.concatenated_segments,'' '') >= ''' || FROM_COST_CATEGORY || '''';
59 TO_COST_CATEGORY := SY_ALL;
60 ELSIF FROM_COST_CATEGORY IS NULL AND TO_COST_CATEGORY IS NOT NULL THEN
61 COSTCATEGORYCP := ' and NVL(mckfv.concatenated_segments,'' '') <= ''' || TO_COST_CATEGORY || '''';
62 FROM_COST_CATEGORY := SY_ALL;
63 END IF;
64 RETURN NULL;
65 END COSTCATEGORYCFFORMULA;
66
67 FUNCTION COSTCATEGORYCPFORMULA(COSTCATEGORYCF IN VARCHAR2) RETURN VARCHAR2 IS
68 BEGIN
69 RETURN NULL;
70 END COSTCATEGORYCPFORMULA;
71
72 FUNCTION AFTERPFORM RETURN BOOLEAN IS
73 BEGIN
74 FROM_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(P_FROM_ORGANIZATION_ID);
75 TO_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(P_TO_ORGANIZATION_ID);
76 FROM_ITEM := GMF_UTILITIES_GRP.GET_ITEM_NUMBER(P_FROM_ITEM_ID
77 ,P_FROM_ORGANIZATION_ID);
78 TO_ITEM := GMF_UTILITIES_GRP.GET_ITEM_NUMBER(P_TO_ITEM_ID
79 ,P_TO_ORGANIZATION_ID);
80 FROM_COST_CATEGORY := GMF_UTILITIES_GRP.GET_COST_CATEGORY(P_FROM_COST_CATEGORY_ID);
81 TO_COST_CATEGORY := GMF_UTILITIES_GRP.GET_COST_CATEGORY(P_TO_COST_CATEGORY_ID);
82 IF FROM_ORGN > TO_ORGN THEN
83 FND_MESSAGE.SET_NAME('GMF'
84 ,'CM_FRMWHSECODE_TOWHSECODE');
85 RAISE_APPLICATION_ERROR(-20101,null);
86 END IF;
87 IF FROM_ITEM > TO_ITEM THEN
88 FND_MESSAGE.SET_NAME('GMF'
89 ,'CM_FRMITEM_LTE_TOITM');
90 RAISE_APPLICATION_ERROR(-20101,null);
91 END IF;
92 IF FROM_COST_CATEGORY > TO_COST_CATEGORY THEN
93 FND_MESSAGE.SET_NAME('GMF'
94 ,'CM_FRMITEM_CLS_LTE_TOITEM_CLS');
95 RAISE_APPLICATION_ERROR(-20101,null);
96 END IF;
97 RETURN (TRUE);
98 END AFTERPFORM;
99
100 FUNCTION BASE_CURRCFFORMULA RETURN VARCHAR2 IS
101 BCURR VARCHAR2(15);
102 BEGIN
103 SELECT
104 BASE_CURRENCY_CODE
105 INTO BCURR
106 FROM
107 GMF_FISCAL_POLICIES
108 WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID;
109 RETURN (BCURR);
110 END BASE_CURRCFFORMULA;
111
112 PROCEDURE GMF_CMR05USR_XMLP_PKG_HEADER IS
113 BEGIN
114 NULL;
115 END GMF_CMR05USR_XMLP_PKG_HEADER;
116
117 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
118 L_BASE_CURRENCY_CODE GMF_FISCAL_POLICIES.BASE_CURRENCY_CODE%TYPE;
119 BEGIN
120 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
121 SELECT
122 BASE_CURRENCY_CODE
123 INTO L_BASE_CURRENCY_CODE
124 FROM
125 GMF_FISCAL_POLICIES
126 WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID;
127 IF ((P_CURRENCY_CODE IS NULL) OR (P_CURRENCY_CODE = L_BASE_CURRENCY_CODE)) THEN
128 LP_CURRENCY_CODE := L_BASE_CURRENCY_CODE;
129 LP_EXCHANGE_RATE := 1;
130 ELSE
131 IF (P_EXCHANGE_RATE IS NULL) THEN
132 FND_MESSAGE.SET_NAME('GMF'
133 ,'GMF_SRS_EFC_NO_XCHG');
134 RAISE_APPLICATION_ERROR(-20101,null);
135 END IF;
136 END IF;
137 RETURN (TRUE);
138 END BEFOREREPORT;
139
140 PROCEDURE REPORT_HEADER IS
141 BEGIN
142 NULL;
143 END REPORT_HEADER;
144
145 FUNCTION PERIOD_IDFORMULA RETURN NUMBER IS
146 L_PERIOD_ID NUMBER;
147 BEGIN
148 BEGIN
149 SELECT
150 PERIOD_ID
151 INTO L_PERIOD_ID
152 FROM
153 GMF_PERIOD_STATUSES
154 WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID
155 AND CALENDAR_CODE = P_CALENDAR
156 AND PERIOD_CODE = P_PERIOD_CODE
157 AND COST_TYPE_ID = P_COST_TYPE_ID;
158 EXCEPTION
159 WHEN OTHERS THEN
160 L_PERIOD_ID := 0;
161 END;
162 RETURN (NVL(L_PERIOD_ID
163 ,-1));
164 END PERIOD_IDFORMULA;
165
166 FUNCTION COST_MTHD_CODEFORMULA RETURN CHAR IS
167 L_COST_MTHD_CODE VARCHAR2(10);
168 BEGIN
169 BEGIN
170 SELECT
171 COST_MTHD_CODE
172 INTO L_COST_MTHD_CODE
173 FROM
174 CM_MTHD_MST
175 WHERE COST_TYPE_ID = P_COST_TYPE_ID;
176 EXCEPTION
177 WHEN OTHERS THEN
178 L_COST_MTHD_CODE := NULL;
179 END;
180 RETURN (L_COST_MTHD_CODE);
181 END COST_MTHD_CODEFORMULA;
182
183 FUNCTION LEGAL_ENTITYCFFORMULA RETURN CHAR IS
184 L_LEGAL_ENTITY_NAME VARCHAR2(240);
185 BEGIN
186 BEGIN
187 SELECT
188 LEGAL_ENTITY_NAME
189 INTO L_LEGAL_ENTITY_NAME
190 FROM
191 GMF_LEGAL_ENTITIES
192 WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID;
193 EXCEPTION
194 WHEN OTHERS THEN
195 L_LEGAL_ENTITY_NAME := NULL;
196 END;
197 RETURN (L_LEGAL_ENTITY_NAME);
198 END LEGAL_ENTITYCFFORMULA;
199
200 FUNCTION AFTERREPORT RETURN BOOLEAN IS
201 BEGIN
202 RETURN (TRUE);
203 END AFTERREPORT;
204
205 FUNCTION ORGANIZATIONCP_P RETURN VARCHAR2 IS
206 BEGIN
207 RETURN ORGANIZATIONCP;
208 END ORGANIZATIONCP_P;
209
210 FUNCTION ITEMCP_P RETURN VARCHAR2 IS
211 BEGIN
212 RETURN ITEMCP;
213 END ITEMCP_P;
214
215 FUNCTION COSTCATEGORYCP_P RETURN VARCHAR2 IS
216 BEGIN
217 RETURN COSTCATEGORYCP;
218 END COSTCATEGORYCP_P;
219
220 END GMF_CMR05USR_XMLP_PKG;
221