1 PACKAGE BODY GMF_CMR12USR_XMLP_PKG AS
2 /* $Header: CMR12USRB.pls 120.0 2007/12/24 13:24:42 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 itm.item_number >= ''' || FROM_ITEM || ''' and itm.item_number <= ''' || TO_ITEM || '''';
8 ELSIF FROM_ITEM IS NULL AND TO_ITEM IS NULL THEN
9 ITEMCP := NULL;
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 itm.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 itm.item_number <= ''' || TO_ITEM || '''';
17 FROM_ITEM := SY_ALL;
18 END IF;
19 IF (ItemCP IS NULL) THEN
20 ItemCP := ' ';
21 END IF;
22 RETURN NULL;
23 END ITEMCFFORMULA;
24 FUNCTION ITEMCPFORMULA(ITEMCF IN VARCHAR2) RETURN VARCHAR2 IS
25 BEGIN
26 /*SRW.REFERENCE(ITEMCF)*/NULL;
27 RETURN ' ';
28 END ITEMCPFORMULA;
29 FUNCTION ORGANIZATIONCFFORMULA RETURN VARCHAR2 IS
30 BEGIN
31 /*SRW.REFERENCE(ORGANIZATIONCP)*/NULL;
32 IF FROM_ORG IS NOT NULL AND TO_ORG IS NOT NULL THEN
33 ORGANIZATIONCP := ' and mtl.organization_code >= ''' || FROM_ORG || ''' and mtl.organization_code <= ''' || TO_ORG || '''';
34 ELSIF FROM_ORG IS NULL AND TO_ORG IS NULL THEN
35 ORGANIZATIONCP := NULL;
36 FROM_ORG := SY_ALL;
37 TO_ORG := SY_ALL;
38 ELSIF FROM_ORG IS NOT NULL AND TO_ORG IS NULL THEN
39 ORGANIZATIONCP := ' and mtl.organization_code >= ''' || FROM_ORG || '''';
40 TO_ORG := SY_ALL;
41 ELSIF FROM_ORG IS NULL AND TO_ORG IS NOT NULL THEN
42 ORGANIZATIONCP := ' and mtl.organization_code <= ''' || TO_ORG || '''';
43 FROM_ORG := SY_ALL;
44 END IF;
45 IF (ORGANIZATIONCP IS NULL) THEN
46 ORGANIZATIONCP := ' ';
47 END IF;
48 RETURN NULL;
49 END ORGANIZATIONCFFORMULA;
50 FUNCTION ORGANIZATIONCPFORMULA RETURN VARCHAR2 IS
51 BEGIN
52 /*SRW.REFERENCE(ORGANIZATIONCP)*/NULL;
53 RETURN ' ';
54 END ORGANIZATIONCPFORMULA;
55 FUNCTION AFTERPFORM RETURN BOOLEAN IS
56 BEGIN
57 FROM_ORG := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(P_FROM_ORGANIZATION_ID);
58 TO_ORG := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(P_TO_ORGANIZATION_ID);
59 FROM_ITEM := GMF_UTILITIES_GRP.GET_ITEM_NUMBER(P_FROM_ITEM_ID
60 ,P_FROM_ORGANIZATION_ID);
61 TO_ITEM := GMF_UTILITIES_GRP.GET_ITEM_NUMBER(P_TO_ITEM_ID
62 ,P_TO_ORGANIZATION_ID);
63 IF FROM_ITEM > TO_ITEM THEN
64 FND_MESSAGE.SET_NAME('GMF'
65 ,'CM_FRMITEM_LTE_TOITEM');
66 /*SRW.MESSAGE(100
67 ,FND_MESSAGE.GET)*/NULL;
68 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
69 END IF;
70 IF (FROM_ORG IS NOT NULL AND TO_ORG IS NOT NULL) THEN
71 IF FROM_ORG > TO_ORG THEN
72 FND_MESSAGE.SET_NAME('GMF'
73 ,'CM_FRMORGCODE_TOORGCODE');
74 /*SRW.MESSAGE(100
75 ,FND_MESSAGE.GET)*/NULL;
76 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
77 END IF;
78 END IF;
79 RETURN (TRUE);
80 END AFTERPFORM;
81 FUNCTION BASE_CURRCFFORMULA RETURN VARCHAR2 IS
82 BCURR VARCHAR2(15);
83 BEGIN
84 SELECT
85 BASE_CURRENCY_CODE
86 INTO BCURR
87 FROM
88 GMF_FISCAL_POLICIES
89 WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID;
90 RETURN (BCURR);
91 EXCEPTION
92 WHEN NO_DATA_FOUND THEN
93 BCURR := ' ';
94 RETURN (BCURR);
95 END BASE_CURRCFFORMULA;
96 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
97 BEGIN
98 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
99 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
100 RETURN (TRUE);
101 END BEFOREREPORT;
102 PROCEDURE GMF_CMR12USR_XMLP_PKG_HEADER IS
103 BEGIN
104 NULL;
105 END GMF_CMR12USR_XMLP_PKG_HEADER;
106 FUNCTION PERIOD_IDFORMULA RETURN NUMBER IS
107 L_PERIOD_ID NUMBER;
108 L_PERIOD_STATUS VARCHAR2(20);
109 BEGIN
110 BEGIN
111 SELECT
112 PERIOD_ID,
113 DECODE(PERIOD_STATUS
114 ,'O'
115 ,'Open'
116 ,'F'
117 ,'Frozen'
118 ,'C'
119 ,'Closed')
120 INTO L_PERIOD_ID,L_PERIOD_STATUS
121 FROM
122 GMF_PERIOD_STATUSES
123 WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID
124 AND CALENDAR_CODE = P_CALENDAR_CODE
125 AND PERIOD_CODE = P_PERIOD_CODE
126 AND COST_TYPE_ID = P_COST_TYPE_ID;
127 EXCEPTION
128 WHEN OTHERS THEN
129 L_PERIOD_ID := NULL;
130 END;
131 CP_PERIOD_STATUS := L_PERIOD_STATUS;
132 RETURN (NVL(L_PERIOD_ID
133 ,-1));
134 END PERIOD_IDFORMULA;
135 FUNCTION COST_MTHD_CODEFORMULA RETURN CHAR IS
136 L_COST_MTHD_CODE VARCHAR2(10);
137 BEGIN
138 BEGIN
139 SELECT
140 COST_MTHD_CODE
141 INTO L_COST_MTHD_CODE
142 FROM
143 CM_MTHD_MST
144 WHERE COST_TYPE_ID = P_COST_TYPE_ID;
145 EXCEPTION
146 WHEN OTHERS THEN
147 L_COST_MTHD_CODE := NULL;
148 END;
149 RETURN (L_COST_MTHD_CODE);
150 END COST_MTHD_CODEFORMULA;
151 FUNCTION CF_LEGAL_ENTITYFORMULA RETURN CHAR IS
152 P_LEGAL_ENTITY_NAME VARCHAR2(240);
153 BEGIN
154 IF (P_LEGAL_ENTITY_ID IS NOT NULL) THEN
155 P_LEGAL_ENTITY_NAME := GMF_UTILITIES_GRP.GET_LEGAL_ENTITY(P_LEGAL_ENTITY_ID);
156 IF P_LEGAL_ENTITY_NAME IS NOT NULL THEN
157 RETURN (P_LEGAL_ENTITY_NAME);
158 END IF;
159 END IF;
160 END CF_LEGAL_ENTITYFORMULA;
161 FUNCTION AFTERREPORT RETURN BOOLEAN IS
162 BEGIN
163 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
164 RETURN (TRUE);
165 END AFTERREPORT;
166 FUNCTION ITEMCP_P RETURN VARCHAR2 IS
167 BEGIN
168 RETURN ITEMCP;
169 END ITEMCP_P;
170 FUNCTION ORGANIZATIONCP_P RETURN VARCHAR2 IS
171 BEGIN
172 RETURN ORGANIZATIONCP;
173 END ORGANIZATIONCP_P;
174 FUNCTION CP_PERIOD_STATUS_P RETURN VARCHAR2 IS
175 BEGIN
176 RETURN CP_PERIOD_STATUS;
177 END CP_PERIOD_STATUS_P;
178 END GMF_CMR12USR_XMLP_PKG;
179