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